*COMDECK COMADEF
#     COMADEF - FIP AND FIPXFR DEFINITIONS. # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL ENDIF; 
  
# 
**    COMADEF - FIP AND FIPXFR DEFINITIONS. 
* 
*     COMADEF CONTAINS THE DEFINITIONS GLOBAL TO THE FIP PROGRAM. 
# 
  
# 
**    INSTALLATION PARAMETER TYPE DEFINITIONS.
# 
  
      DEF RHFI       #O"7775"#;      # QUEUE PRIORITY (NOS) # 
      CONTROL IFEQ OS$NOS;
      DEF RHFSSCCODE #RHFI#;         # SUBSYSTEM NUMBER/QUEUE PRIORITY #
      CONTROL ENDIF;
      CONTROL IFEQ OS$NOSBE;
      DEF RHFSSCCODE #4#;            # RHF SUBSYSTEM CODE NUMBER #
      CONTROL ENDIF;
      DEF MAXFILEXFR #4#;            # MAXIMUM NUMBER OF FILE XFERS # 
      DEF MAXFILEXM1 #3#;            # MAX FILE XFERS MINUS ONE # 
      DEF XFRDELAY   #O"0000"#;      # TRANSFER DELAY CONSTANT #
      DEF DFULLDELAY #3#;            # DEVICE-FULL DELAY INTERVAL # 
      DEF DFULLRETRY #8#;            # DEVICE-FULL RETRY LIMIT #
  
# 
*     RHF SUBSYSTEM FUNCTION DEFINITIONS. 
# 
  
      DEF NETONFUNC   #1#;
      DEF NETOFFFUNC  #2#;
      DEF NETWAITFNC  #3#;
      DEF NETGETFUNC  #4#;
      DEF NETGETLFNC  #5#;
      DEF NETPUTFUNC  #6#;
      DEF NETXFRFUNC  #7#;
  
# 
*     NETDBG DEFINITIONS. 
# 
  
      DEF MAXDBGMSGL #20#;           # MAXIMUM DEBUG MESSAGE LENGTH # 
  
# 
*     STATUS DEFINITIONS FOR NETXFR-S REPLY STATUS WORD  AND/OR 
*     DAYFILE MESSAGE ORDINAL  AND/OR  FILE TRANSFER TABLE ERROR
*     ORDINAL (FTTERRORD).
# 
  
      DEF TERMNATING   #-2#;         # FILE TRANSFER IS TERMINATING # 
      DEF INITIATING   #-1#;         # INITIATING FILE TRANSFER # 
      DEF IN$PROGRES   #0#;          # FILE TRANSFER IN PROGRESS #
      DEF CMPL$NO$ER   #1#;          # TRANSFER COMPLETE, NO ERROR #
      DEF SYSTEM$ER    #2#;          # SYSTEM ERROR # 
      DEF CON$BROKE    #3#;          # CONNECTION BROKEN RECEIVED # 
      DEF PROTCL$ERR   #4#;          # PROTOCOL ERROR # 
      DEF TIMEDOUT     #5#;          # TIMED OUT WAITING FOR RESPONSE # 
      DEF OBKNOTDEL    #6#;          # OUTPUT BLOCK NOT DELIVERED # 
      DEF GTMAXXFERS   #7#;          # TOO MANY FILE XFERS INITIATED #
      DEF ACN$NWAR     #8#;          # ACN NOT WITHIN ALLOWABLE RANGE # 
      DEF S$XFR$ACN    #9#;          # 2ND FILE TRANSFER ON THIS ACN #
      DEF CIO$ERROR    #10#;         # CIO ERROR #
      DEF PRETERMRCV   #11#;         # PREMATURE TERMINATION RECEIVED # 
      DEF TCNOERRIDL   #12#;         # XFER COMPL., NO ERR., IDLEDOWN # 
      DEF TTERRIDLED   #13#;         # XFER TERM. WITH ERR., IDLEDOWN # 
      DEF DISA$RCVED   #14#;         # DISABLE WARNING RECEIVED # 
      DEF NDRIOERR     #15#;         # NDR I/O ERROR #
      DEF INVALID$DT   #16#;         # INVALID DEVICE TYPE #
      DEF CODECONRNA   #17#;         # CODE CONVERSION RES. N/A # 
      DEF RFETPRAMER   #25#;         # RHF FET PARAMETER ERROR #
      DEF BNUMMISINP   #26#;         # BAD HOST ABN # 
      DEF BEXALLOWSZ   #27#;         # BLOCK EXCEEDED ALLOWED SIZE #
      DEF CTLWDFTERR   #28#;         # CONTROL WORD FORMAT ERROR #
      DEF BLKSZMSCPR   #29#;         # BLOCK SIZE MISCOMPARE #
      DEF PRTBWOEREI   #30#;         # PARTIAL BLOCK W/O EOR OR EOR # 
      DEF BNETWRKABN   #31#;         # BAD NETWORK ABN #
      DEF BLKNOTMU60   #32#;         # BLOCK NOT MULTIPLE OF 60 BITS #
      DEF UNKBLKERR    #33#;         # UNKNOWN BLOCK ERROR #
      DEF NETOFF$XFR   #40#;         # NETOFF DURING FILE TRANSFER #
      DEF BADDDP$ERR   #41#;         # BAD DD PARAMETER # 
      DEF BADXFR$ERR   #42#;         # INVALID XFR STATE #
      DEF BADATT$ERR   #43#;         # BAD ATTRIBUTE #
      DEF XFRTAB$ERR   #44#;         # XFR TABLES FULL #
  
