fork download
copy 
  1. IDENTIFICATION DIVISION.                                         00010000
  2.        PROGRAM-ID. PRG.                                                 00020000
  3.        ENVIRONMENT DIVISION.                                            00030000
  4.        DATA DIVISION.                                                   00040000
  5.        WORKING-STORAGE SECTION.                                         00050000
  6.        01 WS-LSD PIC X(10).                                             00060000
  7.        01 WS-LED PIC X(10).                                             00070004
  8.        01 WS-MC1 PIC 9(4).                                              00070205
  9.        01 WS-MC PIC 9(4).                                               00070305
  10.        01 WS-YYY PIC 9(4).                                              00070406
  11.        01 WS-MONTH-DAYS PIC 9(2).                                       00070505
  12.        01 WS-DATEDIFF.                                                  00071000
  13.           02 WS-DD PIC 9(2).                                            00072000
  14.           02 WS-MM PIC 9(2).                                            00073000
  15.           02 WS-YY PIC 9(4).                                            00074000
  16.        01 WS-DATEDIFF1.                                                 00075001
  17.           02 WS-DD1 PIC 9(2).                                           00075101
  18.           02 WS-MM1 PIC 9(2).                                           00075201
  19.           02 WS-YY1 PIC 9(4).                                           00075301
  20.        01 WS-DATEDIFF2 PIC 9(4).                                        00076005
  21.        01 WS-DATEDIFF3 PIC 9(4).                                        00076105
  22.        01 WS-VAR PIC 9(2).                                    
  23.        01 WS-VAR1 PIC 9(4).
  24.  
  25.        01 WS-DATEDIFF4 PIC 9(4).                                        00079005
  26.        PROCEDURE DIVISION.                                              00080000
  27.                 MOVE '29/02/2012' TO WS-LSD                             00081005
  28.                 MOVE '08/03/2012' TO WS-LED                             00082005
  29.                 MOVE WS-LSD(1:2) TO WS-DD                               00090005
  30.                 MOVE WS-LED(1:2) TO WS-DD1                              00091001
  31.                 DISPLAY 'WS-DD:' WS-DD                                  00091105
  32.                 DISPLAY 'WS-DD1:' WS-DD1                                00091205
  33.                 MOVE WS-LSD(4:2) TO WS-MM                               00091305
  34.                 MOVE WS-LED(4:2) TO WS-MM1                              00091405
  35.                 DISPLAY 'WS-MM:' WS-MM                                  00091505
  36.                 DISPLAY 'WS-MM1:' WS-MM1                                00091605
  37.                 MOVE WS-LSD(7:4) TO WS-YY                               00091706
  38.                 MOVE WS-LED(7:4) TO WS-YY1                              00091806
  39.                 DISPLAY 'WS-YY:' WS-YY                                  00091906
  40.                 DISPLAY 'WS-YY1:' WS-YY1                                00092006
  41.                 PERFORM PRGM-PARA THRU PRGM-PARA-EXIT.                  00092105
  42.                 STOP RUN.                                               00092205
  43.        PRGM-PARA.                                                       00092305
  44.                IF (WS-MM = WS-MM1)                                      00092405
  45.                  SUBTRACT WS-DD FROM WS-DD1 GIVING WS-DATEDIFF2         00092505
  46.                  ADD 1 TO WS-DATEDIFF2 GIVING WS-DATEDIFF4              00092605
  47.                  DISPLAY WS-DATEDIFF4                                   00092705
  48.                ELSE
  49.                  DIVIDE WS-YY BY 4 GIVING WS-VAR1 REMAINDER WS-VAR
  50.                  PERFORM MONTH-DAYS THRU MONTH-DAYS-EXIT                00093005
  51.                  MOVE WS-MONTH-DAYS TO WS-MC                            00093105
  52.                  DISPLAY 'WS-MC:' WS-MC                                 00093205
  53.                  SUBTRACT WS-DD FROM WS-MC GIVING WS-MC1                00093305
  54.                  DISPLAY 'WS-MC1:' WS-MC1                               00093405
  55.                  ADD WS-MC1 TO WS-DD1 GIVING WS-DATEDIFF3                
  56.                  DISPLAY 'THE DATE DIFFRANCE IS:' WS-DATEDIFF3          00093606
  57.                  PERFORM YEAR-PARA THRU YEAR-PARA-EXIT                  00093706
  58.                  END-IF.                                                00104105
  59.        PRGM-PARA-EXIT.                                                  00104205
  60.                  EXIT.                                                   00104305
  61.        YEAR-PARA.
  62.                 IF WS-DATEDIFF3 <=5                   
  63.                   IF WS-YY1 = WS-YY                                       00105406
  64.                     DISPLAY 'LEAVE APPROVED SUCCESFUL'                    00105506
  65.                   ELSE
  66.                     DISPLAY 'U CAN APPLY LEAVE FOR THIS YEAR ONLY'
  67.                   END-IF
  68.                 ELSE
  69.                   DISPLAY 'LEAVE CANNOT BE APPROVED'
  70.                 END-IF.                                                 
  71.        YEAR-PARA-EXIT.                                                
  72.                 EXIT.                                    
  73.        MONTH-DAYS.                                                      00107005
  74.                  EVALUATE WS-MM                                         00107105
  75.                  WHEN 01                                                00107205
  76.                    MOVE 31 TO WS-MONTH-DAYS
  77.                  WHEN 02                                                   
  78.                    IF (WS-VAR = 0)                                        
  79.                     MOVE 29 TO WS-MONTH-DAYS                            
  80.                    ELSE                                                    
  81.                     MOVE 28 TO WS-MONTH-DAYS                             
  82.                    END-IF  
  83.                  WHEN 03                                                00109605
  84.                    MOVE 31 TO WS-MONTH-DAYS                             00109703
  85.                  WHEN 04                                                00109805
  86.                    MOVE 30 TO WS-MONTH-DAYS                             00109903
  87.                  WHEN 05                                                00110005
  88.                    MOVE 31 TO WS-MONTH-DAYS                             00111003
  89.                  WHEN 06                                                00112005
  90.                    MOVE 30 TO WS-MONTH-DAYS                             00113003
  91.                  WHEN 07                                                00114005
  92.                    MOVE 31 TO WS-MONTH-DAYS                             00115003
  93.                  WHEN 08                                                00116005
  94.                    MOVE 31 TO WS-MONTH-DAYS                             00117003
  95.                  WHEN 09                                                00118003
  96.                    MOVE 30 TO WS-MONTH-DAYS                             00119005
  97.                  WHEN 10                                                00119105
  98.                    MOVE 31 TO WS-MONTH-DAYS                             00119205
  99.                  WHEN 11                                                00119305
  100.                    MOVE 30 TO WS-MONTH-DAYS                             00119405
  101.                  WHEN 12                                                00119505
  102.                    MOVE 31 TO WS-MONTH-DAYS                             00119605
  103.                  WHEN OTHER                                             00119705
  104.                    DISPLAY 'ENTER VALID DATE'                           00119805
  105.                  END-EVALUATE.                                          00120005
  106.        MONTH-DAYS-EXIT.                                                 00121005
  107.                EXIT.
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
prog.cob:1: Warning: Invalid indicator 'F' at column 7
prog.cob:106: Warning: File not terminated by a newline
prog.cob:1: Error: syntax error, unexpected WORD, expecting PROGRAM_ID
stdout
copy 
Standard output is empty
https://ideone.com/1fDD5
language:
Cobol (gnucobol 2.2.0)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!