crudPessoasProdutoPedido

      ******************************************************************
      * Author:
      * Date:
      * Purpose:
      * Tectonics: cobc
      ******************************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. CRUDPESSOAS.
       ENVIRONMENT DIVISION.
        INPUT-OUTPUT SECTION.
            FILE-CONTROL.
            SELECT CLIENTES ASSIGN TO
                       "C:\Arquivos\clientes.txt"
            ORGANISATION IS INDEXED
            ACCESS IS DYNAMIC
            RECORD KEY IS COD-CLIENTE
            FILE STATUS IS WS-FSCLI.

      ******************************************************************

            SELECT PRODUTOS ASSIGN TO
                       "C:\Arquivos\produtos.txt"
            ORGANISATION IS INDEXED
            ACCESS IS DYNAMIC
            RECORD KEY IS COD-PRODUTO
            FILE STATUS IS WS-FSPROD.
      ******************************************************************

            SELECT PEDIDOS ASSIGN TO
                       "C:\Arquivos\pedidos.txt"
            ORGANISATION IS INDEXED
            ACCESS IS DYNAMIC
            RECORD KEY IS COD-PEDIDO
            FILE STATUS IS WS-FSPV.

       DATA DIVISION.
        FILE SECTION.
           FD CLIENTES.
           01 REG-CLIENTE.
              03 COD-CLIENTE   PIC 9(03).
              03 NOME-CLIENTE  PIC X(25).
              03 RG-CLIENTE    PIC X(15).
              03 TEL-CLIENTE   PIC X(13).

           FD PRODUTOS.
           01 REG-PRODUTO.
              03 COD-PRODUTO   PIC 9(03).
              03 NOME-PRODUTO  PIC X(25).
              03 PRECO-PRODUTO PIC 9(06)V99.

           FD PEDIDOS.
           01 REG-PEDIDO.
              03 COD-PEDIDO        PIC 9(03).
              03 PV-COD-CLI        PIC 9(03).
              03 PV-NOME-CLI       PIC X(25).
              03 PV-RG-CLI         PIC X(15).
              03 PV-TEL-CLI        PIC X(13).
              03 PV-COD-PRODUTO    PIC 9(03).
              03 PV-NOME-PRODUTO   PIC X(25).
              03 PV-PRECO-PRODUTO  PIC 9(06)V99.
              03 PV-QTD            PIC 9(03).
              03 PV-VALOR-TOTAL    PIC 9(09)V99.

       WORKING-STORAGE SECTION.
           01 WS-FSCLI         PIC 9(02).
           01 WS-FSPROD        PIC 9(02).
           01 WS-FSPV          PIC 9(02).

           01 WS-EOF-CLI       PIC 9.
           01 WS-EOF-PROD      PIC 9.
           01 WS-EOF-PV        PIC 9.

           01 WS-OPC           PIC X.
           01 WS-CLIENTE.
               03 WS-COD-CLIENTE   PIC 9(03).
               03 WS-NOME-CLIENTE  PIC X(25).
               03 WS-RG-CLIENTE    PIC X(15).
               03 WS-TEL-CLIENTE   PIC X(13).

           01 WS-PRODUTO.
              03 WS-COD-PRODUTO   PIC 9(03).
              03 WS-NOME-PRODUTO  PIC X(25).
              03 WS-PRECO-PRODUTO PIC 9(06)V99.

           01 WS-PEDIDO.
              03 WS-COD-PEDIDO        PIC 9(03).
              03 WS-PV-COD-CLI        PIC 9(03).
              03 WS-PV-NOME-CLI       PIC X(25).
              03 WS-PV-RG-CLI         PIC X(15).
              03 WS-PV-TEL-CLI        PIC X(13).
              03 WS-PV-COD-PRODUTO    PIC 9(03).
              03 WS-PV-NOME-PRODUTO   PIC X(25).
              03 WS-PV-PRECO-PRODUTO  PIC 9(06)V99.
              03 WS-PV-QTD            PIC 9(03).
              03 WS-PV-VALOR-TOTAL    PIC 9(09)V99.

       PROCEDURE DIVISION.
        MAIN-PROCEDURE SECTION.
           PERFORM UNTIL WS-OPC EQUALS '0'
               DISPLAY "SELECIONE A OPCAO"
               DISPLAY "1 - CADASTRO E CLIENTES"
               DISPLAY "2 - CADASTRO DE PRODUTOS"
               DISPLAY "3 - CADASTRO DE PEDIDO DE VENDAS"
               DISPLAY "0 - SAIR"

               ACCEPT WS-OPC

               EVALUATE WS-OPC
                   WHEN 1
                       PERFORM MENU-CLIENTE
                   WHEN 2
                       PERFORM MENU-PRODUTO
                   WHEN 3
                       PERFORM MENU-PEDIDO
               END-EVALUATE
           END-PERFORM.
           PERFORM FINALIZAR.
      **************************************************************************
        MENU SECTION.
          MENU-CLIENTE.
            INITIALISE WS-OPC
            MOVE 'Z' TO WS-OPC
            PERFORM UNTIL WS-OPC EQUALS 'S' OR WS-OPC EQUALS 's'
               DISPLAY "SELECIONE A OPCAO"
               DISPLAY "I - INCLUSAO DE DADOS DOS CLIENTES"
               DISPLAY "A - ALTERACAO DE DADOS DOS CLIENTES"
               DISPLAY "C - CONSULTA DE DADOS DOS CLIENTES"
               DISPLAY "E - EXCLUSAO DE DADOS DOS CLIENTES"
               DISPLAY "L - LISTAR OS CLIENTES"
               DISPLAY "S - SAIR"

               ACCEPT WS-OPC

               EVALUATE WS-OPC
                   WHEN 'I'
                       PERFORM CADASTRAR-CLIENTE
                   WHEN 'A'
                       PERFORM ATUALIZAR-CLIENTE
                   WHEN 'C'
                       PERFORM BUSCAR-CLIENTE
                   WHEN 'E'
                       PERFORM APAGAR-CLIENTE
                   WHEN 'L'
                       PERFORM LISTAR-CLIENTES
               END-EVALUATE
            END-PERFORM.
          MENU-PRODUTO.
            INITIALISE WS-OPC
            MOVE 'Z' TO WS-OPC
            PERFORM UNTIL WS-OPC EQUALS 'S' OR WS-OPC EQUALS 's'
               DISPLAY "SELECIONE A OPCAO"
               DISPLAY "I - INCLUSAO DE DADOS DOS PRODUTOS"
               DISPLAY "A - ALTERACAO DE DADOS DOS PRODUTOS"
               DISPLAY "C - CONSULTA DE DADOS DOS PRODUTOS"
               DISPLAY "E - EXCLUSAO DE DADOS DOS PRODUTOS"
               DISPLAY "L - LISTAR OS PRODUTOS"
               DISPLAY "S - SAIR"

               ACCEPT WS-OPC

               EVALUATE WS-OPC
                   WHEN 'I'
                       PERFORM CADASTRAR-PRODUTO
                   WHEN 'A'
                       PERFORM ATUALIZAR-PRODUTO
                   WHEN 'C'
                       PERFORM BUSCAR-PRODUTO
                   WHEN 'E'
                       PERFORM APAGAR-PRODUTO
                   WHEN 'L'
                       PERFORM LISTAR-PRODUTO
               END-EVALUATE
            END-PERFORM.
          MENU-PEDIDO.
            INITIALISE WS-OPC
            MOVE 'Z' TO WS-OPC
            PERFORM UNTIL WS-OPC EQUALS 'S' OR WS-OPC EQUALS 's'
               DISPLAY "SELECIONE A OPCAO"
               DISPLAY "I - INCLUSAO DE DADOS DOS PEDIDOS"
               DISPLAY "A - ALTERACAO DE DADOS DOS PEDIDOS"
               DISPLAY "C - CONSULTA DE DADOS DOS PEDIDOS"
               DISPLAY "E - EXCLUSAO DE DADOS DOS PEDIDOS"
               DISPLAY "L - LISTAR OS PEDIDOS"
               DISPLAY "S - SAIR"

               ACCEPT WS-OPC

               EVALUATE WS-OPC
                   WHEN 'I'
                       PERFORM CADASTRAR-PEDIDO
                   WHEN 'A'
                       PERFORM ATUALIZAR-PEDIDO
                   WHEN 'C'
                       PERFORM BUSCAR-PEDIDO
                   WHEN 'E'
                       PERFORM APAGAR-PEDIDO
                   WHEN 'L'
                       PERFORM LISTAR-PEDIDO
               END-EVALUATE
            END-PERFORM.
      ***************************************************************************
        CLIENTE SECTION.
        OBTER-DADOS-CLI SECTION.
           OBTER-COD-CLI.
               DISPLAY "DIGITE O CODIGO DO CLIENTE"
               ACCEPT WS-COD-CLIENTE.
           OBTER-NOME-CLI.
               DISPLAY "DIGITE O NOME DO CLIENTE"
               ACCEPT WS-NOME-CLIENTE.
           OBTER-RG-CLI.
               DISPLAY "DIGITE O RG DO CLIENTE"
               ACCEPT WS-RG-CLIENTE.
           OBTER-FONE-CLI.
               DISPLAY "DIGITE O TELEFONE DO CLIENTE"
               ACCEPT WS-TEL-CLIENTE.
           ABRIR-ARQUIVO.
               SET WS-FSCLI TO 0
               SET WS-EOF-CLI TO 0
               OPEN I-O CLIENTES
               IF WS-FSCLI EQUAL 35 THEN
                   OPEN OUTPUT CLIENTES
               END-IF.

        PROCEDIMENTOSC SECTION.
          CADASTRAR-CLIENTE.
               DISPLAY "--========= CADASTRO DE CLIENTES ============--"
               PERFORM ABRIR-ARQUIVO

               IF WS-FSCLI EQUALS ZEROS
                   PERFORM OBTER-COD-CLI
                   PERFORM OBTER-NOME-CLI
                   PERFORM OBTER-RG-CLI
                   PERFORM OBTER-FONE-CLI

                   MOVE WS-COD-CLIENTE TO COD-CLIENTE
                   MOVE WS-NOME-CLIENTE TO NOME-CLIENTE
                   MOVE WS-RG-CLIENTE TO RG-CLIENTE
                   MOVE WS-TEL-CLIENTE TO TEL-CLIENTE

                   WRITE REG-CLIENTE

                   IF WS-FSCLI EQUALS 22 THEN
                       DISPLAY "UM CLIENTE JA FOI REGISTRADO COM ESSE "
      -                             "CODIGO"
                   ELSE
                       IF WS-FSCLI NOT EQUALS 0 THEN
                           DISPLAY "UM ERRO DE ARQUIVO " WS-FSCLI
      -                                 " OCORREU"
                       ELSE
                           DISPLAY "O CLIENTE FOI REGISTRADO !"
                       END-IF
                   END-IF
               END-IF.
               CLOSE CLIENTES.
          LISTAR-CLIENTES.
               DISPLAY "--========= LISTA DE CLIENTES ============--"
               DISPLAY "COD   " "NOME                     "
                               " RG" "              TELEFONE"
               DISPLAY " "
               PERFORM ABRIR-ARQUIVO

               IF WS-FSCLI EQUALS ZEROS THEN
                   PERFORM UNTIL WS-EOF-CLI EQUALS 1
                       READ CLIENTES INTO WS-CLIENTE
                           AT END
                               MOVE 1 TO WS-EOF-CLI
                           NOT AT END
                            DISPLAY WS-COD-CLIENTE "   " WS-NOME-CLIENTE
                                   " "WS-RG-CLIENTE " "WS-TEL-CLIENTE
                       END-READ
                   END-PERFORM
               END-IF
               CLOSE CLIENTES.

          BUSCAR-CLIENTE.
               DISPLAY "--========= BUSCAR CLIENTE ============--"
               DISPLAY "DIGITE O CODIGO DO CLIENTE"
               ACCEPT WS-COD-CLIENTE
               DISPLAY " "

               MOVE WS-COD-CLIENTE TO COD-CLIENTE
               PERFORM ABRIR-ARQUIVO
               IF WS-FSCLI EQUALS ZEROS THEN
                   READ CLIENTES INTO WS-CLIENTE
                       KEY IS COD-CLIENTE
                           INVALID KEY
                               DISPLAY "CODIGO DO CLIENTE INVALIDO"
                           NOT INVALID KEY
                               DISPLAY "COD   " "NOME                  "
                               "    RG" "              TELEFONE"
                            DISPLAY WS-COD-CLIENTE "   " WS-NOME-CLIENTE
                                   " "WS-RG-CLIENTE " "WS-TEL-CLIENTE
                   END-READ
               END-IF.
               CLOSE CLIENTES.

          ATUALIZAR-CLIENTE.
               DISPLAY "--========= ATUALIZAR CLIENTE ============--"
               DISPLAY "DIGITE O CODIGO DO CLIENTE"
               ACCEPT WS-COD-CLIENTE
               DISPLAY " "

               MOVE WS-COD-CLIENTE TO COD-CLIENTE
               PERFORM ABRIR-ARQUIVO
               IF WS-FSCLI EQUALS ZEROS THEN
                   READ CLIENTES INTO WS-CLIENTE
                       KEY IS COD-CLIENTE
                           INVALID KEY
                               DISPLAY "CODIGO DO CLIENTE INVALIDO"
                           NOT INVALID KEY
                               DISPLAY "COD   " "NOME                  "
                               "    RG" "              TELEFONE"
                            DISPLAY WS-COD-CLIENTE "   " WS-NOME-CLIENTE
                                   " "WS-RG-CLIENTE " "WS-TEL-CLIENTE
                   END-READ
                   DISPLAY " "
                   DISPLAY "DESEJA EDITAR AS INFORMACOES ? (S/N)"
                   ACCEPT WS-OPC

                   IF WS-OPC NOT EQUAL 'N' OR WS-OPC NOT EQUAL 'n'
                       PERFORM OBTER-NOME-CLI
                       PERFORM OBTER-RG-CLI
                       PERFORM OBTER-FONE-CLI

                       MOVE WS-NOME-CLIENTE TO NOME-CLIENTE
                       MOVE WS-RG-CLIENTE TO RG-CLIENTE
                       MOVE WS-TEL-CLIENTE TO TEL-CLIENTE

                       REWRITE REG-CLIENTE
                   END-IF
               END-IF.
               CLOSE CLIENTES.
          APAGAR-CLIENTE.
           DISPLAY "--========= APAGAR CLIENTE ============--"
           DISPLAY "DIGITE O CODIGO DO CLIENTE"
           ACCEPT WS-COD-CLIENTE
           DISPLAY " "

           MOVE WS-COD-CLIENTE TO COD-CLIENTE
           PERFORM ABRIR-ARQUIVO
           IF WS-FSCLI EQUALS ZEROS THEN
               READ CLIENTES INTO WS-CLIENTE
                   KEY IS COD-CLIENTE
                       INVALID KEY
                           DISPLAY "CODIGO DO CLIENTE INVALIDO"
                       NOT INVALID KEY
                           DISPLAY "COD   " "NOME                  "
                           "    RG" "              TELEFONE"
                           DISPLAY WS-COD-CLIENTE "   " WS-NOME-CLIENTE
                               " "WS-RG-CLIENTE " "WS-TEL-CLIENTE
               END-READ
               DISPLAY " "
               DISPLAY "DESEJA APAGAR AS INFORMACOES ? (S/N)"
               ACCEPT WS-OPC

               IF WS-OPC NOT EQUAL 'N' OR WS-OPC NOT EQUAL 'n'
                   DELETE CLIENTES RECORD
                       INVALID KEY DISPLAY 'CODIGO INVALIDO'
                       NOT INVALID KEY DISPLAY 'CLIENTE EXCLUIDO!'
                   END-DELETE
               END-IF
           END-IF.
           CLOSE CLIENTES.
      *******************************************************************
        PRODUTO SECTION.
          OBTER-DADOS-PROD SECTION.
           OBTER-CODIGO-PROD.
               DISPLAY "DIGITE O CODIGO DO PRODUTO"
               ACCEPT WS-COD-PRODUTO.
           OBTER-NOME-PROD.
               DISPLAY "DIGITE O NOME DO PRODUTO"
               ACCEPT WS-NOME-PRODUTO.
           OBTER-PRECO-PROD.
               DISPLAY "DIGITE O VALOR DO PRODUTO"
               ACCEPT WS-PRECO-PRODUTO.
           ABRIR-ARQUIVO-PROD.
               SET WS-FSPROD TO 0
               SET WS-EOF-PROD TO 0
               OPEN I-O PRODUTOS
               IF WS-FSPROD EQUAL 35 THEN
                   OPEN OUTPUT PRODUTOS
               END-IF.

        PROCEDIMENTOSP SECTION.
          CADASTRAR-PRODUTO.
              DISPLAY "--========= CADASTRO DE PRODUTOS ============--"
               PERFORM ABRIR-ARQUIVO-PROD

               IF WS-FSPROD EQUALS ZEROS
                   PERFORM OBTER-CODIGO-PROD
                   PERFORM OBTER-NOME-PROD
                   PERFORM OBTER-PRECO-PROD


                   MOVE WS-COD-PRODUTO TO COD-PRODUTO
                   MOVE WS-NOME-PRODUTO TO NOME-PRODUTO
                   MOVE WS-PRECO-PRODUTO TO PRECO-PRODUTO

                   WRITE REG-PRODUTO

                   IF WS-FSCLI EQUALS 22 THEN
                       DISPLAY "UM PRODUTO JA FOI REGISTRADO COM ESSE "
      -                             "CODIGO"
                   ELSE
                       IF WS-FSCLI NOT EQUALS 0 THEN
                           DISPLAY "UM ERRO DE ARQUIVO " WS-FSCLI
      -                                 " OCORREU"
                       ELSE
                           DISPLAY "O PRODUTO FOI REGISTRADO !"
                       END-IF
                   END-IF
               END-IF.
               CLOSE PRODUTOS.
          LISTAR-PRODUTO.
              DISPLAY "--========= LISTA DE PRODUTOS ============--"
               DISPLAY "COD   " "NOME " "                     VALOR"
               DISPLAY " "
               PERFORM ABRIR-ARQUIVO-PROD

               IF WS-FSPROD EQUALS ZEROS THEN
                   PERFORM UNTIL WS-EOF-PROD EQUALS 1
                       READ PRODUTOS INTO WS-PRODUTO
                           AT END
                               MOVE 1 TO WS-EOF-PROD
                           NOT AT END
                            DISPLAY WS-COD-PRODUTO "   " WS-NOME-PRODUTO
                                   " "WS-PRECO-PRODUTO " "
                       END-READ
                   END-PERFORM
               END-IF
               CLOSE PRODUTOS.
          BUSCAR-PRODUTO.
               DISPLAY "--========= BUSCAR PRODUTO ============--"
               DISPLAY "DIGITE O CODIGO DO PRODUTO"
               ACCEPT WS-COD-PRODUTO
               DISPLAY " "

               MOVE WS-COD-PRODUTO TO COD-PRODUTO
               PERFORM ABRIR-ARQUIVO-PROD
               IF WS-FSPROD EQUALS ZEROS THEN
                   READ PRODUTOS INTO WS-PRODUTO
                       KEY IS COD-PRODUTO
                           INVALID KEY
                               DISPLAY "CODIGO DO PRODUTO INVALIDO"
                           NOT INVALID KEY
                   DISPLAY "COD " "NOME " "                     VALOR"
                            DISPLAY WS-COD-PRODUTO " "  WS-NOME-PRODUTO
                                   " " WS-PRECO-PRODUTO
                   END-READ
               END-IF.
               CLOSE PRODUTOS.
          ATUALIZAR-PRODUTO.
               DISPLAY "--========= ATUALIZAR PRODUTO ============--"
               DISPLAY "DIGITE O CODIGO DO PRODUTO"
               ACCEPT WS-COD-PRODUTO
               DISPLAY " "

               MOVE WS-COD-PRODUTO TO COD-PRODUTO
               PERFORM ABRIR-ARQUIVO-PROD
               IF WS-FSPROD EQUALS ZEROS THEN
                   READ PRODUTOS INTO WS-PRODUTO
                       KEY IS COD-PRODUTO
                           INVALID KEY
                               DISPLAY "CODIGO DO PRODUTO INVALIDO"
                           NOT INVALID KEY
                    DISPLAY "COD " "NOME " "                     VALOR"
                            DISPLAY WS-COD-PRODUTO " "  WS-NOME-PRODUTO
                                   " " WS-PRECO-PRODUTO
                   END-READ
                   DISPLAY " "
                   DISPLAY "DESEJA EDITAR AS INFORMACOES ? (S/N)"
                   ACCEPT WS-OPC

                   IF WS-OPC NOT EQUAL 'N' OR WS-OPC NOT EQUAL 'n'
                       PERFORM OBTER-NOME-PROD
                       PERFORM OBTER-PRECO-PROD

                       MOVE WS-NOME-PRODUTO TO NOME-PRODUTO
                       MOVE WS-PRECO-PRODUTO TO PRECO-PRODUTO


                       REWRITE REG-PRODUTO
                   END-IF
               END-IF.
               CLOSE PRODUTOS.
          APAGAR-PRODUTO.
           DISPLAY "--========= APAGAR PRODUTO ============--"
           DISPLAY "DIGITE O CODIGO DO PRODUTO"
           ACCEPT WS-COD-PRODUTO
           DISPLAY " "

           MOVE WS-COD-PRODUTO TO COD-PRODUTO
           PERFORM ABRIR-ARQUIVO-PROD
           IF WS-FSPROD EQUALS ZEROS THEN
               READ PRODUTOS INTO WS-PRODUTO
                   KEY IS COD-PRODUTO
                       INVALID KEY
                           DISPLAY "CODIGO DO PRODUTO INVALIDO"
                       NOT INVALID KEY
                     DISPLAY "COD " "NOME " "                     VALOR"
                            DISPLAY WS-COD-PRODUTO " "  WS-NOME-PRODUTO
                                   " " WS-PRECO-PRODUTO
               END-READ
               DISPLAY " "
               DISPLAY "DESEJA APAGAR AS INFORMACOES ? (S/N)"
               ACCEPT WS-OPC

               IF WS-OPC NOT EQUAL 'N' OR WS-OPC NOT EQUAL 'n'
                   DELETE PRODUTOS RECORD
                       INVALID KEY DISPLAY 'CODIGO INVALIDO'
                       NOT INVALID KEY DISPLAY 'PRODUTO EXCLUIDO!'
                   END-DELETE
               END-IF
           END-IF.
           CLOSE PRODUTOS.
      *******************************************************************
        PEDIDO SECTION.
          OBTER-DADOS-PED SECTION.
           OBTER-COD-PEDIDO.
               DISPLAY "DIGITE O CODIGO DO PEDIDO"
               ACCEPT WS-COD-PEDIDO.
           OBTER-QTD-PEDIDO.
               DISPLAY "DIGITE A QTD DE PRODUTOS DO PEDIDO"
               ACCEPT WS-PV-QTD.
           OBTER-VALORTOTAL-PEDIDO.
               DISPLAY "DIGITE O VALOR TOTAL DO PEDIDO"
               ACCEPT WS-PV-VALOR-TOTAL.
           ABRIR-ARQUIVO-PED.
               SET WS-FSPV TO 0
               SET WS-EOF-PV TO 0
               OPEN I-O PEDIDOS
               IF WS-FSPV EQUAL 35 THEN
                   OPEN OUTPUT PEDIDOS
               END-IF.

        PROCEDIMENTOSPE SECTION.
          CADASTRAR-PEDIDO.
               DISPLAY "--========= CADASTRO DE PEDIDOS ============--"
               PERFORM ABRIR-ARQUIVO-PED

               IF WS-FSPV EQUALS ZEROS
                   PERFORM OBTER-COD-PEDIDO
                   MOVE WS-COD-PEDIDO TO COD-PEDIDO

                   PERFORM OBTER-COD-CLI
                   MOVE WS-COD-CLIENTE TO PV-COD-CLI

                   PERFORM OBTER-NOME-CLI
                   MOVE WS-NOME-CLIENTE TO PV-NOME-CLI

                   PERFORM OBTER-RG-CLI
                   MOVE WS-RG-CLIENTE TO PV-RG-CLI

                   PERFORM OBTER-FONE-CLI
                   MOVE WS-TEL-CLIENTE TO PV-TEL-CLI

                   OBTER-CODIGO-PROD
                   MOVE WS-COD-PRODUTO TO PV-COD-PRODUTO

                   OBTER-NOME-PROD
                   MOVE WS-NOME-PRODUTO TO PV-NOME-PRODUTO

                   OBTER-PRECO-PROD
                   MOVE WS-PRECO-PRODUTO TO PV-PRECO-PRODUTO

                   OBTER-QTD-PEDIDO
                   MOVE WS-PV-QTD TO PV-QTD

                   OBTER-VALORTOTAL-PEDIDO
                   MOVE WS-PV-VALOR-TOTAL TO PV-VALOR-TOTAL

                   WRITE REG-PEDIDO

                   IF WS-FSPV EQUALS 22 THEN
                       DISPLAY "UM PEDIDO JA FOI REGISTRADO COM ESSE "
      -                             "CODIGO"
                   ELSE
                       IF WS-FSCLI NOT EQUALS 0 THEN
                           DISPLAY "UM ERRO DE ARQUIVO " WS-FSCLI
      -                                 " OCORREU"
                       ELSE
                           DISPLAY "O PEDIDO FOI REGISTRADO !"
                       END-IF
                   END-IF
               END-IF.
               CLOSE PRODUTOS.
          LISTAR-PEDIDO.

          BUSCAR-PEDIDO.

          ATUALIZAR-PEDIDO.

          APAGAR-PEDIDO.

          FINALIZAR.
            STOP RUN.
       END PROGRAM CRUDPESSOAS.