data structure arrays and record formats

Hello,

How would you store a record format into a data structure array?  In debug,
my code below shows '40404040' in each of the fields after I move the
record format into the array.  The program is supposed to read the whole
file and store certain records into an array.

TIA,

Frank

============================================================================================

fwk1 FAVSHCH    UF   E           K DISK    rename(recfmt:avshchr)
 |    *
 |   D avshchrec     e ds                  extname(avshch) qualified
 |    *
 |   D unvoid_array    ds                  qualified dim(999)
 |   D @ord#                               like(ord#xh)
 |   D @desc                               like(ord#xh)
 |   D @aram                               like(ord#xh)
 |    *
 |   D x               s              3s 0
 |    *
 |    * Initialize unvoid_array index
 |   c                   eval      x = *zeros
 |    *
 |    * Check Averitt Shipment Interface File - Charge Level(AVSHCH)
 |    * for Unvoided Shipments
 |   c     *start        setll     avshch
 |   c                   dou       %eof(avshch)
 |   c                   read      avshch
 |   c                   if        %eof(avshch)
 |   c                   leave
 |   c                   endif
 |    *
 |    * Check if Shipment has been Unvoided; Save to Array
 |   c                   eval      found1 = *zeros
 |   c                   eval      found1 = %scan('UNVOID':descxh:1)
 |   c                   if        found1 > *zeros
 |   c                   eval      x = x + 1
 |   c                   eval      unvoid_array(x) = avshchrec
 |   c                   endif
 |    *
 |   c                   enddo
 |    * dou %eof(avshch)
 |    *

=========================================================================