Re: [EXTERNAL] Re: Remove unprintable chars

[Bruce Vining <bruce.vining@xxxxxxxxx>]

I must be missing something, are you suggesting that 64 %scanrpl operations
(to cover x'00' - x'39') over this string is faster than one loop over the
same input string looking for < ' ' (x'40') and replacing them with
blanks?

On Thu, Nov 18, 2021 at 4:25 PM Francois Lavoie <
Francois.Lavoie@xxxxxxxxxxxxxxxxxxxx> wrote:

> This solution will be very slooow especially if the strings are huge and
> if there are more than one to xlate
> And, this solution only works with one string: no parm on the proc. In
> that case, might as well put the code inline
>
> I would personally take the opposite approach: SCANRPL each non-printable
> chars with a blank for each string fields
>
>
> -----Original Message-----
> From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Alan
> Shore via RPG400-L
> Sent: Thursday, November 18, 2021 15:58
> To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
> Cc: Alan Shore <ashore@xxxxxxxx>
> Subject: RE: [EXTERNAL] Re: Remove unprintable chars
>
> Caution: This email originates from outside of Fresche | Attention: Ce
> message provient de l'extérieur de Fresche
>
>
> This rang a bell with me
> This is what I created
> dcl-s Ix            packed(7:0);
> dcl-s Lengthoffield packed(7:0);
>
> dcl-ds Rplcbadchards;
>   Completestring          char(1000);
>   Completestringind       char(1) dim(1000) pos(1);
> end-ds;
>
> Completestring = ChTxt;
> Replacebadchar();
> Chtxt = Completestring;
>
> dcl-proc Replacebadchar ;
>
>   Ix = 1;
>   Lengthoffield = %len(%trimr(Completestring));
>   dou Ix > Lengthoffield;
>     if Completestringind(Ix) < ' ';
>        Completestringind(Ix) = ' ';
>     endif;
>     Ix += 1;
>   enddo;
>
> end-proc ;
>
> Alan Shore
> Solutions Architect
> IT Supply Chain Execution
>
> [NHScsignaturelogo]
>
> 60 Orville Drive
> Bohemia, NY 11716
> Phone [O] : (631) 200-5019
> Phone [C] : (631) 880-8640
> E-mail : ASHORE@xxxxxxxxxxxxxxxxxxxx
>
> ‘If you're going through hell, keep going.’
> Winston Churchill
>
> Confidentiality Warning/Avertissement de confidentialité:
>
> This message is intended only for the named recipients. This message may
> contain information that is privileged or confidential. If you are not the
> named recipient, its employee or its agent, please notify us immediately
> and permanently destroy this message and any copies you may have. Ce
> message est destiné uniquement aux destinataires dûment nommés. Il peut
> contenir de l'information privilégiée ou confidentielle. Si vous n'êtes pas
> le destinataire dûment nommé, son employé ou son mandataire, veuillez nous
> aviser sans tarder et supprimer ce message ainsi que toute copie qui peut
> en avoir été faite.
> --
> This is the RPG programming on IBM i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: https://amazon.midrange.com