For the formats, try the ACOBK in CP Data Areas and Control Blocks. We do not use them for accounting purposes, but they are saved for ad hoc reports. We do a daily ACNT ALL just before midnight. The files are saved as ACCOUNT yyyymmdd.
Regards, Richard Schuh ________________________________ From: The IBM z/VM Operating System [mailto:[email protected]] On Behalf Of Scott Rohling Sent: Thursday, December 30, 2010 10:18 AM To: [email protected] Subject: Re: Accounting Records 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]<mailto:[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
