Was willst du denn da wissen?
Ich arbeite da überhaupt nicht mehr mit GOTO's!

Wie wärs z.B.:

select;
when Condition1;
...
when Condition2;
...
other;
endsl;

In Schleifen kann man dann gerne LEAVE und ITER verwenden, wobei die Ende-Bedingung am Anfang abgefragt werden sollte, sonst klappt Iter nicht:

dow 1=1;
read ...
if %eof();
leave;
endif;

select;
when Condition1;
iter;
when Condition2;
leave;
:
endsl;
:
enddo;

Und wenn dann das Ganze in einer Subroutine ist, gibt's noch den LEAVESR.

Wo ist also dein Problem?