# 
*     CIO DEFINITIONS 
# 
  
# 
*     DEFINITIONS FOR CIO ERROR CODES.
# 
  
      DEF EOI        #1#;            # END OF INFORMATION # 
  
# 
*     DEFINITIONS FOR CIO LEVEL NUMBERS.
# 
  
      DEF EOF       #O"17"#;         # END OF FILE #
  
# 
*     DEFINITIONS OF VALID FILE DEVICE TYPES FOR CIO I/O. 
# 
  
      CONTROL IFEQ OS$NOSBE;
      DEF VALDTMAX     # 9 #;      # NUMBER OF VALID DEVICE TYPES # 
      DEF AY #O"13"#;                # 844-2X SINGLE DENSITY DISK # 
      DEF AZ #O"14"#;                # 844-4X DOUBLE DENSITY DISK # 
      DEF AH #O"15"#;                # 819 DISK # 
      DEF AJ #O"17"#;                # 885 DISK # 
      DEF AX #O"20"#;                # ECS RESIDENT # 
      DEF MT #O"40"#;                # SEVEN TRACK TAPE # 
      DEF NT #O"41"#;                # NINE TRACK TAPE #
      DEF MTMF #O"42"#;              # SEVEN TRACK MULTIFILE MEMBER # 
      DEF NTMF #O"43"#;              # NINE TRACK MULTIFILE MEMBER #
      CONTROL ENDIF;
  
# 
*     DEFINITIONS FOR I/O FUNCTION CODES. 
# 
  
      DEF CIO$OPEN   #O"140"#;
      DEF CIO$CLOSE  #O"150"#;
      DEF CIO$CLOSNR #O"130"#;     # CLOSE, NO REWIND # 
      DEF CIO$READ   #O"10"#; 
      DEF CIO$READT  #O"12"#;      # READ TAPE (BINARY) # 
  
      DEF CIO$BKSPRU #O"44"#;      # BACKSPACE PRU #
      DEF CIO$BMODE  #O"2"#;       # READ MODE (BINARY OR CODED) #
      DEF CIO$PERRC  #O"4"#;       # PARITY ERROR CODE (TAPE) # 
  
      DEF CIO$READC  #O"200"#;
      DEF CIO$WRITE  #O"14"#; 
      DEF CIO$WRITET #O"16"#;      # WRITE TAPE (BINARY) #
      DEF CIO$WRITEC #O"204"#;
      DEF CIO$WRITEF #O"34"#; 
      DEF CIO$WRITER #O"24"#; 
  
