|
|
|
|
|
Quellcode-Bibliothek
© Kompilation durch diese Firma
[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]
Datei:
DSCI4742.JPG
Sprache: Cobol
|
|
|
******************************************************************
* *
* 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.22 Sekunden
(vorverarbeitet)
¤
|
schauen Sie vor die Tür
Fenster
Die Firma ist wie angegeben erreichbar.
Die farbliche Syntaxdarstellung ist noch experimentell.
|
|
|
|
|
|
