OpenVMS DCL Command Procedure :

$!
$!	Description:	Creates a list of user accounts
$!			that have any specified identifiers.
$!
$	SET DEFAULT SYS$LOGIN
$	OPEN/WRITE output_file SYS$LOGIN:IDENT.DOC
$!
$!  Create heading
$!
$ 	output_record = "                   IDENT.COM"
$       WRITE output_file output_record
$ 	output_record = " "
$       WRITE output_file output_record
$ 	output_record = "  User Identifier List"
$       WRITE output_file output_record
$!
$!  Get all users with identifier of (1st Input Identifier)
$!
$ 	output_record = " "
$       WRITE output_file output_record
$ 	output_record = "(1st Input Identifier) :"
$       WRITE output_file output_record
$ 	output_record = " "
$       WRITE output_file output_record
$!
$ 	COPY SYS$LOGIN:EMPTY_PLAY.DOC SYS$LOGIN:TEMP_RIGHTS_LIST.DOC
$!
$ 	UAF = "$AUTHORIZE"
$ 	UAF LIST/IDENT/FULL (1st Input Identifier)
$!
$ 	SEARCH SYS$LOGIN:RIGHTSLIST.LIS/OUTPUT=SYS$LOGIN:TEMP_RIGHTS_LIST.DOC "(Selection Criteria For User Accounts)"
$!
$	OPEN/READ input_file SYS$LOGIN:TEMP_RIGHTS_LIST.DOC
$!
$Read_Data_XX:
$!
$	READ/END_OF_FILE=End_Read_XX input_file input_record
$ 		UAF LIST/BRIEF 'input_record'
$ 		OPEN/READ uaf_lis SYS$LOGIN:SYSUAF.LIS
$ 		READ uaf_lis uaf_rec
$ 		READ uaf_lis uaf_rec
$ 		READ uaf_lis uaf_rec
$ 		output_record = input_record + f$extract(0,21,uaf_rec)
$       	WRITE output_file output_record
$ 		CLOSE uaf_lis
$		GOTO Read_Data_XX
$End_Read_XX:
$!
$	CLOSE input_file
$!
	.
	.
DCL to check for other identifiers
	.
	.
$	CLOSE output_file
$!
$!  Delete any temporary files created.
$!
$ 	DELETE/NOLOG SYS$LOGIN:RIGHTSLIST.LIS;*
$ 	DELETE/NOLOG SYS$LOGIN:SYSUAF.LIS;*
$ 	DELETE/NOLOG SYS$LOGIN:TEMP_RIGHTS_LIST.DOC;*
$!
$!  E-mail the results to the proper individuals.
$!
$       MAIL
SEND SYS$LOGIN:IDENT.DOC
(E-mail account to send results to)
Identifier List
EXIT
$!
$ 	EXIT

This page hosted by Get your own Free Homepage