//CCICSDB2  JOB NOTIFY=&SYSUID,MSGCLASS=A,CLASS=A,MSGLEVEL=(1,1),
//          REGION=0M
//****************************************************
//* INGRESE EL NOMBRE DEL PGM
//****************************************************
//SETP    SET PGM=HOL4
//****************************************************
//* DB2 PRECOMPILER
//****************************************************
//DB2     EXEC PGM=DSNHPC,
//        PARM='HOST(IBMCOB),XREF,SOURCE,FLAG(W),APOST',
//        REGION=8M
//*
//****STEPLIB DD DISP=SHR,DSN=DSN810.SDSNEXIT
//STEPLIB DD DISP=SHR,DSN=DSN910.DB9G.SDSNEXIT
//        DD DISP=SHR,DSN=DSN910.SDSNLOAD
//****    DD DISP=SHR,DSN=DSN810.SDSNLOAD
//****
//****
//SYSIN   DD DSN=IBMUSER.CICS.SOURCE(&PGM),DISP=SHR
//DBRMLIB DD DSN=IBMUSER.DB2.DBRMLIB(&PGM),DISP=SHR
//SYSCIN  DD DSN=IBMUSER.DB2.DSNHOUT(&PGM),DISP=SHR
//SYSLIB  DD DSN=IBMUSER.CICS.COPY,DISP=SHR
//        DD DSN=IBMUSER.DB2.DCLGEN,DISP=SHR
//        DD DSN=IBMUSER.CICS.SOURCE,DISP=SHR
//        DD DSN=DFH320.CICS.SDFHCOB,DISP=SHR
//SYSPRINT DD SYSOUT=A
//SYSTERM DD SYSOUT=A
//SYSUT1  DD SPACE=(CYL,(5,1)),UNIT=SYSDA
//SYSUT2  DD SPACE=(CYL,(5,1)),UNIT=SYSDA
//********************************************************
//* CICS TRANSLATOR
//********************************************************
//CICS    EXEC PGM=DFHECP1$,REGION=8M,PARM=(COBOL3,NOSOURCE,SP),
//          COND=(0,NE,DB2)
//*
//STEPLIB   DD DISP=SHR,DSN=DFH320.CICS.SDFHLOAD
//DSCTLIB  DD DISP=SHR,DSN=DFH320.CICS.SDFHCOB
//SYSIN    DD DSN=IBMUSER.DB2.DSNHOUT(&PGM),DISP=SHR
//SYSPUNCH DD DISP=(NEW,PASS),DSN=&&CICSOUT0,UNIT=SYSDA,
//          SPACE=(800,(500,500)),DCB=BLKSIZE=400
//SYSPRINT DD SYSOUT=A
//SYSOUT   DD SYSOUT=A
//************************************************************
//* COMPILADOR DE COBOL
//************************************************************
//COB     EXEC PGM=IGYCRCTL,REGION=8M,
//        PARM=(APOST,LIB,XREF,MAP,RENT,BUF(32760),DYNAM,
//        SSRANGE,OFFSET,TRUNC(OPT)),COND=((0,NE,DB2),(0,NE,CICS))
//****
//****
//STEPLIB DD DSN=IGY410.SIGYCOMP,DISP=SHR
//SYSLIB  DD DISP=SHR,DSN=DFH320.CICS.SDFHCOB
//        DD DSN=IBMUSER.CICS.SOURCE,DISP=SHR
//        DD DSN=IBMUSER.CICS.COPY,DISP=SHR
//        DD DSN=IBMUSER.CICS.MAPS,DISP=SHR
//********DD DSN=IBMUSER.CICS.LOAD,DISP=SHR
//        DD DSN=IBMUSER.DB2.DCLGEN,DISP=SHR
//SYSPRINT DD SYSOUT=A
//****SYSUDUMP DD SYSOUT=*
//SYSIN   DD DSN=&&CICSOUT0,DISP=(OLD,DELETE)
//SYSLIN  DD DSN=&&LOADSET,DISP=(NEW,PASS),UNIT=SYSDA,
//         SPACE=(800,(500,500))
//SYSUT1  DD UNIT=SYSDA,SPACE=(460,(350,100))
//SYSUT2  DD UNIT=SYSDA,SPACE=(460,(350,100))
//SYSUT3  DD UNIT=SYSDA,SPACE=(460,(350,100))
//SYSUT4  DD UNIT=SYSDA,SPACE=(460,(350,100))
//SYSUT5  DD UNIT=SYSDA,SPACE=(460,(350,100))
//SYSUT6  DD UNIT=SYSDA,SPACE=(460,(350,100))
//SYSUT7  DD UNIT=SYSDA,SPACE=(460,(350,100))
//*****************************************************************
//* COPYLINK
//*************************************************************
//CPLK    EXEC PGM=IEBGENER,REGION=8M,
//        COND=((0,NE,DB2),(0,NE,CICS),(0,NE,COB))
//****
//SYSUT1  DD DSN=IBMUSER.MAG.JCL(DFHEILID),DISP=SHR
//SYSUT2  DD DSN=&&COPYLINK,DISP=(NEW,PASS),
//         DCB=(LRECL=80,BLKSIZE=400,RECFM=FB),
//         UNIT=SYSDA,SPACE=(400,(20,20))
//SYSPRINT DD SYSOUT=A
//SYSIN   DD DUMMY
//***********************************************************
//* LINK EDITION
//***********************************************************
//LKED    EXEC PGM=IEWL,REGION=8M,
//        PARM='LIST,XREF,CALL,AMODE=31,RMODE=ANY',
//        COND=((0,NE,DB2),(0,NE,CICS),(0,NE,COB),(0,NE,CPLK))
//****
//SYSLIB  DD DSN=DFH320.CICS.SDFHLOAD,DISP=SHR
//        DD DSN=CEE.SCEELKED,DISP=SHR
//        DD DISP=SHR,DSN=DSN810.SDSNEXIT
//        DD DISP=SHR,DSN=DSN810.SDSNLOAD
//****
//****
//        DD DSN=TCPIP.SEZATCP,DISP=SHR
//        DD DISP=SHR,DSN=ISP.SISPLOAD
//        DD DISP=SHR,DSN=GDDM.SADMMOD
//SYSLIN  DD DSN=&&COPYLINK,DISP=(OLD,DELETE)
//        DD DSN=&&LOADSET,DISP=(OLD,DELETE)
//        DD DDNAME=SYSIN
//SYSLMOD DD DSN=IBMUSER.CICS.LOAD(&PGM),DISP=SHR
//SYSUT1  DD UNIT=SYSDA,DCB=BLKSIZE=1024,
//         SPACE=(1024,(200,20))
//SYSPRINT DD SYSOUT=A
//***************************************************
//* DB2 BIND PLAN
//***************************************************
//BINDPL  EXEC PGM=IKJEFT01,REGION=8M,
//  COND=((0,NE,DB2),(0,NE,CICS),(0,NE,COB),(0,NE,CPLK),(0,NE,LKED))
//****
//*
//STEPLIB DD DISP=SHR,DSN=DSN910.DB9G.SDSNEXIT
//        DD DISP=SHR,DSN=DSN910.SDSNLOAD
//DBRMLIB DD DISP=SHR,DSN=IBMUSER.DB2.DBRMLIB(&PGM)
//SYSPRINT DD SYSOUT=A
//SYSTSPRT DD SYSOUT=A
//SYSTSPRT DD SYSOUT=A
//SYSTSIN  DD DSN=IBMUSER.DB2.BIND(&PGM),DISP=SHR
//*