*COMDECK COMRAPL
#     COMRAPL - APPLICATION TABLE DESCRIPTION.  # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
# 
***   COMRAPL - APPLICATION TABLE DESCRIPTION.
* 
*     COMRAPL CONTAINS THE ARRAY DEFINITIONS FOR THE APPLICATION TABLE. 
*     THE APPLICATION TABLE HAS ONE ENTRY FOR EACH ALLOWABLE APPLICA- 
*     TION THAT CAN NETON.  THIS MEANS MUTIPLE ENTRIES MAY EXIST WITH 
*     THE SAME APPLICATION NAME BUT DIFFERENT JOB NAMES.  EACH ENTRY
*     HAS TWO SUBSECTIONS CONSISTING OF A HEADER AND ALLOWED CONNEC-
*     TIONS.  THE HEADER SUBSECTION CONTAINS INFORMATION PERTINENT TO 
*     THE APPLICATION.  THE CONNECTION SUBSECTION CONTAINS INFORMATION
*     PERTINENT TO AN INDIVIDUAL CONNECTION.
# 
  
      BEGIN  # COMRAPL COMDECK #
      DEF APL$LENGTH #5#;            # LENGTH OF APPLICATION HEADER # 
      DEF APL$ITF    #"ITF"#;        # ITF APPLICATION NAME # 
      DEF CON$LENGTH #3#;            # LENGTH OF CONNECTION # 
      DEF CNT$BLKRD  #0#;             # BLOCKS READ COUNTER # 
      DEF CNT$BLKWRT #1#;             # BLOCKS WRITTEN COUNTER #
      DEF CNT$ACKRD  #2#;             # ACKS READ COUNTER # 
      DEF CNT$ACKWRT #3#;             # ACKS WRITTEN COUNTER #
  
# 
*     CONVERT MODE STATES.
# 
  
      DEF BINARY     #0#;            # BINARY MODE #
      DEF WASCTONASC #1#;            # WRITE ASCII TO NETWORK ASCII # 
      DEF WDCTONASC  #2#;            # WRITE DISP. TO NETWORK ASCII # 
      DEF RNASCTOASC #3#;            # READ NETWORK ASCII TO ASCII #
      DEF RNASCTODC  #4#;            # READ NETWORK ASCII TO DISP. #
      DEF CMENTEXT   #5#;            # CONVERT MODE ENTERING/EXITING #
  
      DEF MAXERRLGLS #50#;            # MAXIMUM NUMBER OF ERR/LGL # 
  
      COMMON COMRAPL; 
      BEGIN  # COMRAPL COMMON AREA #
  
      ITEM ACTIVAPPLS = 0;
      ITEM APPL$UPD B = FALSE;
  
      BASED ARRAY APL$HEADER S(APL$LENGTH); 
        BEGIN  # APPLICATION HEADER # 
        ITEM APL$NAME   C(00,00,07);  # APPLICATION NAME #
        ITEM APL$ENABLE B(00,42,01);  # APPLICATION ENABLED # 
        ITEM APL$SVR    B(00,43,01);  # SERVER TYPE APPLICATION # 
        ITEM APL$ASTART B(00,44,01);  # AUTO START APPLICATION #
        ITEM APL$SORGRQ B(00,45,01);  # SYSTEM ORIGIN REQUIRED #
        ITEM APL$LIDREG B(00,46,01);  # ACTIVE LID NOT REQUIRED # 
#       ITEM APL$RES    B(00,47,01)     RESERVED #
        ITEM APL$FLAGS  U(00,48,12);  # FLAGS ZEROED ON NETOFF #
        ITEM APL$DISCRD B(00,48,01);  # DISCARD ERROR LOGICALS #
        ITEM APL$AATABT B(00,49,01);  # ALREADY ATTEMPTED TO ABORT #
#       ITEM APL$RES    B(00,50,01)     RESERVED #
        ITEM APL$MSGDIS B(00,51,01);  # APPL TABLE ERROR MSG DISPLAYED #
        ITEM APL$EOJCON B(00,52,01);  # END OF JOB CONNECTION # 
        ITEM APL$SYSORG B(00,53,01);  # SYSTEM ORIGIN # 
        ITEM APL$NETOFF B(00,54,01);  # NETOFF IN PROGRESS #
        ITEM APL$WFLAG  B(00,55,01);  # NETWAIT FLAG PARAMETER STATUS # 
        ITEM APL$WCMA   B(00,56,01);  # NETWAIT FOR CONVERT MODE #