# 
*     DEFINITIONS FOR CODE/STATUS IN RHF FET. 
# 
  
      DEF CMP$NO$ERR #0#;            # TRANSFER COMPLETE, NO ERROR #
    # DEF EOI #      #1#             # END OF INFORMATION # 
      DEF PARAM$ERR  #2#;            # RHF FET PARAMETER ERROR #
      DEF NXTBKMSGBK #3#;            # NEXT BLOCK IS LEVEL 7 MSG. # 
      DEF ABNMISCOMP #4#;            # ABN MISCOMPARE # 
      DEF LASTBK2BIG #5#;            # LAST BLOCK WAS TOO BIG # 
      DEF CTWDFMTERR #6#;            # CONTROL WORD FORMAT ERROR #
      DEF NO$BUF$OUT #7#;            # NO BUFFERS FOR OUTPUT #
      DEF HDRTXTLGER #O"10"#;        # HEADER/TEXT LENGTH MISMATCH #
      DEF PRBKWOEREI #O"11"#;        # PARTIAL BLOCK W/O EOR OR EOI # 
      DEF NTABNNINSQ #O"12"#;        # NETWORK ABN NOT IN SEQUENCE #
      DEF BLKNOTM60  #O"13"#;        # BLOCK NOT MULTIPLE OF 60 BITS #
      DEF UNDETBLKER #O"14"#;        # UNDETERMINED BLOCK ERROR # 
      DEF GRTESTRERR #O"14"#;        # LARGEST CODE/STATUS VALUE #
  
