Fixes are available
APAR status
Closed as program error.
Error description
The following concatenate() statement in EGL causes the generated cobol program to fail in compilation. ZCZ97NQM_RO.SEARCH_EMN11 = '????'; VGLib.concatenate(ZCZ97NQM_RO.SEARCH_EMN11, ??'); ZCZ97NQM_RO.SEARCH_EMN11 is declared as CHAR(20) The generate cobol for the filed is: 000643 03 EZELFV-PRM-54 PIC G(1) USAGE DISPLAY-1. and the error message is: 002768 MOVE FUNCTION DISPLAY-OF(EZELFV-PRM-54) TO EZELFV-CSS-56 IFN 643 644 ==002768==? IGYPS2285-S 'EZELFV-PRM-54' was specified as an argument for function 'DISPLAY-OF', but is not allowed as a function argument. The statement was discarded. Workaround is VGLib.concatenate(ZCZ97NQM_RO.SEARCH_EMN11, m'??'); In V6, the statement was ok.
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: * **************************************************************** * PROBLEM DESCRIPTION: * **************************************************************** * RECOMMENDATION: * **************************************************************** The generated COBOL was incorrect because the DBCS literal was being passed to a char parameter. COBOL does not support this type of assignment.
Problem conclusion
The type of the DBCS literal is now modified when passing it to a char or mbchar parameter. The type of the literal is set to mbchar. The same modification to the DBCS literal type is done on any binary expression when the other operand is char or mbchar
Temporary fix
Comments
APAR Information
APAR number
PM40671
Reported component name
RATL BUS DEV
Reported component ID
5724S5000
Reported release
751
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2011-06-02
Closed date
2012-03-15
Last modified date
2012-03-15
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
RATL BUS DEV
Fixed component ID
5724S5000
Applicable component levels
R751 PSN
UP
[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSMQ79","label":"Rational Business Developer"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"7.5.1","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
27 October 2021