RE: Convert a date field to a 10,0 packed field

Jon,
I haven't seen your comment before mine.
... but as you can see in my answer: The answer is NOT always SQL 😉

Mit freundlichen Grüßen / Best regards

Birgitta Hauser


"Shoot for the moon, even if you miss, you'll land among the stars." (Les Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them and keeping them!"
„Train people well enough so they can leave, treat them well enough so they don't want to.“ (Richard Branson)


-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Jon Paris
Sent: Dienstag, 13. Juli 2021 22:18
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: Convert a date field to a 10,0 packed field

I don't understand why you are even using SQL if this really is your code.

You stated that wSched_Date is a date field (assumedly ISO).

So to convert it to numeric you simply code:

wCur_Date_To = %Dec(wSched_Date);

That assumes that the numeric version is to be the same format as the original - if that is NOT what you want then specify the format as the second parm.

eg, wCur_Date_To = %Dec(wSched_Date : *USA ); // _Target_ format is *USA

On Jul 13, 2021, at 2:55 PM, dfreinkel@xxxxxxxxxxxxxxxxx wrote:

H option(*srcstmt : *nodebugio )

H DATFMT(*USA)





d wCount s 5i 0

d wCurrent_Date s d

d wCur_Date_From s 10p 0

d wCur_Date_To s 10p 0



Exec Sql set option naming = *sys,

commit = *NONE,

usrprf = *USER,

dynusrprf = *USER,

datfmt = *USA,

closqlcsr = *ENDMOD;





c eval wCount = 0

c eval wCurrent_Date = %date(wSched_Date:*ISO)



exec sql values CAST(wCurrent_Date as decimal(8,0))

into :wCur_Date_To;



exec sql values CAST((wCurrent_Date - 7 days) as
decimal(8,0))

into :wCur_Date_From;

--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a
message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com

--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com