****************************************************************** * DCLGEN TABLE(ZSTBF02) * * LANGUAGE(COBOL) * * QUOTE * * ... IS THE DCLGEN COMMAND THAT MADE THE FOLLOWING STATEMENTS * ****************************************************************** EXEC SQL DECLARE ZSTBF02 TABLE ( REK_NR DECIMAL(10, 0) NOT NULL, REK_IBAN CHAR(34) NOT NULL, PDCT_ID DECIMAL(4, 0) NOT NULL, OVK_ST_CD CHAR(1) NOT NULL, ABB_CD CHAR(2), MUT_TYDSTP TIMESTAMP NOT NULL ) END-EXEC. ****************************************************************** * COBOL DECLARATION FOR TABLE ZSTBF02 * ****************************************************************** 01 DCLZSTBF02. 10 REK-NR PIC S9(10) PACKED-DECIMAL. 10 REK-IBAN PIC X(34). 10 PDCT-ID PIC S9(4) PACKED-DECIMAL. 10 OVK-ST-CD PIC X(1). 10 ABB-CD PIC X(2). 10 MUT-TYDSTP PIC X(26). ****************************************************************** * THE NUMBER OF COLUMNS DESCRIBED BY THIS DECLARATION IS 6 * ******************************************************************