RE: RNF5198 -- MIDRANGE-L

You are correct someone did beat you to the punch, but you ARE
RIGHT!!!!!
Happy Christmas to everyone.

Bruce Barrett

This e-mail is confidential and may be privileged. If you are not the
intended recipient, please destroy this message and notify the sender.


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Douglas W. Palme
Sent: Monday, December 19, 2005 10:35 AM
To: Midrange Systems Technical Discussion
Subject: Re: (no subject)

Hey I think I know this one LOL....at least for me, when I see this it
is 
usually because I did not declare the F spec for UPDATE.

First time I got to answer one, now watch, someone else will beat me to
the 
punch.



On Mon, 19 Dec 2005 09:58:07 -0800, Bruce Barrett wrote
> I received this question in an email from one of our developers.  I
have
> verified the profile has the correct authority to do the update, but 
> I can not seem to locate the cause of the error message.  I even 
> went so far as to give *PUBLIC all authority to the file. Where can 
> I find information on the error code?
> 
> *RNF5198 30      1 File in Factor 2 is not allowed for UPDATE or
DELETE
>                    operation.
> 
> Here is the code:
> 
> 86 C                   Read(E)   ISPFPSO           
> 87 C                   DoW       NOT %EOF          
> 88  *                                              
> 89 C                   If        ENTXSO = *BLANKS  
> 90 C     KPSDX         Chain(E)  ISPSDX0           
> 91 C                   If        NOT %ERROR        
> 92 C                   Eval      ENTXSO = ENTXSX   
> 93 C                   Update(e) ISPSO00           
> 94 C                   Endif                       
> 95 C                   Endif                       
> 96  *                                              
> 97 C                   Read(E)   ISPFPSO           
> 98 C                   EndDo
> 
> Here is the authority I found for the file:
> 
>                             Display Object Authority
> 
>  Object . . . . . . . :   ISPFPSO         Owner  . . . . . . . :
ISPRD
> 
>    Library  . . . . . :     xxxxxxxx      Primary group  . . . :
*NONE
> 
>  Object type  . . . . :   *FILE           ASP device . . . . . :
> *SYSBAS
> 
>  Object secured by authorization list  . . . . . . . . . . . . :
> PRDDTA
> 
>                           Object    ----------Object-----------
> 
>  User        Group       Authority  Opr  Mgt  Exist  Alter  Ref
> 
>  *GROUP      ISPRD       *ALL        X    X     X      X     X
> 
>  *PUBLIC                 *USE        X
> 
> Bruce Barrett
> PMI Mortgage Insurance Co.
> 3003 Oak Road
> Walnut Creek, CA 94597
> 925-658-6152
> bruce.barrett@xxxxxxxxxxxx
> 
> This e-mail is confidential and may be privileged. If you are not the
> intended recipient, please destroy this message and notify the sender.
> 
> -- 
> 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.


If you bought it, it was hauled by a truck - somewhere, sometime.