Data update

Task/Associative-array-Creation/REXX/associative-array-creation-1.rexx

@@ -1,10 +0,0 @@
-/* Rexx */
-
-key0 = '0'
-key1 = 'key0'
-
-stem. = '.'                    /* Initialize the associative array 'stem' to '.' */
-stem.key1 = 'value0'           /* Set a specific key/value pair                  */
-
-Say 'stem.key0= 'stem.key  /* Display a value for a key that wasn't set */
-Say 'stem.key1= 'stem.key1 /* Display a value for a key that was set    */

Task/Associative-array-Creation/REXX/associative-array-creation-2.rexx

@@ -1,27 +0,0 @@
-/*REXX program shows how to set/display values for an associative array.*/
-/*┌────────────────────────────────────────────────────────────────────┐
-  │ The (below) two REXX statements aren't really necessary, but it    │
-  │ shows how to define any and all entries in a associative array so  │
-  │ that if a "key" is used that isn't defined, it can be displayed to │
-  │ indicate such, or its value can be checked to determine if a       │
-  │ particular associative array element has been set (defined).       │
-  └────────────────────────────────────────────────────────────────────┘*/
-stateC.=' [not defined yet] '          /*sets any/all state capitols.   */
-stateN.=' [not defined yet] '          /*sets any/all state names.      */
-/*┌────────────────────────────────────────────────────────────────────┐
-  │ In REXX, when a "key" is used, it's normally stored (internally)   │
-  │ as uppercase characters (as in the examples below).  Actually, any │
-  │ characters can be used,  including blank(s) and non-displayable    │
-  │ characters  (including '00'x, 'ff'x, commas, periods, quotes, ...).│
-  └────────────────────────────────────────────────────────────────────┘*/
-stateC.ca='Sacramento'; stateN.ca='California'
-stateC.nd='Bismarck'  ; stateN.nd='North Dakota'
-stateC.mn='St. Paul'  ; stateN.mn='Minnesota'
-stateC.dc='Washington'; stateN.dc='District of Columbia'
-stateC.ri='Providence'; stateN.ri='Rhode Island and Providence Plantations'
-
-say 'capital of California is' stateC.ca
-say 'capital of Oklahoma is' stateC.ok
-yyy='RI'
-say 'capital of' stateN.yyy "is" stateC.yyy
-                                       /*stick a fork in it, we're done.*/

Task/Associative-array-Creation/REXX/associative-array-creation.rexx

@@ -0,0 +1,54 @@
+-- 8 Aug 2025
+include Settings
+
+say 'ASSOCIATIVE ARRAY: CREATION'
+say version
+say
+say 'Basic examples...'
+cap.='Unknown'
+cap.be='Brussels'
+cap.fr='Paris'
+cap.uk='London'
+call Capital 'BE'
+call Capital 'UK'
+call Capital 'NO'
+day.='Unknown'; week.=day.
+day.jan.2=2; week.jan.2=1
+day.mar.17=76; week.mar.17=12
+day.aug.7=219; week.aug.7=32
+call Calendar 'JAN',2
+call Calendar 'AUG',7
+call Calendar 'MAY',16
+say
+say 'Keys can have any value...'
+a.cat='civet'; say 'a.cat =' a.cat
+a1='dog'; a.a1='pitbull'
+a2=a1; say 'a.'a2 '=' a.a2
+a1='x.y.z'; a.a1='periods'
+a2=a1; say 'a.'a2 '=' a.a2
+a1='x y z'; a.a1='spaces'
+a2=a1; say 'a.'a2 '=' a.a2
+a1='ÀÁÂÃÄÅ'; a.a1='special characters'
+a2=a1; say 'a.'a2 '=' a.a2
+say
+if Pos('Regina',version) > 0 then
+   call Library
+call SysDumpVariables
+exit
+
+Capital:
+arg country
+say 'The capital of' country 'is' cap.country
+return
+
+Calendar:
+arg mm,dd
+say mm dd 'is day no' day.mm.dd 'and week no' week.mm.dd
+return
+
+Library:
+call RxFuncAdd 'SysLoadFuncs','RegUtil','SysLoadFuncs'
+call SysLoadFuncs
+return
+
+include Abend