*COMDECK  SMDEF 
                                                                       #
*     ---COMMON      DEFINITIONS--- 
                                                                       #
                               DEF  Z$ ###X"#;
                                                                       #
************************************************************************
*     COMMON   CHC    DEFINITIONS 
                                                                       #
      DEF# ACCHC,D,1         # ACCHC    # 1 #; # CHC  ACT              #
      DEF# LCHC,D,1          # LCHC     # 1 #; # LENGTH OF CHC         #
                                                                       #
************************************************************************
*     COMMON   CR     DEFINITIONS 
                                                                       #
      DEF# ACCR,D,1          # ACCR     # 1 #; # CR   ACT              #
                                                                       #
*     CR  /ACC        DEFINITIONS 
                                                                       #
      DEF# LCRACC,D,1        # LCRACC   # 1 #; # LENGTH OF CR/ACC      #
                                                                       #
*     CR  /CB        DEFINITIONS
                                                                       #
      DEF# LCRCB,D,2         # LCRCB    # 2 #; # LENGTH OF CR /CB      #
      STATUS# RCCB, (N,A,B,C,D,E,F,G,H,I,J,K,L,M,O,LLF,CF,CTO)  #      #
* #           RCCB   N,A,B,C,D,E,F,G,H,I,J,K,L,M,O,LLF,CF,CTO,CLF,OF,NE;
                                                                       #
*     CR   /IAP       DEFINITIONS 
                                                                       #
      DEF# LCRIAP,D,3        # LCRIAP   # 3 #; # LENGTH OF CR /IAP     #
      DEF# LCRIAPA,D,1       # LCRIAPA  # 1 #; # LENGTH OF CR /IAP/A   #
      DEF# LCRIAPN,D,4       # LCRIAPN  # 4 #; # LENGTH OF CR /IAP/N   #
                                                                      # 
*     CR /IAP REASON CODE DEFINITIONS 
                                                                      # 
      STATUS  RCIA
         N,                  # NULL, ZERO, NOT USED # 
         ,,,,,,              # UNUSED REASON CODES                     #
         APF,                # CALLING APP NOT AVAIL.1- NVF INT BUG  07#
         DRJ,                # RETRY CONNECT TO APP - NAM INT BUG    08#
         ,,,,,,,,            # UNUSED REASON CODES                09-16#
         ILP,                # ILLEGAL LID/PID COMBINATION           17#
         AND,                # FOR INTRAHOST,CALLED APPL NOT DEFINED 18#
         NVO,                # NO AVAILABLE VCB ORDINALS             19#
         NMC,                # CALLED AP HAS MAX CNS AND NOT RESTRT  20#
         ,                   # UNUSED REASON CODES                   21#
         ANA,                # CALLED APPLICATION IS NOT AVAILABLE   22#
         ,,,,,,,,,,          # UNUSED REASON CODES                23-32#
         ANP,                # APPL NOT PRIVILEDGED TO ISSUE OUTCALL 33#
         ,                   # UNUSED REASON CODES                   34#
         NLL,                # NO LOGICAL-LINK, TEMPORARY            35#
         ,                   # UNUSED REASON CODE                    36#
         PNS,                # PID NOT BEING SERVICED BY NIP         37#
         ADI,                # CALLED INTRAHOST APPL.IS DISABLED     38#
         ,,,,,,,,,,          # UNUSED REASON CODES                39-48#
         NPL,                # NO CORRESPONDING PID FOUND IN THE LCF 49#
                             # OR BAD ABL, DBL, UBL VALUES SPECIFIED   #
         ,,,                 # UNUSED REASON CODES                50-52#
         IDH,                # LOCAL HOST IN IDLE OR DISABLED STATE  53#
         ,,,,,,,,,,,         # UNUSED REASON CODES                54-64#
         NOM,                # NO OUTCALL MATCH FOUND                65#
         ,,,,,,,,,,,,,,,     # UNUSED REASON CODES                66-80#
         CAM,                # CALLING APPLICATION IS AT MAXACN      81#
         ,,,,,,,,,,,,,,,     # UNUSED REASON CODES                82-96#
         RLR;                # CALLING APPL. RETRY LIMIT REACHED     97#
  
                                                                 #
*     CR  /ITE       DEFINITIONS
                                                                 #
      DEF# LCRITEA,D,1      # LCRITEA # 1 #; # LENGTH OF CR /ITE/   A # 
      DEF# LCRITEN,D,2      # LCRITEN # 2 #; # LENGTH OF CR/ITE/N     # 
      STATUS# RCIT,(N,LFE,NVC)                 #                       #
