SHARE
TWEET

DCLGEN Ziekenhuis

jelledebock Nov 19th, 2014 327 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  000100 //HOG0009G JOB ,NOTIFY=&SYSUID
  2.  000110 //JOBLIB   DD   DISP=SHR,DSN=DB2.V9R1.SDSNLOAD
  3.  000200 //DCLGEN   EXEC PGM=IKJEFT01
  4.  000230 //SYSTSPRT DD SYSOUT=*
  5.  000290 //SYSTSIN  DD *
  6.  000300  DSN SYSTEM(DB1S)
  7.  000400  DCLGEN TABLE(HOG0009.BED)-
  8.  000500    ACTION(REPLACE)-
  9.  000600    LIBRARY('HOG0009.TRANS.COBOL(BEDG)')-
  10.  000610    LANGUAGE(IBMCOB)-
  11.  000620    QUOTE-
  12.  000630    LABEL(YES)
  13.  000640  DCLGEN TABLE(HOG0009.BED_TYPE)-
  14.  000650    ACTION(REPLACE)-
  15.  000660    LIBRARY('HOG0009.TRANS.COBOL(BEDTYPG)')-
  16.  000670    LANGUAGE(IBMCOB)-
  17.  000680    QUOTE-
  18.  000690    LABEL(YES)
  19.  000691  DCLGEN TABLE(HOG0009.ROOM)-
  20.  000692    ACTION(REPLACE)-
  21.  000693    LIBRARY('HOG0009.TRANS.COBOL(ROOMG)')-
  22.  000694    LANGUAGE(IBMCOB)-
  23.  000695    QUOTE-
  24.  000696    LABEL(YES)
  25.  000700  END
  26.  000800 /*
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top