A fix is available
APAR status
Closed as program error.
Error description
DFSCAUT0 uses a RACW block as a work area. To ensure the work area length does not overrun the RACW block the following statement is coded in DFSCAUT0: DC 0S(944-WKALEN(0)) In fact, WKALEN is x'3F8' decimal 1016, so this is intended to produce an assembly error under these circumstances. However, no error is produced until HL Assembler PTF UI60966 is installed, at that point, ASMA028E is ( correctly ) issued. In fact, the hardcoded length of 944 is no longer accurate for a RACW block, which is now 1728 bytes in length. This check, and similar checks in DFSAOSC0,DFSCSEC0,DFSDASS0, and DFSDAUT0, should be corrected, otherwise, customers will not be able to assemble these modules ( and neither will IBM internal processes once UI60966 is installed on HL ASM ).
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: * * All IMS 14 users. * **************************************************************** * PROBLEM DESCRIPTION: * * Assembly error ASMA028E in module DFSCAUT0 in evaluation of * * (944-WKALEN) using HL Assembler with PTF UI60966 applied. * * * * This is a sysroute of PH08871. * **************************************************************** * RECOMMENDATION: * * INSTALL CORRECTIVE SERVICE FOR APAR/PTF * **************************************************************** DFSCAUT0 uses a RACW block as a work area. To ensure the work area length does not overrun the RACW block, the following statement is coded in DFSCAUT0: DC 0S(944-WKALEN(0)) In fact, WKALEN is 1016, so the indicated statement is intended to produce an assembly error under these circumstances. However, no error is produced until HL Assembler PTF UI60966 is installed, at which point the assembly correctly fails with message ASMA028E for invalid displacement. The current length of the RACW block is actually 1728 bytes. Therefore, the DFSCAUT0 workarea length is within the RACW length limit, but the hardcoded verification length in DFSCAUT0 has not been updated to correctly reflect the actual RACW block length.
Problem conclusion
REQUATE has been modified to define a new equate, DFSRACW_LEN, as the RACW control block length. DFSCBT00 has been modified to use DFSRACW_LEN as the length of the RACW control block. DFSCBT10 has been reassembled to include the DFSCBT00 change. The following modules that use the RACW control block have been modified to use DFSRACW_LEN for workarea length verification: DFSAOSC0 DFSCAUT0 DFSCSEC0 DFSDASP0 DFSDASS0 DFSDAUT0 DFSOCM40 DFSSCHR0
Temporary fix
Comments
APAR Information
APAR number
PH09056
Reported component name
IMS V14
Reported component ID
5635A0500
Reported release
400
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2019-02-26
Closed date
2019-05-09
Last modified date
2019-06-03
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UI62913 UI62914
Modules/Macros
DFSDAUT0 DFSDASS0 DFSCBT00 REQUATE DFSSCHR0 DFSCBT10 DFSDASP0 DFSCAUT0 DFSOCM40 DFSCSEC0 DFSAOSC0
Fix information
Fixed component name
IMS V14
Fixed component ID
5635A0500
Applicable component levels
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":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSEPH2","label":"IMS"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"14.1","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
30 November 2023