d 	Program SESSION
È c.		Computes the session costs for COST.COM.
,c.
c.	The following is an example of the DCL required to generate
ôc. the FOR001.dat fole required by this program.
Xc.
¼c.	$ assign/user costwork.vx sys$output
 c.	$ show process/account
„c.	$ assign/user costwork.vx for001
èc.	$ run SCI_EXE:session
Lc.
°c.-end.of.info-
c.
xC. SESSION.FOR == SHOW SESSION COSTS
ÜC.
@	CHARACTER CPUTIT*30, CONTIT*32
¤	INTEGER ICPU(3), ICON(3)
C.
l	OPEN(UNIT=1,TYPE='OLD',READONLY)
Ð	DO 220 I=1,5
4220		READ( 1, 9000 )
˜C.
ü	READ( 1, 9000 ) CPUTIT, ICPU, CONTIT, ICON
`	C.
Ä		CPU = 60*ICPU(1)+ICPU(2)+ICPU(3)/60.0
(
	CON = 60*ICON(1)+ICON(2)+ICON(3)/60.0
Œ
C.
ð
	CCON = 0.11 * CON
T	CCPU = 4.00 * CPU
¸	CTOT = CCON + CCPU
C.
€	WRITE( 6, 9100 ) CCON, ICON, CCPU, ICPU, CTOT
äC.
HC.	.........
¬9000	FORMAT( A30, 3(I2,1X), 2X, A32, 3(I2,1X) )
9100	FORMAT(F15.2,' =$0.11/min * ', 2(I2,':'),I2,' LOGIN time',
t	1    /,F15.2,' =$4.00/min * ', 2(I2,':'),i2,' CPU   time',
Øc.
<	2    /,F15.2,' =Total cost' )
 C.	.........
C.
h	END