PM78912: NUMBER OF SEGMENTS FIELD IN SURVEYOR FROMAREA REPORT IS INCORRECT

APAR status

• Closed as program error.

Error description

• A couple of digits in the number of segments field in SURVEYOR
  FROMAREA REPORT is gone, only last 4 or 5 didits are printed
  as shown below. The actual number of segments are 107191.
  DSG               BLOCK     TOTAL LENGTH NUMBER      AVERAGE LEN
  DDNAME   BLKSIZE  LOW HIGH  OF SEGMENTS  OF SEGMENTS OF SEGMENTS
  -------- ------- --------- ------------- ----------- -----------
  DDCNMCD1  8192    1-13425     43161283       7191          402
                                              ======
   In module DFSPRSUR (DFSPRSRF :FROM AREA REPORT PROCESSING),
  RFSNUM17 field is prepared by CVD/MVC/ED at #03380000-03400000
  after label RFREP200. Due to a short EDIT pattern of RFMASK1,
  only 5 or 4 digits are picked up.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of IMS V9 Database Surveyor utility    *
  *                 (DFSPRSUR) may be affected.                  *
  ****************************************************************
  * PROBLEM DESCRIPTION: User noticed incorrect number of        *
  *                      segments in the output of Database      *
  *                      Surveyor utility.  The correct number   *
  *                      is 107191 but was displayed as 7191.    *
  ****************************************************************
  * RECOMMENDATION: INSTALL CORRECTIVE SERVICE FOR APAR/PTF      *
  ****************************************************************
  The number of segments was truncated because inadequate numbers
  of digits were allocated during the ED (edit) instruction.
  Only 5 digits were allocated for the field RFSNUM17 in module
  DFSPRSRF, which holds the number of segments in zoned format.
  In the event the number of segments has 6 digits, the leading
  digit is truncated.  Furthermore, any 0's in the immediate
  subsequent digits will not be displayed.
  
  The field RFSNUM17 should be changed to hold larger than 99999
  segments.
  

Problem conclusion

• GEN:
  KEYWORDS:
  
  *** END IMS KEYWORDS ***
  Module DFSPRSRF has been changed to correct the problem.
  Field RFSNUM17 that holds the number of segments has been
  changed to support up to x7FFFFFFF segments.
  

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:

  PM84531 PM84532 PM84533 PM84534 UK92795

Modules/Macros

• DFSPRSRF DFSPRSUR
  

Fix information

• Fixed component name

  IMS V9

• Fixed component ID

  5655J3800

Applicable component levels

• R900 PSY UK92795

     UP13/03/27 P F303