$ ! DCL command file to add a new faculty $ ! account to the system - 21-Jan-87 - tmk $ IF P1 .EQS. "" THEN GOTO HELP $ PPN=P1 ! Desired PPN $ ANAME=P2 ! Desired account name $ ULOC=P3 ! Location of his U: drive $ WRITE 0 "Creating account "+PPN+" on SY0:" $ SET NODATA $ SET NOON $ CRE/ACC 'PPN'/NAM="''ANAME'"/PRIV=(GACNT,GREAD,GWRITE,SETPAS)- /IN_Q=1000/OUT_Q=500 $ SET DATA $ SET ON $ WRITE 0 "Creating account "+PPN+" on "+ULOC $ CRE/ACC 'ULOC''PPN'/IN_Q=1000/OUT_Q=500 $ WRITE 0 "Creating SY0:"+PPN+"LOGIN.COM<40>" $ OPEN/WRITE 1 'PPN'LOGIN.COM $ WRITE 1 "$ ! LOGIN.COM for instructor accounts" $ WRITE 1 "$ ! This revision - 09-Sep-85 - tmk" $ WRITE 1 "$ ! Under NO CIRCUMSTANCE is this file to be modified!" $ WRITE 1 "$ _ASSIGN ''ULOC' U:" $ WRITE 1 "$ _EXIT" $ CLOSE 1 $ SET PROTECTION=40/NOLOG 'PPN'LOGIN.COM $ SET FILE/NODELET 'PPN'LOGIN.COM $ WRITE 0 "Don't forget to make an entry in the MAIL NAMES database!" $DONE: $ EXIT $HELP: $ WRITE 0 "NEWFAC creates a new faculty account given" $ WRITE 0 " the following information:" $ WRITE 0 "NEWFAC [p,pn] 'Name' uloc:" $ WRITE 0 "Where [p,pn] is the PPN to be created," $ WRITE 0 " 'name' is the name of the account," $ WRITE 0 " and uloc: is the U-drive name." $ GOTO DONE