I have a code table that has Type_Code and Code fields.
I am trying to copy to an array all the Type_Code = to "PE" and I don't know why but it only copies the first record to the array. Here is my code:

use codes
set order to Type_Code
count for Type_Code = "PE" TO ctn
DIMENSION aCode(ctn)
COPY TO ARRAY aCode FIELDS Code FOR Type_Code = "PE"
DISPLAY MEMORY LIKE Ape

Thanks for your help