*COMDECK  APPSTAT 
# 
 * * * * * * * * * * ----------  APPSTAT  ---------- * * * * * * * * * *
  
 COMMON DECK OF VARIABLES WHICH DESCRIBE THE STATUS OF THE WORKLIST 
 CURRENTLY BEING PROCESSED
# 
 COMMON APPSTAT;
   BEGIN
   ARRAY APST P(1);          # MARKS POSITION OF COMDECK IN DUMP       #
     BEGIN
     ITEM APSTM  C(0,0,7)=["APPSTAT"];
     ITEM APST7  U(0,42,18)=[O"777777"];
     END
   ITEM ABTADDR;             # PCB OR WORKLIST ADDRESS                 #
   ITEM ABTAPPF = 0;         # ABORT APPLICATION FLAG                  #
   ITEM ABTJOBID;            # JOB ID WORD OF APP TO ABORT             #
   ITEM ABTSIZE;             # SIZE OF BUF TO RELEASE AFTER APP ABORTED#
   ITEM AWLA;                # UCP APPLICATION WORKLIST ADDRESS        #
   ITEM CBA;                 # UCP COMPLETION BIT ADDRESS              #
   ITEM DONE B;              # TRUE = LAST FUNCTION COMPLETED          #
   ITEM FAILADR = 0;         # APPLICATION FAILED FLAG                 #
   ITEM JOBID;               # JOB ID WORD                             #
   ITEM NEXTWLA;             # ADDR OF NEXT WORKLIST ENTRY TO PROCESS  #
   ITEM ACBADDR;             # APPLICATION CONTROL BLOCK ADDRESS       #
   ITEM SHUTDOWN B = FALSE;  # TRUE = SHUTDOWN MODE                    #
   ITEM WLADDR;              # ADDR OF WORKLIST ENTRY CURR WORKING ON  #
   END
# 
 REASON CODES FOR ABORTING APPLICATION
# 
 DEF XNOTNETON   #1#;        # NOT YET NETTED ON                       #
 DEF XBADPN      #2#;        # NONEXISTENT APPLICATION ID              #
 DEF XNOAWLA     #3#;        # APP WORK LIST ADDR=0                    #
 DEF XBADWCNE    #4#;        # BAD WORD/ENTRY COUNT                    #
 DEF XRESAPPNM   #5#;        # SECURITY VIOLATION                      #
 DEF XFLERR      #6#;        # ADDRESS OUT OF RANGE                    #
 DEF XBADMMACN   #7#;        # INVALID MINACN/MAXACN ON NETON          #
 DEF XINVAPP     #8#;        # INVALID APPLICATION NAME ON NETON       #
 DEF XBADOP      #9#;        # BAD AIP OPCODE                          #
 DEF X2MANYSM   #10#;        # TOO MANY SUP MSGS QUEUED FOR APPLICATION#
 DEF XOSWL       #11#;       # EXTRA WORK LIST                         #
 DEF XFNTERR     #12# ;           # FILE LIMITE REACHED/NO FNT SPACE   #
 DEF XCONCB      #13# ;           # ABORT APPLICATION UPON RECEIVING CB#
 DEF XSHUTDN     #14# ;           # ABORT UPON RECEIVING SHUT/DOWN     #
 DEF XFCINACT    #15# ;           # ABORT UPON RECEIVING FC/INACT      #
 DEF XMSTSLV     #16# ;           # MASTER REQUEST SLAVE TO ABORT      #
 DEF XMSGNUM     #16# ;           # MAXIMUN NUMBER OF ABORT APPL       #
# 
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
# 
