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

I am getting that these are dates:
8,0 is a ccyymmdd
6,0 is a yymmdd

// mmddyy to yymmdd
@numA = %dec(%char(%date(@numD:*mdy):*ymd0):6:0);

Converts numeric ccyymmdd to numeric yymmdd

Good Luck
Bill
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Vernon Hamberg
Sent: August 17, 2013 11:40 AM
To: RPG programming on the IBM i / System i
Subject: Want to replace MOVE numeric 8 to numeric 6 in free form

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.