Nun, auch wenn es unüblich ist, geht das mit GOTO und "LABEL TAG", oder, was ich auch schon mal mache:

do while 1=1;
monitor;
tuwas;
on-error *all;
if wiederholbar;
iter;
endif;
leave;
endmon;
leave;
enddo;


So ist das nun mal mit RPG.
In C++/Java fragt auch keiner danach, da sieht das denn so aus:

try {
tuwas;
} catch (Exception e) {
} finally {
};

Da habe ich noch nicht mal die Chance, in den Try-Block hineinzuspringen, deshalb gibts da gleich solche Wege:

int step = 0;
while (1) {
try {
switch (step) {
case 0:
mach 1;
step=1;
case 1:
mach 2;
step=2;
else;
mach ende;
leave;
} // end switch
} catch (exception e) {
if (reproduzierbar) {
step--;
} else {
throw e;
}
} // end catch
} // end while