/* REXX    $$PPREP    clean up PL/I code                                        
*/                                                                              
address ISREDIT                                                                 
"MACRO (opts)"                                                                  
upper opts                                                                      
parse var opts "TRACE" tv .                                                     
parse value tv "N" with tv .                                                    
rc = Trace("O"); rc = Trace(tv)                                                 
                                                                                
"RESET"                                                                         
"RENUM"                                                                         
"UNNUM"                                                                         
"CAPS OFF"                                                                      
"PLISKIP"          /* Repl carriage-ctl with preprocessor directives */                                                                
                                                                                
do forever                                                                      
   "(txt) = LINE 1"                                                             
   if Left( Strip( txt ),11 ) = "/* DATA SET" then do                           
      "DELETE 1"                                                                
      end                                                                       
   else leave                                                                   
end                                    /* forever                    */         
                                                                                
   "(txt) = LINE 1"                                                             
   if Substr( txt,2,2 ) = "/*" then nop                                         
   else do                             /* load the name              */         
      "(mbr) = MEMBER"                                                          
      txt = " /*" mbr "*/"                                                      
      "LINE_BEFORE 1 = DATALINE (txt)"                                          
      end                                                                       
                                                                                
exit                                   /*@ $$PPREP                   */