******************************************************************
* DCLGEN TABLE(CAD.CADTBA61_CRCTA_MODELO_OBJETO) *
* LIBRARY(DES.CAD.V00.DCLGEN(CADTBA61)) *
* ACTION(REPLACE) *
* LANGUAGE(COBOL) *
* STRUCTURE(CADTBA61) *
* QUOTE *
* ... IS THE DCLGEN COMMAND THAT MADE THE FOLLOWING STATEMENTS *
******************************************************************
EXEC SQL DECLARE CAD.CADTBA61_CRCTA_MODELO_OBJETO TABLE
( NU_SEQUENCIAL_MODELO INTEGER NOT NULL,
TS_CARACTERISTICA TIMESTAMP NOT NULL,
NO_MODELO CHAR(60),
CO_MODELO_OBJETO CHAR(30),
NO_TIPO_OBJETO CHAR(60),
NO_TIPO_PULSEIRA CHAR(60),
NO_CALIBRE CHAR(60),
DE_CARACTERISTICA_MODELO VARCHAR(300),
NU_MARCA_OBJETO INTEGER NOT NULL,
NU_MARCA_MOVIMENTO INTEGER,
NU_OBJETO INTEGER NOT NULL,
NU_CATEGORIZACAO INTEGER NOT NULL,
NU_TIPO_MOVIMENTO INTEGER,
NU_METAL_CAIXA INTEGER,
NU_METAL_PULSEIRA INTEGER
) END-EXEC.
******************************************************************
* COBOL DECLARATION FOR TABLE CAD.CADTBA61_CRCTA_MODELO_OBJETO *
******************************************************************
01 CADTBA61.
10 NU-SEQUENCIAL-MODELO
PIC S9(9) USAGE COMP.
10 TS-CARACTERISTICA PIC X(26).
10 NO-MODELO PIC X(60).
10 CO-MODELO-OBJETO PIC X(30).
10 NO-TIPO-OBJETO PIC X(60).
10 NO-TIPO-PULSEIRA PIC X(60).
10 NO-CALIBRE PIC X(60).
10 DE-CARACTERISTICA-MODELO.
49 DE-CARACTERISTICA-MODELO-LEN
PIC S9(4) USAGE COMP.
49 DE-CARACTERISTICA-MODELO-TEXT
PIC X(300).
10 NU-MARCA-OBJETO PIC S9(9) USAGE COMP.
10 NU-MARCA-MOVIMENTO PIC S9(9) USAGE COMP.
10 NU-OBJETO PIC S9(9) USAGE COMP.
10 NU-CATEGORIZACAO PIC S9(9) USAGE COMP.
10 NU-TIPO-MOVIMENTO PIC S9(9) USAGE COMP.
10 NU-METAL-CAIXA PIC S9(9) USAGE COMP.
10 NU-METAL-PULSEIRA PIC S9(9) USAGE COMP.
******************************************************************
* THE NUMBER OF COLUMNS DESCRIBED BY THIS DECLARATION IS 15 *
******************************************************************
|
