       01  INVTYPE-CODES.
           05  FILLER              PIC X(10)  VALUE "Receipt".
           05  FILLER              PIC X(10)  VALUE "Adjustment".
           05  FILLER              PIC X(10)  VALUE "Order".
           05  FILLER              PIC X(10)  VALUE "Issue".
           05  FILLER              PIC X(10)  VALUE "Backorder".
           05  FILLER              PIC X(10)  VALUE "Sale".
           05  FILLER              PIC X(10)  VALUE "Reserve ".
           05  FILLER              PIC X(10)  VALUE "F.G. Rcpt.".
           05  FILLER              PIC X(10)  VALUE "F.G. Order".
       01  INVTYPE-REDEF REDEFINES INVTYPE-CODES.
           05  INVTYPE-OPTS        PIC X(10)  OCCURS 9 TIMES.
