A-M baby

Task/Introspection/REXX/introspection-1.rexx

@@ -0,0 +1,5 @@
+           /*output from parse version (almost all REXX versions)  */
+           /*      theREXXinterpreterName level mm Mon yyyy        */
+
+parse version . level .
+if level<4 then exit

Task/Introspection/REXX/introspection-2.rexx

@@ -0,0 +1,7 @@
+parse version x 1 whatLang level mm mon yyyy .
+if level<4 then do
+                say
+                say 'version' level "is too old!"
+                say x       /*this displays everything.*/
+                exit        /*or maybe:   EXIT 13      */
+                end

Task/Introspection/REXX/introspection-3.rexx

@@ -0,0 +1 @@
+if symbol('bloop')=='VAR' then say 'the "bloop" variable exists.'

Task/Introspection/REXX/introspection-4.rexx

@@ -0,0 +1,2 @@
+if symbol('bloop')=='VAR' then say 'the "bloop" variable exists.'
+                          else say 'the "bloop" variable doesn''t exist.'

Task/Introspection/REXX/introspection-5.rexx

@@ -0,0 +1,3 @@
+bloop=47
+if symbol('bloop')=='VAR' then say 'the "bloop" variable exists.'
+                          else say 'the "bloop" variable doesn''t exist.'

Task/Introspection/REXX/introspection-6.rexx

@@ -0,0 +1,2 @@
+bloop=47
+g=abs(bloop)

Task/Introspection/REXX/introspection-7.rexx

@@ -0,0 +1,9 @@
+if testxyz() then say 'function XYZ not found.'
+             else say 'function XYZ was found.'
+exit
+
+testxyz: signal on syntax
+y='XYZ'(123)
+return 0
+
+syntax: return 1