|
******************************************************************
* *
* N U M B E R W O R K A R E A *
* *
******************************************************************
*
01 NUMBER-WORK-AREA.
03 NW-NBR-ERROR-FLAG PIC 9(01).
03 NW-WORK-NBR.
05 NW-WORK-CHAR OCCURS 25 TIMES
INDEXED BY NW-WX
NW-WLIM.
07 NW-WORK-DIGIT PIC 9(01).
03 NW-DEC-PLACES PIC 9(02).
03 NW-BLD-SIGN PIC S9(01).
03 NW-BLD-NBR PIC 9(12)V9(06).
03 NW-BLD-NBR-SPLIT REDEFINES NW-BLD-NBR.
05 NW-BLD-INTEGER PIC 9(12).
05 NW-BLD-DECIMAL PIC V9(06).
88 NW-RESULT-INTEGER VALUE ZERO.
05 NW-BLD-DEC-DIGITS REDEFINES NW-BLD-DECIMAL.
07 NW-BLD-DEC-DIGIT OCCURS 6 TIMES
INDEXED BY NW-BDX
NW-BDLIM
PIC 9(01).
03 NW-EXTRACTED-NBR PIC S9(12)V9(06).
¤ Dauer der Verarbeitung: 0.16 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.
|
