Re: *autl to all files in IFS folder

Thanks, Wayne.

I am using the CHGAUTALL utility 800 times in a cl (once per folder).  Each time
CHGAUTALL runs it requires the operator (me) to press enter to end the terminal
session.  

Surprise!  I don't want to be around doing that.

Ideas?

Jerry

Quoting Wayne McAlpine <wayne.mcalpine@xxxxxxxxxxxxxxxxx>:

> The CHGAUTALL utility is available from IBM on an as-is basis to do what 
> you want.  It is part of the IFSTOOL library.
> 
> Here's a link:
> 
>
http://www-912.ibm.com/s_dir/slkbase.nsf/0/3976fed8ab10134b862568b60071ccd3?OpenDocument
> 
> 
> Martin Rowe wrote:
> > On 13/10/05, Jerry Draper <midrangel@xxxxxxxxxxxxx> wrote:
> > 
> >>
> >>I need to assign an *autl to all files in IFS folder including the folder
> itself
> >>recursively.
> >>
> >>This would be like a chmod -R * .
> >>
> >>This relates to moving OnDemand Content Manager *stmf from one AS400 to
> >>another.
> > 
> > 
> > Hi Jerry
> > 
> > This is a quick hack I put together when I needed to do the same a few
> > years back. It has worked fine until yesterday, when trying it on a
> > directory with a very large (1000s) of subdirectories that were being
> > added to by an FTP job at the time - that confused it. If the contents
> > are semi-static you should be fine.
> > 
> > Regards, Martin
> > 
> >
>
------------------------------------------8<--------------------------------------------------
> > PGM        PARM(&TOPDIR &AUTL)
> >   DCL        VAR(&TOPDIR) TYPE(*CHAR) LEN(512)
> >   DCL        VAR(&DIR) TYPE(*CHAR) LEN(512)
> >   DCL        VAR(&CMD) TYPE(*CHAR) LEN(512)
> >   DCL        VAR(&AUTL) TYPE(*CHAR) LEN(10)
> >   DCLF       FILE(IFSLIST) RCDFMT(IFSLIST)
> >   CHGAUT     OBJ(&TOPDIR) AUTL(&AUTL)
> >   CHGAUT     OBJ(&TOPDIR) USER(*PUBLIC) DTAAUT(*AUTL) +
> >                OBJAUT(*NONE)
> >   CRTPF      FILE(QTEMP/IFSLIST) RCDLEN(512)
> >   MONMSG     MSGID(CPF7302) EXEC(CLRPFM FILE(QTEMP/IFSLIST))
> >   OVRDBF     FILE(STDOUT) TOFILE(QTEMP/IFSLIST)
> >   OVRDBF     FILE(IFSLIST) TOFILE(QTEMP/IFSLIST)
> >   CHGVAR     VAR(&CMD) VALUE('find ' *TCAT +
> >                &TOPDIR *TCAT ' -type d -exec ls -d {} \;')
> >   QSH        CMD(&CMD)
> > READLOOP:
> >   MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(ENDPGM))
> >   CHGVAR     VAR(&DIR) VALUE(&IFSLIST *TCAT '/*')
> >   CHGAUT     OBJ(&DIR) AUTL(&AUTL)
> >   MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(READLOOP))
> >   CHGAUT     OBJ(&DIR) USER(*PUBLIC) DTAAUT(*AUTL) +
> >                OBJAUT(*NONE)
> >   GOTO       CMDLBL(READLOOP)
> > ENDPGM:
> >   RETURN
> > ENDPGM
> >
>
-----------------------------------------8<---------------------------------------
> > 
> > --
> > martin@xxxxxxxxxx  AIM/Gaim: DBG400dotNet  http://www.dbg400.net   /"\
> > DBG/400 - AS/400 & iSeries Open Source/Free Software utilities     \ /
> > Debian GNU/Linux | ASCII Ribbon Campaign against HTML mail & news   X
> > 
> 
> -- 
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
> 
>