Re: *autl to all files in IFS folder

Is it using QShell under the covers? I think there is an environment variable 
to control this. You might go find the QShell manual at InfoCenter  and check. 

If it is using PASE, same thing applies - there is something that will change 
this.

-------------- Original message -------------- 

> 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 : 
> 
> > 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?Open
>  
> Document 
> > 
> > 
> > Martin Rowe wrote: 
> > > On 13/10/05, Jerry Draper 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. 
> > 
> > 
> 
> 
> -- 
> 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. 
>