Sending to the mailing list... grrrr -- not sure why I reply to some users
and it goes to them instead of the list..
Scott
On Tue, Sep 30, 2008 at 8:52 AM, Scott Rohling <[EMAIL PROTECTED]>wrote:
> Here's my code to do a quick report on one or more ACCOUNT files:
> (you can pass it the individual account file or a wildcard: ACCOUNT * Z)
>
> /* CPUCNT - count and report CPU records in ACCOUNT files */
>
> 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.'
> 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
> amount = user.usr/1000
> pct = format(100*(user.usr/grand),5,2)
> 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
>
>
>
> Scott Rohling
>
>
> On Tue, Sep 30, 2008 at 8:10 AM, Howard Rifkind <[EMAIL PROTECTED]> wrote:
>
>> Disk accounting records...what to do with them.
>>
>> Is there anything in VM that will allow you to process these records and
>> if so where and what is it.
>>
>> I've been asked to do something like offload these records and clean up
>> accounting's A/191 disk.
>>
>> Any suggestions would be much appreciated.
>>
>> Thanks
>>
>> BTW, also how about the EREP records, we do process the z/OS records would
>> it also be a duplication to process the EREP records form z/VM?
>>
>>
>
