/* REXX */                                                                      
/*                           */                                                 
/* AUTHOR: MARK ZELDEN       */                                                 
/*                           */                                                 
 /* ========================================================== */               
 /* HLIST DA LEVEL MIGRATE COMMAND                             */               
 /* THE OUTPUT IS PUT IN A DATA SET AND BROWSED                */               
 /* ========================================================== */               
/* TRACE ?I */                                                                  
arg NAME                                                                        
address TSO                                                                     
if NAME = '' then do                                                            
  say 'PLEASE ENTER DATASET NAME LEVEL TO LIST:'                                
  parse upper pull NAME                                                         
end                                                                             
address ISPEXEC "CONTROL ERRORS RETURN"                                         
ddnm = 'DD'||random(1,99999)    /* choose random ddname  */                     
odsn = sysvar(sysuid)||".HLISTML."||ddnm                                        
/*                                     */                                       
/*  issue hlist command                */                                       
/*                                     */                                       
"HLIST DA LEVEL("name") MCDS ODS('"|| odsn || "')"                              
/*                                     */                                       
retcode = rc                                                                    
address ISPEXEC "BROWSE DATASET('"|| odsn || "')"                               
zdlmsg = 'LISTED RC='||retcode                                                  
junk =msg(off)                                                                  
"DELETE '"|| odsn || "'"                                                        
junk =msg(on)                                                                   
address ispexec "VPUT ZDLMSG SHARED"