17.00 - COBOL JCL - IBM CICS Interface for Teradata

IBM CICS Interface for Teradata® Reference

prodname
IBM CICS Interface for Teradata
vrm_release
17.00
created_date
June 2020
category
Programming Reference
featnum
B035-2448-220K

The sample JCL that follows contains the statements required to execute the COBOL SQL-Compatible Preprocessor, the COBOL 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=PPBMAIN,
//      PARM=’USERID(UID,UID),TDPID(TDPN),DATABASE(UID)’
//*
//* * * * * * * * * * * * * * * * * * * * * * * * * *
//*                                                 *
//*    COMPILE AND LINKEDIT FOR  COBOL CICS.        *
//*                                                 *
//*    BEFORE SUBMITTING, CHECK THE TDPID, USERID   *
//*    AND PASSWORD ABOVE.  CHANGE THE MEMBER NAME  *
//*    ON THE SYSPUNCH, SYSIN, COB.SYSIN, AND       *
//*    LKED.SYSIN.                                  *
//*                                                 *
//*                                                 *
//*                                                 *
//* * * * * * * * * * * * * * * * * * * * * * * * * *
//*
//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.COBPUN(MEMBER),
//            DISP=SHR
//SYSLIB   DD DSN=UID.SQLCOBPP.COBCOPY,DISP=SHR INCLUDE PDS
//SYSIN    DD DSN=UID.CICS.COBOL(MEMBER),DISP=SHR
//PP02     EXEC DFHEITCL,
//    PARM.COB=’NOTRUNC,NODYNAM,LIB,APOST,NOXREF,SIZE=256,BUF=16K’
//TRN.SYSIN DD DSN=UID.CICS.COBPUN(MEMBER),DISP=SHR
//COB.STEPLIB DD DSN=SYS1.VSCOLIB,DISP=SHR
//COB.SYSLIB  DD DSN=UID.SQLCOBPP.COBCOPY,DISP=SHR
//            DD DSN=CICS160.COBLIB,DISP=SHR
//LKED.SYSLIB DD
//            DD DSN=DBC.CXILOAD,DISP=SHR
//            DD DSN=SYS1.VSCLLIB,DISP=SHR
//LKED.SYSLMOD DD DSN=UID.CICS.LOAD,DISP=SHR
//LKED.SYSIN DD *
  NAME MEMBER(R)
/*
//