Re: Copy book useage.

["Chris Beck" <CBeck@xxxxxxxxxxxx>]

Thanks to all for the help, I have got it working, I just had to program 
describe the file.



>>> martin@dbg400.net 08/30/01 11:05AM >>>
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.
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.