PK55730: EPCB STORAGE SIZE IN DFS0943I MESSAGE IS SMALLER THAN ACTUAL

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• EPCB storage size in DFS0943I message is smaller than actual
  We defined next PSB and did ACBGEN.
  ----------------------------------
  ************ MSDB
         PCB     TYPE=DB,NAME=JBX1OPER,PROCOPT=GR,KEYLEN=5
         SENSEG  NAME=OPEROOT,PARENT=0
  ************ DEDB
         PCB     TYPE=DB,NAME=JBX0DEPO,PROCOPT=A,KEYLEN=24
         SENSEG  NAME=FUTUROOT,PARENT=0
         SENSEG  NAME=FUTUIKAN,PARENT=FUTUROOT
         SENSEG  NAME=FUTUTATE,PARENT=FUTUROOT
         SENSEG  NAME=FUTUITAK,PARENT=FUTUROOT
         SENSEG  NAME=FUTUJUYO,PARENT=FUTUITAK
         SENSEG  NAME=FUTMESAI,PARENT=FUTUROOT
         PSBGEN  PSBNAME=JBXAPL01,LANG=ASSEM,CMPAT=YES
         END
  -------------------
  ACBGEN issued next message.
     DFS0943I PSB JBXAPL01 WILL REQUIRE A MINIMUM OF 00001028 AND
     A MAXIMUM OF 00001028 BYTES OF STORAGE IN THE EPCB POOL.
  .
  From the dump, actual EPCB storage was 1064 bytes under IFP
  region.
    * EMH EPCB (24) and a pointer in EPCB List (4)       =>  28
    * MSDB EPCB (72) and a pointer in EPCB List (4)      =>  76
    * DEDB EPCB (192), MLTEs (116*6), SNMTs (8*(6+2))
       and a Pointer (4)                                 => 956
                                                 --------------
                                                           1060
    4 bytes are used for double word alignment of EPCB. => 1064
  ----------------------------------------------------------------
  Above DFS0943I is issued by DBFUAMA0 and it has next errors.
  1. It is missing to include a pointer in EPCB list for MSDB.
  2. It is missing the size of EMH EPCB and a pointer.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: IMSFP V10 users.                             *
  ****************************************************************
  * PROBLEM DESCRIPTION: EPCB storage size in DFS0943I message   *
  *                      is smaller than actual.                 *
  ****************************************************************
  * RECOMMENDATION: INSTALL CORRECTIVE SERVICE FOR APAR/PTF      *
  ****************************************************************
  EPCB storage size in DFS0943I message was found to be incorrect
  after an ACBGEN was run. The following is a DFS0943I message:
  
  DFS0943I PSB JBXAPL01 WILL REQUIRE A MINIMUM OF 00001028 AND
  A MAXIMUM OF 00001028 BYTES OF STORAGE IN THE EPCB POOL.
  
  The minimum required storage for the EPCB is too small because
  it doesn't account for 4 more bytes of storage per MSDB for the
  pointer. There should be an added 4 bytes for every MSDB in the
  PSBGEN.
  
  Also, the MAXIMUM required EPCB storage does not take into
  account ALTRESP TPPCBs so the MAXIMUM storage size is also too
  small.
  

Problem conclusion

• AIDS: RIDS/FP RIDS/MSDB FP MSDB
    GEN:
  
  *** END IMS KEYWORDS ***
  ***********
  DBFUAMA0  *
  ***********
  
  DBFUAMA0 has been changed to add 4 additional bytes per MDSB
  in the PSB for the pointer. This additional storage is added to
  the MINIMUM amount of EPCB storage necessary.
  
  Also, every ALTRESP TPPCB in the PSB is now accounted for and
  an additional 28 bytes per TPPCB is added to the MAXIMUM amount
  of EPCB storage necessary.
  

Temporary fix

Comments

APAR Information

• APAR is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

  UK33697

Modules/Macros

• DBFUAMA0
  

Fix information

• Fixed component name

  IMS V10

• Fixed component ID

  5635A0100

Applicable component levels

• R010 PSY UK33697

     UP08/02/22 P F802

Fix is available

• Select the PTF appropriate for your component level. You will be required to sign in. Distribution on physical media is not available in all countries.