10.1.1.5 DPLSのプログラミング

1. 次のJCLを使用してMIRRDPLCプログラムをコンパイルします。

   //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='TOUPDPLS',
   //      SRCLIB=&CBLDS,
   //      DSCTLIB=&CBLDS,
   //      PROGLIB=&LDDS

2. CICSAリージョンとCICSBリージョンの両方でDPLプログラムを定義します:

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

3. CICSAリージョンとCICSBリージョンの両方にリソース定義をインストールします: CEDA INSTALL GROUP (SNASNT)