A fix is available
APAR status
Closed as program error.
Error description
DFHCSDUP ran with userprogram(dfh0forc) eg EXTRACT GROUP(xxxxx) USERPROGRAM(DFH0FORC) OBJECTS The output showed an error in the output string for MQMONITOR. Transaction field had been 'lengthened' to 8 bytes. Userid field had been truncated to 4 bytes. The order of the above fields was also reversed. This would not be matching with the expected load input order for Db2 table MQMONITOR as per DFH$DB2T. Looking at DFH0FORC Cobol program showed the problem. Once the fields were reversed, program recompiled/linkedited, this resolved the output string order and length.
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: All CICS Users. * **************************************************************** * PROBLEM DESCRIPTION: DFH0FORC is extracting MQMonitor * * records with fields in the wrong order. * **************************************************************** DFH0FORC is used to extract CSD records to then be loaded into a DB2 table. The MQMonitor record definition in DFH0FORC has the USERID and TRANSACTION fields coded in the wrong order. This results in the extract of the CSD record having too many characters making up the TRANSACTION field and the USERID field being truncated.
Problem conclusion
DFH0FORC has been updated to correct the definition of the MQMonitor record.
Temporary fix
Comments
APAR Information
APAR number
PH22822
Reported component name
CICS TS Z/OS V5
Reported component ID
5655Y0400
Reported release
200
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2020-03-02
Closed date
2020-03-24
Last modified date
2020-04-02
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UI68590
Modules/Macros
DFH0FORC
Fix information
Fixed component name
CICS TS Z/OS V5
Fixed component ID
5655Y0400
Applicable component levels
R201 PSY UI68590
UP20/03/25 P F003
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":"SSGMGV","label":"CICS Transaction Server"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"5.5","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}},{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG19M","label":"APARs - z\/OS environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"5.5","Edition":"","Line of Business":{"code":"","label":""}}]
Document Information
Modified date:
25 March 2020