Commit im CL

[mk]

Hallo zusammen,

ein Kopierjob soll unter Transaktion laufen.

Der Ablauf im CL Programm sieht so aus:

1. CPYF
2. Update mit RUNSQL

wenn der SQL fehlschlägt soll ein ROLLBACK durchgeführt werden.

Mein Programm sieht so aus

STRCMTCTL  LCKLVL(*CHG)                                   
                                                          
CPYF       FROMFILE(&FROMLIB/&FROMFILE) TOFILE(&TOFILE) + 
             MBROPT(*ADD) PRINT(*ERROR) FMTOPT(*MAP +     
             *DROP) ERRLVL(*NOMAX)                        
/* update kopiert Daten  */                               
CHGVAR     VAR(&ASQL) VALUE('update ' *BCAT &TOFILE +     
             *BCAT ' SET ...... ')     
RUNSQL     SQL(&ASQL)                                     
MONMSG     MSGID(SQL9010) EXEC(DO)                        
ROLLBACK                                                  
enddo 

Das Problem ist:
Ich schaffe es nicht das der Rollback auch die kopierten Daten zurückrollt.

Hat jemand eine Idee ?

Gruß
Michael