//P390XCOB 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.CBLSRC(HELLOWRL) 
//COBOL.SYSLIB DD DISP=SHR,DSN=IBMUSER.MAG.COPY            
//LKED.SYSLMOD DD DISP=SHR,DSN=IBMUSER.MAG.LOAD(HELLOWRL)