DCLGEN insert

 000100 //HOG0009G JOB ,NOTIFY=&SYSUID
 000110 //JOBLIB   DD   DISP=SHR,DSN=DB2.V9R1.SDSNLOAD
 000200 //DCLGEN   EXEC PGM=IKJEFT01
 000230 //SYSTSPRT DD SYSOUT=*
 000290 //SYSTSIN  DD *
 000300  DSN SYSTEM(DB1S)
 000400  DCLGEN TABLE(HOG0009.BED)-
 000500    ACTION(REPLACE)-
 000600    LIBRARY('HOG0009.TRANS.COBOL(BEDG)')-
 000610    LANGUAGE(IBMCOB)-
 000611    NAMES(B)-
 000612    COLSUFFIX(YES)-
 000620    QUOTE-
 000630    LABEL(YES)
 000640  DCLGEN TABLE(HOG0009.BED_TYPE)-
 000650    ACTION(REPLACE)-
 000660    LIBRARY('HOG0009.TRANS.COBOL(BEDTYPG)')-
 000670    LANGUAGE(IBMCOB)-
 000671    NAMES(BT)-
 000672    COLSUFFIX(YES)-
 000680    QUOTE-
 000690    LABEL(YES)
 000692  DCLGEN TABLE(HOG0009.ROOM)-
 000693    ACTION(REPLACE)-
 000696    LIBRARY('HOG0009.TRANS.COBOL(ROOMG)')-
 000697    LANGUAGE(IBMCOB)-
 000698    NAMES(R)-
 000699    COLSUFFIX(YES)-
 000700    QUOTE-
 000701    LABEL(YES)
 000710  END
 000800 /*