*COMDECK  IOBUFL
  
**        2 PASS BUFFER LENGTHS 
  
**        FILE CIO BUFFER LENGTHS.
* 
 #RM      IFNE   CP#RM,7
  
 BUFL     MICRO  1,, 1002B   NOMINAL CIO BUFFER LENGTH
  
 LC.CMPS  =      "BUFL" 
 LC.LGO   =      "BUFL"*2 
 LC.OPT   =      "BUFL"*2 
 LC.RLST  =      LC.LGO      (-RLST- BUFFER SPACE IS REUSED FOR -LGO-)
 LC.RMAP  =      "BUFL" 
  
 #RM      ELSE
  
 BUFL     MICRO  1,, 0       (7RM I/O BUFFERS RESIDE IN LCM.) 
 OBUFL    =      0
 EBUFL    =      0
 IBUF     =      0
 OBUF     =      0
  
 #RM      ENDIF 
  
  
  
**        FILE HOLDING BUFFER LENGTHS.
*         (APPLIES ONLY WHEN RECORD MANAGER I/O IS SELECTED.) 
* 
 #RM      IFGE   CP#RM,6
  
 HBUFL    MICRO  1,, 400B    HOLDING BUFFER LENGTH
  
 LH.CMPS  =      0
 LH.IN    =      0
 LH.LGO   =      "HBUFL"
 LH.OPT   =      0
 LH.OUT   =      0
 LH.ERRS  =      0
 LH.RLST  =      LH.LGO      (-RLST- BUFFER SPACE IS REUSED FOR -LGO-)
 LH.RMAP  =      "HBUFL"
  
 #RM      ENDIF 
