*DECK LFGWB 
      PROC LFGWB; 
      BEGIN 
# 
***   LFGWB - WRITE BUFFER. 
* 
*     LFGWB CONTAINS A COMMON AREA FOR THE NLF WRITE BUFFER.
* 
# 
      CONTROL STEXT;
      COMMON WB;
        BEGIN 
        ARRAY WBU [0:O"1000"] S(1); 
          BEGIN 
          ITEM WBUF U;
          END 
        END 
      END TERM