CL -Abfrage erstellen

[malzusrex]

Na, da will ich doch mal nicht so sein

Hier das CL-Proggie

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

[Jelu1]

Danke für eure Hilfe!!!!!! Ich werd mich umgehend in meinem Testlabor verschanzen ;-)

[Joe]

Hallo.

Alter Kaffee, wieder mal aufgebrüht:

Ich habe vor "langer Zeit" als die AS/400 (so hiess die damals)
auf den Markt kam für sehr viel Geld (DM)diverse Schulungen besucht
und dabei sehr viel erfahren. (Danke RSB , Bender etc.)
(Hoffentlich nicht ausge*****)

Liege ich mit meiner Einstellung total daneben oder ist heute "usus"
die benötigten Informationen einfach per Mouseclick auf's Handy
zu holen um als "Laie" eine doch relativ anspruchsvolle AS/400(Iseries),(i5???)
zu verwalten?


Jede Schelte an den : --> joe