Add to Favorites    Make Home Page 134371 Online  
 Language Categories  
 Our Services  

Home » COBOL Home » COBOL Projects Home » Program to generate Electricity Bill.

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

Search Projects & Source Codes:

Title Program to generate Electricity Bill.
Description
Category COBOL » COBOL Projects
Hits 374466
Code Select and Copy the Code
IDENTIFICATION DIVISION. PROGRAM-ID. Q15. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. IBM PC. OBJECT-COMPUTER. IBM PC. INPUT-OUTPUT SECTION. SELECT CUSTOMER-REC-FILE ASSIGN TO "ELEC_REC.DAT" ORGANIZATION IS SEQUENTIAL. SELECT OUT-FILE ASSIGN TO "ELECBILL.TXT". DATA DIVISION. FILE SECTION. FD CUSTOMER-REC-FILE. 01 IN-REC. 02 IN-CUST-ID PIC 999999. 02 IN-CUST-NAME PIC A(20). 02 IN-CUST-ADDRESS PIC X(30). 02 IN-METERED-PULSES PIC 9(4). 02 IN-MTRNO PIC 9(6). FD OUT-FILE. 01 OUT-REC PIC X(80). WORKING-STORAGE SECTION. 77 EOF PIC X VALUE "N". 77 HEADING1 PIC X(80) VALUE ALL "-". 77 COMPANY-TITLE PIC X(80) VALUE " MADHYA PRADESH ELECTRICITY BOARD, INDORE ". 01 CUST-ID-LINE. 02 F PIC X(18) VALUE "CUSTOMER ID NO.: ". 02 CUST-ID PIC 9(6). 02 F PIC X(37) VALUE " ELECTRICITY CHARGES FOR THE MONTH ". 02 BILL-MONTH PIC X(10). 01 OUT-FORMAT. 02 CUST-NAME PIC A(15). 02 METER-NO PIC ZZ9999. 02 F PIC X(10) VALUE SPACES. 02 METRED-PULSES PIC ***9. 02 F PIC X(10) VALUE SPACES. 02 BILL-DUE PIC ****.**. 02 F PIC X(10) VALUE SPACES. 02 LATE-BILL PIC ****.**. 01 TITLE-LINE. 02 F PIC X(80) VALUE " CUSTOMER NAME | MTR NO | METRED PUL - "SES | NET CHARGES | CHARGES AFTER 15 DAYS *". 01 ISSUE-DATE-LINE. 02 F PIC X(20) VALUE " DATE OF ISSUE : ". 02 CURR-MONTH PIC X(40). 01 FOOTER-LINE. 02 F PIC X(80) VALUE " *: 15 DAYS FROM THE DATE OF ISSUE AS - " STATED ABOVE". 77 CHARGES PIC 9(4)V99. 77 PULSES PIC 9(5). 01 ADDRESS-LINE . 02 F PIC X(10) VALUE "ADDRESS: ". 02 ADDR PIC X(70). PROCEDURE DIVISION. MAIN-PARA. DISPLAY "PLS. ENTER CURRENT DATE". ACCEPT CURR-MONTH . OPEN INPUT CUSTOMER-REC-FILE OUTPUT OUT-FILE. DISPLAY "PLS. ENTER THE MONTH FOR WHICH BILL HAS TO BE GENERATED - ".....(EX. JAN, 2001)". ACCEPT BILL-MONTH. READ CUSTOMER-REC-FILE AT END MOVE "Y" TO EOF. PERFORM CALC-PARA UNTIL EOF = "Y". DISPLAY "THE ELECTRICITY BILL IS GENERATED.". CLOSE CUSTOMER-REC-FILE , OUT-FILE. STOP RUN. HEADER-PARA. WRITE OUT-REC FROM HEADING1 . WRITE OUT-REC FROM COMPANY-TITLE. WRITE OUT-REC FROM HEADING1. MOVE IN-CUST-NAME TO CUST-NAME OF OUT-FORMAT. MOVE IN-MTRNO TO METER-NO. FOOTER-PARA. WRITE OUT-REC FROM ISSUE-DATE-LINE. WRITE OUT-REC FROM FOOTER-LINE. CALC-PARA. PERFORM HEADER-PARA. MOVE IN-CUST-ADDRESS TO ADDR. WRITE OUT-REC FROM ADDRESS-LINE. MOVE IN-CUST-ID TO CUST-ID OF CUST-ID-LINE. WRITE OUT-REC FROM CUST-ID-LINE. WRITE OUT-REC FROM HEADING1. WRITE OUT-REC FROM TITLE-LINE. WRITE OUT-REC FROM HEADING1. MOVE IN-CUST-NAME TO CUST-NAME. MOVE IN-METERED-PULSES TO METRED-PULSES . MOVE IN-MTRNO TO METER-NO . MOVE IN-METERED-PULSES TO PULSES. COMPUTE CHARGES = 5.00 + ( PULSES ) * 1.5 . MOVE CHARGES TO BILL-DUE. COMPUTE CHARGES = CHARGES + CHARGES * 0.10. MOVE CHARGES TO LATE-BILL. WRITE OUT-REC FROM OUT-FORMAT . PERFORM FOOTER-PARA. DISPLAY IN-CUST-NAME. WRITE OUT-REC FROM HEADING1 AFTER ADVANCING PAGE. READ CUSTOMER-REC-FILE AT END MOVE "Y" TO EOF.

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
Date Difference in Mainframe COBOL Muruganandham
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

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.

New! Click here to Add your Code!


ASP Home | C Home | C++ Home | COBOL Home | Java Home | Pascal Home
Source Codes Home Page

 Advertisements  

Google Search

Google

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

Vyom Network : Web Hosting | Dedicated Server | Free SMS, GRE, GMAT, MBA | Online Exams | Freshers Jobs | Software Downloads | Interview Questions | Jobs, Discussions | Placement Papers | Free eBooks | Free eBooks | Free Business Info | Interview Questions | Free Tutorials | Arabic, French, German | IAS Preparation | Jokes, Songs, Fun | Free Classifieds | Free Recipes | Free Downloads | Bangalore Info | Tech Solutions | Project Outsourcing, Web Hosting | GATE Preparation | MBA Preparation | SAP Info | Software Testing | Google Logo Maker | Freshers Jobs

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=138


Download Yahoo Messenger | Placement Papers | Free SMS | C Interview Questions | C++ Interview Questions | Quick2Host Review