RE: Copy book useage.

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--
[ Picked text/plain from multipart/alternative ]
None,... I don't know if there's an advantage..

Also,...
c                   If        %Subst(Srcdta : 6 : 1) <> '*' And
c                             SrcDirective <> *Blanks

Should be..
c                   If        %Subst(Srcdta : 7 : 1) <> '*' And
c                             SrcDirective <> *Blanks

Sloppy, sloppy, sloppy. <bg>


Regards,
Jon A. Erickson
Sr. Programmer Analyst
800.COM Inc.
1516 NW Thurman St
Portland, OR  97209-2517

Direct: 503.944.3613
Fax: 503.943.9313
Web: http://www.800.com



-----Original Message-----
From: Martin Rowe [mailto:martin@dbg400.net]
Sent: Thursday, August 30, 2001 9:05 AM
To: rpg400-l@midrange.com
Subject: Re: Copy book useage.


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 Ý
 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.