RE: RNF5198 -- MIDRANGE-L

Figures, I am always too slow, but hey, I got it right which is better than 
being first and getting it WRONG LOL


On Mon, 19 Dec 2005 10:44:39 -0800, Bruce Barrett wrote
> 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.
> 
> -- 
> 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.


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