<< LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION>>               00000001
$page                                                                   00001000
<< ********************************************************  >>         00002000
<<           Include File For User Capabilities              >>         00003000
<< ********************************************************  >>         00004000
                                                                        00005000
$if x8 = off                                                            00006000
$control nolist                                                         00007000
$if                                                                     00008000
                                                                        00009000
<<                                                           >>         00010000
<<      User Capabilities are two word entries.  They exist  >>         00011000
<<  in four places:                                         >>          00012000
<<                 (1) Words %46 - %47 of the JIT.           >>         00013000
<<                 (2) Words 4 and 5 of a user entry in the  >>         00014000
<<                     system directory.                     >>         00015000
<<                 (3) Word 2 of the PXGLOBAL area is the    >>         00016000
<<                     first word of the User Caps.          >>         00017000
<<                 (4) Word 5 of the PXFIXED area is the     >>         00018000
<<                     second word of the User Caps. Note:   >>         00019000
<<                     this is actually the group capability >>         00020000
<<                     word.                                 >>         00021000
<<                                                           >>         00022000
<<  To access these bits a pointer (UCAPPTR) is used.  It    >>         00023000
<<  must point at the first word of the two word cap. pair   >>         00024000
<<  and then each bit may be referenced individually.        >>         00025000
<<  It is the responsibility of the user of this include     >>         00026000
<<  file to declare UCAPPTR.                                 >>         00027000
<<                                                           >>         00028000
<<  Example:                                                 >>         00029000
<<                                                           >>         00030000
<<    How to check for Account Manager capability by looking >>         00031000
<<  in the JIT.                                              >>         00032000
<<                                                           >>         00033000
<<         POINTER UCAPPTR;                                  >>         00034000
<<                                                           >>         00035000
<<         ....                                              >>         00036000
<<                                                           >>         00037000
<<                                                           >>         00038000
<<         @UCAPPTR := @JITUSERCAPS;  << point at caps.      >>         00039000
<<         ....                                              >>         00040000
<<         ....                                              >>         00041000
<<         IF UCAPAM = 0                                     >>         00042000
<<         THEN ....                  << The bit is not set  >>         00043000
<<                                                           >>         00044000
                                                                        00045000
                                                                        00046000
                                                                        00047000
                                                                        00048000
                                                                        00049000
                                                                        00050000
                                                                        00051000
                                                                        00052000
                                                                        00053000
                                                                        00054000
                                                                        00055000
                                                                        00056000
                                                                        00057000
                                                                        00058000
                                                                        00059000
                                                                        00060000
                                                                        00061000
                                                                        00062000
                                                                        00063000
                                                                        00064000
                                                                        00065000
                                                                        00066000
                                                                        00067000
$page                                                                   00068000
                                                                        00069000
                                                                        00070000
