Fixes are available
COBOL for AIX, V5.1.0.2 Fix Pack (December 2016 PTF)
COBOL for AIX, V5.1.0.3 Fix Pack (October 2017 PTF)
COBOL for AIX, V5.1.0.4 Fix Pack (January 2018 PTF)
COBOL for AIX, V5.1.0.5 Fix Pack (May 2018 PTF)
COBOL for AIX, V5.1.0.6 Fix Pack (October 2018 PTF)
COBOL for AIX, V5.1.0.7 Fix Pack (December 2018 PTF)
APAR status
Closed as program error.
Error description
The compiler produces an internal compiler error when trying to compile the provided test case with optimization. ===== COMPILE COMMAND: cob2 -q64 -q"OPTIMIZE" TST_CCSXF45.cbl ===== TESTCASE: $ cat TST_CCSXF45.cbl cbl APOST ADDR(64) ARITH(EXTEND) CALLINT(DESC) NOCICS DYNAM cbl ARITH(compat) cbl FLAG(I,I) LIST MAP cbl NOPROFILE NOSEQ NOSSRANGE NOSQL NOTEST WSCLEAR(32) NOXREF id division. program-id. TST_CCSXF45. data division. working-storage section. 01 my-data. 05 ws-bytes pic x(8). 05 ws-bits pic x. 05 ws-name pic x(8). PROCEDURE DIVISION. display ' ' move x'49' to ws-bits. move low-values to ws-bytes. move 'ws-bits' to ws-name. call 'HEXDISPLAY' using ws-name, ws-bits, value length of ws-bits. call 'CCSXF5' using ws-bits ws-bytes. display 'CCSXF5 results:' move 'ws-bytes' to ws-name. call 'HEXDISPLAY' using ws-name, ws-bytes, value length of ws-bytes. move x'00' to ws-bits. call 'CCSXF4' using ws-bits ws-bytes. display 'CCSXF4 results:' move 'ws-bits' to ws-name. call 'HEXDISPLAY' using ws-name, ws-bits, value length of ws-bits. goback. $ ===== ACTUAL OUTPUT: $ cob2 -q64 -q"OPTIMIZE" TST_CCSXF45.cbl PP 5724-Z87 IBM COBOL for AIX 4.1.1 in progress ... LineID Message code Message text IGYPG3070-U 28 IGYPG3327-U Code generation processing encountered an error in the intermediate code (rc= 1). Contact your IBM service representative. Messages Total Informational Warning Error Severe Terminating Printed: 2 2 End of compilation 1, program TST_CCSXF45, highest severity: Unrecoverable. Return code 16 $ ===== EXPECTED OUTPUT: Should compile clean
Local fix
N/A
Problem summary
USERS AFFECTED: COBOL users who use optimization maybe affected by this issue. PROBLEM DESCRIPTION: The compiler produces a 'IGYPG3327-U Code generation processing encountered an error' when compiling a testcase at optimizaiton. We are creating a 12 byte descriptor for each internal arguments. One field of this 12 byte descriptor is described to be 4 bytes, but we are trying to store an 8-byte value into it (because of -q64). This appears to work when no optimization; but fails with optimization. Also, for several fields of a structure (along with the whole structure) have there address taken, but the address taken flag is not set.
Problem conclusion
The above mentioned issues have been resolved.
Temporary fix
Comments
APAR Information
APAR number
PI70752
Reported component name
COBOL FOR AIX
Reported component ID
5724Z8700
Reported release
510
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2016-10-17
Closed date
2016-10-17
Last modified date
2016-10-17
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Fix information
Fixed component name
COBOL FOR AIX
Fixed component ID
5724Z8700
Applicable component levels
R510 PSY
[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SS6SGM","label":"COBOL for AIX"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"510","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
19 October 2021