jelledebock

DCLGEN insert

Nov 26th, 2014
871
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.  000611    NAMES(B)-
  12.  000612    COLSUFFIX(YES)-
  13.  000620    QUOTE-
  14.  000630    LABEL(YES)
  15.  000640  DCLGEN TABLE(HOG0009.BED_TYPE)-
  16.  000650    ACTION(REPLACE)-
  17.  000660    LIBRARY('HOG0009.TRANS.COBOL(BEDTYPG)')-
  18.  000670    LANGUAGE(IBMCOB)-
  19.  000671    NAMES(BT)-
  20.  000672    COLSUFFIX(YES)-
  21.  000680    QUOTE-
  22.  000690    LABEL(YES)
  23.  000692  DCLGEN TABLE(HOG0009.ROOM)-
  24.  000693    ACTION(REPLACE)-
  25.  000696    LIBRARY('HOG0009.TRANS.COBOL(ROOMG)')-
  26.  000697    LANGUAGE(IBMCOB)-
  27.  000698    NAMES(R)-
  28.  000699    COLSUFFIX(YES)-
  29.  000700    QUOTE-
  30.  000701    LABEL(YES)
  31.  000710  END
  32.  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.

×