Splitting a file(record number varis) into different files

Rajendra Kumar · New User Joined: 26 Jun 2009 Posts: 13 Location: Hyderabad

Hi,

I am having the data in the file as

HL1.......................ABC.........XYZ
Record-1
Record-2
Record-3
HL1.......................DEF...........PQR
Record-4
Record-5
HL1......................GHI.........TUV
Record-6
Record-7
Record-8
Record-9

The Header Record always starts with HL1,I require the first header record and the below 3 records(basically upto next Header record) needs to be written to a new file and the second header record and the next 2 records(record-4,5) needs to be written into another file and finally the 3rd one also in the same way

The records after the Header record will be varying,the file is of fixed length....we can take that as 80.

I tried in many ways but I was not able to get as the record number is varying.

Can anyone please help me out doing this using sort.

Thanks,
Rajendra

Frank Yaeger · Posted: Tue Aug 04, 2009 9:04 pm

Here's a DFSORT job that will do what you asked for:

Rajendra Kumar · New User Joined: 26 Jun 2009 Posts: 13 Location: Hyderabad

Hi Frank,

I am getting the error as "-INREC STATEMENT : SYNTAX ERROR".

I am using SYNCSORT and not DFSORT,not sure if anything needs to be changed other than "OPTION COPY" to "SORT FIELDS=COPY".

Thanks!

Arun Raj · Posted: Wed Aug 05, 2009 2:23 pm

Rajendra Kumar,

The job posted above would have worked fine for you if you had the latest release of SyncSort - SyncSort for z/OS 1.3.2 which supports the WHEN=GROUP function.
Since it's throwing syntax error, I assume you are running an older version of SyncSort. Here's a SyncSort job which should work for SyncSort 1.2 or above.

Rajendra Kumar · New User Joined: 26 Jun 2009 Posts: 13 Location: Hyderabad

Hi,

I am getting the error as

CONVERT FEATURE CANNOT BE USED WITH OVERLAY OR IFTHEN
SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE

I am using SYNCSORT FOR Z/OS 1.2.1 version.

Also,I am not sure whether the second overlay(basically for sub records) is correct or not.

IFTHEN=(WHEN=NONE,
OVERLAY=(89:SEQNUM,8,ZD,81:81,8,ZD,SUB,89,8,ZD,M11,LENGTH=8))

I think this needs to be changed.

Any help is really appreciated.

Arun Raj · Posted: Wed Aug 05, 2009 3:32 pm

Rajendra Kumar,

My shop has recently been upgraded to SyncSort 1.3.2. And above code works fine for me. But I have nt used any new functions here.

Can you post the entire SYSOUT messages here?.

Rajendra Kumar · New User Joined: 26 Jun 2009 Posts: 13 Location: Hyderabad

Sorry Arun....The code is working fine & Thanks a lot for the HELP.

In the Forum I had mentioned the file length as 80 but actually it is of 400 and so in my real time environment there was a small mistake from my side(numbers in SYSIN card)...I had changed the same and everything is fine...

Once again Thanks for the Information.

Arun Raj · Posted: Thu Aug 06, 2009 4:47 am

You're welcome.

Anyways good to hear that you adapted the job as per your real file attributes.