Need suggestion in sort

SENTHIL MURUGAAN · New User Joined: 12 Jan 2013 Posts: 32 Location: India

Hi,

I have the input file as below.

Code:

HEADER
SBR_AT 0010
DMT_AT 0010
MEM_GR 0010 GRPID20
SBR_AT 0011
DMT_AT 0011
MEM_GR 0011 GRPID10

The above input file must be sorted such that if (5:6) = 'GR' then it is to be sorted on groupid(13:7) and the block ordering must not change as shown below.

Code:

HEADER
SBR_AT 0011
DMT_AT 0011
MEM_GR 0011 GRPID10
SBR_AT 0010
DMT_AT 0010
MEM_GR 0010 GRPID20

Is there any way to achieve this in sort?

Thanks,
Senthil

Bill Woodger · Posted: Wed Jul 24, 2013 12:06 pm

Is all your data of that "pattern"? (if not, show a better sample input file which is representative of possible combinations, including maximum number of records per group).

What is the RECFM and LRECL of your input?

SENTHIL MURUGAAN · New User Joined: 12 Jan 2013 Posts: 32 Location: India

Hi Bill,

Yes, All the data will be present in the above pattern.

Thanks,
Senthil

SENTHIL MURUGAAN · New User Joined: 12 Jan 2013 Posts: 32 Location: India

But groupid(13:7) GRPID10, GRPID20 mentioned above will be system generated unique alphanumeric ids. For easier identification i have mentioned as GRPID

SENTHIL MURUGAAN · New User Joined: 12 Jan 2013 Posts: 32 Location: India

Hi Bill,
Sorry to mention file details, RECFM will be FB and LRECL = 626

Thanks,
Senthil

Bill Woodger · Posted: Wed Jul 24, 2013 12:43 pm

OK. First see if you have DATASORT available under SYNCTOOL (perhaps done as EXEC PGM=ICETOOL). That will keep the file header where it is.

Then identify your first two record types, separately, with IFTHEN=(WHEN=GROUP PUSH the entire record to separate (for each record type) extended areas on the record.

Your third record will now contain the data belonging to all three records, and it has the sort key you want. Sort on that key.

Two tasks for OUFIL. OMIT= for the original first two record types. BUILD with the "slash operator (/)" to cause multiple records to be output from one input record.

Like BUILD=(627,626,/,1253,626,/,1,626).

Then you should be about there.

SENTHIL MURUGAAN · New User Joined: 12 Jan 2013 Posts: 32 Location: India

Hi Bill,

THats great!!. I have ICETOOL option. but it would be better if u can provide me syntax as I am new to ICETOOL. Thanks.

Thanks,
Senthil

Bill Woodger · Posted: Wed Jul 24, 2013 1:23 pm

DATASORT is very easy. Search the forum/web and you should find some examples. You then put the processing in the USING(xxxx) file, so you have xxxxCNTL as a DD.

Arun Raj · Posted: Wed Jul 24, 2013 2:10 pm

Senthil,

Do you always have 3 records in a 'group' assuming a group ends with some non-blank 7 byte value at pos-13? Or can it be more or less than 3?

SENTHIL MURUGAAN · New User Joined: 12 Jan 2013 Posts: 32 Location: India

Hi Arun,

The record count can be more or less than 3 but always the last record will hold 'GR' for 1 set with non blank 7 byte from position 13.

Senthil

Arun Raj · Posted: Wed Jul 24, 2013 3:22 pm

Senthil,

Do you know the maximum number of records that can come in a single 'group'?

SENTHIL MURUGAAN · New User Joined: 12 Jan 2013 Posts: 32 Location: India

Arun,

The maximum no of records for a single group cannot be predicted. As far i see the test file it holds not more than 5 records for 1 set.

But (8:4) will be always same as shown above for 1 set and will be in ascending order. This is the only position which denotes they belong to 1 group(Ex:0010,0011). If there is any way to copy this at the end for all the records for that particular group, then it helps easy sorting

Bill Woodger · Posted: Wed Jul 24, 2013 9:59 pm

Arun Raj · Posted: Thu Jul 25, 2013 2:39 pm

Senthil,

You might want to try the below Syncsort.
Note that the same input file needs to be assigned to both SORTJNF1 and SORTJNF2 DDs.