# 
*     FET BUFFER SIZE CONSIDERATIONS. 
* 
*     RMS PRU SIZE (ALL MODES)
*                  = 64 WORDS + 2 CONTROL WORDS (NOS) 
*                  = 64 WORDS + 1 CONTROL WORD (NOS/BE).
* 
*     LOCAL (CIO) DATA BLOCK (RMS)
*                  = 2 RMS PRUS = 132 WORDS (NOS) 
*                  = 2 RMS PRUS = 130 WORDS (NOS/BE)
* 
*     LOCAL (CIO) DATA BLOCK (MAGNETIC TAPE)
*                  = 514 WORDS (NOS)
*                  = 512 WORDS (NOS/BE) 
* 
*     RHF BINARY DATA BLOCK (UH/UU/US MODE) (SEE NOTE 1.) 
*                  = 6 RMS PRUS = 6*66 = 396 (NOS)
*                  = 6 RMS PRUS = 6*65 = 390 (NOS/BE) 
* 
*     RHF CHARACTER DATA BLOCK (C6/C8 MODE) (SEE NOTE 1.) 
*                  = 12 RMS PRUS = 12*66 = 792 (NOS)
*                  = 12 RMS PRUS = 12*65 = 780 (NOS/BE) 
* 
*     FET BUFFER SPACE CALCULATION. 
* 
*     FIP (XFRINIT) SETS THE LOCAL FET BUFFER SIZE TO THE LARGER OF 
*            FETBUFSIZE * 1000/(BUFRATIO[MODE]+1000)
*         OR MINBUFL
* 
*     FIP SETS THE RHF FET BUFFER SIZE TO THE LARGER OF 
*            FETBUFSIZE - (LOCAL BUFFER SIZE) 
*         OR MINBUFR[MODE]
* 
*     FETBUFSIZE IS THE INSTALLATION PARAMETER SPECIFYING THE TOTAL 
*          NUMBER OF WORDS TO BE ASSIGNED TO THE LOCAL AND RHF FET
*          BUFFERS. 
* 
*     BUFRATIO IS THE RATIO OF LOCAL TO RHF BUFFER SIZES: 
*          A VALUE OF 1000  -      1  :  1
*          A VALUE OF 2000  -      1  :  2
* 
*     MINBUFL IS THE MINIMUM LOCAL BUFFER SIZE. 
* 
*     MINBUFR[0/-1/-2/-3/-4] ARE THE MINIMUM RHF FET BUFFER SIZES FOR 
*          MODES UH, UU, US, C6, AND C8, RESPECTIVELY.
* 
*     NOTES.
* 
*     1. EXTRA WORDS (2 NOS BINARY, 66 NOS CODED, 65 NOS/BE) ARE ADDED
*        TO THE RHF FET BUFFER BECAUSE THE NAD DRIVER, NDR, REQUIRES
*        EXTRA SPACE WHEN RECEIVING A FULL BLOCK WITH END-OF-RECORD.
* 
*     2. BOTH BUFFERS ARE COMBINED INTO ONE FOR SINGLE-BUFFER  I/O, 
*        I.E., WHEN THE LOCAL DEVICE IS RMS AND THE TRANSFER MODE 
*        IS UH, UU, OR US.
# 
  
      CONTROL IFEQ OS$NOS;
      DEF MINBUFL    # 133 #;     # LOCAL FET         66*2 + 1 #
      DEF MINBUFR0   # 399 #;     # RHF FET (UH)  66*6 + 2 + 1 #
      DEF MINBUFR1   # 399 #;     # RHF FET (UU)  66*6 + 2 + 1 #
      DEF MINBUFR2   # 399 #;     # RHF FET (US)  66*6 + 2 + 1 #
      DEF MINBUFR3   # 859 #;     # RHF FET (C6) 66*12 + 66 + 1 # 
      DEF MINBUFR4   # 859 #;     # RHF FET (C8) 66*12 + 66 + 1 # 
  
      DEF BUFRATIO0  # 1000 #;    # LOCAL:RHF BUFF RATIO (UH) # 
      DEF BUFRATIO1  # 1000 #;    # LOCAL:RHF BUFF RATIO (UU) # 
      DEF BUFRATIO2  # 1000 #;    # LOCAL:RHF BUFF RATIO (US) # 
      DEF BUFRATIO3  # 2000 #;    # LOCAL:RHF BUFF RATIO (C6) # 
      DEF BUFRATIO4  # 1000 #;    # LOCAL:RHF BUFF RATIO (C8) # 
      CONTROL ENDIF;
  
      CONTROL IFEQ OS$NOSBE;
      DEF MINBUFL    # 513 #;     # LOCAL FET           512 + 1 # 
      DEF MINBUFR0   # 456 #;     # RHF FET (UH)  65*6 + 65 + 1 # 
      DEF MINBUFR1   # 456 #;     # RHF FET (UU)  65*6 + 65 + 1 # 
      DEF MINBUFR2   # 456 #;     # RHF FET (US)  65*6 + 65 + 1 # 
      DEF MINBUFR3   # 846 #;     # RHF FET (C6) 65*12 + 65 + 1 # 
      DEF MINBUFR4   # 846 #;     # RHF FET (C8) 65*12 + 65 + 1 # 
  
      DEF BUFRATIO0  # 1000 #;    # LOCAL:RHF BUFF RATIO (UH) # 
      DEF BUFRATIO1  # 1000 #;    # LOCAL:RHF BUFF RATIO (UU) # 
      DEF BUFRATIO2  # 1000 #;    # LOCAL:RHF BUFF RATIO (US) # 
      DEF BUFRATIO3  # 2000 #;    # LOCAL:RHF BUFF RATIO (C6) # 
      DEF BUFRATIO4  # 1000 #;    # LOCAL:RHF BUFF RATIO (C8) # 
      CONTROL ENDIF;
  
# 
*     INSTALLATION PARAMETER. 
# 
      DEF FETBUFSIZE # 3200 #;    # TOTAL FET BUFFER SIZE # 
  
      DEF LEN$LFET   #8#;            # LENGTH OF LOCAL FILE FET # 
      DEF LEN$RFET   #8#;            # LENGTH OF RHF FET #
      DEF LEN$RFETEX #3#;            # EXTENSION LENGTH OF RHF FET #
      DEF LEN$XTRA   #20#;           # LENGTH OF ARRAY XFRHOLD #
  
      DEF LENFETAPB  #LEN$LFET+LENRHFPBLK+LEN$RFET+LEN$XTRA#; 
  
# 
**    DEFINITIONS FOR APPLICATION BLOCK TYPE. 
# 
  
      DEF NULLBLOCK  #0#;            # NULL BLOCK RECEIVED #
      DEF MEMBERBLK  #1#;            # ONE OF SEVERAL BLOCKS OF A MSG. #
      DEF LASTBLOCK  #2#;            # LAST OR ONLY BLOCK OF A MESSAGE #
      DEF SUPMSGBLK  #3#;            # SUPERVISORY MESSAGE BLOCK #
      DEF APPQBLK    #6#;          # Q-BLK TYPE BLOCK # 
      DEF APPQMSG    #7#;          # Q-MSG TYPE BLOCK # 
  
