Hi,
As promised, here is the code, which I use in "User-Options". I created the user option as a "member-option" as "Remove Special Characters" with this command String with substitution: CALL PGM(RMV_SPEC) PARM(&L &F &N)
https://imgur.com/a/Y4BLZrK
https://www.ibm.com/support/knowledgecenter/en/SSAE4W_9.6.0/com.ibm.etools.iseries.rse.doc/topics/tworkuseract.html
Hint: I use SQL Translate. <Big Smile>
**free
ctl-opt Debug(*Yes) Option(*SrcStmt:*NoDebugIO:*SecLvl) DftActGrp(*NO) ActGrp(*new);
dcl-pr System Int(10) ExtProc('system');
CmdText Pointer Value Options(*String);
end-pr;
dcl-pi *N;
l char(10);
f char(10);
n char(10);
end-pi;
dcl-s cmd char(256);
dcl-s rc int(10);
rc = system('OVRDBF FILE(QRPGLESRC) ' +
'TOFILE(' + %Trim(L) + '/' + %Trim(F) +
') MBR(' + %Trim(n) + ')'
)
;
exec SQL update QRPGLESRC
set srcdta = translate(SRCDTA
,x'404040404040404040404040404040404040404040404040404040404040404040'
,x'202122232425262728292A2B2C2D2E2F303132333435363738393A3B3C3D3E3F41'
)
;
rc = system('DLTOVR FILE(QRPGLESRC) ');
*inlr = *on;
return;
PS. My other "user options" are:
O Remove Date on Blank lines
O Right Hand Comments --> Change "Punch-Card" comment to right-hand comments
Before:
C007 c eval x += 1
After:
X += 1; // C007
PS. I use the RPGWIZ by Help-System to do the convert to **free, and then an RPGLE program to move punch-card comment to the right hand side. Without changing the dates! I do NOT need any @#$!@#$@ stinking 19th Century Punch-Cards!!! It is the 21st Century! <Joy Joy>
-Ken Killian-
-----Original Message-----
From: WDSCI-L <wdsci-l-bounces@xxxxxxxxxxxx> On Behalf Of Roger Harman
Sent: Friday, April 20, 2018 1:30 PM
To: Rational Developer for IBM i / Websphere Development Studio Client for System i & iSeries <wdsci-l@xxxxxxxxxxxx>
Subject: Re: [WDSCI-L] Search/Replace unprintable attribute characters
Yeah, I've been using SQL translate() from STRSQL. Plus, that does not change source dates.
Still interested in your "user options" setup though - I've not done anything with that.
Roger Harman
COMMON Certified Application Developer - ILE RPG on IBM i on Power
From: WDSCI-L <wdsci-l-bounces@xxxxxxxxxxxx> on behalf of Ken Killian
Sent: Friday, April 20, 2018 9:51 AM
To: Rational Developer for IBM i / Websphere Development Studio Client for System i & iSeries
Subject: Re: [WDSCI-L] Search/Replace unprintable attribute characters
I used sql rpgle code with embedded sql code to fix that. Not at my desk at the moment. So I will send the code later. I use the "user options" in RDi.
-Ken killian-
On Apr 20, 2018, at 12:19 PM, Roger Harman <roger.harman@xxxxxxxxxxx> wrote:
A lot of our old source has hex codes to highlight comment lines, etc.
I don't seem to be able to find a way to search for these and replace with blanks in RDi. Value is x'22'.
Any suggestions?
Thanks.
Roger Harman
COMMON Certified Application Developer - ILE RPG on IBM i on Power
midrange.com
