Re: Reading to a DS

["Mike Silvers" <msilvers@xxxxxxxxxxx>]

Just like magic, it worked!  lol

Thanks for your response.

Mike

----- Original Message -----
From: "David Dunfield" <ddunfie@net-link.net>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@midrange.com>
Sent: Friday, January 10, 2003 7:40 AM
Subject: Re: Reading to a DS


> As coded you worjld need to define a second data structure for the file
> record with the same prefix. You could then eval from the input
> sturcture to the DS you have defined.
>
> FPRJ001L5  IF   E           K Disk    ReName(PRJ001R:PRJ001R5
> F                                                         Prefix(L5:2
> DPRJ001R5IS    E DS                  ExtName(PRJ001L5)
> D                                                          Prefix(L5:2)
> DPRJ001R5DS    E DS                  ExtName(PRJ001L5)
> D                                                          Prefix(D5:2)
> >
> >  /Free
> >
> >    ...
> >
> >    eval PRJ001R5DS PRJ001R5IS
> >
> >    ...
> >
> >  /End-Free
>
>
>
> > 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;
> >
> >    ...
> >
> >  /End-Free
> >
> > The error is:
> > *RNF7701 30    347 010500  Data structure PRJ001R5DS is not allowed
> for the
> > operation.
> >
> > Any ideas?
> >
> > Thanks
> >
> > Mike
> >
> >
> > =======================================
> > Mike Silvers
> > Senior Programmer/Analyst
> > IBM Certified Expert
> > Hainey Business Systems
> > Main Office:  (717) 718-9601 ext 237
> > Branch Office:  (410) 397-8739
> > http://www.hbs-inc.com
> > =======================================
> >
> >
> > _______________________________________________
> > 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.
> >
> >
>
> Dave Dunfield
> Midwest Integrated Systems Resources
> AS/400  and LANSA Expert
> PO Box 1481
> Portage, MI 49081
>
> Phone-269-373-3049 Cell 269-501-5685
>
> _______________________________________________
> 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.
>
>