PROC  GETPLNK ( WS$AREA, WS$LENGTH, TRANSFER$CNT, BITS , FPOSITION
      , RSTATUS);
      BEGIN  # GETPLNK #
*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,(NO$SKIP), (TRUE) , BITS,
        STAT);
      FPOSITION = POSITION;
      RSTATUS = STAT;

      END  # GETPLNK #

    TERM
