RE: RNF5198 was: (no subject)

Thank everyone for the suggestions to resolve this issue.  

Scott, you are correct about the subject line.  I was thinking about the
wonderful weekend I had with my friend.  She sent a stretch limo to pick
me up at the airport.

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 Scott Klement
Sent: Monday, December 19, 2005 10:10 AM
To: Midrange Systems Technical Discussion
Subject: Re: RNF5198 was: (no subject)


Bruce,

Could you please use a meaningful subject when you post messages to the 
mailing lists?  Since not everyone has time to read every message, it's 
helpful to be able to narrow things down to the topics they're
interested 
in.

In this case, this question (once given a meaningful subject) should be 
posted to the RPG400-L mailing list since it's about RPG.  With that in 
mind, I'll reply to it on that list.  I'll CC you in case you're not 
subscribed.


On Mon, 19 Dec 2005, 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