COMTNAP 
COMMON
          CTEXT  COMTNAP - NETWORK APPLICATION VALIDATION PARAMETERS. 
          BASE   DECIMAL
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4,10 
***       COMTNAP - NETWORK APPLICATION VALIDATION PARAMETERS.
* 
*         C. A. LACEY.      77/03/10. 
          SPACE  4,10 
***             COMTNAP PROVIDES A TABLE OF NETWORK APPLICATIONS
*         AND THE CORRESPONDING VALIDATION BITS.
          SPACE  4,10 
**        NETWORK APPLICATION BIT EQUIVALENCES. 
* 
*         IAF = INTERACTIVE FACILITY. 
*         RBF = REMOTE BATCH FACILITY.
*         TAF = TRANSACTION FACILITY. 
*         MCS = MESSAGE CONTROL SYSTEM. 
*         TVF = TERMINAL VERIFICATION FACILITY. 
*         CS = SUPERVISORY OPERATOR.
*         CYBIS = CYBIS TUTORIAL APPLICATION. 
*         ITF = INTERACTIVE TRANSFER FACILITY.
*         TLF = TIELINE FACILITY. 
*         NJF = NETWORK JOB ENTRY FACILITY. 
*         NETOU = CDCNET NETWORK OPERATOR UTILITY.
*         PSU = PRINTER SUPPORT UTILITY.
*         AP1 = FOR INSTALLATION APPLICATION EXPANSION. 
*         AP2 = FOR INSTALLATION APPLICATION EXPANSION. 
*         AP3 = FOR INSTALLATION APPLICATION EXPANSION. 
*         VEIAF = NOS/VE INTERACTIVE FACILITY.
*         NPF = NETWORK PASSTHRU FACILITY.
*         TCF = TERMINAL CLUSTER FACILITY.
*         AP4 = FOR INSTALLATION APPLICATION EXPANSION. 
*         AP5 = FOR INSTALLATION APPLICATION EXPANSION. 
*         AP6 = FOR INSTALLATION APPLICATION EXPANSION. 
*         ATF = AUTOMATIC TAPE FACILITY.
* 
*         CAUTION - IF ANY DEFINED BITS ARE MOVED, THE VALIDATION FILE
*                MUST BE UPDATED TO REFLECT THE CHANGED BIT POSITIONS.
* 
*         THE TABLE OF APPLICATION SYNONYMS IS DESIGNED TO BE USED
*         BY THE NETWORK VALIDATION FACILITY FOR LOGIN VALIDATION.
*         IT WILL BE ASSEMBLED AS PART OF THE *TNAV* TABLE ONLY IF
*         THE SYMBOL *TNAV$* IS NOT DEFINED BY THE CALLING PROGRAM. 
*         APPLICATION SYNONYMS ARE NOT VALID APPLICATION NAMES FOR
*         USE BY *MODVAL*.
* 
*         THE FOLLOWING SYNONYMS ARE DEFINED IN *COMTNAP* - 
* 
*         INITMDI - PERMISSION IS DETERMINED BY *NETOU* VALIDATION. 
*         NETFS   - PERMISSION IS DETERMINED BY *NETOU* VALIDATION. 
*         NETLS   - PERMISSION IS DETERMINED BY *NETOU* VALIDATION. 
*         NLTERM  - PERMISSION IS DETERMINED BY *NETOU* VALIDATION. 
*         FTPI    - PERMISSION IS DETERMINED BY *NETOU* VALIDATION. 
*         FTPS    - PERMISSION IS DETERMINED BY *NETOU* VALIDATION. 
*         SMPI    - PERMISSION IS DETERMINED BY *NETOU* VALIDATION. 
*         SMPS    - PERMISSION IS DETERMINED BY *NETOU* VALIDATION. 
  
  
 AFAB     EQU    0           FIRST APPLICATION ACCESS BIT 
 NNAB     EQU    36D         NUMBER OF NETWORK APPLICATION BITS 
 ALAB     EQU    AFAB+NNAB-1 LAST APPLICATION ACCESS BIT
 FIAB     EQU    AFAB+NNAB   FIRST INSTALLATION ACCESS BIT
 LIAB     EQU    FIAB+12D-1  LAST INSTALLATION ACCESS BIT 
  
 AFAB     DECMIC AFAB,2 
          SPACE  4,10 
