validdate(..) shall support more formats

This is a followup of RFE 90939.

I kindly ask for additional formats support of validdate(<variable>, <format>).

You asked for a list of formats, currently i only need the db2 timestamp format as i want to check a timestamp before i use it with a db2 sql (so avoid the sql to fail because the timestamp is malformed).
I request "yyyy-mm-dd hh:mi:ss.999999" - maybe there are variants - your db2 guys should know it better than me :-).
Currently i've written my own routine, see below.

br johann

Appendix: My own routine
validts: proc(ts) returns(type boolean);
dcl ts char(26) nonassignable;
dcl 1 ts_ based(addr(ts)),
2 date char(10),
2 fil1 char(1),
2 hh char(2),
2 fil2 char(1),
2 mi char(2),
2 fil3 char(1),
2 ss char(2),
2 fil4 char(1),
2 ts char(6);

if ^validdate(ts_.date, 'YYYY-MM-DD') then return(false);

if ^between(ts_.hh, '00','23')
! ^between(ts_.mi, '00','59')
! ^between(ts_.ss, '00','59')
! ^between(ts_.ts, '','999999')
! ts_.ts <> trim(ts_.ts)
then return(false);

if ts_.fil1 !! ts_.fil2 !! ts_.fil3 !! ts_.fil4 <> ' ::.'
then return(false);

return(true);

end validts;
Appendix: Reference validdate: http://www.ibm.com/support/knowledgecenter/SSY2VQ_3.1.0/com.ibm.aix.pli.doc/LR/dtbifs.htm