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

http://www-912.ibm.com/supporthome.nsf/document/32244842
There is a part in there about a "limited service for clients who do not 
have a support agreement with IBM".

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





Tom Hightower <tomh5480@xxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
02/14/2005 03:24 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
rpg400-l@xxxxxxxxxxxx
cc

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






Barbara Morris said the following on 2/11/2005 4:27 PM:
> 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.

I first noticed this about a year ago, but it's been no big deal (still 
isn't really) since I use COBOL for most development on this particular 
client's system.  But I had posted another question to the list, and one 
of the responses led me to try the suggested technique to this 'page' 
field problem.

As far as reporting it to IBM: can I do that without a software 
maintenance contract?  If not, I'll need to wait about 3 or 4 months 
until we order our system upgrade (which will include s/w maintenance 
contract, or so I'm told).

Thanks for all the tips!

Tom

-- 
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.