*COMDECK ZFETB
   COMMON ZFETB;
                             BEGIN# FET FOR ZZZZZDN FILE               #
   ARRAY ZFET S(6); 
                             BEGIN
   ITEM ZFET0#U,0,0,WL#      U(0,0,WL);# WORD 0                        #
   ITEM ZFET1#U,1,0,WL#      U(1,0,WL);# WORD 1                        #
   ITEM ZFET2#U,2,0,WL#      U(2,0,WL);# WORD 2                        #
   ITEM ZFET3#U,3,0,WL#      U(3,0,WL);# WORD 3                        #
   ITEM ZFET4#U,4,0,WL#      U(4,0,WL);# WORD 4                        #
   ITEM ZFET5#U,5,0,WL#      U(5,0,WL);# WORD 5                        #
                             END
                                                                       #
 ZZZZZDN  FILEB  ZCIOB,2001B,FET=6                                     #
                                                                       #
          USE    *                                                     #
                             END
