******************************************************************
* DCLGEN TABLE(CAD.CADTBA59_IMAGEM_CRCTA_OBJETO) *
* LIBRARY(DES.CAD.V00.DCLGEN(CADTBA59)) *
* ACTION(REPLACE) *
* LANGUAGE(COBOL) *
* STRUCTURE(CADTBA59) *
* QUOTE *
* ... IS THE DCLGEN COMMAND THAT MADE THE FOLLOWING STATEMENTS *
******************************************************************
EXEC SQL DECLARE CAD.CADTBA59_IMAGEM_CRCTA_OBJETO TABLE
( NU_IMAGEM INTEGER NOT NULL,
NU_SEQUENCIAL_MODELO INTEGER NOT NULL,
TS_CARACTERISTICA TIMESTAMP NOT NULL,
IC_SITUACAO CHAR(1) NOT NULL
) END-EXEC.
******************************************************************
* COBOL DECLARATION FOR TABLE CAD.CADTBA59_IMAGEM_CRCTA_OBJETO *
******************************************************************
01 CADTBA59.
10 NU-IMAGEM PIC S9(9) USAGE COMP.
10 NU-SEQUENCIAL-MODELO
PIC S9(9) USAGE COMP.
10 TS-CARACTERISTICA PIC X(26).
10 IC-SITUACAO PIC X(1).
******************************************************************
* THE NUMBER OF COLUMNS DESCRIBED BY THIS DECLARATION IS 4 *
******************************************************************
|
