Date Difference in Mainframe COBOL - General Programs Source Code in COBOL

Special : Web Developer's Collection CD-ROM
50,000+ Web Templates, Logos, Cliparts, Scripts. Order Now!

Add to Favorites Make Home Page

2454 Online

Language Categories

Source Codes Home
Project Ideas New!
Interview Questions
FAQs Home
ASP Home: ASP Source Codes; ASP Script Directory New!; ASP .Net Script Directory New!; ASP Interview Questions; ASP FAQs; ASP How Tos
C Home: C Source Codes; C Script Directory New!; C Interview Questions; C FAQs; C How Tos
C++ Home: C++ Source Codes; C++ Script Directory New!; C++ Interview Questions; C++ FAQs; C++ How Tos
Java Home: Java Source Codes; Java Directory New!; Java Interview Questions; Java FAQs; Java How Tos
JavaScript Home: JavaScript Directory New!; JavaScript Source Codes; JavaScript FAQs; JavaScript How Tos
COBOL Home: COBOL Source Codes; COBOL FAQs; COBOL How Tos
Pascal Home: Pascal Source Codes; Pascal FAQs; Pascal How Tos
PHP Script Directory New!
Python Script Directory New!
Perl & CGI Script Directory New!
Flash Script Directory New!
CFML Script Directory New!
Remotely Hosted Scripts New!
Tools & Utilities Directory New!
XML Script Directory New!
Best Programmers: Amit Mathur; Vishal Bhardwaj; Deepesh Jain
Vyom NetWork

Our Services

Get 9,000 Interview Questions & Answers in an eBook.

9500+ Pages
9000 Question & Answers
All Tech. Categories

14 MB Content

Get it now !!

Home » COBOL Home » General Programs Home » Date Difference in Mainframe COBOL

A D V E R T I S E M E N T

Title	Date Difference in Mainframe COBOL
Author	Muruganandham
Author Email	binarybreeze82 [at] yahoo.co.in
Description	This program finds the difference between two dates given from the JCL.
Category	COBOL » General Programs
Hits	391003
Code	Select and Copy the Code
IDENTIFICATION DIVISION. 00010000 PROGRAM-ID. CDATEC. 00020000 00021000 DATA DIVISION. 00030000 00031000 WORKING-STORAGE SECTION. 00040000 00041000 01 YR PIC 9999. 00050000 00051000 01 YR1 PIC 9999. 00060000 00060100 01 YR2 PIC 9999. 00061000 00062000 01 MON PIC 99. 00070000 00071000 01 MON1 PIC 99. 00080000 00080100 01 MON2 PIC 99. 00081000 00082000 01 D1 PIC 99. 00090000 00091000 01 D2 PIC 99. 00100000 00101000 01 QU1 PIC 99. 00110000 00111000 01 REM1 PIC 99. 00120000 00121000 01 REM2 PIC 99. 00130000 00131000 01 REM3 PIC 99. 00140000 00141001 01 T PIC 99999999. 00150000 00150101 01 T1 PIC 99999999. 00151000 00151101 01 T2 PIC 99999999. 00152000 00153001 PROCEDURE DIVISION. 00160000 00161001 MAINP. 00170000 ACCEPT YR1. 00180000 ACCEPT YR2. 00190000 ACCEPT MON1. 00200000 ACCEPT MON2. 00210000 ACCEPT D1. 00220000 ACCEPT D2. 00230000 00240001 PERFORM LP-PARA VARYING YR FROM 1900 BY 1 UNTIL YR = YR1. 00270000 PERFORM MN-PARA VARYING MON FROM 1 BY 1 UNTIL MON = MON1. 00280000 00281001 MOVE T TO T1. 00290000 COMPUTE T1 = T1 + D1. 00290100 MOVE 0 TO T. 00291000 00292001 PERFORM LP-PARA VARYING YR FROM 1900 BY 1 UNTIL YR = YR2. 00330000 PERFORM MN-PARA VARYING MON FROM 1 BY 1 UNTIL MON = MON2. 00340000 00341001 MOVE T TO T2. 00350000 COMPUTE T2 = T2 + D2. 00350100 COMPUTE T = T2 - T1. 00351000 00352001 DISPLAY "THE DIFFERENCE BETWEEN DATES: ". 00360000 DISPLAY D1 "/" MON1 "/" YR1 " & " D2 "/" MON2 "/" YR2 " IS ".00361000 DISPLAY T. 00362000 STOP RUN. 00370000 00371001 LP-PARA. 00380000 DIVIDE YR BY 400 GIVING QU1 REMAINDER REM1. 00381000 DIVIDE YR BY 100 GIVING QU1 REMAINDER REM2. 00382000 DIVIDE YR BY 4 GIVING QU1 REMAINDER REM3. 00383000 IF REM1 = 0 OR ( REM2 IS NOT = 0 AND REM3 = 0 ) THEN 00390000 COMPUTE T = T + 366 00400000 ELSE 00410000 COMPUTE T = T + 365 00420000 END-IF. 00430000 00431001 MN-PARA. 00440000 DIVIDE YR BY 400 GIVING QU1 REMAINDER REM1. 00441000 DIVIDE YR BY 100 GIVING QU1 REMAINDER REM2. 00442000 DIVIDE YR BY 4 GIVING QU1 REMAINDER REM3. 00443000 IF MON = 1 OR MON = 3 OR MON = 5 OR MON = 7 OR MON = 8 00450000 OR MON = 10 OR MON = 12 THEN 00460000 COMPUTE T = T + 31 00470000 ELSE IF MON = 4 OR MON = 6 OR MON = 9 OR MON = 11 THEN 00480000 COMPUTE T = T + 30 00490000 ELSE IF REM1 = 0 OR ( REM2 IS NOT = 0 AND REM3 = 0 ) THEN 00500000 COMPUTE T = T + 29 00510000 ELSE 00520000 COMPUTE T = T + 28 00530000 END-IF. 00540000

