Sample JCL to EXECUTE the Preprocessor

Edit online

The following sample JCL executes the preprocessor against the input source. The output produced by the preprocessor is in assembler CSECT form and is input to the assembler. The assembled object is then link-edited to produce a load module.

The following JCL is contained in the member DGAJDBCS in the $CD.SDGAJCL library.

//JOBNAME  JOB (ACCTN),’ADMINISTRATOR’,CLASS=A,
//    REGION=4098K,MSGLEVEL=(1,1),MSGCLASS=X
//****************************************************************
//*
//* JCL TO CREATE DBCS TRANSLATE TABLE
//*
//* REPLACE THE FOLLOWING ENTRIES IN THE PROCEDURE STATEMENT
//* BELOW WITH SITE DEPENDENT INFORMATION
//*
//* TABLE=    NAME OF THE SOURCE TRANSLATE TABLE
//*
//****************************************************************
//BLDDBCS  PROC TABLE=XXXXXXXX,CDPREF='$CD',TEST=NOTEST,RENT=RENT
//****************************************************************
//* STEP1 CREATE ASSEMBLER OUTPUT FROM PRE-PROCESSOR INPUT
//****************************************************************
//STEP1    EXEC PGM=DMDBCSPR
//STEPLIB  DD  DSN=&CDPREF..SDGALINK,DISP=SHR
//SYSPRINT DD  SYSOUT=*
//SYSTERM  DD  SYSOUT=*
//SYSOUT   DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//CDTABIN  DD  DSN=&CDPREF..SDGASAMP(&TABLE),DISP=SHR
//CDTABOUT DD  DSN=&&SRC,DISP=(,PASS),SPACE=(CYL,(1,1)),
//             DCB=(BLKSIZE=1600,LRECL=80,RECFM=FB,DSORG=PS),
//             UNIT=SYSDA
//****************************************************************
//* STEP2 ASSEMBLE OUTPUT CREATE BY PRE-PROCESSOR
//****************************************************************
//STEP2    EXEC PGM=ASMA90,
//             PARM='OBJECT,NODECK,XREF(SHORT),&RENT,&TEST,USING(WARN(0X
//             ),NOMAP),FLAG(NOCONT)'
//SYSLIB   DD  DSN=&CDPREF..SDGASAMP,DISP=SHR
//         DD  DSN=SYS1.MACLIB,DISP=SHR
//         DD  DSN=SYS1.MODGEN,DISP=SHR
//SYSTERM  DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(10,5))
//SYSUT2   DD  UNIT=SYSDA,SPACE=(CYL,(10,5))
//SYSUT3   DD  UNIT=SYSDA,SPACE=(CYL,(10,5))
//SYSLIN   DD   DSN=&&OBJ,UNIT=SYSDA,DISP=(,PASS),SPACE=(TRK,(5,5)),
//             DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=3120)
//SYSIN    DD  DSN=&&SRC,DISP=(OLD,DELETE)
//****************************************************************
//*

Information on IBM® Connect:Direct® Processes, including how to use the table created from the previous JCL sample using the COPY statement, is available at the Connect:Direct Process Language help.