*COMDECK IFETB
  
   COMMON IFETB;
                             BEGIN# FET FOR DIRECTIVE FILE             #
   ARRAY IFET S(6); 
                             BEGIN
   ITEM IFET0#U,0,0,WL#      U(0,0,WL);# WORD 0                        #
   ITEM IFET1#U,1,0,WL#      U(1,0,WL);# WORD 1                        #
   ITEM IFET2#U,2,0,WL#      U(2,0,WL);# WORD 2                        #
   ITEM IFET3#U,3,0,WL#      U(3,0,WL);# WORD 3                        #
   ITEM IFET4#U,4,0,WL#      U(4,0,WL);# WORD 4                        #
   ITEM IFET5#U,5,0,WL#      U(5,0,WL);# WORD 5                        #
                             END
                                                                       #
 INPUT    FILEC  ICIOB,1001B,FET=6                                     #
                                                                       #
          USE    *                                                     #
                             END
