Software date and time services

Abstract

A program product performs date and time services for a calling program. The program product accepts multiple date and time inputs, multiple date and time input and output formats, and multiple function requests. A windowing function is performed to determine a century value for a date that lacks a century designator. Gregorian, Julian, ADABAS D, ADABAS T, EIBDATE, and other formats are supported. Formats may also be parameterized for individual functions allowing a calling program to select multiple and diverse formats for a sequence of called functions. Version checking and version tracking are also supported to insure the calling program interfaces with a version of the program product having an expected functionality. A method provides the functionality of the program product, receiving calls from a calling program. Another method embodies a calling program performing date and time operations by invoking a date and time services program.

Claims

What is claimed is:

1. A method for performing operations on a plurality of date/time input data elements resulting in a plurality of date/time output data elements, comprising the steps of:

providing a date/time services program that includes a plurality of date/time formats in a single call;

receiving said plurality of date/time input data elements via a call to said date/time services program, the date/time input data elements received in the call having a plurality of different input formats;

selecting one of said plurality of date/time input data elements;

selecting one of said plurality of different input formats relating to the selected date/time input data element;

selecting one of said plurality of date/time output data elements associated with said selected data time input data element;

performing a date/time function on said selected date/time input data element to produce a function result;

converting said function result into at least one of an ADABAS T and an ADABAS D format;

loading said converted function result into said selected date/time output data element;

repeating said selecting steps, said performing step, and said loading step until all of said plurality of date/time input data elements have been selected; and

outputting said plurality of date/time output data elements from said date/time services program.

2. The method of claim 1 further comprising the step of providing a date/time element representing a date value.

3. The method of claim 1 further comprising the step of providing a date/time element representing a time value.

4. The method of claim 1 wherein the step of performing a date/time function comprises the steps of:

performing a first date/time function on said selected date/time input data element to produce an intermediate result; and

performing a second date/time function on said intermediate result to produce said function result.

5. The method of claim 4 wherein the step of performing a first date/time function comprises the step of performing a windowing function.

6. The method of claim 5 wherein the step of performing a second date/time function comprises the step of performing a non-windowing function.

7. The method of claim 1 further comprising the steps of:

providing a plurality of date/time function requests in a single call of the date/time services program; and

selecting one of said plurality of date/time functions associated with said selected date/time input data element.

8. The method of claim 7 wherein the step of performing a date/time function comprises the step of performing said selected date/time function to produce said function result.

9. The method of claim 1 wherein the step of performing a date/time function further comprises the step of validating said selected date/time input data element against said selected date/time input format.

10. The method of claim 1 further comprising the steps of:

providing a plurality of date/time output format in a single call of said services program; and

selecting one of said plurality of date/time output formats associated with said selected date/time input data element.

11. The method of claim 10 wherein the step of loading said function result into said selected date/time output data element comprises the step of converting said function result into said selected date/time output format.

12. The method of claim 1 wherein the step of performing a date/time function comprises the step of performing a "Year 2000"-compliant operation on said selected date/time input data element to produce said function result.

13. The method of claim 1 further comprising the steps of:

providing a program version parameter to said date/time services program;

receiving a version control parameter to said date/time services program;

comparing said version control parameter with said program version parameter; and

outputting an error condition from said date/time services program, responsive to said comparing step, if said version control parameter fails to match said program version parameter.

14. The method of claim 1 further comprising the steps of:

providing a plurality of program version parameters to said date/time services program; each program version parameter being associated with a different version of services program functionality;

receiving a version control parameter to said date/time services program;

comparing said version control parameter with one of said plurality of program version parameters; and

executing services program functionality associated with said one of said plurality of program version parameters, responsive to said comparing step, if said one of said plurality of program version parameters matches said version control parameter.

15. A program storage medium, readable by a computer, tangibly embodying a program of instructions executable by said computer for performing operations on a plurality of date/time input data elements resulting in a plurality of date/time output data elements, the program comprising instructions for:

receiving said plurality of date/time input data elements via a call from a calling program that includes a plurality of date/time formats in a single call, the date/time input data elements received in the call having a plurality of different input formats;

selecting one of said plurality of date/time input data elements;

selecting one of said plurality of different input formats relating to the selected date/time input data element, the plurality of different input formats comprising Julian and Gregorian formats;

selecting one of said plurality of date/time output data elements associated with said selected date time input data element;

performing a date/time function on said selected date/time input data element to produce a function result;

loading said function result into said selected date/time output data element;

repeating said selecting steps, said performing step, and said loading step until all of said plurality of date/time input data elements have been selected; and

outputting said plurality of date/time output data elements to said calling program.

16. A system for performing operations on a plurality of date/time data elements resulting in a plurality of date/time output data elements, said system comprising:

a computer processor;

a non-volatile storage medium storing a database coupled to said computer processor;

memory storing a date/time services program that includes a plurality of date/time formats in a single call having defined memory structures for storing said plurality of date/time input data structures and said plurality of date/time output data structures;

an application program in said memory that accesses said database and invokes execution of said date/time services program to perform a date/time function on each of said plurality of date/time input data elements, the date/time elements having a plurality of different input formats comprising Julian and Gregorian formats, to produce corresponding function result values; said services program loading said corresponding result values into said plurality of date/time output data elements and outputting said plurality of date/time output data elements to said application program.

17. Apparatus for performing operations on a plurality of date/time input data elements resulting in a plurality of date/time output data elements, comprising:

