Hello. Instead do it by a REXX program,i would like to compare the number of lines of two datasets.
If the number is equal, it's ok, if it's not, it's not ok.
//CNTLINES EXEC PGM=SORT
// . . . . . .
//FIRST DD DISP=SHR,DSN=dataset1
//SECOND DD DISP=SHR,DSN=dataset2
//SYSIN DD *
JOINKEYS F1=FIRST,
FIELDS=(1,8,A),SORTED
JOINKEYS F2=SECOND,
FIELDS=(1,8,A),SORTED
JOIN UNPAIRED,ONLY
REFORMAT FIELDS=(F1:1,8,F2:1,8),FILL=С'-'
OUTFIL NOTMTOFL=RC4 RC=4 ==> different number of records
//CNTLJNF1 DD *
INREC BUILD=(SEQNUM,8,ZD)
//CNTLJNF2 DD *
INREC BUILD=(SEQNUM,8,ZD)
//SORTOUT DD SYSOUT=*
// . . . . . . .
