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

Yes, it is. But it's a field in the customer's database.

I can change the prefix keyword - prefix('PT') (notice no '.') - remove the qualified datastructure, and it compiles without error. No problem.

But I still wonder why it failed to compile way I had it.

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:
The following reserved words can be used for numbering the pages of a report, for record sequence numbering, or to sequentially number output fields:

PAGE

PAGE1-PAGE7

The database field name will have to be changed.
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