Re: Date Data types

Code bits from a working program that uses date and time fields.  Nothing in
special names.


       PROCESS APOST     DATETIME    DATE    TIME    TIMESTAMP
...
      / ------------------------------------------------------------
       WORKING-STORAGE SECTION.
      * ------------------------------------------------------------

       01  Ws-Current-Date-Time.
           05 Ws-Current-Date        Format DATE '@Y%m%d'.
      *  format of date is CCYYMMDD
           05 Ws-Current-Time        Format TIME '%H%M%S@Sh'.
      *  format of Time is HHMMSShh
           05 Ws-C-Offset-Ind            Pic  X(1).
           05 Ws-C-Offset-HH             Pic S9(2).
           05 Ws-C-Offset-MM             Pic S9(2).
...

       PROCEDURE DIVISION using Ls-Years
       0000-START.

           Move Function CURRENT-DATE
             to Ws-Current-Date-Time.

Take out the APOST in the process command and use quotes for the literals,
and it should still work.  Make sure that there are no other errors in your
program.  I have seen errors in the compile with date and time, that were
not valid.  They were only there because some other error was present.

Call me in an hour (going to lunch now) if you want for more help.

Good luck
-------
Jim Essinger
Senior Programmer/Analyst
UnLtd Support
208-452-4058  Ext 133

On 3/15/06, Michael Saunders <saunderm@xxxxxxxxxxxxxxxxxxxx> wrote:
>
> I tried the lower case and get the same results.  I also get the 'invalid
> conversion specifier' error if I put 'FORMAT DATE IS ' clause in the
> Special Names.  Having tried all of the suggestions from the list members,
> I'm thinking there is something outside the program code that is causing
> it.
>
> Michael R. Saunders
> School District of Manatee County
> Technology & Information Services
> Programmer/Analyst
> saunderm@xxxxxxxxxxxxxxxxxx
> (941) 708-8770 ext 2139
>