* #           RCIT  N,LFE,NVC                 ;#                       #
                                                                       #
*     CR  /SLL      DEFINITIONS 
                                                                       #
      DEF# LCRSLL,D,1       # LCRSLL  # 1 #; # LENGTH OF CR/LL         #
                                                                       #
*     CR   /RAP      DEFINITIONS
                                                                       #
      DEF# LCRRAP,D,4        # LCRRAP # 4 #; # LENGTH OF CR/RAP        #
      DEF# LCRRAPA,D,1      # LCRRAPA # 1 #; # LENGTH OF  CR/RAP/  A   #
      DEF# LCRRAPN,D,3      # LCRRAPN # 3 #; # LENGTH OF CR/RAP/N      #
                                                                      # 
*     CR  /RAP REASON CODE DEFINITIONS
                                                                      # 
      STATUS  RCRA
         N,             # NULL, ZERO, NOT USED #
         ,,,,,,,,,,,,,,,,,   # UNUSED REASON CODES                     #
         AND,                # CALLED APPLICATION NOT DEFINED        18#
         NVO,                # NO AVAILABLE VCB ORDINALS             19#
         NMC,                # CALLED AP HAS MAX CNS AND NOT RESTRT  20#
         ,                   # UNUSED REASON CODE                      #
         ANA,                # CALLED APPLICATION IS NOT AVAILABLE   22#
         ,,,,,,,,,,,         # UNUSED REASON CODES                     #
         XFP,                # FACILITY PARAMETER EXCEEDED 4 OCTETS  34#
         ,,,                 # UNUSED REASON CODES                     #
         ADI,                # CALLED APPLICATION IS DISABLED        38#
         ,,,,,,,,,,,         # UNUSED REASON CODES                     #
         XUD,                # USER DATA EXCEEDED 124 OCTETS         50#
         ,,,                 # UNUSED REASON CODES                     #
         IDH,                # HOST IS IN IDLE OR DISABLED STATE     54#
         ,,,,,,,,,,,         # UNUSED REASON CODES                     #
         NIM,                # NO MATCHING INCALL BLOCK              66#
         ,,,,,,,,,,,,,,,     # UNUSED REASON CODES                     #
         RCS,                # REQUESTED CONNECT TO NS/CS            82#
         ,,,,,,,,,,,,,,,     # UNUSED REASON CODES                     #
         NMF,                # NO MATCHING FACILITY CODE             98#
         ,,,,,,,,,,,,,,,     # UNUSED REASON CODES                     #
         MMF;                # MISMATCHING FACILITY CODE PARAMETERS 114#
                                                                   #
*     CR   /RCN      DEFINITIONS
                                                                 #
      DEF# LCRRCN,D,3       # LCRRCN  # 3 #; # LENGTH OF CR /RCN       #
      DEF# LCRRCNN,D,1      # LCRRCNN # 1 #; # LENGTH OF CR /RCN/N     #
      STATUS# RCRC ,(N,ANO,AF,NRC,ARC,ATC,ANF,AFL)   #                 #
* #           RCRC N,ANO,AF,NRC,ATC,ARC,ANF,AFL,                       #
* #                          LSA,  # LOAN CONN. TO SENDARY APPL.     10B
* #                          PAF,  # PRIMARY APPLICATION FAILED      11B
* #                          SAC,  # SECONDARY ABORTED CONN          12B
* #                      ,,,,,     # 13B - 17B RESERVED 
* #                          UVS,  # USER NOT VALIDATED FOR SENDARY  20B
* #                          SAN,  # SECONDARY NETTED OFF            21B
* #                          SAF,  # SECONDARY FAILED                22B
* #                          SAI,  # SECONDARY APPLICATION INVALID   23B
* #                          STC,  # SECONDARY TERMS CONN            24B
* #                          SRC,  # SECONDARY REFUSED CONN.         25B
* #                          SNA,  # SECONDARY NOT AVAILABLE         26B
* #                          SLE,  # SECONDARY LIMIT EXCEEDED        27B
* #                          R30 ;       # RESERVED  30B - 37B         #
                                                                       #
*     CR   /SWH      DEFINITIONS
                                                                       #
      DEF# LCRSWH,D,11      # LCRSWH  #11 #; # LENGTH OF CR /SWH       #
      DEF# LCRSWHA,D,2      # LCRSWHA # 2 #; # LENGTH OF CR /SWH/  A   #
      DEF# LCRSWHN,D,1      # LCRSWHN # 1 #; # LENGTH OF CR/SWH/N      #
      DEF# CRSWHSOK,D,8     # CRSWHSOK #8 #; # LOAN STATUS IS O.K.     #
      DEF# CRSWHSPR,D,16    # CRSWHSPR#16 #; # PROBLEM WITH LOAN CONN  #
      DEF# CRSWHTAB,D,16    # CRSWHTAB#16 # ; 
      STATUS# RCSW ,(N,ANO,AF)                              #          #
