COBOL program compile JCL:

//IND220CL JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),
// NOTIFY=&SYSUID,REGION=6M
//************************************************************
//* CHANGE THE MEM NAME TO YOUR PRORAM NAME
//* CHANGE THE SYSIN LIBRARY AS YOUR PROGRAM LIBRARY
//* CHANGE THE SYSLIB LIBRARY AS YOUR COPY LIBRARY
//* CHANGE THE SYSLMOD LIBRARY AS YOUR LOAD MODULE LIBRARY
//************************************************************
//JOBPROC JCLLIB ORDER=IND120.INDUS.PROCLIB
//COBCL EXEC COBCL,MEM=KSDSDYR
//COMPILE.SYSIN DD DSN=IND220.INDUS.COBOL(&MEM),DISP=SHR
//COMPILE.SYSLIB DD DSN=IND220.INDUS.COPYLIB,DISP=SHR
//LKED.SYSLMOD DD DSN=IND220.INDUS.LOADLIB(&MEM),DISP=SHR
//

Compile procedure:

The compilation process of COBOL + DB2 program is different from normal COBOL. In it, then pre-compiler step needs to be added to the compilation JCL.

//COBCL PROC LNGPRFX='IGY',SYSLBLK=0000,LIBPRFX='CEE'
//*
//COMPILE EXEC PGM=IGYCRCTL,REGION=2048K,
// PARM='RES,LIB,OBJECT,APOST,TEST,DYNAM,LIST'
//STEPLIB DD DSNAME=&LNGPRFX.SIGYCOMP,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DSNAME=&&LOADSET,UNIT=SYSALLDA,
// DISP=(MOD,PASS),SPACE=(TRK,(3,3)),
// DCB=(BLKSIZE=&SYSLBLK)
//SYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT2 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT3 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT4 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT5 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT6 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT7 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//*
//LKED EXEC PGM=HEWL,COND=(8,LT,COMPILE),REGION=1024K,PARM='XREF'
//SYSLIB DD DSNAME=&LIBPRFX.SCEELKED,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DSNAME=&&LOADSET,DISP=(OLD,DELETE)
// DD DDNAME=SYSIN
//SYSUT1 DD UNIT=SYSALLDA,SPACE=(TRK,(10,10))

COBOL + CICS program compile JCL:

