SUBROUTINE RPAR(XDATA)
      IMPLICIT INTEGER (A-Z)
      COMMON /KER/ N,RPSIZ,SPSIZ,PAD,NUMTRY,OLDTRY, FD,RMTINFD,RMTOUTFD,
     *STATE,PADCHAR, EOL,ESCHAR,QUOTE,FILNAM(132),RECPKT(94 ), PACKET(94
     * ),SIZE,MOREFD,IBM,HOST, LOCALINFD,LOCALOUTFD,SPEED
      INTEGER XDATA(1)
      INTEGER UNCHAR,CTL
      SPSIZ=UNCHAR(XDATA(1))
      PAD=UNCHAR(XDATA(3))
      PADCHAR=CTL(XDATA(4))
      EOL=UNCHAR(XDATA(5))
      QUOTE=XDATA(6)
      RETURN
      END