jelledebock

DCLGEN Ziekenhuis

Nov 19th, 2014
781
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

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×