*COMDECK OCIOBB 
   COMMON OCIOBB; 
                             BEGIN# CIO BUFFER FOR OUTPUT FILE         #
   ARRAY OCIOB [0:1025] S(1); 
                             BEGIN
   ITEM OCIOWD#U,0,0,WL#     U(0,0,WL);# CIO BUFFER ENTRIES            #
                             END
                                                                       #
          BSS    2001B                                                 #
                                                                       #
          USE    *                                                     #
                             END
