CEESECS - タイム・スタンプから秒数への変換

例

1. 以下は、C/C++ によって呼び出される CEESECS の例です。

   /*Module/File Name: EDCSECS   */
   
   #include <stdio.h>
   #include <string.h>
   #include <leawi.h>
   #include <stdlib.h>
   #include <ceeedcct.h>
   
   int main(void) {
   
      _FEEDBACK fc;
      _FLOAT8 seconds1, seconds2;
      _VSTRING date,date_pic;
   
      /* use CEESECS to convert to seconds timestamp */
      strcpy(date.string,"09/13/91 23:23:23");
      date.length = strlen(date.string);
      strcpy(date_pic.string,"MM/DD/YY HH:MI:SS");
      date_pic.length = strlen(date_pic.string);
   
      CEESECS(&date,&date_pic,&seconds1,&fc);
      if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
         printf("CEESECS failed with message number %d¥n",
              fc.tok_msgno);
         exit(2999);
      }
   
      strcpy(date.string,
               "December 15, 1992 at 8:23:45 AM");
      date.length = strlen(date.string);
      strcpy(date_pic.string,
                 "Mmmmmmmmmmmz DD, YYYY at ZH:MI:SS AP");
      date_pic.length = strlen(date_pic.string);
   
      CEESECS(&date,&date_pic,&seconds2,&fc);
      if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
         printf("CEESECS failed with message number %d¥n",
                fc.tok_msgno);
         exit(2999);
      }
   
      printf("The number of seconds between:¥n");
      printf(" September 13, 1991 at 11:23:23 PM");
      printf(
       " and December 15, 1992 at 8:23:45 AM is:¥n  %f¥n",
                    seconds2 - seconds1);
   }

2. 以下は、COBOL によって呼び出される CEESECS の例です。

   CBL LIB,QUOTE
         *Module/File Name: IGZTSECS
         ************************************************
         ** CBLSECS - Call CEESECS to convert          **
         **           timestamp to number of seconds   **
         **                                            **
         ** In this example, calls are made to CEESECS **
         ** to convert two timestamps to the number of **
         ** seconds since 00:00:00 14 October 1582.    **
         ** The Lilian seconds for the earlier         **
         ** timestamp are then subtracted from the     **
         ** Lilian seconds for the later timestamp     **
         ** to determine the number of between the     **
         ** two.  This result is displayed.            **
         ************************************************
          IDENTIFICATION DIVISION.
          PROGRAM-ID. CBLSECS.
          DATA DIVISION.
          WORKING-STORAGE SECTION.
          01  SECOND1                 COMP-2.
          01  SECOND2                 COMP-2.
          01  TIMESTP.
              02  Vstring-length      PIC S9(4) BINARY.
              02  Vstring-text.
                  03  Vstring-char        PIC X,
                              OCCURS 0 TO 256 TIMES
                              DEPENDING ON Vstring-length
                                 of TIMESTP.
          01  TIMESTP2.
              02  Vstring-length      PIC S9(4) BINARY.
              02  Vstring-text.
                  03  Vstring-char        PIC X,
                              OCCURS 0 TO 256 TIMES
                              DEPENDING ON Vstring-length
                                 of TIMESTP2.
          01  PICSTR.
              02  Vstring-length      PIC S9(4) BINARY.
              02  Vstring-text.
                  03  Vstring-char        PIC X,
                              OCCURS 0 TO 256 TIMES
                              DEPENDING ON Vstring-length
                                 of PICSTR.
          01  FC.
              02  Condition-Token-Value.
              COPY  CEEIGZCT.
                  03  Case-1-Condition-ID.
                      04  Severity    PIC S9(4) BINARY.
                      04  Msg-No      PIC S9(4) BINARY.
                  03  Case-2-Condition-ID
                            REDEFINES Case-1-Condition-ID.
                      04  Class-Code  PIC S9(4) BINARY.
                      04  Cause-Code  PIC S9(4) BINARY.
                  03  Case-Sev-Ctl    PIC X.
                  03  Facility-ID     PIC XXX.
              02  I-S-Info            PIC S9(9) BINARY.
          PROCEDURE DIVISION.
          PARA-SECS1.
   
         ************************************************
         ** Specify first timestamp and a picture string
         **     describing the format of the timestamp
         **     as input to CEESECS
         ************************************************
              MOVE 25 TO Vstring-length of TIMESTP.
              MOVE "1969-05-07 12:01:00.000"
                      TO Vstring-text of TIMESTP.
              MOVE 25 TO Vstring-length of PICSTR.
              MOVE "YYYY-MM-DD HH:MI:SS.999"
                      TO Vstring-text of PICSTR.
         ************************************************
         ** Call CEESECS to convert the first timestamp
         ** to Lilian seconds
         ************************************************
              CALL "CEESECS" USING TIMESTP, PICSTR,
                                   SECOND1, FC.
              IF NOT CEE000 of FC  THEN
                  DISPLAY "CEESECS failed with msg "
                      Msg-No of FC UPON CONSOLE
                  STOP RUN
              END-IF.
          PARA-SECS2.
         ************************************************
         ** Specify second timestamp and a picture string
         **     describing the format of the timestamp as
         **     input to CEESECS.
         ************************************************
              MOVE 25 TO Vstring-length of TIMESTP2.
              MOVE "2000-01-01 00:00:01.000"
                      TO Vstring-text of TIMESTP2.
              MOVE 25 TO Vstring-length of PICSTR.
              MOVE "YYYY-MM-DD HH:MI:SS.999"
                      TO Vstring-text of PICSTR.
   
         ************************************************
         ** Call CEESECS to convert the second timestamp
         **     to Lilian seconds
         ************************************************
              CALL "CEESECS" USING TIMESTP2, PICSTR,
                                   SECOND2, FC.
              IF NOT CEE000 of FC  THEN
                  DISPLAY "CEESECS failed with msg "
                      Msg-No of FC UPON CONSOLE
                  STOP RUN
              END-IF.
   
          PARA-SECS2.
         ************************************************
         ** Subtract SECOND2 from SECOND1 to determine the
         **     number of seconds between the two timestamps
         ************************************************
              SUBTRACT SECOND1 FROM SECOND2.
              DISPLAY "The number of seconds between "
                  Vstring-text OF TIMESTP " and "
                  Vstring-text OF TIMESTP2 " is: " SECOND2.
   
              GOBACK.

