LEAVE - Schleife verlassen

REXX Instruktionen

Syntax:                                 
LEAVE   <Variable>

/* REXX LEAVE Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
d = 10
c = 25
g.1 = 'REXX'
g.2 = 'TSOISPF'
g.3 = 'KURS'
  /* */
  /* */
DO i=1 TO 3          /* 3malige Ausfuehrung, von 1 bis 3 */
  SAY g.i            /* Ausgabe: REXX, TSOISPF           */
  IF i=2 THEN LEAVE
END
  /* */
DO UNTIL d=c         /* bis d = c                        */
  d = d + 1          /* Ausgabe: 11, 12, 13, 14 und 15   */
  if d > 15 THEN LEAVE
  SAY d
END
  /* */
DO d=25 TO 22 BY -1  /* 4malige Ausfuehrung, von 25 bis 22 um -1 */
  SAY d              /* 25, 24 und 23                            */
  DO u=1 TO 5           /* pro d Schleife 5malige Ausfuehrung */
    SAY u*d             /* Ausgabe: 25, 50, 75, 100 und 125   */
                        /*          24, 48, 72, 96 und 120    */
                        /*          23 und 46                 */
    if d=23 & u=2 THEN LEAVE d  /* d=23 und u=2, d Schleife verlassen */
  END
END
  /* */