A fix is available
APAR status
Closed as program error.
Error description
MAXLENGTH with NOTRUNCATE and SET options in WEB RECEIVE command is not set in GET_LENGTH parameter for a GETMAIN request. CICS trace shows GET_LENGTH with the length value instead of the MAXLENGTH value expected, because the NOTRUNCATE option is specified. DDFHWBAP source code shows the following instructions when MAXLENGTH is especified: ---------------------------------------------------------------- ] If RECEIVE command specified a MAXLENGTH value and the size ] of the storage required to hold the body data is greater than ] the MAXLENGTH then set the size to the MAXLENGTH value. ] NOTE: The MAXLENGTH value is held in the data_buffer. if wbap_set_maxlength = true & set_size > wbap_set_maxlength then set_size = wbap_set_maxlength; ] Getmain storage for SET. dfhsmgf_ptr = addr(smgf_parms); ?dfhsmgfm call clear in function (GETMAIN) remark ('RECV_BUF') storage_class (TASK) get_length (set_size) suspend (YES) out address (wrb_receive_set_buffer_ptr) response (*) reason (*); ---------------------------------------------------------------- wbap_set_maxlength is the MAXLENGTH value, and the "if" is comparing this variable like a boolean variable. This is an error. The variable to be compared should be wbap_set_maxlength_x. Because the condition is not matched, the set_size is not filled with MAXLENGTH value; it is filled with LENGTH value, as trace shows.
Local fix
No local fix
Problem summary
**************************************************************** * USERS AFFECTED: All * **************************************************************** * PROBLEM DESCRIPTION: An EXEC CICS WEB RECEIVE SET command * * may return more data than specified * * by the MAXLENGTH option. * **************************************************************** * RECOMMENDATION: * **************************************************************** When performing an EXEC CICS WEB RECEIVE command and the SET option is specified for an HTTP request, the MAXLENGTH option (if supplied), is ignored. DFHWBAP checks for the existence of the MAXLENGTH parameter but a coding error means that the check always fails. This causes all the data available to be received even if its length exceeds the value specified in MAXLENGTH.
Problem conclusion
Changes have been made to DFHWBAP to cause CICS to adhere to the MAXLENGTH option when specified in conjunction with the SET option on an EXEC CICS WEB RECIEVE command.
Temporary fix
FIX AVAILABLE BY PTF ONLY
Comments
APAR Information
APAR number
PM01379
Reported component name
CICSTS V3 Z/OS
Reported component ID
5655M1500
Reported release
500
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2009-11-17
Closed date
2010-01-25
Last modified date
2010-02-01
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
PM03342 UK53806
Modules/Macros
DESWBAP DESWBDM DESWBRQ DESWBRQF DESWBSR DESWBXM DFHWBAP DFHWBAPF DFHWBDM DFHWBRQS DFHWBSR DFHWBXM
Fix information
Fixed component name
CICSTS V3 Z/OS
Fixed component ID
5655M1500
Applicable component levels
R500 PSY UK53806
UP10/01/27 P F001
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:
01 February 2010