Data commit

Task/Jump-anywhere/REXX/jump-anywhere-1.rexx

@@ -0,0 +1,19 @@
+/*REXX pgm demonstrates various jumps (GOTOs).  In REXX, it's a SIGNAL. */
+say 'starting...'
+signal aJump
+say 'this statement is never executed.'
+
+aJump:  say 'and here we are at aJump.'
+                                           do j=1  to 10
+                                           say  'j=' j
+                                           if j==7 then signal bJump
+                                           end  /*j*/
+bJump:  say 'and here we are at bJump.'
+
+signal cJump
+say 'this statement is never executed.'
+                                           do k=1 to 10
+                                           say 'k=' k
+                                   cJump:  say 'and here we are at cJump.'
+                                           exit
+                                           end  /*k*/

Task/Jump-anywhere/REXX/jump-anywhere-2.rexx

@@ -0,0 +1,11 @@
+i=13
+signal label
+say 'This is never executed'
+sub: Procedure Expose i
+  Do i=1 To 10;
+label:
+    Say 'label reached, i='i
+    Signal real_start
+    End
+  Return
+ real_start:

Task/Jump-anywhere/REXX/jump-anywhere-3.rexx

@@ -0,0 +1,17 @@
+/* REXX ***************************************************************
+* 12.12.2012 Walter Pachl
+**********************************************************************/
+Signal On Syntax
+Parse Upper Arg part
+If part<>'' Then
+  Interpret 'Signal' part
+  Say 'Executing default part'
+  Signal eoj
+a:Say 'executing part A'
+  Signal eoj
+b:Say 'executing part B'
+  Signal eoj
+Syntax:
+  Say 'argument must be a or b or omitted'
+  Exit
+eoj: say 'here we could print statistics'