Retro1.org codex

*DECK     NVFCFCE 
USETEXT          TEXTSS 
USETEXT          TEXTNVF
PROC  NVFCFCE( ACNN, AE, NEWACN );
# TITLE NVFCFCF - FIND CONNECTION ENTRY.                               #
 
      BEGIN # NVFCFCE # 
# 
**    NVFCFCE - FIND CONNECTION ENTRY.
* 
*     S. H. FISCHER.         81/12/04.
* 
*     THIS PROCEDURE SEARCHES THE ACN LIST FOR THE SPECIFIED APPLICATION
*     CONNECTION NUMBER.
* 
*     PROC( AACN, AE, NEWACN )
* 
*     ENTRY:  
*       ACNN = APPLICATION CONNECTION NUMBER TO BE LOCATED. 
* 
*     EXIT: 
*       AE = ORDINAL OF LOCATED ENTRY OR NEXT AVAILABLE ORDINAL.
*       NEWACN = TRUE IF ENTRY NOT FOUND, FALSE IF NOT FOUND. 
* 
# 
 
 
 
 
      ITEM I           I;    # LOOP VARIABLE                           #
      ITEM NEWACN      B;    # TRUE IF ACN NOT FOUND IN ACN LIST       #
      ITEM ACNCNT      I;    # COUNT OF ENTRIES IN ACN LIST            #
      ITEM AE          I;    # ORDINAL OF MATCHED (OR NEW) LIST ENTRY  #
      ITEM ACNN        I;    # ACN TO SEARCH FOR                       #
      ITEM ACNS        I;    # LOCAL COPY OF ACN TO SEARCH FOR         #
 
 
 
 
      ACNS = ACNN;
      NEWACN = TRUE;
      AE = 0; 
 
 
      IF ACNLNGTH NQ 0
      THEN
        BEGIN 
        ACNCNT = ACNLNGTH/ACNLSIZ$ - 1; 
 
        FOR I = 0 STEP 1 WHILE ( I LQ ACNCNT )
          AND ( ACN$ACN[I] NQ ACNS )
        DO
          BEGIN 
          AE = I + 1; 
          END 
 
        IF AE LQ ACNCNT 
        THEN
          BEGIN 
          NEWACN = FALSE; 
          END 
        END 
 
 
      RETURN; 
 
      END # NVFCFCF # 
      TERM