PROC  GETNLNK ( WS$AREA, WS$LENGTH, TRANSFER$CNT, BITS , FPOSITION
      , RSTATUS);
      BEGIN  # GETNLNK #
*copyc ICS$ICSZCOM
      ITEM WS$AREA    U;
      ITEM WS$LENGTH  U;
      ITEM TRANSFER$CNT U;
      ITEM BITS       U;
      ITEM FPOSITION  U;
      ITEM RSTATUS    U;

      ITEM STAT       U;

      XREF
        BEGIN
        PROC GETLNK;
        END

      IF POSITION EQ EOI
      THEN
        BEGIN
        FPOSITION = EOI;
        TRANSFER$CNT = 0;
        BITS = 0;
        RSTATUS = GETAFTEREOI;
        RETURN;
        END

      GETLNK (WS$AREA,WS$LENGTH,TRANSFER$CNT,(SKIP$TO$EOR), (FALSE ) ,
        BITS, STAT);
      FPOSITION = POSITION;
      RSTATUS = STAT;

      END  # GETNLNK #

    TERM
