16.20 - PL/I JCL - IBM CICS Interface for Teradata

IBM CICS Interface for Teradata® Reference

prodname
IBM CICS Interface for Teradata
vrm_release
16.20
created_date
October 2018
category
Programming Reference
featnum
B035-2448-106K

The sample JCL shown below contains the statements required to execute the PL/I SQL-Compatible Preprocessor, the PL/I compiler, the linkage editor, and the created (not executed) object module.

Remember that your job stream instructions must satisfy the requirements of your installation. Verify your job stream before you run the job.

//jobname  JOB  ’job statement info’
//PP01    EXEC PGM=PPIMAIN,
//      PARM=’USERID(UID,UID),TDPID(TDPE),NOPUNCH’
//*
//* * * * * * * * * * * * * * * * * * * * * * * * * *
//*                                                 *
//*   COMPILE AND LINKEDIT FOR PL/I CICS.           *
//*                                                 *
//*   BEFORE SUBMITTING, CHECK THE TDPID, USERNAME  *
//*   AND PASSWORK ABOVE.  CHANGE THE MEMBER NAME   *
//*   ON THE SYSPUNCH, SYSIN, PLI.SYSIN, AND        *
//*   LKED.SYSIN.                                   *
//*                                                 *
//*   THIS JOB CALLS THE PROCEDURE PLIPROC.         *
//*                                                 *
//* * * * * * * * * * * * * * * * * * * * * * * * * *
//*
//STEPLIB  DD DSN=DBC.APPLOAD,DISP=SHR
//         DD DSN=DBC.TRLOAD,DISP=SHR
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(5,1)),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=4000)
//SYSPRINT DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=133)
//SYSTERM  DD DUMMY
//SYSPUNCH DD DSN=UID.CICS.PLIPUN(MEMBER),
//            DISP=SHR
//SYSLIB   DD DSN=UID.SQLPLIPP.PLICOPY,DISP=SHR
//SYSIN    DD DSN=UID.CICS.PLISQL(MEMBER),DISP=SHR
//PP02     EXEC DFHEITPL
//TRN.SYSIN DD DSN=UID.CICS.PLIPUN(MEMBER),DISP=SHR
//PLI.SYSLIB  DD DSN=UID.SQLPLIPP.PLICOPY,DISP=SHR
//PLI.SYSUT1  DD UNIT=SYSDA,DCB=BLKSIZE=1024,SPACE=(1024,(200,20))
//PLI.SYSUT2  DD UNIT=SYSDA,SPACE=(CYL,(1,2))
//PLI.SYSUT3  DD UNIT=SYSDA,SPACE=(CYL,(1,2))
//PLI.SYSUT4  DD UNIT=SYSDA,SPACE=(CYL,(1,2))
//LKED.SYSLIB  DD
//             DD
//             DD DSN=DBC.CXILOAD,DISP=SHR
//             DD DSN=SYS1.VSCLLIB,DISP=SHR
//LKED.SYSLMOD DD DSN=UID.CICS.LOADA,DISP=SHR
//LKED.SYSIN DD *
  NAME MEMBER(R)
/*
//