PH31594: ZOS COBOL ERROR [999] : SYNTAX ERROR:'1'.

APAR status

• Closed as program error.

Error description

• Compiler error on DB2 SQL statement [10/28/2020 15:17 PM]
  zOS Cobol Program FIRD\PPS.TSG10PDS.TM08A.PROGRAM.COBOL
  (SSDLAPSI) [10/28/2020 15:17 PM] E:\AD_Shares\Mainframe
  Sources\Mainframe Library
  Members\FIRD\PDS_MVS\PPS.TSG10PDS.TM08A.PROGRAM.COBOL\SSDLAPSI(3
  53) : Error [999] : Syntax error: '1' * CURSOR DECLARATION FOR
  RGAI_DELETE_ROWS EXEC SQL DECLARE RGAI_DELETE_ROWS CURSOR WITH
  HOLD FOR SELECT APSI.SPA_ID , APSI.SRID_TYPE_CD , APSI.MNTN_TS ,
   APSI.ACCT_GNRT_MTHD_CD , APSI.RMNN_RNDM_SERL_CT FROM ACTBAPSI
  AS APSI 20162A WHERE APSI.ACCT_GNRT_MTHD_CD IN ('R', 'S') AND
  (EXISTS ( SELECT RGAI.SPA_ID FROM ACTBRGAI AS RGAI WHERE
  RGAI.SPA_ID = APSI.SPA_ID AND RGAI.SRID_TYPE_CD =
  APSI.SRID_TYPE_CD FETCH FIRST 1 ROW ONLY ) ) END-EXEC.
  

Local fix

• N/A
  

Problem summary

• The AD Cobol compiler would not recognize a specific SQL syntax
  related to a CURSOR declaration which contains a SELECT ...
  FETCH leading to a syntax error during build.
  

Problem conclusion

• Fixed by adding support for the SQL syntax that uses SELECT ...
  FETCH inside a cursor definition.
  

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

  APPL DISCOVERY

• Fixed component ID

  5737B1600

Applicable component levels