10.2.1.5 DPLCのプログラミング

1. 前に定義した特定の接続を使用するようにDYPSAMPを編集します:

   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.

2. 動的ルーティングを使用するように、MIRRDPLCでSYSIDをコメント化します:

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

3. 次のJCLを使用して、MIRRDPLCおよびDYPSAMPプログラムをコンパイルします:

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

4. CICSでプログラムを定義します。

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

5. CICSリージョンにリソース定義をインストールします。

   CEDA  INSTALL GROUP (SNASNT)