Here is an example of using REXX to look at an SMF record - in this case
type 6 records. You might be able to use this as a model if you don't want
to use PL/I or SAS or ...
/* rexx */
signal on error
arg dsn
"ALLOC F(SMFIN) DS("dsn") SHR REUSE"
"EXECIO * DISKR SMFIN (FINIS STEM smf."
"FREE F(SMFIN)"
Say smf.0 "SMF Type 6 Records have been read"
do i = 1 to smf.0
job = substr(smf.i,15,8)
date = substr(smf.i,7,4)
datex = c2x(date)
datey = substr(datex,3,2)
dated = substr(datex,5,3)
time = substr(smf.i,3,4)
time = c2x(time)
timed = x2d(time)
timeh = timed/360000
parse value timeh with hour "." timem
x = (timem*.360000)/6000
parse value x with min "." more
say "Job:" job "Date:" datey"."dated "Time:",
hour":"substr(min,1,2)
end
exit
You can also check out http://www.cbttape.org for this file:
File # 617 REXX exec to produce SMF 30 Report from P. Berrios
Here is the link to this file http://www.cbttape.org/ftp/cbt/CBT617.zip
cheers
Lionel B. Dyck, Consultant/Specialist
Enterprise Platform Services, Mainframe Engineering
KP-IT Enterprise Engineering, Client and Platform Engineering Services
(CAPES)
925-926-5332 (8-473-5332) | E-Mail: [EMAIL PROTECTED]
AIM: lbdyck | Yahoo IM: lbdyck
Kaiser Service Credo: "Our cause is health. Our passion is service. We?re
here to make lives better.?
?Never attribute to malice what can be caused by miscommunication.?
NOTICE TO RECIPIENT: If you are not the intended recipient of this e-mail,
you are prohibited from sharing, copying, or otherwise using or disclosing
its contents. If you have received this e-mail in error, please notify the
sender immediately by reply e-mail and permanently delete this e-mail and
any attachments without reading, forwarding or saving them. Thank you.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