Related Source Codes

Script Name Author

sandeep kumar singh

COBOL ON-SCREEN CALCULATOR (Mini Project) Stephen Rendell

Learn Cobol in a Day C.KUMARESAN

my atm (Mini Project) sandeep kumar singh

Merge Two Files. Rakshith

Naveen Chandran P.K

Program of USSR naval stock list Jai Ganesh

PRIME NUMBER Grace Hill

Sequential File - Health Care C.KUMARESAN

Task for the day program. Rama Murthy M

FIBONACCI series Abir Pathak

PRIME NUMBER Grace Hill

Harmonic Series Abir Pathak

Cobol sequential file program. b.s.prakash

Introduction to COBOL. B.S.prakash

A D V E R T I S E M E N T

Google Groups Subscribe to SourceCodesWorld - Techies Talk

Email:

Free eBook - Interview Questions: Get over 1,000 Interview Questions in an eBook for free when you join JobsAssist. Just click on the button below to join JobsAssist and you will immediately receive the Free eBook with thousands of Interview Questions in an ebook when you join.

Free Tutorials - HTML, Java, SQL, PHP, ASP, Perl, SQL Tutorials
Discuss Programming Problems and Freshers Jobs related issues here.
Discuss Final Year Project Ideas here.

Advertisements

L I N K S

Jobs & Career: Freshers Jobs; Jobs Newsletter; Placement Papers; Placement Papers
GATE Preparation: Analysis & Design Of Algo.; Operating System; Lexical Analysis
GRE Preparation: GRE Home; 1208 Antonyms Test; 5000 Word's List; Top 100 Words' List; Scholarships; Top 100 CS Univ.; Top 126 EE Univ.
Tutorials: Hardware Tutorial; 1500 Free eBooks; XML Tutorial
Webmaster Resources: EzTraffic; Articles
Fun: Send FREE SMS!; SMS Jokes; Love SMS; Funny Jokes

Google Search

Source Codes World.com is a part of Vyom Network.

Sitemap | Privacy Policy | Terms and Conditions | Important Websites
Copyright ©2003-2024 SourceCodesWorld.com, All Rights Reserved.
Page URL: http://www.sourcecodesworld.com/source/show.asp?ScriptId=603