******************************************************************
      * DCLGEN TABLE(DBMAIL.ATENDIMENTO)                               *
      *        LIBRARY(ANPR.DCLGEN(MAIL3501))                          *
      *        ACTION(REPLACE)                                         *
      *        LANGUAGE(COBOL)                                         *
      *        QUOTE                                                   *
      * ... IS THE DCLGEN COMMAND THAT MADE THE FOLLOWING STATEMENTS   *
      ******************************************************************
           EXEC SQL DECLARE DBMAIL.ATENDIMENTO TABLE
           ( ID_ATENDIMENTO                 INTEGER NOT NULL,
             CD_SOLICITANTE                 SMALLINT NOT NULL,
             NR_SOLICITANTE                 DECIMAL(15, 0) NOT NULL,
             NM_PESSOA                      CHAR(35) NOT NULL,
             NR_CARTAO                      DECIMAL(15, 0) NOT NULL,
             EN_ENDERECO                    CHAR(50) NOT NULL,
             EN_BAIRRO                      CHAR(25) NOT NULL,
             EN_CIDADE                      CHAR(25) NOT NULL,
             EN_ESTADO                      CHAR(2) NOT NULL,
             EN_CEP                         INTEGER NOT NULL,
             NR_TELEFONE                    DECIMAL(11, 0) NOT NULL,
             NR_SETOR                       SMALLINT NOT NULL,
             NR_SUPERVISOR                  INTEGER NOT NULL,
             NR_ATENDENTE                   INTEGER NOT NULL,
             DT_ATENDIMENTO                 DECIMAL(9, 0) NOT NULL,
             HR_ATENDIMENTO                 DECIMAL(7, 0) NOT NULL,
             IN_SOLIC_IMEDIATA              CHAR(1) NOT NULL,
             IN_SOLIC_PENDENTE              CHAR(1) NOT NULL,
             DS_OBS_ATENDIMENTO             VARCHAR(254) NOT NULL,
             DT_INCLUSAO                    DECIMAL(9, 0) NOT NULL,
             NM_SOLICITANTE                 CHAR(35) NOT NULL
           ) END-EXEC.
      ******************************************************************
      * COBOL DECLARATION FOR TABLE DBMAIL.ATENDIMENTO                 *
      ******************************************************************
       01  DCLATENDIMENTO.
           10 ID-ATENDIMENTO       PIC S9(9) USAGE COMP.
           10 CD-SOLICITANTE       PIC S9(4) USAGE COMP.
           10 NR-SOLICITANTE       PIC S9(15)V USAGE COMP-3.
           10 NM-PESSOA            PIC X(35).
           10 NR-CARTAO            PIC S9(15)V USAGE COMP-3.
           10 EN-ENDERECO          PIC X(50).
           10 EN-BAIRRO            PIC X(25).
           10 EN-CIDADE            PIC X(25).
           10 EN-ESTADO            PIC X(2).
           10 EN-CEP               PIC S9(9) USAGE COMP.
           10 NR-TELEFONE          PIC S9(11)V USAGE COMP-3.
           10 NR-SETOR             PIC S9(4) USAGE COMP.
           10 NR-SUPERVISOR        PIC S9(9) USAGE COMP.
           10 NR-ATENDENTE         PIC S9(9) USAGE COMP.
           10 DT-ATENDIMENTO       PIC S9(9)V USAGE COMP-3.
           10 HR-ATENDIMENTO       PIC S9(7)V USAGE COMP-3.
           10 IN-SOLIC-IMEDIATA    PIC X(1).
           10 IN-SOLIC-PENDENTE    PIC X(1).
           10 DS-OBS-ATENDIMENTO.
              49 DS-OBS-ATENDIMENTO-LEN
                 PIC S9(4) USAGE COMP.
              49 DS-OBS-ATENDIMENTO-TEXT
                 PIC X(254).
           10 DT-INCLUSAO          PIC S9(9)V USAGE COMP-3.
           10 NM-SOLICITANTE       PIC X(35).
      ******************************************************************
      * THE NUMBER OF COLUMNS DESCRIBED BY THIS DECLARATION IS 21      *
      ******************************************************************