A fix is available
APAR status
Closed as new function.
Error description
CICS Standalone translator needs to support Computational 5 when using Cobol.
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: All CICS users. * **************************************************************** * PROBLEM DESCRIPTION: Data value truncation in COBOL 5 and * * COBOL 6 * **************************************************************** If a programmer wishes to move a value greater than 9999 to a field defined as PIC S9(4) COMP what happens next is dependent on the COBOL compiler option TRUNC. If the code is compiled using TRUNC(BIN) then the picture of the field is ignored and the programmer can safely move a value greater than 9999 to the field. If TRUNC(OPT) is specified, the resultant value consists of only the last four digits of the number, which is a problem. Keywords: DFHEIGDI, EIBCPOSN EIBCALEN
Problem conclusion
Temporary fix
Comments
The COBOL standalone translator has been changed so as to be able to generate computational-5 instead of computational for the DFHEIGDI, EIBCPOSN and EIBCALEN. This is achieved by the introduction of a new translator option, C5. When specified, this option causes the standalone COBOL translator to generate COMP-5 rather than COMP, resulting in values not being truncated.
APAR Information
APAR number
PI88564
Reported component name
CICS TS Z/OS V5
Reported component ID
5655Y0400
Reported release
000
Status
CLOSED UR1
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2017-10-09
Closed date
2017-10-26
Last modified date
2018-01-03
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UI52781 UI52782 UI52783 UI52784
Modules/Macros
DFHEAM02 DFHEAM07 DFHEAM08 DFHEAM11 DFHEAMAA DFHEAMEE DFHEAMPA DFHEAMSA DFHECM02 DFHECM07 DFHECM08 DFHECM10 DFHECM11 DFHECM14 DFHECM17 DFHECMAC DFHECMEE DFHECMPC DFHECMSC DFHEDM02 DFHEDM07 DFHEDM08 DFHEDM10 DFHEDM11 DFHEDM14 DFHEDM17 DFHEDMAD DFHEDMEE DFHEDMPD DFHEDMSD DFHEIBLC DFHEIBLK DFHEIMOP DFHEPM02 DFHEPM07 DFHEPM08 DFHEPM10 DFHEPM11 DFHEPM14 DFHEPM17 DFHEPMAP DFHEPMEE DFHEPMPP DFHEPMSP DFHEXM00 DFHEXM01 DFHEXM05 DFHEXM06 DFHEXM09 DFHEXM12 DFHEXM13 DFHEXM15 DFHEXM16 DFHEXM18 DFHEXM25 DFHEXM27 DFHEXMAB DFHEXMAN DFHEXMG1 DFHEXMG2 DFHEXMG3 DFHEXMG4 DFHEXMG5 DFHEXMII DFHEXMKW DFHEXMPE DFHEXMS1 DFHEXMS2 DFHEXMS3 DFHEXMS4 DFHEXMS5 DFHEXMTD DFHEXMTG DFHEXMXK DFHEXMXM DFHEXMXS DFHWBAOX
Fix information
Fixed component name
CICS TS Z/OS V5
Fixed component ID
5655Y0400
Applicable component levels
R000 PSY UI52781
UP17/12/20 P F712
R001 PSY UI52782
UP17/12/20 P F712
R100 PSY UI52783
UP17/12/20 P F712
R101 PSY UI52784
UP17/12/20 P F712
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.3","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.3","Edition":"","Line of Business":{"code":"","label":""}}]
Document Information
Modified date:
03 January 2018