gtpa2m4c | Application Programming |
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 //