//CLA10EXE 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=CLA10
//STEPLIB DD DSN=IBMUSER.MAG.LOAD,DISP=SHR
//*--------------------------------------------------------------------
//* En las 2 siguiente lineas van los archivos de entrada y salida
//*--------------------------------------------------------------------
//ENTRA   DD DSN=IBMUSER.ARCH(CLA10IN),DISP=SHR
//SALID   DD DSN=IBMUSER.ARCH(CLA10OUT),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
//*