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

[Tom Hightower <tomh5480@xxxxxxxxx>]

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.