Preface
JES2 (Job Entry System 2) is the spooling package distributed with MVS 3.8J to queue manage (schedule) job in-take, route and/or hold printer and punch output. JES2 is a principal component of MVS.
The following manuals, at minimum, should be referenced whether following up on MVS / JES2 functionality, modifying JES2 or Hercules configuration:
- GC23-0002-0 MVS System Programming Library JES2
- GC23-0007-1_Operators Library OS/VS2 MVS JES2 Commands
- SR20-4460-0 System/370 Operators Reference Guide
- GX20-1983-0 3350 Reference Summary Fanfold
- Hercules Emulator Users Reference Guide
As a software developer or systems programmer using MVS 3.8J, held output can quickly reach capacity during a personal work (marathon!!) period, say over two or three days!
Numerous and lengthy assemblies and/or compilations and/or miscellaneous reports push JES2 queue limitations before halting your development computing environment, for example, not being able to submit a job for execution from a TSO / ISPF session.
It would be nice to add additional spool capacity while maintaining current work results on your personal MVS 3.8J system.
This post focuses on adding one spool DASD device to MVS 3.8J (TK4-update8 or TK5-update2) without performing a JES2 cold start and preserving current queue content.
That is, by adding a single DASD device, spooling capacity is increased to facilitate larger queued output content (i.e. reports or punch data) while adhering to current limit of two direct access devices (&NUMDA=2) and maintaining current maximum job limit (&MAXJOB=128 for tk4 or &MAXJOBS=1024 for tk5) without necessitating a JES2 cold start. Thus, by not affecting JES2 configuration parameters, JES2 formats and incorporates a new DASD device into the current JES2 volume inventory!
Preparation
Current MVS 3.8J base distributions, specifically for tk4-update8 (referred as tk4- in this post) and tk5-update2 (referred as tk5 in this post), contains only one JES2 spool DASD device with a specified maximum limits for queued jobs per JES2 system parameters.
To collect information in preparation for adding an additional JES2 volume, various commands will be issued such as:
- Host OS commands via command prompt or SSH terminal
- MVS OS commands via MVS console
- Hercules Emulator commands via Hercules console
On JES2, the spool MVS dataset name is SYS1.HASPACE and resides as a large dataset on individual volumes.
On tk4-, SYS1.HASPACE, resides on volume HASP00 as shown below. The new 3350 volume name assigned is HASP01.
-------------------------------- RFE DSLIST ---------------------- Row 1 of 4 Command ===> Scroll ===> CSR S DATA-SET-NAME- VOLUME ALTRK USTRK ORG FRMT % XT LRECL BLKSZ REFDT CREDT EXPDT ' SYS1.HASPACE HASP00 7657 ** ** 0 1 24126 13312R ' SYS1.HASPCKPT MVSDLB 30 ** ** 0 1 24126 13312R **END** TOTALS: 8454 TRKS ALLOC 0 TRKS USED 2 EXTENTS
On tk5, SYS1.HASPACE, resides on volume SPOOL0 as shown below. The new 3350 volume name assigned is SPOOL1.
-------------------------------- RFE DSLIST ---------------------- Row 1 of 4 Command ===> Scroll ===> CSR S DATA-SET-NAME- VOLUME ALTRK USTRK ORG FRMT % XT LRECL BLKSZ REFDT CREDT EXPDT ' SYS1.HASPACE SPOOL0^15000 ** ** 0 1 24119 22084R ' SYS1.HASPCKPT SPOOL0^ 150 ** ** 0 1 24119 22084R **END** TOTALS: 15150 TRKS ALLOC 0 TRKS USED 2 EXTENTS
Host OS file names for emulated DASD devices, MVS DASD types and MVS device addresses differ between tk4- and tk5 distributions.
Based on the Hercules tk4- configuration (tk4-.cnf), volume HASP00 is represented as file hasp00.152 in directory dasd as a 3330 DASD type at device address x’0152.
Snippet of tk4- configuration (tk4-.cnf) DASD section
#
# TK4- DASD
#
0152 3330 dasd/hasp00.152 <<--- JES2 spool DASD
0191 3390 dasd/mvscat.191
0248 3350 dasd/mvsdlb.248
0148 3350 dasd/mvsres.148
0160 3340 dasd/page00.160
0161 3340 dasd/page01.161
0240 3350 dasd/pub000.240
0241 3350 dasd/pub010.241
0270 3375 dasd/pub001.270
0271 3375 dasd/pub011.271
0280 3380 dasd/pub002.280
0281 3380 dasd/pub012.281
0290 3390 dasd/pub003.290
0291 3390 dasd/pub013.291
0149 3350 dasd/smp001.149
014a 3350 dasd/smp002.14a
014b 3350 dasd/smp003.14b
014c 3350 dasd/smp004.14c
0131 2314 dasd/sort01.131
0132 2314 dasd/sort02.132
0133 2314 dasd/sort03.133
0134 2314 dasd/sort04.134
0135 2314 dasd/sort05.135
0136 2314 dasd/sort06.136
0140 3350 dasd/work00.140
0170 3375 dasd/work01.170
0180 3380 dasd/work02.180
0190 3390 dasd/work03.190
Note: The 3330 Model-1 DASD device capacity is less than a 3350 device.
3330 Model 1
--------------------------------------------------
Tracks per Cylinder: 30 (plus 5 alternates)
Cylinders per Drive: 404 (plus 7 alternates)
Tracks per Drive: 7,676 (plus 133 alternates)
Track Capacity: 13,030
Cylinder Capacity: 247,570
Drive Capacity: 100,018,280
Based on the Hercules tk5 configuration (tk5.cnf), volume SPOOL0 is represented as file spool0.249 in directory dasd as a 3350 DASD type at device address x’0249.
Snippet of tk5 configuration (tk5.cnf) DASD section
#
# TK5 DASD
#
0390 3390 dasd/tk5res.390
0391 3390 dasd/tk5cat.391
0392 3390 dasd/tk5dlb.392
0380 3380 dasd/int001.380
0190 3390 dasd/tso001.190
0191 3390 dasd/tso002.191
0192 3390 dasd/tso003.192
0248 3350 dasd/page00.248
0249 3350 dasd/spool0.249 <<--- JES2 spool DASD
0290 3390 dasd/work01.290
0291 3390 dasd/work02.291
0292 3390 dasd/work03.292
0293 3390 dasd/work04.293
0298 3390 dasd/tk5001.298
0299 3390 dasd/tk5002.299
The 3350 DASD is the largest device, in terms of storage capacity, supported by MVS 3.8J and JES2. Some specifications include:
3350
--------------------------------------------------
Tracks per Cylinder: 30 (plus 5 alternates)
Cylinders per Drive: 555 (plus 5 alternates)
Tracks per Drive: 16,650 (plus 150 alternates)
Track Capacity: 19,069
Cylinder Capacity: 572,070
Drive Capacity: 317,498,850
See this handy URL for additional 3350 device details – https://www.tommysprinkle.com/mvs/hardware/Disk3350.htm
Note: Any change to the JES2 parameters may require a cold start resulting in the loss of current queued jobs / output. This awareness is also highlighted as comments in the two JES2PARM snippets below.
For convenient reference, the JES2PARM members are listed for tk4- and tk5.
. TK4- base distribution JES2 Parameters . ====================================== . . LIST *********************************************************************** * * Name: SYS1.JES2PARM(JES2PARM) * * Desc: JES2PARM with Printers, Punches, and Readers drained * Printer1 at 00E serves class A (Batch etc) * Printer2 at 00F serves class Z (STC and TSU) * Printer3 at 002 serves class X (Held Job Output) * Punch1 at 00D serves class B * Reader1 at 00C * *********************************************************************** ******** * ******** *JES2 INITIALIZATION PARAMETERS ******** * NOTE: CHANGING ANY OF THE FOLLOWING WILL ******** * REQUIRE A COLD START OR FORMAT ******** *&SPOOL &BUFSIZE &MAXJOBS &NUMJOES ******** *&SPOLMSG &NUMRJE &NUMTG &NUMDA ******** *&TCELSIZ &RECINCR &MINJOES &SID (OR SMF SID IF DFLT) ******** *&NUMNODE &OWNNODE &TGSIZE ******** * &BUFSIZE=4008 BUFFER SIZE IN BYTES &CCOMCHR=$ OPERATOR COMMAND IDENTIFIER &CHKPT=MVSDLB CHECKPOINT VOLID FOR SYS1.HASPCKPT &CKPTIME=60 CHECKPOINT INTERVAL IN SECONDS COMPACT=01,15,H,I,X,-,*, ,0,A,B,C,D,E,F,1,2,3,4,5,6,7,8,9,G,J,K,L,M,N, + O,P,Q COMPACTION CHARACTERS &DEBUG=NO DEBUG OPTION &DMNDSET=YES DEMAND SETUP OPTION &DSNPRFX=SYS1 DATA SET PREFIX (SPOOL AND CKPT) &ESTIME=0059 DEFAULT ESTIMATED EXECUTION TIME &ESTLNCT=50 DEFAULT ESTIMATED PRINT OUTPUT &ESTPUN=10000 DEFAULT ESTIMATED PUNCH OUTPUT HASPSSSM=HASPSSSM SUBSYS SUPP MODULE NAME INTRDR AUTH=7 INT READER AUTH &JCOPYLM=255 MAX JOB OUTPUT COPIES &LINECT=0 LINE / PAGE LIMIT &MAXCLAS=3 MAX JOB CLASSES / INITIATOR &MAXJOBS=128 MAX JOBS IN JOB QUEUE &MAXPART=6 MAX LOGICAL INITIATORS &MAXSESS=2 MAX VTAM SESSIONS &MINJOES=100 FREE JOE COUNT &MLBFSIZ=520 MULTI-LEAVE BUFFER SIZE &MSGID=YES MSG ID OPTION &NOPRCCW=30 PRINTER CCW LIMIT &NOPUCCW=45 PUNCH CCW LIMIT &NUMACE=50 AUTO COMMAND LIMIT &NUMBUF=128 I/O BUFFER COUNT &NUMCLAS=5 PRINTER SYSOUT CLASS LIMIT &NUMCMBS=128 NO. OF JES2 CONSOLE MSG BUFFERS &NUMDA=2 NO. OF SPOOL VOLUMES &NUMINRS=04 NO. OF INTERNAL READERS &NUMJOES=1200 NO. OF JOES &NUMLNES=4 NO. OF RJE/NJE LINES &NUMPRTS=3 NO. OF LOCAL PRINTERS &NUMPUNS=1 NO. OF LOCAL PUNCHES &NUMRDRS=1 NO. OF LOCAL READERS &NUMRJE=4 NO. OF RJE TERMINALS &NUMSMFB=50 JES2 SMF BUFFER COUNT &NUMTGV=404 NO. OF TRACK GROUPS/VOL &NUMTPBF=16 NO. OF TP BUFFERS &OUTPOPT=0 OPTION FOR EXCEEDING EST JOB OUTPUT &OUTXS=5000 MSG INTERVAL FOR EST OUTPUT &PRIDCT=33 LOCAL SEPARATOR PAGE LINE COUNT &PRIHIGH=13 UPPER PRIORITY LIMIT SELECTION &PRILOW=2 LOWER PRIORITY LIMIT SELECTION PRINTER1 CLASS=A,SEP,AUTO,DSPLTCEL,NOPAUSE,UNIT=00E,DRAIN, + UCS=QN,FCB=6 PRINTER2 CLASS=Z,SEP,AUTO,DSPLTCEL,NOPAUSE,UNIT=00F,DRAIN, + UCS=QN,FCB=6 PRINTER3 CLASS=X,SEP,AUTO,DSPLTCEL,NOPAUSE,UNIT=002,DRAIN, + UCS=QN,FCB=6 &PRIOOPT=YES /*PRIORITY SUPPORT OPTION &PRIRATE=24 PRIORITY INCREMENT INTERVALS/DAY &PRTBOPT=YES LOCAL PRINT DOUBLE BUFFERING OPTION &PRTFCB=6 FCB DEFAULT &PRTRANS=NO PRINT TRANSLATION OPTION &PRTUCS=QN UCS DEFAULT &PRTYOPT=YES PRTY SUPPORT OPTION &PUNBOPT=YES LOCAL PUNCH DOUBLE BUFFERING OPTION PUNCH1 CLASS=B,NOSEP,AUTO,PAUSE,UNIT=00D,START &RCOMCHR=$ INSTREAM COMMAND IDENTIFIER ********=00100300051220E00011 From Starter System &RDROPSL=00014395999931E00011 TIME SHARING USER &RDROPST=00014395999931E00011 STARTED TASK CONTROL &RDROPSU=30000013099901E00011 BATCH ******** BPPMMMMSSCCCRLAAAAEF DEFAULT CONVERSION PARAMETER FIELDS ******** !! ! ! ! !!! ! DEFAULT CONVERSION PARAMETER FIELDS ******** !! ! ! ! !!! +----- DEFAULT MSGLEVEL parameter ******** !! ! ! ! !!+--------- Command Group Authorization ******** !! ! ! ! !+---------- BLP Authorization ******** !! ! ! ! +----------- Command processing from input stream ******** !! ! ! ! 2=log, confirm, execute ******** !! ! ! +-------------- Default step REGION= parameter ******** !! +---+---------------- Default step TIME= parameter MMMSS ******** !+---------------------- Don't know ******** +----------------------- Account/programmer required ******** 0 = none ******** 1 = Account ******** 2 = Programmer ******** 3 = Both READER1 AUTH=0,CLASS=A,NOHOLD,MSGCLASS=A,PRLCL,PULCL,UNIT=00C &RECINCR=2 RECORD ALTERNATION &RJOBOPT=5 JOB CARD SCAN OPTION &RPRBOPT=YES REMOTE PRINT DOUBLE BUFFERING OPTION &RPRI(1)=6 PRTY FOR ESTIMATED TIME &RPRI(2)=5 PRTY FOR ESTIMATED TIME &RPRI(3)=4 PRTY FOR ESTIMATED TIME &RPRI(4)=3 PRTY FOR ESTIMATED TIME &RPRI(5)=2 PRTY FOR ESTIMATED TIME &RPRI(6)=1 PRTY FOR ESTIMATED TIME &RPRT(1)=5 ESTIMATED TIME TABLE ENTRY &RPRT(2)=10 ESTIMATED TIME TABLE ENTRY &RPRT(3)=59 ESTIMATED TIME TABLE ENTRY &RPRT(4)=120 ESTIMATED TIME TABLE ENTRY &RPRT(5)=279620 ESTIMATED TIME TABLE ENTRY &RPRT(6)=279620 ESTIMATED TIME TABLE ENTRY &RPS=YES RPS SUPPORT &RPUBOPT=YES DOUBLE BUFFERING ON REMOTE PUNCHES &SPOLMSG=6 RJE SPOOL MSG RECORD COUNT &SPOOL=HASP00 SPOOL VOLUME ID FOR SYS1.HASPACE STCMCLAS=Z STARTED TASK MSG CLASS &STDFORM=0001 DEFAULT FORMS ID *&TCELSIZ=5 TRACK CELL SIZE (BUFFS/TRACK) &TGWARN=80 TRACK GROUP SHORTAGE WARNING % &TIMEOPT=YES EXECUTION TIME MONITORING OPTION &TIMEXS=30 EXCEEDED EXEC TIME MSG INTERVAL &TPBFSIZ=520 TP (RJE) BUFFER SIZE (3780) &TPIDCT=33 REMOTE SEPARATOR PAGE LINE COUNT TSUMCLAS=Z TSU OUTPUT CLASS &WAITIME=1 REMOTE TERMINAL FUNCTION TIME &XBATCH=YES EXECUTION BATCH SCHEDULING OPTION &XBATCHN=$$$$$ EXECUTION BATCH PROC PREFIX &XLIN(1)=120 OUTPUT SELECTION PRIORITY CATEGORY &XLIN(2)=1000 &XLIN(3)=2000 &XLIN(4)=2500 &XLIN(5)=6500 &XLIN(6)=1000000 &XLIN(7)=16777215 ******** * LINE1 UNIT=670,EBCDIC,TRANSP,HISPEED,FDUPLEX,NOADISC,CODEA,IFACEA RMT1 3780,NUMPR=1,LINE=1,NUMRD=1,NUMPU=1,TRANSP,NOTABS R1.PR1 START,CLASS=XA,UCS=QN,FCB=6,SEP,AUTO,PRWIDTH=151 R1.PU1 CLASS=B R1.RD1 CLASS=A DESTID NAME=RMT01,DEST=R1 ******** * LINE2 UNIT=671,EBCDIC,TRANSP,HISPEED,FDUPLEX,NOADISC,CODEA,IFACEA RMT2 3780,NUMPR=1,LINE=2,NUMRD=1,NUMPU=1,TRANSP,NOTABS R2.PR1 START,CLASS=XA,UCS=QN,FCB=6,SEP,AUTO,PRWIDTH=151 R2.PU1 CLASS=B R2.RD1 CLASS=A DESTID NAME=RMT02,DEST=R2 ******** * LINE3 UNIT=672,EBCDIC,TRANSP,HISPEED,FDUPLEX,NOADISC,CODEA,IFACEA RMT3 3780,NUMPR=1,LINE=3,NUMRD=1,NUMPU=1,TRANSP,NOTABS R3.PR1 START,CLASS=XA,UCS=QN,FCB=6,SEP,AUTO,PRWIDTH=151 R3.PU1 CLASS=B R3.RD1 CLASS=A DESTID NAME=RMT03,DEST=R3 ******** * LINE4 UNIT=673,EBCDIC,TRANSP,HISPEED,FDUPLEX,NOADISC,CODEA,IFACEA RMT4 3781,NUMPR=1,LINE=4,NUMRD=1,NUMPU=1,TRANSP,NOTABS R1.PR4 START,CLASS=XA,UCS=QN,FCB=6,SEP,AUTO,PRWIDTH=151 R1.PU4 CLASS=B R1.RD4 CLASS=A DESTID NAME=RMT04,DEST=R4 ******** *JES2 LOGICAL INITIATORS.CHANGE INIT CLASSES AT END OF ******** * MEMBER(JES2 COMMANDS) I1 START,NAME=1,CLASS=A I2 START,NAME=2,CLASS=BA I3 START,NAME=3,CLASS=HBA I4 START,NAME=4,CLASS=SHB I5 START,NAME=5,CLASS=SBA I6 START,NAME=6,CLASS=SC ******** *JES2 STC/TSU/BATCH CHARACTERISTICS &STC NOJOURN,LOG,OUTPUT,PROCLIB=00,PERFORM=1 &TSU NOJOURN,LOG,OUTPUT,PROCLIB=00,PERFORM=2 &RDROPSU=30000013099901E00011 BATCH ******** BPPMMMMSSCCCRLAAAAEF DEFAULT CONVERSION PARAMETER FIELDS ******** !! ! ! ! !!! ! DEFAULT CONVERSION PARAMETER FIELDS ******** !! ! ! ! !!! +----- DEFAULT MSGLEVEL parameter ******** !! ! ! ! !!+--------- Command Group Authorization ******** !! ! ! ! !+---------- BLP Authorization ******** !! ! ! ! +----------- Command processing from input stream ******** !! ! ! ! 2=log, confirm, execute ******** !! ! ! +-------------- Default step REGION= parameter ******** !! +---+---------------- Default step TIME= parameter mmmss ******** !+---------------------- Don't know ******** +----------------------- Account/programmer required ******** * BPPMMMMSSCCCRLAAAAEF <- CONVERSION &A NOJOURN,LOG,OUTPUT,PROCLIB=00,PERFORM=4, Low priority batch C CONVPARM=00000100076830E00011 &B NOJOURN,LOG,OUTPUT,PROCLIB=00,PERFORM=1, Standard batch C CONVPARM=00000100099930E00011 &C NOJOURN,LOG,OUTPUT,PROCLIB=00,PERFORM=1, KICKS single thread C CONVPARM=00000100099930E00011 *********************** BPPMMMMSSCCCRLAAAAEF &H NOJOURN,LOG,OUTPUT,PROCLIB=00,PERFORM=3, Hot Batch C CONVPARM=30000020099930E00011 &S NOJOURN,LOG,OUTPUT,PROCLIB=00,PERFORM=3, Sysprog C CONVPARM=30014395999921E00011 ******** *SYSOUT CLASS SPECIFICATIONS $$A PRINT,SYSOUT,NOHOLD,TRKCEL STANDARD OUTPUT CLASS $$B PUNCH,SYSOUT,NOHOLD,TRKCEL STANDARD PUNCH CLASS $$C PRINT,SYSOUT,HOLD HOLD - SYSOUT $$D PRINT,SYSOUT,HOLD HOLD - SYSOUT $$E PRINT,SYSOUT,HOLD HOLD - SYSOUT $$F PRINT,SYSOUT,HOLD HOLD - SYSOUT $$G PRINT,SYSOUT,NOHOLD,TRKCEL output class for JRP printer at 0C7 $$H PRINT,SYSOUT,HOLD HOLD - SYSOUT $$I PRINT,SYSOUT,HOLD HOLD - SYSOUT $$J PRINT,SYSOUT,HOLD HOLD - SYSOUT $$K PRINT,SYSOUT,HOLD HOLD - SYSOUT $$L PRINT,SYSOUT,NOHOLD,TRKCEL SYSLOG $$M PRINT,SYSOUT,HOLD HOLD - SYSOUT $$N PRINT,SYSOUT,HOLD HOLD - SYSOUT $$O PRINT,SYSOUT,HOLD HOLD - SYSOUT $$P PRINT,SYSOUT,HOLD HOLD - SYSOUT $$Q PRINT,SYSOUT,HOLD HOLD - SYSOUT $$R PRINT,SYSOUT,HOLD HOLD - SYSOUT $$S PRINT,SYSOUT,HOLD HOLD -SYSOUT $$T PRINT,SYSOUT,HOLD HOLD -SYSOUT $$U PRINT,SYSOUT,HOLD HOLD - SYSOUT $$V PRINT,SYSOUT,HOLD HOLD - SYSOUT $$W PRINT,SYSOUT,HOLD HOLD - SYSOUT $$X PRINT,SYSOUT,HOLD HOLD - SYSOUT $$Y PRINT,SYSOUT,HOLD HOLD - SYSOUT $$Z PRINT,SYSOUT,NOHOLD,TRKCEL STC AND TSU CLASS $$0 PRINT,DUMMY PURGE $$1 PRINT,SYSOUT,HOLD HOLD - SYSOUT $$2 PRINT,SYSOUT,HOLD HOLD - SYSOUT $$3 PRINT,SYSOUT,HOLD HOLD - SYSOUT $$4 PRINT,SYSOUT,HOLD HOLD - SYSOUT $$5 PRINT,SYSOUT,HOLD HOLD - SYSOUT $$6 PRINT,SYSOUT,HOLD HOLD - SYSOUT $$7 PRINT,SYSOUT,HOLD HOLD - SYSOUT $$8 PRINT,DUMMY PURGE $$9 PRINT,SYSOUT,HOLD HOLD - SYSOUT *** ******** *System Startup *** *** Note: Don't place any further startup commands here, *** enter them in parmlib member STARTSTD or STARTMIN instead *** $VS,'S BSPSETPF,PARM=NOREPLYU'
. TK5 base distribution JES2 Parameters . ===================================== . . LIST *********************************************************************** * * Name: SYS1.JES2PARM(JES2PARM) * * Desc: JES2PARM with Printers, Punches, and Readers drained * Printer1 at 00E serves class A (Batch etc) * Printer2 at 00F serves class Z (STC and TSU) * Printer3 at 002 serves class X (Held Job Output) * Punch1 at 00D serves class B * Reader1 at 00C * *********************************************************************** ******** * ******** *JES2 INITIALIZATION PARAMETERS ******** * NOTE: CHANGING ANY OF THE FOLLOWING WILL ******** * REQUIRE A COLD START OR FORMAT ******** *&SPOOL &BUFSIZE &MAXJOBS &NUMJOES ******** *&SPOLMSG &NUMRJE &NUMTG &NUMDA ******** *&TCELSIZ &RECINCR &MINJOES &SID (OR SMF SID IF DFLT) ******** *&NUMNODE &OWNNODE &TGSIZE ******** * &BUFSIZE=3664 BUFFER SIZE IN BYTES &CCOMCHR=$ OPERATOR COMMAND IDENTIFIER &CHKPT=SPOOL0 CHECKPOINT VOLID FOR SYS1.HASPCKPT &CKPTIME=60 CHECKPOINT INTERVAL IN SECONDS COMPACT=01,15,H,I,X,-,*, ,0,A,B,C,D,E,F,1,2,3,4,5,6,7,8,9,G,J,K,L,M,N, + O,P,Q COMPACTION CHARACTERS &DEBUG=NO DEBUG OPTION &DMNDSET=YES DEMAND SETUP OPTION &DSNPRFX=SYS1 DATA SET PREFIX (SPOOL AND CKPT) &ESTIME=0059 DEFAULT ESTIMATED EXECUTION TIME &ESTLNCT=50 DEFAULT ESTIMATED PRINT OUTPUT &ESTPUN=10000 DEFAULT ESTIMATED PUNCH OUTPUT HASPSSSM=HASPSSSM SUBSYS SUPP MODULE NAME INTRDR AUTH=7 INT READER AUTH &JCOPYLM=255 MAX JOB OUTPUT COPIES &LINECT=0 LINE / PAGE LIMIT &MAXCLAS=3 MAX JOB CLASSES / INITIATOR &MAXJOBS=1024 MAX JOBS IN JOB QUEUE &MAXPART=6 MAX LOGICAL INITIATORS &MAXSESS=2 MAX VTAM SESSIONS &MINJOES=100 FREE JOE COUNT &MLBFSIZ=520 MULTI-LEAVE BUFFER SIZE &MSGID=YES MSG ID OPTION &NOPRCCW=30 PRINTER CCW LIMIT &NOPUCCW=45 PUNCH CCW LIMIT &NUMACE=50 AUTO COMMAND LIMIT &NUMBUF=128 I/O BUFFER COUNT &NUMCLAS=5 PRINTER SYSOUT CLASS LIMIT &NUMCMBS=128 NO. OF JES2 CONSOLE MSG BUFFERS &NUMDA=2 NO. OF SPOOL VOLUMES &NUMINRS=04 NO. OF INTERNAL READERS &NUMJOES=3000 NO. OF JOES &NUMLNES=4 NO. OF RJE/NJE LINES &NUMPRTS=3 NO. OF LOCAL PRINTERS &NUMPUNS=1 NO. OF LOCAL PUNCHES &NUMRDRS=1 NO. OF LOCAL READERS &NUMRJE=4 NO. OF RJE TERMINALS &NUMSMFB=50 JES2 SMF BUFFER COUNT &NUMTGV=8325 NO. OF TRACK GROUPS/VOL &NUMTPBF=16 NO. OF TP BUFFERS &OUTPOPT=0 OPTION FOR EXCEEDING EST JOB OUTPUT &OUTXS=5000 MSG INTERVAL FOR EST OUTPUT &PRIDCT=33 LOCAL SEPARATOR PAGE LINE COUNT &PRIHIGH=13 UPPER PRIORITY LIMIT SELECTION &PRILOW=2 LOWER PRIORITY LIMIT SELECTION PRINTER1 CLASS=A,SEP,AUTO,DSPLTCEL,NOPAUSE,UNIT=00E,DRAIN, + UCS=QN,FCB=6,VM PRINTER2 CLASS=Z,SEP,AUTO,DSPLTCEL,NOPAUSE,UNIT=00F,DRAIN, + UCS=QN,FCB=6 PRINTER3 CLASS=X,SEP,AUTO,DSPLTCEL,NOPAUSE,UNIT=002,DRAIN, + UCS=QN,FCB=6 &PRIOOPT=YES /*PRIORITY SUPPORT OPTION */ &PRIRATE=24 PRIORITY INCREMENT INTERVALS/DAY &PRTBOPT=YES LOCAL PRINT DOUBLE BUFFERING OPTION &PRTFCB=6 FCB DEFAULT &PRTRANS=NO PRINT TRANSLATION OPTION &PRTUCS=QN UCS DEFAULT &PRTYOPT=YES PRTY SUPPORT OPTION &PUNBOPT=YES LOCAL PUNCH DOUBLE BUFFERING OPTION PUNCH1 CLASS=B,NOSEP,AUTO,PAUSE,UNIT=00D,START &RCOMCHR=$ INSTREAM COMMAND IDENTIFIER ********=00100300051220E00011 From Starter System &RDROPSL=00014395999931E00011 TIME SHARING USER &RDROPST=00014395999931E00011 STARTED TASK CONTROL &RDROPSU=30000013099901E00011 BATCH ******** BPPMMMMSSCCCRLAAAAEF DEFAULT CONVERSION PARAMETER FIELDS ******** !! ! ! ! !!! ! DEFAULT CONVERSION PARAMETER FIELDS ******** !! ! ! ! !!! +----- DEFAULT MSGLEVEL parameter ******** !! ! ! ! !!+--------- Command Group Authorization ******** !! ! ! ! !+---------- BLP Authorization ******** !! ! ! ! +----------- Command processing from input stream ******** !! ! ! ! 2=log, confirm, execute ******** !! ! ! +-------------- Default step REGION= parameter ******** !! +---+---------------- Default step TIME= parameter MMMSS ******** !+---------------------- Don't know ******** +----------------------- Account/programmer required ******** 0 = none ******** 1 = Account ******** 2 = Programmer ******** 3 = Both READER1 AUTH=0,CLASS=A,NOHOLD,MSGCLASS=A,PRLCL,PULCL,UNIT=00C &RECINCR=2 RECORD ALTERNATION &RJOBOPT=5 JOB CARD SCAN OPTION &RPRBOPT=YES REMOTE PRINT DOUBLE BUFFERING OPTION &RPRI(1)=6 PRTY FOR ESTIMATED TIME &RPRI(2)=5 PRTY FOR ESTIMATED TIME &RPRI(3)=4 PRTY FOR ESTIMATED TIME &RPRI(4)=3 PRTY FOR ESTIMATED TIME &RPRI(5)=2 PRTY FOR ESTIMATED TIME &RPRI(6)=1 PRTY FOR ESTIMATED TIME &RPRT(1)=5 ESTIMATED TIME TABLE ENTRY &RPRT(2)=10 ESTIMATED TIME TABLE ENTRY &RPRT(3)=59 ESTIMATED TIME TABLE ENTRY &RPRT(4)=120 ESTIMATED TIME TABLE ENTRY &RPRT(5)=279620 ESTIMATED TIME TABLE ENTRY &RPRT(6)=279620 ESTIMATED TIME TABLE ENTRY &RPS=YES RPS SUPPORT &RPUBOPT=YES DOUBLE BUFFERING ON REMOTE PUNCHES &SPOLMSG=6 RJE SPOOL MSG RECORD COUNT &SPOOL=SPOOL0 SPOOL VOLUME ID FOR SYS1.HASPACE STCMCLAS=Z STARTED TASK MSG CLASS &STDFORM=0001 DEFAULT FORMS ID *&TCELSIZ=5 TRACK CELL SIZE (BUFFS/TRACK) &TGWARN=80 TRACK GROUP SHORTAGE WARNING % &TIMEOPT=YES EXECUTION TIME MONITORING OPTION &TIMEXS=30 EXCEEDED EXEC TIME MSG INTERVAL &TPBFSIZ=520 TP (RJE) BUFFER SIZE (3780) &TPIDCT=33 REMOTE SEPARATOR PAGE LINE COUNT TSUMCLAS=Z TSU OUTPUT CLASS &WAITIME=1 REMOTE TERMINAL FUNCTION TIME &XBATCH=YES EXECUTION BATCH SCHEDULING OPTION &XBATCHN=$$$$$ EXECUTION BATCH PROC PREFIX &XLIN(1)=120 OUTPUT SELECTION PRIORITY CATEGORY &XLIN(2)=1000 &XLIN(3)=2000 &XLIN(4)=2500 &XLIN(5)=6500 &XLIN(6)=1000000 &XLIN(7)=16777215 ******** * LINE1 UNIT=670,EBCDIC,TRANSP,HISPEED,FDUPLEX,NOADISC,CODEA,IFACEA RMT1 3780,NUMPR=1,LINE=1,NUMRD=1,NUMPU=1,TRANSP,NOTABS R1.PR1 START,CLASS=XA,UCS=QN,FCB=6,SEP,AUTO,PRWIDTH=151 R1.PU1 CLASS=B R1.RD1 CLASS=A DESTID NAME=RMT01,DEST=R1 ******** * LINE2 UNIT=671,EBCDIC,TRANSP,HISPEED,FDUPLEX,NOADISC,CODEA,IFACEA RMT2 3780,NUMPR=1,LINE=2,NUMRD=1,NUMPU=1,TRANSP,NOTABS R2.PR1 START,CLASS=XA,UCS=QN,FCB=6,SEP,AUTO,PRWIDTH=151 R2.PU1 CLASS=B R2.RD1 CLASS=A DESTID NAME=RMT02,DEST=R2 ******** * LINE3 UNIT=672,EBCDIC,TRANSP,HISPEED,FDUPLEX,NOADISC,CODEA,IFACEA RMT3 3780,NUMPR=1,LINE=3,NUMRD=1,NUMPU=1,TRANSP,NOTABS R3.PR1 START,CLASS=XA,UCS=QN,FCB=6,SEP,AUTO,PRWIDTH=151 R3.PU1 CLASS=B R3.RD1 CLASS=A DESTID NAME=RMT03,DEST=R3 ******** * LINE4 UNIT=673,EBCDIC,TRANSP,HISPEED,FDUPLEX,NOADISC,CODEA,IFACEA RMT4 3781,NUMPR=1,LINE=4,NUMRD=1,NUMPU=1,TRANSP,NOTABS R1.PR4 START,CLASS=XA,UCS=QN,FCB=6,SEP,AUTO,PRWIDTH=151 R1.PU4 CLASS=B R1.RD4 CLASS=A DESTID NAME=RMT04,DEST=R4 ******** *JES2 LOGICAL INITIATORS.CHANGE INIT CLASSES AT END OF ******** * MEMBER(JES2 COMMANDS) I1 START,NAME=1,CLASS=A I2 START,NAME=2,CLASS=BA I3 START,NAME=3,CLASS=HBA I4 START,NAME=4,CLASS=SHB I5 START,NAME=5,CLASS=SBA I6 START,NAME=6,CLASS=SC ******** *JES2 STC/TSU/BATCH CHARACTERISTICS &STC NOJOURN,LOG,OUTPUT,PROCLIB=00,PERFORM=1 &TSU NOJOURN,LOG,OUTPUT,PROCLIB=00,PERFORM=2 &RDROPSU=30000013099901E00011 BATCH ******** BPPMMMMSSCCCRLAAAAEF DEFAULT CONVERSION PARAMETER FIELDS ******** !! ! ! ! !!! ! DEFAULT CONVERSION PARAMETER FIELDS ******** !! ! ! ! !!! +----- DEFAULT MSGLEVEL parameter ******** !! ! ! ! !!+--------- Command Group Authorization ******** !! ! ! ! !+---------- BLP Authorization ******** !! ! ! ! +----------- Command processing from input stream ******** !! ! ! ! 2=log, confirm, execute ******** !! ! ! +-------------- Default step REGION= parameter ******** !! +---+---------------- Default step TIME= parameter mmmss ******** !+---------------------- Don't know ******** +----------------------- Account/programmer required ******** * BPPMMMMSSCCCRLAAAAEF <- CONVERSION &A NOJOURN,LOG,OUTPUT,PROCLIB=00,PERFORM=4, Low priority batch C CONVPARM=00000100076830E00011 &B NOJOURN,LOG,OUTPUT,PROCLIB=00,PERFORM=1, Standard batch C CONVPARM=00000100099930E00011 &C NOJOURN,LOG,OUTPUT,PROCLIB=00,PERFORM=1, KICKS single thread C CONVPARM=00000100099930E00011 *********************** BPPMMMMSSCCCRLAAAAEF &H NOJOURN,LOG,OUTPUT,PROCLIB=00,PERFORM=3, Hot Batch C CONVPARM=30000020099930E00011 &S NOJOURN,LOG,OUTPUT,PROCLIB=00,PERFORM=3, Sysprog C CONVPARM=30014395999921E00011 ******** *SYSOUT CLASS SPECIFICATIONS $$A PRINT,SYSOUT,NOHOLD,TRKCEL STANDARD OUTPUT CLASS $$B PUNCH,SYSOUT,NOHOLD,TRKCEL STANDARD PUNCH CLASS $$C PRINT,SYSOUT,HOLD HOLD - SYSOUT $$D PRINT,SYSOUT,HOLD HOLD - SYSOUT $$E PRINT,SYSOUT,HOLD HOLD - SYSOUT $$F PRINT,SYSOUT,HOLD HOLD - SYSOUT $$G PRINT,SYSOUT,NOHOLD,TRKCEL output class for JRP printer at 0C7 $$H PRINT,SYSOUT,HOLD HOLD - SYSOUT $$I PRINT,SYSOUT,HOLD HOLD - SYSOUT $$J PRINT,SYSOUT,HOLD HOLD - SYSOUT $$K PRINT,SYSOUT,HOLD HOLD - SYSOUT $$L PRINT,SYSOUT,NOHOLD,TRKCEL SYSLOG $$M PRINT,SYSOUT,HOLD HOLD - SYSOUT $$N PRINT,SYSOUT,HOLD HOLD - SYSOUT $$O PRINT,SYSOUT,HOLD HOLD - SYSOUT $$P PRINT,SYSOUT,HOLD HOLD - SYSOUT $$Q PRINT,SYSOUT,HOLD HOLD - SYSOUT $$R PRINT,SYSOUT,HOLD HOLD - SYSOUT $$S PRINT,SYSOUT,HOLD HOLD -SYSOUT $$T PRINT,SYSOUT,HOLD HOLD -SYSOUT $$U PRINT,SYSOUT,HOLD HOLD - SYSOUT $$V PRINT,SYSOUT,HOLD HOLD - SYSOUT $$W PRINT,SYSOUT,HOLD HOLD - SYSOUT $$X PRINT,SYSOUT,HOLD HOLD - SYSOUT $$Y PRINT,SYSOUT,HOLD HOLD - SYSOUT $$Z PRINT,SYSOUT,NOHOLD,TRKCEL STC AND TSU CLASS $$0 PRINT,DUMMY PURGE $$1 PRINT,SYSOUT,HOLD HOLD - SYSOUT $$2 PRINT,SYSOUT,HOLD HOLD - SYSOUT $$3 PRINT,SYSOUT,HOLD HOLD - SYSOUT $$4 PRINT,SYSOUT,HOLD HOLD - SYSOUT $$5 PRINT,SYSOUT,HOLD HOLD - SYSOUT $$6 PRINT,SYSOUT,HOLD HOLD - SYSOUT $$7 PRINT,SYSOUT,HOLD HOLD - SYSOUT $$8 PRINT,DUMMY PURGE $$9 PRINT,SYSOUT,HOLD HOLD - SYSOUT *** ******** *System Startup *** *** Note: Don't place any further startup commands here, *** enter them in parmlib member STARTSTD or STARTMIN instead *** $VS,'S BSPSETPF,PARM=NOREPLYU'
Some JES2 parameters above are highlighted using color ‘aqua’ for comparison purposes.
Steps for adding one 3350 DASD
1) Current Spool Utilization
To provide a before and after comparison, use JES2 command, $DQ, and note the number of held output jobs and spool utilization. See sample snippet below:
$DQ <<--- MVS console command $HASP000 89 PPU LOCAL ANY <<--- command response $HASP000 16 PERCENT SPOOL UTILIZATION
One convenient URL for quick access to MVS 3.8J JES2 commands is from Tommy Sprinkle web site at:
– https://www.tommysprinkle.com/mvs/jes2cmds/index.htm
2) Identify candidate 3350 device address
Using the MVS command, D, to display up to 400 OFFLINE DASD UNITS, make note of a candidate 3350 device address system generated on MVS 3.8J.
Note: When using MVS console, the list is displayed in frame intervals requiring usage of the PF8 key to page forwards.
Note: The MVS command can also be issued from the Hercules browser console interface which facilitates scrolling. See here for more information on Hercules browser.
. TK4- MVS 3.8J . ============= . . D U,DASD,OFFLINE,,400 <<--- MVS console command UNIT TYPE UNIT TYPE UNIT TYPE UNIT TYPE UNIT TYPE UNIT TYPE UNIT TYPE <<--- command response 130 2314 137 2314 138 2314 139 2314 13A 2314 13B 2314 13C 2314 13D 2314 13E 2314 13F 2314 141 3350 142 3350 143 3350 144 3350 145 3350 146 3350 147 3350 14D 3350 14E 3350 14F 3350 150 3330 151 3330 153 3330 154 3330 155 3330 156 3330 157 3330 158 3330 159 3330 15A 3330 15B 3330 15C 3330 15D 3330 15E 3330 15F 3330 162 3340 163 3340 164 3340 165 3340 166 3340 167 3340 168 3340 169 3340 16A 3340 16B 3340 16C 3340 16D 3340 16E 3340 16F 3340 171 3375 172 3375 173 3375 174 3375 175 3375 176 3375 177 3375 178 3375 179 3375 17A 3375 17B 3375 17C 3375 17D 3375 17E 3375 17F 3375 181 3380 182 3380 183 3380 184 3380 185 3380 186 3380 187 3380 188 3380 189 3380 18A 3380 18B 3380 18C 3380 18D 3380 18E 3380 18F 3380 192 3390 193 3390 194 3390 195 3390 196 3390 197 3390 198 3390 199 3390 19A 3390 19B 3390 19C 3390 19D 3390 19E 3390 19F 3390 230 2314 231 2314 232 2314 233 2314 234 2314 235 2314 236 2314 237 2314 238 2314 239 2314 23A 2314 23B 2314 23C 2314 23D 2314 23E 2314 23F 2314 242 3350 243 3350 244 3350 245 3350 246 3350 247 3350 249 3350 24B 3350 24C 3350 24D 3350 24E 3350 24F 3350 250 3330 251 3330 252 3330 253 3330 254 3330 255 3330 256 3330 257 3330 258 3330 259 3330 25A 3330 25B 3330 25C 3330 25D 3330 25E 3330 25F 3330 260 3340 261 3340 262 3340 263 3340 264 3340 265 3340 266 3340 267 3340 268 3340 269 3340 26A 3340 26B 3340 26C 3340 26D 3340 26E 3340 26F 3340 272 3375 273 3375 274 3375 275 3375 276 3375 277 3375 278 3375 279 3375 27A 3375 27B 3375 27C 3375 27D 3375 27E 3375 27F 3375 282 3380 283 3380 284 3380 285 3380 286 3380 287 3380 288 3380 289 3380 28A 3380 28B 3380 28C 3380 28D 3380 28E 3380 28F 3380 292 3390 293 3390 294 3390 295 3390 296 3390 297 3390 298 3390 299 3390 29A 3390 29B 3390 29C 3390 29D 3390 29E 3390 29F 3390 330 2314 331 2314 332 2314 333 2314 334 2314 335 2314 336 2314 337 2314 338 2314 339 2314 33A 2314 33B 2314 33C 2314 33D 2314 33E 2314 33F 2314 340 3350 341 3350 342 3350 343 3350 344 3350 345 3350 346 3350 347 3350 348 3350 349 3350 34A 3350 34B 3350 34C 3350 34D 3350 34E 3350 34F 3350 350 3330 351 3330 352 3330 353 3330 354 3330 355 3330 356 3330 357 3330 358 3330 359 3330 35A 3330 35B 3330 35C 3330 35D 3330 35E 3330 35F 3330 360 3340 361 3340 362 3340 363 3340 364 3340 365 3340 366 3340 367 3340 368 3340 369 3340 36A 3340 36B 3340 36C 3340 36D 3340 36E 3340 36F 3340 370 3375 371 3375 372 3375 373 3375 374 3375 375 3375 376 3375 377 3375 378 3375 379 3375 37A 3375 37B 3375 37C 3375 37D 3375 37E 3375 37F 3375 380 3380 381 3380 382 3380 383 3380 384 3380 385 3380 386 3380 387 3380 388 3380 389 3380 38A 3380 38B 3380 38C 3380 38D 3380 38E 3380 38F 3380 390 3390 391 3390 392 3390 393 3390 394 3390 395 3390 396 3390 397 3390 398 3390 399 3390 39A 3390 39B 3390 39C 3390 39D 3390 39E 3390 39F 3390 IEE452I UNIT STATUS NUMBER OF UNITS REQUESTED EXCEEDS NUMBER AVAILABLE
. TK5 MVS 3.8J . ============ . . D U,DASD,OFFLINE,,400 <<--- MVS console command UNIT TYPE UNIT TYPE UNIT TYPE UNIT TYPE UNIT TYPE UNIT TYPE UNIT TYPE <<--- command response 130 2314 131 2314 132 2314 133 2314 134 2314 135 2314 136 2314 137 2314 138 2314 139 2314 13A 2314 13B 2314 13C 2314 13D 2314 13E 2314 13F 2314 140 3350 141 3350 142 3350 143 3350 144 3350 145 3350 146 3350 147 3350 148 3350 149 3350 14A 3350 14B 3350 14C 3350 14D 3350 14E 3350 14F 3350 150 3330 151 3330 152 3330 153 3330 154 3330 155 3330 156 3330 157 3330 158 3330 159 3330 15A 3330 15B 3330 15C 3330 15D 3330 15E 3330 15F 3330 160 3340 161 3340 162 3340 163 3340 164 3340 165 3340 166 3340 167 3340 168 3340 169 3340 16A 3340 16B 3340 16C 3340 16D 3340 16E 3340 16F 3340 170 3375 171 3375 172 3375 173 3375 174 3375 175 3375 176 3375 177 3375 178 3375 179 3375 17A 3375 17B 3375 17C 3375 17D 3375 17E 3375 17F 3375 180 3380 181 3380 182 3380 183 3380 184 3380 185 3380 186 3380 187 3380 188 3380 189 3380 18A 3380 18B 3380 18C 3380 18D 3380 18E 3380 18F 3380 193 3390 194 3390 195 3390 196 3390 197 3390 198 3390 199 3390 19A 3390 19B 3390 19C 3390 19D 3390 19E 3390 19F 3390 1E0 3380 1E1 3380 1E2 3380 1E3 3380 1E4 3380 1E5 3380 1E6 3380 1E7 3380 1E8 3380 1E9 3380 1EA 3380 1EB 3380 1EC 3380 1ED 3380 1EE 3380 1EF 3380 1F0 3390 1F1 3390 1F2 3390 1F3 3390 1F4 3390 1F5 3390 1F6 3390 1F7 3390 1F8 3390 1F9 3390 1FA 3390 1FB 3390 1FC 3390 1FD 3390 1FE 3390 1FF 3390 230 2314 231 2314 232 2314 233 2314 234 2314 235 2314 236 2314 237 2314 238 2314 239 2314 23A 2314 23B 2314 23C 2314 23D 2314 23E 2314 23F 2314 240 3350 241 3350 242 3350 243 3350 244 3350 245 3350 246 3350 24A 3350 24B 3350 24C 3350 24D 3350 24E 3350 24F 3350 250 3330 251 3330 252 3330 253 3330 254 3330 255 3330 256 3330 257 3330 258 3330 259 3330 25A 3330 25B 3330 25C 3330 25D 3330 25E 3330 25F 3330 260 3340 261 3340 262 3340 263 3340 264 3340 265 3340 266 3340 267 3340 268 3340 269 3340 26A 3340 26B 3340 26C 3340 26D 3340 26E 3340 26F 3340 270 3375 271 3375 272 3375 273 3375 274 3375 275 3375 276 3375 277 3375 278 3375 279 3375 27A 3375 27B 3375 27C 3375 27D 3375 27E 3375 27F 3375 280 3380 281 3380 282 3380 283 3380 284 3380 285 3380 286 3380 287 3380 288 3380 289 3380 28A 3380 28B 3380 28C 3380 28D 3380 28E 3380 28F 3380 294 3390 295 3390 296 3390 297 3390 29A 3390 29B 3390 29C 3390 29D 3390 29E 3390 29F 3390 2E0 3380 2E1 3380 2E2 3380 2E3 3380 2E4 3380 2E5 3380 2E6 3380 2E7 3380 2E8 3380 2E9 3380 2EA 3380 2EB 3380 2EC 3380 2ED 3380 2EE 3380 2EF 3380 2F0 3390 2F1 3390 2F2 3390 2F3 3390 2F4 3390 2F5 3390 2F6 3390 2F7 3390 2F8 3390 2F9 3390 2FA 3390 2FB 3390 2FC 3390 2FD 3390 2FE 3390 2FF 3390 330 2314 331 2314 332 2314 333 2314 334 2314 335 2314 336 2314 337 2314 338 2314 339 2314 33A 2314 33B 2314 33C 2314 33D 2314 33E 2314 33F 2314 344 3350 345 3350 346 3350 347 3350 34C 3350 34D 3350 34E 3350 34F 3350 350 3330 351 3330 352 3330 353 3330 354 3330 355 3330 356 3330 357 3330 358 3330 359 3330 35A 3330 35B 3330 35C 3330 35D 3330 35E 3330 35F 3330 360 3340 361 3340 362 3340 363 3340 364 3340 365 3340 366 3340 367 3340 368 3340 369 3340 36A 3340 36B 3340 36C 3340 36D 3340 36E 3340 36F 3340 370 3375 371 3375 372 3375 373 3375 374 3375 375 3375 376 3375 377 3375 378 3375 379 3375 37A 3375 37B 3375 37C 3375 37D 3375 37E 3375 37F 3375 381 3380 382 3380 383 3380 384 3380 385 3380 386 3380 387 3380 388 3380 389 3380 38A 3380 38B 3380 38C 3380 38D 3380 38E 3380 38F 3380 393 3390 394 3390 395 3390 396 3390 397 3390 398 3390 399 3390 39A 3390 39B 3390 39C 3390 39D 3390 39E 3390 39F 3390 IEE452I UNIT STATUS NUMBER OF UNITS REQUESTED EXCEEDS NUMBER AVAILABLE
From the above respective lists –
– for tk4-, UNIT 242 will serve as the selected sample device address
– for tk5, UNIT 14f will serve as the selected sample device address
4) Shutdown MVS 3.8J
Shutdown MVS 3.8J system as usual.
5) Backup MVS 3.8J Root Directory
For back-out contingency purposes, copy the MVS 3.8J directory to a backup directory.
Assuming the root includes all subdirectories (e.g. DASD, CONF, PCH, etc.) resides on drive M: (on Windows) at root directory MVS38J, use the host system copy function to create a backup. See examples below:
For Windows system, use: XCOPY /E /I M:\MVS38J M:\MVS38J-BKUP <<--- copy command For Linux system, use: CP -R MVS38J MVS38J-BKUP <<--- copy command
6) IPL MVS 3.8J
IPL MVS 3.8J system as usual.
7) Create 3350 DASD on host system
Both tk4- and tk5 distributions include Hercules binaries for running MVS 3.8J under the Hercules emulator. The directory location of the binaries are dynamically set based on host OS (e.g. Windows, Linux, etc.) and architecture (e.g. 32-bit, 64-bit, etc.) when MVS 3.8J is started on host system.
At this point, the DASDINIT command must be fully qualified (location qualification).
On Windows x64, start a command prompt and change to drive where your MVS 3.8J system resides, position to MVS 3.8J root directory, and submit DASDINIT command as depicted below:
For Windows x64 tk4- system, use: Microsoft Windows [Version 10.0.19045.4355] (c) Microsoft Corporation. All rights reserved. C:\Users\LarryB>m: m:\>cd mvstk4-v8 m:\mvstk4-v8>.\hercules\windows\64\dasdinit -z -a dasd/hasp01.242 3350 hasp01 HHC01413I Hercules utility dasdinit - DASD image file creation program; version 4.00 HHC01414I (c) Copyright 1999-2012 by Roger Bowler, Jan Jaeger, and others HHC00462I 0:0000 CKD file dasd/hasp01.242: creating 3350 volume HASP01: 560 cyls, 30 trks/cyl, 19456 bytes/track HHC00460I 0:0000 CKD file dasd/hasp01.242: 560 cylinders successfully written HHC02423I DASD operation completed m:\mvstk4-v8> For Windows x64 tk5 system, use: Microsoft Windows [Version 10.0.19045.4355] (c) Microsoft Corporation. All rights reserved. C:\Users\LarryB>m: m:\>cd mvstk5-v2 m:\mvstk5-v2>.\hercules\windows\64\dasdinit -z -a dasd/spool1.14f 3350 spool1 HHC02499I Hercules utility dasdinit - DASD image file creation program - version 4.6.0.0-SDL HHC01414I (C) Copyright 1999-2023 by Roger Bowler, Jan Jaeger, and others HHC01417I ** The SDL 4.x Hyperion version of Hercules ** HHC01415I Build date: Jun 14 2023 at 11:56:32 HHC00462I 0:0000 CKD file dasd/spool1.14f: creating 3350 volume SPOOL1: 560 cyls, 30 trks/cyl, 19456 bytes/track HHC00460I 0:0000 CKD file dasd/spool1.14f: 560 cylinders successfully written HHC02423I DASD operation completed m:\mvstk5-v2>
On Linux x64, start a terminal session, set shared library environment variable, position to MVS 3.8J root directory, and submit DASDINIT command as depicted below:
For Linux x64 tk4- system, use: root@tk4-8-lb:~# cd MVS38J-tk4 root@tk4-8-lb:/MVS38J-tk4# export LD_LIBRARY_PATH=hercules/linux/64/lib:hercules/linux/64/lib/hercules: root@tk4-8-lb:/MVS38J-tk4# ./hercules/linux/64/bin/dasdinit -z -a dasd/hasp01.242 3350 hasp01 HHC01413I Hercules utility dasdinit - DASD image file creation program; version 4.00 HHC01414I (c) Copyright 1999-2012 by Roger Bowler, Jan Jaeger, and others HHC00462I 0:0000 CKD file dasd/hasp01.242: creating 3350 volume HASP01: 560 cyls, 30 trks/cyl, 19456 bytes/track HHC00460I 0:0000 CKD file dasd/hasp01.242: 560 cylinders successfully written HHC02423I DASD operation completed root@tk4-8-lb:/MVS38J-tk4# For Linux x64 tk5 system, use: root@tk5-v2:~# cd mvs-tk5 root@tk5-v2:~/mvs-tk5# export LD_LIBRARY_PATH=hercules/linux/64/lib:hercules/linux/64/lib/hercules: root@tk5-v2:~/mvs-tk5# ./hercules/linux/64/bin/dasdinit -z -a dasd/spool1.14f 3350 spool1 HHC02499I Hercules utility dasdinit - DASD image file creation program - version 4.6.0.0-SDL HHC01414I (C) Copyright 1999-2023 by Roger Bowler, Jan Jaeger, and others HHC01417I ** The SDL 4.x Hyperion version of Hercules ** HHC01415I Build date: Jun 14 2023 at 11:56:32 HHC00462I 0:0000 CKD file dasd/spool1.14f: creating 3350 volume SPOOL1: 560 cyls, 30 trks/cyl, 19456 bytes/track HHC00460I 0:0000 CKD file dasd/spool1.14f: 560 cylinders successfully written HHC02423I DASD operation completed root@tk5-v2:~/mvs-tk5#
8) Attach new 3350 DASD
Attach new DASD to Hercules emulator using Hercules console. Submit attach command as shown below:
For tk4- system, use: attach 242 3350 dasd/hasp01.242 <<--- Hercules console command For tk5 system, use: attach 14F 3350 dasd/spool1.14f <<--- Hercules console command
9) Initialize 3350
Initialize new 3350 DASD using MVS utility, IDKDCF. Submit the below job stream to MVS via TCP/IP socket reader using netcat, sub or your ascii editor (e.g. SPF/Lite). For more information on submitting job to MVS via sockets reader, see here.
Note: IDKDCF is used to initialize 3350 and 3380 device types.
For tk4- system, use this JCL:
//HERC01A JOB (SYS),'Init 3350 dasd', <-- Review and Modify
// CLASS=A,MSGCLASS=X, <-- Review and Modify
// MSGLEVEL=(1,1),NOTIFY=HERC01, <-- Review and Modify
// USER=HERC01,PASSWORD=CUL8TR <-- Review and Modify
//* -------------------------------------------------------*
//* * JOB: HERC01A Initialize 3350 DASD *
//* * *
//* * Add VTOC at cyl=0, trk=1, size of 1 trk *
//* * as VOLUME HASP01 at UNITADDRESS 242 *
//* * for 3350 DASD *
//* -------------------------------------------------------*
//DASDINIT EXEC PGM=ICKDSF
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
INIT UNITADDRESS(242) NOVERIFY VOLID(HASP01) -
OWNER(HERCULES) VTOC(0,1,1)
/*
//
For tk5 system, use this JCL:
//HERC01A JOB (SYS),'Init 3350 dasd', <-- Review and Modify
// CLASS=A,MSGCLASS=X, <-- Review and Modify
// MSGLEVEL=(1,1),NOTIFY=HERC01, <-- Review and Modify
// USER=HERC01,PASSWORD=CUL8TR <-- Review and Modify
//* -------------------------------------------------------*
//* * JOB: HERC01A Initialize 3350 DASD *
//* * *
//* * Add VTOC at cyl=0, trk=1, size of 1 trk *
//* * as VOLUME SPOOL1 at UNITADDRESS 14F *
//* * for 3350 DASD *
//* -------------------------------------------------------*
//DASDINIT EXEC PGM=ICKDSF
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
INIT UNITADDRESS(14F) NOVERIFY VOLID(SPOOL1) -
OWNER(HERCULES) VTOC(0,1,1)
/*
//
After submitting above job, MVS requires operator response to alter volume content.
Using the Hercules console, reply U for pending message to continue.
10) Vary 3350 online
Vary 3350 DASD online using MVS command vary as shown below:
For tk4- system, use: /vary 242,online <<--- Hercules console command For tk5 system, use: /vary 14f,online <<--- Hercules console command
11) Mount 3350
Mount new 3350 DASD using the MVS command mount as shown below:
For tk4- system, use: /mount 242,vol=(sl,hasp01),use=private <<--- Hercules console command For tk5 system, use: /mount 14f,vol=(sl,spool1),use=private <<--- Hercules console command
12) Allocate JES2 dataset
Allocate JES2 dataset and list VTOC via MVS batch. Submit the below job stream to MVS via TCP/IP socket reader using netcat, sub or your favorite ascii editor.
The new 3350 DASD allocation is as follows:
- 1 track for VTOC
- 1 track for Label
- Remaining tracks (of 16650) for SYS1.HASPACE dataset
For tk4- system, use this JCL:
//HERC01A JOB (SYS),'Alloc DSN spool', <-- Review and Modify
// CLASS=A,MSGCLASS=X, <-- Review and Modify
// MSGLEVEL=(1,1),NOTIFY=HERC01, <-- Review and Modify
// USER=HERC01,PASSWORD=CUL8TR <-- Review and Modify
//* -------------------------------------------------------*
//* * Allocate SYS1.HASPACE DSN using 16605 tracks *
//* * starting at track 41 out of 16650 tracks on *
//* * 3350 DASD *
//* -------------------------------------------------------*
//ALLOCDSN EXEC PGM=IEFBR14
//HASP01 DD DSN=SYS1.HASPACE,DISP=(NEW,KEEP),
// UNIT=3350,VOL=SER=HASP01,
// SPACE=(ABSTR,(16605,41))
/*
//
For tk5 system, use this JCL:
//HERC01A JOB (SYS),'Alloc DSN spool', <-- Review and Modify
// CLASS=A,MSGCLASS=X, <-- Review and Modify
// MSGLEVEL=(1,1),NOTIFY=HERC01, <-- Review and Modify
// USER=HERC01,PASSWORD=CUL8TR <-- Review and Modify
//* -------------------------------------------------------*
//* * Allocate SYS1.HASPACE DSN using 16605 tracks *
//* * starting at track 41 out of 16650 tracks on *
//* * 3350 DASD *
//* -------------------------------------------------------*
//ALLOCDSN EXEC PGM=IEFBR14
//SPOOL1 DD DSN=SYS1.HASPACE,DISP=(NEW,KEEP),
// UNIT=3350,VOL=SER=SPOOL1,
// SPACE=(ABSTR,(16605,41))
/*
//
13) Update VATLST00 member
Update SYS1.PARMLIB(VATLST00), with the new 3350 for automatic mount by MVS at IPL time as depicted below:
. TK5 base distribution JES2 Parameters . ===================================== . . SYS1.PARMLIB(VATLST00) - 01.02 -------------------------------- Line 1 Col 1 80 Command ===> Scroll ===> CSR 1 10 20 30 40 50 60 70 80 +---+----+----+----+----+----+----+----+----+----+----+----+----+----+----+----+ CBTCAT,1,2,3350 ,N CBT Files (#1), contains SYS1.UCAT.CBT CBT000,1,2,3350 ,N CBT Files (#2) CBT001,1,2,3350 ,N CBT Files (#3) CBT002,1,2,3350 ,N CBT Files (#4) MVSRES,1,2,3350 ,N MVS 3.8j TK4- production SYSRES MVSDLB,1,2,3350 ,N MVS DLIB MVSCAT,1,0,3390 ,N MVS Catalog volume WORK00,1,1,3350 ,N WORKPACK WORK01,1,1,3375 ,N WORKPACK WORK02,1,1,3380 ,N WORKPACK WORK03,1,1,3390 ,N WORKPACK PUB000,1,0,3350 ,N TSO Pack 1, contains SYS1.UCAT.TSO PUB001,1,0,3375 ,N TSO Pack 2 PUB002,1,0,3380 ,N TSO Pack 3 PUB003,1,0,3390 ,N TSO Pack 4 PUB010,1,0,3350 ,N TSO Pack 5 PUB011,1,0,3375 ,N TSO Pack 6 PUB012,1,0,3380 ,N TSO Pack 7 PUB013,1,0,3390 ,N TSO Pack 8 PAGE00,1,2,3340 ,N MVS 3.8 Page Disk 1 PAGE01,1,2,3340 ,N MVS 3.8 Page Disk 2 SRC000,1,2,3350 ,N MVS Source code SRC001,1,2,3350 ,N MVS Source code SRC002,1,2,3350 ,N MVS Source code SRCCAT,1,2,3350 ,N MVS Source code HASP00,1,2,3330 ,N MVS 3.8 JES Spool Disk 1 HASP01,1,2,3350 ,N MVS 3.8 JES Spool Disk 2 <<--- add new 3350 here SORT01,0,1,2314 ,N Sort Volume 1 SORT02,0,1,2314 ,N Sort Volume 2 SORT03,0,1,2314 ,N Sort Volume 3 SORT04,0,1,2314 ,N Sort Volume 4 SORT05,0,1,2314 ,N Sort Volume 5 SORT06,0,1,2314 ,N Sort Volume 6 SMP001,1,2,3350 ,N SMP Volume 1 SMP002,1,2,3350 ,N SMP Volume 2 SMP003,1,2,3350 ,N SMP Volume 3 SMP004,1,2,3350 ,N SMP Volume 4
. TK5 base distribution JES2 Parameters . ===================================== . . SYS1.PARMLIB(VATLST00) - 01.41 -------------------------------- Line 1 Col 1 80 Command ===> Scroll ===> CSR 1 10 20 30 40 50 60 70 80 +---+----+----+----+----+----+----+----+----+----+----+----+----+----+----+----+ CBT* ,1,2,3350 ,N CBT Files (#1) + SYS1.UCAT.CBT INT001,0,2,3380 ,N Intercomm volume PAGE* ,1,2,3350 ,N MVS 3.8 Page Disk ROB* ,0,2,3390 ,N Robs pack SPOOL0,1,2,3350 ,N MVS 3.8 JES Spool Disk SPOOL1,1,2,3350 ,N MVS 3.8 JES Spool Disk 2 <<--- add new 3350 here SRC* ,1,2,3350 ,N MVS Source code SYSCPK,1,2,3350 ,N Compiler/language pack TK* ,0,2,3390 ,N MVS Volumes + SYS1.M/UCAT.TK5 TSO* ,0,0,3390 ,N TSO volumes + SYS1.UCAT.TSO WORK* ,0,0,3390 ,N WORKPACKS
14) Shutdown MVS 3.8J,
Shutdown MVS 3.8J as usual.
15) Update Hercules configuration
Update Hercules configuration with new 3350 DASD using the tk4- or tk5 inclusion procedure to preserve base updates.
Both, tk4- and tk5, use a file inclusion methodology to incorporate user configuration parameters.
The Hercules configuration file (tk4-.cfg or tk5.cfg) includes 10 individual configuration files reserved for user modifications.
For tk4- system, assuming tk4 installation root directory is tk4-:
a. edit file /local_conf/01 under the MVS 3.8J root directory
b. add the below lines
c. save file
# reserved for future use <<--- original content of file 01
attach 24a 3350 dasd/hasp01.24a
For tk5 system, assuming tk5 installation root directory is tk5:
a. edit file /local_conf/01 under the MVS 3.8J root directory
b. add the below lines
c. save file
# reserved for future use <<--- original content of file 01
attach 14f 3350 dasd/spool1.14f
16) IPL MVS 3.8J.
IPL MVS 3.8J as usual.
You will notice log entries stating JES2 is in quick start and formatting the new JES2 DASD device as depicted in the below sample snippet:
. . IEF677I WARNING MESSAGE(S) FOR JOB JES2 ISSUED $HASP493 JES2 QUICK-START IS IN PROGRESS $HASP423 SPOOL1 IS BEING FORMATTED . .
17) Check new queue utilization
Upon completion of MVS 3.8J startup, compare queue utilization with initial value.
. . $DQ <<--- console command . $HASP000 89 PPU LOCAL ANY <<--- command response $HASP000 yy PERCENT SPOOL UTILIZATION . .
Percent spool utilization, yy, should be less (40-50%) than original value recorded in step 2.
18) Done
Congratulations!
Successfully added an additional spool volume to your MVS3.8J tk-4- or tk5 system.
Closing
Personally, I have updated my tk3 system several times over the years; for JES2 configurations (more joes, buffers) and/or adding more JES2 DASD. In most cases, a cold start was required – resulting in loss of held output. In this situation, should you desire to keep your held output, route held output to class A for printing output to a printer or text file or PDF based your Hercules printer configuration.
The above steps focus solely on adding a second JES2 DASD device to a running a tk4- or tk5 system with one SPOOL DASD device (as per base distribution).
Note: For both, tk4- and tk5 systems, distribution updates overlay a set of DASD devices which may result in loss of JES2 parameter and/or other configuration changes.
TIP: To monitor queue utilization, use the $DQ JES2 command to display number of held jobs and current queue utilization on an interval. Below is a snippet for invoking a $TA JES2 command via the MVS console to trigger $DQ on a hourly (3600 seconds) basis:
.
.
00- $ta,i=3600,'$dq'
$HASP000 ID 2 T=**.** I=3600 $DQ
$HASP000 37 PPU LOCAL ANY
$HASP000 1 PERCENT SPOOL UTILIZATION
IEE152I ENTER CANCEL D C,K
IEE163I MODE= RD
A wealth of MVS and JES2 general information is available from web sites listed below:
- MVS 3.8J and Hercules information
https://www.jaymoseley.com/hercules/ - MVS 3.8J and JES2 Documentation
https://www.tommysprinkle.com/mvs/ - MVS 3.8J Users Group
https://groups.io/g/turnkey-mvs - Moshix Video Channel on YouTube
Please use the comment box below to communicate any suggestions, improvements, corrections or issues for this post.
Two handy commands to check current spool utilization and other queue are $DN and $DQ.
1) To display job queue (spool) information, use the $DN JES2 command as depicted below:
. . $DN <<--- console command . . STC 5974 $HASP000 SYSLOG PRT LOCAL PUN LOCAL PRIO 15 ANY <<--- command response STC 7755 $HASP000 SYSLOG PRT LOCAL PUN LOCAL PRIO 15 ANY STC 8062 $HASP000 SYSLOG PRT LOCAL PUN LOCAL PRIO 15 ANY STC 9858 $HASP000 SYSLOG PRT LOCAL PUN LOCAL PRIO 15 ANY STC 9899 $HASP000 SYSLOG PRT LOCAL PUN LOCAL PRIO 15 ANY STC 9917 $HASP000 SYSLOG PRT LOCAL PUN LOCAL PRIO 15 ANY STC 1889 $HASP000 CLIP PRT LOCAL PUN LOCAL PRIO 14 ANY STC 2119 $HASP000 CLIP PRT LOCAL PUN LOCAL PRIO 14 ANY STC 2122 $HASP000 CLIP PRT LOCAL PUN LOCAL PRIO 14 ANY TSU 493 $HASP000 LARRY02 PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 6016 $HASP000 LARRY01A PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 6317 $HASP000 LARRY01Z PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 6318 $HASP000 LARRY01Z PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 7539 $HASP000 LARRY01A PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 7542 $HASP000 LARRY01A PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 7544 $HASP000 LARRY01A PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 7551 $HASP000 LARRY01A PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 7552 $HASP000 LARRY01A PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 7553 $HASP000 LARRY01A PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 7576 $HASP000 LARRY01A PRT LOCAL PUN LOCAL PRIO 14 ANY STC 5311 $HASP000 CLIP PRT LOCAL PUN LOCAL PRIO 14 ANY STC 5314 $HASP000 CLIP PRT LOCAL PUN LOCAL PRIO 14 ANY STC 5317 $HASP000 CLIP PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 1502 $HASP000 RECV000A PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 1557 $HASP000 DALCDS04 PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 1558 $HASP000 DALCDS0U PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 1559 $HASP000 DFSPC00U PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 1613 $HASP000 LBTUTOR4 PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 1614 $HASP000 LBTUTOR5 PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 1844 $HASP000 DFSPC00U PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 1897 $HASP000 DVTOC00U PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 1954 $HASP000 DALCDS0U PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 2419 $HASP000 CATMGT00 PRT LOCAL PUN LOCAL PRIO 14 ANY TSU 1202 $HASP000 LARRY01 PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 2513 $HASP000 LARRY01A PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 2515 $HASP000 LARRY01A PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 2517 $HASP000 LARRY01A PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 2587 $HASP000 LARRY01A PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 2588 $HASP000 LARRY01A PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 2589 $HASP000 LARRY01A PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 2590 $HASP000 LARRY01A PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 2591 $HASP000 LARRY01A PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 2601 $HASP000 RECVXMTU PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 2991 $HASP000 CATMGT04 PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 2992 $HASP000 CATMGT05 PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 3014 $HASP000 RECVXMTU PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 3029 $HASP000 DFSPC00U PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 3078 $HASP000 LBTUTOR4 PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 3079 $HASP000 LBTUTOR5 PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 3254 $HASP000 DVTOC00U PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 3411 $HASP000 LBTUTORU PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 3535 $HASP000 CATMGT0U PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 3549 $HASP000 LARRY02A PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 3550 $HASP000 LARRY02A PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 3551 $HASP000 LARRY02A PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 3552 $HASP000 LARRY02A PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 3553 $HASP000 LARRY02A PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 3821 $HASP000 VSI00005 PRT LOCAL PUN LOCAL PRIO 14 ANY TSU 1364 $HASP000 LARRY01 PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 3938 $HASP000 VSI00005 PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 4042 $HASP000 CPRT360U PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 4043 $HASP000 CPRT360U PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 4053 $HASP000 CPRT360U PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 4081 $HASP000 CPRTOF0U PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 4268 $HASP000 FINDSRCU PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 4341 $HASP000 DVTOC00 PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 4360 $HASP000 DVTOC00 PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 4389 $HASP000 LARRY01A PRT LOCAL PUN LOCAL PRIO 14 ANY TSU 1388 $HASP000 LARRY01 PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 4420 $HASP000 CPRT360U PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 4421 $HASP000 CPRT360U PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 4424 $HASP000 LARRY01Z PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 4452 $HASP000 DVTOC00U PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 4500 $HASP000 DVTOC00U PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 4513 $HASP000 DALCDS0U PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 4514 $HASP000 DALCDS0U PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 4524 $HASP000 DALCDS0U PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 4572 $HASP000 DALCDS0U PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 4600 $HASP000 DALCDS0U PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 4601 $HASP000 CPRT360U PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 4602 $HASP000 DVTOC005 PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 4739 $HASP000 CUTIL00U PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 4796 $HASP000 CUTIL00U PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 4912 $HASP000 COB2DTEC PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 4957 $HASP000 CHKDSN03 PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 4958 $HASP000 CHKDSN04 PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 4959 $HASP000 CHKDSN05 PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 4960 $HASP000 CHKDSN40 PRT LOCAL PUN LOCAL PRIO 14 ANY JOB 4961 $HASP000 CHKDSN0U PRT LOCAL PUN LOCAL PRIO 14 ANY $HASP000 16 PERCENT SPOOL UTILIZATION .
Per the command response above, 16% of the spool space is utilized by the 89 printer/punch queued jobs.
2) To display number of jobs (without details) on the queue (spool), use the $DQ JES2 command as depicted below:
. . $DQ <<--- console command . $HASP000 89 PPU LOCAL ANY <<--- command response $HASP000 16 PERCENT SPOOL UTILIZATION . .
Per the command response above, 16% of the spool space is utilized by the 89 (counted manually…) printer/punch queued jobs.
The printer/punch jobs can be listed using TSO option 3.8 (REVOUT using ST * to list all jobs) as shown below:
. . REVOUT * SYSOUT TOTAL: 247219 LINE 1 OF 103 Command ===> SCROLL ===> CSR S Q JOBNAME JOBIDENT QUEUE EXEC STATUS RECORDS STEPNAME PROCSTEP CPU-TIME ' ' SYSLOG STC00109 XEQ $ BSP1 0 51.08 ' ' MMPF STC00110 XEQ $ BSP1 35 MMPF MMPF 16.07 ' ' MON1 STC00112 XEQ $ BSP1 8 MON1 MON1 1.82 ' ' FTPD STC00113 XEQ $ BSP1 9 FTPD STEP1 973.22 ' ' INIT STC00114 XEQ $ BSP1 5 INIT IEFPROC 0.01 ' ' INIT STC00115 XEQ $ BSP1 5 INIT IEFPROC 0.00 ' ' INIT STC00116 XEQ $ BSP1 5 INIT IEFPROC 0.00 ' ' INIT STC00117 XEQ $ BSP1 5 INIT IEFPROC 0.00 ' ' INIT STC00118 XEQ $ BSP1 5 INIT IEFPROC 0.00 ' ' INIT STC00119 XEQ $ BSP1 5 INIT IEFPROC 0.01 ' ' BSPPILOT STC00121 XEQ $ BSP1 5 BSPPILOT IEFPROC 0.35 ' ' NET STC00125 XEQ $ BSP1 9 NET IEFPROC 0.12 ' ' TSO STC00126 XEQ $ BSP1 11 TSO STEP1 0.01 ' ' LARRY01 TSU01420 XEQ @ BSP1 53 ISPLGN00 3.80 ' ' SYSLOG STC05974 PRTPUN 0 ' ' SYSLOG STC07755 PRTPUN 0 ' ' SYSLOG STC08062 PRTPUN 0 ' ' SYSLOG STC09858 PRTPUN 0 ' ' SYSLOG STC09899 PRTPUN 0 ' ' SYSLOG STC09917 PRTPUN 0 ' ' CLIP STC01889 PRTPUN 132 ' ' CLIP STC02119 PRTPUN 132 ' ' CLIP STC02122 PRTPUN 134 ' ' LARRY02 TSU00493 PRTPUN 43025 ' ' LARRY01A JOB06016 PRTPUN 288 ' ' LARRY01Z JOB06317 PRTPUN 74 ' ' LARRY01Z JOB06318 PRTPUN 74 ' ' LARRY01A JOB07539 PRTPUN 288 ' ' LARRY01A JOB07542 PRTPUN 277 ' ' LARRY01A JOB07544 PRTPUN 266 ' ' LARRY01A JOB07551 PRTPUN 178 ' ' LARRY01A JOB07552 PRTPUN 200 ' ' LARRY01A JOB07553 PRTPUN 189 ' ' LARRY01A JOB07576 PRTPUN 288 ' ' CLIP STC05311 PRTPUN 134 ' ' CLIP STC05314 PRTPUN 134 ' ' CLIP STC05317 PRTPUN 132 ' ' RECV000A JOB01502 PRTPUN 675 ' ' DALCDS04 JOB01557 PRTPUN 6412 ' ' DALCDS0U JOB01558 PRTPUN 6623 ' ' DFSPC00U JOB01559 PRTPUN 6742 ' ' LBTUTOR4 JOB01613 PRTPUN 13685 ' ' LBTUTOR5 JOB01614 PRTPUN 529 ' ' DFSPC00U JOB01844 PRTPUN 6773 ' ' DVTOC00U JOB01897 PRTPUN 10634 ' ' DALCDS0U JOB01954 PRTPUN 6633 ' ' CATMGT00 JOB02419 PRTPUN 83 ' ' LARRY01 TSU01202 PRTPUN 5681 ' ' LARRY01A JOB02513 PRTPUN 269 ' ' LARRY01A JOB02515 PRTPUN 269 ' ' LARRY01A JOB02517 PRTPUN 280 ' ' LARRY01A JOB02587 PRTPUN 2155 ' ' LARRY01A JOB02588 PRTPUN 355 ' ' LARRY01A JOB02589 PRTPUN 1426 ' ' LARRY01A JOB02590 PRTPUN 1867 ' ' LARRY01A JOB02591 PRTPUN 397 ' ' RECVXMTU JOB02601 PRTPUN 243 ' ' CATMGT04 JOB02991 PRTPUN 630 ' ' CATMGT05 JOB02992 PRTPUN 474 ' ' RECVXMTU JOB03014 PRTPUN 243 ' ' DFSPC00U JOB03029 PRTPUN 6773 ' ' LBTUTOR4 JOB03078 PRTPUN 16197 ' ' LBTUTOR5 JOB03079 PRTPUN 486 ' ' DVTOC00U JOB03254 PRTPUN 6434 ' ' LBTUTORU JOB03411 PRTPUN 13970 ' ' CATMGT0U JOB03535 PRTPUN 215 ' ' LARRY02A JOB03549 PRTPUN 134 ' ' LARRY02A JOB03550 PRTPUN 133 ' ' LARRY02A JOB03551 PRTPUN 133 ' ' LARRY02A JOB03552 PRTPUN 134 ' ' LARRY02A JOB03553 PRTPUN 135 ' ' VSI00005 JOB03821 PRTPUN 458 ' ' LARRY01 TSU01364 PRTPUN 4230 ' ' VSI00005 JOB03938 PRTPUN 454 ' ' CPRT360U JOB04042 PRTPUN 233 ' ' CPRT360U JOB04043 PRTPUN 236 ' ' CPRT360U JOB04053 PRTPUN 236 ' ' CPRTOF0U JOB04081 PRTPUN 211 ' ' FINDSRCU JOB04268 PRTPUN 216 ' ' DVTOC00 JOB04341 PRTPUN 109 ' ' DVTOC00 JOB04360 PRTPUN 109 ' ' LARRY01A JOB04389 PRTPUN 154 ' ' LARRY01 TSU01388 PRTPUN 886 ' ' CPRT360U JOB04420 PRTPUN 236 ' ' CPRT360U JOB04421 PRTPUN 236 ' ' LARRY01Z JOB04424 PRTPUN 89 ' ' DVTOC00U JOB04452 PRTPUN 8447 ' ' DVTOC00U JOB04500 PRTPUN 8415 ' ' DALCDS0U JOB04513 PRTPUN 6690 ' ' DALCDS0U JOB04514 PRTPUN 6787 ' ' DALCDS0U JOB04524 PRTPUN 6787 ' ' DALCDS0U JOB04572 PRTPUN 6805 ' ' DALCDS0U JOB04600 PRTPUN 6805 ' ' CPRT360U JOB04601 PRTPUN 236 ' ' DVTOC005 JOB04602 PRTPUN 587 ' ' CUTIL00U JOB04739 PRTPUN 2093 ' ' CUTIL00U JOB04796 PRTPUN 14785 ' ' COB2DTEC JOB04912 PRTPUN 918 ' ' CHKDSN03 JOB04957 PRTPUN 76 ' ' CHKDSN04 JOB04958 PRTPUN 5660 ' ' CHKDSN05 JOB04959 PRTPUN 42 ' ' CHKDSN40 JOB04960 PRTPUN 34 ' ' CHKDSN0U JOB04961 PRTPUN 32 .
Although a total of 103 lines are displayed in the above snippet, the sum of 89 is represented by the QUEUE column type of PRTPUN !
Enjoy your MVS 3.8J mainframe.
Larry Belmontes