SQL delete auf bestimmte Teildatei

[muadeep]

bei einem CLRPFM habe ich aber das Problem, das es sein kann, das zum Zeitpunkt des löschens der entspr. "Teildatei" (=member), diese von einem User noch gesperrt sein kann !!!

=> hier es es mir dann nicht möglich diese Teildatei zu löschen!

bei einem "SQL-delete" habe ich das Problem nicht!

=> hier kann ich auch den gesamten Inhalt der entspr. Teildatei löschen, wärend ein User diese noch im "Zugriff" hat!

[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

[muadeep]

a.) genau das funktioniert aber nicht!
(vielleicht mach ich ja auch was falsch)

Cmd    = 'OVRDBF FILE(OUTPUT) ' + %trim('TOFILE(xxx/TEST)~') +
         %trim('MBR(XXMSG)') + %trim('~OVRSCOPE(*JOB)');             
Cmd    = %xlate('~' : ' ' : Cmd);                                     
CmdLen = %len(%trim(Cmd));                                            
QCMDEXC(Cmd:CmdLen);                                                  
                                                                      
                                       
    Exec Sql                                                          
      delete from xxx / TEST;                                 
                                                                      
                                           
Cmd    = 'DLTOVR OUTPUT LVL(*JOB)';                                   
CmdLen = %len(%trim(Cmd));                                            
QCMDEXC(Cmd:CmdLen); 

b.) und deshalb würd mich ja auch interessieren, ob es nicht noch was anderes gibt?

[malzusrex]

Versuche es mal mit


delete from output

Denn auf die hast du ja dein OVRDBF gemacht !

Ronald

Meinen Code hatte ich getestet, und da ging es

[B.Hauser]

a.) genau das funktioniert aber nicht!
(vielleicht mach ich ja auch was falsch)

Das ist eine ziemlich schwache Aussage!
Du solltest immer unmittelbar nach einem SQL-Befehl entweder den SQLCODE oder den SQLSTATE prüfen!
Also was ist der SQLCODE?

Birgitta

[muadeep]

SQLCode = 0

SQLState = 01504


Anmerkung: das löschen funktioniert schon, nur leider werden immer die Sätze der "ersten" Teildatei gelöscht !!!!!

[muadeep]

@malzusrex

danke, das war's !!!!

=> manchmal kann die Welt so einfach sein! ;-)

thx