COBOL JCL - IBM CICS Interface for Teradata

IBM CICS Interface for Teradata® Reference - 20.00

Deployment
VantageCloud
VantageCore
Edition
Enterprise
IntelliFlex
Lake
VMware
Product
IBM CICS Interface for Teradata
Release Number
20.00
Published
October 2023
Language
English (United States)
Last Update
2024-03-18
dita:mapPath
nmw1695364801820.ditamap
dita:ditavalPath
obe1474387269547.ditaval
dita:id
axu1470436513048
Product Category
Teradata Tools and Utilities

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)
/*
//