midrange.com code scratchpad |
Name:
FIND-DURATION
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
07/09/2009 10:59:08 pm
|
IP:
Logged
|
|
Description:
COBOL ILE FUNCTION FIND-DURATION returns a value of 100 when expecting a value of 1. This is running on OS/400 V5R3M0.
|
Code:
- PROCESS APOST TIMESTAMP DATETIME.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. FINDDUR.
- AUTHOR. PLA.
- DATE-WRITTEN. 07/09/2009.
- *
- * Find duration test.
- *
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SOURCE-COMPUTER. AS400.
- OBJECT-COMPUTER. AS400.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
-
- DATA DIVISION.
- FILE SECTION.
-
- WORKING-STORAGE SECTION.
- 01 X PIC 9(09).
- 01 WS-FR-TIMESTAMP FORMAT TIMESTAMP.
- 01 WS-TO-TIMESTAMP FORMAT TIMESTAMP.
-
- PROCEDURE DIVISION.
-
- OPENING-PARAGRAPH.
- MOVE '2008-07-08-10.00.00.000000' TO
- WS-FR-TIMESTAMP.
- MOVE '2009-07-08-10.00.00.000000' TO
- WS-TO-TIMESTAMP.
- COMPUTE X = FUNCTION FIND-DURATION
- (WS-FR-TIMESTAMP WS-TO-TIMESTAMP YEARS).
- DISPLAY X.
-
|
|
|