means for receiving said plurality of date/time input data elements via a single call from a calling program that includes a plurality of date/time formats in a single call, the date/time input data elements received in the single call having a plurality of different formats comprising Julian and Gregorian formats;

means for performing a first date/time function on a first one of said plurality of date/time input data elements to produce a first function result;

means for performing a second date/time function on a second one of said plurality of date/time input data elements to produce a second function result;

means for loading said first and second function results into said plurality of date/time output data elements; and

outputting said plurality of date/time output data elements to said calling program.

18. A computer program for executing a computer process, said computer program being readable from a storage medium by a computing system and encoding a program of instructions for performing operations on a plurality of date/time input data elements resulting in a plurality of date/time output data elements, said computer process comprising the steps of:

receiving said plurality of date/time input data elements via a call from a calling program that includes a plurality of date/time formats in a single call, the date/time input data elements received in the call having a plurality of different formats comprising Julian and Gregorian formats;

selecting one of said plurality of date/time input data elements;

selecting one of said plurality of different input formats relating to the selected date/time input data element;

selecting one of said plurality of date/time output data elements associated with said selected date/time input data element;

performing a date/time function on said selected date/time input data element to produce a function result;

loading said function result into said selected date/time output data element;

repeating said selecting steps, said performing step, and said loading step until all of said plurality of date/time input data elements have been selected; and

outputting said plurality of date/time output data elements from said calling program.

19. A method for determining a plurality of century data elements corresponding to a plurality of date representations, each date representation having an input year value that lacks a century designation, said method comprising the steps of:

receiving said plurality of date representations via a call from a calling program that includes a plurality of date/time formats in a single call, the date representations received in the call having a plurality of different formats comprising Julian and Gregorian formats;

selecting one of said plurality of date representations;

selecting one of said plurality of century data elements corresponding to said selected date representation;

comparing said input year value of said selected date representation to a pivot year value;

assigning a first century value to said selected century data element, responsive to said comparing step, if said input year value is greater than or equal to said pivot year value;

assigning a second century value to said selected century data element, responsive to said comparing step, if said input year value is less than said pivot year value, said second century value equaling said first century value plus one year;

repeating said selecting steps, said comparing step, and said assigning steps, until all of said plurality of date representations have been selected; and

outputting said plurality of century data elements to said calling program.

20. A program storage medium, readable by a computer, tangibly embodying a program of instructions executable by said computer for determining a plurality of city data elements corresponding to a plurality of date representations, each date representation having an input year value that lacks a century designation, the program comprising instructions for:

receiving said plurality of date representations via a call from a calling program that includes a plurality of date/time formats in a single call, the date representations received in the call having a plurality of different formats comprising Julian and Gregorian formats;

selecting one of said plurality of date representations;

selecting one of said plurality of century data elements corresponding to said selected date representation;

comparing said input year value of said selected date representation to a pivot year value;

assigning a first century value to said selected century data element, responsive to said comparing step, if said input year value is greater than or equal to said pivot year value;

assigning a second century value to said selected century data element, responsive to said comparing step, if said input year value is less than said pivot year value, said second century value equaling said first century value plus one year;

repeating said selecting steps, said comparing step, and said assigning steps, until all of said plurality of date representations have been selected; and

outputting said plurality of century data elements to said calling program.

21. A computer program for executing a computer process, said computer program being readable from a storage medium by a computing system and encoding a program of instructions for determining a plurality of century data elements corresponding to a plurality of date representations, each date representation having an input year value that lacks a century designation, said computer process comprising the steps of:

receiving said plurality of date representations via a call from a calling program that includes a plurality of date/time formats in a single call, the date representations received in the call having a plurality of different formats comprising Julian and Gregorian formats;

selecting one of said plurality of date representations;

selecting one of said plurality of century data elements corresponding to said selected date representation;

comparing said input year value of said selected date representation to a pivot year value;

assigning a first century value to said selected century data element, responsive to said comparing step, if said input year value is greater than or equal to said pivot year value;

assigning a second century value to said selected century data element, responsive to said comparing step, if said input year value is less than said pivot year value, said second century value equaling said first century value plus one year;

repeating said selecting steps, said comparing step, and said assigning steps, until all of said plurality of date representations have been selected; and

outputting said plurality of century data elements to said calling program.

22. A method for performing an operation on a date/time input data element resulting in a date/time output data element, comprising the steps of:

providing a date/time services program;

receiving a call to invoke said date/time services program;

receiving said date/time input data element having a first one of a plurality of formats at said date/time services program, the plurality of formats comprising at least one of Julian, Gregorian and EIBDATE formats;

performing a date/time function on said date/time input data element within said date/time services program to produce a date/time output data element having a second one of the plurality of formats, the second format being different from the first format; and

outputting said date/time output data element from said date/time services program.

23. A program storage medium, readable by a computer, tangibly embodying a program of instructions executable by said computer for performing an operation on a date/time input data element resulting in a date/time output data element, the program comprising instructions for:

receiving said date/time input data element having a first one of a plurality of formats via a call from a calling program, the plurality of formats comprising at least one of Gregorian, Julian and EIBDATE formats;

performing a date/time function on said date/time input data element within said program of instructions to produce a date/time output data element having a second one of the plurality of formats, the second format being different from the first format; and

outputting said date/time output data element to said calling program.

