PM09171: LNC1053 compiler error received compiling EGL generated COBOL program for iSeries

APAR status

• Closed as program error.

Error description

• Rational Business Developer V7.5.1.4:
  
  An Enterprise Generation Language (EGL) generated COBOL program
  fails to successfully compile with the following compiler error:
  
     *  1800  MSGID: LNC1053  SEVERITY: 30  SEQNBR:  231100
              Message . . . . :   INTO identifier of STRING, or
              identifier-1 of UNSTRING 'B-3' must not be reference
              modified.
  
  The first line with SEQNBR 230800 shows the EGL statement
  causing the error.  The lines starting with stmt 1800 shows the
  generated COBOL statement in error.
  
       STMT     SEQNBR
       ----     ------
                230800* EGL *11* b[1:2] = "x" + a;
       1799     230900     INITIALIZE B-3 ( 1 : 1 + 2 - 1 )
       1800     231000     STRING EZECHR-13 DELIMITED BY SIZE A-2
                           DELIMITED BY SIZE INTO
                231100     B-3 ( 1 : 1 + 2 - 1 )
  

Local fix

Problem summary

• The iSeries COBOL compiler was not able to handle a STRING
  statement that also has a reference modification. This
  resulted in a compiler error on the iSeries, although there
  is no error with the zSeries COBOL compiler. The EGL cobol
  generated will now use a temporary variable for substringed
  targets, when using the iSeries. This will prevent the
  compiler error.
  

Problem conclusion

• Software updated.
  

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

  RBD EGL FOR COB

• Fixed component ID

  5724S5001

Applicable component levels

• R751 PSN

     UP