|
On Thursday 30 August 2001 4:47 pm, jerickson@800.com wrote: > Here's a version that will work for you with your override,... Yes the file > requires programmed described. > > Forgive my embellishments,.... > > fSourcePF IP f 112 DISK > > d Srcfds e ds extname(qrpglesrc) > d SrcDirective 5 Overlay(Srcfds : 19) > d SrcXlate 1 Dim(4) Overlay(SrcDirective : 2) > > d Copybook s 52 > d Idx s 10i 0 > > d Low c 'abcdefghijklmnopqrstuvwxyz' > d Up c 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' > > iSourcePF NS 01 > i 1 112 Srcfds > > c If %Subst(Srcdta : 6 : 1) <> '*' And > c SrcDirective <> *Blanks > c For Idx Ð1 to 4 > c Low:Up Xlate SrcXlate(Idx) SrcXlate(Idx) > c EndFor Just curious - why not drop the SrcXlate() array and just do c Low:Up Xlate SrcDirective SrcDirective What benefit does the array give here - Is there a performance advantage in manually processing the string rather than letting the system do it? Regards, Martin -- martin@dbg400.net / jamaro@firstlinux.net http://www.dbg400.net DBG/400 - DataBase Generation utilities Open Source test environment tools for the AS/400 / iSeries and miscellaneous database & spooled file management commands.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.