Author: scdinesh
Posted: Wed Feb 15, 2017 4:15 am (GMT 5.5)
Thanks Arun and Bill for the Response:
am able to receive expected result in Sortout file , but File 01/02 is empty
Bill,
Please letme know if you need anything specific from sysout? Thanks for your help in advance
Half-coded
Posted: Wed Feb 15, 2017 4:15 am (GMT 5.5)
Thanks Arun and Bill for the Response:
| Code: |
//COMPARE EXEC PGM=SORT //UNLOAD DD DSN=TEST.ACCTBL.UNLD, // DISP=SHR //EXTRACT DD DSN=TEST.MAST.EXTRACT, // DISP=SHR //SORTOUT DD DSN=TEST.COMPR.SMPLFILE, // DISP=(,CATLG,DELETE), // SPACE=(TRK,(100,100),RLSE), // BLKSIZE=0, // LRECL=500, // RECFM=FB //SORTOF01 DD DSN=TEST.OPDTL.RECS1, // DISP=(,CATLG,DELETE), // SPACE=(TRK,(100,100),RLSE), // BLKSIZE=0, // LRECL=500, // RECFM=FB //SORTOF02 DD DSN=TEST.NONOPDTL.RECS1, // DISP=(,CATLG,DELETE), // SPACE=(TRK,(100,100),RLSE), // BLKSIZE=0, // LRECL=500, // RECFM=FB //SYSOUT DD SYSOUT=* //SYSIN DD * SORT FIELDS=COPY JOINKEYS F1=UNLOAD,FIELDS=(7,20,A) JOINKEYS F2=EXTRACT,FIELDS=(27,20,A) JOIN UNPAIRED,F1 REFORMAT FIELDS=(F2:5,20,F2:25,2,F1:1,437) //* OUTFIL INCLUDE=(1,20,CH,EQ,C' '),FILES=01 OUTFIL INCLUDE=(1,20,CH,NE,C' '),FILES=02 |
am able to receive expected result in Sortout file , but File 01/02 is empty
Bill,
Please letme know if you need anything specific from sysout? Thanks for your help in advance
Half-coded