fork download 
  1.       ******************************************************************
  2.       * DCLGEN TABLE(DBMAIL.ATENDIMENTO)                               *
  3.       *        LIBRARY(ANPR.DCLGEN(MAIL3501))                          *
  4.       *        ACTION(REPLACE)                                         *
  5.       *        LANGUAGE(COBOL)                                         *
  6.       *        QUOTE                                                   *
  7.       * ... IS THE DCLGEN COMMAND THAT MADE THE FOLLOWING STATEMENTS   *
  8.       ******************************************************************
  9.            EXEC SQL DECLARE DBMAIL.ATENDIMENTO TABLE
  10.            ( ID_ATENDIMENTO                 INTEGER NOT NULL,
  11.              CD_SOLICITANTE                 SMALLINT NOT NULL,
  12.              NR_SOLICITANTE                 DECIMAL(15, 0) NOT NULL,
  13.              NM_PESSOA                      CHAR(35) NOT NULL,
  14.              NR_CARTAO                      DECIMAL(15, 0) NOT NULL,
  15.              EN_ENDERECO                    CHAR(50) NOT NULL,
  16.              EN_BAIRRO                      CHAR(25) NOT NULL,
  17.              EN_CIDADE                      CHAR(25) NOT NULL,
  18.              EN_ESTADO                      CHAR(2) NOT NULL,
  19.              EN_CEP                         INTEGER NOT NULL,
  20.              NR_TELEFONE                    DECIMAL(11, 0) NOT NULL,
  21.              NR_SETOR                       SMALLINT NOT NULL,
  22.              NR_SUPERVISOR                  INTEGER NOT NULL,
  23.              NR_ATENDENTE                   INTEGER NOT NULL,
  24.              DT_ATENDIMENTO                 DECIMAL(9, 0) NOT NULL,
  25.              HR_ATENDIMENTO                 DECIMAL(7, 0) NOT NULL,
  26.              IN_SOLIC_IMEDIATA              CHAR(1) NOT NULL,
  27.              IN_SOLIC_PENDENTE              CHAR(1) NOT NULL,
  28.              DS_OBS_ATENDIMENTO             VARCHAR(254) NOT NULL,
  29.              DT_INCLUSAO                    DECIMAL(9, 0) NOT NULL,
  30.              NM_SOLICITANTE                 CHAR(35) NOT NULL
  31.            ) END-EXEC.
  32.       ******************************************************************
  33.       * COBOL DECLARATION FOR TABLE DBMAIL.ATENDIMENTO                 *
  34.       ******************************************************************
  35.        01  DCLATENDIMENTO.
  36.            10 ID-ATENDIMENTO       PIC S9(9) USAGE COMP.
  37.            10 CD-SOLICITANTE       PIC S9(4) USAGE COMP.
  38.            10 NR-SOLICITANTE       PIC S9(15)V USAGE COMP-3.
  39.            10 NM-PESSOA            PIC X(35).
  40.            10 NR-CARTAO            PIC S9(15)V USAGE COMP-3.
  41.            10 EN-ENDERECO          PIC X(50).
  42.            10 EN-BAIRRO            PIC X(25).
  43.            10 EN-CIDADE            PIC X(25).
  44.            10 EN-ESTADO            PIC X(2).
  45.            10 EN-CEP               PIC S9(9) USAGE COMP.
  46.            10 NR-TELEFONE          PIC S9(11)V USAGE COMP-3.
  47.            10 NR-SETOR             PIC S9(4) USAGE COMP.
  48.            10 NR-SUPERVISOR        PIC S9(9) USAGE COMP.
  49.            10 NR-ATENDENTE         PIC S9(9) USAGE COMP.
  50.            10 DT-ATENDIMENTO       PIC S9(9)V USAGE COMP-3.
  51.            10 HR-ATENDIMENTO       PIC S9(7)V USAGE COMP-3.
  52.            10 IN-SOLIC-IMEDIATA    PIC X(1).
  53.            10 IN-SOLIC-PENDENTE    PIC X(1).
  54.            10 DS-OBS-ATENDIMENTO.
  55.               49 DS-OBS-ATENDIMENTO-LEN
  56.                  PIC S9(4) USAGE COMP.
  57.               49 DS-OBS-ATENDIMENTO-TEXT
  58.                  PIC X(254).
  59.            10 DT-INCLUSAO          PIC S9(9)V USAGE COMP-3.
  60.            10 NM-SOLICITANTE       PIC X(35).
  61.       ******************************************************************
  62.       * THE NUMBER OF COLUMNS DESCRIBED BY THIS DECLARATION IS 21      *
  63.       ******************************************************************
  64.  
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin 
Standard input is empty
compilation info 
prog.cob:9: Error: syntax error, unexpected WORD, expecting PROGRAM_ID
stdout 
Standard output is empty
https://ideone.com/pLfsn
language:
Cobol (gnucobol 2.2.0)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!