Re: Reading to a DS

["David Dunfield" <ddunfie@xxxxxxxxxxxx>]

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