!
!++
!
! FACILITY:
!       
!	System program implementing a  way to modify the  VMS Account string
!	in the job and process data structures.
!
! ABSTRACT:
!
!	This program accepts as parameter a General Identifier that is to be
!	set as new VMS Account for the current process  and all subprocesses
!	started hereafter.  Resource usage data  accumulated to  this moment
!	are NOT written out to ACCOUNTNG.DAT - this only takes place at pro-
!	cess termination.  Thus only ONE CHARGE command per process lifetime
!	is meaningful. 
!	The given string overwrites the previous one in:
!	  CTL$T_ACCOUNT, the current process'  location for the account name
!	and
!	  JIB$T_ACCOUNT, thus making the new account JOB-wide (newly created
!			 subprocesses will adopt it automatically, too)
!
!	Adaption to new VMS versions, installation and usage:
!	-----------------------------------------------------
!
!	For each new major release of VMS  CHARGE.OBJ  should be re - linked
!	since the data locations accessed might change.
!	Link as follows:
!		LINK/NODEBUG/NOTRACE CHARGE,SYS$LIBRARY:SYS.STB/SEL
!
!	Then $ COPY CHARGE.EXE SYS$COMMON:[SYSEXE]/PROT=W:RE
!	and  $ INSTALL CHARGE/PRIV=CMKRNL
!
!	Now make ( via your SYS$SYLOGIN: procedure ) a foreign command defi-
!	nition:
!		$ CHARGE :== $CHARGE
!
!	Usage:	$ CHARGE <project-account>		or
!		$ CHARGE ?	  to see a list of all your project accounts
!		
!	Administration of project accouts using AUTHORIZE:
!
!	Each 'project account' must be defined as a  general identifier with
!	RESOURCE attribute and MUST NOT EXCEEED 8 CHARACTERS IN LENGTH since
!	this is also the length limit for the default VMS account string.
!	For example:
!		UAF> ADD/IDENT PROJECTX/ATTRIBUTE=RESOURCE
!
!	Then GRANT such identifiers to all users ( i.e. project developers )
!	entitled to charge the respective projects:
!	
!		UAF> GRANT/IDENT PROJECTX USERA/ATTRIBUTES=RESOURCE
!
!	Do not forget the RESOURCE attribute;  CHARGE will accept as  project
!	accounts only RESOURCE attributed identifiers!
!	As you may have read in "Guide to Setting Up a VMS System" Chapt. 4.6
!	RESOURCE-attributed identifiers may also be used to charge disk quota
!	to them, i.e. they can be used as file owners.
!
! AUTHOR:
!	Burkhard Kampf
!	TELENORMA, BOSCH TELECOM
!	Dept. 1/EIV1 6071
!	Kleyerstrasse 79
!	6000 Frankfurt 1
!	Germany
!	Phone: +49 (0)69 266 6071
!
! REVISION HISTORY:
!	4-Jul-91	Add code to show caller's project accounts ( formerly
!			a separate image )
!--