*COMDECK OFETB
   COMMON OFETB;
                             BEGIN# FET FOR OUTPUT FILE                #
   ARRAY OFET S(6); 
                             BEGIN
   ITEM OFET0#U,0,0,WL#      U(0,0,WL);# WORD 0                        #
   ITEM OFET1#U,1,0,WL#      U(1,0,WL);# WORD 1                        #
   ITEM OFET2#U,2,0,WL#      U(2,0,WL);# WORD 2                        #
   ITEM OFET3#U,3,0,WL#      U(3,0,WL);# WORD 3                        #
   ITEM OFET4#U,4,0,WL#      U(4,0,WL);# WORD 4                        #
   ITEM OFET5#U,5,0,WL#      U(5,0,WL);# WORD 5                        #
                             END
                                                                       #
 OUTPUT   FILEC  OCIOB,2001B,FET=6                                     #
                                                                       #
          USE    *                                                     #
                             END
