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

["Carel Teijgeler" <coteijgeler@xxxxxxxxx>]

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.