%ELEM Example

      * 
      * Description :·%Elem() Example
      *
      * Syntex      :
      *
      * %Elem(Array / Table / multiple occurance DS)
      *
      * Output      :·No. of elements
      *
      *=====================================================
      *
     D Arr1            S              5A   Dim(5)
     D Arr2            S              5A   Dim(%Elem(Arr1))
     D Table1          S              5A   Dim(10) CTData
     D MulDS1          DS                  Occurs(15)
     D  Fld1                          5A
     D  Fld2                          5A
     D NoOfElem        S              5P 0

     C
      /Free

           NoOfElem = %Elem(Arr1) ;
           Dsply NoOfElem ;                  // 5

           NoOfElem = %Elem(Table1) ;
           Dsply NoOfElem ;                  // 10

           NoOfElem = %Elem(MulDS1) ;
           Dsply NoOfElem ;                  // 15

      /End-Free
     C                   SetOn                                        LR
** Table
row1
row2