jpdeshai
New User
Joined: 24 Jun 2007 Posts: 57 Location: US
|
|
|
|
I'm trying to execute the below job.
Code: |
//S1 EXEC PGM=SYNCTOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DISP=SHR,DSN=VKIT.VI.RCS.ESMC
//*
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(MOD,PASS)
//T2 DD DSN=&&T2,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(MOD,PASS)
//OUT1 DD SYSOUT=*
//OUT2 DD SYSOUT=*
//OUT DD SYSOUT=*
//TOOLIN DD *
SORT FROM(IN1) TO(T1) USING(CNT0)
SORT FROM(IN1) TO(T1) USING(CNT1)
COPY FROM(T1) TO(OUT1)
SPLICE FROM(T1) TO(T2) ON(1,9,CH) ON(11,9,CH) -
WITH(11,9) KEEPNODUPS
COPY FROM(T2) TO(OUT) USING(CNT2)
/*
//CNT0CNTL DD *
SORT FIELDS=(236,9,CH,A)
INCLUDE COND=(1,3,CH,NE,C'000',AND,(215,1,CH,EQ,C'X',OR,
215,1,CH,EQ,C'R'),AND,
258,1,CH,NE,C'O',AND,
33,1,CH,EQ,C'P')
OUTFIL FNAMES=T1,NODETAIL,LINES=60,REMOVECC,
SECTIONS=(236,9,
TRAILER3=(1:236,9,11:COUNT))
/*
//CNT1CNTL DD *
SORT FIELDS=(236,9,CH,A)
INCLUDE COND=(1,3,CH,NE,C'000',AND,(215,1,CH,EQ,C'X',OR,
215,1,CH,EQ,C'R'),AND,
258,1,CH,EQ,C'O',AND,
33,1,CH,EQ,C'P')
OUTFIL FNAMES=T1,NODETAIL,LINES=60,REMOVECC,
SECTIONS=(236,9,
TRAILER3=(1:236,9,21:COUNT))
/*
//CNT2CNTL DD *
OUTFIL FNAMES=OUT,LINES=60,
HEADER1=(15:'MASS CARD PRINTED ZIP STAT - POV - REPORT'),
HEADER2=(1:'ZIP CODE',12:'CARDS BATCH',26:'CARDS ONLINE',/,
1:'**********',12:'*************',26:'*************'),
OUTREC=(1,9,11:11,9,21:21,9,80:X),
TRAILER1=(/,15:'TOTAL NUMBER OF CARDS ISSUED:',COUNT)
/*
|
The Output is comming as below:
Code: |
MASS CARD PRINTED ZIP STAT - POV - REPORT
ZIP CODE CARDS BATCH CARDS ONLINE
********** ************* *************
09094 139
09099 141
09102 3
09102 801
TOTAL NUMBER OF CARDS ISSUED: 4
|
Expected Output as below:
Code: |
MASS CARD PRINTED ZIP STAT - POV - REPORT
ZIP CODE CARDS BATCH CARDS ONLINE
********** ************* *************
09094 139
09099 141
09102 801 3
TOTAL NUMBER OF CARDS ISSUED: 1081 (i.e..139+141+801)
|
Can any one help me on this? |
|