PM16168: error DSNH104I E because Generated COBOL has EMPTY INTO clause

APAR status

• Closed as program error.

Error description

• The source EGL program has the following sql statement:
  
  get record
     with sql# {  select 1 from ... }
  
  
  The purpose is to check the existence of a record, not to
  retrieve it.
  
  In this case the generated cobol creates
  
  FETCH record INTO
  
  without a valid INTO argument.
  
  This cause a precompiler failure.
  
  DSNH104I E     DSNHPARS LINE 14868 COL 12  ILLEGAL SYMBOL '?END-
  OF-STATEMENT?'. SOME SYMBOLS THAT MIGHT BE LEGAL ARE: : ?IDENTIF
  IER? DESCRIPTOR
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  The problem was that the fetch statement, was expecting a
  list of variables to be used, but instead was given a simple
  number (1). The logic had previously started the order item
  list with the keyword "INTO" but nothing got added to it.
  The solution was to check for this situation and remove the
  INTO item if nothing was added. This was also a problem on
  the USING clause and has been fixed as well.
  

Problem conclusion

• Software updated. Fixtest available.
  

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