RE: Set a date to default value

Well kind of. I have a numeric field that represents a date and it can have a zero value when there is no date assigned to the field, (Sales record hasn't been invoice yet, Invoice Date = zeros) in the data base. I thought I would have problems loading a column defined with the Date data type with the zero value. My current ERP System interrupts the zeros as 01/01/1980 so I guess I will load the new column with "Newdate = %Date('01/01/1980':*USA);" when the input value is zeros.

George R. Smith


-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Booth Martin
Sent: Monday, December 11, 2017 2:02 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: Set a date to default value

Am I understanding you correctly?  You have a field defined as 10-column character, initialized to "1980-01-01'"?  And now you wish to update it to something other than "0000000000" using %date()?

So you are looking for something like  %char(%date(yourString))?


On 12/11/2017 1:37 PM, George Smith wrote:

If I have a DDL Statement in an output table for a date like:

EX$DRQJ DATE NOT NULL DEFAULT '1980-01-01'

In my input table I don't have zeros as this particular column how would I code the output statement? I have tried several variations of the output from the %DATE function just short of me coding the default value in the program. I appreciate any assistance.

George R. Smith

--
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: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: http://amzn.to/2dEadiD