DCLGEN Ziekenhuis

 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)-
 000620    QUOTE-
 000630    LABEL(YES)
 000640  DCLGEN TABLE(HOG0009.BED_TYPE)-
 000650    ACTION(REPLACE)-
 000660    LIBRARY('HOG0009.TRANS.COBOL(BEDTYPG)')-
 000670    LANGUAGE(IBMCOB)-
 000680    QUOTE-
 000690    LABEL(YES)
 000691  DCLGEN TABLE(HOG0009.ROOM)-
 000692    ACTION(REPLACE)-
 000693    LIBRARY('HOG0009.TRANS.COBOL(ROOMG)')-
 000694    LANGUAGE(IBMCOB)-
 000695    QUOTE-
 000696    LABEL(YES)
 000700  END
 000800 /*