.no justify .lm 0 .rm 70 .page size 66 70 .ap .c;^&Files Contents\& .blank 3 The contents of each file is explained in the following lines. .list 1 .le;ADD.FOR .list 0 "-" .le;Add__SemBud:: Adds a record into the indexed file SemBud.idx. It will inquire about re-writing a record if a identical record is found. .end list .le;CHECKPROF.FOR .list 0 "-" .le;CheckProf:: Checks to see if a professor's account exists if a "CLASS" account is being created. Note there MUST be a PROF account if there is a "CLASS" account. .end list .le;CLOSESEMBUD.FOR .list 0 "-" .le;CloseSemBud:: Closes the SemBud.idx file with the updated budget. .end list .le;DEL.FOR .list 0 "-" .le;Del__SemBud:: Deletes an entry from the SemBud.idx file. .end list .le;DISUSER.FOR .list 0 "-" .le;Disuser:: Disusers the accounts specified in the /LIST type option. .le;OpenCom:: Opens the command file for disusering the specified accounts. .le;WriteCom:: Writes the individual lines fro each user specified. .le;CloseCom:: Closes the command file opened. .end list .le;DISUSER1.FOR .list 0 "-" .le;Disuser1:: Disusers accounts specified interactively. .end list .le;GETDIR.FOR .list 0 "-" .le;GetDir:: Gets a unique directory path name for the users being created. .end list; .le;GETUIC.FOR .list 0 "-" .le;GetUIC:: Finds the first available unique UIC for the users being created. Note after the first unique UIC is found in that group the program will start the next search from that point. .end list .le;GETUSER.FOR .list 0 "-" .le;GetUser:: Finds a unique username for the user in question. Limitation is the account name may not be user more that 100 times. .end list; .le;IDENT.FOR .list 0 "-" .le;Customize:: Searches the CUSTOMIZE.SAV file for the specified account type and gets the modifications associated with that type and passes the number of modifications and the text of the modifications back to the caller. .end list .le;LABELS.FOR .list 0 "-" .le;Labels:: Determines the type of labels that are desired to be output. .le;Labels4:: Writes out the file associated with the 4 column labels. .le;Labels3:: Writes out the file associated with the 3 column labels. .end list .le;LIST.FOR .list 0 "-" .le;List__SemBud:: Lists the specified range of the SemBud.idx to a specified file. .end list .le;MAKACT.FOR .list 0 "-" .le;Accounts:: The main routine that drives each of the sub-routines. .le;analyze:: Analyzes the command input to it and outputs a state in which the main program decides where to go next. .le;UserHelp:: Calls the systems routine to execute a VMS help call to the MAKACT.HLB file. .end list .le;MAKE.FOR .list 0 "-" .le;Make:: Interactively call the individual routines to get the unique user information, open the command files, write the unique user information to those files opened, close the command files opened, and adjust the budget entry for the type and sub-type of accounts. .le;OpenFiles:: Opens the command files for the creation of new accounts. .le;WriteFiles:: Writes the individual user information to the command files opened above. .le;CloseFiles:: Closes the command files opened. .le;WriteDir Writes the commands to create the upper level directories to the MAKDIR.COM file. .end list .le;MAKELIST.FOR .list 0 "-" .le;MakeList:: Creates the accounts from the a specified roster file. Also this routine calls the same routines as in Make. .end list .le;MOD.FOR .list 0 "-" .le;Mod_SemBud:: Modifies an entry in the SemBud.idx file. Note, if a carriage return is hit, the default value show on the screen is used. .end list .le;OLDCHECK.FOR .list 0 "-" .le;Last__Login__Check:: Lists the accounts that have NOT login within a specified time to the screen. .le;Last__Login__File:: Lists the accounts that have NOT login within a specified time to the specified file. .le;Last__Login__Remove:: Removes the accounts from a file that has the format that is generated by the OLD LOGIN/LIST command within MAKACT. .le;GetInfo:: Gets information on a given username. The information includes the default login directory, the UIC, and the default user disk. .end list .le;OPENSEMBUD.FOR .list 0 "-" .le;OpenSemBud:: Opens the indexed file SemBud.idx and extracts the information on the accounts to be created. .end list .le;REMOVE.FOR .list 0 "-" .le;Remove:: Remove the accounts from the system from a list in the format output by the UAF in the LIST/BREIF command. Also this will handle the /CONFIRM qualifier on the REMOVE command from MAKACT. .le;OpenAll:: Opens the command files to remove the accounts. .le;WriteAll:: Write the individual information to the command files for removing the accounts. .le;CloseAll:: Closes the command files opened. .le;Parse:: Parses out the information needed from the current line in the input file. .le;RemoveSing:: Removes the accounts typed in at the terminal session. Note, this call the GetInfo routine to obtain the UIC, etc. .end list .le;SHOW.FOR .list 0 "-" .le;Show__SemBud:: Shows the default values of the specified TYPES and SUB-TYPES. .end list .le;BUILD.COM:: Builds the entire executable of MAKACT .le;LINK.COM:: Links the object code to create the executable for MAKACT. This is called from BUILD.COM. .le;MAKACT.CLD:: The command language defintion file for the MAKACT.EXE file. .end list