RE: RPG overloading (was RPGV?)

Hey, I'm all for what you do in your own time is your business but when
they can't even standardize on which format to store MM (let alone use a
true date field!) it's time to threaten them with a drug test.

However won't this work?
H ActGrp(*CALLER) DftActGrp(*NO)

D dateRtn PR d
D Month 2p 0 const
D Day 2p 0 const
D Year 2p 0 const

D mm1 s 2p 0 inz(01)
D dd1 s 2p 0 inz(12)
D yy1 s 2p 0 inz(10)
D mm2 s 2s 0 inz(01)
D dd2 s 2s 0 inz(12)
D yy2 s 2s 0 inz(10)
D mm3 s 5i 0 inz(01)
D dd3 s 5i 0 inz(12)
D yy3 s 5i 0 inz(10)

D testDate s d

/free
*inlr=*on;
testDate=DateRtn(mm1:dd1:yy1);
dsply testDate;
testDate=DateRtn(mm2:dd2:yy2);
dsply testDate;
testDate=DateRtn(mm3:dd3:yy3);
dsply testDate;
/end-free
P DateRtn B
D PI d
D wMonth 2p 0 const
D wDay 2p 0 const
D wYear 2p 0 const

D wDate s d

/free
monitor;
wdate=%date(%editc(wmonth:'X') + %editc(wDay:'X') +
%editc(wYear:'X'):*mdy0);
on-error;
return %date('1492-01-01');
endmon;
return wdate;
/end-free
P E


Rob Berendt