Searching and producing report from SDSF

[willy jensen]

You 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.

Code: Select all

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")"      

[Misha786]

Thanks Willy !! It worked . I made some changes as per my requirement.
Thanks once again !!