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 number
PH31594
Reported component name
APPL DISCOVERY
Reported component ID
5737B1600
Reported release
510
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2020-11-13
Closed date
2022-10-11
Last modified date
2022-10-11
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
[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSRR9Q","label":"IBM Application Discovery"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"510","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
11 October 2022