Program to generate Telephone Bill. - COBOL Projects 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

14354 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 » COBOL Projects Home » Program to generate Telephone Bill.

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

Title	Program to generate Telephone Bill.
Description
Category	COBOL » COBOL Projects
Hits	386024
Code	Select and Copy the Code
IDENTIFICATION DIVISION. PROGRAM-ID. Q14. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. IBM PC. OBJECT-COMPUTER. IBM PC. INPUT-OUTPUT SECTION. SELECT CUSTOMER-REC-FILE ASSIGN TO "CUST_REC.DAT" ORGANIZATION IS SEQUENTIAL. SELECT OUT-FILE ASSIGN TO "TELBILL.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-TELNO 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 " AIRTEL TELEPHONE SERVICE ---- BHARTI TELENET LTD.". 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 " TELEPHONE CHARGES FOR THE MONTH ". 02 BILL-MONTH PIC X(10). 01 OUT-FORMAT. 02 CUST-NAME PIC A(15). 02 PHONE-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 \| TEL 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). 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 TELEPHONE 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-TELNO TO PHONE-NO. FOOTER-PARA. WRITE OUT-REC FROM ISSUE-DATE-LINE. WRITE OUT-REC FROM FOOTER-LINE. MOVE "15 DAYS FROM THE DATE OF ISSUE OF BILL." TO OUT-REC. CALC-PARA. PERFORM HEADER-PARA. 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-TELNO TO PHONE-NO . IF IN-METERED-PULSES < 75 COMPUTE BILL-DUE = 250.00 ELSE MOVE IN-METERED-PULSES TO PULSES. COMPUTE CHARGES = 250.00 + ( PULSES - 75 ) * 0.8 . 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.

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