3. 以下は、PL/I によって呼び出される CEESECS の例です。

   *PROCESS MACRO;
    /* Module/File Name: IBMSECS                        */
    /****************************************************/
    /**                                                 */
    /** Function: CEESECS - Change timestamp to seconds */
    /**                                                 */
    /** In this example, CEESECS is called to return an */
    /** input timestamp as the number of seconds since  */
    /** 14 October 1582.                                */
    /**                                                 */
    /****************************************************/
    PLISECS: PROC OPTIONS(MAIN);
   
       %INCLUDE  CEEIBMAW;
       %INCLUDE  CEEIBMCT;
   
       DCL TIMESTP CHAR(255) VARYING;
       DCL PICSTR CHAR(255) VARYING;
       DCL SECONDS REAL FLOAT DECIMAL(16);
       DCL 01 FC,                     /* Feedback token */
              03 MsgSev    REAL FIXED BINARY(15,0),
              03 MsgNo     REAL FIXED BINARY(15,0),
              03 Flags,
                 05 Case      BIT(2),
                 05 Severity  BIT(3),
                 05 Control   BIT(3),
              03 FacID     CHAR(3),      /* Facility ID */
              03 ISI   /* Instance-Specific Information */
                           REAL FIXED BINARY(31,0);
   
       TIMESTP = '10 November 1992'; /* Specify input   */
                                   /* date as timestamp */
       PICSTR  = 'ZD Mmmmmmmmmmmmmmz YYYY';
              /* Picture string that descibes timestamp */
   
       /* Call CEESECS to return the input date as      */
       /*    Lilian seconds                             */
       CALL CEESECS ( TIMESTP, PICSTR, SECONDS, FC );
       IF  FBCHECK( FC, CEE000)  THEN  DO;
          PUT SKIP LIST( 'There were ' || SECONDS
             || ' seconds between 14 Oct 1582 and '
             || TIMESTP );
          END;
       ELSE  DO;
          DISPLAY( 'CEESECS failed with msg '
             || FC.MsgNo );
          STOP;
          END;
   
    END PLISECS;