//IND220SO JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),
// NOTIFY=&SYSUID
//***************************************************
//JOBPROC JCLLIB ORDER=IND220.INDUS.PROCLIB
//CICSCOB EXEC CICSCOB,
// COPYLIB=IND220.INDUS.COPYLIB,
// LOADLIB=IND220.INDUS.LOADLIB
//TRN.SYSIN DD DSN=IND220.INDUS.CICS(CUSTINQ3),DISP=SHR
//LKED.SYSLIB DD
// DD
// DD DSN=IND220.INDUS.LOADLIB,DISP=SHR
//LKED.SYSIN DD *
NAME CUSTINQ3(R)
//
compile procedure
//CICSCOB PROC OUTC=*, CLASS FOR PRINT OUTPUT
// COPYLIB='JCLERROR', PRIVATE COPY LIBRARY
// LOADLIB='JCLERROR' OUTPUT LOAD LIBRARY
//*
//*
//* THIS PROCEDURE CONTAINS 4 STEPS
//* 1. EXEC THE COBOL TRANSLATOR
//* (USING THE SUPPLIED SUFFIX 1$)
//* 2. EXEC THE COBOL COMPILER
//* 3. REBLOCK SDFHC370(DFHEILID) FOR USE BY THE LINKEDIT STEP
//* 4. LINKEDIT THE OUTPUT INTO DATASET &LOADLIB
//*
//* THE FOLLOWING JCL SHOULD BE USED
//* TO EXECUTE THIS PROCEDURE
//*
//* //APPLPROG EXEC DFHYITVL
//* //TRN.SYSIN DD *
//* .
//* . APPLICATION PROGRAM
//* .
//* /*
//* //LKED.SYSIN DD *
//* NAME ANYNAME(R)
//* /*
//*
//* WHERE ANYNAME IS THE NAME OF YOUR APPLICATION PROGRAM.
//* (REFER TO THE SYSTEM DEFINITION GUIDE FOR FULL DETAILS,
//* INCLUDING WHAT TO DO IF YOUR PROGRAM CONTAINS CALLS TO
//* THE COMMON PROGRAMMING INTERFACE.)
//*
//TRN EXEC PGM=DFHECP1$,
// PARM='COBOL3',
// REGION=4M
//STEPLIB DD DSN=CICSTS23.CICS.SDFHLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=&OUTC
//SYSPUNCH DD DSN=&&SYSCIN,
// DISP=(,PASS),UNIT=SYSDA,
// DCB=BLKSIZE=400,
// SPACE=(400,(400,100))
//*
//COB EXEC PGM=IGYCRCTL,REGION=4M,
// PARM='NODYNAM,LIB,OBJECT,RES,APOST,MAP,XREF,NOSEQUENCE'
//STEPLIB DD DSN=IGY.SIGYCOMP,DISP=SHR
//SYSLIB DD DSN=&COPYLIB,DISP=SHR
// DD DSN=CICSTS23.CICS.SDFHCOB,DISP=SHR
// DD DSN=CICSTS23.CICS.SDFHMAC,DISP=SHR
// DD DSN=CICSTS23.CICS.SDFHSAMP,DISP=SHR
//SYSPRINT DD SYSOUT=&OUTC
//SYSIN DD DSN=&&SYSCIN,DISP=(OLD,DELETE)
//SYSLIN DD DSN=&&LOADSET,DISP=(MOD,PASS),
// UNIT=SYSDA,SPACE=(80,(250,100))
//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 EXEC PGM=IEBGENER,COND=(7,LT,COB)
//SYSUT1 DD DSN=CICSTS23.CICS.SDFHSAMP(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=&OUTC
//SYSIN DD DUMMY
//*
//LKED EXEC PGM=IEWL,REGION=4M,
// PARM='LIST,XREF',COND=(5,LT,COB)
//SYSLIB DD DSN=CICSTS23.CICS.SDFHLOAD,DISP=SHR
// DD DSN=CEE.SCEELKED,DISP=SHR
//SYSLMOD DD DSN=&LOADLIB,DISP=SHR
//SYSUT1 DD UNIT=SYSDA,DCB=BLKSIZE=1024,
// SPACE=(1024,(200,20))
//SYSPRINT DD SYSOUT=&OUTC
//SYSLIN DD DSN=&&COPYLINK,DISP=(OLD,DELETE)
// DD DSN=&&LOADSET,DISP=(OLD,DELETE)
// DD DDNAME=SYSIN

Map compile JCL:

//IND220SO JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),
// NOTIFY=&SYSUID
//***************************************************
//JOBPROC JCLLIB ORDER=IND120.INDUS.PROCLIB
//CICSMAP EXEC CICSMAP,
// OUTC=*,
// COPYLIB=IND220.INDUS.COPYLIB, *CICS MAP COPYLIB
// LOADLIB=IND220.INDUS.LOADLIB,
// MAPNAME=MENSET1 *NAME OF MAPSET
//COPY.SYSUT1 DD DSN=IND220.INDUS.MAPLIB(ANIL1),DISP=SHR
//
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
//DFHMAPS PROC INDEX='CICSTS23.CICS', FOR SDFHMAC
// LOADLIB='JCLERROR', TARGET LOADLIB FOR MAP
// COPYLIB='JCLERROR', TARGET COPYLIB FOR DSECT
// MAPNAME='MAPCICS', NAME OF MAPSET - REQUIRED
// A=, A=A FOR ALIGNED MAP
// RMODE=24, 24/ANY
// ASMBLR=ASMA90, ASSEMBLER PROGRAM NAME
// REG=2048K, REGION FOR ASSEMBLY
// OUTC='*', PRINT SYSOUT CLASS
// WORK=SYSDA WORK FILE UNIT
//COPY EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=&OUTC
//SYSUT2 DD DSN=&&TEMPM,UNIT=&WORK,DISP=(,PASS),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=400),
// SPACE=(400,(50,50))

