CEEDAYS - 日付からリリアン形式への変換

例

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

   /*Module/File Name: EDCDAYS   */
   
   #include <leawi.h>
   #include <stdio.h>
   #include <string.h>
   #include <stdlib.h>
   #include <ceeedcct.h>
   
   int main(void) {
   
      _FEEDBACK fc;
      _INT4 lil_date1,lil_date2;
      _VSTRING date,date_pic;
   
      /* use CEEDAYS to get the Lilian format */
      strcpy(date.string,"05/14/64");
      date.length = strlen(date.string);
      strcpy(date_pic.string,"MM/DD/YY");
      date_pic.length = strlen(date_pic.string);
   
      CEEDAYS(&date,&date_pic,&lil_date1,&fc);
      if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
         printf("CEEDAYS failed with message number %d¥n",
                fc.tok_msgno);
         exit(2999);
      }
   
      /* use CEEDAYS to get the Lilian format */
      strcpy(date.string,"August 14, 1966");
      date.length = strlen(date.string);
      strcpy(date_pic.string,"Mmmmmmmmmmmz DD, YYYY");
      date_pic.length = strlen(date_pic.string);
   
      CEEDAYS(&date,&date_pic,&lil_date2,&fc);
      if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
         printf("CEEDAYS failed with message number %d¥n",
                fc.tok_msgno);
         exit(2999);
      }
   
      /* subtract the two Lilian dates to find out */
      /* difference in days */
      printf("The number of days between"
      " May 14, 1964 and August 14, 1966"
      " is: %d¥n",lil_date2 - lil_date1);
   }

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

   CBL LIB,QUOTE
         *Module/File Name: IGZTDAYS
         *******************************************
         **                                       **
         ** Function: CEEDAYS - convert date to   **
         **                     Lilian format     **
         **                                       **
         *******************************************
          IDENTIFICATION DIVISION.
          PROGRAM-ID. CBLDAYS.
          DATA DIVISION.
          WORKING-STORAGE SECTION.
          01  CHRDATE.
              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 CHRDATE.
          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  LILIAN                  PIC S9(9) BINARY.
          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-CBLDAYS.
         *************************************************
         ** Specify input date and length               **
         *************************************************
              MOVE 16 TO Vstring-length of CHRDATE.
              MOVE "1 January 2000"
                  TO Vstring-text of CHRDATE.      
         *************************************************
         ** Specify a picture string that describes     **
         ** input date, and the picture string's length.**
         *************************************************
              MOVE 25 TO Vstring-length of PICSTR.
              MOVE "ZD Mmmmmmmmmmmmmmz YYYY"
                      TO Vstring-text of PICSTR.
   
         *************************************************
         ** Call CEEDAYS to convert input date to a     **
         ** Lilian date                                 **
         *************************************************
              CALL "CEEDAYS" USING CHRDATE, PICSTR,
                                   LILIAN, FC.
   
         *************************************************
         ** If CEEDAYS runs successfully, display result**
         *************************************************
              IF  CEE000 of FC  THEN
                  DISPLAY Vstring-text of CHRDATE
                      " is Lilian day: " LILIAN
              ELSE
                  DISPLAY "CEEDAYS failed with msg "
                      Msg-No of FC UPON CONSOLE
                  STOP RUN
              END-IF.
   
              GOBACK.

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

   *PROCESS MACRO;
    /*Module/File Name: IBMDAYS                        */
    /***************************************************/
    /**                                               **/
    /** Function     : CEEDAYS - Convert date to      **/
    /**                          Lilian format        **/
    /**                                               **/
    /** This example converts two dates to the Lilian **/
    /** format in order to calculate the number of    **/
    /** days between them.                            **/
    /**                                               **/
    /***************************************************/
   
    PLIDAYS: PROC OPTIONS(MAIN);
   
       %INCLUDE  CEEIBMAW;
       %INCLUDE  CEEIBMCT;
   
       DCL CHRDATE  CHAR(255) VARYING;
       DCL CHRD2    CHAR(255) VARYING;
       DCL PICSTR   CHAR(255) VARYING;
       DCL PICST2   CHAR(255) VARYING;
       DCL LILIAN   REAL FIXED BINARY(31,0);
       DCL LIL2     REAL FIXED BINARY(31,0);
       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);
   
       /* First date to be converted to Lilian format   */
       CHRDATE = '5/7/69';
   
       /* Picture string of first input date            */
       PICSTR = 'ZM/ZD/YY';
   
       /* Call CEEDAYS to convert input date to the     */
       /*    Lilian format                              */
       CALL CEEDAYS ( CHRDATE , PICSTR , LILIAN , FC );
       IF  FBCHECK( FC, CEE000)  THEN  DO;
          PUT SKIP LIST( 'The Lilian date for ' || CHRDATE
             || ' is ' || LILIAN );
          END;
       ELSE  DO;
          DISPLAY( 'CEEDAYS failed with msg '
             || FC.MsgNo );
          STOP;
          END;
   
       /* Second date to be converted to Lilian format  */
       CHRD2 = '1 January 2000';
   
       /* Picture string of second input date           */
       PICST2 = 'ZD Mmmmmmmmmmmmmmz YYYY';
   
       /* Call CEEDAYS to convert input date to the     */
       /*    Lilian format                              */
       CALL CEEDAYS ( CHRD2 , PICST2 , LIL2 , FC );
       IF  FBCHECK( FC, CEE000)  THEN  DO;
          PUT SKIP LIST( 'The Lilian date for ' || CHRD2
             || ' is ' || LIL2 );
          END;
       ELSE  DO;
          DISPLAY( 'CEEDAYS failed with msg '
             || FC.MsgNo );
          STOP;
          END;
   
       /* Subtract the two Lilian dates to find out     */
       /*    the difference in days between the two     */
       /*    input dates                                */
       PUT SKIP LIST( 'The number of days between '
          || CHRDATE || ' and ' || CHRD2 || ' is'
          || LIL2 - LILIAN || '.');
   
    END PLIDAYS;