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

[Barbara Morris <bmorris@xxxxxxxxxx>]

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.