Code for the Array based on pointers in RPG AS400 powered by Sam John

PTRARRAY.RPGLE

         ctl-opt dftactgrp(*no) main(main);
      //------------------------------------------------------------------//
      // Code for the Array based on pointers in RPG AS400 from Sam John  //
      // https://www.myeasyclasses.com/2020/07/                           //
      // code-for-array-based-on-pointers-in-rpg.html                     //
      //------------------------------------------------------------------//
         dcl-proc main;

         dcl-s   ArrayData   char(10) dim(10) based(ptr1);
         dcl-s   ptr1        pointer;
         dcl-s   Arraysize   packed(6);
         dcl-s   ArrayIndex  packed(9);

           ArraySize = %Size(ArrayData);
           ptr1 = %alloc(ArraySize);
           ArrayIndex = 1;

           Dow ArrayIndex <= %Elem(ArrayData);
             ArrayData(ArrayIndex) = 'A' + %Trim(%Char(ArrayIndex));
             Dsply ArrayData(ArrayIndex);
             ArrayIndex = ArrayIndex + 1;
           Enddo;

         end-proc;
      //------------------------------------------------------------------//