A fix is available
APAR status
Closed as program error.
Error description
This is a SYSROUTE of APAR PM31053. RTA definitions in CPSM are done to purge tasks active for a long time but they are never purged with CPSM 3.2. In the CICS trace where the task should be purged, the entry INQUIRE_TRANSACTION shows TRANSACTION_NUMBER(00000000) In the cics log we see that an action has been created with the message: +EYUPN0007W CICS1CMA Notify created for RTADEF DEFSUSPX by MRM Context=WUIPCM01, Target=CICS1T01, Sev=HS, Resource=TASK, Key=65, Text=TRANS SUSP > 10 SECONDES. +EYUPN0109E CICS1CMA Resource modification for Context=WUIPCM01, Target=CICS1T01, Resource=TASK, Key=65, Evaldef=EVASUSPX failed, RESP=0000005B, RESP2=00000001, EIBFN=5E04, ATTRIBUTE=N/A. It seems the parameter list is not correctly build. Tracing in CICS a command 'CEMT SET TASK(xxxxx) FORCE': XM 1001 trace entry parameter list contains the task number at x'7C' on the FUNCTION(INQUIRE_TRANSACTION) . Then the same tracing for a purge of a task done by CPSM shows x'00000000' as task number at X'7C' but x'0000082C' (the task number to purge) at x'30' in the same XM 1001 trace entry . It is working fine with CICS TS 3.2. We can see the task number in the field TRANSACTION_NUMBER(0000161C). In the Trace TS 3.2 entry , taskid(161C) is at x'7C'. In the trace Ts 4.1 entry, taskid(0000000) at x'7C' then we have the taskid(82C at x'30'. An Auxtrace of with COD0 TRACK MOMB FROM PNAN SPEC shows: 18268 MOM2 MOMB PRPR DAT Lv-32 32767 BAD-VALU CPSM LEEPRC4A CMAS This is being set in MOM2 *COPY_TO_MAL_FIELD: The problem is that copy_to_mal_field is called to copy three kinds of data: key data which is always left-justified in the buffer and (we hopeレ) always the right length, and values from override blocks and resource table images which may be left justified and may be longer than the MAL field length. The code which is tripped over moves right-justified numeric data to a shorter MAL field, and insures that significant data is not lost. This is valid for override values and resource table values, but NOT for key fields.
Local fix
No
Problem summary
**************************************************************** * USERS AFFECTED: All CICSPlex SM V3R2M0 Users * **************************************************************** * PROBLEM DESCRIPTION: You create an RTADEF and EVALDEF * * to detect tasks which have been in a * * suspended state for more than ten sec- * * onds. A modification string: * * PURGETYPE=FORCEPURGE. * * is coded on the EVALDEF to purge tasks * * which trigger the EVALDEF. Tasks are * * not forcepurged, and the following * * message is issued in the CMAS: * * EYUPN0109E Resource modification * * for Context=cicsplex, * * Target=masname, * * Resource=TASK, Key=nnn, * * Evaldef=evaldef failed, * * RESP=0000005B, RESP2=00000001, * * EIBFN=5E04, ATTRIBUTE=N/A. * * Examination of the AUXTRACE data from * * the CMAS to which the MAS connects * * shows a trace with trace point=32767 * * and debug text=BAD-VALU. * **************************************************************** * RECOMMENDATION: After applying the PTF that resolves this * * APAR, all CMASes must be recycled to pick * * up the new code. Note that the restarts * * do not need to be done at the same time. * **************************************************************** Module EYU0MOM2 (MOM2 - Build MAL) is called to initialize a Method Argument List (MAL) for a requested action. Subroutine copy_to_mal_field is called to move values into the MAL being constructed. Subroutine copy_to_mal_field is called to copy three kinds of data: key data which is always left-justified in a 44 byte source buffer and always the length of the MAL field and values from override blocks and resource table images which may be left- or right-justified and may be longer than the MAL Field length. If a value is of a type defined to be right- justified, data is copied from the trailing bytes of the source buffer, and if the source buffer is longer than the MAL field, the leading bytes are scanned to insure that significant data was not lost. This is valid for override values and resource table values, but NOT for key fields.
Problem conclusion
A new subroutine, copy_to_mal_key, which copies the values of key fields correctly, was defined in module EYU0MOMB. The subroutine is called to copy the values of key fields into a MAL.
Temporary fix
FIX AVAILABLE BY PTF ONLY
Comments
APAR Information
APAR number
PM50850
Reported component name
CICSTS V3 Z/OS
Reported component ID
5655M1500
Reported release
50M
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2011-10-26
Closed date
2011-10-27
Last modified date
2011-11-02
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UK73216
Modules/Macros
DYU0MOM2 EYU0MOM2
Fix information
Fixed component name
CICSTS V3 Z/OS
Fixed component ID
5655M1500
Applicable component levels
R50M PSY UK73216
UP11/10/29 P F110
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":"3.2","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":"3.2","Edition":"","Line of Business":{"code":"","label":""}}]
Document Information
Modified date:
02 November 2011