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

I think you confused the compiler by having the prefix(PT.) on the file and a 
qualified DS named PT.

The results of having PREFIX(PT.) and a qualified DS named PT is you have two 
variables named PT.PAGE.  One in the file, one in the DS.

If your trying to have the data in the file end up in the DS, you don't have to 
have the names alike.  

fPATMST    if   e           k disk    prefix('PT.')          
d Patient         ds                  likerec(patmstr)       
                                                             
  /free                                                      
   read PATMST Patient;                                  
   if Patient.PAGE > 65;                                     
     *inlr = *inlr;                                          
   endif;                                                    
   *inlr = *on;                                              
  /end-free                                                  


HTH,
 

Charles Wilt
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
 

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Tom Hightower
> Sent: Tuesday, January 25, 2005 7:45 PM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: Re: "Compilation stopped. Internal failure occurred. 
> Error Code
> is 1."
> 
> 
> Yes, it is. But it's a field in the customer's database.
> 
> I can change the prefix keyword - prefix('PT') (notice no 
> '.') - remove 
> the qualified datastructure, and it compiles without error. 
> No problem.
> 
> But I still wonder why it failed to compile way I had it.
> 
> 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:
> > 
> > The following reserved words can be used for numbering the 
> pages of a
> > report, for record sequence numbering, or to sequentially 
> number output
> > fields: 
> > 
> > PAGE 
> > 
> > PAGE1-PAGE7 
> > 
> > The database field name will have to be changed. 
> > 
> > 
> > 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.
> 
>