Re: Odp: [Tiny-cobol-users] Question about current-date intrinsic function.

[Hudson R. <hud...@so...>]

Hi Mariuz
 
>                   Hudson,
> 
>       It seems, that the syntax  of current-date intrinsic function is
> correct. Here is an example from IBM COBOL Programming Guide:
> 
> Date and time
> The following example shows how to calculate a due date that is 90 days
> from
> today. The first eight characters returned by the CURRENT-DATE function
> represent
> the date in a four-digit year, two-digit month, and two-digit day format
> (YYYYMMDD).
> The date is converted to its integer value; then 90 is added to this value
> and the
> integer is converted back to the YYYYMMDD format.
> 01 YYYYMMDD Pic 9(8).
> 01 Integer-Form Pic S9(9).
> . . .
> Move Function Current-Date(1:8) to YYYYMMDD
> Compute Integer-Form = Function Integer-of-Date(YYYYMMDD)
> Add 90 to Integer-Form
> Compute YYYYMMDD = Function Date-of-Integer(Integer-Form)
> Display 'Due Date: ' YYYYMMDD.
> 
> 
>             So perhaps there is a problem in implementation of this
> function in TinyCobol ?
> 
I believe to so.

Thanks for your help!

Best Regards
Hudson.