PQ55893: MSGDBD0404E PSB-IN COMMAND USING IMS VERSION 6 OR NEWER.

APAR status

• Closed as program error.

Error description

• DBD0404 E SEGMENT  PA     NOT RELATED TO DATA BASE PP PARTIC 0
  however, this could happen with IMS version 6 or newer.
  The first PCB will work.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: DATA DICTIONARY REL 6 USERS WITH IMS7        *
  ****************************************************************
  * PROBLEM DESCRIPTION: MSGDBD0404 ERROR DURING PSB_IN OF A     *
  *                      PSB COMPILED USING IMS 7                *
  ****************************************************************
  * RECOMMENDATION: INSTALL CORRECTIVE SERVICE FOR APAR/PTF      *
  ****************************************************************
  MESSAGE DBD0404 E SEGMENT SSSSSS NOT RELATED TO DATA BASE DDDDDD
  IS ISSUED DURING A PSB_IN FOR PSB GENNED IN IMS 7.
  THE SEGMENT NAME INDICATED IN THE MESSAGE WILL BE GARBAGE.
  THIS PROBLEM WAS CAUSED BY CHANGES TO THE PSBGEN IN IMS7 THAT
  WERE NOT COMPATIBLE WITH THE PSB_IN FUNCTION CODE. IT ONLY
  OCCURS FOR SENSEGS IN THE SECOND OR SUBSEQUENT PCBS.
  SENSEG ENTRY AND SENSEG PARENT OFFSETS WITHIN THE SENSEG TABLE
  USED TO BE DESIGNATED IN BYTES IN THE GEN OUTPUT. THEY ARE NOW
  DESIGNATED BY SENSEG ENTRY NUMBER.
  EACH SENSEG ENTRY IS 20 BYTES LONG. AN OFFSET THAT USED
  TO BE SPECIFIED AS 40 (X'28') IS NOW SET TO 2.
  THIS CAUSED THE DICTIONARY TO POINT TO THE WRONG AREA IN
  THE SENSEG TABLE.
  

Problem conclusion

• DBDP0000 HAS BEEN MODIFIED TO CORRECTLY FIND SENSEG ENTRIES.
  DBDP0000 CODE NOW MULTIPLIES THE LENGTH OF A SEGTAB ENTRY BY
  THE NEW OFFSET (THE SENSEG NUMBER),JUST AS THE PBGEN USED TO DO
  IN PRIOR IMS RELEASES.
  

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:

  UQ61237

Modules/Macros

• DBDP0000
  

Fix information

• Fixed component name

  OS/VS DATA DICT

• Fixed component ID

  5740XXF00

Applicable component levels

• R602 PSY UQ61237

     UP01/12/18 P F112