› › Sample Freeform Code for Double Spaces

Cleo RPGLE/Freeform - Sample Code to Remove Double Spaces

For additional EXTOL EDI Integrator RPGLE Examples: Sean Hoppe Consulting Group Coding Samples

     h Debug(*Yes) Datedit(*Ymd)
	D String          S             50A   inz('  Abc    xxx       a b c  xxxx')	
	D                                     Varying	
	D PosDblBlank     S              3U 0
      /Free
           string=%trim(string);
           DoW %Scan('  ': String) > *Zeros;
               PosDblBlank = %Scan('  ': String);
               String = %Subst(String: 1: PosDblBlank) +
                          %Trim(%Subst(String: PosDblBlank));
           EndDo;
           return;
      /End-Free



By: on