RE: "Compilation stopped. Internal failure occurred. Error Code is 1."

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

-- 
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.