//DEV10MAC JOB LIUDVZZM,'COMPILE',
//     CLASS=E,TIME=(1,30),MSGCLASS=6
/*JOBPARM B=Y,ROOM=4
//*-------------------------------------------------------------------*
//*   COMPILE SINGLE-MODULE COBOL 2 DB2 MODULE EC645A
//*-------------------------------------------------------------------*
//DB2COB2  EXEC DB2COB2,MOD=EC645A,MEMB=EC645A,NCAL=,
//            SLIB='DEV@@EC.TEST.SORCLBN',
//            LLIB='DEV@@EC.TEST.LOADLIB',
//    LIBD='DEV@@EC.DB2.DBRMLIB',SYSLIB='SYS1.TESTCOB',
//            COPT='FDUMP,OPT,XREF(SHORT)',LOPT='MAP,NOXREF'
//PC.SYSPRINT DD DSN=&&PCLIST,DISP=(,PASS),
//            UNIT=SYSDU,SPACE=(TRK,(10,10),RLSE)
//PC.SYSIN DD DSN=DEV@@EC.TEST.SORCLBN(EC645A),
//            SUBSYS=LAM
//STEPA.SYSPRINT DD DSN=&&MODLIST,DISP=(,PASS),
//            UNIT=SYSDU,SPACE=(TRK,(10,10),RLSE)
//STEPB.SYSPRINT DD DSN=&&LNKLIST,DISP=(,PASS),
//            UNIT=SYSDU,SPACE=(TRK,(10,10),RLSE)
//STEPB.SYSLIB DD
//         DD
//         DD
//         DD
//         DD DSN=SYS1.RUNTIME,DISP=SHR
//         DD DSN=DEV@@EC.TEST.LOADLIB,
//            DISP=SHR
//STEPB.TESTLIB DD DSN=DEV@@EC.TEST.LOADLIB,
//            DISP=SHR
//STEPB.PROGLIB DD DSN=BR.EC.DB2.LOADLIB,
//            DISP=SHR
//STEPB.SYSIN DD *
 ENTRY EC645
 NAME EC645A(R)
/*
//*
//COMPERR  EXEC PGM=ICEGENER,COND=(0,LE,DB2COB2.STEPA)
//SYSPRINT DD DUMMY
//SYSIN    DD DUMMY
//SYSUT1   DD DSN=DEV@@OR.ELCOMP.NOLIST,DISP=SHR
//SYSUT2   DD DSN=&&MODLIST,DISP=(,PASS),
//            UNIT=SYSDU,SPACE=(TRK,(1,1),RLSE),
//            DCB=(RECFM=FBA,LRECL=133,BLKSIZE=23408)
//*
//LINKERR  EXEC PGM=ICEGENER,COND=(0,LE,DB2COB2.STEPB)
//SYSPRINT DD DUMMY
//SYSIN    DD DUMMY
//SYSUT1   DD DSN=DEV@@OR.ELCOMP.NOLIST,DISP=SHR
//SYSUT2   DD DSN=&&LNKLIST,DISP=(,PASS),
//            UNIT=SYSDU,SPACE=(TRK,(1,1),RLSE),
//            DCB=(RECFM=FBA,LRECL=133,BLKSIZE=23408)
//*
//DB2BIND  EXEC DB2BIND,PLAN=EC645A,
//            LIBPFX='DEV@@EC',VALID=RUN,RETAIN=RETAIN,
//            RSTRT=NO,ACTION=REPLACE
//COPY.DBRMIN DD *
  EC645A, +
  FXGCONVC, +
/*
//COPY.SYSUT2 DD DSN=&&MEMBLIST,DISP=(,PASS)
//DB004RUN.DB004IN DD
//         DD
//         DD
//         DD DSN=&&MEMBLIST,DISP=(OLD,DELETE)
//         DD
//         DD
//DB004RUN.DB004OUT DD DSN=&&CMDLIST,DISP=(,PASS)
//BIND.SYSTSPRT DD DSN=&&BINDLIST,DISP=(,PASS),
//            UNIT=SYSDW,SPACE=(TRK,(10,10),RLSE)
//BIND.SYSTSIN DD DSN=&&CMDLIST,DISP=(OLD,DELETE)
//BIND.DBRMLIB DD DSN=DEV@@EC.DB2.DBRMLIB,DISP=OLD
//             DD DSN=DEV@@FX.DB2.DBRMLIB,DISP=SHR
//*
//LIBRAN   EXEC PGM=AFOLIBR,PARM='LINES=60'
//MASTER   DD DSN=DEV@@EC.COMPILE.SORCLBN,
//            DISP=SHR
//SYSPRINT DD SYSOUT=*,DCB=(RECFM=FBA,BLKSIZE=3458)
//LIST     DD SYSOUT=*,DCB=(RECFM=FBA,BLKSIZE=3458)
//OSJOB    DD DUMMY,DCB=BLKSIZE=80
//PC       DD DSN=&&PCLIST,DISP=(OLD,DELETE)
//PROGRAM  DD DSN=&&MODLIST,DISP=(OLD,DELETE)
//LINKEDIT DD DSN=&&LNKLIST,DISP=(OLD,DELETE)
//BIND     DD DSN=&&BINDLIST,DISP=(OLD,DELETE)
//SYSIN    DD *
-DLM EC645A,PRMOD
-ADD EC645A,PRMOD
-PGMR DEV10MA
-DESC COMPILE/LINK/BIND (COBOL2/DB2)
-AUX PC
-AUX PROGRAM
-AUX LINKEDIT
-AUX BIND
-END
//*
//SPUFI    EXEC RZSPUFI,DB2SSID=DB2D
//SYSIN    DD *
  GRANT BIND, EXECUTE ON PLAN EC645A TO PUBLIC;
//*
//CHEKPLAN EXEC RZSPUFI,DB2SSID='DB2D'
//SYSIN    DD *
SELECT * FROM SYSIBM.SYSPLANDEP
WHERE DNAME =    'EC645A'
  AND BTYPE IN ('T', 'V');