编译器指令无法识别

rey*_*nus 0 rpg rpgle ibm-midrange

当开始编写这个 RPGLE 程序的 C 表时,我收到此错误:

Compiler directive not recognized; directive ignored
Run Code Online (Sandbox Code Playgroud)

这是我的代码,在最后六行中我收到错误。

HDatedit(*ymd) datfmt(*iso)                            
FQPRINT    O    F  132        PRINTER OFLIND(*INOV)    
DWCLICLA          S              5  0                  
DWCLINOM          S             45                     
DWCLICEL          S             15                     
DWCLISEX          S              1                     
DWCLIEMAIL        S             30                     
DWCLIESTD         S              1                     
DWCLIDEP          S              2  0                  
C*                                                     
C                   EXCEPT    CABECERA                 
C                   EXCEPT    linea                    
C*                                                     
C/EXEC SQL                                             
C+  DECLARE C1 CURSOR FOR                              
C+    SELECT CLICLAV, CLINOM, CLICEL, CLISEX, CLIEMAIL 
C+     FROM CLIENTES      
C+      ORDER BY CLICLAV  
C/end-exec                
Run Code Online (Sandbox Code Playgroud)

我正在使用 PUB400.com (V7r5) 来学习 RPGLE。

Bar*_*ris 5

您需要使用 CRTSQLRPGI 来编译带有 EXEC SQL 的源代码。源成员类型应该是 SQLRPGLE,而不是 RPGLE。