# 
*     DEFINITIONS FOR APPLICATION CHARACTER TYPE. 
# 
  
      DEF ACT60BIN   #1#;            # 60 BIT CHARACTERS IN 1 CM WORD # 
      DEF ACT8B7PT5W #2#;            # 8 BIT CHARS. PACKED 7.5/WORD # 
      DEF ACT8B12BYT #3#;            # 8 BIT CHARS. IN 12 BIT BYTES # 
      DEF ACT6B10W   #4#;            # 6 BIT DISPL. CODE CHARS 10/WORD #
  
  
# 
*  DEFINE USER DATA DECLARATION TYPES (AS USED BY FIPXFR) 
# 
  
      DEF NUMDD   #5#;             # NUMBER OF LEGAL DATA DECS #
      DEF MINDD   #0#;             # MINIMUM VALUE OF A LEGAL DD #
      DEF MAXDD   #4#;             # MAXIMUN VALUE OF A LEGAL DD #
  
      DEF UH      #0#;             # BINARY DATA WITH EMBEDDED
                                      CONTROL WORDS # 
      DEF UU      #1#;             # BINARY DATA, UNSTRUCTURED #
      DEF US      #2#;             # BINARY DATA, STRUCTURED #
      DEF C6      #3#;             # DISPLAY CODE WITH Z-BYTES #
      DEF C8      #4#;             # ASCII WITH Z-BYTES # 
      DEF CN      #5#;             # ASCII SENT/RECEIVED OVER THE 
                                      NETWORK. ITS 8/12 ASCII WITH
                                      UNIT SEPARATORS. THIS IS NOT
                                      A LEGAL DATA DEC FOR AN 
                                      APPLICATION TO SPECIFY #
  
# 
*     DEFINE DATA DECLARATION TYPE AS USED BY THE NETWORK DRIVER (NDR). 
# 
  
      DEF BINARY #1#;              # BINARY FILES - UH, UU, OR US # 
      DEF DISCOD #2#;                # DISPLAY CODE FET DD TYPE # 
      DEF ASCII  #3#;                # ASCII FET DD TYPE #
  
# 
*     CODE CONVERSION STATES. 
# 
  
      DEF FIRSTCMST  #1#;            # FIRST CONVERT MODE STATE # 
      DEF LASTCMST   #4#;            # LAST CONVERT MODE STATE #
      DEF BINARYST   #0#;            # NO CONVERT MODE ACTIVE # 
  
      DEF WRITEASC   #1#;            # CONVERT ASCII TO NETWORK ASCII # 
      DEF WRITEDC    #2#;            # CONVERT DIS. TO NETWORK ASCII #
      DEF READASC    #3#;            # READ NETWORK ASCII TO ASCII #
      DEF READDC     #4#;            # READ NETWORD ASCII TO DIS. # 
  
  
  
  
  
# 
**    DEFINITIONS FOR ASYNCHRONOUS SUPERVISORY MESSAGES.
# 
  
      DEF NUMPASMSGS #11#;           # NUMBER OF ASYNC SUP MSGS # 
  
# 
*     CM/EXIT/N MESSAGE  (CONVERT MODE EXIT REPLY). 
# 
  
      DEF CM$EXIT$N  #X"C341"#;      # EXIT CONVERT MODE REPLY #
  
# 
*     CM/SEL/A MESSAGE  (CONVERT MODE SELECT REJECT)
# 
  
      DEF CM$SEL$A   #X"C380"#;      # SELECT CONVERT MODE REJECT # 
      DEF CODCONNA   #1#;            # CODE CONVERSION NOT AVAILABLE #
  
# 
*     CM/SEL/N MESSAGE  (CONVERT MODE SELECT REPLY) 
# 
  
      DEF CM$SEL$N   #X"C340"#;      # SELECT CONVERT MODE REPLY #
  
