Ok Kolusu, will remove dfsort tag from subject line . Thanks again for
providing the steps. Here is what i have done
//STEP03 EXEC SORT
//SORTIN DD *
500000338 789997580026.00 36052910 DF 96.12
500000338 789997580026.00 36052910 DF 96.12
500000338 789997580026.00 36052910 DF 95.12
500000318 789997580026.00 36052910 DF 95.12
500000318 789997580026.00 36052911 DF 95.12
500000318 789997580026.00 36052911 DF 95.12
//SORTOUT DD DSN=T01.RXVD.PULL,
// SPACE=(CYL,(50,50),RLSE),VOL=(,,,99),
// DISP=(NEW,CATLG,DELETE)
//SYSIN DD *
SORT FIELDS=(1,37,CH,A)
OUTREC IFTHEN=(WHEN=GROUP,KEYBEGIN=(1,37),PUSH=(81:65,10)),
IFTHEN=(WHEN=(64,10,CH,NE,81,10,CH),OVERLAY=(92:C'P'))
OUTFIL FNAMES=SORTOUT,REMOVECC,NODETAIL,
INCLUDE=(92,1,CH,EQ,C'P'),
SECTIONS=(1,64,TRAILER3=(1,64,COUNT=(EDIT=(IIII))),65,10)
/*
O/p Generated
500000318 789997580026.00 36052910 DF 1
500000318 789997580026.00 36052911 DF 2
500000338 789997580026.00 36052910 DF 3
I am not sure whether this o/p is correct .
Also for the Joinkeys . This below is what i have coded
JOINKEYS FILES=F1,FIELDS=(1,37,A),SORTED,NOSEQCK
JOINKEYS FILES=F2,FIELDS=(1,37,A),SORTED,NOSEQCK
REFORMAT FIELDS=(F1:01,80,F2:01,92,?)
OPTION COPY
JOIN UNPAIRED,F1,F2
OUTFIL FNAMES=BOTH,
INCLUDE=(173,1,CH,EQ,C'B'),BUILD=(1,80)
I am getting the o/p as expected , but not sure whether what i have done is
completely correct . Could you please check and let me know if the above needs
correction ?
Regards
Ron T
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
