*DECK FFSUFWE 
USETEXT TEXTFFS 
      PROC FFSUFWE (INDEX); 
*CALL COPYRITE
# TITLE FFSUFWE - UTILITY TO FIND NEXT WAITING BLOCK ENTRY             #
  
      BEGIN                            # FFSUFWE                       #
# 
**    FFSUFWE  UTILITY TO FIND NEXT WAITING BLOCK ENTRY 
* 
*     A. LIM                           88/01/15 
* 
*     THIS PROCEDURE GIVEN THE CURRENT CONNECTION NUMBER SEARCHES FOR 
*     THE NEXT WAITING BLOCK FOR THIS CONNECTION IN THE WAITING BLOCK 
*     QUEUE.
* 
*     PROC FFSUFWE (INDEX)
* 
*     ENTRY    P<WBQ> = PTR TO WAITING BLOCK QUEUE. 
*              CURACN = FILE SERVER CONNECTION NUMBER.
* 
*     EXIT     INDEX  = WORD INDEX OF WAITING BLOCK QUEUE ENTRY.
* 
# 
  
  
      ITEM INDEX         I;            # WORD INDEX OF WAITING BLOCK   #
      ITEM I             I;            # LOOP INDUCTION VARIABLE       #
      CONTROL EJECT;
  
#     START MAIN PROCEDURE                                             #
  
      FOR I = 0 STEP WBQ$SIZE[I]       # LOOP THRU ALL ENTRIES UNTIL   #
        WHILE WBQ$ADR[I] NQ CURACN     # NEXT WAITING BLOCK ENTRY FOR  #
      DO
        BEGIN                          # THIS CONNECTION FOUND         #
        END;
  
      INDEX = I;                       # RETURN WAITING BLOCK WORD IDX #
  
      RETURN;                          # RETURN TO CALLER              #
  
      END                              # FFSUFWE                       #
  
      TERM
