Re: Reading to a DS

["Mike Silvers" <msilvers@xxxxxxxxxxx>]

Barbara,

Thanks for the tip!  I will do that the next time I have a question about a
compiler message.

Mike

----- Original Message -----
From: "Barbara Morris" <bmorris@ca.ibm.com>
To: <rpg400-l@midrange.com>
Sent: Friday, January 10, 2003 4:46 PM
Subject: Re: Reading to a DS


> Mike Silvers wrote:
> >
> > OK.  It is Friday -- finally.  I am having a problem with something that
> > should be simple!  What I am doing is reading a file into a DS.  I am
> > getting a compiler error that tells me that the data structure is not
> > allowed in the operation.  My code is as follows:
> >
> > FPRJ001L5  IF   E           K Disk    ReName(PRJ001R:PRJ001R5)
> > F                                                         Prefix(L5:2)
> > D PRJ001R5DS    E DS                  ExtName(PRJ001L5)
> > D                                                          Prefix(D5:2)
> >  /Free
> >    read prj001R5 PRJ001R5DS;
> >
> > The error is:
> > *RNF7701 30    347 010500  Data structure PRJ001R5DS is not allowed for
the
> > operation.
> >
>
> Mike, whenever you don't understand a compiler error message, try
> recompiling with OPTION(*SECLVL).  Then you can see the message help in
> the message summary.
>
> Message . . . . :   The data structure is not allowed for the
> operation.
> Cause . . . . . :   For operation codes CHAIN, READ, READC, READE,
> READP,
>   READPE, and UPDATE, the data structure does not consist of the input
> fields
>   of the specified file. For operation code WRITE, the data structure
> does not
>   consist of the output fields of the specified file. The data structure
> is
>
> ignored.
> Recovery  . . . :   For an input operation, define the data structure
> using
>   keyword LIKEREC, with the record name as the first parameter and
> *INPUT as
>   the second parameter. For output operations, code *OUTPUT as the
> second
>   parameter of LIKEREC. Compile again.
>
> FPRJ001L5  IF   E           K Disk    ReName(PRJ001R:PRJ001R5)
> F                                                         Prefix(L5:2)
> D PRJ001R5DS      DS                  LikeRec(PRJ001R5)
>  /Free
>    read prj001R5 PRJ001R5DS;
>    // PRJ001R5DS is qualified, so you would access PRJ001R5DS.fld1,
>    // PRJ001R5DS.fld2 etc.
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo.cgi/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>