Author: Arun Raj
Subject: Reply to: How to use 2 input files in control control card
Posted: Fri Oct 14, 2016 7:54 pm (GMT 5.5)
My apologies for posting on a locked one. Just thought of sharing something that came to me.
_________________
Arun
----------------------------------------------------------------------------------------------------
Love is like an hourglass, with the heart filling up as the brain empties. -Jules Renard
Subject: Reply to: How to use 2 input files in control control card
Posted: Fri Oct 14, 2016 7:54 pm (GMT 5.5)
My apologies for posting on a locked one. Just thought of sharing something that came to me.
| Code: |
| //STEP01 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN= Input control data set (FB/80) : (ON/OFF/TRIAL) //SORTOUT DD DSN=&C1,DISP=(NEW,PASS),SPACE=(TRK,(1,1)) //SYSIN DD * OPTION COPY INREC FINDREP=(INOUT=(C'OFF',C'FROM(IN1)-', C'ON',C'FROM(IN2)-', C'TRIAL',C'FROM(IN3)-'),ENDPOS=5) /* //STEP02 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN1 DD DSN= Input data set1 //IN2 DD DSN= Input data set2 //IN3 DD DSN= Input data set3 //OUT DD DSN= Output data set //TOOLIN DD * COPY - // DD DSN=&C1,DISP=SHR // DD * TO(OUT) //* |
_________________
Arun
----------------------------------------------------------------------------------------------------
Love is like an hourglass, with the heart filling up as the brain empties. -Jules Renard