000100******************************************************************
000200* DCLGEN TABLE(KC02036.MYTABLE)                                  *
000300*        LIBRARY(KC02036.PDS.COPY(DCLMYTBL))                     *
000400*        ACTION(REPLACE)                                         *
000500*        LANGUAGE(COBOL)                                         *
000600*        NAMES(MY-)                                              *
000700*        QUOTE                                                   *
000800*        COLSUFFIX(YES)                                          *
000900* ... IS THE DCLGEN COMMAND THAT MADE THE FOLLOWING STATEMENTS   *
001000******************************************************************
001100     EXEC SQL DECLARE KC02036.MYTABLE TABLE                       
001200     ( FLDA                           CHAR(2) NOT NULL,           
001300       FLDB                           CHAR(2),                    
001400       FLDC                           CHAR(2)                     
001500     ) END-EXEC.                                                  
001600******************************************************************
001700* COBOL DECLARATION FOR TABLE KC02036.MYTABLE                    *
001800******************************************************************
001900 01  DCLMYTABLE.                                                  
002000*                       FLDA                                      
002100     10 MY-FLDA              PIC X(2).                            
002200*                       FLDB                                      
002300     10 MY-FLDB              PIC X(2).                            
002400*                       FLDC                                      
002500     10 MY-FLDC              PIC X(2).                            
002600******************************************************************
002700* THE NUMBER OF COLUMNS DESCRIBED BY THIS DECLARATION IS 3       *
002800******************************************************************