Generate DB2 table definition COPYBOOK

When accessing DB2 table in a COBOL program, usually we need know the table definition COPYBOOK.

Utility DCLGEN could be used to generate this COPYBOOK file.

For example: when table was defined as:
CREATE TABLE TESTTAB(COLA INT, COLB CHAR(10))

JCL JOB

//GENTBCPY JOB (DSNTEP4),'GENTBCPY',REGION=0M,CLASS=2,MSGCLASS=X,
// NOTIFY=&SYSUID
//*=============================================================
//*========GENERATE COPYBOOK FOR DB2 TABLE USING DCLGEN=========
//*=============================================================
//STEPGEN EXEC PGM=IKJEFT01,DYNAMNBR=20
//STEPLIB DD DSN=DSN910.SDSNEXIT,DISP=SHR
// DD DSN=DSN910.SDSNLOAD,DISP=SHR
// DD DSN=DSN910.RUNLIB.LOAD,DISP=SHR
// DD DSN=<DSN>.SDSNEXIT,DISP=SHR
//SYSTSIN DD *
DSN SYS(<DSN>)
DCLGEN TABLE(TESTTAB) -
LIBRARY('<UID>.<TARGET>.<PDS>.COPY(TESTTAB)') -
ACTION(REPLACE) -
APOST -
LANGUAGE(IBMCOB) -
STRUCTURE(TESTTAB-RECORD)
END
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN DD DUMMY
After job execution finished, you can find the generated COPYBOOK in PDS: <UID>.<TARGET>.<PDS>.COPY

This COPYBOOK can later be used directly in COBOL program through:

    EXEC SQL INCLUDE TESTTAB  END-EXEC.

The content of COPYBOOK TESTTAB may like:

000001 ******************************************************************
000002 * DCLGEN TABLE(TESTTAB) *
000003 * LIBRARY(<UID>.<TARGET>.<PDS>.COPY(TESTTAB)) *
000004 * ACTION(REPLACE) *
000005 * LANGUAGE(COBOL) *
000006 * STRUCTURE(TESTTAB-RECORD) *
000007 * APOST *
000008 * ... IS THE DCLGEN COMMAND THAT MADE THE FOLLOWING STATEMENTS *
000009 ******************************************************************
000010 EXEC SQL DECLARE TESTTAB TABLE
000011 ( COLA INTEGER,
000012 COLB CHAR(10)
000013 ) END-EXEC.
000014 ******************************************************************
000015 * COBOL DECLARATION FOR TABLE TESTTAB *
000016 ******************************************************************
000017 01 TESTTAB-RECORD.
000018 10 COLA PIC S9(9) USAGE COMP.
000019 10 COLB PIC X(10).
000020 ******************************************************************
000021 * THE NUMBER OF COLUMNS DESCRIBED BY THIS DECLARATION IS 2 *
000022 ******************************************************************