Re: Want to replace MOVE numeric 8 to numeric 6 in free form

[Vernon Hamberg <vhamberg@xxxxxxxxxxxxxxx>]

Hi Jon

I think the winner is the arithmetic solution - easy enough to 
understand with proper names. I like the date versions, though - very 
clear and self-documenting.

Performance isn't really a big deal, as I've said in a couple other replies.

I'd put it in a subprocedure if I had time - I'm really under a 
guideline of minimal change in the shortest possible time during a 
transition project! Sigh!

Cheers
V.

On 8/17/2013 1:02 PM, Jon Paris wrote:
> In terms of efficiency your idea is about as good a performer as you are going to get. Only thing I can think of that would be a bit faster would be to prototype the appropriate MI function. But I haven't got time to do that right now.
>
> For sure no matter what approach you use you should bury it in a subprocedure so that anyone coming after you knows what is happening without needing to understand the mechanics.
>
>
> On 2013-08-17, at 11:39 AM, Vernon Hamberg <vhamberg@xxxxxxxxxxxxxxx> wrote:
>
> > I've a zoned 8,0 that is being MOVEd to a packed 6,0. I want to convert
> > this to free form.
> >
> > I can think of putting the zoned 8,0 into a data structure with a zoned
> > 6,0 overlaying the last 6 positions, then use an assignment statement.
> >
> > In the following, I wanted to use CNVDAT instead of CNVDT8. That can
> > work with fields from a file, didn't work so far, so will use an
> > assignment of CNVDT8 = CNVDAT for now.
> >
> >   * Allow "MOVE" of 8-digit ot 6-digiy
> > D DATE8TO6        DS
> > D  CNVDT8                        8s 0
> > D  CNVDT6                        6S 0 overlay(DATE8TO6 : 3)
> >
> > Then CNVDT6 should have the value I want - this is 8-digit dates to
> > 6-digit in YMD format.
> >
> > Is there a better way? I looked at several articles - Bob Cozzi, Jon
> > Paris, some other forums - none that I saw dealt with the MOVE from a
> > longer numeric to shorter.
> >
> > TIA
> > Vern
> > --
> > This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L) mailing list
> > To post a message email: RPG400-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: RPG400-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/rpg400-l.
> Jon Paris
>
> www.partner400.com
> www.SystemiDeveloper.com