Hi,
We are getting 1 3rd part file with the layout as follows. Here in header 1-17
bytes is the count followed by Pipe & Date. The Rest of the lines is the detail
lines .
The process should not proceed if the count in header is not matching with the
detail line count.
00000000000000007|2020-12-09
980012589|000004937|000003448
980010506|000004937|000002698
980001772|000004937|000003288
000276258|000004937|000003788
980012589|000004936|000003448
980010506|000004936|000002698
980001772|000004936|000003288
I coded the below DFSORT job , but it is not working . Could some one please
let me know where the issue is ?
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=PNS2S3.T1.F1.F1,DISP=SHR
//SORTOUT DD DSN=&&K,DISP=(,PASS),SPACE=(TRK,(1,1),RLSE)
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL REMOVECC,NODETAIL,BUILD=(80X),
TRAILER1=('DATA_COUNT,+',COUNT-1=(M11,LENGTH=17))
/*
//STEP02 EXEC PGM=SORT,PARM='RC16=ABE'
//SYSOUT DD SYSOUT=*
//SYMNAMES DD DSN=&&K,DISP=SHR
//SORTIN DD DSN=PNS2S3.T1.F1.F1,DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY,NULLOUT=RC16,STOPAFT=1
INCLUDE COND=(01,17,BI,EQ,DATA_COUNT)
//*
Regards
Ron T
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
