[RPGNext] Procedure getDateStrMIL

[Ewart Desouza <ewart.desouza@xxxxxxxxxxx>]

Hello Joel !

I was just trying out your procedure getDateStrMIL(pasted below). I feel
the return variable should be at least 11 characters to accommodate a 2
digit date i.e. 23 Jan 2004.
 What if we want the return string as 23 January 2004 - shouldn't the
return variable be around 15 characters ???
What do you feel ??

Thanks & best regards
Ewart

ex: verbose = 3 JANUARY 1998, not verbose (format = 'Mixed') = 3 Jan 1998.
Usage:
getDateStrMIL( {dateIn} : {zeroSuppress} : {verbose} : {format} );
Name        Type  Options     Opt/Req     Description
dateIn      D     Const       Opt         The date. If not sent then
%date() is used.
zeroSuppress      N           Const Opt   Suppresses zeros in day field
only. If not sent then *OFF.
verbose     N     Const       Opt         Determines full name vs 3 letter
abbreviation. If not sent then verbose is *ON.
format      5A    Const       Opt         'upper' returns name in all upper
case; 'lower' returns name in all lower
case; 'mixed' returns name in mixed case. If not sent then 'upper' is
                                    default.
Returns:    10A   Varying     n/a         The string representation of the
date.



Following is the statement I am using:

     C                   eval      ttdate = getDateDayName(%date())+','+
     C                                      getDateStrMIL(%date():*on
     C                                                    :*off:'mixed')