* #           RCSW   N,ANO,AF;                           # CR/SWH/A RC #
                                                                       #
*     CR   /TRM      DEFINITIONS
                                                                       #
      DEF# LCRTRM,D,1       # LCRTRM  # 1 #; # LENGTH OF CR/TRM        #
      DEF# LCRTRMN,D,1      # LCRTRMN # 1 #; # LENGTH OF CR /TRM/N     #
      STATUS# RCTR ,(N,ANV,ANA,ACL,A,B,C,D)              #             #
* #           RCTR   N,ANV,ANA,ACL,A,B,C,D            ; # CR/TRM/R   RC#
                                                                       #
************************************************************************
*     COMMON   EST    DEFINITIONS 
                                                                       #
      DEF# ACEST,D,1        # ACEST  # 1 #; # EST ACT                  #
      DEF# LEST,D,1         # LEST   # 1 #; # LENGTH OF EST            #
                                                                       #
************************************************************************
*     COMMON   FAIL   DEFINITIONS 
                                                                       #
      DEF# ACFAIL,D,1        # ACFAIL  # 1 #; #   FAIL  ACT            #
      DEF# LFAIL,D,1         # LFAIL   # 1 #; #  LENGTH OF FAIL MSG    #
                                                                       #
************************************************************************
*     COMMON   HE    DEFINITIONS
                                                                       #
      DEF# ACHE,D,1         # ACHE   # 1 #; # HE  ACT                  #
      DEF# LHE,D,1          # LHE    # 1 #; # LENGTH OF HE             #
      STATUS# RHE,(N,CE,CA,CF,CD,CNR,ER,CFA,CI,CFF,IC,WNS,IS,NTO,IM,PTO,
,MP)                                        #                          #
* #           RHE  N,CE,CA,CF,CD,CNR,ER,CFA,CI,CFF,IC,WNS,IS,NTO,IM,PTO,
,MP;                                         # HE/CP RC                #
                                                                       #
************************************************************************
*     HOPN/SEND   DEFINITIONS 
                                                                       #
      DEF#LHOPSD,D,6        # LHOPSD  # 6 #;  # HOPN/SEND IN CM WORDS  #
      DEF#ACHOPSD,D,2       # ACHOPSD # 2 #;  # HOPN/SEND ACT          #
      DEF#LHOPSDR,D,45      # LHOPSDR # 45 #; # HOPN/SEND CHAR COUNT   #
                                                                       #
************************************************************************
*     COMMON   ICN  DEFINITIONS 
                                                                       #
      DEF# ACICN,D,1     # ACICN       # 1 #; # ICN  ACT               #
                                                                       #
*     ICN   /AP   DEFINITIONS 
                                                                       #
      DEF# LICNAP,D,1    # LICNAP      # 1 #; # ICN/AP WORD COUNT      #
      DEF# LICNAPR,D,3   # LICNAPR     # 3 #; # LENGTH OF ICN/AP/N     #
      DEF# LICNAPA,D,4   # LICNAPA     # 4 #; # LENGTH OF ICN/AP/A     #
      STATUS# RAPA,(N,ANV,SNA,AEL,CNU,ANC,U6,U7,RAM,U9,CI,U11,HR,CM,LE,U
,15,AR,U17,U18,U19,U20,U21,U22,U23,U24,U25,U26,U27,U28,U29,U30,U31,U32,U
,33,U34,U35,U36,U37,U38,U39,U40,U41,U42,U43,U44,U45,U46,U47,U48,U49,U50,
,U51,U52,U53,HS,U55,U56,U57,U58,U59,U60,U61,U62,U63,U64,U65,U66,U67,U68,
,U69,U70,U71,U72,U73,U74,U75,U76,U77,U78,U79,U80,U81,U82,U83,U84,U85,U86
,,U87,U88,U89,U90,U91,U92,U93,U94,U95,U96,U97,U98,U99,NO) 
*                            #                                         #
* #           RAPA           N,        # NORMAL COMPLETION RETN CODE 00#
                             ANV,      #                             01#
                             SNA,      # CN=0 ON ICN/AP/R            02#
                             AEL,      #                             03#
                             CNU,      # CONNECTION NUM ALREADY USED 04#
                             ANC,      #                             05#
                             ,,        # UNUSED REASON CODES           #
                             RAM,      #                             08#
                             ,         # UNUSED REASON CODE            #
                             CI,       #                             10#
                             ,         # UNUSED REASON CODE            #
                             HR,       #                             12#
                             CM,       #                             13#
                             LE,       #                             14#
                             ,         # UNUSED REASON CODE            #
                             AR,       #                             15#
                             ,,,,,,,,, # UNUSED REASON CODES           #
                             ,,,,,,,,, # UNUSED REASON CODES           #
                             ,,,,,,,,, # UNUSED REASON CODES           #
                             ,,,,,,,,,,# UNUSED REASON CODES           #
                             HS,       # HOST SHUTDOWN IN PROGRESS   54#
                             ,,,,,,,,, # UNUSED REASON CODES           #
                             ,,,,,,,,, # UNUSED REASON CODES           #
                             ,,,,,,,,, # UNUSED REASON CODES           #
                             ,,,,,,,,, # UNUSED REASON CODES           #
                             ,,,,,,,,, # UNUSED REASON CODES           #
                             NO;       # NVF HAS NOT NETTED ON YET  100#
                                                                       #
*     ICN   /TE   DEFINITIONS 
                                                                       #
      DEF# LICNTER,D,1   # LICNTER     # 1 #; # LENGTH OF ICN/TE/A,N   #
      DEF# NICNTER,D,3   # NICNTER     # 3 #; # LENGTH OF ICN/TE/N     #
      DEF# LICNTEA,D,4   # LICNTEA     # 4 #; # LEN ICN/TE/A ASCII     #
      STATUS# RTEA,(N,A,B,C,D,E,F,G,H,TCE,CNI,HSD,HR,CEM,LNE,NNO,TCR) 
*                                                   #                  #
* #          RTEA  N,A,B,C,D,E,F,G,H,TCE,CNI,HSD,HR,CEM,LNE,NNO,TCR;
                                                                       #
************************************************************************
*     COMMON   IFC    DEFINITIONS 
                                                                       #
      DEF# ACIFC,D,1         # ACIFC     # 1 #; # IFC  ACT             #
                                                                       #
*     IFC   /ABRT    DEFINITIONS
                                                                       #
      DEF# LIFCABT,D,1       # LIFCABT   # 1 #; # LENGTH OF IFC/ABRT   #
      DEF# LIFCABN,D,2       # LIFCABN   # 2 #; # LENGTH OF IFC/ABRT/N #
      DEF# ABORTNI,H,43      # ABORTNI Z$ 43"#;    # SFC + RESPONSE    #
                                                                       #
*     IFC   /ENDD    DEFINITIONS
                                                                       #
      DEF# LIFCEND,D,1         # LIFCEND   # 1 #; # LENGTH OF IFC/END  #
      DEF# LIFCENN,D,2         # LIFCENN   # 2 #; # LENGTH OF IFC/END/N#
      DEF# ENDNI,H,46          # ENDNI   Z$ 46"#; #  SFC + RESPONSE BIT#
                                                                       #
*     IFC   /EOJ      DEFINITIONS 
                                                                       #
      DEF# LIFCEOJ,D,2       # LIFCEOJ   # 2 #; # LENGTH OF IFC/JOB    #
                                                                       #
*     IFC   /JOB    DEFINITIONS 
                                                                       #
      DEF# MLIJOB,D,19     # MLIJOB    #19#;       # IFC/JOB MAX LENGTH#
      DEF# LIFCJBN,D,2     # LIFCJBN   # 2 #; # LENGTH OF IFC/JOB/N    #
      DEF# JOBN,H,44       # JOBN      Z$ 44"#;    # SFC + RESPONSE BIT#
      STATUS# RIJ,(N,GOOD,BAD)                     #                   #
* #           RIJ  N,GOOD,BAD;                     # REASON CODE       #
                                                                       #
*     IFC   /RSM    DEFINITIONS 
                                                                       #
      DEF# LIFCRSM,D,1     # LIFCRSM   # 1 #; # LENGTH OF IFC/RSM      #
                                                                       #
*     IFC   /START  DEFINITIONS 
                                                                       #
      DEF# LIFCSTR,D,1     # LIFCSTR   # 1 #; # LENGTH OF IFC/START    #
                                                                       #
*     IFC   /STPD   DEFINITIONS 
                                                                       #
      DEF# LIFCSTP,D,1   # LIFCSTP # 1 #; # LENGTH OF IFC/STPD         #
      STATUS# RIS,(N,BI,CS,EOS,DNR,MSE)           #                    #
