Code-How to stop a procedure

[Sadoscar]

Hi every body.
look at this code
Set(File1,1)
Loop until eof(File1)
......
Instructions
.......
End

After bigining of this code i realise that there is a variable that was not specified.
I'd like to stop a procedure when a Loop.......End code is runing.
Is there a way to stop it.
Regards
Sad

 

[ShankarJ]

Hi Sad,

The way to come out of a LOOP is to use the BREAK statement. A CYCLE returns to the start of the LOOP.

LOOP
NEXT(File)
IF ERRORCODE() THEN BREAK.
IF <breakcondition> THEN BREAK.
IF <cyclecondition> THEN CYCLE.
....
END

Also using LOOP UNTIL EOF(File) is bad for performance. Use

LOOP
NEXT(File)
IF ERRORCODE() THEN BREAK.
....
END

instead.

Regards