*COMDECK COMRRTN
#     COMRRTN  -  REQUEST AND RETURN CODE DEFINITIONS.  # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL ENDIF; 
# 
***   COMRRTN - REQUEST AND RETURN CODE DEFINITIONS.
* 
*     COMRRTN CONTAINS VARIOUS REQUEST AND RETURN CODE DEFINITIONS FOR
*     BOTH INTERNAL AND EXTERNAL INTERFACES.
* 
* 
# 
  
      BEGIN  # COMRRTN COMMON DECK #
  
# 
*     NETON RETURN CODES. 
# 
  
      DEF NTON$OK     #0#;           # NETON SUCCESSFUL # 
      DEF NTON$MXAPL  #1#;           # NO TABLE SPACE FOR ADD'AL NETON #
      DEF NTON$MXANM  #2#;           # NO MORE SPACE FOR ANAME NETONS # 
      DEF NTON$APLDS  #3#;           # APPLICATION DISABLED # 
      DEF NTON$ILANM  #4#;           # ILLEGAL APPLICATION NAME REQSTD #
      DEF NTON$NOVAL  #5#;           # IMPROPER VALIDATION #
      DEF NTON$ILACN  #6#;           # ILLEGAL MIN OR MAX ACN VALUES #
      DEF NTON$ALRDY  #7#;           # APPL ALREADY NETTED ON # 
  
# 
*     CON/ACRQ/R RETURN CODES.
# 
  
      DEF ACRQ$OK    #0#;            # SUCCESSFUL # 
      DEF ACRQ$ANAME #1#;            # ANAME NOT RUNNING, INVALID, ETC# 
      DEF ACRQ$LSHUT #2#;            # LOCAL SHUTDOWN IN PROGRESS # 
      DEF ACRQ$MXCON #3#;            # MAX CONNECTIONS TO APPL REACHED #
      DEF ACRQ$ILIDD #4#;            # LID/PID/NAD DISABLED OR INVALID# 
                                     # AT DESTINATION. #
      DEF ACRQ$LIMIT #5#;            # RESOURCE LIMIT REACHED-NAD # 
      DEF ACRQ$NORES #6#;            # DESTINATION DOES NOT RESPOND # 
      DEF ACRQ$ILIDS #7#;            # LID NOT DEFINED #
                                     # AT SOURCE. # 
      DEF ACRQ$RSHUT #8#;            # REMOTE SHUTDOWN IN PROGRESS #
      DEF ACRQ$PSWRD #9#;            # SUBSYSTEM PASSWORD REJECTED #
      DEF ACRQ$DLIDS #10#;           # LID/PID/NAD DISABLED # 
                                     # AT SOURCE. # 
      DEF ACRQ$KNOWN #10#;           # LAST KNOWN ERROR CODE #
      DEF ACRQ$UNKWN #100#;          # START OF UNKNOWN REMOTE ERRORS # 
  
# 
*     FC/NAK RETURN CODES.
# 
  
      DEF NAK$LOST   #1#;            # BLOCK LOST - SYSTEM ERROR #
      DEF NAK$LIMIT  #2#;            # OUTPUT RETRY LIMIT REACHED # 
      DEF NAK$NONAD  #3#;            # NAD UNAVAILABLE #
  
# 
*     ERR/LGL RETURN CODES. 
# 
  
      DEF LGL$NULERR #0#;            # NOT USER LOGIC ERROR # 
      DEF LGL$BADACT #1#;            # INVALID ACT-DC/CICT/R OR BLK HDR#
      DEF LGL$BADTLC #2#;            # INVALID TLC #
      DEF LGL$BADABT #3#;            # INVALID ABT IN OUTGOING BLK HDR# 
      DEF LGL$BADACN #4#;            # INVALID ACN IN OUTGOING BLK HDR# 
      DEF LGL$BLKLMT #5#;            # OUTGOING BLOCK LIMIT EXCEEDED #
      DEF LGL$ERRLMT #6#;            # MORE THAN 50 ERR/LGLS QUEUED # 
      DEF LGL$PROTCL #7#;            # BAD ASYNC SUPER MSG PROTOCOL # 
#     DEF LGL$RES     8 - 12           RESERVED FOR NAM  #
      DEF LGL$INVNXF #13#;           # INVALID NETXFR FUNCTION  # 
      DEF LGL$BADALN #14#;           # INVALID ALN IN LST/SWH  #
  