#       ITEM APL$RES    B(00,57,01)     RESERVED #
        ITEM APL$START  B(00,58,01);  # STARTING #
        ITEM APL$NETON  B(00,59,01);  # NETON # 
        ITEM APL$JOBID  I(01,00,60);  # JOB IDENTIFIER (NAME AND ORD) # 
        ITEM APL$JOBNAM C(01,00,07);  # JOB NAME #
        ITEM APL$JOBORD I(01,42,18);  # JOB ORDINAL # 
        ITEM APL$NUMCON U(02,00,12);  # NUMBER OF ALLOWED CONNECTIONS # 
        ITEM APL$MINACN U(02,12,12);  # MINIMUM ACN # 
        ITEM APL$MAXACN U(02,24,12);  # MAXIMUM ACN # 
        ITEM APL$ERRLGL U(02,36,06);  # NUMBER OF QUEUED LOGICAL ERROR #
        ITEM APL$UCPQ   I(02,42,18);  # QUEUE REQUIRING UCP COMMUN #
        ITEM APL$TIMER  U(03,00,12);  # NETON TIMER # 
        ITEM APL$MSGCNT I(03,12,12);  # COUNT OF ALL QUEUED MESSAGES #
        ITEM APL$NSUP   I(03,24,18);  # NSUP ADDRESS #
        ITEM APL$MSGQ   I(03,42,18);  # QUEUE OF SUPERVISORY MESSAGES # 
        ITEM APL$WAIT   I(04,24,18);  # NETWAIT UCP REQUEST ADDRESS # 
# 
*             CAUTION - THIS IS NOT A POINTER TO A QUEUE ENTRY.  A NON- 
*                       ZERO VALUE INDICATES THE APPLICATION HAS A NET- 
*                       WAIT OUTSTANDING. 
# 
        ITEM APL$SWAPQ  I(04,42,18);  # SWAP QUEUE  NDR REQUESTS WHICH #
                                      # REQUIRE UCP SWAPPED IN #
        END  # APPLICATION HEADER # 
  
      BASED ARRAY CONNECTION [0:0] S(CON$LENGTH); 
        BEGIN  # APPLICATION TABLE CONNECTION # 
        ITEM CON$FLAGS  U(00,00,12);  # FLAGS # 
        ITEM CON$INIT   B(00,00,01);  # CONNECTION INITIALIZED #
        ITEM CON$INPUT  B(00,01,01);  # INPUT AVAILABLE # 
        ITEM CON$OUTPUT B(00,02,01);  # OUTPUT BELOW THRESHOLD #
        ITEM CON$BROKEN B(00,03,01);  # CONNECTION BROKEN # 
        ITEM CON$REQ$N  B(00,04,01);  # CON/REQ/N RECEIVED #
        ITEM CON$INIT$N B(00,05,01);  # FC/INIT/N RECEIVED #
        ITEM CON$FC$BRK B(00,06,01);  # FC/BRK IN PROGRESS #
        ITEM CON$LST$ON B(00,07,01);  # LIST PROCESSING ON #
        ITEM CON$SHUT   B(00,08,01);  # CONNECTION SHUTDOWN IN PROGRESS#
        ITEM CON$REQ$R  B(00,09,01);  # CON/REQ/R SENT TO APPL. # 
        ITEM CON$FCBRKS B(00,10,01);  # FC/BRK SENT FROM THIS SIDE #
        ITEM CON$WCMA   B(00,11,01);  # CONNECTION WAITING FOR CM # 
#       ITEM CON$RESINS U(00,12,12)     RESERVED FOR INSTALLATION # 
        ITEM CON$PATHAD I(00,24,18);  # PATH ADDRESS #
        ITEM CON$NADORD I(00,42,06);  # LOCAL NAD ORDINAL # 
        ITEM CON$PATHID I(00,48,12);  # PATH ID. 0 MEANS UNASSIGNED. #
        ITEM CON$LSTACN U(01,00,12);  # LAST ACN.  INDEXED BY ALN TO #
                                      # DETERMINE THE LAST ACN USED # 
                                      # FOR A NETGETL CALL. # 
        ITEM CON$ALN    U(01,12,06);  # ALN SPECIFIED FOR ACN # 
        ITEM CON$ACT    U(01,18,04);  # ACT # 
#       ITEM CON$RES    U(01,22,02)     RESERVED #
        ITEM CON$LIDORD U(01,24,12);  # LID ORDINAL # 
        ITEM CON$CM     U(01,36,06); # CONVERT MODE # 
        ITEM CON$DELAYQ I(01,42,18);  # DELAY QUEUE AWAITING EVENT #
        ITEM CON$ACTWD  U(02,00,60);  # ACCOUNTING WORD # 
        ITEM CON$BLKRD  U(02,00,15);  # BLOCKS READ # 
        ITEM CON$BLKWRT U(02,15,15);  #  BLOCKS WRITTEN # 
        ITEM CON$ACKRD  U(02,30,15);  # ACKNOWLEDGES READ # 
        ITEM CON$ACKWRT U(02,45,15);  # ACKNOWLEDGES WRITTEN #
        END  # APPLICATION TABLE CONNECTION # 
  
      END  # COMRAPL COMMON AREA #
  
      END  # COMRAPL COMDECK #
                                               CONTROL LIST;
