|
View previous topic :: View next topic
|
| Author |
Message |
VinayCM
New User
Joined: 06 Nov 2007
Posts: 36
Location: Bengaluru
|
|
|
|
In input file i have no of days like 39624 which is equal to 06/26/2008.
I am in search of the code which can convert it in COBOL.
Ex: 39625 is = 06/27/2008. |
|
| Back to top |
|
 |
ashimer
Active Member
Joined: 13 Feb 2004
Posts: 551
Location: Bangalore
|
|
|
|
| How do you conclude that 39624 is equal to 06/26/2008 ? |
|
| Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA
|
|
|
|
| Code: |
01 WS-DATA-FIELDS.
05 WS-1899 PIC 9(07) VALUE 0.
05 WS-CURRENT PIC 9(07) VALUE 39625.
05 WS-CURRDATE PIC 9(07) VALUE 0.
05 WS-CURR-FULL PIC 9(08) VALUE 0.
PROCEDURE DIVISION.
COMPUTE WS-1899 = FUNCTION INTEGER-OF-DATE (18991231).
COMPUTE WS-CURRDATE = WS-1899 + WS-CURRENT.
COMPUTE WS-CURR-FULL =
FUNCTION DATE-OF-INTEGER (WS-CURRDATE) .
DISPLAY WS-CURR-FULL . |
displays 20080627 as output. |
|
| Back to top |
|
|
|
|