* #           RIS  N,BI,CS,EOS,DNR,MSE;           # REASON CODE        #
                                                                       #
*     IFC   /STRTT  DEFINITIONS 
                                                                       #
      DEF# LIFCSTT,D,1     # LIFCSTT   # 1 #; # LENGTH OF IFC/STRTT    #
                                                                       #
************************************************************************
*     COMMON   NET    DEFINITIONS 
                                                                       #
      DEF# ACNET,D,1         # ACNET  # 1 #; #   NET   ACT             #
                                                                       #
*     NET  /OFF       DEFINITIONS 
                                                                       #
      DEF# LNETOFF,D,1       # LNETOFF# 1 #; # LENGTH OF NET/OFF MSG   #
                                                                       #
*     APPL / FAIL DEFINITIONS 
                                                                       #
      DEF# LAPPF,D,1         # LAPPF # 1 # ; # LENGTH OF APPL/F        #
  
                                                                       #
*     NET  /ON        DEFINITIONS 
                                                                       #
      DEF# LNETON,D,4         # LNETON # 4 #; # LENGTH OF NET/ON MSG   #
      DEF# LNETONR,D,2       # LNETONR# 2 #; # LENGTH OF NET/ON/R MSG  #
      DEF# NONOK,H,B241      # NONOK  Z$ B241" #; # NETON OK           #
      DEF# NONNO,H,B281      # NONNO  Z$ B281" #; # NETON BAD          #
      STATUS# RNO,(N,NNA,DUP,DIS,A,NPR,B,IA)   #                       #
* #           RNO  N,NNA,DUP,DIS,A,NPR,B,IA   ;#    NET/ON  RC         #
                                                                       #
************************************************************************
*     COMMON   NPD    DEFINITIONS 
                                                                       #
      DEF# ACNPD,D,1         # ACNPD  # 1 #; #  NPD  ACT               #
      DEF# LNPD,D,1          # LNPD   # 1 #; # LENGTH OF NPD           #
                                                                       #
************************************************************************
*     COMMON   NPU    DEFINITIONS 
Q                                                                      #
      DEF# LNPUIN,D,5        # LNPUIN     # 5 #;  # LENGTH OF NPU/IN   #
      DEF# LNPUDTDR,D,14     # LNPUDTDR   # 14 #; # NPU/DT/R(DUMP) LGTH#
      DEF# LNPUDTDN,D,10     # LNPUDTDN   # 10 #; # NPU/DT/N(DUMP) LGTH#
      DEF# LNPUDTDA,D,14     # LNPUDTDA   # 14 #; # NPU/DT/A(DUMP) LGTH#
      DEF# LNPUDTLR,D,14     # LNPUDTLR   # 14 #; # NPU/DT/R(LOAD) LGTH#
      DEF# LNPUDTLN,D,11     # LNPUDTLN   # 11 #; # NPU/DT/N(LOAD) LGTH#
      DEF# LNPUDTLA,D,11     # LNPUDTLA   # 11 #; # NPU/DT/A(LOAD) LGTH#
      DEF# LNPUDTSR,D,6      # LNPUDTSR   # 6 #;  # NPU/DT/R(STRT) LGTH#
      DEF# LNPUDTSN,D,7      # LNPUDTSN   # 7 #;  # NPU/DT/N(STRT) LGTH#
      DEF# LNPUDTSA,D,7      # LNPUDTSA   # 7 #;  # NPU/DT/A(STRT) LGTH#
      DEF# LNPUDTSC,D,6      # LNPUDTSC   # 6 #;  # NPU/DT/C(STRT) LGTH#
      STATUS# LOADTYPE,(LT$SAM,LT$LOCAL,LT$REMOT) #                    #
* #           LOADTYPE  LT$SAM,LT$LOCAL,LT$REMOT; # NPU/IN LOAD TYPE   #
      STATUS# CMDCODE,(CC$DUMP,CC$LOAD,CC$STRTR,CC$RSVD,CC$STRTC) #    #
* #           CMDCODE  CC$DUMP,CC$LOAD,CC$STRTR,CC$RSVD,CC$STRTC; 
      STATUS# NPUDTRC,(DNPUDTRC) #                                     #
* #           NPUDTRC  DNPUDTRC; # FILL IN REAL VALUES LATER           #
                                                                       #
*     NPI  /IN       DEFINITIONS
                                                                       #
      DEF# LNPIIN,D,1    # LNPIIN      # 1 #; # LENGTH OF NPI/IN       #
      DEF# LNPIINC,D,7   # LNPIINC     # 7 #; # CHAR LENGTH OF NIP/IN  #
                                                                       #
