tiny-cobol-users

[Tiny-cobol-users] Functions

[John C. <jo...@we...>]

In recent versions of COBOL the functions INTEGER-OF-DATE, INTEGER-OF-DAY,  
DATE-OF-INTEGER and DAY-OF INTEGER have apparently been added.  My latest 
text is date 2000 and it does not describe them in any detail. 

Are they in Tiny?

Are they in Open COBOL? 

If they exist what do the appropriate sending/receiving fields PIC terms look 
like? 
-- 
John Culleton

Re: [Tiny-cobol-users] Functions

[David E. <de...@us...>]

John Culleton wrote:

 > In recent versions of COBOL the functions INTEGER-OF-DATE,
 > INTEGER-OF-DAY, DATE-OF-INTEGER and DAY-OF INTEGER
 > have apparently been added.
 > My latest text is date 2000 and it does not describe
 > them in any detail.
 >
 > Are they in Tiny?
 > ...
 > If they exist what do the appropriate sending/receiving
 > fields PIC terms look like?

Yes, these functions are available for TC.

See example in 'test.code/t35' directory.

Cheers

Re: [Tiny-cobol-users] Functions

[John C. <jo...@we...>]

On Wednesday 21 November 2007 09:29:09 pm David Essex wrote:
> John Culleton wrote:
>  > In recent versions of COBOL the functions INTEGER-OF-DATE,
>  > INTEGER-OF-DAY, DATE-OF-INTEGER and DAY-OF INTEGER
>  > have apparently been added.
>  > My latest text is date 2000 and it does not describe
>  > them in any detail.
>  >
>  > Are they in Tiny?
>  > ...
>  > If they exist what do the appropriate sending/receiving
>  > fields PIC terms look like?
>
> Yes, these functions are available for TC.
>
> See example in 'test.code/t35' directory.
>
> Cheers
>
>
>
> -------------------------------------------------------------------------
> This SF.net email is sponsored by: Microsoft
> Defy all challenges. Microsoft(R) Visual Studio 2005.
> http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
> _______________________________________________
> Tin...@li...
> https://lists.sourceforge.net/lists/listinfo/tiny-cobol-users

Very good. However someone on the internet has suggested code the includes the 
line:

  move function current-date (1:8) to today

which line blows up on the colon.  I assume that the purpose is to edit the 
string to the first 8 digits, e.g,  ccyymmdd.   Both Tiny and Open blow up on 
the colon.  I can work around it, but is there any similar editing of 
function current-date  in either?




-- 
John Culleton

Re: [Tiny-cobol-users] Functions

[David E. <de...@us...>]

John Culleton wrote:

 > David Essex wrote:
 >
 >> John Culleton wrote:
 >>> In recent versions of COBOL the functions INTEGER-OF-DATE,
 >>> INTEGER-OF-DAY, DATE-OF-INTEGER and DAY-OF INTEGER
 >>> have apparently been added.
 >>> ...
 >>> Are they in Tiny?
 >> ...
 >> Yes, these functions are available for TC.
 >> See example in 'test.code/t35' directory.
 >
 > Very good. However someone on the internet has suggested
 > code the includes the line:
 >
 > move function current-date (1:8) to today
 >
 > which line blows up on the colon.
 > I assume that the purpose is to edit the string to the first
 > 8 digits, e.g,  ccyymmdd.

Yes, it's called 'reference modification'.

 > Both Tiny and Open blow up on the colon.

TC does not currently support 'reference modification' when used in
conjuction with 'intrinsic functions'.

 > I can work around it, but is there any similar editing of
 > function current-date in either?

A simple work around would be as follows.

move function current-date to today-1
move today-1 (1:8) to today

Cheers.