<<                                                           >>         00071000
<<                                                           >>         00072000
<< ********************************************************* >>         00073000
<<        The User Capabilities: Which bit is which.         >>         00074000
<< ********************************************************* >>         00075000
<<                                                           >>         00076000
<<  |---------------------- System Manager                   >>         00077000
<<  |  |------------------- Account Manager                  >>         00078000
<<  |  |  |---------------- Account Librarian                >>         00079000
<<  |  |  |  |------------- Group Librarian                  >>         00080000
<<  |  |  |  |  |---------- Diagnostician                    >>         00081000
<<  |  |  |  |  |  |------- System Supervisor                >>         00082000
<<  |  |  |  |  |  |  |---- Create Volumes                   >>         00083000
<<  |  |  |  |  |  |  |  |- Use Volumes                      >>         00084000
<<  |  |  |  |  |  |  |  |  User Logging                     >>         00085000
<<  |  |  |  |  |  |  |  |  |  System Process Handling       >>         00086000
<<  |  |  |  |  |  |  |  |  |  |  Programmatic Sessions      >>         00087000
<<  |  |  |  |  |  |  |  |  |  |  |  Network Administrator   >>         00088000
<<  |  |  |  |  |  |  |  |  |  |  |  |  Node Manager         >>         00089000
<<  |  |  |  |  |  |  |  |  |  |  |  |  |  Communications    >>         00090000
<<  |  |  |  |  |  |  |  |  |  |  |  |  |  |  Non-Sharable   >>         00091000
<<  |  |  |  |  |  |  |  |  |  |  |  |  |  |  Devices        >>         00092000
<<  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  Saved Files >>         00093000
<<  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |           >>         00094000
<< |--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|         >>         00095000
<< |SM|AM|AL|GL|DI|OP|CV|UV|LG|SP|PS|NA|NM|CS|ND|SF|         >>         00096000
<< |--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|         >>         00097000
<<                                                           >>         00098000
<<                                                           >>         00099000
<<   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15          >>         00100000
<<                                                           >>         00101000
<<                                                           >>         00102000
<< |--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|         >>         00103000
<< |//|//|//|//|//|//|//|BA|IA|PM|//|//|MR|//|DS|PH|         >>         00104000
<< |--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|         >>         00105000
<<                       |  |  |        |     |  |           >>         00106000
<<                       |  |  |        |     |  |           >>         00107000
<<        Batch Access --|  |  |        |     |  |           >>         00108000
<<  Interactive Access -----|  |        |     |  |           >>         00109000
<<     Privileged Mode --------|        |     |  |           >>         00110000
<<                                      |     |  |           >>         00111000
<<                                      |     |  |           >>         00112000
<<                    Multiple RINS ----|     |  |           >>         00113000
<<               Extra Data Segment ----------|  |           >>         00114000
<<                 Process Handling -------------|           >>         00115000
<<                                                           >>         00116000
                                                                        00117000
                                                                        00118000
                                                                        00119000
                                                                        00120000
                                                                        00121000
                                                                        00122000
                                                                        00123000
                                                                        00124000
$page                                                                   00125000
                                                                        00126000
$if x8 = off                                                            00127000
$control list                                                           00128000
$if                                                                     00129000
                                                                        00130000
                                                                        00131000
<< ********************************************************  >>         00132000
<<              User Capabilities:  WORD 0                   >>         00133000
<< ********************************************************  >>         00134000
                                                                        00135000
                                                                        00136000
DEFINE                                                                  00137000
  UCAPSM                     = UCAPPTR(0).(0:1)#,                       00138000
  UCAPAM                     = UCAPPTR(0).(1:1)#,                       00139000
  UCAPAL                     = UCAPPTR(0).(2:1)#,                       00140000
  UCAPGL                     = UCAPPTR(0).(3:1)#,                       00141000
  UCAPDI                     = UCAPPTR(0).(4:1)#,                       00142000
  UCAPOP                     = UCAPPTR(0).(5:1)#,                       00143000
  UCAPCV                     = UCAPPTR(0).(6:1)#,                       00144000
  UCAPUV                     = UCAPPTR(0).(7:1)#,                       00145000
  UCAPLG                     = UCAPPTR(0).(8:1)#,                       00146000
  UCAPSP                     = UCAPPTR(0).(9:1)#,                       00147000
  UCAPPS                     = UCAPPTR(0).(10:1)#,                      00148000
  UCAPNA                     = UCAPPTR(0).(11:1)#,                      00149000
  UCAPNM                     = UCAPPTR(0).(12:1)#,                      00150000
  UCAPCS                     = UCAPPTR(0).(13:1)#,                      00151000
  UCAPND                     = UCAPPTR(0).(14:1)#,                      00152000
  UCAPSF                     = UCAPPTR(0).(15:1)#;                      00153000
                                                                        00154000
<< ********************************************************  >>         00155000
<<                User Capabilities:  WORD 1                 >>         00156000
<< ********************************************************  >>         00157000
                                                                        00158000
DEFINE                                                                  00159000
  UCAPBA                     = UCAPPTR(1).(7:1)#,                       00160000
  UCAPIA                     = UCAPPTR(1).(8:1)#,                       00161000
  UCAPPM                     = UCAPPTR(1).(9:1)#,                       00162000
  UCAPMR                     = UCAPPTR(1).(12:1)#,                      00163000
  UCAPDS                     = UCAPPTR(1).(14:1)#,                      00164000
  UCAPPH                     = UCAPPTR(1).(15:1)#;                      00165000
                                                                        00166000
<< ******************************************************** >>          00167000
<<           End Include File For User Capabilities         >>          00168000
<< ******************************************************** >>          00169000