24. A computer program for executing a computer process, said computer program being readable from a storage medium by a computing system and encoding a program of instructions for performing an operation on a date/time input data element resulting in a date/time output data element, said computer process comprising the steps of:

receiving said date/time input data element having a first one of a plurality of formats via a call from a calling program, the plurality of formats comprising at least one of Gregorian, Julian and EIBDATE formats;

performing a date/time function on said date/time input data element within said computer program to produce a date/time output data element having a second one of the plurality of formats, the second format being different from the first format; and

outputting said date/time output data element to said calling program.

25. A program storage medium, readable by a computer, tangibly embodying a program of instructions executable by said computer for performing operations on a plurality of date/time input data elements resulting in a plurality of date/time output data elements, the program comprising instructions for:

invoking a date/time services program via a call from the program that includes a plurality of date/time formats in a single call;

inputting said plurality of date/time input data elements via said call to said date/time services program, the date/time input data elements received in the call having a plurality of different input formats;

selecting one of said plurality of date/time input data elements;

selecting one of said plurality of different input formats relating to the selected date/time input data element, the plurality of formats comprising at least one of Gregorian, Julian and EIBDATE formats;

selecting one of said plurality of date/time output data elements associated with said selected date/time input data element;

performing a date/time function on said selected date/time input data element to produce a function result;

converting said function result into at least one of Gregorian, Julian, ADABAS D and ADABAS T formats;

loading said converted function result into said selected date/time output data element;

repeating said selecting steps, said performing step, and said loading step until all of said plurality of date/time input data elements have been selected; and

receiving said plurality of date/time output data elements from said date/time services program.

26. The program storage medium of claim 25 wherein said step of performing a date/time function comprises the step of calculating said function result based on differences in specified time zones.

Description

BACKGROUND OF THE INVENTION

1. Field of the Invention

The present invention pertains generally to electrical computers and more particularly to program products and methods for providing date and time software services to calling programs.

2. Background of the Invention

Information technology organizations throughout all industries are working to solve what is known as the "Year 2000" problem. For the past several decades, systems have typically used two digits to represent the year, such as "98" to represent "1998", in order to conserve electronic data storage and reduce operating costs. With this 2-digit format, however, the year "2000" is indistinguishable from the year "1900", the year "2001" from the year "1901", and so on. As a result of this ambiguity, application programs that perform calculations, comparisons, or sorting operations on time and date data elements may generate incorrect results when working with years after 1999.

Therefore, to avoid incorrect results, software applications must be made Year 2000 compliant by Jan. 1, 2000. To meet Year 2000 compliancy, many different approaches may be implemented. One common approach is to rewrite the source code for an application to ensure date routines can account for a 2-digit century value. However, many databases and applications are very extensive and have 2-digit year values embedded within them. Expanding such databases and modifying such applications to accommodate a 3- or 4-digit year field is impractical. A second common approach is to utilize a date/time services program that can be called by a software application during execution. Such a services program is passed a date value that comprises a 2-digit year, and returns either a value indicating a century or a date value that comprises a 3- or 4-digit year. This technique is commonly known as "windowing," and it enables a legacy software application to accommodate different century values to meet Year 2000 compliancy requirements without having to expand the underlying databases.

Beyond the single issue of Year 2000 compliancy, software applications may benefit from various date/time services. For example, during execution, an application may require a date-time translation or a date-time field format conversion. Such needs will exist well beyond the year 2000.

Currently, products on the market that offer similar services have several notable limitations. Such products only provide date services using specific and limited formats. For example, they may provide a Julian or Gregorian date to an application requiring ADABAS `D` or `T` format fields, which must then convert the date to a proper internal format. "ADABAS" is a database marketed by Software A.G. of Germany, and other vendors also use ADABAS formats as input and output field formats in their own database applications. In addition, such products provide services for only one date value in a single call, requiring multiple calls to the services program to obtain multiple date-time operation results. Moreover, these products do not provide combination date and time services or provide for multiple function operations. Therefore, need exists for a date and time services program that provides date and time format conversion, Year 2000 compliancy, and capabilities for handling multiple date/time inputs/outputs and multiple functions in a single call.

SUMMARY OF THE INVENTION

It is therefore an object of the present invention to provide a program product that provides date and time services to a calling program.

It is another object of the present invention to provide a program product that performs date and time operations on multiple input dates and times in a single call.

It is another object of the present invention to provide a program product that provides multiple and diverse date and time operations in a single call.

It is yet another object of the present invention to provide a program product that supports multiple input and output date and time formats and provides conversion capabilities among the formats therein.

It is yet another object of the present invention to provide a method that provides date and time services to a calling program.

It is yet another object of the present invention to provide a method that provides date and time operations on multiple input dates and times in a single call.

It is yet another object of the present invention to provide a method that provides multiple and diverse date and time operations in a single call.

It is yet another object of the present invention to provide a date and time services method that supports multiple input and output date and time formats and provides conversion capabilities among the formats therein.

It is yet another object of the present invention to provide a date and time services program accessible via a communications network.

Additional objects, advantages, and novel features of the invention will be set forth in part in the description which follows and in part will become apparent to those skilled in the art upon examination of the following or may be learned by practice of the invention. The objects and advantages of the invention may be realized and attained by means of the instrumentalities and combinations particularly pointed out in the appended claims.

