gtpa2m4cApplication Programming

Sample JCL for Generating ISO-C Offline Tools

The following sample JCL shows running the library generator, the stub generator, and the linkage editor in a single job stream. These jobs were generated by SIP and can be identified by their job names (SIPLxx).

//******************************************************
//*
//*  Library Interface Tool
//*  - Build the CTALXV library
//*
//******************************************************
//SIPL51 JOB  (82F91,7323E),'SIP ACP  ',
//   MSGLEVEL=1,CLASS=F,
//   MSGCLASS=A,TIME=100
/*ROUTE PRINT TPFVM1(EDDYE)
/*ROUTE PUNCH TPFVM1(EDDYE)
//L511B EXEC PGM=LIBI40,REGION=4M
//STEPLIB  DD DSN=ACP.LINK.RELxx.BSS,DISP=SHR
//         DD DSN=LE.V1R3M0.SEDCLINK,DISP=SHR
//         DD DSN=SYS1.PLI.SIBMLINK,DISP=SHR
//SYSXV    DD DSN=ACP.OBJ.RELxx.BSS(CTALXV40),DISP=OLD
//SYSCLS   DD DSN=ACP.CLIB.RELxx.BSS,DISP=OLD
//SYSIN    DD  DSN=ACP.CSRCE.RT.RELxx(CTALXV40),DISP=SHR
//SYSPRINT DD SYSOUT=A
//
//******************************************************
//*
//*  DLM STUB GENERATOR JCL
//*    - build a stub for CYYM
//*
//******************************************************
//SIPL52 JOB  (82F91,7323E),'SIP ACP  ',
//   MSGLEVEL=1,CLASS=F,
//   MSGCLASS=A,TIME=100
/*ROUTE PRINT TPFVM1(EDDYE)
/*ROUTE PUNCH TPFVM1(EDDYE)
//L521A EXEC PGM=STUB40,REGION=4M
//STEPLIB  DD DSN=ACP.LINK.RELxx.BSS,DISP=SHR
//         DD DSN=LE.V1R3M0.SEDCLINK,DISP=SHR
//         DD DSN=SYS1.PLI.SIBMLINK,DISP=SHR
//STUB     DD DSN=ACP.STUB.RELxx.BSS,DISP=OLD
//SYSPRINT DD SYSOUT=A
//SYSIN    DD  *
CYYM
/*
//******************************************************
//*
//*  BUILD TOOL JCL
//*   - Build the JCL and INCLUDE decks for CTAL
//*     Note &&INCDECK (NEW,PASS)
//*
//******************************************************
//
//SIPL53 JOB  (82F91,7323E),'SIP ACP  ',
//   MSGLEVEL=1,CLASS=F,
//   MSGCLASS=A,TIME=100
/*ROUTE PRINT TPFVM1(EDDYE)
/*ROUTE PUNCH TPFVM1(EDDYE)
//L53A EXEC PGM=CBLD40,REGION=4M,PARM='NOJCL'
//STEPLIB  DD DSN=ACP.LINK.RELxx.BSS,DISP=SHR
//         DD DSN=LE.V1R3M0.SEDCLINK,DISP=SHR
//         DD DSN=SYS1.PLI.SIBMLINK,DISP=SHR
//SYSPRINT DD  DSN=&&INCDECK,DISP=(NEW,PASS),UNIT=SYSDA,
//         DCB=(BLKSIZE=400,RECFM=FB,LRECL=80)
//SYSIN    DD  DSN=ACP.CSRCE.RT.RELxx(CTAL40),DISP=SHR
//******************************************************
//*
//*  PRELINK/LINK JCL
//*   - Link CTAL using the EDCPL proc
//*
//******************************************************
//L53B EXEC EDCPL,COND.LKED=(0,NE),
// LPARM='AMODE=31,RMODE=ANY,LIST,XREF'
//PLKED.SYSLIB  DD DSN=ACP.CLIB.RELxx.BSS,DISP=SHR
//           DD DSN=ACP.STUB.RELxx.BSS,DISP=SHR
//PLKED.OBJLIB  DD DSN=ACP.OBJ.RELxx.BSS,
//           DISP=SHR
//PLKED.SYSIN DD DSN=&&INCDECK,DISP=(OLD,DELETE)
//LKED.SYSLIN  DD DSN=*.PLKED.SYSMOD,DISP=(OLD,DELETE)
//LKED.SYSLMOD DD DSN=ACP.LINK.RELxx.BSS(CTAL40),DISP=OLD
//