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

[Vernon Hamberg <vhamberg@xxxxxxxxxxxxxxx>]

Hey Paul

This could work - I think it might want a zero, for no separator.

Your assumption is correct. And this code is maybe 20+ years old!

Thanks for the idea.

V.

On 8/17/2013 12:20 PM, Paul Therrien wrote:
> Vern,
> Since this appears to be a date can you convert the numeric to a date
> and then do a %dec() on the date to extract the date as 6,0?
>
> MyDate = %date(cnvdt8 : *ISO)
> CNVDT6 = %dec(mydate : *YMD)
>
> I assume CNVDT8 is YYYYMMDD and CNVDT6 is YYMMDD.
>
> On 8/17/2013 11:39 AM, Vernon Hamberg 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