Re: How do I use a field called "PAGE" in a database?

Tom Hightower wrote:

Customer has a patient records database.  One of the fields is called
"PAGE" (Patient Age).

Since "PAGE" is a reserved-field in RPG, I'm having a bit of trouble.
I've tried prefixing, and renaming the field in I-specs, but neither of
those techniques helped.

Tom, both I-spec renaming and PREFIX work for me.  Did you still get
compiler errors using those, or did it cause some other problem?

Sorry it's taken so long to respond.

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

Here's the DDS for the file:

      A****************************************************************
      A*    PATIENT MASTER FILE
      A                                      UNIQUE
      A          R PATMSTR                   TEXT('PATIENT MASTER')
      A            PATNUM         9
      A            PAGE           3  0
      A            FNAME         20
      A            LNAME         30
      A*
      A          K PATNUM
 ****************** End of data ****************************************

Here's the compile listing:

Tom