10.1.1.5 Programming for DPLS

1. Compile the MIRRDPLC 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='TOUPDPLS',
   //      SRCLIB=&CBLDS,
   //      DSCTLIB=&CBLDS,
   //      PROGLIB=&LDDS

2. Define DPL program in both CICSA and CICSB regions:

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

3. Install resource definition in both CICSA and CICSB regions:CEDA INSTALL GROUP (SNASNT)