.title privileges
;
;	Ce programme "spawne" le fichier définit par l'assignation
;	PRIVILEGES.
;
;	$ MACRO PRIVILEGES
;	$ LINK/NOTRACE PRIVILEGES
;	$ COPY/PROT=(W:E) PRIVILEGES.EXE SYS$SYSTEM:*.*
;	$ SET PROCESS/PRIVILEGE=CMKNRL		! Pour l'install
;	$ INSTALL ADD SYS$SYSTEM:PRIVILEGES/OPEN/SHARE/HEADER/PRIVILEGE=xxx
;		où xxx représente le ou les privilèges désirés.
;	$ DEFINE PRIVILEGES nom_du_fichier.com
;
;	Le nom_du_fichier.com devra avoir les privilèges désirés :
;	$ SET PROCESS/PRIVILEGE=xxx
;
	.psect data,wrt,noexe,pic
input_file:    .ascid /PRIVILEGES/
;
	.psect code,nowrt,exe,pic,shr
	.entry privileges ,^m<>
	pushal input_file
	pushl  #0
	calls  #2,g^lib$spawn
	ret
	.end   privileges