Re: "Compilation stopped. Internal failure occurred. Error Code is 1." -- RPG400-L

Customer has a database, and one of the fields in it is called PAGE (Patient Age) (3 digits, 0 decimal), and yes that is a reserved word. I'm just trying out different ways of getting to it. My source example is one way that another list member suggested I try. I can use prefixing, without the dot or qualified DS, and it works.

But back to my original question - why did my example program fail to compile?

Tom

Ross Hartford said the following on 1/25/2005 5:33 PM:

Isn't PAGE a reserved word in RPG and has a very specific function?
From the ILE RPG reference manual:
Ross Hartford
Cothern Computer Systems, Inc.
1640 Lelia Drive, Suite 200
Jackson, MS  39216
Phone:     601-718-0803
Fax:       601-969-1184
Support:   888-222-5577
email: rossh@xxxxxxxxxxx website: www.ccslink.com -----Original Message----- From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Tom Hightower Sent: Tuesday, January 25, 2005 5:18 PM To: rpg400-l@xxxxxxxxxxxx Subject: Re: "Compilation stopped. Internal failure occurred. Error Code is 1."

If I replace the prefix('PT.') with prefix('PT_') it does compile, but the data record isn't read into the qualified 'PT' datastructure.
Tom
Carel Teijgeler said the following on 1/25/2005 3:04 PM:
Tom,
Is this not a name checking error? Theprefix contains a dot. If you
replace it with an underscore, will it compile then?
Regards,
Carel Teijgeler
*********** REPLY SEPARATOR  ***********
On 25-1-05 at 11:40 Tom Hightower wrote:
(OS/400 V5R2)
Here's the full source of a failing test program:
fPATMST    if   e           k disk    prefix('PT.')
dPT             e ds                  extname(patmst) qualified
/free
if PT.PAGE > 65;
  *inlr = *inlr;
endif;
*inlr = *on;
/end-free
The compile is failing at this point:
  65=IPTREC
      *--------------------------------------------------------
      * Data structure . . . . . . :  PT
      * External format  . . . . . :  PTREC : FILES/PATMST
      * Format text  . . . . . . . :  PATIENT MASTER
      *--------------------------------------------------------
<snipped several fields>
  74=I                             P   48   49 0PT.PAGE
(there are other fields after this one defined in the file, but the compile stops at this field)
This is the error message on the compile listing:
Compilation stopped. Internal failure occurred. Error code is 1.
Am I missing a PTF?
Tom