# 
*     CON/CB/R  MESSAGE (CONNECTION BROKEN MESSAGE).
# 
  
      DEF CON$CB$R   #X"6305"#; 
  
# 
*     CTRL/INFO/R MESSAGE (REQUEST FOR RHF CONTROL INFORMATION).
# 
  
      DEF CTRL$INF$R  #X"E100"#;
  
# 
*     DC/CICT/R MESSAGE (CHANGE APPLIC. CHAR. TYPE OF CONNECTION INPUT).
# 
  
      DEF DC$CICT$R  #X"C200"#; 
  
# 
*     ERR/LGL/R MESSAGE (APPLICATION LOGIC ERROR ). 
# 
  
      DEF ERR$LGL$R  #X"8401"#; 
  
# 
*     FC/ACK/R MESSAGE (OUTPUT BLOCK DELIVERED).
# 
  
      DEF FC$ACK$R  #X"8302"#;
  
# 
*     FC/BRK/R  MESSAGE (REPORT AN APPLIC. TO APPLIC. PROTOCAL ERROR ). 
# 
  
      DEF FC$BRK$R   #X"8300"#; 
  
# 
*     FC/NAK/R  MESSAGE (OUTPUT BLOCK NOT DELIVERED). 
# 
  
      DEF FC$NAK$R  #X"8303"#;
  
# 
*     LST MESSAGE  (TURN LIST PROCESSING FOR CONNECTION ON OR OFF)
# 
  
      DEF LST        #X"C0"#; 
      DEF LSTON      #1#; 
      DEF LSTOFF     #0#; 
  
# 
*     SHUT/INSD/R MESSAGE (INSTALLATION SHUTDOWN WARNING).
# 
  
      DEF SHUT$INS$R #X"4206"#;      # CODE FOR SHUTDOWN MSG #
      DEF IDLE$DOWN  #FALSE#; 
      DEF DISABLE    #TRUE#;
  
# 
*     DEFINITIONS FOR CM/SEL/R AND CM/EXIT/R. 
# 
  
      DEF CM$SEL$R   #X"C300"#;      # CM/SEL/R # 
      DEF CM$EXIT$R  #X"C301"#;      # CM/EXIT/R #
  
# 
*     DEFINITIONS ASSOCIATED WITH LEVEL 7 COMMAND MESSAGES. 
# 
  
      DEF LENTEXAREA #4#;            # LENGTH OF TEXT AREA #
      DEF MAXSTATCNT #10#;           # MAX STATE COUNT #
      DEF LENTAINCH  #30#;           # LENGTH OF TEXT AREA IN CHARS. #
  
# 
*     CURRENTLY ALL LEVEL 7 MESSAGES OUTPUT BY FIP ARE OF EQUAL LENGTH. 
*     IF THIS SHOULD CHANGE, THEN THE ITEM HWO7$TLCU IN ARRAY HWO7MSG 
*     SHOULD BE SET DYNAMICALLY IN ALL ROUTINES WHICH REFERENCE HWO7MSG.
# 
  
      DEF LENTAL7MOF #14#;           # LNTH OF LVL 7 MSG OUTPUT BY FIP #
  
  
# 
*     LEVEL 7 MESSAGE COMMAND ORDINAL DEFINITIONS.
# 
  
      DEF AACMD$SS   #30#;           # START OF DATA TRANSFER # 
      DEF AACMD$ES   #32#;           # END OF DATA #
      DEF AACMD$QR   #35#;           # QUIT SENDING DATA #
      DEF AACMD$ER   #36#;           # END ACKNOWLEDGE #
  
# 
*     LEVEL 7 MESSAGE PARAMETER ATTRIBUTE NUMBER DEFINITIONS. 
# 
  
      DEF ATR$DXFRP  #23#;           # DATA TRANSFER PHASE #
  
# 
* 
*     LEVEL 7 MESSAGE PARAMETER QUALIFIER DEFINITIONS.
# 
  
      DEF QUAL$M     #"M"#;          # MODIFY # 
      DEF QUAL$S     #"S"#;          # SELECT # 
      DEF QUAL$I     #"I"#;          # IGNORE # 
  
