RE: [EXTERNAL] Re: Remove unprintable chars

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

From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of Daniel Gross
Sent: Thursday, November 18, 2021 3:46 PM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: [EXTERNAL] Re: Remove unprintable chars

I think you can remove all chars below x’40’ because these are generally not printable, or used as display attributes.

The rest should work IMHO.

HTH
Daniel

Am 18.11.2021 um 20:30 schrieb Justin Taylor <jtaylor.0ab@xxxxxxxxx<mailto:jtaylor.0ab@xxxxxxxxx>>:

I'm preloading an old-school 5250 display file with data coming in from a
Windows app. Is there a good way to remove unprintable chars? The RPG
code is throwing a RNQ1251 (Permanent I/O error occurred in file &1). I
need to cleanse the data to prevent this.

FWIW, the current char is x'12', which is DC2 per the code page 37 chart.


TIA
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx<mailto:RPG400-L@xxxxxxxxxxxxxxxxxx>
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l<https://lists.midrange.com/mailman/listinfo/rpg400-l>
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx<mailto:RPG400-L-request@xxxxxxxxxxxxxxxxxx>
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l<https://archive.midrange.com/rpg400-l>.

Please contact support@xxxxxxxxxxxxxxxxxxxx<mailto:support@xxxxxxxxxxxxxxxxxxxx> for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com<https://amazon.midrange.com>

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx<mailto:RPG400-L@xxxxxxxxxxxxxxxxxx>
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l<https://lists.midrange.com/mailman/listinfo/rpg400-l>
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx<mailto:RPG400-L-request@xxxxxxxxxxxxxxxxxx>
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l<https://archive.midrange.com/rpg400-l>.

Please contact support@xxxxxxxxxxxxxxxxxxxx<mailto:support@xxxxxxxxxxxxxxxxxxxx> for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com<https://amazon.midrange.com>