Requirements are not clear! How the records/rows are decided to move to different files. Please let us know on which condition you are deciding the file to move certain records.
If you explain the requirement clearly then someone will give you a solution.
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
Thamilzan,
You can use a DFSORT job like the following to do what you asked for. I assumed your input file has RECFM=FB and LRECL=80, but the job can be changed appropriately for other attributes.
Joined: 13 Dec 2005 Posts: 154 Location: The Netherlands
Hi Frank,
Thanks for the quick reply, I tried the above my DS is lrecl 296, am getting a ABEND S000 U0016, below is my SYSOUT and JCL
Code:
SYSIN :
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,1,CH,EQ,C'1'),PUSH=(297:ID=1))
*
OUTFIL FNAMES=OUT1,INCLUDE=(81,1,CH,EQ,C'1'),BUILD=(1,296)
OUTFIL FNAMES=OUT2,INCLUDE=(81,1,CH,EQ,C'2'),BUILD=(1,296)
WER903I SYNCSORT 1.3.1.1 IS NOT LICENSED FOR SERIAL 88C0F, TYPE 2094 734, LPAR
WER903I PRODUCT WILL STOP WORKING IN 36 DAYS UNLESS A VALID KEY IS INSTALLED.
WER268A INREC STATEMENT : SYNTAX ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
Joined: 13 Dec 2005 Posts: 154 Location: The Netherlands
Dear Brenholtz,
Is there a solution for this using SYNCSORT for the above request. Writing a COBOL prog. or an EzTrive is simpler I guess. Please let me know your thoughts.