16.10 - COBOL JCL - IBM CICS Interface for Teradata

IBM CICS Interface for Teradata Reference

Product
IBM CICS Interface for Teradata
Release Number
16.10
Published
May 2017
Language
English (United States)
Last Update
2018-10-12
dita:mapPath
fdh1488824663151.ditamap
dita:ditavalPath
Audience_PDF_include.ditaval

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