Re: "Compilation stopped. Internal failure occurred. Error Codeis1."

Tom,

 You're missing the key on the READE:

   read(e) key patmst patient;

 -mark

Barbara Morris said the following on 1/26/2005 2:48 PM:

"Wilt, Charles" wrote:

Thanks for the correction Barbara.

But, I'm not sure I see the point....was this added before the LIKEREC keyword?

Yes, it was added in V5R1, before you could do I/O to
externally-described files with a DS in the result field.

I have this sample code on a V5R2 system.  Am I doing the "read" 
incorrectly?

 * Record format name=PATMSTR
fpatmst    if   e           k disk

dpatient        e ds                  extname(patmst) qualified
d                                     prefix('@')

 /free
   read(e) patmst patient;
   if not %error() and not %eof();
     dow not %eof();
       dsply patient.@page;
       read(e) patmst patient;
     enddo;
   endif;
   *inlr = *on;
 /end-free

The program is failing to compile with the following messages:

*RNF5155 20 16 000700 The Result-Field operand is not allowed for specified operation.
*RNF5155 20 20 001100 The Result-Field operand is not allowed for specified operation.

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