A fix is available
APAR status
Closed as program error.
Error description
You are migrating to CPSM Version 3.2. You have a batch COBOL program that invokes the CPSM API to perform various functions. The program specifies version number '0230' on the CONNECT statement and was compiled using the Version 2.3 libraries and copybooks. The program does a GET with NOWAIT, followed by an asynchronous RECEIVE with a DELAY. The RECEIVE fails with RESPONSE(1037) REASON(1344) - WARNING AREATOOSMALL when executed in CPSM 3.2. Additional Symptom(s) Search Keyword(s): KIXREVGJT
Local fix
Compile and connect at the 230 level (you must always connect at the level you compile at) but pad the end of the ASYNCREQ area to be atleast the 320 length. The change will add eight bytes to the end of the table. When running the program in 230, the last 8 bytes won't be filled in, and when running the program in 320, there will be room for the last eight bytes.
Problem summary
**************************************************************** * USERS AFFECTED: All CICSPlex SM V3R2M0 Users * **************************************************************** * PROBLEM DESCRIPTION: A program issuing the EXEC CPSM RECEIVE * * command may fail with RESPONSE(1037) * * REASON(1344) - WARNING AREATOOSMALL. * * The problem occurs for any language * * when the program was compiled with an * * ASYNCREQ copybook at any release prior * * to V3R1M0 and the program specifies a * * CONNECT VERSION less than 0310. * **************************************************************** * RECOMMENDATION: After applying the PTF that resolves this * * APAR, all CMASes and MASes must be * * restarted. Note that the restarts do not * * need to occur at the same time. * * * * Note that the problem will not be completely * * corrected until a CMAS is restarted with the * * updated code, and all MASes that connect to * * it have been restarted with the updated * * code. * **************************************************************** The ASYNCREQ resource table was increased in length by 8 bytes in CPSM V3R1M0. EYU0ABAG (ABAG - CPSM MVS/ESA API Receive Command Processor) and EYU0XDY6 (XDY6 - API Receive Processor) are not using the correct external length for the ASYNCREQ resource table. The CONNECT VERSION specified in the API identifies the release of CICSPlex SM resource table data that you want to be available to your program. ABAG and XDY6 are incorrectly using the CICSPlex SM resource table data for the release of CPSM where they are executing, which causes the reported problem. Method XDND (EYU0XDND - CMAS Disposition LRT) copies the ASYNCREQ resource table to local storage, converts the data to external form, and then copies it back to the data space. After conversion, the ASYNCREQ resource table is at the correct version and length requested by the API program, but this length is not being reflected in the data space. A new field should be added to the ASYNCREQ control header to hold the value of the external length.
Problem conclusion
Modified equate (DROP_API_XDNC_VER) in EYURXDEQ (Data Repository Equates and Flags) to a value of 2. This new value will indicate that the external length of CPSM notification resources will be contained in the EYUBXDNC control header. Added a new field (XDNC_EXTLEN) to EYUBXDNC (API Deferred Request Control Header). It will contain the external length of the CPSM notification resource table record. Modified EYU0ABAG and EYU0XDY6 to retrieve the external length from the EYUBXDNC control header when available. Modified EYU0XDNR (CMAS API Analysis Control) to initialize XDNC_EXTLEN in the control header when it is created for an ASYNCREQ. Modified EYU0XDND to update the EYUBXDNC control header record so that it contains the external length of the ASYNCREQ version as determined by the EYUQMOTB INQUIRE_TABLE call. Modified EYU0XDNC (API Notification LRT) to initialize XDNC_EXTLEN in the control header when it is created for an API event notification resource, and to update the EYUBXDNC control header record so that it contains the external length of the version as determined by the EYUQMOTB INQUIRE_TABLE call.
Temporary fix
FIX AVAILABLE BY PTF ONLY
Comments
APAR Information
APAR number
PK65024
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
2008-04-24
Closed date
2008-05-23
Last modified date
2008-06-02
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UK36726
Modules/Macros
EYUBXDNC EYURXDEQ EYU0ABAG EYU0XDNC EYU0XDND EYU0XDNR EYU0XDY6
Fix information
Fixed component name
CICSTS V3 Z/OS
Fixed component ID
5655M1500
Applicable component levels
R50M PSY UK36726
UP08/05/27 P F805
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 June 2008