d $!{DO}	COST {type}
È $!		Computes cost of the Session, in Total, or on Daily basis.
,$!
$!	This procedure will either examine the LOGin and CPU time of this
ô$! session and compute the cost, or go into the accounting file and give
X$! the costs through the previous night.  The use can be shown in total,
¼$! or on a daily basis.
 $!
„$! 	The procedure will prompt for the "type" parameter if it is not
è$! given by the user. The three acceptable types are:
L$!		S(ession).....Costs given for this login session.
°$!		D(aily).......Costs given on a daily basis for the month.
$!		T(otal).......Total cost given for the month.
x$! ..note.. This creates and deletes COSTWORK.vx
Ü$! ..uses.. [opsci.acct]MONTH.RES,[opsci.bill]COST.EXE
@$!		,sci_exe:SESSION.EXE
¤$!
$!-end.of.info-
l$!
Ð$! xxxto last .. Show account, xxx$!U .. Show user, * .. Loop cost
4$
˜$ if( p1.eqs."" ) then inquire p1 "{Session, Total,or {Daily}}"
ü$ if( p1.eqs."*" ) then goto yesloop
`	$ cp1 := 'f$extract( 0,1,p1 )
Ä	$ if( cp1.eqs."S" .and. 'f$locate("=",p1).eq.'f$lenght(p1))-
(
    then goto session
Œ
$
ð
$ open/write costwork costwork.vx
T$ if( 'f$locate("=",p1).eq.'f$length(p1) ) then goto notsys
¸$  write costwork p1
$  goto yesuser
€$
ä$notsys:
H$ if( cp1.eqs."T" ) then write costwork "=Total"
¬
$
t$ user := 'f$directory()
Ø$ len = 'f$length(user)-2
<$ user := 'f$extract(1,len,user)
 $ pos = 'f$locate(".",user)
$ user := 'f$extract(0,pos,user)
h$ write costwork user
Ì$
0$yesuser:
”$ close costwork
ø$ assign/user costwork.vx for005
\$ assign/user nl: for$type
À$
$$ assign/user dra0:[opsci.acct]month.res for001
ˆ$ run dra0:[opsci.bill]cost
ì$ delete costwork.vx;0
P$ exit
´$
$session:
|$ assign/user costwork.vx sys$output
à$ show process/account
D$ assign/user costwork.vx for001
¨$ run SCI_EXE:session
$ delete costwork.vx;0
p$ exit
Ô$
8$yesloop:
œ$ inquire inf "_Input file"
 $ if( inf.eqs."" ) then inf := dra0:[opsci.acct]month.res
d$ assign/user 'inf for001
È$ assign/user tt: sys$input
,$ run dra0:[opsci.bill]cost