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

Tom Hightower wrote:

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;
... dsply patient.page;
...

Tom, I don't get the internal error on either V5R2 or V5R3 (I just get a
message saying PATIENT.PAGE is not valid). Make sure you're up to date
on PTFS. The latest RPG-compiler PTFS: V5R2 SI16938, V5R3: SI16953. But that will just get you a nicer error message.

You have to do both D spec and I spec rename.  And note the *input on
the EXTNAME; if you don't code that, the compiler will say the data
structure is not valid.

fpatmsg if e k disk prefix('PATIENT.') dpatient e ds extname(patmst:*input) qualified
D age e extfld(page) Ipatmstr I page patient.age

This will only work in V5R3.  In V5R2, you'd have to use a LIKEREC data
structure, and I can't see a way to make it work with PAGE.  You should
probably report this PAGE problem to IBM.

Looks like I need to order some PTFs.

Thanks for all the tips!

Tom