|
Tom, I see you stillgot the same problem and a qualified DS doesnot work. I think the PGM (compiler) stills sees the field "PAGE" as the reserved field "PAGE". Therefore it will not compile. A simpler and old solution is (as Mark suggested) to prefix the F-specs of the file _and_ the external described DS based on the same file (If you want to use the DS). Use the same prefix. Read a record from the file and the DS is also filled. This principle works since RPG III. Regards, Carel Teijgeler. *********** REPLY SEPARATOR *********** On 11-2-05 at 15:11 Tom Hightower wrote: >>>Customer has a patient records database. One of the fields is called "PAGE" >>>(Patient Age). >>> >I get a compiler error with this program: > >fpatmst if e k disk prefix('PATIENT.') >dpatient e ds extname(patmst) qualified > /free > read(e) patmst patient; > if not %error() and not %eof(); > dow not %eof(); > dsply patient.page; > read(e) patmst patient; > enddo; > endif; > *inlr = *on; > /end-free > > 3 dpatient e ds extname(patmst) qualified > 4 > 5 /free >*--------------------------------------------------------------------- > * Data structure . . . . . . : PATIENT > * External format . . . . . : PATMSTR : TOM/PATMST >*--------------------------------------------------------------------- > 6=D PATNUM 9A > 7=D PAGE 3P 0 > 8=D FNAME 20A > 9=D LNAME 30A > 10=IPATMSTR >*--------------------------------------------------------------------- > * RPG record format . . . . : PATMSTR > * Prefix . . . . . . . . . . : PATIENT. : 0 > * External format . . . . . : PATMSTR : TOM/PATMST >*--------------------------------------------------------------------- > 11=I A 1 9 PATIENT.PATNUM > 12=I P 10 11 0PATIENT.PAGE >Compilation stopped. Internal failure occurred. Error code is 1.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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 copyright@midrange.com.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.