| products/Sources/formale Sprachen/COBOL/verschiedene-Autoren/Judson-McClendon/money/ |
|
Quellcode-Bibliothek© Kompilation durch diese Firma[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]Datei: moneyp.cob Sprache: CobolOriginal von: verschiedene© |
|
||||||
|
******************************************************************
* * * M O N E Y * * * * Judson D. McClendon * * Sun Valley Systems * * 329 37th Court NE * * Birmingham, AL 35215 * * 205/853-8440 * * * * CONVERTS A NUMERIC MONEY AMOUNT INTO ONE OR MORE TEXT * * LINES FOR PRINTING ON CHECKS FOR SECURITY. AMOUNTS UP * * TO $999,999,999,999,999.99 CAN BE CONVERTED. * * * * USAGE: MOVE <AMOUNT> TO MW-AMOUNT. * * PERFORM 005000-MONEY * * THRU 005000-EXIT. * * * * RESULT: MW-MONEY-LINES = TEXT AMOUNT CENTERED ON EACH LINE * * WITH "**" ON EACH SIDE AS PROTECT. * * * ****************************************************************** * 005000-MONEY. * MOVE SPACES TO MW-MONEY. MOVE 1 TO MW-MCX. MOVE SPACES TO MW-MONEY-LINES. MOVE 1 TO MW-MLX. * PERFORM 005010-GROUP THRU 005010-EXIT VARYING MW-GX FROM 1 BY 1 UNTIL (MW-GX > MW-GLIM). * IF (MW-AMOUNT-DOLLARS ZERO) MOVE "2NO" TO MW-WORD-TEXT PERFORM 005050-MOVE-WORD THRU 005050-EXIT. * IF (MW-AMOUNT-DOLLARS = 1) MOVE "6DOLLAR" TO MW-WORD-TEXT ELSE MOVE "7DOLLARS" TO MW-WORD-TEXT. PERFORM 005050-MOVE-WORD THRU 005050-EXIT. * MOVE "3AND" TO MW-WORD-TEXT. PERFORM 005050-MOVE-WORD THRU 005050-EXIT. * IF (MW-AMOUNT-CENTS = 0) MOVE "2NO" TO MW-WORD-TEXT PERFORM 005050-MOVE-WORD THRU 005050-EXIT ELSE MOVE MW-AMOUNT-CENTS TO MW-WORK PERFORM 005030-TWO-DIGITS THRU 005030-EXIT. * IF (MW-AMOUNT-CENTS = 1) MOVE "6CENT**" TO MW-WORD-TEXT ELSE MOVE "7CENTS**" TO MW-WORD-TEXT. PERFORM 005050-MOVE-WORD THRU 005050-EXIT. * COMPUTE MW-IX1 = (MW-MCLIM - MW-MCX) / 2 + 1 . STRING MW-MONEY DELIMITED BY SIZE INTO MW-MONEY-LINE(MW-MLX) WITH POINTER MW-IX1. * 005000-EXIT. EXIT. * * * C O N V E R T G R O U P * 005010-GROUP. * IF (MW-AMOUNT-GROUP(MW-GX) NOT ZERO) MOVE MW-AMOUNT-GROUP(MW-GX) TO MW-WORK PERFORM 005020-THREE-DIGITS THRU 005020-EXIT IF (MW-GROUP-WORD(MW-GX) NOT = SPACES) MOVE MW-GROUP-WORD(MW-GX) TO MW-WORD-TEXT PERFORM 005050-MOVE-WORD THRU 005050-EXIT. * 005010-EXIT. EXIT. * * * C O N V E R T T H R E E D I G I T S * 005020-THREE-DIGITS. * IF (MW-WORK-HUNDREDS > 0) MOVE MW-ONES-WORD(MW-WORK-HUNDREDS) TO MW-WORD-TEXT PERFORM 005050-MOVE-WORD THRU 005050-EXIT MOVE "7HUNDRED" TO MW-WORD-TEXT PERFORM 005050-MOVE-WORD THRU 005050-EXIT. * PERFORM 005030-TWO-DIGITS THRU 005030-EXIT. * 005020-EXIT. EXIT. * * * C O N V E R T T W O D I G I T S * 005030-TWO-DIGITS. * IF (MW-WORK-TEENS > 0) IF (MW-WORK-TEENS < 20) MOVE MW-ONES-WORD(MW-WORK-TEENS) TO MW-WORD-TEXT PERFORM 005050-MOVE-WORD THRU 005050-EXIT ELSE PERFORM 005040-TENS-ONES THRU 005040-EXIT. * 005030-EXIT. EXIT. * * * C O N V E R T T E N S / O N E S * 005040-TENS-ONES. * IF (MW-WORK-TENS > 0) MOVE MW-TENS-WORD(MW-WORK-TENS) TO MW-WORD-TEXT PERFORM 005050-MOVE-WORD THRU 005050-EXIT. * IF (MW-WORK-ONES > 0) MOVE MW-ONES-WORD(MW-WORK-ONES) TO MW-WORD-TEXT PERFORM 005050-MOVE-WORD THRU 005050-EXIT. * 005040-EXIT. EXIT. * * * M O V E I N N E W W O R D * 005050-MOVE-WORD. * COMPUTE MW-IX2 = MW-MCX + MW-WORD-SIZE + 3 . IF (MW-IX2 > MW-MCLIM) STRING "**" DELIMITED BY SIZE INTO MW-MONEY WITH POINTER MW-MCX COMPUTE MW-IX1 = (MW-MCLIM - MW-MCX) / 2 + 1 STRING MW-MONEY DELIMITED BY SIZE INTO MW-MONEY-LINE(MW-MLX) WITH POINTER MW-IX1 ADD 1 TO MW-MLX MOVE SPACES TO MW-MONEY MOVE 1 TO MW-MCX. * IF (MW-MCX = 1) STRING "**" DELIMITED BY SIZE INTO MW-MONEY POINTER MW-MCX ELSE ADD 1 TO MW-MCX. * STRING MW-WORD DELIMITED BY SPACE INTO MW-MONEY WITH POINTER MW-MCX. * 005050-EXIT. EXIT. ¤ Dauer der Verarbeitung: 0.8 Sekunden (vorverarbeitet) ¤ |
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:Die farbliche Syntaxdarstellung ist noch experimentell.Bot Zugriff |
