shankar.v
Active User
Joined: 25 Jun 2007 Posts: 196 Location: Bangalore
|
|
|
|
bhaskar_kanteti,
Quote: |
I think by using SORT and NULLOUT=RC* i can do this. Am i right |
Please check with the following code for your requirement.
Code: |
// EXEC PGM=IEFBR14
//DELETE DD DSN=TEMPIN,DISP=(MOD,DELETE,DELETE)
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD *
SEQ 2
ORD 2
/*
//TEMPIN DD DISP=(,CATLG),LRECL=80,RECFM=FB,SPACE=(CYL,1),
// DSN=TEMPIN
//TEMP DD DSN=&&TEMP,DISP=(,PASS)
//TOOLIN DD *
COPY FROM(IN) TO(TEMPIN) USING(CTL1)
COPY FROM(TEMPIN) TO(TEMP) USING(CTL2)
COUNT FROM(TEMP) LOWER(2) RC4
/*
//CTL1CNTL DD *
INREC OVERLAY=(11:SEQNUM,1,ZD)
//CTL2CNTL DD *
INCLUDE COND=((11,1,ZD,EQ,+1,AND,6,5,CH,EQ,C'1'),OR,
(11,1,ZD,EQ,+2,AND,6,5,CH,EQ,C'1'))
/*
// IF (RC = 0) THEN
//PGM1 EXEC PGM=PGM1
// ELSE
//S2 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//TEMPIN DD DSN=TEMPIN,DISP=SHR
//TEMP DD DSN=&&TEMP,DISP=(,PASS)
//TOOLIN DD *
COPY FROM(TEMPIN) TO(TEMP) USING(CTL1)
COUNT FROM(TEMP) LOWER(2) RC4
/*
//CTL1CNTL DD *
INCLUDE COND=((11,1,ZD,EQ,+1,AND,6,5,CH,EQ,C'1'),OR,
(11,1,ZD,EQ,+2,AND,6,5,CH,EQ,C'2'))
/*
// IF (S2.RC = 0) THEN
//PGM2 EXEC PGM=PGM2
// ELSE
//S3 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//TEMPIN DD DSN=TEMPIN,DISP=SHR
//TEMP DD DSN=&&TEMP,DISP=(,PASS)
//TOOLIN DD *
COPY FROM(TEMPIN) TO(TEMP) USING(CTL1)
COUNT FROM(TEMP) LOWER(2) RC4
/*
//CTL1CNTL DD *
INCLUDE COND=((11,1,ZD,EQ,+1,AND,6,5,CH,EQ,C'2'),OR,
(11,1,ZD,EQ,+2,AND,6,5,CH,EQ,C'1'))
/*
// IF (S3.RC = 0) THEN
//PGM3 EXEC PGM=PGM3
// ELSE
//PGM4 EXEC PGM=PGM4
// ENDIF
// ENDIF
// ENDIF
// EXEC PGM=IEFBR14
//DELETE DD DSN=TEMPIN,DISP=(MOD,DELETE,DELETE)
|
|
|