Sync

Task/Variables/REXX/variables-2.rexx

@@ -10,3 +10,12 @@ parse var xxx   nn oo pp qq rr
                                        /*assigns    333    ───►  PP     */
                                        /*assigns     ─5    ───►  QQ     */
                                        /*assigns   "null"  ───►  RR     */
+
+cat = 'A cat is a lion in a jungle of small bushes.'
+                                       /*assigns a literal ───►  CAT    */
+
+call value 'CAT', "When the cat's away, the mice will play."
+                                       /*assigns a literal ───►  CAT    */
+yyy='CAT'
+call value yyy, "Honest as the Cat when the meat's out of reach."
+                                       /*assigns a literal ───►  CAT    */

Task/Variables/REXX/variables-3.rexx

@@ -8,12 +8,12 @@ say xxx 'or somesuch'
 exit
 
 novalue:                               /*this can be dressed up better. */
-badLine  =sigl                         /*REXX statement num that failed.*/
-badSource=sourceline(badLine)          /*REXX source statement ···      */
+badLine  =sigl                         /*REXX line number that failed.  */
+badSource=sourceline(badLine)          /*REXX source line ···           */
 badVar   =condition('D')               /*REXX var name that's ¬ defined.*/
 say
 say '*** error! ***'
-say 'undefined variable' badvar "at REXX statement number" badLine
+say 'undefined variable' badvar "at REXX line number" badLine
 say
 say badSource
 say

Task/Variables/REXX/variables-4.rexx

@@ -0,0 +1,7 @@
+var.='something' /* sets all possible compound variables of stem var. */
+x='3 '
+var.x.x.4='something else'
+Do i=1 To 5
+  a=left(i,2)
+  Say i var.a.a.4 "(tail is '"a||'.'||a||'.'||'4'"')"
+  End