You need to look at the entire 256a string. It will have gunk in it if you call it from the command line unless you send in the full 256 bytes padded with blanks.
Paul Therrien
Orion South, Inc.
504-374-9551
800-437-7173
ptherrien@xxxxxxxxxxxxxxx
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Scott Mildenberger
Sent: Wednesday, May 30, 2012 11:46 AM
To: RPG programming on the IBM i / System i
Subject: RE: Date Validation
Paul, Your right that it works fine when you have Date_in defined as 10A but the original post had it defined as varying 256A and that does not work - I even tried %trim on Date_in. So, I get the error with the following definition
D Date_in S 256A Varying inz('5/7/2012')
Beyond me to explain!
Scott
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Paul Therrien
Sent: Wednesday, May 30, 2012 10:21 AM
To: RPG programming on the IBM i / System i
Subject: RE: Date Validation
I tried this code and it worked for me with V7R1.
Input parm of '5/7/2012' or '5/07/2012' or '05/07/2012'
CALL PGM(TESTRPG) PARM('5/7/2012')
CALL PGM(TESTRPG) PARM('05/7/2012')
CALL PGM(TESTRPG) PARM('5/07/2012')
dtestrpg PR extpgm('TESTRPG')
D Date_in 10A
dtestrpg PI
D Date_in 10A
D Date_Out S 8 0
D Date_Outc S 25a
Date_out = %uns(%char(%date(Date_in:*usa):*iso0));
Date_outc = %char(%date(Date_in:*usa):*iso0);
Paul Therrien
Orion South, Inc.
504-374-9551
800-437-7173
ptherrien@xxxxxxxxxxxxxxx
--
This is the RPG programming on the IBM i / System i (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.
midrange.com
