In the previous article, we looked at the documentation for the AUTHORIZE utility. Login and Authorize are the only CUSPs that directly access the SYSUAF file. Authorize allows the administrator to create, delete, and alter authorized users. Login uses the information in SYSUAF to authenticate users at log-in time. The GETUAI and SETUAI system services allow some amount of programmatic control over getting and setting user account information in SYSUAF, but there are no system services that allow the creation, deletion, or renaming of user accounts. This to say that the UOS executive doesn't make use of SYSUAF (other than offering the aforementioned services to users). All account-related quotas, privileges, etc are set up for each process by the Login CUSP and so there is no need for the executive to directly access the file. But since all CUSPs, including Authorize, are callable from other programs all the features of the CUSP are available programmatically.

The Add command is really just a Copy from the default account. The Default and Modify operations are essentially the same, differing only in which account is modified. The List and Show operations mainly differ in where the data is to be output. The Exit and Help commands are things that we will find are common to most CUSPs and will be covered in an article to follow. Thus, we can divide all of the unique tasks that the program performs into six basic operations: copy (Add and Copy commands), modify (Default and Modify commands), list (Show and List commands), delete, rename, and set system password. The first three operations (six commands) all share the same set of switches which helps to simplify the UI design - and it is these switches that make the UI definition so lengthy.

