INTEGER FUNCTION IBMGETLIN(BUFFER,CH)
      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 BUFFER(132)
      INTEGER CH,IDC1,STATUS,COUNT,IBYTE,T,GETSOH
      IDC1=021K
      STATUS=1
      GETSOH=0
      COUNT=1
23000 IF(.NOT.(STATUS.EQ.1))GOTO 23001
23002 IF(.NOT.(GETSOH.EQ.0))GOTO 23003
      IBYTE=0
      CALL RDSEQ(CH,IBYTE,1,IER)
      T=ISHIFT(IBYTE,-8) .AND. 177K
      IF(.NOT.(T.EQ.1 ))GOTO 23004
      GETSOH=1
      BUFFER(COUNT)=T
      COUNT=COUNT+1
23004 CONTINUE
      GOTO 23002
23003 CONTINUE
      IBYTE=0
      CALL RDSEQ(CH,IBYTE,1,IER)
      T=ISHIFT(IBYTE,-8) .AND. 177K
      IF(.NOT.(T.EQ.IDC1))GOTO 23006
      STATUS=0
      GOTO 23007
23006 CONTINUE
      BUFFER(COUNT)=T
      COUNT=COUNT+1
23007 CONTINUE
      GOTO 23000
23001 CONTINUE
      BUFFER(COUNT)=10002
      RETURN
      END