Data commit

Task/Arrays/RPG/arrays.rpg

@@ -0,0 +1,27 @@
+      //-Static array
+      //--def of 10 el array of integers, initialised to zeros
+     D array...
+     D                 s             10i 0 dim(10)
+     D                                     inz
+      //--def an el
+     D el_1...
+     D                 s             10i 0 inz
+
+      /free
+
+       //-assign first el
+       //--first element of RPG array is indexed with 1
+       array(1) = 111;
+
+       //-get first el of array
+       el_1 = array(1);
+
+       //--display it
+       dsply ('First el of array='+%char(el_1));
+       //--displays: First el of array=111
+
+       //---or shorter, without "el_1"
+       dsply ('First el of array='+%char(array(1)));
+       //--displays: First el of array=111
+
+      /end-free