RE: IFS permission problem

Yes ... You can use the API's that swap profiles ... 

Here is the sequence of commands that you could use to do this ...

Note: In this example the user will require *USE authority to the profile
that they want to swap to. 

                                                  
CALL       PGM(QSYGETPH) PARM(*CURRENT '*NOPWD    ' +      
             &PRFHDLCUR) /* Needed to swap back .... */    
                                                           
CALL       PGM(QSYGETPH) PARM(&NEWUSER '*NOPWD    ' +      
             &PRFHDL)                                      
MONMSG     MSGID(CPF22E9) EXEC(DO) /* Not enough +         
             authority to SWAP. */                         
MONMSG     MSGID(CPF22E4) EXEC(DO) /* Password expired */
 
CALL       PGM(QWTSETP) PARM(&PRFHDL) /* SWAP */

Do what you want to do here ................

CALL       PGM(QWTSETP) PARM(&PRFHDLCUR) /* Swap back */                 
                                                         

                    

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of
michael@xxxxxxxxxxxxxxxxxx
Sent: Thursday, December 23, 2004 10:59 AM
To: Midrange Systems Technical Discussion
Subject: RE: IFS permission problem


That's true...however, you can change the effective user that's
accessing the file during the time the file is being accessed.

> -------- Original Message --------
> Subject: RE: IFS permission problem
> From: "Graap, Ken" <keg@xxxxxxxxxxxxx>
> Date: Thu, December 23, 2004 1:53 pm
> To: "'Midrange Systems Technical Discussion'" <midrange-l@xxxxxxxxxxxx>
> 
> The permission to any file in the IFS is inherited from the authority set
> for the directory it is put in. Program ADOPTION is not honored in the IFS
> so you will have to assign authorities accordingly....
> 
> -----Original Message-----
> From: midrange-l-bounces+keg=nwnatural.com@xxxxxxxxxxxx
> [mailto:midrange-l-bounces+keg=nwnatural.com@xxxxxxxxxxxx]On Behalf Of
> Bill Heinz
> Sent: Thursday, December 23, 2004 10:34 AM
> To: midrange-l@xxxxxxxxxxxx
> Subject: IFS permission problem
> 
> 
> I have a program that creates a .csv file in the IFS.  The file is 
> created with authorities -rwxrwxrwx.  When I run the program, it works 
> fine.  When the end user runs it, he gets a 3401 error - Permission 
> denied.  I have added authorities for the user, his group, the owner of 
> the program (program adopts authority), and *public with DTAAUT(*RWX) 
> and OBJAUT(*ALL).  The user still gets a 3401 error.  Has anyone run 
> into this and is there a solution?
> 
> If I delete the IFS file, the user can run the program (and rerun the 
> program with no problem), but I get the 3401 error when I run it.
> 
> Thanks
> 
> 
> -- 
> No virus found in this outgoing message.
> Checked by AVG Anti-Virus.
> Version: 7.0.298 / Virus Database: 265.6.4 - Release Date: 12/22/2004
> 
> -- 
> 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.

-- 
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.