SHARE
TWEET

CICS_JCL

jelledebock Dec 14th, 2014 (edited) 410 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  000010 //HOG0009C JOB ,NOTIFY=&SYSUID
  2.  000020 //CICSPR  PROC MEMBER=HLCICS09,
  3.  000040 //   CICSNUM=002
  4.  000106 //COMPILE EXEC PGM=IGYCRCTL,COND=(4,LT),
  5.  000107 // PARM='APOST,DATA(31),AR(E),XREF,RENT,LIB,MAP,OFF,TRUNC(BIN),CICS'
  6.  000108 //STEPLIB  DD DSN=CICSTS.V3R2.CICS.SDFHLOAD,DISP=SHR
  7.  000109 //         DD DSN=COBOL.V3R4.SIGYCOMP,DISP=SHR
  8.  000110 //SYSPRINT DD SYSOUT=*
  9.  000120 //SYSIN    DD DSN=HOG0009.TRANS.CICS.COBOL(HLCICS09),
  10.  000121 //  DISP=(SHR)
  11.  000130 //SYSLIN   DD DSN=HOG0009.TRANS.CICS.LINK,
  12.  000131 //  DISP=(NEW,PASS,DELETE),
  13.  000140 //  SPACE=(CYL,(1,1)),RECFM=FB,LRECL=80
  14.  000150 //SYSUT1   DD SPACE=(CYL,(1,1)),UNIT=SYSDA
  15.  000160 //SYSUT2   DD SPACE=(CYL,(1,1)),UNIT=SYSDA
  16.  000170 //SYSUT3   DD SPACE=(CYL,(1,1)),UNIT=SYSDA
  17.  000180 //SYSUT4   DD SPACE=(CYL,(1,1)),UNIT=SYSDA
  18.  000190 //SYSUT5   DD SPACE=(CYL,(1,1)),UNIT=SYSDA
  19.  000200 //SYSUT6   DD SPACE=(CYL,(1,1)),UNIT=SYSDA
  20.  000300 //SYSUT7   DD SPACE=(CYL,(1,1)),UNIT=SYSDA
  21.  000310 //**********************************************************************
  22.  000320 //*      LINK
  23.  000330 //**********************************************************************
  24.  000340 //*
  25.  000350 //LINKAGE  EXEC PGM=IEWL,COND=(4,LT),
  26.  000360 //     PARM=('LIST,XREF,LET,AMODE=31,RMODE=ANY')
  27.  000370 //SYSPRINT DD SYSOUT=*
  28.  000380 //SYSLIB   DD DSN=CICSTS.V3R2.CICS.SDFHLOAD,DISP=SHR
  29.  000390 //         DD DSN=CEE.SCEELKED,DISP=SHR
  30.  000400 //         DD DSN=DB2.V9R1.SDSNLOAD,DISP=SHR
  31.  000500 //SYSLIN   DD DSN=HOG0009.TRANS.CICS.LINK,
  32.  000510 //   DISP=(OLD,DELETE,DELETE)
  33.  000600 //SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
  34.  000700 //SYSLMOD  DD DSN=USER.CICS.Z&CICSNUM..LOADLIB(&MEMBER),DISP=SHR
  35.  000800 // PEND
  36.  000900 //START EXEC CICSPR
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