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

[Jon Paris <jon.paris@xxxxxxxxxxxxxx>]

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