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

You had duplicate field names.  The names from the file were PT.PAGE,
PT.etc.., and the names from your data structure were also, because of
the QUALIFIED keyword, named PT.PAGE, PT.etc.

At least, that would be my guess.  


On Tue, 25 Jan 2005 18:02:28 -0600, Tom Hightower <tomh5480@xxxxxxxxx> wrote:
> Customer has a database, and one of the fields in it is called PAGE
> (Patient Age) (3 digits, 0 decimal), and yes that is a reserved word.
> I'm just trying out different ways of getting to it.  My source example
> is one way that another list member suggested I try. I can use
> prefixing, without the dot or qualified DS, and it works.
> 
> But back to my original question - why did my example program fail to
> compile?
> 
> 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:
> >
> >
> >
> >
> > 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.
> 
> 


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