RE: [Security400] Recursively Change IFS Authority

[Martin Rowe <martin@xxxxxxxxxx>]

On Wednesday 16 July 2003 14:56, Wills, Mike N. (TC) wrote:
> Well... my entire job was started at 10:30 last night, and I just
> cancelled it before I wrote this message.
>
> Can you run multiple commands in the do statement so I only have to do
> one iteration??
>
> QSH        CMD('for autfil in $(find /law7d/*); do +
>              system  "CHGOWN OBJ(''"$autfil"'') +
>              NEWOWN(LAWTDADMIN)"; done')
> QSH        CMD('for autfil in $(find /law7d/*); do +
>              system  "CHGAUT OBJ(''"$autfil"'') +
>              AUTL(LAWIFSAUTL)"; done')
> QSH        CMD('for autfil in $(find /law7d/*); do +
>              system  "CHGAUT OBJ(''"$autfil"'') +
>              USER(*PUBLIC) DTAAUT(*AUTL) +
>              OBJAUT(*NONE)"; done')

Hi Mike

There's nothing to stop you writing a small CL that accepts the file path 
as a parm and runs all three commands for you. The system command can 
just as easily be "CALL PGM(MYLIB/MYPGM) PARM(''"$autfil"'')"

Regards, Martin
-- 
martin@xxxxxxxxxx  AIM/Gaim: DBG400dotNet  http://www.dbg400.net   /"\
DBG/400 - DataBase Generation utilities - AS/400 / iSeries Open    \ /
Source free test environment tools and others (file/spool/misc)     X
Debian GNU/Linux | ASCII Ribbon Campaign against HTML mail & news  / \