cdc:nos2.source:opl.opl871:common:comcvlc
Common COMCVLC
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.comcvlc +++| CTEXT COMCVLC - VALIDATE SECURITY ACCESS LEVELS/CATEGORIES. 00002 M00S00002.comcvlc +++| SPACE 4,10 00003 M00S00003.comcvlc +++| QUAL$ IF -DEF,QUAL$ 00004 M00S00004.comcvlc +++| QUAL COMCVLC 00005 M00S00005.comcvlc +++| QUAL$ ENDIF 00006 M00S00006.comcvlc +++| BASE D
| Line S00007 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00007.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1982.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00009 M00S00008.comcvlc +++| SPACE 4,10 00010 M00S00009.comcvlc +++|*** VLC - VALIDATE ACCESS LEVELS/CATEGORIES. 00011 M00S00010.comcvlc +++|* M. S. PESCHMAN 82/08/10. 00012 M00S00011.comcvlc +++|* P. C. SMITH 83/06/27. 00013 M00S00012.comcvlc +++| VLC SPACE 4,10 00014 M00S00013.comcvlc +++|*** *COMCVLC* WILL DETERMINE IF A SPECIFIED SECURITY ACCESS LEVEL 00015 M00S00014.comcvlc +++|* OR ACCESS CATEGORY NAME IS VALID. (THE POSSIBLE NAMES FOR 00016 M00S00015.comcvlc +++|* ACCESS LEVELS AND CATEGORIES ARE DEFINED IN *COMSMLS*). 00017 M00S00016.comcvlc +++|* *COMCVLC* ALSO CONTAINS TABLES OF THE VALID ACCESS LEVEL 00018 M00S00017.comcvlc +++|* NAMES (*TALV*, LENGTH *TALVL*) AND ACCESS CATEGORY NAMES 00019 M00S00018.comcvlc +++|* (*TACT*, LENGTH *TACTL*), WHICH MAY BE USED BY OTHER 00020 M00S00019.comcvlc +++|* ROUTINES OUTSIDE *COMCVLC*. 00021 M00S00020.comcvlc +++| VLC SPACE 4,10 00022 M00S00021.comcvlc +++|** VLC - VALIDATE ACCESS LEVELS/CATEGORIES. 00023 M00S00022.comcvlc +++|* 00024 M00S00023.comcvlc +++|* ENTRY (X1) = NAME TO BE CHECKED (LEFT JUSTIFIED ZERO FILL). 00025 M00S00024.comcvlc +++|* (B2) = 0, IF ACCESS LEVEL. 00026 M00S00025.comcvlc +++|* (B2) .NE. 0, IF ACCESS CATEGORY. 00027 M00S00026.comcvlc +++|* 00028 M00S00027.comcvlc +++|* EXIT (X2) = CORRESPONDING NUMERIC VALUE OF SPECIFIED 00029 M00S00028.comcvlc +++|* ACCESS LEVEL OR CATEGORY NAME. 00030 M00S00029.comcvlc +++|* (X2) .LT. 0, IF LEVEL OR CATEGORY NOT FOUND. 00031 M00S00030.comcvlc +++|* 00032 M00S00031.comcvlc +++|* USES X - 2, 3. 00033 M00S00032.comcvlc +++|* A - 3. 00034 M00S00033.comcvlc +++|* B - 3. 00035 M00S00034.comcvlc +++|* 00036 M00S00035.comcvlc +++|* XREF COMSMLS. 00037 M00S00036.comcvlc +++| 00038 M00S00037.comcvlc +++| 00039 M00S00038.comcvlc +++| VLC SUBR ENTRY/EXIT 00040 M00S00039.comcvlc +++| SB3 TALV INITIALIZE TABLE POINTERS 00041 M00S00040.comcvlc +++| SX2 TALVL 00042 M00S00041.comcvlc +++| ZR B2,VLC1 IF ACCESS LEVEL CONVERSION 00043 M00S00042.comcvlc +++| SB3 TACT INITIALIZE TABLE POINTERS 00044 M00S00043.comcvlc +++| SX2 TACTL 00045 M00S00044.comcvlc +++| VLC1 SX2 X2-1 DECREMENT POINTER 00046 M00S00045.comcvlc +++| NG X2,VLCX IF SPECIFIED NAME NOT FOUND IN TABLE 00047 M00S00046.comcvlc +++| SA3 B3+X2 READ NEXT TABLE ENTRY 00048 M00S00047.comcvlc +++| BX3 X1-X3 00049 M00S00048.comcvlc +++| NZ X3,VLC1 IF NOT A MATCH 00050 M00S00049.comcvlc +++| EQ VLCX RETURN 00051 M00S00050.comcvlc +++| TALV SPACE 4,10 00052 M00S00051.comcvlc +++|** TALV - TABLE OF ACCESS LEVELS. 00053 M00S00052.comcvlc +++|* 00054 M00S00053.comcvlc +++|*T 42/ AL, 18/ 0
Figure
00055 M00S00054.comcvlc +++|* 00056 M00S00055.comcvlc +++|* AL ACCESS LEVEL NAME (DEFINED IN *COMSMLS*). 00057 M00S00056.comcvlc +++| 00058 M00S00057.comcvlc +++| 00059 M00S00058.comcvlc +++| TALV BSS 0 TABLE OF ACCESS LEVELS 00060 M00S00059.comcvlc +++| DATA C*"ALM0"* ACCESS LEVEL 0 00061 M00S00060.comcvlc +++| DATA C*"ALM1"* ACCESS LEVEL 1 00062 M00S00061.comcvlc +++| DATA C*"ALM2"* ACCESS LEVEL 2 00063 M00S00062.comcvlc +++| DATA C*"ALM3"* ACCESS LEVEL 3 00064 M00S00063.comcvlc +++| DATA C*"ALM4"* ACCESS LEVEL 4 00065 M00S00064.comcvlc +++| DATA C*"ALM5"* ACCESS LEVEL 5 00066 M00S00065.comcvlc +++| DATA C*"ALM6"* ACCESS LEVEL 6 00067 M00S00066.comcvlc +++| DATA C*"ALM7"* ACCESS LEVEL 7 00068 M00S00067.comcvlc +++| 00069 M00S00068.comcvlc +++| TALVL EQU *-TALV ACCESS LEVEL TABLE LENGTH 00070 M00S00069.comcvlc +++| TACT SPACE 4,10 00071 M00S00070.comcvlc +++|** TACT - TABLE OF ACCESS CATEGORIES. 00072 M00S00071.comcvlc +++|* 00073 M00S00072.comcvlc +++|*T 42/ AC, 18/ 0
Figure
00074 M00S00073.comcvlc +++|* 00075 M00S00074.comcvlc +++|* AC ACCESS CATEGORY NAME (DEFINED IN *COMSMLS*). 00076 M00S00075.comcvlc +++| 00077 M00S00076.comcvlc +++| 00078 M00S00077.comcvlc +++| TACT BSS 0 00079 M00S00078.comcvlc +++| DATA C*"ACM00"* ACCESS CATEGORY 00 00080 M00S00079.comcvlc +++| DATA C*"ACM01"* ACCESS CATEGORY 01 00081 M00S00080.comcvlc +++| DATA C*"ACM02"* ACCESS CATEGORY 02 00082 M00S00081.comcvlc +++| DATA C*"ACM03"* ACCESS CATEGORY 03 00083 M00S00082.comcvlc +++| DATA C*"ACM04"* ACCESS CATEGORY 04 00084 M00S00083.comcvlc +++| DATA C*"ACM05"* ACCESS CATEGORY 05 00085 M00S00084.comcvlc +++| DATA C*"ACM06"* ACCESS CATEGORY 06 00086 M00S00085.comcvlc +++| DATA C*"ACM07"* ACCESS CATEGORY 07 00087 M00S00086.comcvlc +++| DATA C*"ACM08"* ACCESS CATEGORY 08 00088 M00S00087.comcvlc +++| DATA C*"ACM09"* ACCESS CATEGORY 09 00089 M00S00088.comcvlc +++| DATA C*"ACM10"* ACCESS CATEGORY 10 00090 M00S00089.comcvlc +++| DATA C*"ACM11"* ACCESS CATEGORY 11 00091 M00S00090.comcvlc +++| DATA C*"ACM12"* ACCESS CATEGORY 12 00092 M00S00091.comcvlc +++| DATA C*"ACM13"* ACCESS CATEGORY 13 00093 M00S00092.comcvlc +++| DATA C*"ACM14"* ACCESS CATEGORY 14 00094 M00S00093.comcvlc +++| DATA C*"ACM15"* ACCESS CATEGORY 15 00095 M00S00094.comcvlc +++| DATA C*"ACM16"* ACCESS CATEGORY 16 00096 M00S00095.comcvlc +++| DATA C*"ACM17"* ACCESS CATEGORY 17 00097 M00S00096.comcvlc +++| DATA C*"ACM18"* ACCESS CATEGORY 18 00098 M00S00097.comcvlc +++| DATA C*"ACM19"* ACCESS CATEGORY 19 00099 M00S00098.comcvlc +++| DATA C*"ACM20"* ACCESS CATEGORY 20 00100 M00S00099.comcvlc +++| DATA C*"ACM21"* ACCESS CATEGORY 21 00101 M00S00100.comcvlc +++| DATA C*"ACM22"* ACCESS CATEGORY 22 00102 M00S00101.comcvlc +++| DATA C*"ACM23"* ACCESS CATEGORY 23 00103 M00S00102.comcvlc +++| DATA C*"ACM24"* ACCESS CATEGORY 24 00104 M00S00103.comcvlc +++| DATA C*"ACM25"* ACCESS CATEGORY 25 00105 M00S00104.comcvlc +++| DATA C*"ACM26"* ACCESS CATEGORY 26 00106 M00S00105.comcvlc +++| DATA C*"ACM27"* ACCESS CATEGORY 27 00107 M00S00106.comcvlc +++| DATA C*"ACM28"* ACCESS CATEGORY 28 00108 M00S00107.comcvlc +++| DATA C*"ACM29"* ACCESS CATEGORY 29 00109 M00S00108.comcvlc +++| DATA C*"ACM30"* ACCESS CATEGORY 30 00110 M00S00109.comcvlc +++| DATA C*"ACM31"* ACCESS CATEGORY 31 00111 M00S00110.comcvlc +++| 00112 M00S00111.comcvlc +++| TACTL EQU *-TACT ACCESS CATEGORY TABLE LENGTH 00113 M00S00112.comcvlc +++| SPACE 4,10 00114 M00S00113.comcvlc +++| BASE * 00115 M00S00114.comcvlc +++| QUAL$ IF -DEF,QUAL$ 00116 M00S00115.comcvlc +++| QUAL * 00117 M00S00116.comcvlc +++| VLC EQU /COMCVLC/VLC 00118 M00S00117.comcvlc +++| TALV EQU /COMCVLC/TALV 00119 M00S00118.comcvlc +++| TALVL EQU /COMCVLC/TALVL 00120 M00S00119.comcvlc +++| TACT EQU /COMCVLC/TACT 00121 M00S00120.comcvlc +++| TACTL EQU /COMCVLC/TACTL 00122 M00S00121.comcvlc +++| QUAL$ ENDIF 00123 M00S00122.comcvlc +++| VLC ENDX
cdc/nos2.source/opl.opl871/common/comcvlc.txt · Last modified: (external edit)