//P390XCOB JOB (),'CICS ',NOTIFY=&SYSUID,                               
// CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1),TIME=(,3)                          
//*-------------------------------------------------------------------- 
//*                                                                     
//* EJECUTA->COMMAND HEX ON -> REEMPLAZAR LUEGO DEL 2323 LA ULTIMA F    
//* POR CARACTER CON C PARA NUMERO POSITIVO O D PARA NEGATIVO           
//* SUCUR ES EL ACCESO AL ARCHIVO SUCURSAL                              
//PASO0001 EXEC PGM=HELLOWRL                                            
//STEPLIB DD DSN=IBMUSER.MAG.LOAD,DISP=SHR                              
//*ENTRA   DD DSN=IBMUSER.HELLOWRL,DISP=SHR                             
//*SALID   DD DSN=GDES.SUC10SD,DISP=SHR                                 
//SYSPRINT DD SYSOUT=*                                                  
//SYSABOUT DD SYSOUT=*                                                  
//SYSDBOUT DD SYSOUT=*                                                  
//SYSUDUMP DD SYSOUT=*                                                  
//SYSOUT   DD SYSOUT=*                                                  
//SYSTSPRT DD SYSOUT=*                                                  
//SYSTSIN  DD *                                                         
//SYSIN    DD *                                                         
//*0 POR SI HAY ALGUN ACCESS EN EL CODIGO                               
//*