*COMDECK COMCCAE                   03NOV80
                                   #
          CTEXT  COMCCAE - RHF COMMAND AND ATTRIBUTE EQUIVALENCES.
                                   #
                                                 CONTROL NOLIST;
                                                 CONTROL IFEQ LISTCON,1;
                                                 CONTROL LIST;
                                                 CONTROL ENDIF; 
                                   #
  
          BASE   D
  
*         COMMENT  COPYRIGHT CONTROL DATA CORP. 1980. 
          SPACE  4,10 
***       COMCCAE - RHF COMMAND AND ATTRIBUTE EQUIVALENCES. 
* 
*         J. G. CLARK        79/11/01.
*         K. P. HOFFMANN     80/01/01.
          SPACE  4,10 
***       COMCCAE CONTAINS THE DEFINITION OF THE PROTOCOL COMMANDS AND
*         ATTRIBUTES USED BY THE RHF APPLICATIONS.  THE FORMAT OF THE 
*         DEFINITIONS BELOW ALLOW ASSEMBLY BY EITHER SYMPLE OR COMPASS
*         (SEE ##DEF## MACRO IN COMMON DECK COMCMAC). 
  
  
****      APPLICATION COMMAND DEFINITIONS.
  
          QUAL   AC 
  
                                   #
#RFT      #DEF#  00  #CM$RFT  #00#;  # REQUEST FILE TRANSFER #
#RPOS     #DEF#  01  #CM$RPOS #01#;  # REPLY POSITIVE # 
#RNEG     #DEF#  02  #CM$RNEG #02#;  # REPLY NEGATIVE # 
#GO       #DEF#  03  #CM$GO   #03#;  # ENTER DATA TRANSFER PHASE #
#STOP     #DEF#  04  #CM$STOP #04#;  # ENTER IDLE STATE # 
#STOPR    #DEF#  05  #CM$STPR #05#;  # STOP REPLY # 
#RLNK     #DEF#  06  #CM$RLNK #06#;  # REQUEST LINK # 
                                   #
 SS       EQU    30 
 ES       EQU    32 
 QR       EQU    35 
 ER       EQU    36 
                                   #
#STC      #DEF#  40  #CM$STC  #40#;  # START TERMINAL CONNECT # 
#ATC      #DEF#  41  #CM$ATC  #41#;  # ACCEPT TERMINAL CONNECT #
#RTC      #DEF#  42  #CM$RTC  #42#;  # REJECT TERMINAL CONNECT #
#ETC      #DEF#  43  #CM$ETC  #43#;  # END TERMINAL CONNECTION #
#ETCR     #DEF#  44  #CM$ETCR #44#;  # ETC REPLY #
  
#SDE      #DEF#  50  #CM$SDE  #50#;  # START DATA EXCHANGE #
#SDER     #DEF#  51  #CM$SDER #51#;  # SDER REPLY # 
#TDB      #DEF#  52  #CM$TDB  #52#;  # TERMINAL DATA BLOCK #
#TBA      #DEF#  53  #CM$TDA  #53#;  # TERMINAL DATA ACCEPT # 
#TDN      #DEF#  54  #CM$TDN  #54#;  # TERMINAL DATA NAK #
#EDE      #DEF#  55  #CM$EDE  #55#;  # END DATA EXCHANGE #
#EDER     #DEF#  56  #CM$EDER #56#;  # EDE REPLY #
#ETP      #DEF#  60  #CM$ETP  #60#;  # ENTER TERMINATION PHASE #
#ETPR     #DEF#  61  #CM$ETPR #61#;  # ENTER TERMINATION PHASE REPLY #
#FINI     #DEF#  62  #CM$FINI #62#;  # COMPLETE TERMINATION PHASE # 
                                   #
  
****
          QUAL   *
  
  
****      APPLICATION PARAMETER ATTRIBUTE DEFINITIONS.
  
  
          QUAL   AP 
  
                                   #
#CONT     #DEF#  30  #AT$AC   #30#;  # COMMAND ATTRIBUTES CONTINUED # 
#DMSG     #DEF#  08  #AT$DM   #08#;  # DAYFILE MESSAGE #
#FILE     #DEF#  16  #AT$FN   #16#;  # FILE NAME #
#OUTDV    #DEF#  17  #AT$OD   #17#;  # OUTPUT DEVICE TYPE # 
#DTSC     #DEF#  23  #AT$DP   #23#;  # DATA TRANSFER CMD ATTRIBUTE #
#ECHO     #DEF#  29  #AT$EB   #29#;  # ECHO BACK #
#FAC      #DEF#  03  #AT$FC   #03#;  # FACILITIES # 
#ID       #DEF#  00  #AT$PI   #00#;  # PROTOCOL IDENTIFIER #
#MBZ      #DEF#  12  #AT$BZ   #12#;  # MAXIMUM BLOCK SIZE # 
#ACKW     #DEF#  18  #AT$AW   #18#;  # ACKNOWEDGEMENT WINDOW #
#JOBN     #DEF#  26  #AT$JN   #26#;  # JOBNAME #
#LID      #DEF#  25  #AT$LD   #25#;  # LOGICAL ID # 
#MODE     #DEF#  21  #AT$MA   #21#;  # MODE OF ACCESS # 
#SLID     #DEF#  24  #AT$SL   #24#;  # FILE SOURCE LID #
#HOSTT    #DEF#  22  #AT$HT   #22#;  # HOST TYPE IDENTIFIER # 
#OMSG     #DEF#  07  #AT$OM   #07#;  # OPERATOR MESSAGE # 
#PID      #DEF#  27  #AT$PD   #27#;  # MAINFRAME PID #
#RHOST    #DEF#  28  #AT$RH   #28#;  # REQUIRED HOST TYPE # 
#SIZE     #DEF#  06  #AT$FS   #06#;  # FILE SIZE #
#STATE    #DEF#  04  #AT$ST   #04#;  # STATE OF TRANSFER #
#TMOUT    #DEF#  20  #AT$TO   #20#;  # TIMEOUT INTERVAL # 
#TYPE     #DEF#  31  #AT$DD   #31#;  # DATA DECLARATION # 
#UTEXT    #DEF#  05  #AT$UT   #05#;  # USER DEFINED TEXT #
#IRT      #DEF#  33  #AT$RU   #33#;  # IMPLICIT ROUTING TEXT #
#SRT      #DEF#  32  #AT$SR   #32#;  # SYSTEM ROUTING TEXT #
                                   #
  
*          PARAMETER TEXT LENGTHS.
  
                                   #
#CONTL    #DEF#  0   #AT$ACL  #0#;   # CONTINUATION # 
#ECHOL    #DEF#  999 #AT$EBL  #999#; # ECHO BACK #
#FILEL    #DEF#  7   #AT$FNL  #7#;   # FILE NAME #
#HOSTTL   #DEF#  3   #AT$HTL  #3#;   # HOST TYPE IDENTIFIER # 
#OUTDVL   #DEF#  2   #AT$ODL  #2#;   # OUTPUT DEVICE TYPE # 
#IDL      #DEF#  4   #AT$PIL  #4#;   # PROTOCOL ID #
#SLIDL    #DEF#  3   #AT$SLL  #3#;   # SOURCE LID LENGTH #
                                       CONTROL IFEQ OS$NOSBE; 
                                     ;
#.NBEJN   IFEQ   OS$NOSBE            #
#JOBNL    #DEF#  7   #AT$JNL  #7#;   # JOBNAME #
#.NBEJN   ENDIF                      #
  
                                       CONTROL ENDIF; 
                                       CONTROL IFEQ OS$NOS; 
                                     ;
#.NOSJN   IFEQ   OS$NOS              #
#JOBNL    #DEF#  4   #AT$JNL  #4#;   # JOB NAME # 
#.NOSJN   ENDIF                      #
                                       CONTROL ENDIF; 
#LIDL     #DEF#  3   #AT$LDL  #3#;   # LOGICAL ID # 
#MODEL    #DEF#  5   #AT$MAL  #5#;   # MODE OF ACCESS # 
#PIDL     #DEF#  3   #AT$PDL  #3#;   # MAINFRAME PID #
#SIZEL    #DEF#  8   #AT$FSL  #8#;   # FILE SIZE #
#STATEL   #DEF#  6   #AT$STL  #6#;   # STATE OF TRANSFER #
#TMOUTL   #DEF#  4   #AT$TOL  #4#;   # TIMEOUT INTERVAL # 
#TYPEL    #DEF#  2   #AT$DDL  #2#;   # DATA DECLARATION # 
#FACL     #DEF#  4   #AT$FCL  #4#;   # FACILITY # 
#MBZL     #DEF#  4   #AT$BZL  #4#;   # MAXIMUM BLOCK SIZE # 
#AWL      #DEF#  4   #AT$AWL  #4#;   # ACKNOWEDGEMENT WINDOW #
                                   #
  
****
          QUAL   *
  
  
****      PARAMETER QUALIFIER DEFINITIONS.
  
          QUAL   CONSTANT 
          USE    CONSTANT 
  
  
 I        MICRO  1,, 1LI
 M        MICRO  1,, 1LM
 S        MICRO  1,, 1LS
                                   #
  
#IGNORE   #DEF#  ="I"  #ATQ$I #"I"#; # IGNORE QUALIFIER # 
#MODIFY   #DEF#  ="M"  #ATQ$M #"M"#; # MODIFY QUALIFIER # 
#SELECT   #DEF#  ="S"  #ATQ$S #"S"#; # SELECT QUALIFIER # 
  
                                   #
****
  
  
****      HOST TYPE IDENTIFIERS.
  
 NOS      MICRO  1,, 3LNOS
  
 .CS64    IFNE   1R:,1R%
 NBE      MICRO  1,, 3LNBE          64-CHARACTER SET
 NS2      MICRO  1,, 3LNS2          64-CHARACTER SET
 IPCS63   EQU    0                  0=64-CHARACTER SET
 .CS64    ELSE
 NBE      MICRO  1,, 3LNB3          63-CHARACTER SET
 NS2      MICRO  1,, 3LNS3          63-CHARACTER SET
 NB3      MICRO  1,, 3LNB3          63-CHARACTER SET
 NS3      MICRO  1,, 3LNS3          63-CHARACTER SET
 IPCS63   EQU    1                  1=63-CHARACTER SET
 .CS64    ENDIF 
  
                                   #
  
#NOS     #DEF# ="NOS" #NOS  #"NOS"#; # NOS #
                                   #
 .CS64    IFEQ   IPCS63,0            # CONTROL IFNQ IPCS63; 
#NS2     #DEF# ="NS2" #NS2  #"NS2"#; # NOS V2 (64 CHAR SET) # 
#NOSBE   #DEF# ="NBE" #NBE  #"NBE"#; # NOS/BE (64 CHAR SET) # 
                                   #
 .CS64    ENDIF                      # CONTROL ENDIF; 
                                   #
 .CS64    IFNE   IPCS63,0            # CONTROL IFEQ IPCS63; 
#NS2     #DEF# ="NS2" #NS2  #"NS3"#; # NOS V2 (63 CHAR SET) # 
#NOSBE   #DEF# ="NBE" #NBE  #"NB3"#; # NOS/BE (63 CHAR SET) # 
                                   #
 .CS64    ENDIF                      # CONTROL ENDIF; 
                                   #
  
  
****      DATA DECLARATIONS.
  
  
 US       MICRO  1,, 2LUS 
 UH       MICRO  1,, 2LUH 
                                   #
                                   #
*         #DEF#      #DD$C6  #"C6"#; # 63/64 CHAR DISPLAY CODE #
                                   #
*         #DEF#      #DD$C8  #"C8"#; # ASCII GT 64, Z-BYTE TERM # 
                                   #
*         #DEF#      #DD$UU  #"UU"#; # UNDEFINED - UNSTRUCTURED # 
#UH       #DEF# ="UH" #DD$UH #"UH"#; # UNDEFINED - EMBEDDED CTRL WORDS #
#US       #DEF# ="US" #DD$US #"US"#; # UNDEFINED - STRUCTURED # 
  
                                   #
  
****  PROTOCOL IDENTIFIER.
  
 A101     MICRO  1,, 4LA101 
                                   #
  
 #CURID #DEF# ="A101"  #PRTCL #"A101"#;  # PROTOCOL IDENTIFIER #
                                   #
  
****  MODE OF ACCESS DEFINITIONS
                                   #
  
                                   #
*         #DEF#     #MA$MKO  #"T0001"#;  # MAKE ONLY #
                                   #
*         #DEF#     #MA$IFD  #"T1001"#;  # IMPLICIT FILE DISPOSE #
                                   #
*         #DEF#     #MA$EFD  #"T1002"#;  # EXPLICIT FILE DISPOSE #
  
                                   #
****
  
  
****  STATE OF TRANSFER DEFINITIONS 
  
  
*         #DEF#     #ST$OK   #"00"#; # VIABLE # 
                                   #
*         #DEF#     #ST$RJ   #"01"#; # REJECTED # 
                                   #
*         #DEF#     #ST$TM   #"02"#; # TERMINATED # 
                                   #
*         #DEF#     #ST$AB   #"03"#; # ABORTED #
                                   #
*         #DEF#     #ST$$OK  #"0000"#;  # ACCEPTABLE AND SATISFACTORY # 
                                   #
*         #DEF#     #ST$$OKR #"0001"#;  # ACCEPTABLE AND SATISFACTORY,
                                          RETRY ON DISCONNECT # 
                                   #
*         #DEF#      #ST$$UT   #"1000"#;  # UNSPECIFIED TRANSFER #
                                   #
*         #DEF#      #ST$$TM   #"1001"#;  # REFER TO TEXT MSG # 
                                   #
*         #DEF#      #ST$$AT   #"1002"#;  # UNACCEPTABLE TRANSFER 
                                            CONTROL PARAMETER # 
                                   #
*         #DEF#      #ST$$UN   #"1015"#;  # USER NUMBER UNKNOWN # 
                                   #
*         #DEF#      #ST$$UP   #"1016"#;  # USER PASSWORD ERROR # 
                                   #
*         #DEF#      #ST$$AC   #"1017"#;  # ACCOUNT NUMBER UNKNOWN #
                                   #
*         #DEF#      #ST$$AP   #"1018"#;  # ACCOUNT PASSWORD ERROR #
                                   #
*         #DEF#      #ST$$OD   #"1021"#;  # OUTPUT DEVICE ERROR # 
                                   #
*         #DEF#      #ST$$OKT  #"2000"#;  # SATISFACTORY AND COMPLETE # 
                                   #
*         #DEF#      #ST$$PB   #"2001"#;  # PROBLEM - SEE TEXT #
                                   #
*         #DEF#      #ST$$NK   #"3000"#;  # SATISFACTORY
                                            AND INCOMPLETE #
                                   #
*         #DEF#      #ST$$RP   #"3001"#;  # RECEIVER PROBLEMS - RETRY # 
                                   #
*         #DEF#      #ST$$RN   #"3002"#;  # RECEIVER PROBLEMS 
                                            - NO RETRY #
                                   #
*         #DEF#      #ST$$SP   #"3003"#;  # SENDER PROBLEMS - RETRY # 
                                   #
*         #DEF#      #ST$$SN   #"3004"#;  # SENDER PROBLEMS - NO RETRY #
                                   #
*         #DEF#      #ST$$TO   #"3005"#;  # TIMED OUT # 
                                   #
****
                                   #
                                   #
****   DATA TRANSFER PHASE DEFINITIONS
                                   #
                                   #
*         #DEF#      #DT$$OK   #O"0060 0060 0060 0060 0000"#;  # OK # 
                                   #
*         #DEF#      #DT$$ABT  #O"0060 0060 0061 0060 0000"#;  # ABT #
                                   #
****
                                   #
                                   #
****
          USE    *
          QUAL   *
  
          BASE   *
  
  
          ENDX
                                   #
                                     # END OF COMDECK COMCCAE # 
                                               CONTROL LIST;
