parm Program_Name,List_Type="DEFLT"                                     
if "!List_Type" = "DEFLT" then                                          
   setvar hpmsgfence 2                                                  
   purge LNKEDOUT                                                       
   setvar hpmsgfence 0                                                  
   run linkedit.pub.sys;info="listprog !Program_Name;DATA" &            
                >LNKEDOUT                                               
   save LNKEDOUT                                                        
   run grep.hpbin.sys;info="-e : 'LNKEDOUT'"                            
   purge LNKEDOUT                                                       
else                                                                    
   run linkedit.pub.sys;info="listprog !Program_Name;!List_Type"        
endif