PK31526: RFG REPORT HAS WRONG VALUE FOR NEW ATTRIBUTE FPPROGSZ

APAR status

• Closed as program error.

Error description

• After re-installation of DataDict V 01600 and DataDict RFG V
  01600 RFG-reports show always wrong values ('16448') for new
  'PSB with' attribute FPPROGSZ. After Change-Command
  database-value was changed but RFG-pgms still show the wrong
  value.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: DATA DICTIONARY REL6 USERS                   *
  ****************************************************************
  * PROBLEM DESCRIPTION: INVALID VALUES FOR ATTRIBUTE 'FPPROGSZ' *
  *                      IN RFG REPORTS.                         *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  ATTRIBUTE FPPROGSZ WAS ADDED TO THE SYSDEF/PSB RELATIONSHIP IN
  DATA DICTIONARY IMS8 SUPPORT APAR PQ56902.
  THE DBD AND DICTIONARY MODEL BYTE START FOR FPPROGSZ ARE OFF BY
  TWO BYTES. THIS CAUSES THE RFG REPORTS TO HAVE A SKEWED VALUE.
  

Problem conclusion

• DICTIONARY PART, DBDALOAD, HAS BEEN UPDATED WITH THE CORRECT
  BYTE START FOR FPPROGSZ.
  TO COMPLETE INSTALLATION OF THIS APAR, IT WILL BE NECESSARY TO
  RUN THE EXTLOAD STEP FROM JOB DBDAEXLD. DBDAEXLD MAY BE FOUND
  IN THE DICTIONARY DDJCLLIB LIBRARY.
  THE EDITED DBDAEXLD JCL FOR EXTLOAD FOLLOWS. CORRECT DATA SET
  NAMES AS NECESSARY.
  
  //DBDAEXLD JOB (ACCT#),PGMRNAME,
  //             MSGCLASS=A,CLASS=A,MSGLEVEL=(1,1)
  //EXTLOAD PROC RESLIB='IMSVS.RESLIB',
  //             NODE='DBD60',
  //             SOUT='A',
  //             PGMLIB='IMSVS.DDPGMLIB',
  //             DBDLIB='IMSVS.DBDLIB',
  //             PSBLIB='IMSVS.PSBLIB',
  //             ACBLIB='IMSVS.ACBLIB',
  //             SOURCE='DDSOURCE',
  //             DTEDSN='DTEDBS',
  //             SEGDSN='SEGDBS',
  //             DBSDSN='DBSDBS',
  //             PCBDSN='PCBDBS',
  //             SYSDSN='SYSDBS',
  //             EXTDSN='EXTDBS'
  //EXTLOAD  EXEC PGM=DFSRRC00,
  //           PARM='DBB,DBDZECIL,DBDECIR ,32,00,,,,N,,,,,N,N',
  //             REGION=1000K
  //STEPLIB  DD  DSN=&NODE..&PGMLIB,DISP=SHR
  //         DD  DSN=&RESLIB,DISP=SHR
  //DFSRESLB DD  DSN=&RESLIB,DISP=SHR
  //SYSPRINT DD  SYSOUT=&SOUT
  //SYSUDUMP DD  SYSOUT=&SOUT
  //REPORT   DD  SYSOUT=&SOUT
  
  //IEFRDER  DD  DUMMY
  //IMSACB   DD  DSN=&ACBLIB,DISP=SHR
  //IMS      DD  DSN=&NODE..&PSBLIB,DISP=SHR
  //         DD  DSN=&NODE..&DBDLIB,DISP=SHR
  //DFSVSAMP DD  DSN=&NODE..&SOURCE(DBDADFSV),DISP=SHR
  //ECIFILE  DD  DSN=&NODE..&SOURCE(DBDALOAD),DISP=SHR
  //DTEDD    DD  DSN=&NODE..&DTEDSN,DISP=OLD
  //SEGDD    DD  DSN=&NODE..&SEGDSN,DISP=OLD
  //DBSDD    DD  DSN=&NODE..&DBSDSN,DISP=OLD
  //PCBDD    DD  DSN=&NODE..&PCBDSN,DISP=OLD
  //SYSDD    DD  DSN=&NODE..&SYSDSN,DISP=OLD
  //EXTDD    DD  DSN=&NODE..&EXTDSN,DISP=OLD
  //         PEND
  //LOAD     EXEC EXTLOAD
  

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:

  UK21028

Modules/Macros

•    DBDALOAD
  

Fix information

• Fixed component name

  OS/VS DATA DICT

• Fixed component ID

  5740XXF00

Applicable component levels

• R602 PSY UK21028

     UP07/01/05 P F701