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

In that case, try leaving the prefix keyword with the underscore on
the file spec (like Carel said), and then, in the program, do a read,
specifying the PT data structure

READ PATMST PT;

and see if it works.  


On Tue, 25 Jan 2005 17:33:45 -0600, Ross Hartford
<ross.hartford@xxxxxxxxxxx> wrote:
> 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.
> 
> --
> 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.
> 
> 


-- 
"Enter any 11-digit prime number to continue..."