PM40671: vglib.concatenate fails if argument is dbchar literal.

Rational Business Developer Fix Pack 2 (8.0.1.2) for 8.0.1
Rational Business Developer Fix Pack 8 (7.5.1.8) for 7.5.1

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 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