I've an input variable block file.The data file is like this:
Code: Select all
FD004A001<some varibale data>
FD004A001<some varibale data>
FD005A001<some varibale data>
FD005A002<some varibale data>
.
.
.
FD100A006<some varibale data>
I tried the following:
Code: Select all
//STEP01 EXEC PGM=SORT
//SORTIN DD DSN=MY.INPUT.FILE, --> vb, recl - 2053
// DISP=SHR
//SORTOF01 DD DSN=FILE004.OUTPUT.FILE,
// UNIT=(,5),SPACE=(1,(20,20),RLSE),AVGREC=M,
// DATACLAS=SXXXFB,LRECL=256,
// DISP=(,CATLG,DELETE)
//SORTOF02 DD DSN=FILE005.OUTPUT.FILE,
// UNIT=(,5),SPACE=(1,(20,20),RLSE),AVGREC=M,
// DATACLAS=SXXXFB,LRECL=89,
// DISP=(,CATLG,DELETE)
//SYSIN DD *
SORT FIELDS=COPY
OUTREC FIELDS=(1,2049),CONVERT
OUTFIL FILES=01,
INCLUDE=(1,5,CH,EQ,C'F0004')
OUTFIL FILES=02,
INCLUDE=(1,5,CH,EQ,C'F0005')