Na, da will ich doch mal nicht so sein

Hier das CL-Proggie
Code:
pgm  (&Lib &VglDat)                                                       
                                                                          
  dclf xxobjd                            /* WorkDatei für DSPOBJD       */
  dcl  &tt      *char 2                  /* Tag aus ErstellDatum        */
  dcl  &mm      *char 2                  /* Monat aus ErstellDatum      */
  dcl  &jj      *char 2                  /* Jahrg aus ErstellDatum      */
  dcl  &CrtDat  *char 6                  /* ErstellDatum JJMMTT         */
  dcl  &VglDat  *char 6                  /* VergleichsDatum zum löschen */
  dcl  &Lib     *char 10                 /* Bibliothek                  */
                                                                          
  DspObjD    Obj(&lib/*all)            +                                  
             ObjType(*all )            +                                  
             Detail(*Basic)            +                                  
             OutPut(*OutFile)          +                                  
             OutFile(qtemp/xxobjd)       /* ObjektD in WorkFile         */
                                                                          
LOOP: rcvf                               /* Lesen der Datei             */
  monmsg cpf0864 exec( goto WEITER )                                      
                                                                          
  chgvar &tt ( %sst( &odcdat 3 2) )      /* Aufbereiten des Datum       */ 
  chgvar &mm ( %sst( &odcdat 1 2) )                                        
  chgvar &jj ( %sst( &odcdat 5 2) )                                        
  chgvar &CrtDat ( &jj *cat &mm *cat &tt )                                 
                                                                           
  If (&CrtDat < &VglDat) then(do)                                          
                                                                           
    If ( &odobtp = '*PGM' ) then(do)                                       
      dltpgm &odlbnm/&odobnm                                               
    EndDo                                                                  
    If ( &odobtp = '*FILE' ) then(do)                                      
      dltpgm &odlbnm/&odobnm                                               
    EndDo                                                                  
                                                                           
  EndDo                                                                    
                                                                           
  goto LOOP                                                                
                                                                           
WEITER:                                                                    
endpgm
zum umwandeln muss die Datei XXOBJD vorhanden sein. am besten du du gibst auf einen zeile folgendes cmd ein

DSPOBJD sich/*all *all *basic output(*outfile) outfile(qtemp/xxobjd)

dann stellst du dein PDM so ein, das du interactiv wandelst.

CL-Proggie wandeln.

aufruf des cl mit

Call CL_DLTOBJ ('SICH' '050331')

Dabei muss dein Proggi CL_DLTOBJ heissen. Der 1. Parm ist die Lib um die es geht und der 2.Parm ist das Datum ab dem <= gelöscht werden soll.


tschau Ronald