Length of Array in progress?

Question

Given two arrays, ( for example 1,2,3,4,5 and 2,3,1,0). Find which number of first array is not present in the second array. How can i get Length of Arrays in progress 4gl ?

Answer 1

If the object in question is an ARRAY, rather than a LIST, you use the EXTENT() function to determine the number of elements. Using arrays:

define variable a1 as integer no-undo extent 5 initial [ 1, 2, 3, 4, 5 ].
define variable a2 as integer no-undo extent 4 initial [ 2, 3, 1, 0 ].

define variable i as integer no-undo.
define variable j as integer no-undo.

define variable ok as logical no-undo.

do i = 1 to extent( a1 ):
  ok = no.
  do j = 1 to extent( a2 ):
    if a1[i] = a2[j] then ok = yes.
  end.
  if ok = no then message a1[i] "is not in a2".
end.