[NEWSboard IBMi Forum]
  1. #1
    Registriert seit
    Apr 2003
    Beiträge
    176

    Question GELÖST: IFS-CHGOWN

    Hallo allerseits,

    gibt es eine einfache Möglichkeit den Eigner eines IFS-Verzeichnisses zu ändern inklusive aller Unterordner?

    Danke schon mal für Rückmeldungen.

    LG
    Franz-Georg
    Geändert von FNeurieser (22-06-20 um 11:40 Uhr) Grund: GELÖST

  2. #2
    Registriert seit
    Jun 2001
    Beiträge
    1.717
    /Meinikat *CAT &LIB durch deinen Pfad ersetzen
    Code:
                 PGM (&USR &LIB)                                                    
                 DCL        VAR(&USR) TYPE(*CHAR) LEN(10)                    
                 DCL        VAR(&LIB) TYPE(*CHAR) LEN(10)                    
                 DCL        VAR(&QSHC) TYPE(*CHAR) LEN(25)                   
                 DCLF QTEMP/T_IFS                                            
    
                 CRTPF QTEMP/T_IFS  RCDLEN(1000)                             
                 CHGVAR     VAR(&QSHC) VALUE('FIND /MEINIKAT/' *CAT &LIB)    
                 OVRDBF     FILE(STDOUT) TOFILE(QTEMP/T_IFS) OVRSCOPE(*JOB)  
                 STRQSH CMD(&QSHC)                                           
                 DLTOVR     FILE(STDOUT) LVL(*JOB)                           
                 OVRDBF DATEI QTEMP/T_IFS                                    
     START:      RCVF                                                        
                 MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(ENDE))           
                 CHGOWN &T_IFS NEWOWN(&USR)                                  
                 GOTO START                                                  
     ENDE:       DLTOVR     FILE(DATEI)
    Robi
    Interessante Umfrage zur Nutzung der AS/400

  3. #3
    Registriert seit
    Apr 2003
    Beiträge
    176
    Danke, funktioniert super!

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •