IBM Mainframe Forum

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