I also work on a PICK system that doesn't have EXIT, and while I had hoped
that this would work there, it doesn't compile saying the LOOP stmt is
invalid

   :(

PERFORM 'SELECT ORDER.BACK'
LOOP WHILE READNEXT ID
  PRINT ID:;INPUT WAIT
REPEAT
STOP

Ah shucks......

It did work nicely on Unidata though.... :)
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of gerry-u2ug
Sent: Monday, July 25, 2005 13:03
To: [email protected]
Subject: RE: [U2] [UV] Select Question


loop while readnext ID
   blah blah blah
repeat


-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of
[EMAIL PROTECTED]
Sent: Monday, July 25, 2005 12:18 PM
To: [email protected]
Subject: RE: [U2] [UV] Select Question


I can NAME THAT TUNE in *** 2 *** notes:

LOOP WHILE READNEXT ID DO
   blah blah blah
REPEAT

;)



-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Martin Phillips
Sent: Monday, July 25, 2005 10:59 AM
To: [email protected]
Subject: Re: [U2] [UV] Select Question

> > > >>     READNEXT ID FROM LIST ELSE ID = @AM
> > > >But why do you use an odd convention like ID = @AM ?
> >
> > because it would be impossible for ID to be an attribute mark via
> > readnext.
> > If you later test for ([EMAIL PROTECTED]) there's only one way that could 
> > have
> > happened.

Of course, in most programs it might be clearer to write

LOOP
   READNEXT ID FROM LIST ELSE EXIT
   blah blah blah
REPEAT

rather than testing a amgic valid of ID.


Martin Phillips
Ladybridge Systems
17b Coldstream Lane, Hardingstone, Northampton NN4 6DB
+44-(0)1604-709200
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/

Reply via email to