Re: RNF7701 - Data structure not allowed

[Rich Duzenbury <rduz-midrange@xxxxxxxxxxxxxxxxxxx>]

On Wed, 2005-12-07 at 14:34 -0800, Tony Carolla wrote:
> I have accomplished what you are doing with I/O and data structs, exactly
> the same way you are doing it.  I have seen similar issues when using the
> file name on the READ, rather than the format name, but it looks like you
> are using the format name.  So here's an idea... Try using the file name on
> the READP.  Other than that, like Tim suggested, use LIKEREC on the DS
> instead.
I failed to mention that I'd tried by file and by record.
> 
> Of course, encapsulation would prefer you to place the Q data structure
> inside the subproc that needs it (private), but that is just a matter of
> preference, and won't cause a compile error.  I have become more militant
> about such things in my own coding since I have learned java ;-)
That's the plan, but I didn't want it to confuse the issue.

> 
> On 12/7/05, Rich Duzenbury <rduz-midrange@xxxxxxxxxxxxxxxxxxx> wrote:
> >
> > Hi all,
> >
> > I'm getting a compile error on what looks like OK code to me.  I've
> > stripped the program down as small as possible to demonstrate the error,
> > which happens to occur on a V5R2 machine.
> >
> > What I want to do is load the WMERLG record format fields, then, locate
> > the highest EID in the file, add one to it, and attempt to use it for
> > the new record key.  I don't want the 'next_eid' routine to clobber the
> > E* fields, hence the need for reading into a data structure.
> >
> > Here is the file, WMERLGP:
> >      A                                      UNIQUE
> >      A          R WMERLG
> >      A            EID           11P 0
> >      A            EACCT#        11P 0
> >      A            EAPLNM        20A
> >      A            EAPFNM        12A
> >      A            EAPITL         1A
> >      A            EVISDT          Z
> >      A            EREVDT          Z
> >      A            EUSRID        10A
> >      A            ERSTS          1A
> >      A          K EID
> >
> > And the code:
> >      H dftactgrp(*no) actgrp(*caller)
> >      H OPTION(*SRCSTMT:*NODEBUGIO)
> >
> >      FWMERLGP   if a e           k disk
> >
> >      d Q             e DS
> > EXTNAME(WMERLGP:WMERLG:*INPUT)
> >      d                                     QUALIFIED
> >
> >      d next_eid        pr            11s 0
> >      d $err            s               n
> >
> >       /free
> >          $err = '0';
> >          dow $err = '0';
> >              EID = next_eid();
> >              write(e) WMERLG;
> >              $err = %error;
> >          enddo;
> >          *inlr = '1';
> >       /end-free
> >
> >      p next_eid        b
> >      d next_eid        pi            11s 0
> >
> >      d result          s             11s 0
> >
> >       /free
> >          setgt *hival wmerlgp;
> >          // read into a ds so as not to disturb the
> >          // global file fields
> >          readp wmerlg Q;
> >      // RNF7701 here!
> >          if %eof(wmerlgp);
> >              result = 1;
> >          else;
> >              result = q.eid + 1;
> >          endif;
> >          return result;
> >       /end-free
> >      p                 e
> >
> >
> > The error is RNF7701, 'Data structure is not allowed for the operation',
> > and lists the line of code that does 'readp wmerlg Q'.
> >
> > I've tried EXTNAME(WMERLGP), EXTNAME(WMERLGP:*INPUT),
> > EXTNAME(WMERLGP:*OUTPUT) and also with and without the 'QUALIFIED',
> > still get the error.
> >
> > PS - I tried to put the code on the code.midrange.com app
> > (http://code.midrange.com), but I receive the following error, 'Access
> > denied for user 'nopaste'@'localhost' (using password: YES)'
> >
> > If you have any ideas, let me know, please.
> >
> > Thanks.
> >
> > Regards,
> > Rich
> >
> >
> > --
> > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> > To post a message email: RPG400-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: RPG400-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/rpg400-l.
> >
> >
> 
> 
> --
> "Enter any 11-digit prime number to continue..."
> "In Hebrew SQL, how do you use right() and left()?..." - Random Thought
> "If all you have is a hammer, all your problems begin to look like nails"
> -- 
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>