*COMDECK /GETDF/
          SPACE     1 
          CAP.RM
 GET$F    BSS       0 
          F.RM      FL,4           SET REQUEST SIZE TO FL 
          SET.RM    RRL,X4         SET REQUESTED RECORD LENGTH TO FL
* END /GETDF/ 
