IBM Mainframe Forum

000001 // IF RC = 0 THEN                                   
000002 //MYSORT    EXEC PGM=ICETOOL                         
000003 //TOOLMSG  DD SYSOUT=*                               
000004 //DFSMSG   DD SYSOUT=*                               
000005 //OUTPUT1   DD DSN=&SYSUID..Z3.OUTPUT(OUTPUT1),DISP=SHR
000006 //MSGOUT   DD DSN=&&TMP,DISP=(NEW,PASS)             
000007 //  UNIT=SYSALLDA,SPACE=(CYL,(1,1))                 
000008 //TOOLIN   DD DSN=&SYSUID..Z3.CARDIN(CARD1),DISP=SHR 
000009 //PARMCNTL DD DSN=&SYSUID..Z3.CARDIN(CARD2),DISP=SHR 
000010 // ENDIF                                                                                     

STMT NO. MESSAGE                             
      5 IEFC605I UNIDENTIFIED OPERATION FIELD

        2 //S1      EXEC PGM=IDCAMS
        3 //SYSPRINT  DD SYSOUT=*
        4 //SYSIN     DD *
        5 // IF RC = 0 THEN
        6 //S2      EXEC PGM=IDCAMS
        7 //SYSPRINT  DD SYSOUT=*
        8 //SYSIN     DD *
        9 //SOMEDD    DD DISP=(,PASS),DSN=&&TEMP
       10 // SPACE=(CYL,(2,2))
       11 // ENDIF
 STMT NO. MESSAGE
       10 IEFC605I UNIDENTIFIED OPERATION FIELD