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 ??

[RobertMack]

...mit COMMIT(*NONE) übersetzt?

[jogisarge]

oh mann,

vielen dank !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!

[B.Hauser]

Hallo,

ich würde mir angewöhnen in jede Quelle, in der embedded SQL verwendet wird ein SET OPTION-Statement, über das Compile Optionen wie z.B. Commit gesetzt werden, einzufügen:

C/EXEC SQL
C+ SET OPTION  Commit = *None, DatFmt = *ISO, CloSQLCsr = *ENDACTGRP
C***** evt. weitere Optionen
C/END-EXEC

  * Sonstiger Source Code und embedded SQL statements. 

Birgitta