Billy: See also the ACCOUNT command, in Chapter 3 of manual CMS Commands and Utilities Reference. ______________________________________________ Clovis
From: Scott Rohling <[email protected]> To: [email protected] Date: 30/12/2010 16:18 Subject: Re: Accounting Records Sent by: The IBM z/VM Operating System <[email protected]> I believe the record layout is in CP Planning and Administration? Here's some code you point at an accounting file and produces a report showing CPU minutes/hours for each user (looks like although I collect the account code - I'm not displaying it): /*--------------------------------------------------------------------*/ Trace o Address COMMAND Arg file Parse VAR file file '(' outfile Parse Source envnm callnm snm styp smod synnm cmdnm user. = '' users. = '' usernum = 0 grand = 0 'PIPE COMMAND LISTFILE' file '| STEM FILES.' Do i = 1 to files.0 'PIPE FILE' files.i '| LOCATE 79.2 /01/ | SPECS 1.40 1 | STEM REC.' Say files.i Do j = 1 to rec.0 Parse VAR rec.j 1 usr 9 act 17 . 33 tsecs 37 . usr = strip(usr) tsecs = 'C2D'(tsecs) If user.usr = '' Then Do user.usr = 0 usernum = usernum + 1 users.usernum = usr user.usr.code = act End user.usr = user.usr + tsecs grand = grand + tsecs End End Say usernum 'users found' If outfile = '' Then outfile = 'CPUCNT OUTPUT A' 'ERASE' outfile total = 0 Do i = 1 to usernum usr = strip(users.i) act = user.usr.code /* Data is milliseconds - so get seconds */ amount = user.usr/1000 pct = format(100*(user.usr/grand),5,2) /* Divide by 60 for minutes */ hours = amount/60 total = total + amount out = left(usr,8) format(amount,10,2) format(hours,10,2) pct'%' Say out 'PIPE VAR OUT | >>' outfile End Say 'Total:' total 'FINIS' outfile Call @Exit 0 /*--------------------------------------------------------------------*/ /* Exit - Exit Routine (Normal and Error) */ /*--------------------------------------------------------------------*/ @Exit: Parse Arg erc text If text ¬= '' Then Say text Exit erc On Thu, Dec 30, 2010 at 11:07 AM, Billy Bingham < [email protected]> wrote: Does anyone have a short tutorial or know of a book on collecting and processing the accounting records generated by VM? This would include the record layouts. Thanks, Billy
