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