Re: Searching and producing report from SDSF
Posted: Tue Mar 09, 2021 10:10 pmYou need to look at the chapter 'Browsing the system log with ISFLOG' in the 'SDSF Users Guide' manual. The way to go depends on whether you are using SYSLOG or OPERLOG.
The sample I have is for SYSLOG so will not output data if you are using OPERLOG.
The sample I have is for SYSLOG so will not output data if you are using OPERLOG.
Address TSO
rc=isfcalls('ON')
parse value '0 0' with isfmsg2.0 isfline.0
Address SDSF "ISFLOG ALLOC TYPE(OPERLOG) (VERBOSE)"
if rc<>0 then do
say ' ' ISFMSG
do i=1 to ISFMSG2.0
say ' ' ISFMSG2.i
end
call close 8
end
logindd=ISFDDNAME.1
/* process log records */
Do forever
"execio 1000 diskr" logindd "(stem logi.)"
if logi.0=0 then leave
do li=1 to logi.0
say logi.li
end
End
"execio 0 diskr" logindd "(finis)"
"Free dd("logindd")"
rc=isfcalls('ON')
parse value '0 0' with isfmsg2.0 isfline.0
Address SDSF "ISFLOG ALLOC TYPE(OPERLOG) (VERBOSE)"
if rc<>0 then do
say ' ' ISFMSG
do i=1 to ISFMSG2.0
say ' ' ISFMSG2.i
end
call close 8
end
logindd=ISFDDNAME.1
/* process log records */
Do forever
"execio 1000 diskr" logindd "(stem logi.)"
if logi.0=0 then leave
do li=1 to logi.0
say logi.li
end
End
"execio 0 diskr" logindd "(finis)"
"Free dd("logindd")"