PH56641: ERROR [999] : SYNTAX ERROR: 'FETCH' ERROR [999] : SYNTAX ERROR: '1' RECEIVED DURING COBOL PROGRAM BUILD

APAR status

• Closed as program error.

Error description

• Some syntax errors occurred in 2 COBOL files, in SQL cursor
  declaration, 1st related to ORDER BY clause when in declare
  cursor, 2nd related to OPTIMIZE.
  
  
  Example 1 with below build errors:
  
  Warning [999] : Syntax error: 'DESC'
  Error [999] : Syntax error: 'FETCH'
  
  
  
  For this code:
             B.JOB_EMPL_END is NULL) and B.JOB_STA_FLG = 'Y') or
             :EZESQL-HOST-VARS.EZESQL-HST-8
             :EZESQL-HOST-VARS.EZESQL-HST-8-I = 'N' )    order by
  OU_NAME
             desc for fetch only
  
  
  
  
  Example 2 with below build error:
  
  Warning [999] : Syntax error: 'OPTIMIZE'
  Error [999] : Syntax error: '1'
  
  from this code:
             :EZESQL-HOST-VARS.EZESQL-HST-10
             :EZESQL-HOST-VARS.EZESQL-HST-10-I) and
  E.JOB_EMPL_START <=
             current date and (E.JOB_EMPL_END > current date or
             E.JOB_EMPL_END is NULL) and E.JOB_STA_FLG = 'Y'
  optimize for
             1 row
             END-EXEC.
  

Local fix

• n/a
  

Problem summary

• Some syntax errors occurred in 2 COBOL files, in SQL cursor
  declaration, 1st related to ORDER BY clause when in declare
  cursor, 2nd related to OPTIMIZE.
  

Problem conclusion

• During debugging I noticed we actually have support in the
  grammar, but we had some issues in parsing the tokens, before
  applying the grammar rule.
  

Temporary fix

• Test fix 6.1.1_iFix4_TestFix_TS013853008.zip is provided to
  customer.
  

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

  APPL DISCOVERY

• Fixed component ID

  5737B1600

Applicable component levels