************************************************************************
*     COMMON   OFC    DEFINITIONS 
                                                                       #
      DEF# ACOFC,D,1         # ACOFC    # 1 #; # OFC  ACT              #
                                                                       #
*     OFC   /ABRT    DEFINITIONS
                                                                       #
      DEF# LOFCABT,D,1       # LOFCABT  # 1 #; # LENGTH OF OFC/ABORT   #
      DEF# LOFCABN,D,2       # LOFCABN  # 2 #; # LENGTH OF OFC/ABRT/N  #
      DEF# ABORTNO,H,43      # ABORTNO Z$ 43"#;    # SFC + RESPONSE BIT#
                                                                       #
*     OFC   /DATA     DEFINITIONS 
                                                                       #
      DEF# LOFCDAT,D,193     # LOFCDAT   #193#; # LENGTH OF OFC/DATA   #
      DEF# LOFCDAN,D,1       # LOFCDAN   # 1 #; # LENGTH OF OFC/DATA/N #
      DEF# DATANO,H,41       # DATANO  Z$ 41"#;    # SFC VALUE         #
                                                                       #
*     OFC   /EOO        DEFINITIONS 
                                                                       #
      DEF# LOFCEOO,D,2       # LOFCEOO   # 2 #; # LENGTH OF OFC/EOO    #
                                                                       #
*     OFC   /RSM      DEFINITIONS 
                                                                       #
      DEF# LOFCRSM,D,1       # LOFCRSM   # 1 #; # LENGTH OF OFC/RSM    #
                                                                       #
*     OFC   /RSTRT    DEFINITIONS 
                                                                       #
      DEF# LOFCRST,D,1       # LOFCRST   # 1 #; # LENGTH OF OFC/RSTRT  #
                                                                       #
*     OFC   /STP      DEFINITIONS 
                                                                       #
      DEF# LOFCST,D,1        # LOFCST    # 1 #; # LENGTH OF OFC/STP    #
      DEF# LOFCSTN,D,1       # LOFCSTN   # 1 #; # LENGTH OF OFC/STP/N  #
      DEF# STPPNO,H,45       # STPPNO  Z$ 45"#;    # SFC + RESPONSE BIT#
                                                                       #
*     OFC   /STPD 
                                                                       #
      DEF# LOFCSTD,D,13      # LOFCSTD   #13 #; # LENGTH OF OFC/STPD   #
      DEF# MLOSTPD,D,13      # MLOSTPD   #13 #;    # MAX OFC/STPD LEN  #
      DEF# MAXPMCC,D,78      # MAXPMCC   #78 #;    # MAX CHAR FOR PM   #
                                       # OFC/STPD RETURN CODES         #
         STATUS# ROS,(N,BI,PMI,FLE,DNR,MSE,NVF) 
* #              ROS  N,               # NOT USED 
* #                   BI,              # BATCH  INTERRUPT 
* #                   PMI,             # PM MESSAGE 
* #                   FLE,             # FILE LIMIT EXCEEDED
* #                   DNR,             # DEVICE NOT READY 
* #                   MSE,             # MASS STORAGE ERROR 
* #                   NVF;             # NO VFU FILE                   #
      DEF# DISPM,H,100D      # DISPM   Z$ 100D"#;  # DISPLAY CODED PM  #
      DEF# ASCPM,H,504D      # ASCPM   Z$ 504D"#;  # ASCII CODED PM    #
                                                                       #
*     OFC   /STRT   DEFINITIONS 
                                                                       #
      DEF# LOFCSTR,D,2       # LOFCSTR   # 2 #; # LENGTH OF OFC/STRT   #
                                                                       #
*             OFC/TOM   DEFINITIONS 
                                                                       #
      DEF# LOFCTOM,D,1       # LOFCTOM #1#;        # OFC/TOM LENGTH    #
                                                                       #
************************************************************************
*     COMMON   OVL    DEFINITIONS 
                                                                       #
      DEF# LOVLINR,D,5       # LOVLINR    # 5 #;  # LENGTH OF OVL/IN/R #
      DEF# LOVLINN,D,6       # LOVLINN    # 6 #;  # LENGTH OF OVL/IN/N #
      DEF# LOVLINA,D,6       # LOVLINA    # 6 #;  # LENGTH OF OVL/IN/A #
      DEF# LOVLPBR,D,10      # LOVLPBR    # 10 #; # LENGTH OF OVL/PB/R #
      DEF# LOVLPBN,D,9       # LOVLPBN    # 9 #;  # LENGTH OF OVL/PB/N #
      DEF# LOVLPBA,D,9       # LOVLPBA    # 9 #;  # LENGTH OF OVL/PB/A #
      STATUS# STRTCX,(BNCNB$,BACNB$,CRITE$,CRRAP$) #                   #
