SQL delete auf bestimmte Teildatei

[malzusrex]

Moin,

so wie du schon gesagt hast .. eben mit OVRDBF

h dftactgrp(*no) bnddir('QC2LE')  Option( *NoDebugIO )                  
h datfmt(*dmy.) timfmt(*hms:) datedit(*dmy.) decedit('0,') debug(*yes)  
                                                                        
d True            c                   *On                               
d False           c                   *Off                              
                                                                        
d* Prozedurn-Def. extern für C-Api "system"                             
d System          pr            10i 0 extproc('system')                 
d                                 *   value options(*string)            
d                                                                       
d                                                                       
d Befehl          s            200    Inz('ovrdbf MyFile MyLib/MyFile -
d                                     &Name ovrscope(*JOb)' )           
d                                                                       
d Teildatei       s             10                                      
                                                                        
c     *Entry        PList                                               
c                   Parm                    Teildatei                   
c                                                                       
c                   Eval      Befehl    =  %Replace(%Trim(Teildatei)      :
c                                                   Befehl                :
c                                                   %Scan('&Name':Befehl) :
c                                                   5                     )
c                                                                          
c                   CallP     System( Befehl )                             
c                                                                          
c/exec sql                                                                 
c+ set option commit = *none                                               
c/end-exec                                                                 
c/exec sql                                                                 
c+ Delete  from  MyFile                                                    
c/end-exec                                                                 
c                                                                          
c                   CallP     System( 'dltovr Myfile lvl(*job)' )          
c                                                                          
c                   Eval      *InLr  = True 

Gruß Ronald