JES2 Short Subjects PolyJES

1
JES2 Short SubjectsPoly-JESINIT Deck
Structure

• Session 2667
• SHARE 104 - 02 MAR 2005 - Anaheim, CA
• Jack Schudel - schudel _at_ ufl.edu
• University of Florida

2
What is Poly-JES?

• Poly-JES is the facility that allows you to run
  one or more secondary JES2 subsystems in addition
  to the primary JES2 (or JES3) subsystem within a
  single MVS or z/OS system.

3
Same or Different SPOOL?
JES2
SPOOL1
JESA
JESN
TSTSPL
4
Same or Different SPOOL?

• Unique SPOOL and checkpoint provide best
  isolation
• Best for testing new releases, functions, etc
• Shared SPOOL and checkpoint allow access to
  production work
• Best for testing init deck changes

5
What can you do with Poly-JES?

• Test new releases, maintenance, or user exits
  without impacting the production subsystem
• Test changes to JES2.PARMLIB
• Rehearse potentially dangerous commands in a
  non-production environment
• Checkpoint reconfiguration dialog, etc

6
What can you do (cont)?

• Run JES2 and JES3 on the same MVS image
• Run secondary as the primary to fix JCL errors in
  primary
• R nn,PJES2
• S JESN,JOBNAMEJES2
• /T CONDEF,CONCHAR as needed

7
What can you do (cont)?

• Isolate external customer networks
• Facilitate migration of node name
• Primary runs with new node name applid
• Secondary runs with old names
• Periodic command to move work between nodes

8
Restrictions when using Poly-JES

• SYSLOG and MOUNT always runs under Primary JES
• FTP goes to Primary JES
• Started Tasks can be directed to alternate JES
  via SUBjesx on start command
• S PROCNAME,SUBJESN
• TSO logon requires special code
• several on CBTTAPE

9
Restrictions (cont)

• WLM Initiators
• If you are using WLM-managed initiators, do not
  classify the batch work from more than one MAS
  into the same WLM service class.
• Workload management initiators will only select
  jobs from the primary JES if the secondary JES is
  sharing spool with the primary.
• If two copies of JES2 in the same MVS system
  (poly-JES) are not sharing the same spool,
  workload management initiators can select jobs
  from both the primary and secondary JES.
• see JES2 Init Tuning Guide

10
Connectivity

• NJE over VTAM
• NJE over CTC
• TSO via special logon pre-prompt exit

11
Submitting Work to Secondary

• Via NJE
• /ROUTE XEQ nodename
• XMIT JECL card
• XMIT JCL card
• If in same MAS
• /JOBPARM SYSAFFmember
• Via STC (IEBGENER) to INTRDR
• S RUN,SUBJESN,Jmember,LIBdsn

12
Standard UF JES2 Proc

• //JES2 PROC VERPROD, LINKLIB
  VERSION
• // LV, LINKLIB VOLUME
• // PV, PARMLIB VOLUME
• // USYSALLDA, PARMLIB UNIT
• // MPARM, PARMLIB MEMBER
• // PREPRE,
• // POSTPOST,
• // PRM'NOREQ',
• // SPOOLJ2SPL, SPOOL
  CHECKPOINT DEFINITIONS
• // CCOMCHRNULL, COMMAND
  CHARACTER OVERRIDE
• // TESTNULL,
• // VZ140
• //
• //IEFPROC EXEC PGMHASJES20,PARMPRM,TIME1440
• //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(TEST)
• // DD UNITU,VOLSERPV,DISPSHR,DSNJES
  2.PARMLIB(V.POST)

13
UF JESA Proc

• //JESA PROC VERPROD, LINKLIB
  VERSION
• // LV, LINKLIB VOLUME
• // PV, PARMLIB VOLUME
• // USYSALLDA, PARMLIB UNIT
• // MPARM, PARMLIB MEMBER
• // PREPRE,
• // POSTPOST,
• // PRM'',
• // SPOOLJ2SPL,
• // CCOMCHRPERIOD, ltltlt
• // TESTJESA, ltltlt
• // VZ140
• //
• //IEFPROC EXEC PGMHASJES20,PARMPRM,TIME1440
• //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(TEST)
• // DD UNITU,VOLSERPV,DISPSHR,DSNJES
  2.PARMLIB(V.POST)

14
JES2.PARMLIB(PERIOD)

• CONDEF CONCHAR.

15
JES2.PARMLIB(JESA)

• LOGON1 APPLIDSYSNAME.JESA
• MASDEF OWNSIDNER7
• /
  /
• / Note that the following was in an earlier
  definition /
• / MEMBER(7) NAMENER7
  /
• /
  /

16
UF JESN Proc

• //JESN PROC VERTEST, ltltlt
• // LV,
• // PV,
• // USYSALLDA,
• // MPARM,
• // PREPRE,
• // POSTPOST,
• // PRM'',
• // SPOOLMVSXAT, ltltlt
• // CCOMCHRSLASH, ltltlt
• // TESTJESN, ltltlt
• // VZ140
• //
• //IEFPROC EXEC PGMHASJES20,PARMPRM,TIME1440
• //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(TEST)
• // DD UNITU,VOLSERPV,DISPSHR,DSNJES
  2.PARMLIB(V.POST)

17
JES2.PARMLIB(J2SPL)

