Re: Search/Replace unprintable attribute characters

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>