Program to display english-language equivalent of an i/p number.

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

Add to Favorites Make Home Page

14363 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 » Program to display english-language equivalent of an i/p number.

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

Title	Program to display english-language equivalent of an i/p number.
Description
Category	COBOL » General Programs
Hits	380952
Code	Select and Copy the Code
IDENTIFICATION DIVISION. PROGRAM-ID. Q11. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. IBM PC. OBJECT-COMPUTER. IBM PC. INPUT-OUTPUT SECTION. DATA DIVISION. FILE SECTION. WORKING-STORAGE SECTION. 01 NUM-FORMAT. 02 UNITS PIC X(6) VALUE SPACES. 02 TENS PIC X(9) VALUE SPACES. 02 HUNDREDS PIC X(15) VALUE SPACES. 02 THOUSANDS PIC X(15) VALUE SPACES. 02 TEN-THOUSANDS PIC X(10) VALUE SPACES. 02 LAKHS PIC X(15) VALUE SPACES. 02 TEN-LAKHS PIC X(10) VALUE SPACES. 02 CRORES PIC X(15) VALUE SPACES. * 02 DIGITS PIC X(15) OCCURS 8 TIMES. 77 NUM PIC 9(8). 77 NUM1 PIC 9(8). 77 REM PIC 9. 77 REM1 PIC 9. PROCEDURE DIVISION. MAIN-PARA. DISPLAY "ENTER ANY NUMBER UPTO 8 DIGITS" ACCEPT NUM. MOVE NUM TO NUM1. PERFORM CONVERTER-PARA. EXIT-PARA. STOP RUN. CONVERTER-PARA. COMPUTE REM = ( NUM1 / 10 ) * 10. COMPUTE NUM1 = NUM1 / 10 . COMPUTE REM1 = ( NUM1 / 10 ) * 10. COMPUTE NUM1 = NUM1 /10 . IF REM1 = 1 IF REM =0 MOVE "TEN" TO TENS ELSE IF REM = 1 MOVE "ELEVEN" TO TENS ELSE IF REM = 2 MOVE "TWELVE" TO TENS ELSE IF REM = 3 MOVE "THIRTEEN" TO TENS ELSE IF REM= 4 MOVE "FOURTEEN" TO TENS ELSE IF REM = 5 MOVE "FIFTEEN" TO TENS ELSE IF REM = 6 MOVE "SIXTEEN" TO TENS ELSE IF REM = 7 MOVE "SEVENTEEN" TO TENS ELSE IF REM= 8 MOVE "EIGHTEEN" TO TENS ELSE IF REM = 9 MOVE "NINETEEN" TO TENS ELSE ELSE IF REM = 0 MOVE "ZERO" TO UNITS ELSE IF REM = 1 MOVE "ONE" TO UNITS ELSE IF REM = 2 MOVE "TWO" TO UNITS ELSE IF REM = 3 MOVE "THREE" TO UNITS ELSE IF REM = 4 MOVE "FOUR" TO UNITS ELSE IF REM = 5 MOVE "FIVE" TO UNITS ELSE IF REM = 6 MOVE "SIX" TO UNITS ELSE IF REM = 7 MOVE "SEVEN" TO UNITS ELSE IF REM = 8 MOVE "EIGHT" TO UNITS ELSE IF REM = 9 MOVE "NINE" TO UNITS. IF REM1 = 2 MOVE "TWENTY" TO TENS ELSE IF REM1 = 3 MOVE "THIRTY" TO TENS ELSE IF REM1 = 4 MOVE "FOURTY" TO TENS ELSE IF REM1 = 5 MOVE "FIFTY" TO TENS ELSE IF REM1 = 6 MOVE "SIXTY" TO TENS ELSE IF REM1 = 7 MOVE "SEVENTY" TO TENS ELSE IF REM1 = 8 MOVE "EIGHTTY" TO TENS ELSE IF REM1 = 9 MOVE "NINETY" TO TENS. IF NUM1 = 0 GO TO EXIT-PARA. * FOR HUNDREDTH PLACE COMPUTE REM = ( NUM1 / 10 ) * 10. COMPUTE NUM1 = NUM1 / 10 . IF REM = 0 MOVE SPACES TO HUNDREDS ELSE IF REM = 1 MOVE "ONE HUNDRED" TO HUNDREDS ELSE IF REM = 2 MOVE "TWO HUNDRED" TO HUNDREDS ELSE IF REM = 3 MOVE "THREE HUNDRED" TO HUNDREDS ELSE IF REM = 4 MOVE "FOUR HUNDRED" TO HUNDREDS ELSE IF REM = 5 MOVE "FIVE HUNDRED" TO HUNDREDS ELSE IF REM = 6 MOVE "SIX HUNDRED" TO HUNDREDS ELSE IF REM = 7 MOVE "SEVEN HUNDRED" TO HUNDREDS ELSE IF REM = 8 MOVE "EIGHT HUNDRED" TO HUNDREDS ELSE IF REM = 9 MOVE "NINE HUNDRED" TO HUNDREDS. IF NUM1 = 0 GO TO EXIT-PARA. COMPUTE REM = ( NUM1 / 10 ) * 10. COMPUTE NUM1 = NUM1 /10 . COMPUTE REM1 = ( NUM1 / 10 ) * 10. COMPUTE NUM1 = NUM1 / 10 . IF REM1 = 1 IF REM =0 MOVE "TEN THOUSAND" TO TEN-THOUSANDS ELSE IF REM = 1 MOVE "ELEVEN THOUSAND" TO TEN-THOUSANDS ELSE IF REM = 2 MOVE "TWELVE THOUSAND" TO TEN-THOUSANDS ELSE IF REM = 3 MOVE "THIRTEEN THOUSAND" TO TEN-THOUSANDS ELSE IF REM= 4 MOVE "FOURTEEN THOUSAND" TO TEN-THOUSANDS ELSE IF REM = 5 MOVE "FIFTEEN THOUSAND" TO TEN-THOUSANDS ELSE IF REM = 6 MOVE "SIXTEEN THOUSAND" TO TEN-THOUSANDS ELSE IF REM = 7 MOVE "SEVENTEEN THOUSAND" TO TEN-THOUSANDS ELSE IF REM= 8 MOVE "EIGHTEEN THOUSAND" TO TEN-THOUSANDS ELSE IF REM = 9 MOVE "NINETEEN THOUSAND" TO TEN-THOUSANDS ELSE ELSE IF REM = 1 MOVE "ONE THOUSAND" TO THOUSANDS ELSE IF REM = 2 MOVE "TWO THOUSAND" TO THOUSANDS ELSE IF REM = 3 MOVE "THREE THOUSAND" TO THOUSANDS ELSE IF REM = 4 MOVE "FOUR THOUSAND" TO THOUSANDS ELSE IF REM = 5 MOVE "FIVE THOUSAND" TO THOUSANDS ELSE IF REM = 6 MOVE "SIX THOUSAND" TO THOUSANDS ELSE IF REM = 7 MOVE "SEVEN THOUSAND" TO THOUSANDS ELSE IF REM = 8 MOVE "EIGHT THOUSAND" TO THOUSANDS ELSE IF REM = 9 MOVE "NINE THOUSAND" TO THOUSANDS. IF REM1 = 2 MOVE "TWENTY" TO TENS ELSE IF REM1 = 3 MOVE "THIRTY" TO TENS ELSE IF REM1 = 4 MOVE "FOURTY" TO TENS ELSE IF REM1 = 5 MOVE "FIFTY" TO TENS ELSE IF REM1 = 6 MOVE "SIXTY" TO TENS ELSE IF REM1 = 7 MOVE "SEVENTY" TO TENS ELSE IF REM1 = 8 MOVE "EIGHTTY" TO TENS ELSE IF REM1 = 9 MOVE "NINETY" TO TENS. IF NUM1 = 0 GO TO EXIT-PARA. COMPUTE REM = ( NUM1 / 10 ) * 10. COMPUTE NUM1 = NUM1 /10 . COMPUTE REM1 = ( NUM1 / 10 ) * 10. COMPUTE NUM1 = NUM1 / 10 . IF REM1 = 1 IF REM =0 MOVE "TEN THOUSAND" TO TEN-LACS ELSE IF REM = 1 MOVE "ELEVEN THOUSAND" TO TEN-LACS ELSE IF REM = 2 MOVE "TWELVE THOUSAND" TO TEN-LACS ELSE IF REM = 3 MOVE "THIRTEEN THOUSAND" TO TEN-LACS ELSE IF REM= 4 MOVE "FOURTEEN THOUSAND" TO TEN-LACS ELSE IF REM = 5 MOVE "FIFTEEN THOUSAND" TO TEN-LACS ELSE IF REM = 6 MOVE "SIXTEEN THOUSAND" TO TEN-LACS ELSE IF REM = 7 MOVE "SEVENTEEN THOUSAND" TO TEN-LACS ELSE IF REM= 8 MOVE "EIGHTEEN THOUSAND" TO TEN-LACS ELSE IF REM = 9 MOVE "NINETEEN THOUSAND" TO TEN-LACS ELSE ELSE IF REM = 1 MOVE "ONE THOUSAND" TO LACS ELSE IF REM = 2 MOVE "TWO THOUSAND" TO LACS ELSE IF REM = 3 MOVE "THREE THOUSAND" TO LACS ELSE IF REM = 4 MOVE "FOUR THOUSAND" TO LACS ELSE IF REM = 5 MOVE "FIVE THOUSAND" TO LACS ELSE IF REM = 6 MOVE "SIX THOUSAND" TO LACS ELSE IF REM = 7 MOVE "SEVEN THOUSAND" TO LACS ELSE IF REM = 8 MOVE "EIGHT THOUSAND" TO LACS ELSE IF REM = 9 MOVE "NINE THOUSAND" TO LACS IF REM1 = 2 MOVE "TWENTY" TO TENS ELSE IF REM1 = 3 MOVE "THIRTY" TO TENS ELSE IF REM1 = 4 MOVE "FOURTY" TO TENS ELSE IF REM1 = 5 MOVE "FIFTY" TO TENS ELSE IF REM1 = 6 MOVE "SIXTY" TO TENS ELSE IF REM1 = 7 MOVE "SEVENTY" TO TENS ELSE IF REM1 = 8 MOVE "EIGHTTY" TO TENS ELSE IF REM1 = 9 MOVE "NINETY" TO TENS. **************************************************************************** IF REM = 0 AND I > 1 MOVE "Y" TO EXIT1 GO TO EXIT-PARA. IF I=2 IF REM = 1 MOVE SPACES TO DIGITS(1) IF PREV-DIGIT = 0 MOVE "TEN" TO DIGITS(I) ELSE IF PREV-DIGIT = 1 MOVE "ELEVEN" TO DIGITS(I) ELSE IF PREV-DIGIT = 2 MOVE "TWELVE" TO DIGITS(I) ELSE IF PREV-DIGIT = 3 MOVE "THIRTEEN" TO DIGITS(I) ELSE IF PREV-DIGIT = 4 MOVE "FOURTEEN" TO DIGITS(I) ELSE IF PREV-DIGIT = 5 MOVE "FIFTEEN" TO DIGITS(I) ELSE IF PREV-DIGIT = 6 MOVE "SIXTEEN" TO DIGITS(I) ELSE IF PREV-DIGIT = 7 MOVE "SEVENTEEN" TO DIGITS(I) ELSE IF PREV-DIGIT = 8 MOVE "EIGHTEEN" TO DIGITS(I) ELSE IF PREV-DIGIT = 9 MOVE "NINETEEN" TO DIGITS(I). IF REM = 2 AND I =2 MOVE "TWENTY" TO DIGITS(I) ELSE IF REM = 3 MOVE "THIRTY" TO DIGITS(I) ELSE IF REM = 4 MOVE "FOURTY" TO DIGITS(I) ELSE IF REM = 5 MOVE "FIFTY" TO DIGITS(I) ELSE IF REM = 6 MOVE "SIXTY" TO DIGITS(I) ELSE IF REM = 7 MOVE "SEVENTY" TO DIGITS(I) ELSE IF REM = 8 MOVE "EIGHTTY" TO DIGITS(I) ELSE IF REM = 9 MOVE "NINETY" TO DIGITS(I). IF I IS = 1 IF REM = 0 AND I = 1 MOVE "ZERO" TO DIGITS(I) ELSE IF REM = 1 MOVE "ONE" TO DIGITS(I) ELSE IF REM = 2 MOVE "TWO" TO DIGITS(I) ELSE IF REM = 3 MOVE "THREE" TO DIGITS(I) ELSE IF REM = 4 MOVE "FOUR" TO DIGITS(I) ELSE IF REM = 5 MOVE "FIVE" TO DIGITS(I) ELSE IF REM = 6 MOVE "SIX" TO DIGITS(I) ELSE IF REM = 7 MOVE "SEVEN" TO DIGITS(I) ELSE IF REM = 8 MOVE "EIGHT" TO DIGITS(I) ELSE IF REM = 9 MOVE "NINE" TO DIGITS(I). IF I IS = 3 IF REM = 0 MOVE SPACES TO DIGITS(I) ELSE IF REM = 1 MOVE "ONE HUNDRED" TO DIGITS(I) ELSE IF REM = 2 MOVE "TWO HUNDRED" TO DIGITS(I) ELSE IF REM = 3 MOVE "THREE HUNDRED" TO DIGITS(I) ELSE IF REM = 4 MOVE "FOUR HUNDRED" TO DIGITS(I) ELSE IF REM = 5 MOVE "FIVE HUNDRED" TO DIGITS(I) ELSE IF REM = 6 MOVE "SIX HUNDRED" TO DIGITS(I) ELSE IF REM = 7 MOVE "SEVEN HUNDRED" TO DIGITS(I) ELSE IF REM = 8 MOVE "EIGHT HUNDRED" TO DIGITS(I) ELSE IF REM = 9 MOVE "NINE HUNDRED" TO DIGITS(I). DISPLAY DIGITS(I). MOVE REM TO PREV-DIGIT. ADD 1 TO I. * 02 UNITS PIC X(6) VALUE SPACES. * 02 TENS PIC X(9) VALUE SPACES. * 02 HUNDREDS PIC X(15) VALUE SPACES. * 02 THOUSANDS PIC X(15) VALUE SPACES. * 02 TEN-THOUSANDS PIC X(10) VALUE SPACES. * 02 LAKHS PIC X(15) VALUE SPACES. * 02 TEN-LAKHS PIC X(10) VALUE SPACES. * 02 CRORES PIC X(15) VALUE SPACES.

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.