* #           STRTCX  BNCNB$,BACNB$,CRITE$,CRRAP$ ; #                  #
      STATUS# COMPCX,(UACNB$,ICNTE$,RELBLK$,ICNAP$) #                  #
* #           COMPCX  UACNB$,ICNTE$,RELBLK$,ICNAP$ ; #                 #
      STATUS# STRTSX,(CRSWH$,CONREQ$,RACNB$)   #                       #
* #           STRTSX  CRSWH$,CONREQ$,RACNB$   ;#                       #
      STATUS# SENDX,(UACNB3$,CRACC$)           #                       #
* #           SENDX  UACNB3$,CRACC$           ;#                       #
      STATUS# OVLINRC,(OINRSVD,OINONF,OINIOE) #                        #
* #           OVLINRC  OINRSVD,OINONF,OINIOE; # OVL/IN REASON CODES    #
      STATUS# OVLPBRC,(DOVLPBRC) #                                     #
* #           OVLPBRC  DOVLPBRC; # FILL IN REAL VALUES LATER           #
                                                                       #
************************************************************************
*     COMMON   PRU    DEFINITIONS 
                                                                       #
      DEF# ACPRU,D,1         # ACPRU    # 1 #; # PRU  ACT              #
      DEF# LPRU,D,1          # LPRU     # 1 #; # LENGTH OF PRU         #
      DEF# LPRUA,D,1         # LPRUA    # 1 #; # LENGTH OF OF PRU/ON/A #
      STATUS# RPRU,(N,CNS,CNT,CNV,CNB,COB)     #                       #
* #           RPRU  N,CNS,CNT,CNV,CNB,COB     ;# PRU/ON RC             #
      STATUS# PEC,(N,ISM,BTL,CLQ,NPQ,BOP,IWL,IWP)  #                   #
* #           PEC  N,ISM,BTL,CLQ,NPQ,BOP,IWL,IWP;  # PWL ERROR CODE    #
                                                                       #
************************************************************************
*     COMMON   REG    DEFINITIONS 
                                                                       #
      DEF# ACREG,D,1         # ACREG    # 1 #; # REG  ACT              #
      DEF# LREG,D,1          # LREG     # 1 #; # LENGTH OF REG         #
      DEF# NREGCP,D,4        # NREGCP   # 4 #; # CHAR LENGTH REGCP     #
      DEF# NREGLLN,D,3       # NREGLLN  # 3 #; # LENGTH OF REG/LL/N    #
      DEF# BUFLCD,D,0        # BUFLCD   # 0 #; # BUF LEVEL COUPLER DOWN#
      DEF# BUFLSM,D,1        # BUFLSM   # 1 #; # BUF LEVEL SERVICE MSG #
      DEF# BUFLHDS,D,2       # BUFLHDS  # 2 #; # HIGH PRIOR DATA/SER MS#
      DEF# BUFLAM,D,3        # BUFLAM   # 3 #; # BUF LEVEL ALL MSG     #
                                                                       #
************************************************************************
*     COMMON   SET    DEFINITIONS 
                                                                       #
      DEF# ACSET,D,1         # ACSET    # 1 #; # SET  ACT              #
      DEF# LSET,D,2          # LSET     # 2 #; # LENGTH OF SET         #
                                                                       #
*             SET/FILE  DEFINITIONS 
                                                                       #
      DEF# LHSFILE,D,1       # LHSFILE #1#;        # SET/FILE LENGTH   #
      DEF# FNTYPE,D,81       # FNTYPE  #81#;       # BATCH FILE TYPE   #
      STATUS# FVTYPE,(DO26,DO29,ASC,TRANS6,TRANS8) #                   #
* #           FVTYPE  DO26,DO29,ASC,TRANS6,TRANS8; # FILE TYPE FV-S    #
      DEF# FNPCC,D,82        # FNPCC   #82#;       # CARRIAGE CONTROL  #
      STATUS# FVPCC,(RST,SUP)                      #                   #
* #           FVPCC  RST,SUP;                      # CARRIAGE FV-S     #
      DEF# FNLACE,D,83       # FNLACE  #83#;       # LACE CARD PUNCHING#
      STATUS# FVLACE,(SUP,RST)                     #                   #
