saiprasadh
Active User
Joined: 20 Sep 2006 Posts: 154 Location: US
|
|
|
|
I used below sort card to generate the output.
Code: |
//STEP01 EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//INA DD DSN=<Your Input file>,DISP=SHR
//INB DD DSN=<Your Input file>,DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
JOINKEYS F1=INA,FIELDS=(81,10,A)
JOINKEYS F2=INB,FIELDS=(81,10,A)
REFORMAT FIELDS=(F1:1,90,?,F2:1,91)
INCLUDE COND=(182,1,CH,EQ,C'1')
OUTREC FIELDS=(1:1,80)
/*
//JNF1CNTL DD *
INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,7,CH,EQ,C'PROGRAM'),
END=(1,6,CH,EQ,C' TOTAL'),
PUSH=(81:ID=10))
/*
//JNF2CNTL DD *
INCLUDE COND(1,12,CH,EQ,C'WAREHOUSE ID')
INREC IFTHEN=(WHEN=INIT,
BUILD=(1:1,80,81:SEQNUM,10,ZD,START=1,INCR=1,91:C'1')),
IFTHEN=(WHEN=(1,17,CH,NE,C'WAREHOUSE ID: BBB'),
OVERLAY=(91:C'0'))
/* |
|
|