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

Verrrrry eeenteresting!

Yes, I would be using 2 assignment statements. I would not need to, if I were able to put CNVDAT in the data structure without data type - if THAT were possible, it'd be a one-line assignment thing, just as yours is.

I think this has become the winner! A Dr Pepper for you some cold day in Rochester?

It has the same performance benefits as my original, as compared to using date functions.

And it'll scare the other developers here - maybe!!

V.

On 8/17/2013 3:03 PM, CRPence wrote:

On 17 Aug 2013 08:39, 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 I
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.

So basically this proposes the above declarative in combination with
the following two assignment statements to replace the MOVE?:

CNVDT8 = CNVDAT ; // copy field data to Date8to6 storage
P6_TARGET = CNVDT6 ; // set 6P00 variable from 6S00 data overlay

Is there a better way? <<SNIP>>

Probably not /better/ generally, but to effect a replacement of the
one MOVE statement with just one assignment statement, with at least the
additional cost of the potential confusion for reviewers just as with
the above proposed additional storage, perhaps using redefined storage
instead...

The proposed extra run-time assignment CNVDT8=CNVDAT being used to
copy the value into some automatic storage in preparation for another
assignment P6_TARGET=CNVDT6 could be replaced with a similar
compile-time declaration and the assignment of an address [in automatic
storage] also in compile-time, in combination with just one assignment
using a reference to the original data [i.e. not a prior copy] using
based storage:

D p6_target S 6P00
D*
D basdt@ S * inz(%addr(cnvdat))
D base8to6 DS based(basdt@)
D basdt8 like(cnvdat)
D basdt6 6S00 overlay(basdt8 : 3)

The old code in fixed-form:

c move cnvdat p6_target

The new code in free-form:

p6_target = basdt6 ; // set 6P00 variable from 6S00 data overlay