* #           FVLACE  SUP,RST;                     # LACE CARD FV-S    #
      DEF# FNLIM1,D,84       # FNLIM1  #84#;       # FILE LIMIT UPPER-8#
      DEF# FNLIM2,D,85       # FNLIM2  #85#;       # FILE LIMIT LOWER-8#
      DEF# FNCPLIM,D,86      # FNCPLIM #86#;       # PUNCH LIMIT       #
      STATUS# FVCPLIM,(SUP,RST)                    #                   #
* #           FVCPLIM  SUP,RST;                    # LIMIT CARD FV-S   #
      DEF# FNEND,D,0         # FNEND   #0#;        # END OF FN/FV PAIRS#
                                                                       #
*             SET/DEV   DEFINITIONS 
                                                                       #
      DEF# LHSDEV,D,1        # LHSDEV  #1#;        # SET/DEV HDR LENGTH#
      DEF# FNPW,D,35         # FNPW    #35#;       # PAGE WIDTH        #
      DEF# FNPL,D,36         # FNPL    #36#;       # PAGE LENGTH       #
      DEF# FNTBS1,D,30       # FNTBS1  #30#;       # TBS UPPER 3 BITS  #
      DEF# FNTBS2,D,31       # FNTBS2  #31#;       # TBS LOWER 8 BITS  #
      DEF# FNPTT,D,76        # FNPTT   #76#;       # PRINT TRAIN TYPE  #
      STATUS# FVPTT,(PT64,BCD64,PT96)              #                   #
* #           FVPTT  PT64,BCD64,PT96;              # PRINT TRAIN FV-S  #
                                                                       #
************************************************************************
*     COMMON   SH    DEFINITIONS
                                                                       #
      DEF# ACSH,D,1         # ACSH      # 1 #; # SH  ACT               #
      DEF# LSH,D,2          # LSH       # 2 #; # LENGTH OF SH          #
                                                                       #
************************************************************************
*     COMMON   SUP    DEFINITIONS 
                                                                       #
      DEF# ACSUP,D,1         # ACSUP    # 1 #; # SUP  ACT              #
                                                                       #
*     SUP   /CB       DEFINITIONS 
                                                                       #
      DEF# LSUPCB,D,1        # LSUPCB   # 1 #; # LENGTH OF SUP/CB      #
                                                                       #
*     SUP   /GO       DEFINITIONS 
                                                                       #
      DEF# LSUPGO,D,1        # LSUPGO   # 1 #; # LENGTH OF SUP/GO      #
      DEF# LSUPGON,D,1       # LSUPGON  # 1 #; # LENGTH OF SUP/GO/N    #
                                                                       #
*     SUP   /IN       DEFINITIONS 
                                                                       #
      DEF# LSUPIN,D,3        # LSUPIN   # 3 #; # LENGTH OF SUP/IN      #
      DEF# LSUPINR,D,1       # LSUPINR  # 1 #; # LENGTH OF SUP/IN/N,A  #
      DEF# LOADL,D,1         # LOADL    # 1 #; # LOAD REQUEST, LOAD    #
      DEF# LOADN,D,0         # LOADN    # 0 #; # LOAD REQUEST, NOLOAD  #
      DEF# RMINDL,D,0        # RMINDL   # 0 #; # REMOTE INDICATOR,LOCAL#
      DEF# RMINDR,D,1        # RMINDR   # 1 #; # REMOTE INDICATOR,REMOT#
                                                                       #
************************************************************************
*     COMMON   TCN    DEFINITIONS 
                                                                       #
      DEF# ACTCN,D,1         # ACTCN    # 1 #; # TCN  ACT              #
      DEF# LTCN,D,3          # LTCN     # 3 #; # LENGTH OF TCN/TA      #
      DEF# LTCNN,D,3         # LTCNN    # 3 #; # LENGTH OF TCN/TA/N    #
      DEF# NTCN,D,1          # NTCN     # 1 #; # LENGTH OF TCN/TA      #
      STATUS# RTCN,(N,A,B,C,D,E,F,G,H,UD,PFO,ODE,HF,I,J,K,L,M) #       #
*  #          RTCN  N,A,B,C,D,E,F,G,H,UD,PFO,ODE,HF,I,J,K,L,M;#TCN/TA  #
                                                                       #
************************************************************************
*     COMMON   TOT    DEFINITIONS 
                                                                       #
      DEF# ACTOT,D,1         # ACTOT  # 1 #; # TOT  ACT                #
      DEF# LTOT,D,1          # LTOT   # 1 #; # LENGTH OF TOT           #
