*COMDECK ACB
# 
        A P P L I C A T I O N   C O N T R O L   B L O C K 
# 
      BASED ARRAY ACB P(ACBSIZE) ;    # APPLICATION CONTROL BLOCK      #
        BEGIN 
        ITEM ACBID       U(0,0,6);  # APPLICATION CONTROL BLOCK I D    #
        ITEM ACBBS       U(0,6,18); # A C B  BLOCK SIZE                #
        ITEM ACBAWLADDR  I(0,24,AL); # AWL WRITE BACK ADDRESS AIP      #
        ITEM ACBWOFF     B(0,42,1); #  WAITS PRU TERMINATION TO GO OFF.#
        ITEM ACBERCNT    U(0,44,7); # NO OF ERR/LGL,PRU/ON/A,CON/ACRQ/A#
        ITEM ACBAN       U(0,51,9);  # APPLICATION NUMBER              #
        ITEM ACBUCPADR   I(1,0,AL); # USER CONTROL POINT ADDRESS       #
        ITEM ACBCDRP     I(1,24,18);# APP CON DATA RING POINTER        #
        ITEM ACBACNT     I(1,42,AL);# APPL CONNECTION TABLE ADDRESS    #
        ITEM ACBPDATA       B(2,5,1);   # DATA DELIVERABLE BIT         #
        ITEM ACBBLKSQ    U(2,6,18); # NUMBER DATA/BLKS QUENED FOR APPL #
        ITEM ACBDRBP     I(2,24,AL);# DOUBLE LINKED CHAIN BACK POINTER #
        ITEM ACBDRFP     I(2,42,AL);# DOUBLE LINK CHAIN FRONT POINTER  #
        ITEM ACBAAVAL       U(2,5,55) ; # DATA AVAILABLTY WORD         #
        ITEM ACBNTL      U(03,00,24);# NETWAIT TIME LIMIT              #
        ITEM ACBTOTB     U(3,24,18);# STAT-DEF  ASYNC S/MSGS TO APPL   #
        ITEM ACBTOTC     U(3,42,18);# STAT-DEF  TOTAL WRDS SENT TO APP #
        ITEM ACBANAME    C(4,0,NC); # APPLICATION NAME                 #
        ITEM ACBNCN      U(4,48,12);# APPL-CONNECTIONS CURRENTLY HELD  #
        ITEM ACBNWLE     U(5,0,6);  # CURRENT NUM-WORKLIST ENTRIES     #
        ITEM ACBWRADDR   I(5,6,AL); # DAT FOR UCP FIELD LEHGTH         #
        ITEM ACBFLIST    I(5,24,AL);# ADR OF SCP FUNCTION LIST         #
        ITEM ACBSMQ      U(5,42,18);# SUP/MSG CURRENTLY QUENED FOR APP #
        ITEM ACBNWLWD    U(6,0,WL); # NWL POINTER WORD                 #
        ITEM ACBWLFWA    I(6,6,AL); # FIRST WORD ADR OF NET-WORK LIST  #
        ITEM ACBWLLWA    I(6,24,AL);# LAST WRD ADDR OF NET-WORK-LIST   #
        ITEM ACBWLADR    I(6,42,AL);# ADR OF CURRENT ENTRY IN NWL      #
        ITEM ACBIASCP    U(7,0,WL); # S C P  SF.WRITE WORD             #
        ITEM ACBIAFP     U(7,6,12); # FUNCT PRAM FOR DATA AVAILABILITY #
        ITEM ACBIAUCPA   I(7,18,AL);# UCP  DATA AVAILABLE WORD ADDR    #
        ITEM ACBIASCPA   I(7,36,AL);# SCP  DATA AVAILABLE WORD ADDR    #
        ITEM ACBIAFC     U(7,54,6); # SF.WRITE TO MODIFY AVAL WORD     #
        ITEM ACBAWL0C    U(08,59,01); # COMPLETION BIT OF WORKLIST     #
        ITEM ACBAWL0     U(8,0,WL); # WRDS CONTAINING AWL FOR AIP      #
        ITEM ACBAWL1     U(9,0,WL); # AGET AWL ENTRY ALWAYS IN WRD 0,1 #
        ITEM ACBAWL1ACT  U(9,36,4); # ACT OF DATA BLOCK                #
        ITEM ACBAWL2     U(10,00,60); # AWL FOR GETSM WORKLIST         #
        ITEM ACBAWL3     U(11,00,60); #                                #
        ITEM ACBAWL4     U(12,00,60); # AWL FOR GETMM WORKLIST         #
        ITEM ACBAWL5     U(13,00,60); 
        ITEM ACBNETONT   U(14,00,60); # TIME APPL HAD NETTED ON        #
        ITEM ACBTIMC     C(14,06,08); # TIME APPL HAD NETTED ON (CHARS)#
        ITEM ACBCMTC     U(15,00,18); # CURRENT MSG XFER 5-MIN INTERVAL#
        ITEM ACBLMTC     U(15,18,18); # NUM OF MSG XFER LAST 5-MIN     #
        ITEM ACBKNDX     I(15,36,09); # K-DISPLAY ENTRY INDEX          #
        ITEM ACBLSTBLKS  U(15,48,12); # NUM OF BLOCKS SEND IN 1 GET    #
        ITEM ACBTIMERP   B(16,00,01); # APP SPECIFIED PERMANENT TIMER  #
        ITEM ACBTIMER    U(16,03,12); # TIME INTERVAL TO SEND FC/INACT #
        ITEM ACBPWLBP    I(16,24,18); # WAIT-SWAPPED-AP PWL RING TAILPT#
        ITEM ACBPWLFP    I(16,42,18); # WAIT-SWAPPED-AP PWL RING HEADPT#
        ITEM ACBSCPRC    U(17,00,06); # SCP REPLY CODE                 #
        ITEM ACBSCPCB    U(17,59,01); # SCP COMPLETION BIT             #
        ITEM ACBSWAPWR   U(17,00,60); # SCP WRD OF SWAPIN SF.WRITE PARA#
        ITEM ACBJOBSQN   C(18,00,04); # APPL ASSIGN JOB SEQUENCE NUMBER#
        ITEM ACBFNTADR   I(18,42,18); # APPL-JOB  FNT ADDRESS          #
        ITEM ACBJNWD     I(18,00,60); # COMBINED FNT/ADD SQN NUMBER    #
        ITEM ACBNPRU     U(19,00,12); # NUMBER OF PRU CONNECTION       #
                                                                       #
        SET ABORT CONDITION WORD FOR FTP USAGE. 
                                                                       #
        ITEM ACBPTJSN    C(20,00,04); # JSN OF PARTNER FNT APPL        #
        ITEM ACBABTC     U(20,30,24); # SAC/NCL ABORT CONDITION        #
        ITEM ACBORD0     B(20,30,01); # ORDINAL 0, SHUT/INSD QUEUED    #
        ITEM ACBORD1     B(20,31,01); # ORDINAL 1, FC/INACT QUEUED     #
        ITEM ACBORD2     B(20,32,01); # ORDINAL 2, CON/CB QUEUED       #
        ITEM ACBABTSH    B(20,57,01); # ABORT BECAUSE OF SHUT/DOWN     #
        ITEM ACBABTFC    B(20,58,01); # ABORT BECAUSE OF FS/INACT      #
        ITEM ACBABTCB    B(20,59,01); # ABORT BECAUSE OF CON/CB        #
        ITEM ACBFNTABTF  U(20,57,03); # CONDITIONAL ABORT FLAGS        #
                                                                       #
        TWO WORD FOR FTP FILE SWITCHING.
                                                                       #
        ITEM ACBPTNRAN   U(21,00,12); # FNT PARTNER APPLICATION NUMBER #
        ITEM ACBFNTST    U(21,12,06); # FNT CURRENT SHARING STATE      #
        ITEM ACBFNTLST   U(21,18,06); # LAST STATE OF FNT              #
        ITEM ACBFNTCTR   U(21,24,06); # CURRENT TRIGGER                #
        ITEM ACBFNTLTR   U(21,30,06); # LAST TRIGGER                   #
        ITEM ACBIARRC    U(21,36,12); # REASON CODE FOR FNT/IAR/ RSP   #
        ITEM ACBFNTANIP  B(21,55,01); # FILE IS AT NIP C.P. FLAG       #
        ITEM ACBSLVGONE  B(21,56,01); # SLAVE GONE FOR FNT/IAR         #
        ITEM ACBMREQABT  B(21,57,01); # MASTER REQUEST SLAVE TO ABORT  #
        ITEM ACBFNTMAS   B(21,58,01); # MASTER FLAG                    #
        ITEM ACBFNTSLA   B(21,59,01); # SLAVE FLAG                     #
        ITEM ACBFNTW0    U(21,00,60); 
  
        ITEM ACBFNTFILE  C(22,00,NC); # FNT FILE NAME FROM PARTNER ACB #
        ITEM ACBFORDNAL  U(22,48,12); # ORDINAL OF CURRENT FILE        #
        ITEM ACBFNTW1    U(22,00,60); 
        END 
# 
************************************************************************
# 