const UI =  'object Main:rectangle' + CR +
            '  top = 2' + CR +
            '  object add:operation' + CR +
            '    text = "Add"' + CR +
            '    top = $margin' + CR +
            '    left = $margin' + CR +
            '  end' + CR +
            '  object copy:operation' + CR +
            '    text = "Copy"' + CR +
            '    top = $margin' + CR +
            '    left = $margin' + CR +
            '  end' + CR +
            '  object default:operation' + CR +
            '    text = "Default"' + CR +
            '    top = $margin' + CR +
            '    left = $margin' + CR +
            '  end' + CR +
            '  object modify:operation' + CR +
            '    text = "Modify"' + CR +
            '    top = $margin' + CR +
            '    left = $margin' + CR +
            '  end' + CR +
            '  object change:operation' + CR +
            '    text = "Change"' + CR +
            '    top = $margin' + CR +
            '    left = $margin' + CR +
            '  end' + CR +
            '  object rename:operation' + CR +
            '    text = "Rename"' + CR +
            '    top = $margin' + CR +
            '    left = $margin' + CR +
            '  end' + CR +
            '  object list:operation' + CR +
            '    text = "List"' + CR +
            '    top = $margin' + CR +
            '    left = $margin' + CR +
            '  end' + CR +
            '  object show:operation' + CR +
            '    text = "Show"' + CR +
            '    top = $margin' + CR +
            '    left = $margin' + CR +
            '  end' + CR +
            '  object modify_system_Password:operation' + CR +
            '    text = "Modify/System_Password"' + CR +
            '    top = $margin' + CR +
            '    left = $margin' + CR +
            '  end' + CR +
            '  object exit:operation' + CR +
            '    text = "Exit"' + CR +
            '    top = $margin' + CR +
            '    left = $margin' + CR +
            '  end' + CR +
            '  object about:operation' + CR +
            '    text = "About"' + CR +
            '    top = $margin' + CR +
            '    left = $margin' + CR +
            '  end' + CR +
            '  object help:operation' + CR +
            '    text = "Help"' + CR +
            '    top = $margin' + CR +
            '    left = $margin' + CR +
            '  end' + CR +
            '' + // Settings...
            '  object accountlabel:label' + CR +
            '    text = "Account:"' + CR +
            '  end' + CR +
            '  object account:string' + CR +
            '    hint = "Account name"' + CR +
            '    left = accountlabel.width + $margin' + CR +
            '  end' + CR +
            '  object ownerlabel:label' + CR +
            '    text = "Owner:"' + CR +
            '  end' + CR +
            '  object owner:string' + CR +
            '    hint = "Owner name"' + CR +
            '    left = ownerlabel.width + $margin' + CR +
            '  end' + CR +
            '  object expirationlabel:label' + CR +
            '    text = "Expiration:"' + CR +
            '  end' + CR +
            '  object expiration:date' + CR +
            '    hint = "Account expiration date"' + CR +
            '    left = expirationlabel.width + $margin' + CR +
            '  end' + CR +
            '  object flagslabel:label' + CR +
            '    text = "Flags:"' + CR +
            '  end' + CR +
            '  object flags:list' + CR +
            '    hint = "Account flags"' + CR +
            '    left = flagslabel.width + $margin' + CR +
            '    list = "AUDIT","AUTOLOGIN","CAPTIVE","DEFCLI","DISCTLY","DISIMAGE","DISMAIL","DISNEWMAIL","DISRECONNECT",' +
            '"DISREPORT","DISUSER","DISWELCOME","RESTRICTED"' + CR +
            '    multiselect = true' + CR +
            '  end' + CR +
            '  object prioritylabel:label' + CR +
            '    text = "Priority:"' + CR +
            '  end' + CR +
            '  object priority:integer' + CR +
            '    minimum = 1' + CR +
            '    maximum = 255' + CR +
            '    left = prioritylabel.width + $margin' + CR +
            '  end' + CR +
            '' + // Access control...
            '  object accesstime:string' + CR +
            '    left = $margin' + CR +
            '  end' + CR +
            '  object addaccess:operation' + CR +
            '    text = "Add"' + CR +
            '    left = accesstime.width + $margin' + CR +
            '  end' + CR +
            '  object accesslist:list' + CR +
            '    text = ""' + CR +
            '  end' + CR +
            '  object batchtime:string' + CR +
            '    left = $margin' + CR +
            '  end' + CR +
            '  object addbatch:operation' + CR +
            '    text = "Add"' + CR +
            '    left = batchtime.width + $margin' + CR +
            '  end' + CR +
            '  object batchlist:list' + CR +
            '    text = ""' + CR +
            '  end' + CR +
            '  object dialuptime:string' + CR +
            '    left = $margin' + CR +
            '  end' + CR +
            '  object dialupaccess:operation' + CR +
            '    text = "Add"' + CR +
            '    left = dialuptime.width + $margin' + CR +
            '  end' + CR +
            '  object dialuplist:list' + CR +
            '    text = ""' + CR +
            '  end' + CR +
            '  object interactivetime:string' + CR +
            '    left = $margin' + CR +
            '  end' + CR +
            '  object interactiveaccess:operation' + CR +
            '    text = "Add"' + CR +
            '    left = interactivetime.width + $margin' + CR +
            '  end' + CR +
            '  object interactivelist:list' + CR +
            '    text = ""' + CR +
            '  end' + CR +
            '  object localtime:string' + CR +
            '    left = $margin' + CR +
            '  end' + CR +
            '  object localaccess:operation' + CR +
            '    text = "Add"' + CR +
            '    left = localtime.width + $margin' + CR +
            '  end' + CR +
            '  object locallist:list' + CR +
            '    text = ""' + CR +
            '  end' + CR +
            '  object networktime:string' + CR +
            '    left = $margin' + CR +
            '  end' + CR +
            '  object networkaccess:operation' + CR +
            '    text = "Add"' + CR +
            '    left = networktime.width + $margin' + CR +
            '  end' + CR +
            '  object networklist:list' + CR +
            '    text = ""' + CR +
            '  end' + CR +
            '  object remotetime:string' + CR +
            '    left = $margin' + CR +
            '  end' + CR +
            '  object remoteaccess:operation' + CR +
            '    text = "Add"' + CR +
            '    left = remotetime.width + $margin' + CR +
            '  end' + CR +
            '  object remotelist:list' + CR +
            '    text = ""' + CR +
            '  end' + CR +
            '  object primedayslabel:label' + CR +
            '    text = "CPUTIM:"' + CR +
            '  end' + CR +
            '  object primedays:list' + CR +
            '    hint = "Primary days"' + CR +
            '    left = primedayslabel.width + $margin' + CR +
            '    list = "MONDAY","TUESDAY","WEDNESDAY","THURSDAY","FRIDAY","SATURDAY","SUNDAY"' + CR +
            '    multiselect = true' + CR +
            '  end' + CR +
            '' + // quotas...
            '  object astlmlabel:label' + CR +
            '    text = "ASTLM:"' + CR +
            '  end' + CR +
            '  object astlm:integer' + CR +
            '    hint = "AST Limit"' + CR +
            '    text = "0"' + CR +
            '    left = astlmlabel.width + $margin' + CR +
            '  end' + CR +
            '  object biolmlabel:label' + CR +
            '    text = "BIOLM:"' + CR +
            '  end' + CR +
            '  object biolm:integer' + CR +
            '    hint = "Buffer I/O Limit"' + CR +
            '    text = "0"' + CR +
            '    left = biolmlabel.width + $margin' + CR +
            '  end' + CR +
            '  object bytlmlabel:label' + CR +
            '    text = "BYTLM:"' + CR +
            '  end' + CR +
            '  object bytlm:integer' + CR +
            '    hint = "Byte Limit"' + CR +
            '    text = "0"' + CR +
            '    left = bytlmlabel.width + $margin' + CR +
            '  end' + CR +
            '  object cputimlabel:label' + CR +
            '    text = "CPUTIM:"' + CR +
            '  end' + CR +
            '  object cputim:integer' + CR +
            '    hint = "Max CPU time"' + CR +
            '    text = "0"' + CR +
            '    left = cputimlabel.width + $margin' + CR +
            '  end' + CR +
            '  object diolmlabel:label' + CR +
            '    text = "DIOLM:"' + CR +
            '  end' + CR +
            '  object diolm:integer' + CR +
            '    hint = "Direct I/O limit"' + CR +
            '    text = "0"' + CR +
            '    left = diolmlabel.width + $margin' + CR +
            '  end' + CR +
            '  object enqlmlabel:label' + CR +
            '    text = "ENQLM:"' + CR +
            '  end' + CR +
            '  object enqlm:integer' + CR +
            '    hint = "Lock queue limit"' + CR +
            '    text = "0"' + CR +
            '    left = enqlmlabel.width + $margin' + CR +
            '  end' + CR +
            '  object fillmlabel:label' + CR +
            '    text = "FILLM:"' + CR +
            '  end' + CR +
            '  object fillm:integer' + CR +
            '    hint = "Open file limit"' + CR +
            '    text = "0"' + CR +
            '    left = fillmlabel.width + $margin' + CR +
            '  end' + CR +
            '  object shrfillmlabel:label' + CR +
            '    text = "FILLM:"' + CR +
            '  end' + CR +
            '  object shrfillm:integer' + CR +
            '    hint = "Shared open file limit"' + CR +
            '    text = "0"' + CR +
            '    left = shrfillmlabel.width + $margin' + CR +
            '  end' + CR +
            '  object jtquotalabel:label' + CR +
            '    text = "JTQUOTA:"' + CR +
            '  end' + CR +
            '  object jtquota:integer' + CR +
            '    hint = "Initial size of the process symbol tables"' + CR +
            '    text = "0"' + CR +
            '    left = jtquotalabel.width + $margin' + CR +
            '  end' + CR +
            '  object pgflquotalabel:label' + CR +
            '    text = "PGFLQUOTA:"' + CR +
            '  end' + CR +
            '  object pgflquota:integer' + CR +
            '    hint = "Page File quota"' + CR +
            '    text = "0"' + CR +
            '    left = pgflquotalabel.width + $margin' + CR +
            '  end' + CR +
            '  object prclimlabel:label' + CR +
            '    text = "PRCLIM:"' + CR +
            '  end' + CR +
            '  object prclim:integer' + CR +
            '    hint = "Process limit"' + CR +
            '    text = "0"' + CR +
            '    left = prclimlabel.width + $margin' + CR +
            '  end' + CR +
            '  object tqelmlabel:label' + CR +
            '    text = "TQELM:"' + CR +
            '  end' + CR +
            '  object tqelm:integer' + CR +
            '    hint = "Timer limit"' + CR +
            '    text = "0"' + CR +
            '    left = tqelmlabel.width + $margin' + CR +
            '  end' + CR +
            '  object wsdefaultlabel:label' + CR +
            '    text = "WSDEFAULT:"' + CR +
            '  end' + CR +
            '  object wsdefault:integer' + CR +
            '    hint = "Default maximum process memory limit"' + CR +
            '    text = "0"' + CR +
            '    left = wsdefaultlabel.width + $margin' + CR +
            '  end' + CR +
            '  object wsextentlabel:label' + CR +
            '    text = "WSEXTENT:"' + CR +
            '  end' + CR +
            '  object wsextent:integer' + CR +
            '    hint = "Maximum process memory limit"' + CR +
            '    text = "0"' + CR +
            '    left = wsextentlabel.width + $margin' + CR +
            '  end' + CR +
            '  object wsquotalabel:label' + CR +
            '    text = "WSQUOTA:"' + CR +
            '  end' + CR +
            '  object wsquota:integer' + CR +
            '    hint = "maximum process memory limit, in locked pages"' + CR +
            '    text = "0"' + CR +
            '    left = wsquotalabel.width + $margin' + CR +
            '  end' + CR +
            '' + // Login environment settings...
            '  object devicelabel:label' + CR +
            '    text = "Device:"' + CR +
            '  end' + CR +
            '  object device:string' + CR +
            '    hint = "Default device"' + CR +
            '    left = devicelabel.width + $margin' + CR +
            '  end' + CR +
            '  object directorylabel:label' + CR +
            '    text = "Directory:"' + CR +
            '  end' + CR +
            '  object directory:string' + CR +
            '    hint = "Default directory"' + CR +
            '    left = directorylabel.width + $margin' + CR +
            '  end' + CR +
            '  object clilabel:label' + CR +
            '    text = "CLI:"' + CR +
            '  end' + CR +
            '  object shell:string' + CR +
            '    hint = "Shell name"' + CR +
            '    left = clilabel.width + $margin' + CR +
            '  end' + CR +
            '  object lgicmdlabel:label' + CR +
            '    text = "LGICMD:"' + CR +
            '  end' + CR +
            '  object lgicmd:string' + CR +
            '    hint = "Login command file"' + CR +
            '    left = lgicmdlabel.width + $margin' + CR +
            '  end' + CR +
            '  object maxjobslabel:label' + CR +
            '    text = "MAXJOBS:"' + CR +
            '  end' + CR +
            '  object maxjobs:string' + CR +
            '    hint = "Maximum concurrent processes"' + CR +
            '    text = "0"' + CR +
            '    left = maxjobslabel.width + $margin' + CR +
            '  end' + CR +
            '  object maxacctjobslabel:label' + CR +
            '    text = "MAXACCTJOB:"' + CR +
            '  end' + CR +
            '  object maxacctjobs:integer' + CR +
            '    hint = "Initial size of the process symbol tables"' + CR +
            '    text = "0"' + CR +
            '    left = maxacctjobslabel.width + $margin' + CR +
            '  end' + CR +
            '  object maxdetachlabel:label' + CR +
            '    text = "MAXDETACH:"' + CR +
            '  end' + CR +
            '  object maxdetach:integer' + CR +
            '    hint = "Maximum detached jobs"' + CR +
            '    text = "0"' + CR +
            '    left = maxdetachlabel.width + $margin' + CR +
            '  end' + CR +
            '' + // Privileges....
            '  object defprivilegeslabel:label' + CR +
            '    text = "Default Privileges:"' + CR +
            '  end' + CR +
            '  object defprivileges:list' + CR +
            '    hint = "Default Privileges"' + CR +
            '    left = defprivilegeslabel.width + $margin' + CR +
            '    list = "ACNT","ALLSPOOL","ALTPRI","AUDIT","BUGCHK","CMEXEC","CMKRNL",' +
                   '"DIAGNOSE","EXQUOTA","GROUP","GRPNAM","IMPERSONATE","LOG_IO","MOUNT",' +
                   '"NETMBX","OPER","PFNMAP","PHY_IO","PRMCEB","PRMGBL","PRMMBX","PSWAPM",' +
                   '"SECURITY","SETPRV","SHARE","SHMEM","SYSGBL","SYSLCK","SYSNAM","TMPMBX","VOLPRO","WORLD"' + CR +
            '    multiselect = true' + CR +
            '  end' + CR +
            '  object privilegeslabel:label' + CR +
            '    text = "Authorized Privileges:"' + CR +
            '  end' + CR +
            '  object privileges:list' + CR +
            '    hint = "Authorized Privileges"' + CR +
            '    left = privilegeslabel.width + $margin' + CR +
            '    list = "ACNT","ALLSPOOL","ALTPRI","AUDIT","BUGCHK","CMEXEC","CMKRNL",' +
                   '"DIAGNOSE","EXQUOTA","GROUP","GRPNAM","IMPERSONATE","LOG_IO","MOUNT",' +
                   '"NETMBX","OPER","PFNMAP","PHY_IO","PRMCEB","PRMGBL","PRMMBX","PSWAPM",' +
                   '"SECURITY","SETPRV","SHARE","SHMEM","SYSGBL","SYSLCK","SYSNAM","TMPMBX","VOLPRO","WORLD"' + CR +
            '    multiselect = true' + CR +
            '  end' + CR +
            'end' ;

One thing to note from this UI definition is the addition of the "date" type to the UUI. This is encapsulated in the TUUI_Date component class and is used to contain a date in UOS format. There are a couple other additions to the UUI, which we will discuss in a following article.

In the next article, we will begin to look at the code that implements the above functionality.