//SYSIN DD DUMMY
//*SYSUT1 DD * NEEDED FOR THE MAP SOURCE
//ASMMAP EXEC PGM=&ASMBLR,REGION=&REG,
//* NOLOAD CHANGED TO NOOBJECT
// PARM='SYSPARM(&A.MAP),DECK,NOOBJECT'
//SYSPRINT DD SYSOUT=&OUTC
//SYSLIB DD DSN=&INDEX.SDFHMAC,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR
//SYSUT1 DD UNIT=&WORK,SPACE=(CYL,(5,5))
//SYSUT2 DD UNIT=&WORK,SPACE=(CYL,(5,5))
//SYSUT3 DD UNIT=&WORK,SPACE=(CYL,(5,5))
//SYSPUNCH DD DSN=&&MAP,DISP=(,PASS),UNIT=&WORK,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=400),
// SPACE=(400,(50,50))
//SYSIN DD DSN=&&TEMPM,DISP=(OLD,PASS)
//LINKMAP EXEC PGM=IEWL,PARM='LIST,LET,XREF,RMODE(&RMODE)'
//SYSPRINT DD SYSOUT=&OUTC
//SYSLMOD DD DSN=&LOADLIB(&MAPNAME),DISP=SHR
//SYSUT1 DD UNIT=&WORK,SPACE=(1024,(20,20))
//SYSLIN DD DSN=&&MAP,DISP=(OLD,DELETE)
//* NOLOAD CHANGED TO NOOBJECT
//ASMDSECT EXEC PGM=&ASMBLR,REGION=&REG,
// PARM='SYSPARM(&A.DSECT),DECK,NOOBJECT'
//SYSPRINT DD SYSOUT=&OUTC
//SYSLIB DD DSN=&INDEX.SDFHMAC,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR
//SYSUT1 DD UNIT=&WORK,SPACE=(CYL,(5,5))
//SYSUT2 DD UNIT=&WORK,SPACE=(CYL,(5,5))
//SYSUT3 DD UNIT=&WORK,SPACE=(CYL,(5,5))
//SYSPUNCH DD DSN=&COPYLIB(&MAPNAME),DISP=OLD
//SYSIN DD DSN=&&TEMPM,DISP=(OLD,DELETE)

COBOL + DB2 + CICS compile JCL:

//IND220SO JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),
// NOTIFY=&SYSUID
//***************************************************
//JOBPROC JCLLIB ORDER=IND120.INDUS.PROCLIB
//DB2CICS EXEC DB2CICS,
// DBRMLIB='IND220.INDUS.DBRMLIB',
// DB2COPY='IND220.INDUS.COPYLIB',
// COPYLIB='IND220.INDUS.COPYLIB',
// LOADLIB='IND220.INDUS.LOADLIB',
// MEM=CICDB202 * SHOULD BE SAME AS PROGRAM NAME
//SYSIN DD DSN=IND220.INDUS.DB2(CICDB202),DISP=SHR
//LKED.SYSIN DD *
INCLUDE SYSLIB(DSNCLI)
NAME CICDB202(R)
//

compile procedure

//DB2CICS PROC OUTC=*, CLASS FOR PRINT OUTPUT
// DB2COPY='JCLERROR', NAME OF DB2 DCLGEN COPY LIBRARY
// DBRMLIB='JCLERROR', NAME OF DB2 DBRM LIBRARY
// COPYLIB='JCLERROR', NAME OF PUBPLC COPY LIBRARY
// LOADLIB='JCLERROR', NAME OF OUTPUT LOAD LIBRARY
// MEM=TEMPNAME
//*
//* THIS PROCEDURE CONTAINS 5 STEPS
//* 1. EXEC THE DB2 COBOL PRECOMPILER
//* 2. EXEC THE CICS COBOL TRANSLATOR
//* 3. EXEC THE IBM COBOL FOR OS/390 COMPILER
//* 5. REBLOCK STUB FOR USE BY THE LINKEDIT STEP
//* 6. LINKEDIT THE OUTPUT INTO DATASET &LOADLIB
//*
//* THE FOLLOWING JCL SHOULD BE USED
//* TO EXECUTE THIS PROCEDURE
//*
//* //APPLPROG EXEC DB2CICS
//* //DB2PC.SYSIN DD *
//* .
//* . APPLICATION PROGRAM
//* .
//* /*
//* //LKED.SYSIN DD *
//* NAME ANYNAME(R)
//* /*
//*
//* WHERE ANYNAME IS THE NAME OF YOUR APPLICATION PROGRAM.
//* (REFER TO THE SYSTEM DEFINITION GUIDE FOR FULL DETAILS,
//* INCLUDING WHAT TO DO IF YOUR PROGRAM CONTAINS CALLS TO
//* THE COMMON PROGRAMMING INTERFACE.)
//*

