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

[Tony Carolla <carolla@xxxxxxxxx>]

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