User Tools

Site Tools


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

0171829 0 AL3059 AL

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

0171829 0 AC3059 AC

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