//DB2COB EXEC PGM=DSNHPC,PARM='HOST(IBMCOB),NOSOURCE,APOST,APOSTSQL',
// REGION=2M
//*********************************************************************
//* PRECOMPILE THE COBOL PROGRAM FOR DB2
//*********************************************************************
//STEPLIB DD DISP=SHR,DSN=DSN710.SDSNEXIT
// DD DISP=SHR,DSN=DSN710.SDSNLOAD
//SYSLIB DD DSN=&DB2COPY,DISP=SHR
//SYSCIN DD DSN=&&DSNHOUT,DISP=(MOD,PASS),
// UNIT=SYSDA,SPACE=(800,(400,400),ROUND)
//DBRMLIB DD DSN=&DBRMLIB(&MEM),DISP=SHR
//SYSPRINT DD SYSOUT=&OUTC
//SYSTERM DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSUT1 DD SPACE=(800,(400,400),ROUND),UNIT=SYSDA
//SYSUT2 DD SPACE=(800,(400,400),ROUND),UNIT=SYSDA
//*
//TRN EXEC PGM=DFHECP1$,
// COND=(4,LT,DB2COB),
// PARM='COBOL3',
// REGION=2M
//STEPLIB DD DSN=CICSTS23.CICS.SDFHLOAD,DISP=SHR
//SYSIN DD DSN=&&DSNHOUT,DISP=(OLD,DELETE)
//SYSPRINT DD SYSOUT=&OUTC
//SYSPUNCH DD DSN=&&SYSCIN,
// DISP=(,PASS),UNIT=SYSDA,
// DCB=BLKSIZE=400,
// SPACE=(400,(400,100))
//*
//COB EXEC PGM=IGYCRCTL,REGION=2M,
// PARM='NODYNAM,LIB,OBJECT,RENT,APOST,MAP,XREF'
//STEPLIB DD DSN=IGY.SIGYCOMP,DISP=SHR
//SYSLIB DD DSN=&COPYLIB,DISP=SHR
// DD DSN=CICSTS23.CICS.SDFHCOB,DISP=SHR
//SYSPRINT DD SYSOUT=&OUTC
//SYSIN DD DSN=&&SYSCIN,DISP=(OLD,DELETE)
//SYSLIN DD DSN=&&LOADSET,DISP=(MOD,PASS),
// UNIT=SYSDA,SPACE=(80,(250,100))
//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 EXEC PGM=IEBGENER,COND=(7,LT,COB)
//SYSUT1 DD DSN=CICSTS23.CICS.SDFHSAMP(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=&OUTC
//SYSIN DD DUMMY
//*
//*
//LKED EXEC PGM=IEWL,REGION=2M,
// PARM='LIST,XREF',COND=(5,LT,COB)
//SYSLIB DD DSN=CICSTS23.CICS.SDFHLOAD,DISP=SHR
// DD DSN=CEE.SCEELKED,DISP=SHR
// DD DSN=&LOADLIB,DISP=SHR
// DD DSN=DSN710.SDSNEXIT,DISP=SHR
// DD DSN=DSN710.SDSNLOAD,DISP=SHR
//SYSLMOD DD DSN=&LOADLIB,DISP=SHR
//SYSUT1 DD UNIT=SYSDA,DCB=BLKSIZE=1024,
// SPACE=(1024,(200,20))
//SYSPRINT DD SYSOUT=&OUTC
//SYSLIN DD DSN=&&COPYLINK,DISP=(OLD,DELETE)
// DD DSN=&&LOADSET,DISP=(OLD,DELETE)
// DD DDNAME=SYSIN

Bind JCL:

//IND220SO JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),
// NOTIFY=&SYSUID
//***************************************************
//JOBLIB DD DISP=SHR,DSN=DSN710.SDSNEXIT
// DD DISP=SHR,DSN=DSN710.SDSNLOAD
// DD DISP=SHR,DSN=CEE.SCEERUN
//BINDPLAN EXEC PGM=IKJEFT01,DYNAMNBR=20
//DBRMLIB DD DSN=IND220.INDUS.DBRMLIB,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTSIN DD * PLAN,DBRM AND PROGRAM NAMES SHOULD BE SAME
DSN SYSTEM(DSN)
BIND PLAN(CICDB202) MEMBER(CICDB202) ACT(REP) ISOLATION(CS) -
QUALIFIER(IND220) OWNER(IND220)
END
//
//