# 
*     LOGIC ERROR SUB CODES.
# 
  
      DEF LES$HAERR  #1#;            # HEADER ADDRESS ERROR # 
      DEF LES$TAERR  #2#;            # TEXT ADDRESS ERROR # 
      DEF LES$FAERR  #3#;            # FET ADDRESS ERROR #
#     DEF LES$SSFERR O"40" - O"77"     SSF ERROR CODES #
  
# 
*     CTRL/INFO/R FUNCTION CODES. 
# 
  
      DEF CTR$LIDPID #0#;            # GIVE PID LIKELY ASSIGNED FOR LID#
      DEF CTR$SETEOJ #1#;            # SET END OF JOB CONNECT # 
      DEF CTR$GETNDT #2#;            # SEND NETWORK DESC TABLE TO UCP#
  
# 
*     CTRL/INFO/R RETURN CODES. 
# 
  
      DEF CTRN$OK    #0#;            # SUCCESSFUL # 
      DEF CTRN$LID   #1#;            # BAD LID OR NO PATHS TO THAT LID #
  
# 
*     SCANPTH RETURN CODES. 
# 
      DEF SCAN$OK    #0#;            # PATH FOUNT # 
      DEF SCAN$DIS   #1#;            # PATHS DISABLED # 
      DEF SCAN$REJ   #2#;            # NAD CONNECT REJECT SET-ALL PATHS#
      DEF SCAN$NOID  #3#;            # REQUESTED LID/PID NOT FOUND #
  
# 
*     SCNAPTH REQUEST CODES.
# 
  
      DEF BEST$     #0#;             # FIND BEST PATH # 
      DEF BEST$REJ   #1#;            # FIND BEST REJECTED PATH #
  
# 
*     UCPMSG REQUEST CODES. 
# 
  
      DEF INFORM$    #0#;            # SEND DFILE MSG TO UCP #
      DEF INFORM$ABT #1#;            # SEND MSG AND ABORT UCP # 
      DEF REPLY$     #2#;            # SEND MSG AND SET REQUEST COMPLT# 
      DEF REPLY$ABT  #3#;            # SEND MSG, SET CMPLT AND ABORT #
  
# 
*     REMOTE CONNECTION REQUEST REPLY CODES 
# 
  
      DEF CONR$OK    #0#;            # CONNECT ACCEPT # 
      DEF CONR$BDAPL #1#;            # ANAME UNKNOWN, DISABLED,FULL,ETC#
      DEF CONR$SHUT  #2#;            # SHUTDOWN IN PROGRESS # 
      DEF CONR$BDNAD #3#;            # REQUESTING/REQUESTED NAD NOT 
                                       DEFINED OR DISABLED #
      DEF CONR$BDID  #4#;            # INVALID/DISABLED PID/LID # 
      DEF CONR$BDPSW #5#;            # INVALID PASSWORD # 
  
# 
*     SETLTC REQUEST CODES. 
# 
  
      DEF LTC$       #0#;            # SET LONG TERM CONNECT #
      DEF EOJC$      #1#;            # SET END OF JOB CONNECT # 
  
# 
*     CIO REQUEST CODES.
# 
  
      DEF CIORQ$READ #O"10"#;        # READ # 
      DEF CIORQ$CLRT  #O"174"#;       # CLOSE/RETURN #
      DEF CIORQ$WRTR #O"24"#;        # WRITER # 
      DEF CIORQ$REW  #O"50"#;        # REWIND # 
      DEF CIORQ$SKPF #O"240"#;       # SKIPF #
      DEF CIORQ$RDC  #O"200"#;       # READC #
      DEF CIORQ$WRIT #O"14"#;        # WRITE #
      DEF CIORQ$WRTF #O"34"#;        # WRITEF # 
      DEF CIORQ$CLOS #O"150"#;       # CLOSE #
      DEF CIORQ$WRTC #O"204"#;       # WRITEC # 
  
# 
*     CM/SEL/A REPLY CODES. 
# 
  
      DEF CMS$CMNE   #1#;            # CODE CONVERSION NOT ENABLED #
      DEF CMS$CMPNA  #2#;            # CONVERT MODE PATH NOT AVAIL. # 
  
  
  
      END  # COMRRTN #
  
                                               CONTROL LIST;
