PK62581: EGL 6.0.1: CICS TRANSLATOR RETURNING RETURN CODE 08 WHEN PROCESSING A STRING STATEMENT CONTAINING UNNECESSARY CONTINUA

APAR status

• Closed as program error.

Error description

• Websphere Developer for zSeries 6.0.1.8:
  
  CICS translator is returning a 08 return code when processing a
  STRING statement which contains an unnecessary 'continuation'
  character.
  
  For example:
  
  12349                 STRING ' select ACCNO, ADJTYPE, OLDSBJ,
  NEWSBJ, LOANNO, LOANS 00097
  12350            -    'QNO, LNCODE,            WORKDATE, STATUS
  from nthpaaa 00097
  12351            -    'd T1                WHERE ACCNO = '
  DELIMITED BY SIZE,       00097
  12352                 EZETEMP-4-0-1166-1 DELIMITED BY SIZE, '
  AND ADJTY 00097
  12353            -    'PE = ' DELIMITED BY SIZE,
  EZETEMP-4-0-1166-2 DELIMITED BY    00097
  12354                 SIZE, '            ' DELIMITED BY SIZE,
  VAGEN-WHERE IN        00097
  12355                 NWA-10023-WHERE DELIMITED BY SIZE, '
  AND ((OLDSBJ 00097
  12356            -    ' ? ' DELIMITED BY SIZE,
  EZETEMP-4-0-1166-3 DELIMITED BY      00097
  12357                 SIZE, ') ' DELIMITED BY SIZE, '
  OR (OLDSBJ = '    00097
  12358                 DELIMITED BY SIZE, EZETEMP-4-0-1166-3
  DELIMITED BY SIZE, '    00097
  12359            -    '             AND LOANNO ? ' DELIMITED BY
  SIZE,               00097
  12360                 EZETEMP-4-0-1166-4 DELIMITED BY SIZE, ') '
  DELIMITED BY SIZE, 00097
  12361                 '             OR (OLDSBJ = ' DELIMITED BY
  SIZE,               00097
  12362                 EZETEMP-4-0-1166-3 DELIMITED BY SIZE, '
  AND LO 00097
  12363            -    'ANNO = ' DELIMITED BY SIZE,
  EZETEMP-4-0-1166-4 DELIMITED BY  00097
  12364                 SIZE, '                AND LOANSQNO ? '
  DELIMITED BY SIZE,    00097
  12365                 EZETEMP-4-0-1166-5 DELIMITED BY SIZE, ') '
  DELIMITED BY SIZE, 00097
  12366                 '             OR (OLDSBJ = ' DELIMITED BY
  SIZE,               00097
  12367                 EZETEMP-4-0-1166-3 DELIMITED BY SIZE, '
  AND LO 00097
  12368            -    'ANNO = ' DELIMITED BY SIZE,
  EZETEMP-4-0-1166-4 DELIMITED BY  00097
  12369                 SIZE, '                AND LOANSQNO = '
  DELIMITED BY SIZE,    00097
  12370                 EZETEMP-4-0-1166-5 DELIMITED BY SIZE, '
  AND LN 00097
  12371            -    'CODE ?= ' DELIMITED BY SIZE,
  EZETEMP-4-0-1166-6 DELIMITED BY 00097
  12372                 SIZE, ')) ' DELIMITED BY SIZE, '        '
  DELIMITED BY SIZE,  00097
  12373            -     '       ORDER BY
  ACCNO,ADJTYPE,OLDSBJ,LOANNO,LOANSQNO,LNCODE 00097 ???
  continuation character '-' on line 12373 needs to be removed
  12374            -    ' ASC ' DELIMITED BY SIZE, '
  OPTIMIZE FOR 6 ROWS '      00097
  12375                 DELIMITED BY SIZE INTO EZEDATA IN
  EZETPL-EZEIO-5              00097
  
  The EGL generated COBOL code needs to be corrected
  appropriately as denoted on line 12373 above.
  

Local fix

• A temp fix is available from support.
  

Problem summary

• See error description.
  

Problem conclusion

• This problem has been resolved with WebSphere Developer for
  zSeries V6.0.1 Interim Fix 009 which will be available from
  the Rational Product Updater or product web download page:
  http://www-1.ibm.com/support/docview.wss?uid=swg24019182&rs=2294
  

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

  WD/Z COBOLGEN Z

• Fixed component ID

  5724L4419

Applicable component levels

• R601 PSY

     UP