//CLA17COM JOB (),'CICS ',NOTIFY=&SYSUID,
//      CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1)
//*--------------------------------------------------------------------
//COMPILA EXEC PROC=IGYWCL
//COBOL.STEPLIB DD DSN=IBMUSER.MAG.LOAD,DISP=SHR
//COBOL.SYSIN DD DISP=SHR,DSN=IBMUSER.MAG.SOURCE(CLA17)
//COBOL.SYSLIB DD DISP=SHR,DSN=IBMUSER.MAG.COPY
//LKED.SYSLMOD DD DISP=SHR,DSN=IBMUSER.MAG.LOAD(CLA17)