/* REXX */                                                                      
/*                           */                                                 
/* AUTHOR: MARK ZELDEN       */                                                 
/*                           */                                                 
/**************************************************/                            
/* NOTE:  Use of this EXEC requires the REVIEW    */                            
/*        command from CBT file 134 or 135.       */                            
/**************************************************/                            
/* REVIEW command output.  This has an advantage  */                            
/* over TSOE/TSOB/TSOV in that it works under     */                            
/* native TSO (TSO READY) without ISPF.           */                            
/**************************************************/                            
/* TRACE ?I */                                                                  
arg TSOCMD                                                                      
address TSO                                                                     
ddnm = 'DD'||random(1,99999)    /* choose random ddname  */                     
junk = msg(off)                                                                 
"ALLOC FILE("||ddnm||") UNIT(SYSALLDA) NEW TRACKS SPACE(9,9) DELETE",           
" REUSE LRECL(172) RECFM(F B) BLKSIZE(8944)"                                    
junk = msg(on)                                                                  
/*                                    */                                        
/*  issue tso commnd and trap output  */                                        
/*                                    */                                        
junk=outtrap(LINE.)                                                             
TSOCMD                                                                          
junk=outtrap('off')                                                             
/*                                    */                                        
"EXECIO" line.0  "DISKW" ddnm "(STEM LINE. FINIS"                               
address TSO     "REVIEW       "||ddnm||"    FILE"                               
junk = msg(off)                                                                 
"FREE FI("||ddnm||")"