*COMDECK ICIOBB 
  
   COMMON ICIOBB; 
                             BEGIN# CIO BUFFER FOR DIRECTIVE FILE      #
   ARRAY ICIOB [0:512] S(1);
                             BEGIN
   ITEM ICIOWD#U,0,0,WL#     U(0,0,WL);# CIO BUFFER ENTRIES            #
                             END
                                                                       #
          BSS    1001B
                                                                       #
                             END
                                                                       #
          USE    *                                                     #
