* Output Current System Date and Time as DB2 TimeStamp to a File.
      * ----------------------------------------------------------------
      * Copyright (C) 1996-1998 by Vladimir Veytsel        www.davar.net

      * Action ---------------------------------------------------------

      *    Forms DB2 TimeStamp as YYYY-MM-DD-HH.MM.SS.000000 string and
      *    writes it as a single record to SYSDATE file.

      * Note -----------------------------------------------------------

      *    Program is Year 2000 compliant.

      *-----------------------------------------------------------------
       IDENTIFICATION DIVISION.
      *-----------------------------------------------------------------

       PROGRAM-ID.     DATEOUT.
       AUTHOR.         Vladimir Veytsel.
       DATE-WRITTEN.   05/20/1996.
       DATE-COMPILED.  07/28/1998.
      
      *-----------------------------------------------------------------
       ENVIRONMENT DIVISION.
      *-----------------------------------------------------------------
      
       INPUT-OUTPUT SECTION.
      
       FILE-CONTROL.

           SELECT Date-File ASSIGN TO SYSDATE.
      
      *-----------------------------------------------------------------
       DATA DIVISION.
      *-----------------------------------------------------------------
      
       FILE SECTION.
      
       FD  Date-File
           RECORDING MODE IS  F
           RECORD CONTAINS    26 CHARACTERS.
       01  Date-Record  PIC X(26).
      
      *-----------------------------------------------------------------
      
       WORKING-STORAGE SECTION.
      
       77  Current-Date    PIC X(08).
       77  Current-Time    PIC X(06).

       77  DB2-Time-Stamp  PIC X(26).

      *-----------------------------------------------------------------
       PROCEDURE DIVISION.
      *-----------------------------------------------------------------
      
      * Get Current System Date as YYYYMMDD (Year 2000 Compliant) ------

           CALL 'IGZEDT4' USING Current-Date.
      
      * Get Current System Time as HHMMSS ------------------------------

           ACCEPT Current-Time FROM TIME.
      
      * Form DB2 TimeStamp as YYYY-MM-DD-HH.MM.SS.000000 ---------------

           STRING Current-Date(1:4) '-'
                  Current-Date(5:2) '-'
                  Current-Date(7:2) '-'
                  Current-Time(1:2) '.'
                  Current-Time(3:2) '.'
                  Current-Time(5:2) '.000000'
                  DELIMITED BY SIZE INTO DB2-Time-Stamp.
      
      * Output DB2 TimeStamp to Date File ------------------------------

           OPEN OUTPUT Date-File.
           WRITE Date-Record FROM DB2-Time-Stamp.

      * Finish Program -------------------------------------------------

           STOP RUN.