How to BulletProof Your JES2 Procedure

1
How to Bullet-Proof YourJES2 Procedure

• Session 2660
• Jack Schudel
• University of Florida
• schudel_at_ufl.edu

2
The Problem

• If JES2 does not come up, how will you fix
  whatever is wrong?

3
Alternatives

• TSSO.
• Run VTAM and TCAS under MSTR.
• Run TSO session under MSTR.
• ftp//phoenixsoftware.com/pub/demo/tsomods.xmi
• Or run TSO session under alternate JES2.

4
Shared SYS1.PROCLIB

• SYS1.PROCLIB is shared across several images.
• Different images require different JES2
  definitions.
• It must be possible to override default options
  from the operators console.

5
JES2 PROC

• //
• // EXEC PROCJES2SYSNAME
• //

6
JES2NER5 PROC

• //JES2 PROC PHASJES20, PROGRAM NAME
• // VERTEST, LINKLIB
  VERSION
• // LVSYSLIB, LINKLIB VOLUME
• // PVSYSLIB, PARMLIB VOLUME
• // USYSALLDA, PARMLIB UNIT
• // MPARM, PARMLIB MEMBER
• // BITNETBITNET, BITNET NODES
• // CCOMCHRNULL, CCOMCHR
• // SPOOLPAGE50,
• // PREPRE,
• // POSTPOST,
• // PATCHNULL, HASP REP
  PATCHES
• // DISPLAYDISPLAY,
• // CONSOLENULL, CONSOLE FOR
  CMDS
• // TESTNULL,
• // PRM'',
• // VV130
  

7
JES2NER5 PROC

• //IEFPROC EXEC PGMP,PARMPRM,TIME1440,PERFORM
  3
• //STEPLIB DD UNITU,VOLSERLV,DISPSHR,DSNJES
  2.V..VER..LINKLIB
• //HASPPARM DD UNITU,VOLSERPV,DISPSHR,DSNJES
  2.PARMLIB(V.PRE)
• // DD UNITU,VOLSERPV,DISPSHR,DSNJES
  2.PARMLIB(JES2M)
• // DD UNITU,VOLSERPV,DISPSHR,DSNJES
  2.PARMLIB(BITNET)
• // DD UNITU,VOLSERPV,DISPSHR,DSNJES
  2.PARMLIB(TEST)
• // DD UNITU,VOLSERPV,DISPSHR,DSNJES
  2.PARMLIB(V.POST)
• // DD UNITU,VOLSERPV,DISPSHR,DSNJES
  2.PARMLIB(SPOOL)
• // DD UNITU,VOLSERPV,DISPSHR,DSNJES
  2.PARMLIB(CCOMCHR)
• // DD UNITU,VOLSERPV,DISPSHR,DSNJES
  2.PARMLIB(V.PATCH)
• // DD UNITU,VOLSERPV,DISPSHR,DSNJES
  2.PARMLIB(DISPLAY)
• // DD UNITU,VOLSERPV,DISPSHR,DSNJES
  2.PARMLIB(CONSOLE)
• //HASPLIST DD UNITU,VOLSERPV,DISPSHR,DSNJES
  2.HASPLIST
• //IEFRDER DD DUMMY
  
• //XDCWTOR DD DUMMY

8
PROC OVERRIDES

• S JES2NER5,JOBNAMEJES2,SUBMSTR,keywordvalue
• IEF695I START JES2NER5 WITH JOBNAME JES2 IS
  ASSIGNED TO USER ////////

9
Backups

• Keep regular backups of JES2PARM and LINKLIB on
  different volume.
• Keep printed copies of the procs in the console
  area.
• Backup members before modifying them.
• Test JES2PARM updates using poly-JES.

10
PROCLIBS

• Use John Kinns Dynamic Allocation exits to
  allocate proclibs.
• Initialization will continue if one or more
  libraries are unavailable.
• In use since 1982.

11
PROCLIBS

• / NORMAL PROCLIBS /
• DYNALLOC DDNPROC00,DSNNERDC.PROCLIB
• DYNALLOC DDNPROC00,DSNSYS1.PROCLIB
• DYNALLOC DDNPROC00,DSNATC1.PROCLIB
• DYNALLOC DDNPROC00,DSNSH.PROCLIB
• DYNALLOC DDNPROC00,DSNNF.INS.PROD.PROCLIB
• DYNALLOC DDNPROC00,DSNSUS.PROCLIB
• DYNALLOC DDNPROC00,DSNCIRCA.PROCLIB
• DYNALLOC DDNPROC00,DSNIFAS.PROCLIB
• DYNALLOC DDNPROC01,DSNSYS1.PROCLIB

12
PROCLIBS

• / STC PROCLIBS /
• DYNALLOC DDNPROC07,DSNSYS1.PROCLIB
• DYNALLOC DDNPROC07,DSNSYS1.STC.PROCLIB
• DYNALLOC DDNPROC07,DSNSYS1.STC.DB2.PROCLIB
• DYNALLOC DDNPROC07,DSNSYS1.STC.CICS.PROCLIB
• DYNALLOC DDNPROC07,DSNSYS1.STC.TPAM.PROCLIB
• / TSO PROCLIB /
• DYNALLOC DDNPROC06,DSNSYS1.TSU.PROCLIB

13
PROCLIBS

• JES2 DYNAMIC PROCLIB ALLOCATION FAILURE
• IKJ56241I DATA SET IFAS.PROCLIB NOT ALLOCATED
• IKJ56241I NO UNIT AVAILABLE
• INITIALIZATION WILL CONTINUE WITH THE ABOVE DATA
  SET(S)
• ELIMINATED FROM LOGICAL PROCLIBS

14
SPOOL Member

• Define everything that could require a COLD start
  in one place.
• Especially useful if you run poly-JES.

15
SPOOL member

• CKPTDEF CKPT1(DSNSYS1.HASPCKPT,VOLPAGE50,INUSE
  YES)
• CKPTDEF CKPT2(DSN,VOL,INUSENO)
• CKPTDEF MODEDUPLEX,DUPLEXOFF
• SPOOLDEF VOLUMEPAGE5
  
• SPOOLDEF BUFSIZE3992
  
• SPOOLDEF FENCEYES
  
• SPOOLDEF TGNUM53008
• SPOOLDEF TGSIZE12
• JOBDEF JOBNUM8000
• OUTDEF JOENUM12000
  
• NJEDEF OWNNODE5
  

16
Rejected ideas

• Add SYS1.SYSNAME..PROCLIB to MSTJCL
• Add SYS1.NERx.PROCLIB to MSTJCLx0
• Use installation created system symbolics
• requires IPL to change
• IPL fails if there is an error