FD  FileName
           LABEL RECORD IS STANDARD
           VALUE OF FILE-ID IS LB-FileName.

       01  FileName-RECORD.
           05 FileName-KEY.
              06 CODIGO            COMP-3 PIC  9(005).
           05 DESCRICAO                   PIC  X(030).
           05 PRECO                COMP-3 PIC  9(008)V99.
           05 TIPO                 COMP-3 PIC  9(001).
              88 PECA                                  VALUE 1.
              88 ACABADO                               VALUE 2.
              88 MATERIAL                              VALUE 3.
           05 IMPORTADO            COMP-3 PIC  9(001).
           05 GARANTIA             COMP-3 PIC  9(001).
           05 DURAVEL              COMP-3 PIC  9(001).