|
******************************************************************
* *
* 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)
¤
|
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.
|
