× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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>



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.