[Top] [Previous] [Next] [End of Book]

Appendix D . Sample JCL

The JCL Distribution Library contains sample JCL for link-editing and executing the BEA Connect TCP for IMS BMP. You must modify the sample JCL to conform to your installation's conventions and standards. Modifications include the following:

Link BEA Connect TCP for IMS BMP

The following JCL (contained in member LKEDBMP of the JCL Distribution Library) is used to link the distributed object files into an executable load module.

//JOBNAME  JOB    ETC. 
//*
//*--------------------------------------------------------------
//* PRE-LINK
//*--------------------------------------------------------------
//*
//PRELINK EXEC PGM=EDCPRLK
//STEPLIB DD DSN=SYS1.SCEERUN,DISP=SHR
//SYSMSGS DD DSN=SYS1.SCEEMSGP(EDCPMSGE),DISP=SHR
//SYSLIB DD DSN=SYS1.SCEECPP,DISP=SHR
// DD DSN=SYS1.SCLB3CPP,DISP=SHR
//SYSMOD DD DSN=&&PRELINK,DISP=(NEW,PASS),
// UNIT=WORK,SPACE=(3200,(30,30)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD DISP=SHR,DSN=BEATCPI.DIST.OBJECT(ASCEBC)
// DD DISP=SHR,DSN=BEATCPI.DIST.OBJECT(CLIENT)
// DD DISP=SHR,DSN=BEATCPI.DIST.OBJECT(COMMAND)
// DD DISP=SHR,DSN=BEATCPI.DIST.OBJECT(CONFIG)
// DD DISP=SHR,DSN=BEATCPI.DIST.OBJECT(EBCASC)
// DD DISP=SHR,DSN=BEATCPI.DIST.OBJECT(IMSQUEUE)
// DD DISP=SHR,DSN=BEATCPI.DIST.OBJECT(LEXYY)
// DD DISP=SHR,DSN=BEATCPI.DIST.OBJECT(MSGLOG)
// DD DISP=SHR,DSN=BEATCPI.DIST.OBJECT(MAIN)
// DD DISP=SHR,DSN=BEATCPI.DIST.OBJECT(NETWORK)
// DD DISP=SHR,DSN=BEATCPI.DIST.OBJECT(SERVER)
// DD DISP=SHR,DSN=BEATCPI.DIST.OBJECT(SESSIONI)
// DD DISP=SHR,DSN=BEATCPI.DIST.OBJECT(SESSIONO)
// DD DISP=SHR,DSN=BEATCPI.DIST.OBJECT(SOCKETS)
// DD DISP=SHR,DSN=BEATCPI.DIST.OBJECT(ASMUTIL)
// DD DISP=SHR,DSN=BEATCPI.DIST.OBJECT(YTAB)
//*
//*--------------------------------------------------------------
//* LINK-EDIT
//*--------------------------------------------------------------
//*
//LKED EXEC PGM=HEWL,COND=(4,LT),
// REGION=2M,PARM='AMODE=31,MAP,XREF'
//SYSLIB DD DSNAME=SYS1.SCEELKED,DISP=SHR
// DD DSNAME=SYS1.SEZACMTX,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSLMOD DD DISP=SHR,DSNAME=BEATCPI.DIST.LOAD
//SYSUT1 DD UNIT=VIO,SPACE=(TRK,(10,10))
//RESLIB DD DISP=SHR,DSN=IMSV5R1.RESLIB
//SYSLIN DD DISP=OLD,DSN=&&PRELINK
// DD *
INCLUDE RESLIB(DFSLI000)
ENTRY CEESTART
NAME BEATCPI(R)
/*
//
The IBM prelinker must be used to prelink the object modules before invoking the Linkage Editor.

Execute BEA Connect TCP for IMS BMP

The JCL used to execute the BEA Connect TCP for IMS BMP is the standard JCL supplied with IMS for executing BMPs. You should use the JCL supplied with your version of IMS. Use the following JCL only as a reference for modifying the standard BMP JCL for use with BEA Connect TCP for IMS.

//JOBNAME  JOB    ETC.                                                          
//IMSBATCH PROC AGN=, RACF APPL GROUP NAME
// CKPTID=NOMSG681, CHKPT ID FOR RESTART
// CPUTIME=0, BMP TASK TIME OPTION
// DIRCA=000, REGION AREA SIZE
// IMSID=IVP4, DSN HLQ IMS CONTROL REGION ID
// IN=, INPUT TRAN NAME
// MBR=, APPL LOAD MODULE
// NBA=, FAST PATH BUFFERS
// OBA=, FAST PATH PAGEFIX BUF
// OPT=N, NO CNTL PGM: N/W/C
// OUT=, OUTPUT TRAN/LTERM
// PARDLI=0, PARALLEL DLI OPTION
// PGMLIB=, STEPLIB LOAD LIBRARY
// PRLD=, SUFFIX FOR DFSMPL__
// PSB=, BATCH PSB NAME
// REG=2048K, JOBSTEP REGION PARAMETER
// SPIE=0, USER SPIE OPTION 0/1
// SSM=, DB2 SUBSYSTEM MEMBER ID ++
// STIMER=0, TIMER OPTION 0/1
// TEST=0 VALIDITY CHK ADDR 0/1
// EXEC PGM=DFSRRC00,REGION=&REG,
// PARM=(BMP,&MBR,&PSB,&IN,&OUT,
// &OPT&SPIE&TEST&DIRCA,&PRLD,&STIMER,&CKPTID,
// &PARDLI,&CPUTIME,&NBA,&OBA,&IMSID,&AGN,&SSM)
//STEPLIB DD DSNAME=&PGMLIB,DISP=SHR
// DD DSNAME=&DSID..RESLIB,DISP=SHR
// DD DISP=SHR,DSN=SYS1.SCEELKED
// DD DISP=SHR,DSN=SYS1.SCEERUN
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//DFSESL DD DSNAME=&DSID..RESLIB,DISP=SHR
//DFSRESLB DD DSNAME=&DSID..RESLIB,DISP=SHR
//IMS DD DSNAME=&DSID..PSBLIB,DISP=SHR
// DD DSNAME=&DSID..DBDLIB,DISP=SHR
//PROCLIB DD DSNAME=&DSID..PROCLIB,DISP=SHR
//SYSTCPD DD DISP=SHR,DSN=TCPIP.V3R1.DATA
//MSGLOG DD DISP=SHR,DSN=BEATCPI.DIST.MSGLOG
//SVRLOG DD DISP=SHR,DSN=BEATCPI.DIST.SVRLOG
//CONFIG DD DISP=SHR,DSN=BEATCPI.DIST.CONFIG(BEATCPI)
// PEND
//*
// EXEC PROC=IMSBATCH,
// PGMLIB='BEATCPI.DIST.LOAD', BEATCPI LOAD LIBRARY
// MBR=BEATCPI, BEATCPI LOAD MODULE NAME
// IN=BEATCPI, BEATCPI TRANSACTION CODE
// PSB=BEATCPI, BEATCPI PSB NAME
// OPT=C,
// DSID=IMSV5R1,
// AGN=IVP
//DFSCTL DD *
SBPARM ACTIV=NO
/*
//

Notes

  1. CKPTID=NOMSG681 is coded to suppress message DFS681I, which is normally issued by IMS each time a CHKP call is issued.

  2. The appropriate DD statements for the LE/370 run-time environment (SCEELKED and SCEERUN) must be added to the STEPLIB.

  3. Add a SYSUDUMP DD statement to obtain an MVS dump for certain abend conditions.

  4. Add a CEEDUMP DD statement to obtain a formatted LE/370 dump for certain exception conditions.

  5. Add a SYSTCPD DD statement to enable TCP/IP for MVS to locate datasets in the run-time environment. Refer to the documentation for TCP/IP for MVS for additional information.

  6. Add DD statements for the BEA Connect TCP for IMS datasets (CONFIG, MSGLOG, and SVRLOG).



[Top] [Previous] [Next] [End of Book]