UEPB - User Exit Program Block

      CONTROL BLOCK NAME = DFHUEPBC
                                                 (progeny of DFHUEPBC)
      DESCRIPTIVE NAME = CICS TS (UE) User Exit Program Block DSECT
             Licensed Materials - Property of IBM
              Restricted Materials of IBM 
             5655-Y04
             (C) Copyright IBM Corp. 1992, 2003 
      FUNCTION = Copybook for EPB DSECT.
          The EPBs are used by User Exits to hold information about
          programs that have been enabled as User exit programs.
          The EPBs are shared by the exit points that have had the
          program enabled, so that there is only one EPB for a program
          even if it has been enabled at multiple exit points.
          They are chained off the UETHEPBC field in the User Exit
          Table Header (UETH).
          For a particular exit, when the first program is enabled for
          the exit, an EPB is created (or reused if one already exists
          for another exit). The address of the first EPB for an exit
          point is stored in the User Exit Table Entry (UETE) for that
          exit point.
          For every subsequent program enabled at the same exit point,
          an EPL will be created. This EPL chain is also chained off
          the UETE. The EPLs simply point to EPBs for all the programs
          enabled for an exit point.
      NOTES :
       DEPENDENCIES = S/370
       RESTRICTIONS = None
       MODULE TYPE = Control block definition
     ------------------------------------------------------------------
Table 1.
Offset Hex Type Len Name (Dim) Description
(0) STRUCTURE 112 DFHEPB EPB CONTROL BLOCK
(0) CHARACTER 4 EPBSAA STORAGE ACCOUNTING AREA
(4) ADDRESS 4 EPBCHAIN ADDRESS OF NEXT EPB
(8) CHARACTER 8 EPBEPN NAME OF EXIT PROGRAM
(10) ADDRESS 4 EPBEPA ADDRESS OF EXIT PROGRAM
(14) ADDRESS 4 EPBGAA ADDRESS OF GLOBAL AREA
(18) HALFWORD 2 EPBGAL LENGTH OF GLOBAL AREA
(1A) HALFWORD 2 EPBGCNT GLOBAL AREA USE-COUNT
(1C) FULLWORD 4 EPBTCNT TIE-COUNT
(20) CHARACTER 8 EPBTICHN_CDS
(20) ADDRESS 4 EPBTICHN Anchor for unused TIEs
(24) FULLWORD 4 EPBTICHN_CT Security counter
(28) CHARACTER 8 EPBCNTS_CDS
(28) FULLWORD 4 EPBINST Instance count
(2C) FULLWORD 4 EPBICNT Invocation count & start bit Bit 0 on = started
(2C) BIT(8) 1 *
(2C) 1... ....   UESTART X'80'
(2C) .111 1111   * reserved
(2D) UNSIGNED 3 * reserved
(30) HALFWORD 2 EPBACNT ACTIVATION COUNT
(32) HALFWORD 2 EPBTAL LENGTH OF TASK AREA
(34) BIT(8) 1 EPBFLAGS FLAG-BYTE
(34) 1... ....   UENODEL X'80' prog loaded by user - do not delete when disabling
(34) .1.. ....   * X'40' reserved
(34) ..1. ....   UEDISABL X'20' entryname is disabled
(34) ...1 ....   UERESYNC X'10' exec resync issued
(34) .... 1...   UELINKAM X'08' linkeditmode specified
(34) .... .1..   UEIDWAIT X'04' indoubtwait specified
(34) .... ..1.   UEPURGE X'02' purgeable specified
(34) .... ...1   * reserved
(35) CHARACTER 3 * Reserved
(38) FULLWORD 4 EPBBIND INTEREST PROFILE
(3C) CHARACTER 8 EPBEMN LOAD-MODULE NAME
(44) CHARACTER 8 EPBQUAL Qualifier to TRUE's name
(4C) CHARACTER 8 EPBTSPTK TIE STORAGE SUBPOOL TOKEN
(54) ADDRESS 4 EPBTIEA Addr of TIE resvd for shutdwn
(58) ADDRESS 4 EPBPGTKN Program Token
(5C) CHARACTER 8 EPBENTIM Time EPB built
(64) CHARACTER 2 EPBTPGMM TRUE's program_mode
(66) CHARACTER 2 EPBGPGMM GLUE's program_mode
(68) UNSIGNED 4 EPBTPGMT TRUE's program_modetoken
(6C) FULLWORD 4 EPBPUCNT Exit program use count
(70) CHARACTER 0 EPBEND End

Constants

Table 2.
Len Type Value Name Description
    Length of the EPB control block
2 DECIMAL 112 EPBLEN EPB length