[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:

- Adding an appropriate Job Card

- Changing the names of IBM product datasets (IMS, TCP/IP for MVS, and LE/370) to match those used by your installation

- Changing the names of BEA Connect TCP for IMS datasets to match those used by your installation

- Changing the names of certain program modules (for example, the Linkage Editor), if necessary, to match those used by your installation

### 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]