//-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