01 numbers  binary-long occurs 10
          values 10 20 30 40 50 10 20 30 40 50.

       01 num       binary-long value 0.
       01 average   binary-double value 0.

       procedure division.
          perform varying num through numbers
            add num to average
          end-perform
          divide average by numbers::"Length" giving average
          display "Average is : " average