cdc:nos2.source:opl.opl871:common:comcvlc
Common COMCVLC
1 Modification
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.comcvlc +++| CTEXT COMCVLC - VALIDATE SECURITY ACCESS LEVELS/CATEGORIES. 00002 M01S00002.comcvlc +++| SPACE 4,10 00003 M01S00003.comcvlc +++| QUAL$ IF -DEF,QUAL$ 00004 M01S00004.comcvlc +++| QUAL COMCVLC 00005 M01S00005.comcvlc +++| QUAL$ ENDIF 00006 M01S00006.comcvlc +++| BASE D
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | comcvlc |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M02S00007.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1982. 00008 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00009 M01S00008.comcvlc +++| SPACE 4,10 00010 M01S00009.comcvlc +++|*** VLC - VALIDATE ACCESS LEVELS/CATEGORIES. 00011 M01S00010.comcvlc +++|* M. S. PESCHMAN 82/08/10. 00012 M01S00011.comcvlc +++|* P. C. SMITH 83/06/27. 00013 M01S00012.comcvlc +++| VLC SPACE 4,10 00014 M01S00013.comcvlc +++|*** *COMCVLC* WILL DETERMINE IF A SPECIFIED SECURITY ACCESS LEVEL 00015 M01S00014.comcvlc +++|* OR ACCESS CATEGORY NAME IS VALID. (THE POSSIBLE NAMES FOR 00016 M01S00015.comcvlc +++|* ACCESS LEVELS AND CATEGORIES ARE DEFINED IN *COMSMLS*). 00017 M01S00016.comcvlc +++|* *COMCVLC* ALSO CONTAINS TABLES OF THE VALID ACCESS LEVEL 00018 M01S00017.comcvlc +++|* NAMES (*TALV*, LENGTH *TALVL*) AND ACCESS CATEGORY NAMES 00019 M01S00018.comcvlc +++|* (*TACT*, LENGTH *TACTL*), WHICH MAY BE USED BY OTHER 00020 M01S00019.comcvlc +++|* ROUTINES OUTSIDE *COMCVLC*. 00021 M01S00020.comcvlc +++| VLC SPACE 4,10 00022 M01S00021.comcvlc +++|** VLC - VALIDATE ACCESS LEVELS/CATEGORIES. 00023 M01S00022.comcvlc +++|* 00024 M01S00023.comcvlc +++|* ENTRY (X1) = NAME TO BE CHECKED (LEFT JUSTIFIED ZERO FILL). 00025 M01S00024.comcvlc +++|* (B2) = 0, IF ACCESS LEVEL. 00026 M01S00025.comcvlc +++|* (B2) .NE. 0, IF ACCESS CATEGORY. 00027 M01S00026.comcvlc +++|* 00028 M01S00027.comcvlc +++|* EXIT (X2) = CORRESPONDING NUMERIC VALUE OF SPECIFIED 00029 M01S00028.comcvlc +++|* ACCESS LEVEL OR CATEGORY NAME. 00030 M01S00029.comcvlc +++|* (X2) .LT. 0, IF LEVEL OR CATEGORY NOT FOUND. 00031 M01S00030.comcvlc +++|* 00032 M01S00031.comcvlc +++|* USES X - 2, 3. 00033 M01S00032.comcvlc +++|* A - 3. 00034 M01S00033.comcvlc +++|* B - 3. 00035 M01S00034.comcvlc +++|* 00036 M01S00035.comcvlc +++|* XREF COMSMLS. 00037 M01S00036.comcvlc +++| 00038 M01S00037.comcvlc +++| 00039 M01S00038.comcvlc +++| VLC SUBR ENTRY/EXIT 00040 M01S00039.comcvlc +++| SB3 TALV INITIALIZE TABLE POINTERS 00041 M01S00040.comcvlc +++| SX2 TALVL 00042 M01S00041.comcvlc +++| ZR B2,VLC1 IF ACCESS LEVEL CONVERSION 00043 M01S00042.comcvlc +++| SB3 TACT INITIALIZE TABLE POINTERS 00044 M01S00043.comcvlc +++| SX2 TACTL 00045 M01S00044.comcvlc +++| VLC1 SX2 X2-1 DECREMENT POINTER 00046 M01S00045.comcvlc +++| NG X2,VLCX IF SPECIFIED NAME NOT FOUND IN TABLE 00047 M01S00046.comcvlc +++| SA3 B3+X2 READ NEXT TABLE ENTRY 00048 M01S00047.comcvlc +++| BX3 X1-X3 00049 M01S00048.comcvlc +++| NZ X3,VLC1 IF NOT A MATCH 00050 M01S00049.comcvlc +++| EQ VLCX RETURN 00051 M01S00050.comcvlc +++| TALV SPACE 4,10 00052 M01S00051.comcvlc +++|** TALV - TABLE OF ACCESS LEVELS. 00053 M01S00052.comcvlc +++|* 00054 M01S00053.comcvlc +++|*T 42/ AL, 18/ 0
Figure
00055 M01S00054.comcvlc +++|* 00056 M01S00055.comcvlc +++|* AL ACCESS LEVEL NAME (DEFINED IN *COMSMLS*). 00057 M01S00056.comcvlc +++| 00058 M01S00057.comcvlc +++| 00059 M01S00058.comcvlc +++| TALV BSS 0 TABLE OF ACCESS LEVELS 00060 M01S00059.comcvlc +++| DATA C*"ALM0"* ACCESS LEVEL 0 00061 M01S00060.comcvlc +++| DATA C*"ALM1"* ACCESS LEVEL 1 00062 M01S00061.comcvlc +++| DATA C*"ALM2"* ACCESS LEVEL 2 00063 M01S00062.comcvlc +++| DATA C*"ALM3"* ACCESS LEVEL 3 00064 M01S00063.comcvlc +++| DATA C*"ALM4"* ACCESS LEVEL 4 00065 M01S00064.comcvlc +++| DATA C*"ALM5"* ACCESS LEVEL 5 00066 M01S00065.comcvlc +++| DATA C*"ALM6"* ACCESS LEVEL 6 00067 M01S00066.comcvlc +++| DATA C*"ALM7"* ACCESS LEVEL 7 00068 M01S00067.comcvlc +++| 00069 M01S00068.comcvlc +++| TALVL EQU *-TALV ACCESS LEVEL TABLE LENGTH 00070 M01S00069.comcvlc +++| TACT SPACE 4,10 00071 M01S00070.comcvlc +++|** TACT - TABLE OF ACCESS CATEGORIES. 00072 M01S00071.comcvlc +++|* 00073 M01S00072.comcvlc +++|*T 42/ AC, 18/ 0
Figure
00074 M01S00073.comcvlc +++|* 00075 M01S00074.comcvlc +++|* AC ACCESS CATEGORY NAME (DEFINED IN *COMSMLS*). 00076 M01S00075.comcvlc +++| 00077 M01S00076.comcvlc +++| 00078 M01S00077.comcvlc +++| TACT BSS 0 00079 M01S00078.comcvlc +++| DATA C*"ACM00"* ACCESS CATEGORY 00 00080 M01S00079.comcvlc +++| DATA C*"ACM01"* ACCESS CATEGORY 01 00081 M01S00080.comcvlc +++| DATA C*"ACM02"* ACCESS CATEGORY 02 00082 M01S00081.comcvlc +++| DATA C*"ACM03"* ACCESS CATEGORY 03 00083 M01S00082.comcvlc +++| DATA C*"ACM04"* ACCESS CATEGORY 04 00084 M01S00083.comcvlc +++| DATA C*"ACM05"* ACCESS CATEGORY 05 00085 M01S00084.comcvlc +++| DATA C*"ACM06"* ACCESS CATEGORY 06 00086 M01S00085.comcvlc +++| DATA C*"ACM07"* ACCESS CATEGORY 07 00087 M01S00086.comcvlc +++| DATA C*"ACM08"* ACCESS CATEGORY 08 00088 M01S00087.comcvlc +++| DATA C*"ACM09"* ACCESS CATEGORY 09 00089 M01S00088.comcvlc +++| DATA C*"ACM10"* ACCESS CATEGORY 10 00090 M01S00089.comcvlc +++| DATA C*"ACM11"* ACCESS CATEGORY 11 00091 M01S00090.comcvlc +++| DATA C*"ACM12"* ACCESS CATEGORY 12 00092 M01S00091.comcvlc +++| DATA C*"ACM13"* ACCESS CATEGORY 13 00093 M01S00092.comcvlc +++| DATA C*"ACM14"* ACCESS CATEGORY 14 00094 M01S00093.comcvlc +++| DATA C*"ACM15"* ACCESS CATEGORY 15 00095 M01S00094.comcvlc +++| DATA C*"ACM16"* ACCESS CATEGORY 16 00096 M01S00095.comcvlc +++| DATA C*"ACM17"* ACCESS CATEGORY 17 00097 M01S00096.comcvlc +++| DATA C*"ACM18"* ACCESS CATEGORY 18 00098 M01S00097.comcvlc +++| DATA C*"ACM19"* ACCESS CATEGORY 19 00099 M01S00098.comcvlc +++| DATA C*"ACM20"* ACCESS CATEGORY 20 00100 M01S00099.comcvlc +++| DATA C*"ACM21"* ACCESS CATEGORY 21 00101 M01S00100.comcvlc +++| DATA C*"ACM22"* ACCESS CATEGORY 22 00102 M01S00101.comcvlc +++| DATA C*"ACM23"* ACCESS CATEGORY 23 00103 M01S00102.comcvlc +++| DATA C*"ACM24"* ACCESS CATEGORY 24 00104 M01S00103.comcvlc +++| DATA C*"ACM25"* ACCESS CATEGORY 25 00105 M01S00104.comcvlc +++| DATA C*"ACM26"* ACCESS CATEGORY 26 00106 M01S00105.comcvlc +++| DATA C*"ACM27"* ACCESS CATEGORY 27 00107 M01S00106.comcvlc +++| DATA C*"ACM28"* ACCESS CATEGORY 28 00108 M01S00107.comcvlc +++| DATA C*"ACM29"* ACCESS CATEGORY 29 00109 M01S00108.comcvlc +++| DATA C*"ACM30"* ACCESS CATEGORY 30 00110 M01S00109.comcvlc +++| DATA C*"ACM31"* ACCESS CATEGORY 31 00111 M01S00110.comcvlc +++| 00112 M01S00111.comcvlc +++| TACTL EQU *-TACT ACCESS CATEGORY TABLE LENGTH 00113 M01S00112.comcvlc +++| SPACE 4,10 00114 M01S00113.comcvlc +++| BASE * 00115 M01S00114.comcvlc +++| QUAL$ IF -DEF,QUAL$ 00116 M01S00115.comcvlc +++| QUAL * 00117 M01S00116.comcvlc +++| VLC EQU /COMCVLC/VLC 00118 M01S00117.comcvlc +++| TALV EQU /COMCVLC/TALV 00119 M01S00118.comcvlc +++| TALVL EQU /COMCVLC/TALVL 00120 M01S00119.comcvlc +++| TACT EQU /COMCVLC/TACT 00121 M01S00120.comcvlc +++| TACTL EQU /COMCVLC/TACTL 00122 M01S00121.comcvlc +++| QUAL$ ENDIF 00123 M01S00122.comcvlc +++| VLC ENDX
cdc/nos2.source/opl.opl871/common/comcvlc.txt · Last modified: by 127.0.0.1