COBOL + DB2 compile JCL:

//IND220SO JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),
// NOTIFY=&SYSUID
//**********************************************************
//JOBPROC JCLLIB ORDER=IND120.INDUS.PROCLIB
//DB2ICOB EXEC PRECLINK,
// COPYLIB='IND220.SREE.DCLGEN',
// DBRMLIB='IND220.SREE.DBRMLIB',
// LOADLIB='IND220.SREE.LOADLIB',
// MEM=INSPGM,
// LMOD=INSPGM
//SYSIN DD DSN=IND220.SREE.DB2(INSPGM),DISP=SHR
//LKED.SYSIN DD *
INCLUDE SYSLIB(DSNELI)
/*
//

compile procedure:

//DB2COB PROC MEM=TEMPNAME,
// COPYLIB=JCLERROR,
// DBRMLIB=JCLERROR,
// LOADLIB=JCLERROR,
// LMOD=JCLERROR,
// WSPC=500,LNGPRFX='IGY',
// LIBPRFX='CEE' *QUALIFIER FOR LE/390
//********************************************************************
//* PRECOMPILE THE IBM COBOL PROGRAM *
//********************************************************************
//PC EXEC PGM=DSNHPC,
// PARM='HOST(COBOL),SOURCE'
//DBRMLIB DD DSN=&DBRMLIB(&MEM),DISP=SHR
//STEPLIB DD DISP=SHR,DSN=DSN710.SDSNEXIT
// DD DISP=SHR,DSN=DSN710.SDSNLOAD
//SYSLIB DD DSN=&COPYLIB,DISP=SHR
//SYSCIN DD DSN=&&DSNHOUT,DISP=(MOD,PASS),UNIT=SYSDA,
// SPACE=(800,(&WSPC,&WSPC))
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSUT1 DD SPACE=(800,(&WSPC,&WSPC),ROUND)
//SYSUT2 DD SPACE=(800,(&WSPC,&WSPC),ROUND)
//********************************************************************
//* COMPILE THE IBM COBOL PROGRAM IF THE PRECOMPILE *
//* RETURN CODE IS 4 OR LESS. *
//********************************************************************
//COB EXEC PGM=IGYCRCTL,
// PARM='APOST',
// COND=(4,LT,PC)
//STEPLIB DD DSN=&LNGPRFX.SIGYCOMP,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSLIB DD DSN=&COPYLIB,DISP=SHR
//SYSLIN DD DSN=&&LOADSET,DISP=(MOD,PASS),
// SPACE=(800,(&WSPC,&WSPC))
//SYSIN DD DSN=&&DSNHOUT,DISP=(OLD,DELETE)
//SYSUT1 DD SPACE=(800,(&WSPC,&WSPC),ROUND)
//SYSUT2 DD SPACE=(800,(&WSPC,&WSPC),ROUND)
//SYSUT3 DD SPACE=(800,(&WSPC,&WSPC),ROUND)
//SYSUT4 DD SPACE=(800,(&WSPC,&WSPC),ROUND)
//SYSUT5 DD SPACE=(800,(&WSPC,&WSPC),ROUND)
//SYSUT6 DD SPACE=(800,(&WSPC,&WSPC),ROUND)
//SYSUT7 DD SPACE=(800,(&WSPC,&WSPC),ROUND)
//********************************************************************
//* LINKEDIT IF THE PRECOMPILE AND COMPILE *
//* RETURN CODES ARE 4 OR LESS. *
//********************************************************************
//LKED EXEC PGM=IEWL,
// COND=((4,LT,PC),(4,LT,COB))
//SYSLIB DD DSN=&LIBPRFX.SCEELKED,DISP=SHR
// DD DISP=SHR,DSN=DSN710.SDSNLOAD
//SYSLIN DD DSN=&&LOADSET,DISP=(OLD,DELETE)
// DD DDNAME=SYSIN
//SYSLMOD DD DSN=&LOADLIB(&LMOD),DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD SPACE=(1024,(50,50))

Bind jcl:

//IND220SO JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),
// NOTIFY=&SYSUID
//******************************************************
//JOBLIB DD DISP=SHR,DSN=DSN710.SDSNEXIT
// DD DISP=SHR,DSN=DSN710.SDSNLOAD
// DD DISP=SHR,DSN=CEE.SCEERUN
//BINDPLAN EXEC PGM=IKJEFT01,DYNAMNBR=20
//DBRMLIB DD DSN=IND220.SREE.DBRMLIB,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//******************************************************
//*STATEMENTS FOR PROGRAM DB2VSAM IN OZASUP.SUP.SOURCE
//SYSTSIN DD *
DSN SYSTEM(DSN)
BIND PLAN(INSPGM) MEMBER(INSPGM) ACT(REP)-
ISOLATION(CS)
END
/*
//

COBOL + DB2 execution JCL:

//IND220SO JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),
// NOTIFY=&SYSUID
//******************************************************
//JOBLIB DD DISP=SHR,DSN=DSN710.SDSNEXIT
// DD DISP=SHR,DSN=DSN710.SDSNLOAD
// DD DISP=SHR,DSN=CEE.SCEERUN
//BINDPLAN EXEC PGM=IKJEFT01,DYNAMNBR=20
//DBRMLIB DD DSN=IND220.SREE.DBRMLIB,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//******************************************************
//*STATEMENTS FOR PROGRAM DB2VSAM IN OZASUP.SUP.SOURCE
//SYSTSIN DD *
DSN SYSTEM(DSN)
RUN PROGRAM(INSPGM) –
PLAN(INSPGM) –
LIB(‘IND220.INDUS.LOADLIB’)
END
/*
//

PROCEDURES:

Instream procedures:

//IND220SO JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),
// NOTIFY=&SYSUID
//***************************************************
//INPROC PROC
//STEP1 EXEC PGM=DISPGM
//STEPLIB DD DSN=IND220.INDUS.LOADLIB,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
// PEND
//STEP2 EXEC PROC=INPROC
//STEP3 EXEC INPROC
//

Cataloged procedures:
Cataloged proc is the member in a proc library.

EXPER NETBOOK CAMERA DRIVER DOWNLOAD - Exper E Camera Driver Cxmera 7. Exper b vga driver exper b driver for Audio driver for Windows 7. For safe and sound trading of all users, please take care not to send a payment or deposit prior to item delivery. You have a favorite search saved with the same name. Battery not holding a charge? Good morning holy. I'm not sure if you can use NavyLCDR's same camera driver, so if you can get the original driver that was seen on Windows 10 (also present on Windows 8 before upgrade) then use that. I can't seem to find an updated driver for Windows 10 and could be sometime until they release one, since it is still shipped with Windows 8.1.

IND220.INDUS.PROCLIB(CATPROC)

//CATPROC PROC
//STEP1 EXEC PGM=DISPGM
//STEPLIB DD DSN=IND220.INDUS.LOADLIB,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*

Invoking JCL:

//IND220SO JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),
// NOTIFY=&SYSUID
//***************************************************
//PROCLIB JCLLIB ORDER=(IND220.INDUS.PROCLIB)
//STEP2 EXEC PROC=CATPROC
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//

Parameters overriding and symbolic parameters:

//IND220VI JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),
// NOTIFY=&SYSUID
//PROC1 PROC
//STEP1 EXEC PGM=SEQWRI
//STEPLIB DD DSN=IND220.INDUS.LOADLIB,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//STUDD DD DSN=IND220.INDUS.STUDENT.PSFILE.TST,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(&UNI,(&PRI,&SEC),RLSE),
// UNIT=SYSDA,
// DCB=(DSORG=PS,RECFM=FB,LRECL=44,BLKSIZE=440)
//SYSIN DD DSN=IND220.INDUS.CTLCARDS(CTL90),DISP=SHR
// PEND
//STEP2 EXEC PROC1,UNI=TRK,PRI=1,SEC=1
//STEP1.STUDD DD DSN=IND220.INDUS.STUDENT.PSFILE.TST5
//

Parameters overriding, symbolic parameters and the SET statement:

//IND220VI JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),
// NOTIFY=&SYSUID
// SET UNI=TRK,
// PRI=1,
// SEC=1
//PROCLIB JCLLIB ORDER=(IND220.INDUS.PROCLIB)
//STEP2 EXEC CATOVER
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//STEP1.STUDD DD DSN=IND220.INDUS.STUDENT.PSFILE.TST6
//

cataloged procedure: