*COMDECK ZCIOBB 
   COMMON ZCIOBB; 
                             BEGIN# CIO BUFFER FOR ZZZZZDN FILE        #
   ARRAY ZCIOB [0:1025] S(1); 
                             BEGIN
   ITEM ZCIOWD#U,0,0,WL#     U(0,0,WL);# CIO BUFFER ENTRIES            #
                             END
                                                                       #
          BSS    2001B                                                 #
                                                                       #
          USE    *                                                     #
                             END