# 
*     LEVEL 7 MESSAGE PARAMETER TEXT STRING LENGTH. 
# 
  
      DEF TSL$DXFR   #4#;            # CHARS. IN DATA XFR TEXT STRING # 
  
# 
*     LEVEL 7 MESSAGE PARAMETER TEXT STRINGS FOR <SS> COMMAND.
# 
  
      DEF P$SS$BOI   #"0000"#;       # SENDING DATA FROM BOI #
  
# 
*     LEVEL 7 MESSAGE PARAMETER TEXT STRINGS FOR <ES> COMMAND.
# 
  
      DEF P$ES$OK    #"0000"#;       # NORMAL END-OF-DATA STATUS #
      DEF P$ES$HOLD  #"0010"#;       # SUSPENDING DATA TRANSMISSION # 
      DEF P$ES$ERR20 #"0020"#;       # RECEIVE ERROR, RETRY # 
      DEF P$ES$ERR21 #"0021"#;       # RECIEVE ERROR, NO RETRY #
      DEF P$ES$ERR22 #"0022"#;       # PROTOCOL ERR DETECTED BY RECVR. #
      DEF P$ES$ERR28 #"0028"#;       # SENDER ERROR, RETRY #
      DEF P$ES$ERR29 #"0029"#;       # SENDER ERROR, NO RETRY # 
      DEF P$ES$ERR2A #"002A"#;       # PROTOCOL ERR DETECTED BY SENDER #
      DEF P$ES$ERR2B #"002B"#;       # GO NOT ACCEPTABLE TO SENDER #
      DEF P$ES$ERR23 #"0023"#;       # GO NOT ACCEPTABLE TO RECEIVER #
  
# 
*     LEVEL 7 MESSAGE PARAMETER TEXT STRINGS FOR <QR> COMMAND.
# 
  
      DEF P$QR$OK    #"0000"#;       # STOP TRANSFER, ENUFF DATA RCVD. #
      DEF P$QR$HOLD  #"0010"#;       # REQUEST SUSPEND DATA TRANSFER #
      DEF P$QR$ERR20 #"0020"#;       # RECEIVER ERR., RETRY POSSIBLE #
      DEF P$QR$ERR21 #"0021"#;       # RCVR. ERR., NO RETRY POSSIBLE #
      DEF P$QR$ERR22 #"0022"#;       # PROTOCOL ERR DETECTED BY RCVR. # 
      DEF P$QR$ERR23 #"0023"#;       # GO NOT ACCEPTABLE TO RECEIVER #
  
# 
*     LEVEL 7 MESSAGE PARAMETER TEXT STRING DEFINITIONS FOR <ER> CMD. 
# 
  
      DEF P$ER$OK    #"0000"#;       # DATA TRANSFER ENDED, NO ERROR #
      DEF P$ER$HOLD  #"0010"#;       # CANCEL OR REQUEST A HOLD # 
      DEF P$ER$ERR20 #"0020"#;       # RECEIVE ERROR, RETRY POSSIBLE #
      DEF P$ER$ERR21 #"0021"#;       # RECEIVE ERR., NO RETRY POSSIBLE #
      DEF P$ER$ERR22 #"0022"#;       # PROTOCOL ERR DETECTED BY RCVR. # 
      DEF P$ER$ERR23 #"0023"#;       # GO NOT ACCEPTABLE TO RECEIVER #
      DEF P$ER$ERR28 #"0028"#;       # SENDER ERROR, RETRY POSSIBLE # 
      DEF P$ER$ERR29 #"0029"#;       # SENDER ERR, NO RETRY POSSIBLE #
      DEF P$ER$ERR2A #"002A"#;       # PROTOCOL ERR DETECTED BY SENDER #
      DEF P$ER$ERR2B #"002B"#;       # GO NOT ACCEPTABLE TO SENDER #
  
# 
*     DEFINITIONS ASSOCIATED WITH RHF-S REQUEST REPLY BLOCKS. 
# 
  
      DEF LENRHFPBLK #3#;            # LENGTH OF ARRAY RHFREQREPB # 
      DEF MAXWCRHFPL #2#;            # MAX WORD CNT OF RHF PARAM LIST # 
  
