Re: Copy book useage.

[Martin Rowe <martin@xxxxxxxxxx>]

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.