• CKPTDEF CKPT1(DSNSYS1.HASPCKPT,VOLJ2SPL0,INUSE
  YES)
• CKPTDEF CKPT2(DSNSYS1.HASPCKPT,VOLJ2SPL5,INUSE
  YES)
• CKPTDEF MODEDUPLEX,DUPLEXON
• SPOOLDEF VOLUMEJ2SPL
• SPOOLDEF BUFSIZE3992
• SPOOLDEF FENCEYES
• SPOOLDEF TGNUM299955
• SPOOLDEF TGSIZE12
• SPOOLDEF TGWARN90
• SPOOLDEF TGBPERVL51
• NJEDEF OWNNODE1
• JOBDEF JOBNUM20000
• OUTDEF JOENUM46000

18
JES2.PARMLIB(MVSXAT)

• CKPTDEF CKPT1(DSNSYS1.HASPCKPT,VOLMVSXAT,INUSE
  YES)
• CKPTDEF CKPT2(DSN,VOL,INUSENO)
• CKPTDEF MODEDUPLEX,DUPLEXOFF
• SPOOLDEF VOLUMEMVSXA
• SPOOLDEF BUFSIZE3992
• SPOOLDEF FENCEYES
• SPOOLDEF TGNUM53008
• SPOOLDEF TGSIZE10
• SPOOLDEF TGWARN90
• NJEDEF OWNNODE99
• JOBDEF JOBNUM8000
• DEBUGYES
• LOGON1 APPLIDSYSNAME.JEST

19
JES2.PARMLIB(JESN)

• LOGON1 APPLIDSYSNAME.JESN
• MC,UNRESTRICT
• DEBUGYES

20
JES2.PARMLIB(DISPLAY)

• / This member is last in the concatenation. /
• D CKPTDEF CKPT1
• D CKPTDEF CKPT2
• D CKPTDEF MODE
• D SPOOLDEF VOLUME
• D CONDEF CONCHAR
• D NJEDEF OWNNODE
• D MASDEF OWNMEMB
• D LOGON1 APPLID

21
MASDEF HOLD and DORM values

• If this will be the first use of shared spool,
  make sure that they are OK
• Default for HOLD is 999,999.99 seconds, which is
  about 11.5 days!
• If new test spool is on shared volume, make sure
  MASDEF HOLD does not block other users

22
SYS1.PARMLIB(IEFSSN00)

• SUBSYS SUBNAME(JES2) PRIMARY(YES) START(NO) /
  PRIMARY SUBSYS /
• SUBSYS SUBNAME(JESA) /
  ALTERNATE JES2 /
• SUBSYS SUBNAME(JEST) /
  TEST JES2 /
• SUBSYS SUBNAME(JESN) /
  TEST JES2 /
• / Console commands
  /
• / D SSI,SUBJES
  /
• / SETSSI ADD,SUBNAMEcccc
  /

23
ADCD VTAMLIST

• A0600 VBUILD TYPEAPPL APPLICATION MAJOR
  NODE
• A06JES2 APPL EAS1, ESTIMATED
  CONCURRENT SESSIONS
• ACBNAMEJES2, APPLID FOR ACB
  
• AUTH(ACQ,PASS) JES2 CAN ACQUIRE
  TERMINALS
• A06JESA APPL EAS1, ESTIMATED
  CONCURRENT SESSIONS
• ACBNAMEJESA, APPLID FOR ACB
  
• AUTH(ACQ,PASS) JESA CAN ACQUIRE
  TERMINALS

24
UF VTAMLIST

• VBUILD TYPEAPPL
• NER1JES2 APPL ACBNAMENER1JES2,AUTH(ACQ),VPACING
  20,
• MODETABDEFMODE,DLOGMODJES2NJE
• VBUILD TYPEAPPL
• NER1JESA APPL ACBNAMENER1JESA,AUTH(ACQ),VPACING
  20,
• MODETABVUSS3770,DLOGMODJES2NJE
• VBUILD TYPEAPPL
• NER1JEST APPL ACBNAMENER1JEST,AUTH(ACQ),VPACING
  20,
• MODETABVUSS3770,DLOGMODJES2NJE

25
References

• SA22-7532
• JES2 Initialization and Tuning Guide
• SA22-7597
• MVS JCL Reference
• SA22-7592
• MVS Initialization and Tuning Reference

26
Questions?
27
Appendix
28
SYS1.STC.PROCLIB(R)

• //
• // proc to submit jobs to the Internal Reader
• //
• // Examples
• //
• // S R,JHALTEOD
• // S R,JJES2COPY,LIBJES2.RUN.JOBS
• // S R,JTESTSUB,LIBJES2.TEST.JOBS,SUBJESN
• //
• //R PROC JIEFBR14,LIB'MVS.RUN.JOBS'
• //R EXEC PGMIEBGENER
• //SYSPRINT DD DUMMY
• //SYSIN DD DUMMY
• //SYSUT1 DD DSNLIB.(J),DISPSHR
• //SYSUT2 DD SYSOUT(A,INTRDR),RECFMF,LRECL80,B
  LKSIZE80

29
SDSF Under Secondary JES2

• Create new ISFPRMxx member with JESNAME set to
  secondary JES2
• Start second SDSF server w/ new member
• S SDSF.SDSFA,MJA
• Access second server
• SDSF SERVER(SDSFA)