# 
*     DEFINITIONS FOR FIELDS WITHIN THE FILE TRANSFER TABLE.
# 
  
      DEF FTTLENGTH  # 4 #;        # LENGTH OF FILE TRANSFER TABLE #
  
# 
*     DEFINITIONS FOR FTTSTATE. 
# 
  
      STATUS SFTTSTATE
                    INIT$STATE,      # INITIAL STATE #
                    WAITFOROPC,      # WAIT FOR OPEN TO COMPLETE #
                    SSISSWFACK,      # SS ISSUED WAIT FOR ACK # 
                    WTFRSSCMD,       # WAIT FOR SS COMMAND #
                    WFORSCMR,        # WAIT FOR SELECT CM REPLY # 
                    WFORCMRES,       # WAIT FOR CM RESOURCES #
                    DATAXFRPRG,      # DATA TRANSFER IN PROGRESS #
                    WFORECMR,        # WAIT FOR EXIT CM REPLY # 
                    ESISSWFACK,      # ES ISSUED WAIT FOR ACK # 
                    EOIRCVWFES,      # EOI RECEIVED WAIT FOR ES # 
                    ERISSWFACK,      # ER ISSUED WAIT FOR ACK # 
                    WTFRERCMD,       # WAIT FOR ER COMMAND #
                    QRISSWFACK,      # QR ISSUED WAIT FOR ACK # 
                    FCNAKRCVD,       # FC/NAK RECEIVED #
                    DATAXFRDLY,      # DATA TRANSFER DELAY #
                    ALL$OTHERS;      # MAXIMUM FTT STATE + 1 #
  
# 
*     INCOMING ASYNCHRONOUS SUPERVISORY MESSAGES SUPPORTED. 
# 
  
      STATUS ASMGS
                    CM$EXIT$N,
                    CM$SEL$A, 
                    CM$SEL$N, 
                    CON$CB$R, 
                    CTRL$INF$R, 
                    DC$CICT$R,
                    ERR$LGL$R,
                    FC$ACK$R, 
                    FC$BRK$R, 
                    FC$NAK$R, 
                    SHUT$INS$R, 
                    ALL$OTHERS; 
  
  
# 
*     DEFINE DATA STATES
# 
  
      DEF DSNULL     #0#;            # NULL EXTENT #
      DEF DSFULL     #1#;            # FULL EXTENT #
      DEF DSEOR      #2#;            # EOR EXTENT # 
      DEF DSEOI      #3#;            # EOI EXTENT # 
  
# 
*     DEFINE I/O STATES 
# 
  
      DEF IOREQNRML  #0#;            # I/O REQUEST NORMAL # 
      DEF IOINPROG   #1#;            # I/O IN PROGRESS #
      DEF IOREQWRTR  #2#;            # I/O REQUEST WRITER # 
      DEF IOINPGWRTR #3#;            # I/O WRITER IN PROGRESS # 
      DEF IODONE     #4#;            # I/O IS DONE (EOI PROCESSED) #
      DEF IOFLUSH    #5#;          # I/O IS BEING FLUSHED # 
  
      DEF PRUWDSIZE  #65#;           # NOS/BE PRU CONTROLWORD SIZE #
      DEF WORDTYPE   #0#;          # WORD CONVERSION TYPE # 
      DEF CNTOC6TYPE #1#;          # CN TO C6 CONVERSION TYPE # 
      DEF C6TOCNTYPE #3#;          # C6 TO CN CONVERSION TYPE # 
# 
*     DEFINITIONS FOR FTTDIRECN.
# 
  
      DEF RECEIVE  # 0 #; 
      DEF SEND     # 1 #; 
  
# 
*     DEFINITIONS FOR FTTCOUNT. 
# 
  
      DEF MAXFTTCOUN #50#;           # MAX VALUE FOR FTTCOUNT # 
# 
*     MAXIMUM RETRYS FOR WAITING FOR CONVERT MODE RESOURCES.
# 
  
      DEF MAXCMRTYS  #30#;           # MAXIMUM CONVERT SELECT RTYS #
  
                                               CONTROL LIST;