To achieve the foregoing and other objects, in accordance with the purposes of the present invention, as embodied and broadly described herein, the program product of this invention may comprise instructions for receiving a plurality of date/time input data elements via a call from a calling program; selecting one of the plurality of date/time input data elements; selecting one of a plurality of date/time output data elements associated with the selected date/time input data element; performing a date/time function on the selected date/time input data element to produce a function result; loading the function result into the selected date/time output data element; repeating the selecting steps, the performing step, and the loading step until all of the plurality of date/time input data elements have been selected; and outputting the plurality of date/time output data elements to the calling program.

The present invention may also comprise, in accordance with its objects and purposes, a method having the steps of providing a date/time services program; receiving a plurality of date/time input data elements via a call to the date/time services program; selecting one of the plurality of date/time input data elements; selecting one of a plurality of date/time output data elements associated with the selected date/time input data element; performing a date/time function on the selected date/time input data element to produce a function result; loading the function result into the selected date/time output data element; repeating the selecting steps, the performing step, and the loading step until all of the plurality of date/time input data elements have been selected; and outputting the plurality of date/time output data elements from the date/time services program.

An improved date/time services program in accordance with the present invention overcomes the disadvantages and limitations identified in the prior art. A program in accordance with the present invention is a services program, preferably in COBOL, that can be called by other software applications ("calling programs") to perform date and time services. The calling programs may include both COBOL and non-COBOL programs. The services program can perform operations on both time data elements, date data elements, and combinations thereof. Many different date and time formats can be provided and requested by the calling program, including ADABAS D and T formats, so that the calling program need not convert the input date/time data into a specific date/time format. This conversion capability simplifies the coding requirements of calling programs, because only a call to the services program is needed, whereas in prior art, for example, an additional conversion routine in the calling program would be required to obtain an ADABAS T formatted date and time result. Additionally, multiple date/time values can be included in a single call to the services program, eliminating the need for multiple calls and increasing performance of the program. Multiple function sequences, such as windowing operations performed on two dates followed by a comparison of the two dates, can also be invoked in a single call to the services routine.

BRIEF DESCRIPTIONS OF THE DRAWINGS

FIG. 1 depicts a general purpose computer capable of executing and storing a preferred embodiment of the present invention.

FIG. 2 depicts an architectural diagram illustrating the communications between a calling program, a database and a services program.

FIG. 3 depicts a flow chart describing the use of a services program by an application program.

FIG. 4 depicts a flow chart describing processing within a services program.

FIGS. 5A, 5B, 5C, 5D, 5E and 5F depict a flow chart of the process function shown in block 404 of FIG. 4.

FIGS. 6A, 6B and 6C depict a flow chart describing an exemplary function ("WIN.101") in accordance with the present invention.

FIGS. 7A, 7B and 7C depict the DATE-FORMAT AND DATE-INPUT CHECK routine shown in block 614 of FIG. 6A.

FIG. 8 illustrates a flow chart depicting the JULIAN DATE VALIDATION AND WINDOWING process shown in block 710 of FIG. 7A.

FIG. 9 illustrates a flow chart depicting the GREGORIAN DATE VALIDATION AND WINDOWING process shown in block 740 of FIG. 7A.

FIG. 10 illustrates a flow chart depicting the YEAR-MONTH DATE VALIDATION AND WINDOWING process shown in block 752 of FIG. 7C.

FIG. 11 illustrates a flow chart depicting the YEAR DATE VALIDATION AND WINDOWING shown in block 756 of FIG. 7C.

FIG. 12 illustrates a flow chart depicting the LEAP YEAR CHECK process shown in block 814 of FIG. 8, block 914 of FIG. 9, block 1014 of FIG. 10, and block 1114 of FIG. 11.

DETAILED DESCRIPTION OF THE INVENTION

In a preferred embodiment of the present invention, a services program is a compiled COBOL program that runs on the same computer as the calling programs that access it. Another embodiment in accordance with the present invention may also run on a different computer than the calling programs that access it, being coupled by a network or other connection to a calling program computer. The computer is typically a general purpose computer, shown in FIG. 1. In such a system, data and program files may be input to the computer, which reads the files and executes the programs therein. FIG. 1 shows a processor 101 having an input/output (I/O) section 102, a Central Processing Unit (CPU) 103, and a memory section 104.

The I/O section 102 is connected to keyboard 105, display unit 106, disk storage unit 109, and disk drive unit 107. Generally, in contemporary systems, the disk drive unit 107 is a CD-ROM driver unit capable of reading a CD-ROM medium 108, which typically contains programs 110 and data. computer program products containing mechanisms to effectuate the apparatus and methods in accordance with the present invention may reside in the memory section 104, on a disk storage unit 109, or on the CD-ROM data of such a system. Alternatively, disk drive unit 107 may be replaced by a floppy drive unit, a tape drive unit, or other storage medium drive unit. Examples of such systems include mainframe systems such as MVS/ESA or OS/390 systems from IBM Corporation, minicomputer systems such as the AS/400 from IBM Corporation, SPARC systems such as those offered by Sun Microsystems, Inc., personal computers offered by IBM Corporation and by other manufacturers of IBM-compatible personal computers, and other systems running the UNIX operating system. In accordance with the present invention, date and time services software may be executed by CPU 103 and accessed by calling programs also executed by CPU 103 or by other central processing units (not shown) coupled to processor 101.

