Re: Search/Replace unprintable attribute characters

[Joe Pluta <joepluta@xxxxxxxxxxxxxxxxx>]

Very nice, Ken.  This will go into my Bag of Source Cleaning Tips (tm).

On 4/20/2018 1:44 PM, Ken Killian wrote:
> 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>