A fix is available
APAR status
Closed as program error.
Error description
Using Cobol V5.2 the UNSTRING from a delimited character data statement into SIGN IS SEPARATE numeric data items are producing incorrect results compared to CBL V4 at all Optimization levels
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: Enterprise COBOL V5 users compiling and * * running programs that contain an UNSTRING * * statement with a numeric receiver. * * * **************************************************************** * PROBLEM DESCRIPTION: The digits of a zoned separate sign * * receiver are shifted incorrectly. * * * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * **************************************************************** For an UNSTRING statement which has an INTO phrase with a zoned separate sign data item, the digits are shifted incorrectly.
Problem conclusion
The UNSTRING statement runtime code was changed to correct the handling of a zoned separate sign receiver.
Temporary fix
Comments
APAR Information
APAR number
PI60610
Reported component name
LE ENT COBOL LI
Reported component ID
568819812
Reported release
790
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2016-04-11
Closed date
2016-04-25
Last modified date
2016-05-04
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UI37309 UI37310 UI37311
Modules/Macros
CEESG004 IGZCER4 IGZCEV4 IGZLLIBV IGZXACP IGZXACS IGZXACS1 IGZXACS2 IGZXAIO IGZXALOC IGZXANE IGZXANE1 IGZXANE2 IGZXAPI IGZXAPS IGZXBIO IGZXBSP IGZXBSP1 IGZXBSP2 IGZXBSP3 IGZXBSP4 IGZXBSP5 IGZXBST IGZXBST1 IGZXBST2 IGZXBST3 IGZXBST4 IGZXBST5 IGZXBS61 IGZXBU1L IGZXBU1P IGZXBU1R IGZXBU1S IGZXBU1V IGZXBU1W IGZXBU2R IGZXBU2V IGZXCANC IGZXCDT IGZXCFIG IGZXCKP IGZXCLDB IGZXCLKA IGZXCLN IGZXCLS IGZXCMSG IGZXCRST IGZXDACS IGZXDASN IGZXDATE IGZXDATN IGZXDAYS IGZXDCAL IGZXDCOS IGZXDCSU IGZXDCS2 IGZXDLG1 IGZXDLOG IGZXDMOD IGZXDMR IGZXDMSG IGZXDSIN IGZXDSP IGZXDSQT IGZXDTAN IGZXDYWK IGZXD2F IGZXD24 IGZXEXT IGZXE2E IGZXE2EN IGZXE2H IGZXE2N IGZXE2N2 IGZXFAC IGZXFCAL IGZXFPC1 IGZXFPW IGZXFREE IGZXFRST IGZXFWSA IGZXF2D IGZXF2D1 IGZXF2I IGZXGDR0 IGZXGDR1 IGZXGDR2 IGZXGFI IGZXGMTO IGZXGTST IGZXH2E IGZXIDB IGZXII2 IGZXINSP IGZXJGF IGZXLCLS IGZXLOCT IGZXLOPN IGZXLPIO IGZXLPKA IGZXLPKB IGZXLPKC IGZXLPKD IGZXLPKE IGZXLPKF IGZXLPKG IGZXMED IGZXMEDQ IGZXMFIG IGZXMSG IGZXNE2N IGZXNMV IGZXNMVC IGZXNMVQ IGZXNVCQ IGZXPK2 IGZXPPL IGZXPRC IGZXPRS IGZXPRV IGZXPRVQ IGZXPR2 IGZXQACS IGZXQASN IGZXQATN IGZXQCLS IGZXQCOS IGZXQLG1 IGZXQLOG IGZXQMOD IGZXQOPN IGZXQSIN IGZXQSQT IGZXQTAN IGZXQXPQ IGZXRAND IGZXRAS1 IGZXRAS2 IGZXRAS4 IGZXRAS5 IGZXRAS6 IGZXRAS7 IGZXRAS8 IGZXRAS9 IGZXRES1 IGZXRES2 IGZXRES3 IGZXRES4 IGZXRES5 IGZXRES6 IGZXRES7 IGZXRES8 IGZXRES9 IGZXREV IGZXREVU IGZXRTN IGZXRT1 IGZXSCC1 IGZXSCC2 IGZXSCH IGZXSGL IGZXSMSG IGZXSM0 IGZXSM1 IGZXSM2 IGZXSM3 IGZXSM4 IGZXSM5 IGZXSM6 IGZXSPA IGZXSRT IGZXSRV IGZXSTD IGZXSTDQ IGZXSTG IGZXSXPQ IGZXTREC IGZXTREN IGZXTRM IGZXUCP IGZXUNCQ IGZXUNE IGZXUNMV IGZXUNVC IGZXUNVQ IGZXUST IGZXUST2 IGZXVAR IGZXVARQ IGZXVCLS IGZXVMO IGZXVOPN IGZXXDI IGZXXDI0 IGZXXGF IGZXXML IGZXXMU IGZXXMU0 IGZXXMU2 IGZXXPR IGZXXPS IGZX2LW IGZX2LWU IGZX2UP IGZX2UPU
Fix information
Fixed component name
LE ENT COBOL LI
Fixed component ID
568819812
Applicable component levels
R7A0 PSY UI37309
UP16/04/29 P F604
R780 PSY UI37310
UP16/04/29 P F604
R790 PSY UI37311
UP16/04/29 P F604
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":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SSCVR7X","label":"Runtime"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Line of Business":{"code":"","label":""}}]
Document Information
Modified date:
14 December 2020