Quellcode-Bibliothek

^© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: moneyw.cob Sprache: Cobol

Original von: verschiedene^©

      ******************************************************************
      *                                                                *
      *                  M O N E Y   W O R K   A R E A                 *
      *                                                                *
      ******************************************************************
      *
       01  MONEY-WORK-AREA.
           78  MW-GLIM                 VALUE 5.
           03  MW-AMOUNT               PIC  9(15)V9(02).
           03  MW-AMOUNT-R             REDEFINES MW-AMOUNT.
               05  MW-AMOUNT-DOLLARS       PIC  9(15).
               05  MW-AMOUNT-DOLLARS-R     REDEFINES MW-AMOUNT-DOLLARS.
                   07  MW-AMOUNT-GROUP     OCCURS MW-GLIM TIMES
                                               PIC  9(03).
               05  MW-AMOUNT-CENTS         PIC  9(02).
      *
           03  MW-WORK                 PIC  9(03).
           03  MW-WORK-R1              REDEFINES MW-WORK.
               05  MW-WORK-HUNDREDS        PIC  9(01).
               05  MW-WORK-TENS            PIC  9(01).
               05  MW-WORK-ONES            PIC  9(01).
           03  MW-WORK-R2              REDEFINES MW-WORK.
               05      FILLER              PIC  9(01).
               05  MW-WORK-TEENS           PIC  9(02).
      *
           78  MW-MCLIM                VALUE 50.
           03  MW-MONEY.
               05  MW-MONEY-CHAR       OCCURS MW-MCLIM TIMES
                                           PIC  X(01).
           03  MW-MCX                  PIC  9(02)       COMP VALUE 0.
      *
           78  MW-MLLIM                VALUE 6.
           03  MW-MONEY-LINES.
               05  MW-MONEY-LINE       OCCURS MW-MLLIM TIMES
                                           PIC  X(MW-MCLIM).
           03  MW-MLX                  PIC  9(02)       COMP VALUE 0.
      *
           03  MW-WORD-TEXT.
               05  MW-WORD-SIZE        PIC  9(01).
               05  MW-WORD.
                   07  MW-WORD-CHAR    OCCURS 9 TIMES
                                           PIC  X(01).
           03  MW-WCX                  PIC  9(02)       COMP VALUE 0.
      *
           03  MW-GX                   PIC  9(02)       COMP VALUE 0.
           03  MW-IX1                  PIC  9(02)       COMP VALUE 0.
           03  MW-IX2                  PIC  9(02)       COMP VALUE 0.
      *
      *
           03  MW-GROUP-WORDS.
               05      FILLER  PIC  X(09)      VALUE "8TRILLION".
               05      FILLER  PIC  X(09)      VALUE "7BILLION ".
               05      FILLER  PIC  X(09)      VALUE "7MILLION ".
               05      FILLER  PIC  X(09)      VALUE "8THOUSAND".
               05      FILLER  PIC  X(09)      VALUE " ".
      *
           03  MW-GROUP-WORD           REDEFINES MW-GROUP-WORDS
                                       OCCURS  5 TIMES
                                           PIC  X(09).
      *
      *
           03  MW-TENS-WORDS.
               05      FILLER  PIC  X(08)      VALUE "3TEN ".
               05      FILLER  PIC  X(08)      VALUE "6TWENTY ".
               05      FILLER  PIC  X(08)      VALUE "6THIRTY ".
               05      FILLER  PIC  X(08)      VALUE "5FORTY ".
               05      FILLER  PIC  X(08)      VALUE "5FIFTY ".
               05      FILLER  PIC  X(08)      VALUE "5SIXTY ".
               05      FILLER  PIC  X(08)      VALUE "7SEVENTY".
               05      FILLER  PIC  X(08)      VALUE "6EIGHTY ".
               05      FILLER  PIC  X(08)      VALUE "6NINETY ".
      *
           03  MW-TENS-WORD            REDEFINES MW-TENS-WORDS
                                       OCCURS  9 TIMES
                                           PIC  X(08).
      *
      *
           03  MW-ONES-WORDS.
               05      FILLER  PIC  X(10)      VALUE "3ONE ".
               05      FILLER  PIC  X(10)      VALUE "3TWO ".
               05      FILLER  PIC  X(10)      VALUE "5THREE ".
               05      FILLER  PIC  X(10)      VALUE "4FOUR ".
               05      FILLER  PIC  X(10)      VALUE "4FIVE ".
               05      FILLER  PIC  X(10)      VALUE "3SIX ".
               05      FILLER  PIC  X(10)      VALUE "5SEVEN ".
               05      FILLER  PIC  X(10)      VALUE "5EIGHT ".
               05      FILLER  PIC  X(10)      VALUE "4NINE ".
               05      FILLER  PIC  X(10)      VALUE "3TEN ".
               05      FILLER  PIC  X(10)      VALUE "6ELEVEN ".
               05      FILLER  PIC  X(10)      VALUE "6TWELVE ".
               05      FILLER  PIC  X(10)      VALUE "8THIRTEEN ".
               05      FILLER  PIC  X(10)      VALUE "8FOURTEEN ".
               05      FILLER  PIC  X(10)      VALUE "7FIFTEEN ".
               05      FILLER  PIC  X(10)      VALUE "7SIXTEEN ".
               05      FILLER  PIC  X(10)      VALUE "9SEVENTEEN".
               05      FILLER  PIC  X(10)      VALUE "8EIGHTEEN ".
               05      FILLER  PIC  X(10)      VALUE "8NINETEEN ".
      *
           03  MW-ONES-WORD            REDEFINES MW-ONES-WORDS
                                       OCCURS 19 TIMES
                                           PIC  X(10).

¤ Dauer der Verarbeitung: 0.1 Sekunden (vorverarbeitet) ¤

Download des Quellennavigators
Download des sprechenden Kalenders
in der Quellcodebibliothek suchen

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.