**        INSTALLATION APPLICATION MICRO EQUIVALENCES 
* 
*         AP1 = FIRST INSTALLATION APPLICATION
*         AP2 = SECOND INSTALLATION APPLICATION 
*         AP3 = THIRD INSTALLATION APPLICATION
*         AP4 = FOURTH INSTALLATION APPLICATION 
*         AP5 = FIFTH INSTALLATION APPLICATION
*         AP6 = SIXTH INSTALLATION APPLICATION
  
 AP1      MICRO  1,,#AP1#    FIRST INSTALLATION APPLICATION 
 AP2      MICRO  1,,#AP2#    SECOND INSTALLATION APPLICATION
 AP3      MICRO  1,,#AP3#    THIRD INSTALLATION APPLICATION 
 AP4      MICRO  1,,#AP4#    FOURTH INSTALLATION APPLICATION
 AP5      MICRO  1,,#AP5#    FIFTH INSTALLATION APPLICATION 
 AP6      MICRO  1,,#AP6#    SIXTH INSTALLATION APPLICATION 
          SPACE  4,10 
***       NETWORK APPLICATION NAMES.
* 
*T        42/ANAME,6/RES,12/AWBP
* 
*         ANAME  APPLICATION NAME (DISPLAY CODE). 
*                A NEGATIVE APPLICATION NAME VALUE INDICATES
*                DATA TO BE IGNORED.
*         RES    RESERVED FOR USE BY CALLING PROGRAM. 
*         AWBP   ACCESS WORD BIT POSITION.
  
  
 TNAV     BSS    0
          LOC    AFAB 
  
 TIAF     VFD    42/0HIAF,6/,12/*      IAF ACCESS BIT 
          VFD    42/0HRBF,6/,12/*      RBF ACCESS BIT 
          VFD    42/0HTAF,6/,12/*      TAF ACCESS BIT 
          VFD    42/0HMCS,6/,12/*      MCS ACCESS BIT 
          VFD    42/0HTVF,6/,12/*      TVF ACCESS BIT 
          VFD    42/0HCS,6/,12/*       CS ACCESS BIT
          VFD    42/0HCYBIS,6/,12/*    CYBIS ACCESS BIT 
          VFD    42/0HITF,6/,12/*      ITF ACCESS BIT 
          VFD    42/0HTLF,6/,12/*      TLF ACCESS BIT 
          VFD    42/0HNJF,6/,12/*      NJF ACCESS BIT 
 TNOU     VFD    42/0HNETOU,6/,12/*    NETOU ACCESS BIT 
          VFD    42/0HPSU,6/,12/*      PRINTER SUPPORT UTILITY
          VFD    42/0H"AP1",6/,12/*    LOCAL APPLICATION ONE
          VFD    42/0H"AP2",6/,12/*    LOCAL APPLICATION TWO
          VFD    42/0H"AP3",6/,12/*    LOCAL APPLICATION THREE
          VFD    42/0HVEIAF,6/,12/*    VEIAF ACCESS BIT 
          VFD    42/0HNPF,6/,12/*      NPF ACCESS BIT 
          VFD    42/0HTCF,6/,12/*      TCF ACCESS BIT 
          VFD    42/0H"AP4",6/,12/*    LOCAL APPLICATION FOUR 
          VFD    42/0H"AP5",6/,12/*    LOCAL APPLICATION FIVE 
          VFD    42/0H"AP6",6/,12/*    LOCAL APPLICATION SIX
          VFD    42/0HATF,6/,12/*      ATF ACCESS BIT 
          LOC    *O 
  
 TNAP$    IF     -DEF,TNAP$ 
 TSYN     BSS    0           TABLE OF APPLICATION SYNONYMS
          VFD    42/0HINITMDI,6/,12/TNOU INITMDI ACCESS BIT 
          VFD    42/0HNETFS,6/,12/TNOU   NETFS ACCESS BIT 
          VFD    42/0HNETLS,6/,12/TNOU   NETLS ACCESS BIT 
          VFD    42/0HNLTERM,6/,12/TNOU  NLTERM ACCESS BIT
          VFD    42/0HMAIL,6/,12/TIAF    MAIL ACCESS BIT
          VFD    42/0HMAILSRV,6/,12/TNOU MAILSRV ACCESS BIT 
          VFD    42/0HFTP,6/,12/TNOU     FTP COMMAND
          VFD    42/0HFTPI,6/,12/TNOU    FTP PROTOCOL INTERPRETER 
          VFD    42/0HFTPS,6/,12/TNOU    FTP FILE SERVER
          VFD    42/0HSMTP,6/,12/TNOU    SMTP COMMAND 
          VFD    42/0HSMPI,6/,12/TNOU    SMTP PROTOCOL INTERPRETER
          VFD    42/0HSMPS,6/,12/TNOU    SMTP MAIL SERVER 
  
 TNAP$    ENDIF 
 TNAVL    EQU    *-TNAV 
          CON    0
  
  
          BASE   *
          ENDX
