/* rexx */                                                                      
/*-------------------------------------------------------------------*/         
/*                                                                   */         
/*                        REXX Exec : CLEANIT                        */         
/*                                                                   */         
/*                      ***** Edit Macro *****                       */         
/*                                                                   */         
/*  Description : Remove extraneous numbers from columns 73-80       */         
/*                                                                   */         
/*  Created on : 25 Jun 2022                                         */         
/*  Created by : Wendy Miller                                        */         
/*             : Userid MIT002                                       */         
/*             : Using ABBYDALE.DEVL.REXX(CLEANIT)                   */         
/*                                                                   */         
/*  Called by : User                                                 */         
/*                                                                   */         
/*  Calls : Nothing                                                  */         
/*                                                                   */         
/*  Panels Used : None                                               */         
/*                                                                   */         
/*  Change Activity :                                                */         
/*                                                                   */         
/*                ©Copyright of Abbydale Systems LLC.                */         
/*                                                                   */         
/*-------------------------------------------------------------------*/         
Parse Arg Help         /* Check for Help */                                     
If SYSVAR("SYSISPF")<>"ACTIVE" then do                                          
   Say "ISPF must be active to use "CLEANIT                                     
   exit(16)                                                                     
end                                                                             
Address ISREDIT "MACRO (Help) PROCESS"                                          
If Help = "?" Then do                                                           
   Call Disp_Help                                                               
   exit(4)                                                                      
end                                                                             
Address TSO "ISREDIT NUM"                                                       
Address TSO "ISREDIT RESET"                                                     
Address TSO "ISREDIT UNNUM"                                                     
address TSO "ISREDIT SAVE"                                                      
return                                                                          
/*-------------------------------------------------------------------*/         
/*                        Disp_Help Procedure                        */         
/*-------------------------------------------------------------------*/         
Disp_Help: Procedure                                                            
say "CLEANIT - Remove extraneous numbers from column 73-80"                     
say""                                                                           
say "Usage: CLEANIT"                                                            
say""                                                                           
say"    ?        - Generates this information."                                 
say""                                                                           
say"   Return Codes :"                                                          
say"                 4 - Help displayed"                                        
say"                16 - Not under ISPF"                                        
say""                                                                           
Return                                                                          
/*-------------------------------------------------------------------*/         
/*                    End of Disp_Help Procedure                     */         
/*-------------------------------------------------------------------*/         
/*-------------------------------------------------------------------*/         
/*                          End of CLEANIT                           */         
/*-------------------------------------------------------------------*/