COMPILE JCL

//***************************************************************
//* THIS SKELETON IS USED TO COMPILE COBOL SOURCE *
//***************************************************************
//CEOCOCOM JOB (CRIS01M0),
// MSGCLASS=T,
// PRTY=13,
// REGION=4096K,
// NOTIFY=&sysuid
//****************************************************************
//* RESOLVE COPY STATEMENTS FROM THE SYSLIB DD LIBRARIES
//****************************************************************
//*
//RESOLVE EXEC PGM=ADPACOPY,PARM=('C**AYY5,,,,,,')
//STEPLIB DD DSN=TPD1.TELON.LOAD,DISP=SHR
//PRINT DD DUMMY
//*
//******* WRITE HERE THE NAME OF THE PROGRAM TO BE COMPILE ********
//SYSIN DD DSN=MNT7.NGANDHI.COBRA(EOCOCOMP),DISP=SHR
//*****************************************************************
//*
//******* THE NAME OF DATASET CONTAIN THE COPYBOOK USED IN PROGARM*
//SYSLIB DD DSN=MNT7.NGANDHI.COPY,DISP=SHR
//*****************************************************************
// DD DSN=CBO7.EMER.COPY,DISP=SHR
// DD DSN=CBO7.EMER.SQL,DISP=SHR
// DD DSN=CBO1.PROD.EMER.COPY,DISP=SHR
// DD DSN=CBO1.PROD.EMER.SQL,DISP=SHR
// DD DSN=CBO1.PROD.PROD.COPY,DISP=SHR
// DD DSN=CBO1.PROD.PROD.SQL,DISP=SHR
// DD DSN=TPD1.RVB.COPY,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR
// DD DSN=SYS1.MODGEN,DISP=SHR
// DD DSN=ENV1.COPYLIB,DISP=SHR
// DD DSN=SYS1.SCEESAMP,DISP=SHR
//SYSOUT DD DSN=&&PROGRAM(EOCOCOMP),
// DISP=(NEW,PASS),
// MGMTCLAS=WORK,SPACE=(TRK,(15,5,3)),
// RECFM=FB,LRECL=80,BLKSIZE=6160,DSORG=PO
//SYSPRINT DD SYSOUT=*
//*
//******************************************************************
//* DB2 PRE COMPILE COBOL2 PROGRAM
//******************************************************************
//*
//DB2PC EXEC PGM=DSNHPC,
// PARM=('SOURCE','HOST(IBMCOB)','APOST,SOURCE')
//STEPLIB DD DSN=DBS1.#JB.COMP.LOAD,DISP=SHR
//DBRMLIB DD DSN=&&DBRMTEMP(EOCOCOMP),
// DISP=(NEW,PASS),
// SPACE=(TRK,(15,5,3)),MGMTCLAS=WORK,
// RECFM=FB,LRECL=80,BLKSIZE=6160,DSORG=PO
//SYSCIN DD DSN=&&DB2OUT(EOCOCOMP),
// DISP=(NEW,PASS),
// SPACE=(TRK,(15,5,3)),MGMTCLAS=WORK,
// RECFM=FB,LRECL=80,BLKSIZE=6160,DSORG=PO
//SYSIN DD DSN=&&PROGRAM(EOCOCOMP),DISP=SHR
//SYSLIB DD DSN=MNT7.NGANDHI.COPY,DISP=SHR
//* Name of dataset where copy book present
// DD DSN=CBO7.EMER.COPY,DISP=SHR
// DD DSN=CBO7.EMER.SQL,DISP=SHR
// DD DSN=CBO1.PROD.EMER.COPY,DISP=SHR
// DD DSN=CBO1.PROD.EMER.SQL,DISP=SHR
// DD DSN=CBO1.PROD.PROD.COPY,DISP=SHR
// DD DSN=CBO1.PROD.PROD.SQL,DISP=SHR
// DD DSN=TPD1.RVB.COPY,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR
// DD DSN=SYS1.MODGEN,DISP=SHR
// DD DSN=ENV1.COPYLIB,DISP=SHR
// DD DSN=SYS1.SCEESAMP,DISP=SHR
//SYSUT1 DD SPACE=(800,(500,500),,,ROUND),MGMTCLAS=WORK
//SYSUT2 DD SPACE=(800,(500,500),,,ROUND),MGMTCLAS=WORK
//SYSPRINT DD DSN=&&PCPRLIST,
// DISP=(NEW,PASS),MGMTCLAS=WORK,
// SPACE=(TRK,(19,19)),
// RECFM=FB,LRECL=133,BLKSIZE=1330,DSORG=PS
//SYSTERM DD DUMMY
//SYSUDUMP DD DUMMY
//*
//**************************************************************
//* GENER THE DB2 PRECOMPILE OUTPUT
//**************************************************************
//*
//PCPRINTB EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSPRINT DD DUMMY
//SYSUT1 DD DSN=&&PCPRLIST,DISP=SHR
//SYSUT2 DD SYSOUT=*
//*
//**************************************************************
//* COBOL -
//* - OS390/NEW
//* - COMPILE (DEFAULT COMPILE PARAMETER)
//**************************************************************
//*
//CMPILE EXEC PGM=IGYCRCTL,
// PARM='LANG(UE),XREF'
//STEPLIB DD DSN=ENV1.COBMVS.SIGYCOMP,DISP=SHR
//*TEPLIB DD DSN=OSD7.COBOL.V3R4.SIGYCOMP,DISP=SHR
//SYSIN DD DSN=&&DB2OUT(EOCOCOMP),DISP=OLD
//* Name of dataset where copy book present
//SYSLIB DD DSN=MNT7.NGANDHI.COPY,DISP=SHR
// DD DSN=CBO7.EMER.COPY,DISP=SHR
// DD DSN=CBO7.EMER.SQL,DISP=SHR
// DD DSN=CBO1.PROD.EMER.COPY,DISP=SHR
// DD DSN=CBO1.PROD.EMER.SQL,DISP=SHR
// DD DSN=CBO1.PROD.PROD.COPY,DISP=SHR
// DD DSN=CBO1.PROD.PROD.SQL,DISP=SHR
// DD DSN=TPD1.RVB.COPY,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR
// DD DSN=SYS1.MODGEN,DISP=SHR
// DD DSN=ENV1.COPYLIB,DISP=SHR
// DD DSN=SYS1.SCEESAMP,DISP=SHR
//SYSUT1 DD UNIT=WORK,SPACE=(TRK,(50,25))
//SYSUT2 DD UNIT=WORK,SPACE=(TRK,(50,25))
//SYSUT3 DD UNIT=WORK,SPACE=(TRK,(50,25))
//SYSUT4 DD UNIT=WORK,SPACE=(TRK,(50,25))
//SYSUT5 DD UNIT=WORK,SPACE=(TRK,(50,25))
//SYSUT6 DD UNIT=WORK,SPACE=(TRK,(50,25))
//SYSUT7 DD UNIT=WORK,SPACE=(TRK,(50,25))
//SYSUT8 DD UNIT=WORK,SPACE=(TRK,(50,25))
//* Name of OBJLIB created by the compiler output.
//SYSLIN DD DSN=NGANDHI.OBJLIB(EOCOCOMP),DISP=SHR
//*YSPRINT DD SYSOUT=*
//* Name of dataest which contains the listing of program
//SYSPRINT DD DSN=CBO7.PROD.LISTING(EOCOCOMP),DISP=SHR
//***********************************************************
//* GENER COMPILE OUTPUT
//***********************************************************
//*
//COMPLIST EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSPRINT DD DUMMY
//SYSUT1 DD DSN=CBO7.PROD.LISTING(EOCOCOMP),DISP=SHR
//* Name of dataest which contains the listing of program
//SYSUT2 DD SYSOUT=*
//*
//*SKELETON******************* NDVSCOPY **********************
//* COPY THE NEW DBRM USING IEBCOPY
//************************************************************
//*
//DBRMCOPY EXEC PGM=IEBCOPY
//IN DD DSN=&&DBRMTEMP,DISP=(OLD,PASS)
//OUT DD DSN=MNT7.NGANDHI.DBRMLIB,DISP=SHR
//* Name of DBRM dataset , Only if you are acessing db2 table
//SYSIN DD *
COPY INDD=IN,OUTDD=OUT
SELECT MEMBER=((EOCOCOMP,,R))
/*
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD UNIT=WORK,SPACE=(CYL,(5,10))
//SYSUT2 DD UNIT=WORK,SPACE=(CYL,(5,10))
//SYSUT3 DD UNIT=WORK,SPACE=(CYL,(5,10))
//SYSUT4 DD UNIT=WORK,SPACE=(CYL,(5,10))
//*SKELETON******************* NDVSCHLB *************************
//* CHECK TO SEE IF THE DBRM EXIST, IS EMPTY, OR CONTAINS A DATA
//***************************************************************
//CHPDSMEM EXEC PGM=IKJEFT01
//SYSEXEC DD DSN=TSB1.ENDEVOR.CLIST,DISP=SHR
//*
//SYSTSPRT DD SYSOUT=*
//*
//SYSTSIN DD *
%CHPDSMEM MNT7.NGANDHI.DBRMLIB(EOCOCOMP)
/*
//SYSOUT DD SYSOUT=*
//SYSIN DD DUMMY
//*
//**************************************************************
//* DELETE THE DBRM IF IT IS EMPTY
//**************************************************************
//DELTDBRM EXEC PGM=IDCAMS,COND=(14,NE,CHPDSMEM)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE MNT7.NGANDHI.DBRMLIB(EOCOCOMP)
/*

Widget By Devils Workshop

About This Blog