embedded SQL - Tabelle leeren

[jogisarge]

Hallo zusammen,

ich versuche mit folgendem Code:

Halwnull(*usrctl)                                     
H DEBUG DECEDIT('0,') DATEDIT(*DMY.)                  
C/EXEC SQL                                            
C+ DELETE FROM adrlogp                                
C/END-EXEC                                            
c                   eval      *inlr = *on 

eine Datei zu leeren, aber es passiert nichts.
Das Programm lässt umwandeln und aufrufen, aber es tut sich nichts.
Die Datei wird nicht geleert.
Der Code steht in einem ILE-RPG (SQLRPGLE)

Interaktiv in STR geht das aber SQL ??