A fix is available
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 V13 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 number
PM84534
Reported component name
IMS V13
Reported component ID
5635A0400
Reported release
300
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2013-03-11
Closed date
2013-03-21
Last modified date
2013-10-04
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UK92799
Modules/Macros
DFSPRSRF DFSPRSUR
Fix information
Fixed component name
IMS V13
Fixed component ID
5635A0400
Applicable component levels
R300 PSY UK92799
UP13/03/27 P F303
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.
[{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG19M","label":"APARs - z\/OS environment"},"Platform":[{"code":"PF054","label":"z Systems"}],"Version":"300","Line of Business":{"code":"","label":""}}]
Document Information
Modified date:
14 December 2020