000100 01  FILLER.
000200     02  EDIT-COMMAND.
000300         03  MAXIMUM-DECIMALS    PIC 9(01).
000400         03  SIGN-INDICATOR      PIC 9(01).
000500         03  VALUE-INDICATOR     PIC X(01).
000600         03  GOOD-BAD            PIC X(01).
000700			88  THE-DATA-IS-BAD     VALUE " "
000800                                                "B".
000900     02  ENTERED-NUMBER          PIC X(18).
001000     02  GOOD-NUMBER             PIC S9(12)V9(06).
001100     02  NUMBER-WITHOUT-SIGN REDEFINES GOOD-NUMBER
001200                                 PIC 9(12)V9(06).
001300     02  NEARLY-GOOD REDEFINES GOOD-NUMBER.
001400         03  UNITS               PIC X(12)       JUST RIGHT.
001500         03  DECIMALS            PIC X(06).
001600     02  PLACES-BEFORE-FIRST-SPACE
001700                                 PIC S9(02).
001800     02  PLACES-BEFORE-FIRST-DASH
001900                                 PIC S9(02)           COMP-3.
002000     02  PLACES-AFTER-DECIMAL    PIC S9(02)           COMP-3.
002100     02  NUMBER-OF-SPACES        PIC S9(02)           COMP-3.
002200     02  SPACES-AFTER-FIRST-SPACE
002300                                 PIC 9(02).
002400     02  PLACES-AFTER-FIRST-SPACE
002500                                 PIC 9(02).
002600     02  DECIMAL-PLACES          PIC S9(02)           COMP-3.
           02  TCOUNT                  PIC 9(02).