Programming for DPLC

10.2.1.5 Programming for DPLC

Edit DYPSAMP to use specific connections defined before:

01 CONN-ST PIC S9(08) COMP. 
01 RMT-SYS-1 PIC X(4) VALUE 'CR08'. 
01 RMT-SYS-2 PIC X(4) VALUE 'CR09'. 


LINKAGE SECTION.

Comment SYSID in MIRRDPLC to use dynamic routing:

                EXEC CICS LINK 
                    PROGRAM(REMOTE-SERVICE)
                    DATALENGTH(REQUEST-LEN) 
                    LENGTH(LENGTH OF COMMAREA)
                    COMMAREA(COMMAREA) 
                    SYNCONRETURN 
*                   SYSID(REMOTE-SYSID)  
                    RESP(RESP-CODE)
                END-EXEC

Compile the MIRRDPLC and DYPSAMP program using following JCL:

//COMPIL1 JOB CLASS=2,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//PROCLIB JCLLIB ORDER=&SYSUID..SNASNT.JCL 
//* 
// SET CBLDS=&SYSUID..SNASNT.COBOL 
// SET LDDS=&SYSUID..SNASNT.LOAD 
//* 
//STEP1 EXEC DFHYITVL, 
//        PROG='MIRRDPLC', 
//        SRCLIB=&CBLDS, 
//        DSCTLIB=&CBLDS, 
//        PROGLIB=&LDDS 
//        STEP2 EXEC DFHYITVL,    
//        PROG='DYPSAMP', 
//        SRCLIB=&CBLDS, 
//        DSCTLIB=&CBLDS, 
//        PROGLIB=&LDDS
//*

Define programs in CICS:

DEFINE PROGRAM(DYPSAMP) GROUP(SNASNT) 

DEFINE PROGRAM(MIRRDPLC)     GROUP(SNASNT)
     DESCRIPTION(BEA TMA SNA DPL CLIENT) 
     LANGUAGE(COBOL)    DATALOCATION(ANY)

Install resource definition in the CICS region:
```
CEDA  INSTALL GROUP (SNASNT)
```

Parent topic: Single Connection and Multiple Links