A fix is available
APAR status
Closed as program error.
Error description
During IMPORT DEFN SOURCE(CATALOG) processing, some I/O errors happened on IMS Catalog Data Set. But IMPORT command completed with RC=00. IMPORT command should issue any warning message.
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: * * IMS 15 users of managed ACBs * **************************************************************** * PROBLEM DESCRIPTION: * * IMPORT DEFN SOURCE(CATALOG) command ran successfully, RC=0, * * even if updating active timestamps failed due to I/O error. * **************************************************************** * RECOMMENDATION: * * INSTALL CORRECTIVE SERVICE FOR APAR/PTF. * **************************************************************** IMPORT DEFN SOURCE(CATALOG) command failed updating timestamp in the Catalog header due to I/O error, but it returned with RC=0. The cause of RC=0 is when DFS5GDB0 is called by DFS5DL60, if 5GDB0 encounters some error, it will set AWQRC to 8 but return with an overall RC = 0. DFS5DL60 then sets awdlretc based on the return code from DFS5GDB0 so overrides it to 0.
Problem conclusion
The following modules and macros are enhanced to address the error situation. Modules: 1. DFS5DL60: Added code to check awdlretc after calling DFS5GDB0. If awdlretc is not zero, save the return code servrc=awdlretc. 2. DFSOLC50: Added code to check the return code for func(CADB) and sfunc(UHDR) of calling dfs5cenq. If rc is not zero, set new flag mwauhdrfail and memccode=ICC_UHDRERR 3. DFSOLC00 3.1 Added code to Check MWAUHDRFAIL. If it is set, issue the new warning message DFS4766W to the command master system after the failure of updating of active timestamp. 3.2 Added code to check OC0P_UHDRFAIL. If it is set, returns the new reason code 00001029 and new reason text "Failed to update one or more active timestamps". 3.3 Added code to check mwauhdrfail and mdmccode, if both flags are set, set CC=139 and print new CC error text "ACTIVE TIMESTAMP UPDATE FAILED" for each resource. 3.4 Added code to check mwauhdrfail. if it is set, set CC=139 and print new CC error text "ACTIVE TIMESTAMP UPDATE FAILED" for the command processing system. 3.5 Defined new warning message DFS4766W. When updating one or more timestamps failed, issue this warning message to the command processing system. DFS4766W IMPORT DEFN SOURCE(CATALOG) FAILED TO UPDATE TIMESTAMPS IN THE CATALOG, COMMAND TOKEN=command_token 4. DFSORCT0: Defined a new error text for reason code IRSN_UHDRFAIL. Error text: Failed to update one or more active timestamps. 5. DFSCCTX0: Defined a new error cc text "CCTXT CC=139,TEXT=ACTIVE TIMESTAMP UPDATE FAILED for ICC_UHDRERR. Macros: 1. DFS3OC0P Defined OC0P_UHDRFAIL under flag oc0p_flag4 to indicate the updating of active timestamp in the catalog resource header segment failed. 2. DFSMWA Defined MWAUHDRFAIL under flag MWAFLAGP to indicate the updating of active timestamp in the catalog resource header segment failed. 3 DFSCMDRR: Defined the new warning error reason code IRSN_UHDRFAIL under RETURN CODE X'0004' Defined the new ICC_UHDRERR for the failure of updating timestamp in the CATALOG. IMSMGDACBS/K THIS MAINTENANCE IS BEING HELD SO YOU WILL BE AWARE OF DOCUMENTATION CHANGE TO MANUAL: - THE FOLLOWING TEXT DESCRIBES THE DOC CHANGE: - The following publication updates are made by this APAR: 1. Update IMS 15.x.x Commands, Volume 1: IMS Commands A - M to include Return code X'00000004' Reason code X'00001029' For IMPORT DEFN SOURCE(CATALOG) command. Meaning - The IMPORT command failed to update one or more active timestamps. 2. Includes Completion Code X'139' For IMPORT DEFN SOURCE(CATALOG) command. Meaning - ACTIVE TIMESTAMP UPDATE FAILED 3. Update IMS 15.xxx message: Includes DFS4766W DFS4766W IMPORT DEFN SOURCE(CATALOG) FAILED TO UPDATE TIMESTAMPS IN THE CATALOG, COMMAND TOKEN=(command token) Explanation: IMPORT DEFN SOURCE(CATALOG) command failed updating one or more timestamps. System programmer response DFS4766W is issued to the command master system. The directory data set was updated, but an error occurred when updating the active timestamps in the catalog header records. Use the IMS Catalog Maintenance utility (DFS3CM00) to fix the catalog header timestamps. Module DFSOLC00
Temporary fix
Comments
APAR Information
APAR number
PH54833
Reported component name
IMS V15
Reported component ID
5635A0600
Reported release
500
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2023-05-31
Closed date
2025-06-05
Last modified date
2025-07-02
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UO03521
Modules/Macros
DFSCMDRR DFSOLC50 DFSOLC00 DFS5DL60 DFSMWA DFSCCTX0 DFSORCT0
Fix information
Fixed component name
IMS V15
Fixed component ID
5635A0600
Applicable component levels
R500 PSY UO03521
UP25/06/07 P F506
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":"BU048","label":"IBM Software"},"Product":{"code":"SSEPH2","label":"IMS"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"15","Line of Business":{"code":"LOB70","label":"Z TPS"}}]
Document Information
Modified date:
02 July 2025