|
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
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.