       01  TRANSACTION-ID-TABLE.
           05  MAIN-ENTRY-TXN-ID        PIC X(04) VALUE 'MTS0'.
           05  SYS-ADM-TXN-ID           PIC X(04) VALUE 'MTS1'.
           05  FCST-DIV-SUM-TXN-ID      PIC X(04) VALUE 'MTS2'.
           05  FCST-PRD-SUM-TXN-ID      PIC X(04) VALUE 'MTS3'.
           05  FCST-PRJ-LST-TXN-ID      PIC X(04) VALUE 'MTS4'.
           05  MAIN-MENU-TXN-ID         PIC X(04) VALUE 'MTS5'.
           05  FCST-PRJ-UPD-TXN-ID      PIC X(04) VALUE 'MTS6'.
           05  FCST-ADD-TXN-ID          PIC X(04) VALUE 'MTS7'.
           05  SYS-DFLT-TXN-ID          PIC X(04) VALUE 'MTS8'.
           05  SECURITY-TXN-ID          PIC X(04) VALUE 'MTS9'.
           05  PRJ-HDR-TXN-ID           PIC X(04) VALUE 'MTSA'.
           05  ADM-RPT-TXN-ID           PIC X(04) VALUE 'MTSB'.
           05  PRJ-DET-TXN-ID           PIC X(04) VALUE 'MTSC'.
           05  PRJ-LST-TXN-ID           PIC X(04) VALUE 'MTSD'.
           05  PRJ-SUM-TXN-ID           PIC X(04) VALUE 'MTSE'.
           05  FCST-ACCR-TXN-ID         PIC X(04) VALUE 'MTSF'.
           05  BRDCST-TXN-ID            PIC X(04) VALUE 'MTSG'.
           05  PRD-LN-TXN-ID            PIC X(04) VALUE 'MTSH'.
           05  BUZUNT-TXN-ID            PIC X(04) VALUE 'MTSI'.
           05  EXPTYP-TXN-ID            PIC X(04) VALUE 'MTSJ'.
           05  MKTCDIV-TXN-ID           PIC X(04) VALUE 'MTSK'.
           05  MKTCRGN-TXN-ID           PIC X(04) VALUE 'MTSL'.
           05  AOP-MAINT-TXN-ID         PIC X(04) VALUE 'MTSM'.
           05  OVH-DIV-TXN-ID           PIC X(04) VALUE 'MTSN'.
           05  OVH-PROD-TXN-ID          PIC X(04) VALUE 'MTSO'.
           05  BATCH-RPT-TXN-ID         PIC X(04) VALUE 'MTSP'.
           05  AP-EXCEPTION-TXN-ID      PIC X(04) VALUE 'MTSQ'.
           05  GL-EXCEPTION-TXN-ID      PIC X(04) VALUE 'MTSR'.
           05  USER-PROFILE-TXN-ID      PIC X(04) VALUE 'MTSS'.
           05  GL-AP-UPD-TXN-ID         PIC X(04) VALUE 'MTST'.
           05  HELP-SCREEN-TXN-ID       PIC X(04) VALUE 'MTSU'.
           05  FCST-EXPTYP-LST-ID       PIC X(04) VALUE 'MTSV'.
           05  LOGON-ID-TXN-ID          PIC X(04) VALUE 'MTSW'.
           05  RE-ALLOC-TXN-ID          PIC X(04) VALUE 'MTSX'.
           05  PROJ-MOVE-TXN-ID         PIC X(04) VALUE 'MTSY'.
           05  MTSZ-TXN-ID              PIC X(04) VALUE 'MTSZ'.
      *
           05  MAIN-ENTRY-PGM-ID        PIC X(08) VALUE 'P108MT00'.
           05  SYS-ADM-PGM-ID           PIC X(08) VALUE 'P108MT01'.
           05  FCST-DIV-SUM-PGM-ID      PIC X(08) VALUE 'P108MT02'.
           05  FCST-PRD-SUM-PGM-ID      PIC X(08) VALUE 'P108MT03'.
           05  FCST-PRJ-LST-PGM-ID      PIC X(08) VALUE 'P108MT04'.
           05  MAIN-MENU-PGM-ID         PIC X(08) VALUE 'P108MT05'.
           05  FCST-PRJ-UPD-PGM-ID      PIC X(08) VALUE 'P108MT06'.
           05  FCST-ADD-PGM-ID          PIC X(08) VALUE 'P108MT07'.
           05  SYS-DFLT-PGM-ID          PIC X(08) VALUE 'P108MT08'.
           05  SECURITY-PGM-ID          PIC X(08) VALUE 'P108MT09'.
           05  PRJ-HDR-PGM-ID           PIC X(08) VALUE 'P108MT10'.
           05  ADM-RPT-PGM-ID           PIC X(08) VALUE 'P108MT11'.
           05  PRJ-DET-PGM-ID           PIC X(08) VALUE 'P108MT12'.
           05  PRJ-LST-PGM-ID           PIC X(08) VALUE 'P108MT13'.
           05  PRJ-SUM-PGM-ID           PIC X(08) VALUE 'P108MT14'.
           05  FCST-ACCR-PGM-ID         PIC X(08) VALUE 'P108MT15'.
           05  BRDCST-PGM-ID            PIC X(08) VALUE 'P108MT16'.
           05  PRD-LN-PGM-ID            PIC X(08) VALUE 'P108MT17'.
           05  BUZUNT-PGM-ID            PIC X(08) VALUE 'P108MT18'.
           05  EXPTYP-PGM-ID            PIC X(08) VALUE 'P108MT19'.
           05  MKTCDIV-PGM-ID           PIC X(08) VALUE 'P108MT20'.
           05  MKTCRGN-PGM-ID           PIC X(08) VALUE 'P108MT21'.
           05  AOP-MAINT-PGM-ID         PIC X(08) VALUE 'P108MT22'.
           05  OVH-DIV-PGM-ID           PIC X(08) VALUE 'P108MT23'.
           05  OVH-PROD-PGM-ID          PIC X(08) VALUE 'P108MT24'.
           05  BATCH-RPT-PGM-ID         PIC X(08) VALUE 'P108MT25'.
           05  AP-EXCEPTION-PGM-ID      PIC X(08) VALUE 'P108MT26'.
           05  GL-EXCEPTION-PGM-ID      PIC X(08) VALUE 'P108MT27'.
           05  USER-PROFILE-PGM-ID      PIC X(08) VALUE 'P108MT28'.
           05  GL-AP-UPD-PGM-ID         PIC X(08) VALUE 'P108MT29'.
           05  HELP-FUNC-PGM-ID         PIC X(08) VALUE 'P108MT30'.
           05  FCST-EXPTYP-PGM-ID       PIC X(08) VALUE 'P108MT31'.
           05  LOGON-ID-PGM-ID          PIC X(08) VALUE 'P108MT32'.
           05  RE-ALLOC-PGM-ID          PIC X(08) VALUE 'P108MT33'.
           05  PROJ-MOVE-PGM-ID         PIC X(08) VALUE 'P108MT34'.
           05  PROGRAM-MT35             PIC X(08) VALUE 'P108MT35'.
