Logical Thinking

subramanianup · Posted: Thu Feb 02, 2006 1:02 pm Post subject: Logical Thinking

You have VB file as input, there is Account Number field with picture clause 9(10) comp 3 starting at 7th position in input file. how do you write a sort card using Account No as the Control Field?

Vidusha · New User Joined: 01 Feb 2006 Posts: 20 Location: Chennai

I think SORT FIELDS=(7,10,PD) will work. Is there any difference in sorting for FB and VB Record format?

Thanks
Vidhya

Vidusha · New User Joined: 01 Feb 2006 Posts: 20 Location: Chennai

Sorry..The First parameter, position change for VB. it is +4.
So SORT FIELDS=(11,10,pd).

Thanks
Vidhya

subramanianup · Posted: Wed Feb 08, 2006 3:47 pm Post subject:

SORT FIELDS=(11,6,pd).

For COMP-3 filed we have to give length only not total chars

fixdoubts · Active User Joined: 21 Oct 2005 Posts: 52

Hi,

Subramanianup is right.
Since yours is a VB file first four bytes will contain control info your
record starts at fifth position only and your are using a
COMP-3 field which i half byte in length plus the sign byte will make
the 9(01) comp 3 to be of 6 bytes in length

SO the sort card will be

SORT FIELDS=(11,6,PD).

Correct me if am wrong.

Regards,

prabs2006 · Active User Joined: 12 Jan 2006 Posts: 104

Hi,

But there is no sign bit explicitly mentioned. The Q says picture clause 9(10) comp 3. So shouldn't it be a SORT FIELDS=(11,5,PD) ?

Thanks & regards
Prabs

subramanianup · Posted: Thu Feb 09, 2006 5:54 pm Post subject:

hi,
for length calculation always (n/2) +1, so if you are not mention it will take 6 bytes only

so it will be SORT FIELDS=(11,6,PD)

Frank Yaeger · Posted: Thu Feb 09, 2006 10:10 pm Post subject:

9(10) comp-3 and S9(10) comp-3 are both equivalent to 6-byte PD fields as far as DFSORT is concerned. Internally, the value looks like this: X'0dddddddddds'. With 9(10), s will always be positive. With S9(10), s can be positive or negative.

For a table showing the relationship of COBOL data types to DFSORT formats, see:

http://www.ibm.com/servers/storage/support/software/sort/mvs/professor_sort/srtmacfm.html