Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- IDENTIFICATION DIVISION.
- PROGRAM-ID. DATE-CONVERSION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 T PIC 9(8).
- 01 U PIC 9(8).
- 01 D VALUE '999999'.
- 05 P PIC 9(2).
- 05 Q PIC 9(2).
- 05 R PIC 9(2).
- 01 F.
- 05 Y PIC 9(4).
- 05 M PIC 9(2).
- 05 D PIC 9(2).
- PROCEDURE DIVISION.
- IF Q OF D > 12 THEN
- MOVE FUNCTION INTEGER-OF-DATE(20000101) TO T
- COMPUTE U = R OF D + 100 * ((Q OF D - 13) + 87 * P OF D) + T
- MOVE FUNCTION DATE-OF-INTEGER(U) TO F
- DISPLAY "Date: " Y OF F "-" M OF F "-" D OF F
- ELSE
- DISPLAY "Date: 19" P OF D "-" Q OF D "-" R OF D
- END-IF.
- STOP RUN.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement