zOs/REXX/EXDATE

/* rexx ****************************************************************
         rexx function date, kann '1 Apr 1956' in 'n' Datumm umwandeln
             aber die Syntax muss ganz genau stimmen
***********************************************************************/
call tD date()
call tD '1 Apr 1956'
call tD ' 1 Apr 1956'
call tD '1 apr 1956'
call tD '1  Apr 1956'
call tD '30 Apr 1956 '
call tD '30 Apr 1956'
call tD '30 Apr  1956'
call tD '30 Apr 56'
call tD '30 Apr   56'
call tD '30 Apr 0056'
exit

tD: procedure
parse arg da
    signal on syntax name errReturn
    say left("'"da"'", 16) "==>" date('s', da ,'n')
    return
errReturn:
    say left("'"da"'", 16) "bad date"
    return