*COMDECK /GETDU/
          SPACE     1 
          TITLE     GET$F AND GET$U 
 GET$FU   CAP.RM    ,NOENTRY
 GET$U    BSS       0 
          F.RM      RRL,4          SET REQUEST SIZE TO RRL
          NZ        X4,=XRMU$SQ 
          SET.RM    GEN,173B
          EQ        =XRMU$SQ
* END /GETDU/ 