FIG. 2 illustrates a block diagram of an embodiment of the present invention. A calling program 200, such as an application or system program, operates on database 202, which may include multiple component databases. Calling program 200 prepares input data and issues a call to the services program block 206, which performs the date/time function specified in the input data. Other calling programs may also use the services program simultaneously because the services program is re-entrant.

FIG. 3 is a flow chart illustrating the process of a calling program in accordance with the present invention, which initiates at block 302. During its execution, the calling program provides input data 304 and issues a call to execute a function provided by the date/time services program. The services program may service calls from on-line calling programs or batch programs. On-line calling programs include programs running within a teleprocessing environment, such as the IBM CICS product. In a preferred embodiment of the present invention, the services program comprises two different sub-programs: one sub-program provides services for on-line calling programs, such as those executing in a CICS environment, and the other provides services for batch calling programs.

Decision block 306 decides whether the calling program is an on-line program or a batch program and executes the corresponding sub-program. If the calling program is an on-line program, the on-line services sub-program 308 executes and returns a response code and output data to the calling program. Alternatively, if the calling program is a batch program, batch services sub-program 310 executes and returns the response code and output data to the calling program. In condition block 312, if the response code returned by the services program equals zero (indicating normal processing), then the calling program continues normal processing in block 314. A non-zero response code indicates an exception condition, and in response, the calling program processes the exception condition accordingly. The application terminates at END block 316, when the application's operation completes.

FIG. 4 is a flowchart depicting the processing of date/time services blocks 308 and 310 from FIG. 3. When the date/time services program is invoked by a calling program, the services program commences execution at START block 400 of FIG. 4. The processing is similar for both on-line and batch services sub-programs, which are generally described hereafter as a single "services program".

The services program provides many date/time services, which are provided as functions, and the calling program inputs a specific function indicator for a desired operation. In decision block 402 of FIG. 4, the service confirms that the function indicator specified in the services program call is a valid function with a valid format. Decision block 402 also confirms that the calling program is invoking the correct version of the services program. The calling program provides a version control parameter as an input parameter, and the services program compares the version control parameter to an internal version variable representing the version of the services program.

In an alternative embodiment of the present invention, the version control parameter may be compared against a list of program version parameters. Each program version parameter in the list is associated with source code implementing the functionality of a different version of the services program. As such, if the version control parameter matches an older program version parameter, source code implementing the functionality of the older version of the services program is executed. This capability ensures that the calling program interfaces with a version of the services program for which it was developed and tested.

If either the function or the version condition in block 402 fails (i.e., produces a "NO" result), the data from the program call is moved to an error block (flowchart block 410), which is memory allocated for temporary storage of data resulting from exception processing. If condition block 402 succeeds (i.e., producing a "YES" result), the called function is processed in block 404 (as further illustrated in FIG. 5). Successful completion of block 404 produces output data that is moved in block 408 to a communication area, which is memory allocated for interprocess communications. In accordance with the present invention, the communication area may be configured to enable multiple date, time, and format values and date/time function indicators to be passed as input to and output from the services program.

