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)