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