The source code listing for a conversation area of a preferred embodiment of the present invention is listed below.

    *01 (KQDTS)-DATE-TIME-SERVICES.
    *--------------------------------------------------------------------------
    ---------
                  (KQDTS)-DATE-TIME-SERVICE S COMMUNICATION AREA
    *--------------------------------------------------------------------------
    --
        05  (KQDTS)-BLOCK-DETAILS.
    07 (KQDTS)-PROGRAM-NAME                           PIC X(08).
                88 (KQDTS)-BLOCK-ID-CICS           VALUE `KQDTSOP1`.
                88 (KQDTS)-BLOCK-ID-BATCH          VALUE `KQDTSOB1`.
            07 (KQDTS)-PROGRAM-VERSION                PIC X(06).
                88 (KQDTS)-BLOCK-VERSION           VALUE `V01.00`.
            07 (KQDTS)-PROGRAM-LINKAGE AREA           PIC 9(08).
                88 (KQDTS)-BLOCK-LENGTH            VALUE 700.
    *--------------------------------------------------------------------------
    --
                       INPUT BLOCK REQUIRED FOR THIS PROGRAM
    *--------------------------------------------------------------------------
    --
        05  (KQDTS)-IN-DATA.
            07  (KQDTS)-IN-REQ-FUNC-AREA           PIC X(08).
                88 (KQDTS)-REQ-FUNC-CURR-DT-TIM       VALUE `CUR.100`.
                88 (KQDTS)-REQ-FUNC-CURR-DTM-D        VALUE `CUR.101`.
                88 (KQDTS)-REQ-FUNC-CURR-DTM-T        VALUE `CUR.102`.
                88 (KQDTS)-REQ-FUNC-CURR-DTM-D-T      VALUE `CUR.103`.
                88 (KQDTS)-REQ-FUNC-DT-WINDOW         VALUE `WIN.100`.
                88 (KQDTS)-REQ-FUNC-DT-WINDOW-D       VALUE `WIN.101`.
                88 (KQDTS)-REQ-FUNC-DT-WINDOW-T       VALUE `WIN.102`.
                88 (KQDTS)-REQ-FUNC-CALL-SQTODATE     VALUE `TOD.100`.
                88 (KQDTS)-REQ-FUNC-CALL-SQFRDATE     VALUE `FRD.100`.
                88 (KQDTS)-REQ-FUNC-CALL-SQTOTIME     VALUE `TOT.100`.
                88 (KQDTS)-REQ-FUNC-CALL-SQFRTIME     VALUE `FRT.100`.
                88 (KQDTS)-REQ-FUNC-DT-ADD-DAYS       VALUE `ADD.100`.
                88 (KQDTS)-REQ-FUNC-DT-DIF-DAYS       VALUE `DIF.100`.
                88 (KQDTS)-REQ-FUNC-DT-COMPR-DT       VALUE `COM.100`.
                88 (KQDTS)-REQ-FUNC-DT-SUB-DAYS       VALUE `SUB.100`.
                88 (KQDTS)-REQ-FUNC-DT-VALIDATE       VALUE `VAL.100`.
                88 (KQDTS)-REQ-FUNC-DT-CONVERT        VALUE `CON.100`.
                88 (KQDTS)-REQ-FUNC-DAY-OF-WEEK       VALUE `DOW.100`.
                88 (KQDTS)-REQ-FUNC-DTM-VALIDAT       VALUE `DTM.100`.
                88 (KQDTS)-REQ-FUNC-TIM-VALIDAT       VALUE `TIM.100`.
                88 (KQDTS)-REQ-FUNC-LEAPYR-CHEK       VALUE `LYR.100`.
                88 (KQDTS)-REQ-FUNC-DAYS-IN-MON       VALUE `DIM.100`.
                88 (KQDTS)-REQ-FUNC-ADD-DT-TIME       VALUE `ADT.100`.
                88 (KQDTS)-REQ-FUNC-SUB-DT-TIME       VALUE `SDT.100`.
                88 (KQDTS)-REQ-FUNC-DIF-DT-TIME       VALUE `DDT.100`.
    07  (KQDTS)-IN-FUTURE-USE-00                    PIC X(5).
    07  (KQDTS)-IN-NUM-DATES PASSED                 PIC 9.
        88 (KQDTS)-NUM-OF-DATES                         VALUE 1 THRU 5.
    07  (KQDTS)-IN-FUTURE-USE-01              PIC X(50).
    07  (KQDTS)-IN-DATE-TIME               OCCURS 5 TIMES.
        10 (KQDTS)-IN-DATE FORMAT             PIC X(05).
            88 (KQDTS)-YYMMDD                     VALUE `YMD        `
            88 (KQDTS)-CCYYMMDD                   VALUE `CYMD       `
            88 (KQDTS)-ADAT                       VALUE `ADAT       `
            88 (KQDTS)-ADAD                       VALUE `ADAD       `
            88 (KQDTS)-YYDDD                      VALUE `5JJ        `
            88 (KQDTS)-YYMM                       VALUE `YM         `
            88 (KQDTS)-MMDDYY                     VALUE `MDY        `
            88 (KQDTS)-DDMMYY                     VALUE `DMY        `
            88 (KQDTS)-YEAR                       VALUE `YEAR       `
            88 (KQDTS)-S-YYMMDD                   VALUE `SYMD       `
            88 (KQDTS)-S-MMDDYY                   VALUE `SMDY       `
            88 (KQDTS)-S-DDMMYY                   VALUE `SDMY       `
            88 (KQDTS)-MMDDCCYY                   VALUE `MDCY       `
            88 (KQDTS)-DDMMCCYY                   VALUE `DMCY       `
            88 (KQDTS)-S-CCYYMMDD                 VALUE `SCYMD      `
            88 (KQDTS)-S-MMDDCCYY                 VALUE `SMDCY      `
            88 (KQDTS)-S-DDMMCCYY                 VALUE `SDMCY      `
            88 (KQDTS)-S-YYMM                     VALUE `SYM        `
            88 (KQDTS)-S-YYDDD                    VALUE `55JJ       `
            88 (KQDTS)-S-CCYYDDD                  VALUE `57JJ       `
            88 (KQDTS)-S-CCYYMM                   VALUE `SCYM       `
            88 (KQDTS)-CCYYDDD                    VALUE `7JJ        `
            88 (KQDTS)-CCYYMM                     VALUE `CYM        `
            88 (KQDTS)-CHARACTER                  VALUE `CHAR       `
        10 (KQDTS)-IN-DATE-TIME-RC            PIC 9(03).
        10 (KQDTS)-IN-DATE                    PIC X(20)       JUST
                                                  RIGHT
        10 (KQDTS)-IN-TIME                    PIC X(12).
        10 FILLER REDEFINES                         (KQDTS)-IN-TIME.
            12 (KQDTS)-IN-HOUR                 PIC 9(02).
            12 (KQDTS)-IN-MIN                  PIC 9(02).
            12 (KQDTS)-IN-SEC                  PIC 9(02).
            12 (KQDTS)-IN-MILLI-SEC            PIC 9(03).
            12 (KQDTS)-IN-FUTURE-SEC           PIC 9(03).
        10 FILLER REDEFINES                         (KQDTS)-IN-TIME.
            12 (KQDTS)-IN-HHHMMSS              PIC 9(06).
            12 FILLER                          PIC 9(06).
        10 FILLER REDEFINES                         (KQDTS)-IN-TIME.
            12 (KQDTS)-IN-HHHMMSSTEN           PIC 9(07).
            12 FILLER                          PIC9 (05).
        10 FILLER REDEFINES                         (KQDTS)-IN-TIME.
            12 (KQDTS)-IN-HHHMMSSHUN              PIC 9(08).
            12 FILLER                             PIC9(04).
        10 FILLER REDEFINES                         (KQDTS)-IN-TIME.
            12 (KQDTS)-IN-HHHMMSSMIL           PIC 9(09).
            12 FILLER                          PIC9(03).
        07 (KQDTS)-IN-TIME-FOR-CALC               PIC 9(09).
        07 FILLER REDEFINES      (KQDTS)-IN-TIME-FOR-CALC.
            10 (KQDTS)-IN-DAYS-FOR-CALC           PIC 9(09).
        07 (KQDTS)-IN-TIME-FLAG-CALC          PIC X.
            88 (KQDTS)-HR-PARM                      VALUE `H`.
            88 (KQDTS)-MM-PARM                      VALUE `M`.
            88 (KQDTS)-SS-PARM                      VALUE `S`.
        07 (KQDTS)-IN-FUTURE-USE-02           PIC X(40).
    *------------------------------------------------------------------------
            OUTPUT BLOCK FOR THE CALLING PROGRAM
    *------------------------------------------------------------------------
    05  (KQDTS)-OUT-DATA.
        07 (KQDTS)-OUT-DIFFERENCE-IN-DAYS     PIC 9(05).
        07 (KQDTS)-OUT-DAYS-IN-MONTH          PIC 9(02).
            88 (KQDTS)-DIM                        VALUE 1 THRU 31.
        07 (KQDTS)-OUT-LEAP-YEAR-FLAG         PIC X.
            88 (KQDTS)-LEAP-YEAR                  VALUE `Y`.
            88 (KQDTS) -NON-LEAP-YEAR             VALUE `N`.
        07 (KQDTS)-OUT-VALIDATE-FLAG          PIC X.
            88 (KQDTS)-VALIDATION-PASS            VALUE `Y`.
            88 (KQDTS)-VALIDATION-FAIL            VALUE `N`.
        07 (KQDTS)-OUT-COMPARE-FLAG           PIC X.
            88 (KQDTS)-FIRST-DATE-GREATER         VALUE `>`.
            88 (KQDTS)-FIRST-DATE-LESSER          VALUE `<`.
            88 (KQDTS)-DATES-ARE-EQUAL            VALUE `=`.
        07 (KQDTS)-OUT-DAY-OF-WEEK            PIC X.
            88 (KQDTS)-SUNDAY                     VALUE `1`.
            88 (KQDTS)-MONDAY                     VALUE `2`.
            88 (KQDTS)-TUESDAY                    VALUE `3`.
            88 (KQDTS)-WEDNESDAY                  VALUE `4`.
            88 (KQDTS)-THURSDAY                   VALUE `5.`
            88 (KQDTS)-FRIDAY                     VALUE `6`.
            88 (KQDTS)-SATURDAY                   VALUE `7`.
        07 (KQDTS)-OUT-CURRENT-ABSTIME                  PIC 9(15).
        07 (KQDTS)-OUT-CURRENT-DTM.
                10 (KQDTS)-OUT-CURRENT-DATE-JUL         PIC 9(07).
                10 FILLER REDEFINES    (KQDTS)-OUT-CURRENT-DATE-JUL.
                    12 (KQDTS)-OUT-CURR-CCYY     PIC 9(04).
                    12 (KQDTS)-OUT-CURR-DDD      PIC 9(03).
            10 (KQDTS)-OUT-CURRENT-DATE        PIC 9(08).
            10 FILLER REDEFINES        (KQDTS)-OUT-CURRENT-DATE.
                12 (KQDTS)-CURRENT-CCYY        PIC 9(04).
                12 (KQDTS)-CURRENT-MM          PIC 9(02).
                12 (KQDTS)-CURRENT-DD          PIC 9(02).
            10 (KQDTS)-OUT-CURRENT-TIME        PIC 9(12).
            10 FILLER REDEFINES                (KQDTS)-OUT-CURRENT-TIME.
            12 (KQDTS)-OUT-CURR-HR             PIC 9(02).
            12 (KQDTS)-OUT-CURR-MIN            PIC 9(02).
            12 (KQDTS)-OUT-CURR-SEC            PIC 9(02).
            12 (KQDTS)-OUT-CURR-MILLISEC       PIC 9(03).
            12 FILLER                          PIC 9(03).
            10 FILLER REDEFINES    (KQDTS)-OUT-CURRENT-TIME.
                12 (KQDTS)-OUT-CURR-HHMMSSMIL               PIC 9(09).
                12 FILLER                                   PIC 9(03).
            10 FILLER REDEFINES    (KQDTS)-OUT-CURRENT-TIME.
                12 (KQDTS)-OUT-CURR-HHMMSSHUN               PIC 9(08).
                12 FILLER                                   PIC 9(04).
            10 FILLER REDEFINES    (KQDTS)-OUT-CURRENT-TIME.
                12 (KQDTS)-OUT-CURR-HHMMSSTEN               PIC 9(07).
                12 FILLER                                   PIC 9(05).
            10 FILLER REDEFINES      (KQDTS)-OUT-CURRENT-TIME.
                12 (KQDTS)-OUT-CURR-HHMMSS     PIC 9(06).
                12 FILLER                      PIC 9(06).
        07 (KQDTS)-OUT-FUTURE-USE-01          PIC X(65).
        07 (KQDTS)-OUT-DATE-TIME     OCCURS 5 TIMES.
            10 (KQDTS)-OUT-DATE                PIC 9(08).
            10 FILLER REDEFINES      (KQDTS)-OUT-DATE.
                12 (KQDTS)-OUT-CCYYMMDD        PIC 9(08).
            10 FILLER REDEFINES        (KQDTS)-OUT-DATE.
                12 (KQDTS)-OUT-CCYYMM          PIC 9(06).
                12 FILLER                      PIC 9(02).
            10 FILLER REDEFINES        (KQDT S)-OUT-DATE.
                12 (KQDTS)-OUT-CCYY            PIC 9(04).
                12 FILLER                      PIC 9(04).
            10 FILLER REDEFINES        (KQDTS)-OUT-DATE.
                12 FILLER                      PIC 9(01).
            12 (KQDTS)-OUT-JULIAN-CCYYDDD      PIC 9(07).
            10 (KQDTS)-OUT-TIME                PIC 9(12).
            10 FILLER REDEFINES        (KQDTS)-OUT-TIME.
                12 (KQDTS)-OUT-HOUR            PIC 9(02).
                12 (KQDTS)-OUT-MIN             PIC 9(02).
                12 (KQDTS)-OUT-SEC             PIC 9(02).
                12 (KQDTS)-OUT-MILLISEC        PIC 9(03).
                12 (KQDTS)-OUT-FUTURE-SEC      PIC 9(03).
            10 FILLER REDEFINES        (KQDTS)-OUT-TIME.
                12 (KQDTS)-OUT-HHMMSSMIL       PIC 9(09).
                12 FILLER                      PIC 9(03).
            10 FILLER REDEFINES        (KQDTS)-OUT-TIME.
                12 (KQDTS)-OUT-HHMMSSHUN       PIC 9(08).
                12 FILLER                      PIC 9(04).
            10 FILLER REDEFINES        (KQDTS)-OUT-TIME.
                12 (KQDTS)-OUT-HHMMSSTEN       PIC 9(07).
                12 FILLER                      PIC 9(05).
            10 FILLER REDEFINES        (KQDTS)-OUT-TIME.
                12 (KQDTS)-OUT-HHMMSS          PIC 9(06).
                12 FILLER                      PIC 9(06).
            10 (KQDTS)-OUT-D-FORMAT            PIC 9(07).
            10 (KQDTS)-OUT-T-FORMAT            PIC 9(13).
        07 (KQDTS)-OUT-FUTURE-USE-02          PIC X(46).
    01 (R)-INFORMATION.
            10 (R)-BLOCK-DATA.
                15 (R)-BLOCK.
                    88 (R)-BLOCK-ID
                                       VALUE `KQSEBVCCV01.00`.
                    20 (R)-BLOCK-NAME          PIC X(008)
                                       VALUE `KQSEBVCC`.
                       88 (R)-BLOCK-NAME-ID
                                       VALUE `KQSEBVCC`.
                    20 (R)-BLOCK-VER           PIC X(006)
                                       VALUE `V01.001`.
                    88 (R)-BLOCK-VER-ID    VALUE `V01.00`.
            15 (R)-BLOCK-LEN                   PIC 9(008)
                                               VALUE 452.
                88 (R)-BLOCK-LENGTH
                                              VALUE 452.
            15 (R)-BLOCK-FILLER      PIC X(015).
        10 (R)-CD-DATA.
            15 (R)-CD-SEVERITY.
                20 (R)-CD-SEVERITY-SIGN        PIC X(001).
                    88 (R)-CD-SEVERITY-PLUS
                                                  VALUE `+`
                    88 (R)-CD-SEVERITY-MINUS
                                                  VALUE `-`
                20 (R)-CD-SEVERITY-VAL         PIC 9(002).
                    88 (R)-CD-SEVERITY-NONE
                                                  VALUE 0.
                    88 (R)-CD-SEVERITY-INFORM
                                                  VALUE 4.
                    88 (R)-CD-SEVERITY-WARNING
                                                  VALUE 8.
                    88 (R)-CD-SEVERITY-FATAL
                                                  VALUE 12.
                    88 (R)-CD-SEVERITY-MAJOR
                                                  VALUE 16.
            15 (R)-CD-RESPONSE.
                20 (R)-CD-RESPONSE-SIGN        PIC X(001).
                    88 (R)-CD-RESPONSE-PLUS
                                                  VALUE `+` `
                    88 (R)-CD-RESPONSE-MINUS
                                                  VALUE `-`
                20 (R)-CD-RESPONSE-VAL         PIC 9(008).
            15 (R)-CD-SUPP.
                20 (R)-CD-SUPP-SIGN            PIC X(001).
                    88 (R)-CD-SUPP-PLUS
                                                  VALUE `+` `
                    88 (R)-CD-SUPP-MINUS
                                                  VALUE `-`
                20 (R)-CD-SUPP-VAL             PIC 9(008).
            15 (R)-CD-FILLER                   PIC X(015).

• Inventors
  Franklin, Jr., Robert Wayne; Looper, James Allen; Rogers, John M.; Tramble, Arnold E.;
• Assignee
  MCI Communications Corporation (Washington, DC)
• Published
  Nov-13-2001
• Current US Classes:
  707/101
  717/124
• Application #
  080645
• International Classes
  G06F 017/30
• Field of Search
  707/8 707/101 707/201 707/1 395/704 395/705 717/4
• Examiner
  Alam; Hosain T.
• US Patent References:
  5640550
  5852824
  5970247
  5978809
  6002873
  6003028