Downloads
CBT
Top 10
Files
Updates
Overflow
JES3
JES2
CBT249 & Older
UCLAmail
Xmit Manager
MVS 3.8J
VM/370 R6
OS/360
OS/VS1
PDS 8.5
Linux/390
MVT Mods
Fish's Herc Tools
PC Tools
AWSTAPE
DSS-FDR Format
AWS Format
Information
Order CDROM
Newsletter
FAQ
Links
Mail & Newsgroups
Fun
Features
Steve Samson
Contribute files
Freebies
Linking to CBT site
Advertising here
Complaints
Workbench
Cross Links
*---------------------------------------------------------------------* * SHARE/GUIDE JES3 MODIFICATIONS TAPE VERSION 81 27 June 2000 * *---------------------------------------------------------------------*
*---------------------------------------------------------------------* * TAPE FORMAT * *---------------------------------------------------------------------*
Standard labeled tape. IEBCOPY unloaded PDS format.
*---------------------------------------------------------------------* * CONTRIBUTIONS TO THIS MODIFICATIONS TAPE * *---------------------------------------------------------------------*
Contributions (i.e. a modification) will be gladly accepted from anyone who sends me a modification to JES3. Non-JES3 modifications will also be accepted if received and will be included on this tape.
Contributions to this tape should be sent in machine readable media.
The tape may be of any label format and any density, but preferably standard labels.
All contributions should contain all necessary documentation to allow any recipient of this tape to install and understand the modification. If possible the modification should be submitted in SMP install format.
Contributions should not not not contain any proprietary or licensed code. References to such code is however acceptable.
*---------------------------------------------------------------------* *---------------------------------------------------------------------*
Copyright disclaimer restrictions SHARE
SHARE JES3 project modification tape
Copyright (c) SHARE Inc. 1987 All rights reserved
Published by SHARE Inc., a non-profit Delaware membership corporation. Permission to reprint in whole or in part may be granted for educational and scientific purposes upon written application to the Secretary, One Illinois Center, 111 E. Wacker Drive, Chicago Illinois 60601. Permission is hereby granted to members of SHARE Inc. to reproduce this publication in whole or in part solely for internal distribution within the member's organization and provided the copyright notice printed above is set forth in full text on the title page of each item reproduced. The ideas and concepts set forth in this publication are solely those of the respective authors, and not of SHARE Inc., and SHARE Inc. does not endorse, guarantee, or otherwise certify any such ideas or concepts in any application or usage. Printed in the United States of America.
***********************************************
* *
* RESTRICTIONS ON THE USE OF THIS MATERIAL *
* *
***********************************************
In conformity with the SHARE rules that project activities, data bases, and membership lists are *not* to be used for commercial purposes, the contents of this tape are not to be re-distributed for any commercial or profit-making purpose. This restriction on redistribution also applies to modifications of any contents of this tape, regardless of the extent of changes made.
***********************************
* *
* D I S C L A I M E R *
* *
***********************************
The modifications and routines on this tape have been used successfully and to the best of our knowledge they are operational, however no warranty is made to the accuracy of the programs and related material and no responsibility is assumed for any modification directly or indirectly caused by the use of these mods. It is the users responsibility to evaluate the usefulness of the material supplied.
We do not guarantee to keep any material provided up to date nor do we guarantee to provide any corrections or extensions described by the user or corrections or extensions made in the future.
*---------------------------------------------------------------------* * ORDERING INFORMATION * *---------------------------------------------------------------------*
To order a copy of this tape send me a 3480 cartridge and I will return the tape to you with the latest version of this tape.
*----------------------------------------------------------------------*
Effective August 30, 1993 this tape is distributed and
maintained by:
Alan C. Field
SuperValu Incorporated
11840 Valley View Road
Eden Prairie, Minnesota 55344-3691
(952) 828-4979
Effective December 1, 1987 this tape is distributed and
maintained by:
Alan C. Field
Wetterau Incorporated
345 Dunn Road
Florissant, Missouri 63031-7995
(314) 839-7040
It was formerly distributed and maintained by:
LIONEL B. DYCK
ROCKWELL INTERNATIONAL MC/110-SH28
2201 SEAL BEACH BLVD.
P.O. BOX 2515
SEAL BEACH, CALIFORNIA 90740-1515
(213) 797-1125
*---------------------------------------------------------------------* * INSTALLATION HINTS * *---------------------------------------------------------------------*
In order to keep all parts of a contribution together in one member, many of the members in this PDS cannot be used directly from the PDS but require further processing before use.
Check any members containing mods you are interested in. If the first record contains a ./ in cols 1 and 2 you will need to run IEBUPDTE using this member as input to convert the member into a PDS.
Look at the members in the PDS just created and see if they have a +/ in cols 1 and 2. If so you will have to change the +/ to ./ and execute IEBUPDTE again to make another PDS from this member.
*---------------------------------------------------------------------*
**$$$DOC - MODIFICATIONS TAPE DIRECTORY (THIS FILE) *
*---------------------------------------------------------------------*
CONTENTS: DIRECTORY OF THE CONTENTS OF THE SHARE/GUIDE JES3
MODIFICATIONS TAPE.
*----------------------------------------------------------------------*
** CHANGE HISTORY **
*----------------------------------------------------------------------*
VERSION 81 27 June 2000
I missed updating this entry for a while. Files 45-50 have been
added. Various releases of SDF and the old GUIDE tuning document.
VERSION 80 26 June 1997
Updates to FILE044 to include bug fixes, packaging changes.
VERSION 80 28 November 1995
Addition of FILE044, a version of SDF for MVS 5.x/JES3 5.2.
VERSION 79 29 August 1995
Addition of FILE043, a version of SDF for MVS 5.x/JES3 5.1.
VERSION 78 05 July 1995
Addition of FILE042, from Stan Majowski, ISM.
VERSION 78 18 August 92
Addition of FILE041, from Bruce Watts, Chubb & Son.
VERSION 78 24 March 92
Replacement of FILE038, an ISPF source maintenance facility from
Rockwell.
VERSION 78 21 February 92
Addition of FILE040, a set of programs to analyze tape drive usage
with JES3 HWS.
VERSION 78 18 February 92
Addition of FILE039, a TSO command to tell the last date, time and
start type of JES3.
VERSION 78 24 November 91
Addition of FILE038, an ISPF source maintenance facility from
Rockwell.
VERSION 77 14 August 91
Updates to FILE021 for changes introduces by MVS SP4.
VERSION 77 11 Jul 91
Update to FILE032 to correct possible S0C1 abend at startup.
VERSION 77 07 May 91
Deletion of FILE038 at submitter's request.
VERSION 77 10 Oct 90
Addition of FILE038, A "C" language program to take MVSCP output
and create INISH deck statements. Contributed by Bruce Watts, Chubb
Group.
VERSION 77 05 Jul 90
Addition of FILE037, Block output separators from Nebraska Public
Power District.
VERSION 77 29 Jun 90
Addition of FILE035, modification to allow operator replies starting
with 8 to be entered.
Addition of FILE036, update to Mountain Bell modification MB01039
from FILE012 for SP 3.1.3.
VERSION 77 04 Apr 90
Addition of FILE001, a modification from Steven Yee to control
XEROX laser printers.
VERSION 77 01 Mar 90
Replacement of FILE021, the JES3 SDF program which is now updated
to version 2.9. This version supports JES3 2.1.5 through JES3 3.1.3.
VERSION 76 17 Jan 90
Added the installation hints paragraph above.
Updated FILE034 to HJS3312 level.
Updated FILE033 with more documentation and an updated version of
SHRPINIT.
VERSION 76 16 Oct 89
Addition of the SHARE/GUIDE JES3 Tuning Guide. This guide is
contained as members of a PDS in a format suitable for printing by
a 3800 and a 3211. A SCRIPT input file is also included.
The report was updated by the JES3 project of Guide and applies to
versions 1.3.4 and 2.1.5 of JES3.
It was contributed by Richard Mastrandrea,
General Dynamics / Eastern Data Center,
100 Winnenden Road,
Norwich, Conn, 06360.
(203) 823-2505
VERSION 75 25 Sep 89
Addition to FILE002 of a modification to TL DSP to allow labelling
of ASCII tapes.
VERSION 74 05 May 89
Replacement of FILE021, the JES3 SDF program which is now updated
to version 2.8. This will be the last release supporting
JES3 1.3.4.
VERSION 73 24 Mar 89
Starting with this release I am going to just increment the
tape volser by 1 for every major change to the tape (such as
addition or replacement of any mod).
Replacement of FILE025, a series of modifications from C.E.G.B
Computing Center, London England.
VERSION 72.1 09 Jan 89
Replacement of FILE021, the JES3 SDF program. This version is the
minimum version required to support JES3 3.1.1.
VERSION 72.0 25 Oct 88
Addition of FILE033. A subsystem to enable an abbreviated reply to
be entered from a console.
Addition of FILE034. An interface between JES3 and CMS for output
spooling without using NJE.
VERSION 71.1 08 Aug 88
Addition of FILE002 to enable the JCT to be moved without requiring
a cold start.
VERSION 71.0 04 Aug 88
The tape is no longer in compressed format.
All files are loaded using IEBCOPY. The entire PDS occupies
about 35 cylinders of a 3380.
Replacement of FILE021 (the JES3 Spool Display Facility) with
Version 2.6 from Bruce Engle.
VERSION 70.0 10 May 88
Modification to XJUTSM1 in FILE013 to prevent 0C4 abends in IATUTSM,
Changed lines flagged OY10936?
Replacement of FILE021 (the JES3 Spool Display Facility) with
support for JES3 2.2.1.
Complete replacement of FILE024 from Bruce Watts of Chubb.
Addition of FILE030 from Marie Cheng of Exxon.
Addition of FILE031 from Bruce Watts of Chubb.
VERSION 69.6 03/11/88
Addition of missing code from end of FILE015.
Addition of TIMESYNC DSP in file 29.
VERSION 69.5 11/10/87
Change in distributor of this tape.
VERSION 69.1 11/10/87
Replacement to FILE021 from Bank of America with new version of
the JES3 Spool Display Facility
Addition of FILE028 from National Computer Systems (NCS) that
contains copies of their PSF user exits.
VERSION 69.0 10/22/87
Replacement to FILE021 from Bank of America with new version of
the JES3 Spool Display Facility
VERSION 68.8 08/18/87
Update to FILE024 to support the 3480 Automatic Cartridge Loaders.
VERSION 68.7 07/29/87
Update to FILE017 to include a new usermod to use a push down stack
for DJST handling to reduce overhead for IMS.
VERSION 68.6 07/24/87
Replacement to FILE021 from Bank of America with new version of
the JES3 Spool Display Facility
VERSION 68.5 05/12/87
Addition to FILE017 of usermod (refitted from Wells Fargo JES2) to
perform notification of local TSO/E XMIT's
Replacement to FILE021 from Bank of America with new version of
the JES3 Spool Display Facility (with Operator interface)
VERSION 68.1 03/19/87
Update to FILE013 from Exxon with DSP to write operator messages
to JESMSG.
VERSION 68.0 03/11/87
ADDITION OF FILE025 FROM C.E.G.B. Computing Centre, London
Update to FILE017 to include a sample TSO CP that uses the Block
Spooler Interface for JES3 1.3.4 or 2.1.5.
*----------------------------------------------------------------------* **FILE001 - 04 Apr 90 * *----------------------------------------------------------------------*
CONTENTS:
A mofification from Steven Yee of Sacramento Municipal Utility
District to control XEROX laser printers.
*----------------------------------------------------------------------* **FILE002 - 25 Sep 89 * *----------------------------------------------------------------------*
CONTENTS:
A mofification from National Westminster Bank, London, England to
allow the JCT to be moved without requiring a cold start.
A modification to allow the TL DSP to label ASCII tapes.
*----------------------------------------------------------------------* **FILE003 - ROCKWELL INTERNATIONAL MODIFICATIONS 9/08/85 * *----------------------------------------------------------------------*
THE CONTENTS ARE:
DAHJCL JCL USED TO CREATE A JES3 DATA AREA HANDBOOK
DAHMACS BAL MACROS USED BY DAHANDBK DURING ASSEMBLY
DAHANDBK BAL SOURCE FOR DAHANDBK PROGRAM
JES3MAC ASSEMBLER SOURCE USED BY DAHANDBK
FORMAT BAL PROGRAM TO FORMAT A JES3 SPOOL TO ALLOW IT TO BE
ADDED TO JES3 WITHOUT A FORMAT CARD (U CAN USE TRACK)
IEFUTL DOCUMENTATION ON HOW TO PREVENT 522 ABENDS WHEN THE
JES3 GLOBAL IS DOWN.
JESCMD A PROGRAM TO ISSUE JES3 COMMANDS FROM TSO OR BATCH
JES3UP A CALLABLE PROGRAM TO TEST THE ACTIVE STATUS OF JES3
ON GLOBAL OR LOCAL BY ANY PROGRAM.
JMP A JES3 MONITORING PROGRAM WHICH CAN RUN ON EITHER
THE GLOBAL OR LOCAL
THE FOLLOWING MEMBERS ARE IEBUPDTE FORMAT AND CONTAIN OUR MVS/BDT ISPF DIALOGS.
CLIST CONTAINS THE CLISTS FOR THE DIALOG MSGS ISPF MESSAGES PANELS ISPF PANELS SKELS ISPF SKELETONS SOURCE ISPF DIALOG SOURCE PROGRAMS AND MACROS
THE FOLLOWING MEMBERS ARE USER MODS IN SMP FORMAT FOR JES3
SJ003A0 INCREASE STANDARD SIZE STAGING AREA TO 520 BYTES
SJ007A0 ALLOC DC OPTIONS FOR JES3 PRDMP FORMATTING.
SJ009A0 ALLOW LOCATE TO RUN ON OTHER THAN GLOBAL IF GLOBAL BUSY.
SJ013A0 ELIMINATE SOME LINK OVERHEAD IF USING JES3 STEPLIBS
SJ039A0 PROVIDE A WHERE= OPTION TO DC
SJ041A0 WTP DSP - ALLOW OPERATOR TO WRITE A MESSAGE TO A JOBS
JESMSG DATASET & ALLOW OPERATOR TO SEND A MVS COMMAND TO
ALL CONNECTED MAINS.
SJ051A0 ALLOW SELECTED DSP'S TO HAVE OWN JDS.
SJ054A0 IATUX30 - TSO STATUS/OUTPUT/CANCEL USER EXIT
SJ055A0 PROVIDE PROCESSOR NAME IN RESPONSE *I,J OR *I,Q INQUIRY
SJ061A0 NOTIFY THE TSO USER WHERE THEY ARE LOGGED ON
SJ064A0 BYPASS DYNAMIC ALLOC IF TEMP NEW OR PASS D/S AT JOB TERM
SJ071A0 PROVIDE AN EBCDIC DISPLAY OPTION TO DC
SJ082A0 INHIBIT VERIFY RESPONSE MESSAGES AT IPL OR CONNECT.
SJ083A0 ENHANCED NJE COMMANDS.
SJ084A0 ENHANCE TSO STATUS RESPONSE. (TRY IT - YOU WILL LIKE IT)
SJ104A0 ELIMINATE WRITING MSG IAT5000 FROM JESMSG TO SAVE JSAM BUFF
SJ150A0 WRITER SELECTION BY OSE PRTY WITHIN JOB PRTY
SJ168A0 SET SU BITS 812, 818 AND 826 AT JES3 INITIALIZATION
SJ178A0 ALLOW FORMATTING OF THE NJE CONTROL BLOCKS VIA DC AND PRDMP
SJ208A0 PROVIDE SYSOUT LINE COUNT IN SSOB FOR RMDS
SJ216A0 CAUSE VPS PRINTER TO BE ACTIVATED WHEN AN OSE IS CREATED
FOR A VPS PRINTER (DEST=LUNAME). THIS ALLOWS US TO NOT
HAVE ALL OUR PRINTERS ACTIVE TO VPS THUS SAVING STORAGE
AND JES3 POLLING OVERHEAD, AND ALLOWS MULTIPLE VPS ADDRESS
SPACES.
SJ888A0 INCREASE NJE LINES FROM 3 TO 5
SJ999A0 A USERMOD TO TAKE ADVANTAGE OF IATUX11 AND ELIMINATE THE
LOCATE RESPONSE MESSAGES IF THE DATASET IS FOUND.
THIS FILE CONTAINS ALL CURRENT MODIFICATIONS TO MVS/BDT AND RELATED JES3 MODS.
MOD DESCRIPTION
SB001 CREATE USER EXIT BASE CODE AS NEEDED.
BDTUX19(R), BDTUX25(R), BDTUX26(R), BDTUX27(R),
BDTUX28(R), BDTUX29(R)
SB002 SECURE MVS/BDT FOR THE PAYROLL APPLICATION.
BDTUX19
SB003 ACF2 VALIDATION FOR MVS/BDT.
BDTUX19, BDTUX27
SB004 ACCOUNTING MODS FOR MVS/BDT.
BDTUX19
SB005 BDT COMMAND AUTHORIZATION.
BDTUX25(R), BDTUX31(R)
SB008 MVS/BDT PRIORITY LIMITING.
BDTUX19
SB010 AUTHORIZATION FOR ALL BDT COMMANDS AND JES3 COMMANDS VIA BDT
BDTUX31, BDTUX25, BDTUX10(R)
SB011 COMPLEMENTARY NODE SUPPORT. CHANGE LOC PARAMETER.
BDTUX19(R)
SB014 PROVIDE NOTIFICATION FOR BATCH SUBMITTED TRANSACTIONS VIA
MSGCLASS(NOTIFY) OR MSGCLASS(NOTIFY=USERID). THE NOTIFICATION
IS VIA THE SEND INTERFACE WITH THE LOGON OPTION.
SJ203A0 ALLOW JES3 COMMANDS FROM MVS/BDT.
IATUX18, IATUX56
SJ210A0 ALLOW BATCH SUBMISSIONS FROM MVS/BDT WITH PROPOGATION
OF USERID.
IATOSDR, OSDR001(R)
NOTES: (R) INDICATES A MODULE REPLACEMENT, OTHERWISE AN UPDATE IS IMPLI
CONTRIBUTOR:
L. B. DYCK
ROCKWELL INTERNATIONAL
P.O. BOX 2515
2201 SEAL BEACH BLVD.
SEAL BEACH, CALIF 90740
MAIL CODE 110-SH28
(213) 594-1125
*----------------------------------------------------------------------*
**FILE004 - WESTINGHOUSE MODIFICATIONS 1/11/85 *
*----------------------------------------------------------------------*
CONTENTS:
INSTRUCT - DOCUMENTATION ON HOW TO USE SCOPE DSP
MODCLASS - ALLOW THE OPERATOR TO CHANGE THE CLASS OF A JOB
MSGMAC - MOD TO ALLOW THE SUPPRESSION OF THE TIMESTAMP ON THE
MESSAGE MACRO.
SCOPE - A DSP TO MONITOR VARIOUS ELEMENTS OF JES3
CONTRIBUTOR:
JEFFREY P. MONACO
WESTINGHOUSE ELECTRIC CORPORATION
P. O. BOX 355
PITTSBURGH, PA 15230-0355
(412) 374-5660
*----------------------------------------------------------------------*
**FILE005 - AT&T BELL LABORATORIES 10/07/84 *
*----------------------------------------------------------------------*
CONTENTS: MODIFICATION FROM AT&T BELL LABS TO IMPROVE THE PERFORMANCE
OF OUTPUT SERVICE.
CONTRIBUTOR:
JOSIE HINTZ
AT&T BELL LABORATORIES
HOLMDEL, NJ 07733
ROOM 2G-428
(201) 949-3768
*----------------------------------------------------------------------* **FILE006 - PACIFIC NORTHWEST BELL 10/07/84 * *----------------------------------------------------------------------* CONTENTS:
LJ00301 - NEW UX03 DRIVER TO CALL UCC11 AND THEN HSM
MODULE AFFECTED: IATUX03
LJ00501 - WRITE TO PROGRAMMER
MODULE AFFECTED: IATMODV
LJ01101 - FETCH AND MOUNT MESSAGE SPACING
MODULE AFFECTED: IATMDFE, IATMDSL
LJ04701 -- PICK UP PROGRAMMER NAME FROM JOB CARD, IF NETACCT CARD
IS NOT PROVIDED.
MODULE AFFECTED: IATISJB
LJ06901 - PICK JOB ACCT INFO FROM EITHER OR JOB CARD OR FIRST STEP.
MODULE AFFECTED: IATIICM, IATIIPR
LJ07301 - SHOW NODE NAME ON MLOG ALONG WITH MESSAGE IAT7100 WHICH WILL
IDENTIFY WHERE THE NETWORK COMMAND COME FROM.
MODULE AFFECTED: IATCNIC
LJ07901 - 3279 CONSOLE COLOR CONTROL.
MODULE AFFECTED: IATCN78
LJ08701 - USER MOD TO ELIMINATE DEST=ALL ON CONSOLE AS DEFAULT
MODULE AFFECTED: IATINC1
IATPCNSW - DSP TO SWITCH ALL CONSOLES HAVING I/O ERRORS TO MLOG
USED AT JES STARTUP TIME TO AVOID HAVING BUFFERED UP CONSOLES.
*----------------------------------------------------------------------* **FILE007 - NORTH AMERICAN PHILIPS LIGHTING CORPORATION 02/07/85 * *----------------------------------------------------------------------* CONTENTS:
NAPJM01 MODIFY THE CONTROL BLOCK TO SUPPORT IATUX28,
IATUX33 AND IATUX34, ONLY USER FIELDS CHANGED.
ISFLAG7 (USER AVAILABLE) ALSO DEFINED
NAPJM02 MODIFY THE CONTROL BLOCK TO SUPPORT THE CHANGES
TO COMMAND PROCESSING THAT ALLOW MODIFICATION
OF JOB CLASS. THIS MOD CHANGES THE CONTROL
BLOCK LENGTH.
NAPJM03 MODIFY THE CONTROL BLOCK TO SUPPORT THE CHANGES
TO COMMAND PROCESSING THAT ALLOW MODIFICATION
OF JOB CLASS. THIS MOD CHANGES ONLY USER FIELD
DEFINITIONS
NAPJ005 HANDLE THE 3741 BETTER IN CERTAIN ERROR
CONDITIONS (INCLUDES MODE SWITCHING)
CAUSE JES3 TO RESTART A LINE WHEN A SIGNED ON
TERMINAL SIGNS ON AGAIN. STANDARD JES3 WOULD
CANCEL THE LINEE
NAPJ006 DISALLOW C PRX,J , R PRX,J AND *Z,ALL FROM RMT
CONSOLES, DO OTHER CHECKING
ALLOW A REMOTE TO SEND A COMMAND TO AN NJE NODE
NAPJ008 IF THIS IS AN ABENDING JOB RAISE THE PRIORITY TO
240 AND FORCE COPIES=1
INHIBIT PRINTING OF TSO LOGON JOBS
CHANGE SYSOUT CLASSES X'00' AND BLANK TO A
NAPJ009 HILITE MOUNT MESSAGES (IEC001, IEC101A, IEC400A
IEC403A, IEC701D, IEF233, IEA605, IEC120,
IEC501, AND IEC601)
SEND THE FOLLOWING TO THE LOG ONLY (IEC002,
IEC202, IEC705, AND IEF280). NOTE THESE ARE
IN AS SAMPLE CODE REGARDLESS OF NECESSITY
NAPJ011 BYPASS PRINTING THE HEADER PAGE FOR A JOB (N. A.
PHILIPS PRINTS 2 COPIES OF THE FIRST BURST PAGE
FOR A JOB WITHIN A GIVEN SELECTION CRITERIA).
NAPJ012 1. PRINT TRAILER PAGE EXCEPT FOR OUTPUT ON X40
3211 DEVICES WITH FORM ID BEGINNING WITH F
2. PRINT PRINT END TIME AND DATE AS WELL AS
EXECUTION START TIME AND DATE.
3. PRINT OTHER USEFUL INFORMATION ON TRAILER
PAGE
NAPJ013 PRINT BURST PAGES IF HEADERS AND BURST PAGES NOT
SUPPRESSED. (NOTE THAT SEPARATE JOB HEADERS ARE
NOT PRODUCED BUT THAT THE BURST PAGE IS
DUPLICATED FOR THE FIRST DATA SET WITHIN A JOB
FOR EACH OF THE GIVEN SETS OF SELECTION
CRITERIA).
IF THE OUTPUT IS DIRECTED TO A KOMSTAR (DEVICE
ADDRESS ENDS IN 40 AND DEVICE TYPE IS A 3211)
BURST PAGES WILL BE SUPPRESSED IF THE FORM-ID
BEGINS WITH F AND SPECIAL BURST LINES FOR THE
FICHE HEADINGS WILL BE PRODUCED FOR THE FIRST
DATA SET WITHIN A JOB.
JOB-CLASS, PROGRAMMER-NAME, THE 1ST 12 CHARS
OF ACCT-INFO, DJC-NET-ID, SUBMITTING NJE-NODE
SUBMITTER, SUBMIT TIME AND DATE, AND PRINT TIME
AND DATE WILL BE PRINTED.
NAPJ014 BYPASS PRINTING THE LOCATE RESPONSE MESSAGES IF
IF THE DATASET IS FOUND.
NAPJ015 CHANGE THE HN TRANSLATE TABLE TO UPPER CASE ALL
LOWER CASE LETTERS
NAPJ016 CHANGE THE PN TRANSLATE TABLE TO UPPER CASE ALL
LOWER CASE LETTERS
NAPJ021 THIS MODULE HANDLES SECURITY CHECKING VALIDATING
PROC USAGE AND BARRING CERTAIN REMOTE AND NJE
GROUPS FROM USING OTHER THAN SELECTED PROC
GROUPS AND ONLY ALLOWING EXECUTE PROCNAME,
//*MAIN AND //*FORMAT CARDS FOR THOSE GROUPS
NAPJ022 CHECK DD INPUT FROM SELECTED REMOTE GROUPS AND
NJE NODES TO VERIFY ONLY DD * AND DD DATA DD
CARDS ARE ENTERED.
NAPJ023 THIS MOD IS TO SUPPORT THE MODIFY JOB CLASS
COMMAND (*F J=9999,NC=NEWCLASS)
NAPJ024 MOVE IN NEW CLASS TO JCT AND JQE IF THE CLASS
HAS BEEN MODIFIED
NAPJ025 CHECK TO SEE IF THIS IS A MODIFY JOB CLASS
COMMAND (*F J=9999,NC=NEWCLASS)
NAPJ026 THIS SUPPORTS THE WESTINGHOUSE MODIFY JOB CLASS
COMMAND (*F J=9999,NC=NEWCLASS)
NAPJ027 THIS MOD IS TO SET THE CARRIAGE TAPE (FCB) BASED
ON FORM ID UNLESS THE CARRIAGE TAPE IS SPECIFIED
BY THE USER
NAPJ028 BYPASS UCS LOADING ON NON-STANDARD PRINTER .
(THIS MOD IS KEPT IN CASE WE ARE LUCKY ENOUGH TO
A XEROX 9700)
NAPJ029 BYPASS RING AND EXPIRATION DATE CHECKING FOR .
UCC1, ALSO NEED NAPJ030 AND NAPJ031
NAPJ030 BYPASS EXPIRATION DATE CHECKING IF TAPE. THIS
SUPPORTS UCC1
NAPJ031 SET UP THE UCC1 DSP ENTRY
NAPJ029 AND NAPJ030 ALSO NEEDED
NAPJ033 BYPASS FURTHER CHECKING OF THE JOB CARD
NAPJ034 1. STORE 1ST 11 DIGITS OF ACCOUNT INFO INTO THE
SMF26 RECORD PART OF THE JMR.
2. VALIDATE ACCOUNT INFO AND PROGRAMMER NAME
3. SET PRIORITY BASED ON TIME. IF NOT >
9 SEC - PRIORITY 7
19 SEC - PRIORITY 6
29 SEC - PRIORITY 6
59 SEC - PRIORITY 6
119 SEC - PRIORITY 3
239 SEC - PRIORITY 2
479 SEC - PRIORITY 1
OVER 479 SECONDS PRIORITY 0
4. VERIFY THAT SYS PROG JOB IS FROM SYS PROG
SUBMITTER OR LOCAL READER
CONTRIBUTOR:
CLARK MORRIS, N. A. PHILIPS LIGHTING
ONE WESTINGHOUSE PLAZA
BLOOMFIELD, NEW JERSEY 07003
PHONE 201-429-3607
*----------------------------------------------------------------------* **FILE008 - LINCOLN NATIONAL 09/12/85 * *----------------------------------------------------------------------* CONTENTS: CMD DSP
THE CMD DSP CAME ABOUT WHEN THERE WAS A PROBLEM WITHIN THE COMPUTER ROOM WITH A SET OF COMMANDS THAT THE OPERATORS WERE TO ENTER EVERY HOUR, OR THERE ABOUTS, TO PERFORM CERTAIN TASKS AND THESE COMMANDS WOULD BE FORGOTTEN. THEN IT WAS FOUND THAT THERE WERE COMMANDS THAT NEEDED TO BE ENTERED EVERY MONDAY AND NO OTHER DAY. THESE WERE ALMOST ALWAYS FORGOTTEN OR ENTERED AT A LATER TIME. THIS BROUGHT ABOUT CMD. CMD WILL CALL A MEMBER OF THE JES3 DISK READER DATA SET TO EXECUTE COMMANDS THAT ARE IN THE MEMBER AT A REDEFINDED TIME OF DAY AND DAY OF THE WEEK. THIS FREES THE OPERATOR FOR OTHER TASKS. FOR MORE DETAILED INFORMATION SEE CMDDOC MEMBER.
CONTRIBUTOR:
KEITH MERRIMAN
LINCOLN NATIONAL CORP.
1300 S. CLINTON ST.
P.O. BOX 1110
FORT WAYNE, IN 46801
(219) 427-4429
*---------------------------------------------------------------------* **FILE009 J. WALTER THOMPSON JES3 MODS 10/22/85 * *---------------------------------------------------------------------* ALL OF THE BELOW ARE IN SMP4 FORMAT. ALL ARE INSTALLED AND WORKING IN A JES3/SP RELEASE 1.3.4 SYSTEM. ALL EXCEPT FOR QJ00004 WILL ALSO WORK ON JES3/SP RELEASE 1.3.1. THE 1.3.1 VERSION OF QJ00004 IS AVAILABLE ON REQUEST.
CONTENTS:
QJ00002 IATUX21 MODIFICATION TO SUPPRESS DATASET HEADER PAGES,
EVEN IF JOB HEADERS ARE BEING PRODUCED.
QJ00004 IATUX20 J. WALTER THOMPSON JOB HEADER PAGE, FORMATTED
AS FOLLOWS:
1. JOB NAME IN BLOCK LETTERS
2. JOB TITLE IN BLOCK LETTERS (MAX. OF 8 CHARACTERS)
3. 18 LINES OF JES2-STYLE SEPARATOR LINES, EACH LINE
CONTAINING SYSOUT CLASS, JOB NUMBER, JOB NAME,
PROGRAMMER NAME, JOB TITLE, CPU ID, DAY OF WEEK,
DATE AND TIME PRINTED.
4. 10 LINES CONTAINING 'JWT' IN BLOCK LETTERS IN THE
CENTER, WITH BOXES ON EITHER SIDE. THE LEFT BOX
DESCRIBES THE PRINTING LOCATION. THE RIGHT BOX
CONTAINS DELIVERY INFORMATION.
JOB TITLE IS AN OPTIONAL FIELD TAKEN FROM THE SECOND
POSITIONAL PARAMETER IN THE JOB CARD ACCOUNTING
FIELD. IF IT IS NOT PRESENT ON THE JOB CARD, IT IS
LEFT BLANK ON THE HEADER PAGE. THE IDEA IS THAT JOB
NAMES OFTEN CANNOT BE MEANINGFUL BECAUSE THEY MUST
CONFORM TO RULES, SO PROVISION IS MADE FOR A TITLE
TO IDENTIFY THE LISTING. DELIVERY INSTRUCTIONS ARE
TABLE-DRIVEN, BASED ON A 4-CHARACTER DELIVERY CODE
WHICH IS THE THIRD POSITIONAL PARAMETER IN THE JOB
CARD ACCOUNTING FIELD. IT, TOO, IS OPTIONAL. IF
IT IS NOT PRESENT, THE BOX IS LEFT BLANK. PRINT
LOCATION (LEFT BOX) IS TABLE-DRIVEN.
QJ00005 IATUX23 MODIFICATION TO JOB TRAILER (BURST) PAGE TO
REPLACE SKIP TO CHANNEL 12 WITH SKIP 2 LINES.
(APPLIES ONLY TO IMPACT PRINTERS.)
ATTEMPTING TO SKIP TO CHANNEL 12 ON A 1403
PRINTER WHICH DOES NOT HAVE A CHANNEL 12 PUNCH
ON ANY OF ITS PAPER CARRIAGE CONTROL TAPES
IS NOT A GOOD IDEA.
QJ00006 IATUX06 ENFORCE JWT DASD ALLOCATION STANDARDS FOR AS TO
WHERE NEW DASD DATASETS ARE ALLOWED TO BE PLACED
(EXCLUDING DYNAMIC ALLOCATIONS). USEFUL ONLY
AS AN EXAMPLE OF AN IATUX06 EXIT.
CONTRIBUTOR:
MICHAEL S. SWIDLER
J. WALTER THOMPSON COMPANY
420 LEXINGTON AVENUE
NEW YORK, NY 10017
(212) 210-8000
*---------------------------------------------------------------------* **FILE010 FMC CORPORATION 3/24/86 * *---------------------------------------------------------------------*
JES2 TO JES3 JECL CONVERSION BRIDGE
WRITTEN BY: SKIP ABADIE (FDT)
FMC CORPORATION
P.O. BOX 470487
DALLAS, TEXAS
(214) 689-7655
INSTALLATION CODE: FDT
DISCLAIMER: USE AT YOUR OWN RISK. THERE IS NO WARRANTY OR
GUARANTEE EXPRESS OR IMPLIED, ETC. AD NAUSEUM. NEITHER
FMC NOR THE AUTHOR SHALL BE HELD LIABLE FOR ANY PROBLEMS
THAT MAY RESULT FROM THE USE OF THESE PROGRAMS.
NOTES:
1. SAMPLE SMPE SYSMOD IN MEMBER JJECL00 MAY BE USED TO INSTALL
MOST OF THE BRIDGE. IT INCLUDES EVERYTHING EXCEPT FOR THE
PARTS OF THE BRIDGE THAT MUST BE ADDED TO IATUX28, IATUX29,
IATUX33, IATUX34, IATUX44, AND IATUX03.
2. THE INPUT SERVICE EXITS (28, 29, 33, 34, 44) AND IATUX03 ARE
INCLUDED IN THIER ENTIRETY. ALL OF THE CODE IN IATUX03 IS
NEEDED FOR THE BRIDGE, BUT THE OTHER EXITS CONTAIN SOME
UNRELATED STUFF (E.G., CALLS TO ACF2). YOU SHOULD REVIEW
ALL OF THESE EXITS CAREFULLY BEFORE USING THEM.
3. SAMPLE SMPE SYSMOD IN MEMBER JIWJM00 MAY BE USED TO INSTALL
THE JESMSG MESSAGE WRITING PROGRAM, IATIWJM, AND IT'S
ASSOCIATED MACROS.
4. CAUTION - I HAVE TRIED TO MAKE ALL COMMENTS IN THE SOURCE
CODE MEANINGFUL. WHEN IN DOUBT, LOOK AT THE CODE RATHER THAN
THE COMMENTS.
5. WARNING - THE CODE SUPPLIED USES CERTAIN FIELDS IN THE INPUT
SERVICE DATA CSECT THAT ARE RESERVED FOR THE USER. THE FIELDS
USED ARE ISFLAG8 AND ISDRSVU1. IATUX03 USES A FIELD IN THE
CI DSP DATA CSECT. THE FIELD USED IS IDDRSUSR (8 WORDS).
6. CONVERSION OF REMOTE NAMES AND NODE NAMES MUST BE CAREFULLY
REVIEWED BY ANYONE INSTALLING THE BRIDGE. THE ROUTINES FOR
CONVERTING DESTINATION NAMES IN IATJ33X AND IATUX03 ARE
SPECIFIC TO FMC. AT THE LEAST, THE NODENAME TABLES WILL
NEED TO BE CHANGED TO REFLECT THE NAMES OF YOUR NODES.
7. GENERAL FUNCTION OF EACH MEMBER IS AS FOLLOWS:
** MACROS **
FMCJCB - DSECT OF JECL CONVERSION BRIDGE WORK AREA
FMCOJP - DSECT OF OUTPUT JCL PARAMETER BLOCK
FMCSJAR - DSECT OF SMF JECL BRIDGE ACTIVITY RECORD
FMCXIS - DSECT OF INPUT SERVICE EXIT COMMON CONTROL BLOCK
ISWJMWT - CALL JESMSG MESSAGE FORMAT/WRITE ROUTINE (IATIWJM)
ISWJVAR - CONSTRUCT SEGMENT LIST FOR IATIWJM
** MODULES **
IATIWJM - FORMAT AND WRITE MESSAGES TO JESMSG DATASET
IATJECL - BRIDGE ROUTING MODULE. CALLED BY EXITS 33, 34,
44, AND 29. THIS MODULE CALLS THE APPROPRIATE
CONVERSION MODULE (IATJ33X, IATJ34X, IATJ44X) AND
WRITES THE SMF RECORD WHEN CALLED BY IATUX29. THE
SMF RECORD IS ONLY WRITTEN FOR JOBS THAT REQUIRED
SOME BRIDGE ACTIVITY.
IATJ33X - THE HEART OF THE CONVERSION BRIDGE. J33X DOES
ALL OF THE JECL STATEMENT CONVERSIONS. SOME
CONVERTED CARDS ARE INSERTED IMMEDIATELY, WHILE
OTHERS, SUCH AS //*MAIN AND OUTPUT JCL STATEMENTS,
ARE NOT INSERTED UNTIL THE FIRST EXEC OR INSTREAM
PROC IS FOUND.
IATJ34X - SCANS DD STATEMENTS FOR SYSOUT OPERAND. WHEN A
SYSOUT DD IS FOUND THAT CONTAINS 3 SUBPARMS, THE
THIRD IS CHECKED FOR A POSSIBLE MATCH WITH A JES2
/*OUTPUT CODENAME. WHEN A MATCH OCCURS, IATJ34X
CHANGES THE SYSOUT OPERAND TO A SIMPLE CLASS
REFERENCE (E.G., SYSOUT=(A,,ABC) ==> SYSOUT=A), AND
INSERTS A CARD WITH AN OUTPUT JCL REFERENCE,
E.G., // OUTPUT=(*.ABC). NOTE THAT PROCS ARE
NOT EXPANDED AT INPUT SERVICE TIME, SO ANY SYSOUT
REFERENCE TO A JES2 /*OUTPUT CARD IN A PROC WILL
NOT BE CONVERTED TO AN OUTPUT JCL REFERENCE UNTIL
THE INTERNAL TEXT IS BUILT AND PASSED TO IATUX03.
IATJ44X - LOOKS FOR AN INSTREAM PROC WITHIN THE JOB. IF AN
INSTREAM PROC IS FOUND, IT SETS A FLAG THAT TELLS
IATJ33X TO START INSERTING STATEMENTS.
IATUX28 - INITIALIZES THE INPUT SERVICE EXIT COMMON CONTROL
BLOCK (XIS). THIS IS THE FIRST INPUT SERVICE EXIT
CALLED.
IATUX29 - FREES THE INPUT SERVICE EXIT COMMON CONTROL BLOCK
(XIS). CALLS IATJECL TO CLEANUP AND WRITE SMF
RECORD. THIS IS THE LAST INPUT SERVICE EXIT.
IATUX33 - JECL STATEMENT SCAN. CALLS IATJECL FOR EACH JECL
STATEMENT RECEIVED.
IATUX34 - DD STATEMENT SCAN. CALLS IATJECL FOR EACH DD
STATEMENT RECEIVED.
IATUX44 - SJF AND OTHER JCL STATEMENT SCAN. CALLS IATJECL
FOR EACH STATEMENT RECEIVED.
IATUX03 - INTERNAL TEXT EXIT FROM CI. THIS EXIT CONVERTS
SYSOUT DD STATEMENTS THAT REFERENCE A JES2
/*OUTPUT CARD TO AN OUTPUT JCL REFERENCE. EXIT 3
WILL CONVERT ANY /*OUTPUT CARD REFERENCE THAT WAS
NOT CONVERTED IN IATJ34X.
8. GOOD LUCK.
*---------------------------------------------------------------------* **FILE011 NEW MEXICO STATE UNIVERSITY 3/24/86 * *---------------------------------------------------------------------*
CONTAINS SOME OF THEIR MODIFICATIONS TO JES3 SP 1.3.4.
MEMBERS: MACROS - CHANGES TO JES3 MACROS
SOURCE - CHANGES/ADDITIONS TO JES3 SOURCE
OLD131 - CHANGES TO JES3 SP 1.3.1
CLAUDE WESCOTT
NEW MEXICO STATE UNIVERSITY
COMPUTER CENTER BOX 3AT
LAS CRUCES, NM 88003
NMS (505) 646-4621
*---------------------------------------------------------------------* **FILE012 MOUNTAIN BELL 4/07/86 * *---------------------------------------------------------------------*
|---------+------------------------------------------------------------| | JES3 USERMOD LIBRARY FOR JES3 VERSION 2 RELEASE 1 MODIFICATION 2. | | FMID = HJS2329. | |---------+------------------------------------------------------------| | | SOURCE/ | | | | MACRO | | | USERMOD | UPDATED | DESCRIPTION | |---------+----------+-------------------------------------------------| | MB0NNNN | | CURRENT VERSION. | | MBXNNNN | | NEW VERSION. | | MBYNNNN | | OLD VERSION. | | MB 0NN | | AVAILABLE USERMOD NUMBER. | | - ALL - | | # IN CC 64 INDICATES REPLACED IBM CODE. | |---------+----------+-------------------------------------------------| | MB01000 | IATINIC | ALLOW A 'COMPLEX=XXX' OPTION ON THE 'OPTIONS' | | | IATYTVT | INISH DECK STATEMENT TO IDENTIFY EACH COMPLEX. | | | | THIS ALLOWS ALL USERMODS TO BE IN ALL COMPLEXES.| |---------+----------+-------------------------------------------------| | MB01001 | IATUX20 | ELIMINATE PRINTING OF JOB HEADER PAGES. | |---------+----------+-------------------------------------------------| | MB01002 | IATOSWD | FORMAT HEADER PAGE FOR DATASETS RECEIVED FROM | | | IATNTJS | A VM NODE. THE FORMAT OF THE HEADER PAGE IS: | | | IATUX21 | USERID | | | IATYJDA | DEV JOBN | | | | VMIDXXXX - XXX IS FROM ORIGINAL JOBNAME. | | | | XXXXXXXX - DDNAME WHEN OUTPUT GENERATED. | |---------+----------+-------------------------------------------------| | MB01003 | IATMDFE | ELIMINATE ISSUANCE OF JES3 FETCH MESSAGES, | | | | MSGIAT5110 BECAUSE WE DO NOT HAVE A SEPERATE | | | | FETCH CONSOLE. | |---------+----------+-------------------------------------------------| | MB01004 | IATMDBK | ELIMINATE ISSUANCE OF JES3 KEEP MESSAGES, | | | | MSGIAT5410 BECAUSE THE MVS KEEP MESSAGE IS | | | | SUFFICIENT. | |---------+----------+-------------------------------------------------| | MB01005 | IATIQOS | INCLUDE THE DAY AND TIME THE JOB ENDED IN | | | IATISDV | RESPONSE TO AN *I U ... COMMAND, MSGIAT8131. | | | IATISLG | THE FORMAT IS 'JE=DDD/HH.MM,'. STARTED TASKS AND| | | IATISNJ | JOBS REROUTED USING THE 'NJEROUT' DISP (WITH | | | IATMSMS | TO= AS THE HOMENODE) WILL SHOW 'NE=N/A'. | | | IATNTJS | | | | IATNTRT | | | | IATNTSF | | | | IATOSNT | | | | IATYJDA | | | | IATYNIS | | | | IATYNJH | | | | IATYNWR | | |---------+----------+-------------------------------------------------| | MB01006 | IATUX21 | MOUNTAIN BELL FORMAT FOR DATASET HEADER PAGES. | | | | THE HEADER PAGE IS SKIPPED FOR THE JESJCL AND | | | | SYSMSG DATASETS. THE HEADER PAGE FORMAT IS: | | | | JOBNAME | | | | DEV JOBN | | | | DDNAME | |---------+----------+-------------------------------------------------| | MB01007 | IATIIP1 | ELIMINATES JES3 CHECKING FOR RING/NORING AND | | | | EXPIRATION DATE NOT EXPIRED CONDITIONS FOR MAG | | | | TAPES. TAPE MANAGEMENT SYSTEM (TMS) TAKES CARE | | | | OF THIS FUNCTION. | |---------+----------+-------------------------------------------------| | MB01008 | IATOSPR | PRINT TWO DATASET HEADER PAGES FOR EACH DATASET.| |---------+----------+-------------------------------------------------| | MB01009 | IATGRPT | ADD THE TMS (TAPE MANAGEMENT SYSTEM) DSP TO THE | | | | DSP DICTIONARY. | |---------+----------+-------------------------------------------------| | MB01010 | IATMDSL | HIGHLIGHT JES3 TAPE SETUP MESSAGES, MSGIAT5210, | | | IATYMDS | BY PRINTING A LINE BEFORE AND AFTER THE BLOCK | | | | OF TAPE MOUNTS CONSISTING OF '_' AND THE JOB | | | | NUMBER. | |---------+----------+-------------------------------------------------| | MB01011 | IATNTRT | SUPPORT SPECIAL NJE SYSOUT PROCESSING. | | | IATUX38 | | |---------+----------+-------------------------------------------------| | MB01012 | IATMDIQ | INCLUDE THE JOBNAME ON THE RESPONSE TO THE | | | | *I,R,S COMMAND, MSGIAT5624. | |---------+----------+-------------------------------------------------| | MB01013 | IATUX31 | PROVIDE GENERAL CONSOLE MESSAGE ROUTING. | | | IATYFCT | | |---------+----------+-------------------------------------------------| | MB01014 | IATGRWJ | ADDS THE STEPNAME, TIME ON MAIN AND SYSTEM NAME | | | | TO MSGIAT8674. | |---------+----------+-------------------------------------------------| | MB01015 | IATIICM | INSURES THAT IF THE USER USES ONE OF THE GENERAL| | | | MSVGP'S (MSVGP=GENLXXXX) THAT HE MUST ALSO HAVE | | | | CODED A NON-ZERO RETENTION PERIOD (RETPD) OR A | | | | EXPIRATION DATE (EXPDT) AT LEAST ONE GREATER | | | | THAN THE CURRENT DATE, ON THE LABEL PARAMETER. | | | | ISSUE MESSAGE IATU012. | |---------+----------+-------------------------------------------------| | MB01016 | IATMDAL | DEFER ALL JES3 TAPE MOUNTS TO MVS IF THE JOB IS | | | IATYMDS | IN CHECKPOINT RESTART PROCESSING. THIS SAVES | | | | THE OPERATOR FROM MOUNTING THE FIRST REEL OF | | | | MULTI-REEL DDNAMES TO SATISFY JES3 SETUP. | |---------+----------+-------------------------------------------------| | MB01017 | IATCN78 | HILITE/SOUND AUDIO FOR SELECTED NON-ACTION | | | IATYFCT | MESSAGES. | |---------+----------+-------------------------------------------------| | MB01018 | IATCNSL | SUPPORT REQUEST FOR SPECIAL SCRATCH TYPES: | | | IATMDSL | VSCRCH, SCR800, ONLINE, AL-SCR, HO-SCR. | | | IATMDIQ | JOBNAME, STEPNAME AND DATASET NAME SHOULD NOT | | | IATUX31 | EXCEED 44 CHARACTERS TO ENSURE THE SCRATCH TYPE | | | IATYSYS | IS ALTERED. EXCEEDING 44 CHARACTERS CAUSES SOME| | | | MVS MODULES TO SPLIT THE MOUNT MESSAGE BEFORE | | | | JES3 GETS IT. | |---------+----------+-------------------------------------------------| | MB01019 | IATMOOS | CHANGE DESTINATION IN THE OSE TO 'LOCAL' IF ANY | | | IATOSDO | 'ANYLOCAL' IS SPECIFIED. THIS WILL PREVENT JOBS| | | IATOSMI | FROM PRINTING OUTSIDE THE URE AREA IF THERE WAS | | | IATOSMP | NOT A SPECIFIC DESTINATION, EITHER THROUGH JCL | | | IATOSSC | OR SYSOUT CLASS DEFAULT. ALL URE PRINTERS WAS | | | | BE IN A DGROUP OF LOCAL. | |---------+----------+-------------------------------------------------| | MB01020 | IATISRI | DISALLOWS SWITCH COMMANDS AND *F,O=XXX,A=YYY | | | | COMMANDS FROM BEING READ IN THROUGH A CARD | | | | READER. THIS MOD ELIMINATED A SECURITY LOOPHOLE| | | | IN WHICH A CONSOLE COULD BE GRANTED AUTHORITY | | | | 15 BECAUSE ALL CARD READERS ARE HOT AND CALLED | | | | IN FROM AN AUTHORITY 15 CONSOLE. | |---------+----------+-------------------------------------------------| | MB01021 | IATUX23 | INSERTS 'JOB END' CHARACTERS INTO THE FIRST LINE| | | | OF THE JOB END SEPARATOR PAGE. | |---------+----------+-------------------------------------------------| | MB01022 | IATUX18 | PERFORM CONSOLE COMMAND SECURITY RESTRICTIONS. | | | | THE JES3 INITIALIZATION DECK MUST HAVE THE | | | | AUTHORITY CODED ON THE CONSOLE STATEMENT. | |---------+----------+-------------------------------------------------| | MB01023 | IATUTIS | INCREASE MAXIMUM UNITNAMES TO 1024. | |---------+----------+-------------------------------------------------| | MB01024 | IATIQDS | DISPLAY SYSUNITS AND SETUNITS FLAGS FOR TAPE | | | | DEVICES. | |---------+----------+-------------------------------------------------| | MB01025 | IATUTTT | ALLOW TAPE-TO-TAPE (TT) DSP TO DROP A BLOCK OF | | | | DATA WHEN ENCOUNTERING AN ERROR IN THAT BLOCK. | | | | WHEN AN ERROR IS ENCOUNTERED THE OPERATOR WILL | | | | HAVE A CHOICE OF DROPPING THE BLOCK OF DATA AND | | | | CONTINUING OR CANCELING THE JOB. | | | | ISSUE MESSAGE IATU003. | |---------+----------+-------------------------------------------------| | MB01026 | IATUX19 | PRINT THE JESMSG, JESJCL, AND SYSMSG DATASETS OF| | | | DEMAND SELECT JOBS ONLY IF THEY HAVE JCL ERRORS.| |---------+----------+-------------------------------------------------| | MB01027 | IATUX08 | ALLOW MSS HIGH WATERMARK SETUP ONLY IF THE JOB | | | | USES SIX OR MORE VUAS. IF THE JOB USES SIX OR | | | | MORE VUAS THEN THE MSS HWS BIT AND TAPE HWS BIT | | | | ARE TURNED ON. OTHERWISE, ONLY THE TAPE HWS BIT| | | | IS TURNED ON. | |---------+----------+-------------------------------------------------| | MB01028 | IATOSDR | PRINT A BLOCK OF INFORMATION IN THE JESMSG | | | IATUX19 | DATASET DISPLAYING ALL SYSOUT DDNAMES WITH THE | | | IATYRSQ | FOLLOWING INFORMATION: DESTINATION, FORMS, | | | | NUMBER OF LINES, OUTPUT CLASS AND NUMBER OF | | | | COPIES. | |---------+----------+-------------------------------------------------| | MB 029 | | | |---------+----------+-------------------------------------------------| | MB01030 | IATIQAC | INCLUDE THE INITIATOR CLASS NAME ON THE RESPONSE| | | | TO THE *I,A COMMAND, MSGIAT8524. | |---------+----------+-------------------------------------------------| | MB01031 | IATIICM | ALLOW JES3 TO HONOR STAGING DRIVE GROUP (SDG) | | | | REQUESTS ONLY IF THE PROGRAM NAME IS IDCAMS. | |---------+----------+-------------------------------------------------| | MB01032 | IATIQAC | SUPPORT FOR THE *I,C,S COMMAND TO DISPLAY THE | | | IATIQDV | STATUS OF STAGING AREAS. STATUS DISPLAYED | | | | INCLUDES THE NUMBER CURRENTLY IN USE, THE MOST | | | | EVER IN USE, AND IF STAGING AREA PROCESSING HAS | | | | BEEN SUSPENDED. | | | | ISSUE MESSAGES IATU008, IATU009, IATU010. | |---------+----------+-------------------------------------------------| | MB 033 | | | |---------+----------+-------------------------------------------------| | MB01034 | IATISJB | DO NOT ALLOW 'PRTY=' ON JOB CARD TO EXCEED 7. | |---------+----------+-------------------------------------------------| | MB01035 | IATUTPI | ALLOW SPECIFICATION OF IN=CART OF IN=TAPE ON | | | | THE TAPE-TO-PRINT UTILITY. | |---------+----------+-------------------------------------------------| | MB01036 | IATISLG | ALLOW A TSO USER TO SUBMIT JES3 MODIFY COMMANDS,| | | | AND CANCEL, START, AND RESTART WRITER COMMANDS | | | | IN THE JES3 CONTROL CARD PORTION OF THE JCL FOR | | | | A BATCH JOB. | |---------+----------+-------------------------------------------------| | MB01037 | IATIQGM | SUPPORT FOR THE *I,G,WHO COMMAND TO DISPLAY | | | | THE NAME OF THE GLOBAL SYSTEM. | | | | ISSUE MESSAGE IATU001. | |---------+----------+-------------------------------------------------| | MB01038 | IATUX30 | CHECK AUTHORITY FOR TSO OUTPUT, CANCEL AND | | | | STATUS COMMANDS. | |---------+----------+-------------------------------------------------| | MB01039 | IATIQDS | SUPPORT FOR THE *I,D,D=WRITER,E COMMAND TO | | | IATIQDV | DISPLAY THAT STATUS OF THE JOB ON THAT WRITER IF| | | IATOSWD | THERE IS ONE. THE STATUS INCLUDES THE TOTAL | | | IATYSUP | NUMBER OF LINES SCHEDULED TO THAT WRITER FOR | | | | THE JOB, THE NUMBER OF THOSE LINES PRINTED, AND | | | | THE PERCENTAGE OF COMPLETION. | | | | ISSUE MESSAGES IATU005, IATU006, IATU007. | |---------+----------+-------------------------------------------------| | MB01040 | IATABMN | ALLOW JES3 MANAGED TAPE DEVICES TO NOT BE RESET | | | | AND REWOUND BY MVS ACROSS A JES3 RESTART. THIS | | | | ELIMINATES IMS LOG TAPES REWINDING ACROSS A JES3| | | | HOTSTART. | |---------+----------+-------------------------------------------------| | MB 041 | | | |---------+----------+-------------------------------------------------| | MB01042 | IATCNSL | DELETE THE TIMESTAMP ON ALL CONSOLE MESSAGES TO | | | | 327X TYPE CONSOLES UNLESS IT IS THE HARDCOPY | | | | CONSOLE. |---------+----------+-------------------------------------------------| | MB01043 | IATUTPI | SUPPORT FOR THE CH= PARAMETER ON THE JES3 | | | IATUTPO | UTILITY TAPE-TO-PRINTER (TP) IF THE OUTPUT | | | IATYTPC | DEVICE IS A 3800 PRINTER. | |---------+----------+-------------------------------------------------| | MB 044 | | | |---------+----------+-------------------------------------------------| | MB 045 | | | |---------+----------+-------------------------------------------------| | MB 046 | | | |---------+----------+-------------------------------------------------| | MB01047 | IATINMD | SUPPORT THE *F,S,DV=XXXXX COMMAND TO ALSO | | | IATMDDR | PROCESS A TAPE SETVOL ENTRY. THIS IS USED WHEN | | | IATMDFE | A JES3 UTILITY HAS USED A TAPE ON A TAPE DRIVE | | | IATMDMO | AND IS NOW FINISHED BUT DOES NOT DELETE THE | | | IATMDRS | ENTRY FROM THE SETVOL TABLE, THUS PREVENTING THE| | | IATYVLM | TAPE FROM BEING ALLOCATED BY ANOTHER JOB. | |---------+----------+-------------------------------------------------| | MB01048 | IATMOOS | REQUIRE THE OPERATOR TO SPECIFY A NEW PRINT | | | | CLASS (NCL=) WHEN MOVING A JOB FROM THE OUTPUT | | | | SERVICE HOLD QUEUE TO THE OUTPUT SERVICE WRITER | | | | QUEUE. THE HOLD QUEUE PRINT CLASSES ARE NOT | | | | DEFINED AS PRINT CLASSES, BUT AS HOLD FOR TSO, | | | | THEREFORE THE JOB WILL HAVE NO PRINT CLASS AND | | | | WILL BE PURGED. | | | | ISSUE MESSAGE IATU011. | |---------+----------+-------------------------------------------------| | MB 049 | | | |---------+----------+-------------------------------------------------| | MB01050 | IATIQRJ | ADDITIONAL SUPPORT FOR THE *I,D,T=RJPLINENAME | | | | COMMAND TO DISPLAY THE STATUS OF THE JOB ON THAT| | | | RJE WRITER IF THERE IS ONE. THE STATUS INCLUDES| | | | THE TOTAL NUMBER OF LINES SCHEDULED TO THE RJE | | | | WRITER FOR THE JOB, THE NUMBER OF THOSE LINES | | | | PRINTED, AND THE PERCENTAGE OF COMPLETION. | | | | ISSUE MESSAGE IATU002. | |---------+----------+-------------------------------------------------| | MB01051 | IATUX21 | PRINT A 'COM DATASET HEADER' LINE AT THE TOP OF | | | IATYFCT | THE FIRST SPLASH PAGE FOR USE BY THE ONLINE | | | IATYWTR | MICROFILM PROCESSOR AND A 'DATASET HEADER' LINE | | | | AT THE BOTTOM OF EACH SPLASH PAGE WITH | | | | INFORMATION CONCERNING THE PRINTING OF THE JOB. | |---------+----------+-------------------------------------------------| | MB 052 | | | |---------+----------+-------------------------------------------------| | MB 053 | | | |---------+----------+-------------------------------------------------| | MB01054 | IATUX29 | RESTRICT SYSOUT LINE LIMIT BY JOB CLASS. | | | | (TEST COMPLEX). | | | | CLASS A: 10,000 LINES. | | | | CLASS B: 50,000 LINES. | | | | CLASS G: 100,000 LINES. | | | | CLASS K: 500,000 LINES. | | | | CLASS N: 500,000 LINES. | | | | CLASS Y: 500,000 LINES. | |---------+----------+-------------------------------------------------| | MB01055 | IATUX21 | DELETE HEADER AND BURST PAGES FOR DATASETS TO BE| | | | PRINTED AT RMT03. RMT03 IS USED TO DUMP OUTPUT | | | | TO A TAPE TO BE PRINTED ON THE XEROX PRINTERS. | |---------+----------+-------------------------------------------------| | MB01056 | IATCNIC | ALLOW JES3 INQUIRY COMMANDS, VIA THE 'TJ3' OR | | | IATCNSL | 'TSOJES3' TSO COMMAND, FROM A TSO CONSOLE. THE | | | IATCNSV | HELP MEMBER WILL DISPLAY ANY RESTRICTIONS. | | | IATINC2 | SOURCE MEMBER 'TSOJES3' MUST BE LINKED INTO | | | IATIQCN | SYS1.CMDLIB. | | | IATUX31 | | | | IATYFCT | | | | IATYTVT | | |---------+----------+-------------------------------------------------| | TSOJES3 | TSO CMD | TSO COMMAND FOR ABOVE MOD | |---------+----------+-------------------------------------------------| | TJ3HELP | TSO HELP | TSO HELP MEMBER FOR TSOJES3 | |---------+----------+-------------------------------------------------| | MB01057 | IATCNIN | REPLACE TMS UPDATE PASSWORD WITH ASTERISKS | | | | BEFORE WRITING IT TO MLOG/DLOG. | |---------+----------+-------------------------------------------------| | MB 058 | | | |---------+----------+-------------------------------------------------| | MB 059 | | | |---------+----------+-------------------------------------------------| | MB 060 | | | |---------+----------+-------------------------------------------------| | MB01061 | IATUX29 | SET A JOB'S JCT PRIORITY TO 14 IF IT IS IN THE | | | | PROCESS OF BEING FLUSHED FROM THE SYSTEM. | |---------+----------+-------------------------------------------------| | MB01062 | IATMDVE | ISSUE MESSAGE IATU004 WHEN SETUP IS COMPLETE. | |---------+----------+-------------------------------------------------| | MB01063 | IATMODV | FORCE THE USE OF *F,J=XXXX,CNP COMMAND TO CANCEL| | | IATYPRM | A JOB WITHOUT PRINT. | |---------+----------+-------------------------------------------------| | MB01064 | IATISNT | FOR DJC NETWORKS, CHANGE DEFAULT 'ABCMP=NOKP' TO| | | | 'ABCMP=KEEP'. | |---------+----------+-------------------------------------------------| | MB 065 | | | |---------+----------+-------------------------------------------------| | MB01066 | IATGRWJ | SUPPORT FOR THE *I,J=XXXX,WHO COMMAND TO DISPLAY| | | IATIQDV | WHICH TSO USERID SUBMITTED A JOB, IF IT WAS | | | IATIQQU | SUBMITTED VIA TSO. | | | IATYWTD | ISSUE MESSAGES IATU013, IATU014. | |---------+----------+-------------------------------------------------| | MB 067 | | | |---------+----------+-------------------------------------------------| | MB01068 | IATCNIN | ALLOW THE *DELAY COMMAND TO SPECIFY VALUES UP TO| | | | ONE SECOND TO PREVENT A HIGH ACTIVITY JES3 | | | | CONSOLE FROM BECOMING QUEUED TO DEPTH. | |---------+----------+-------------------------------------------------| | MB 069 | | | |---------+----------+-------------------------------------------------| | MB01070 | IATIQDS | SUPPORT THE *I,D,SYX,DEVTYPE,ATTRIBUTE COMMAND | | | IATIQDV | TO DISPLAY THE JES3 STATUS OF ALL THE REQUESTED | | | IATYFCT | DEVICE TYPE (DEVTYPE) WITH THE SPECIFIED | | | | ATTRIBUTE. THE DEVTYPE CAN BE DASD, TAPE, CON, | | | | OR UR AND THE ATTRIBUTE CAN BE ONLINE OR | | | | OFFLINE. THE DEFAULT IS ALL DEVICES ONLINE AND | | | | OFFLINE. | | | | ISSUE MESSAGES IATU015, IATU016. | |---------+----------+-------------------------------------------------| | MB01071 | IATISLG | ALLOW SPECIFICATION OF D=TAPE OR D=URE ON THE | | | | //*OPERATOR CARD. THIS WILL ALLOW MESSAGES | | | | TO BE SENT TO CONSOLES WITH 'TAP' AND 'UR' | | | | ROUTING. | |---------+----------+-------------------------------------------------| | MB 072 | | | |---------+----------+-------------------------------------------------| | MB01073 | IATOSWD | VARY DEVICES OFFLINE THAT WERE USED AS HOT | | | | WRITERS WHEN THEY ARE CANCELLED. THIS ALLOWS | | | | OPERATORS TO DETERMINE THEIR NEXT USE. | |---------+----------+-------------------------------------------------| | MB 074 | | | |---------+----------+-------------------------------------------------| | MB01075 | IATMODV | FORCE SPECIFICATION OF TSOID FOR SPECIFIC | | | | MODIFY COMMANDS FOR SECURITY. CONSOLE AUTHORITY| | | | LEVEL OF 9 OR GREATER IS REQUIRED. | |---------+----------+-------------------------------------------------| | MB 076 | | | |---------+----------+-------------------------------------------------| | MB 077 | | | |---------+----------+-------------------------------------------------| | MB01078 | IATUX31 | ALLOW JES3 TO CALL IN THE TRSWITCH JOB WHENEVER | | | | MESSAGE ICB085I (MSS TRACE WAS SWITCHED) IS | | | | ISSUED. | |---------+----------+-------------------------------------------------| | MB 079 | | | |---------+----------+-------------------------------------------------| | MB 080 | | | |---------+----------+-------------------------------------------------| | MB 081 | | | |---------+----------+-------------------------------------------------| | MB 082 | | | |---------+----------+-------------------------------------------------| | MB01083 | IATUX37 | ISSUE MESSAGE IATU017 FOR JOBS ENTERING SYSOUT | | | | QUEUE VIA NJE. | |---------+----------+-------------------------------------------------| | MB 084 | | | |---------+----------+-------------------------------------------------| | MB01085 | IATDJCR | SUPPORT THE ROOM= OR RM= KEYWORD ON THE JOBCARD | | MB01085 | IATDJIN | OR FORMAT CARD. ENSURE INFORMATION IS PASSED | | | IATDJOT | VIA NJE. THE HEADER PAGE FORMAT IS: | | | IATISDV | JOBNAME | | | IATISEN | DEV JOBN | | | IATISFR | DDNAME | | | IATISJB | RM XXXXX | | | IATISLG | | | | IATISNJ | | | | IATNTDR | | | | IATNTJS | | | | IATNTRT | | | | IATNTSD | | | | IATNTSF | | | | IATOSDO | | | | IATOSDR | | | | IATOSNJ | | | | IATOSNT | | | | IATUTCB | | | | IATUTDD | | | | IATUTDS | | | | IATUX21 | | | | IATUX39 | | | | IATUX43 | | | | IATYFCT | | | | IATYFRP | | | | IATYISD | | | | IATYJDA | | | | IATYJDS | | | | IATYNDH | | | | IATYNIS | | | | IATYNJH | | | | IATYNWR | | | | IATYOSE | | | | IATYWTR | | |---------+----------+-------------------------------------------------| | MB01086 | IATISJB | LOG JOB ORIGIN INFORMATION. RETAIN THE ORIGINAL| | | IATISNJ | JOB NUMBER AND ORIGINAL NJE HOMENODE IN THE | | | IATNTJS | JDAB. ADD INFORMATION TO HEADER PAGES. | | | IATNTRT | | | | IATNTSF | | | | IATOSNT | | | | IATUX21 | | | | IATYJDA | | | | IATYNIS | | | | IATYNJH | | | | IATYNWR | | | | IATYWTR | | |---------+----------+-------------------------------------------------|
SUBMITTED BY: RICHARD A. MORALES
MOUNTAIN BELL - ROOM 666
5325 ZUNI STREET
DENVER, COLORADO 80221
PHONE 303-458-3136
*---------------------------------------------------------------------* **FILE013 EXXON 3/20/87 * *---------------------------------------------------------------------*
MISCELLANEOUS JES3 MODIFICATIONS FOR JES3 SP 2.1.5 (HJS2215)
XJGRJA0
- USE FOR STARTED TASK ONLY
- SUPPRESS COPY=0 SYSOUT ALLOCATION OF SPOOL TRK GRP
- THIS USERMOD WILL AVIOD BIT-BUCKET SYSOUT TO GET ON SPOOL
AT ALL.
XJINR10
CHANGE RJP PRINTER MAX PRINT LINE SIZE TO 300 CHAR.
XJINTK0
ALLOW JES3 TO START UNDER ANY SUB-SYSTEM NAME.
CO-REQ CHANGES IN IATSSCM
XJIQDS0
SUPPORT *I,D,D FOR REMOTE DEVICES.
XJISMN0
IF ORG IS SPECIFIED ON THE MAIN CARD, THEN ACT LIKE WE
CAME FROM A REMOTE.
MAKE SURE CONSOLE MESSAGES GO BACK TO THE REMOTE.
THE VALUE FROM THE "ORG=" FIELD IS LOOKED UP IN THE
RESIDENT RJP TABLE. THE REMOTE NAME IS THEN LOOKED
UP IN THE CONSOLE STATUS TABLE AND THE CONSOLE
NUMBER IS MOVED TO THE JDAB.
XJMDDR0
REARRANGE ECF CHECKING TO PUT FETCH QUEUE HANDLING AT THE FRONT
XJNTJS0
IF NJE JOB PRTY IN JCT IS ZERO, CHANGE IT TO 3 (DEFAULT).
THIS MOD IS ADDED BECAUSE VM/RSCS SETS SYSOUT PRTY
IN NJE TRAILER TO 0.
XJSI340
CHANGE THE CHECK FOR "8" TO CHECK FOR "$"
WHEN LOOKING FOR RETURN ETC. COMMANDS.
XJSSCM0
ALLOW HOTSTART OF JES3 UNDER ANY SUB-SYSTEM NAME.
CO-REQ USERMOD IN IATINTK
XJUTSM0 (PART OF XJUTSM1 MEMBER)
BYPASS TSO HOLD QUEUE CHECK SO JSM WILL GO FOR ALL SYSOUT CLASS
XJUTSM1
PERFORMANCE MODIFICATION. IT KEEPS THE JMR FROM BEING READ
EACH TIME THE OSS IS EXAMINED, SAVES SMF26OSD VALUE IN THE 1ST
4 BYTES OF RQRSVU, SO IT IS NOT NECESSARY TO REREAD THE JMR.
PREQ(IATYRSQ) USERMOD TO DEFINE THE USER FIELD IN IATYRSQ.
XJUX210
DELETE PRINT DATASET HEADERS FROM JES3.
XJYRSQ0 - DEFINE JSM TIME STAMP FIELD
CO-REQ WITH XJUTSM1
EXXWTJ - THIS USERMOD SUPPORTS A DSP THAT ALLOCATES JESMSG
XJGRPT5 DATASET AND ADD MESSAGES TO IT THROUGH AN OPERATOR
COMMAND. IT CONSISTS OF TWO COMPONENTS, DSP
DICTIONARY UPDATE AND STANDALONE DSP MODULE.
WARNING: THIS DSP ACCESS JOB RQ FOR JESMSG
DATASET ACCESS. IN JES3 SP215, THERE WILL BE JOBS
THAT DOES NOT HAVE RQ ENTRY AND DSP WILL REJECT
COMMAND IF JESMSG CANNOT BE ACCESS.
CONTRIBUTOR:
MARIE CHENG
RM. 1261M
EXXON CO. USA
800 BELL ST.
HOUSTON, TX 77022
*---------------------------------------------------------------------* **FILE014 SOCIAL SECURITY ADMINISTRATION 7/03/86 * *---------------------------------------------------------------------*
THERE ARE TWO JES3 DSP'S IN THIS FILE:
AUTOJES3 IS A JES3 AUTOMATIC COMMAND DSP. MEMBERS MV06028X CONTAIN THE COMPONENTS OF THIS DSP.
SHOWJES3 IS A JES3 DSP AND RELATED TSO INTERFACE COMMAND WHICH ALLOWS A USER TO EXECUTE JES3 COMMANDS FROM A TSO TERMINAL. MEMBERS MV06027X CONTAIN THIS DSP. MEMBER SHOW IS THE TSO INTERFACE COMMAND.
SUBMITTED BY ROGER A. GARDNER
SOCIAL SECURITY ADMINISTRATION
SOFTWARE SUPPORT BRANCH
5-G-7 NCC
6201 SECURITY BOULEVARD
WOODLAWN, MARYLAND 21235
301-594-7681
*---------------------------------------------------------------------* **FILE015 NATIONAL COMPUTER SYSTEMS 7/16/86 * *---------------------------------------------------------------------*
JES3 SPOOL DISPLAY FACILITY ISPF DIALOG (SUPPORTS JES3 1.3.4)
For JES3 SP2.2.1 and above use the SDF in member FILE021.
ORIGINALLY WRITTEN BY JOHN JOHNSON OF NCS AND EXTENSIVLY MODIFIED BY BRUCE ENGLE OF BANK OF AMERICA.
THIS FILE CONTAINS THE FOLLOWING IEBUPDTE FORMAT MEMBERS:
CNTL THIS PDS CONTAINS THE ASSEMBLY/LINK JCL SOURCE THIS PDS CONTAINS THE SOURCE MSGS THIS PDS CONTAINS THE ISPF MESSAGES PANELS THIS PDS CONTAINS THE ISPF PANELS CLISTS THIS PDS CONTAINS THE CLISTS
THE CNTL PDS CONTAINS MEMBERS TO INSTALL THE JES3 1.3.4 VERSION OF THE JES3/ISPF FULL SCREEN TSO SPOOL DISPLAY PROGRAMS.
MOST OF THE PROGRAMS REQUIRE SYS1.JES3MAC AT ASSEMBLY TIME. SDFDSP REQUIRES SYS1.AJES3SRC AS WELL.
IF YOU HAVE MODIFIED IATYDSP YOU SHOULD PUT SYS1.SMPSTS IN FRONT OF SYS1.AJES3SRC, AND IF YOU HAVE MODIFIED JES3 MACROS YOU SHOULD PUT SYS1.SMPMTS IN FRONT OF SYS1.JES3MAC.
SDF IS NOW A COMMAND PROCESSOR AND MAY BE CALLED BY ISSUING THE TSO COMMAND SDF WHILE UNDER ISPF.
THE PROGRAMS MUST BE LINKED INTO THREE LOAD MODULES: SDF
SDFINIT
SDFSSI
BOTH SDFINIT AND SDFSSI MUST BE APF AUTHORIZED. SDFINIT MUST BE LISTED IN THE AUTHORIZED COMMAND TABLE IKJEFTE2. SDFSSI MUST BE LISTED IN THE AUTHORIZED PROGRAM TABLE IKJEFTE8.
SDFINIT ALLOCATES THE JES3 SPOOL DATA SETS TO DDNAME SDFSPOOL AND THEY REMAIN ALLOCATED AFTER COMMAND TERMINATION. SDFINIT IS NOT CALLED IF SDFSPOOL HAS ALREADY BEEN ALLOCATED. SDFINIT DETERMINES THE THE DATA SETS TO ALLOCATE BY SCHEDULING AN SRB TO THE JES3 ADDRESS SPACE TO SEE WHAT IS ALLOCATED AND BY EXAMINING THE JES3 CHECKPOINT DATA SET.
YOU MAY PREALLOCATE THE JES3 DATA SETS YOURSELF BEFORE CALLING SDF. THE DATA SETS MUST BE ALLOCATED TO DDNAME SDFSPOOL, WITH THE JCT DATA SET CONCATENATED FIRST, FOLLOWED BY EACH OF THE SPOOL DATA SETS. SDFINIT IS NOT CALLED IF SDFSPOOL IS ALREADY ALLOCATED.
REFER TO THE MAIN PROGRAM SOURCE FOR ADDITIONAL INFORMATION.
SUBMITTED BY JOHN JOHNSON
NATIONAL COMPUTER SYSTEMS
P.O. BOX 30
IOWA CITY, IOWA 52244
319-339-6719
*---------------------------------------------------------------------* **FILE016 BELL COMMUNICATIONS RESEARCH 11/25/86 * *---------------------------------------------------------------------*
Time Sharing Subsystem Option (TSSO) is a package designed to increase operator productivity by automating tasks which need not be performed manually. TSSO performs its function through two integrated components. The Operator Productivity Facility (OPF) extends the power of TSO to the MVS opera- tor's console, and the Automated Operations Facility (AOF) enhances an installation's ability to control system events based on console message traffic. TSSO also enhances end-user productivity by allowing end-user access to the MVS command subsystem. This document describes the installation of TSSO, TSSO parameters, and the use of the two components.
A guide to the new features of TSSO Version 4, Release 3 is in member RELGDE42 in this dataset.
Anyone with an interest in automated operations is invited to look at TSSO as a software tool providing many of the primitives required for common automated operations tasks. These primitives include highlighting, lowlighting, replying and reacting to operating system messages, in addition to the ability to issue a command and retrieve the response in CLIST variables.
Questions about TSSO may be referred to Marc Schare at (201) 699-2796
*---------------------------------------------------------------------* **FILE017 ROCKWELL INTERNATIONAL 7/29/87 * *---------------------------------------------------------------------*
ROCKWELL INTERNATIONAL JES3 SP 1.3.4 USER MODIFICATIONS
THESE MODIFICATIONS ARE SUBMITTED ON AN ASIS BASIS AND ARE GUARENTEED TO WORK ONLY IN A ROCKWELL ENVIRONMENT. THEY ARE BEING PROVIDED TO THE SHARE JES3 MODIFICATIONS TAPE ONLY TO PROVIDE AN EXAMPLE OF SOME OF THE WAYS THAT JES3 CAN BE ENHANCED.
AS WITH ALL SHAREWARE, USE THESE MODIFICATIONS AT YOUR OWN RISK.
NOTE: ALL MODIFICATIONS ARE IN SMP INSTALL FORMAT AND HAVE BEEN
SUCCESSFULLY INSTALLED AND TESTED ON JES3 1.3.4 (HJS2329)
AT PUT LEVEL 8603.
SUBMITTED BY: LIONEL B. DYCK
ROCKWELL INTERNATIONAL
M/S 110-SH28
2201 SEAL BEACH BLVD.
P.O. BOX 2515
SEAL BEACH, CA 90740
213-594-1125
BLKSPLCP TSO Command that uses the Block Spooler Interface
DAHJCL JCL USED TO CREATE A JES3 DATA AREA HANDBOOK
DAHMACS BAL MACROS USED BY DAHANDBK DURING ASSEMBLY
DAHANDBK BAL SOURCE FOR DAHANDBK PROGRAM
JES3MAC ASSEMBLER SOURCE USED BY DAHANDBK
SA005A0 SUPRESS PRINTING OF JESMSG/JESJCL DATASET HEADERS.
SA007A0 DC - WHERE OPTION.
SA011A0 CHANGE LOGIC IN LOCATE TO ELIMINATE STEPLIB SEARCH.
SA026A0 CHAIN FCT'S BY JOB PRIORITY WITHIN DSP PRIORITY.
SA027A0 ENHANCE DC WITH M=H, M=E, M=B.
SA028A0 JES3 DUMP FORMATTING ENHANCEMENT
SA038A0 ALLOW DYNAL STAGING AREAS TO FIT INTO STANDARD SIZE.
SA039A0 FORCE DELETE OF MODULE. *F X,M=MODULE,DELETE=F
SA043A0 FORMAT JOB NJE CONTROL BLOCKS DC
SA044A0 GENERIC I U
SA050A0 SHOW ACTIVE MAIN ON I,Q AND I,J
SA051A0 SUPPRESS OUTSERV FOR DEMAND SEL
SA053A0 BYPASS STEPLIB SEARCHES (C/I)
SA054A0 CHANGE ANYLOCAL TO LOCAL
SA055A0 SET SU BITS 812, 818 AND 826
SA056A0 ADD LINE COUNT TO SSOB FOR RMDS
SA057A0 UPDATE UX42 FOR TSO/E XMIT/RECV
SA061A0 NEW NJE COMMANDS
SA069A0 ELIMINATE LINK OVERHEAD FOR MODULE IEFAB4UV.
SA072A0 CHANGE N=10 TO N=1 AS DEFAULT FOR *F U,...
SA073A0 WRITER SELECTION BY JOB PRTY AND OF OSE PRTY.
SA074A0 OUTPUT REPORT ON TRAILER PAGE.
SA078A0 SUPPRESS SUCCESSFUL LOCATE RESPONSE MSGS
SA080A0 CHANGE AGETMAIN TO AGETBUF (UX21)
SA083A0 ALLOW T NODE FROM RJP TERM
SA084A0 NOTIFY TSO USER DEPENDING WHERE HE IS LOGGED ON IF SWITCHED
TO DUMMY
SA087A0 VPS SUPPORT IN UX19
SA096A0 ALLOW JES3 TO START AS JESX AND TO RESTART AS JESX OR JES3.
SA116A0 INHIBIT IAT7530
SA117A0 INHIBIT VERIFY RESPONSE MSGS
SA118A0 SUPPRESS IAT7576 TO RJP TERM
SA120A0 COMMON CALLABLE MODULE IN LPA TO TEST STATUS OF JES3.
SA123A0 JSM ENHANCEMENTS
SA130A0 INQUIRY FOR JOB'S VOLUMES.
SA134A0 CLEAR FUNCTION FOR MDS.
SA135A0 USE ACTION QUE FOR MDS SETUP MSGS
SA137A0 SEND MESSAGE INTO A JOBS JESMSG, AND BROADCAST MVS COMMANDS.
SA140A0 DJST push down stack to reduce overhead for IMS dynamic allo
SA154A0 FORCE TSO HELD DATASETS TO REMAIN ON EXECUTION NODE INSTEAD
OF BEING TRANSMITTED VIA NJE. (MAKE WORK LIKE 1.3.1 WORKED)
*---------------------------------------------------------------------* **FILE018 DUPONT 8/09/86 * *---------------------------------------------------------------------*
THIS FILE CONTAINS THE DUPONT JES3 LOCAL MODIFICATION WHICH PRINTS MVS MOUNT MESSAGES IN RESPONSE TO AN *I R S COMMAND.
SUBMITTED BY: JILL K. CARROL
MVS/JES3 SUPPORT
E. I. DUPONT DE NEMOURS & CO., INC.
CORPORATE DATA CENTER, RM 2059
MILFORD CROSSROADS
NEWARK, DE 19711
*---------------------------------------------------------------------* **FILE019 GENERAL MOTORS RESEARCH 8/06/86 * *---------------------------------------------------------------------*
THIS FILE CONTAINS A COPY OF THE GMR MODIFICATION THAT PROVIDES AN ENHANCED TSO JOB STATUS COMMAND.
*---------------------------------------------------------------------* **FILE020 PACIFIC NORTHWEST BELL 10/01/86 * *---------------------------------------------------------------------*
THIS FILE CONTAINS A COPY OF THE PNB JES3 DSP THAT MONITORS JES3 CONSOLE ACTIVITY AND IF IT FINDS A CONSOLE QUEUED TO DEPTH IT ISSUES A COMMAND TO SWITCH IT TO MLOG.
*---------------------------------------------------------------------* **FILE021 BANK OF AMERICA 09 Jan 89 * *---------------------------------------------------------------------*
************************************************************************ * SDF/XA: JES3 SPOOL DISPLAY FACILITY * ************************************************************************
This version of the JES3 Spool Display Facility runs under MVS/XA only and requires all of the following:
- MVS/SP 2.1.2 or higher - JES3 1.3.4 or higher - ISPF 2.1.2 or higher - TSO/E 2.0 or higher
The CNTL pds contains members to install the JES3 spool display facility. The $ASM member will assemble all of the programs with a single job. The $LINK member will link all of the load modules with a single job.
Documentation is included in the PDS. *----------------------------------------------------------------------* **FILE022 - JOHN DEERE MODIFICATIONS 1/7/85 * *----------------------------------------------------------------------* CONTENTS: MESSAGE ROUTING AND 7 COLOR JES3 CONSOLE SUPPORT
CONTRIBUTOR:
T. E. OSENBERG
COMPUTER OPERATIONS
JOHN DEERE & COMPANY
JOHN DEERE ROAD
MOLINE, ILL. 61265
PHONE (309-752-5758)
*----------------------------------------------------------------------*
**FILE023 - TACO BELL 11/06/86 *
*----------------------------------------------------------------------*
CONTENTS:
IATUX18 - CHECK CONSOLE AUTHORITY AND ENFORCE
PASSWORD TO USE CONSOLE
IATUX20 - PLACE CMS OR TSO USERID ON HEADER PAGE
IATUX23 - ROUTE CLASS V TO 001 FOR CMS USERS
CONTRIBUTOR:
WENDELL SIMMONS
TACO BELL CORP.
16808 ARMSTRONG AVE
IRVINE, CA 92714
714-863-4500
*----------------------------------------------------------------------* **FILE024 - CHUBB AND SON, INC. 21 Mar 88 * *----------------------------------------------------------------------* CONTENTS:
THIS PDS CONTAINS SEVERAL CHUBB & SON, INC. JES3 MODS. THEY ARE ALL IN SMPE FORMAT. HERE IS A LIST OF THE MODS AND THEIR VARIOUS COMPONENTS:
1. FLASH JOBNAME ON 3480 DISPLAYS FOR TAPE MOUNTS.
THIS MOD UPDATES IATLVVR, AND IS CONTAINED IN MEMBER
CH10216 AND CH10217.
2. ENHANCEMENT TO THE INQUIRE BACKLOG (I B) COMMAND TO SHOW
BACKLOG BY JOB CLASS. THIS MOD UPDATES IATIQBK, AND IS
CONTAINED IN MEMBER CH10093.
3. SUPRESS PRINT OF JESMSG, SYSMSG, AND JESJCL FOR TSO & STC
JOBS UNLESS THERE IS A JCL ERROR. THIS MOD UPDATES IATUX19
AND IS CONTAINED IN MEMBER CH10110.
4. FORCE PROPER PROCLIB BASED ON JOB DESCRIPTOR CLASS. THIS
MOD HAS THE SAME EFFECT AS PLACING A //*MAIN PROCID=XX
CARD IN THE JOB'S JCL. WHILE THIS CODE IS CHUBB SPECIFIC
(IN THAT IT USES CHUBB JDC'S AND PROCLIBS), IT WILL SHOW
YOU HOW IT CAN BE DONE. ALSO INCLUDED IN THIS MOD IS CODE
THAT CAUSES JES3 TO IGNORE ANY VALUE EXCEPT 0 THAT IS CODED
IN THE PRTY PARAMETER OF THE JOB CARD (WHICH FORCES USE OF THE
DEFAULTS IN THE JES3 INISH DECK). THIS MOD UPDATES IATISJB AND
IS CONTAINED IN MEMBER CH10140.
5. SYSOUT DATASET DIRECTORY FOR BATCH JOBS. THIS GROUP OF MODS
PUTS A DIRECTORY OF THE SYSOUT DATASETS CREATED BY A JOB INTO THE
JOB'S JESMGS DATASET. THE DIRECTORY SHOWS A DATASET'S DDNAME,
DESTINATION, FORMS, CARRAIGE, LINES, COPIES, AND SYSOUT CLASS.
IN ALSO SHOWS A "LOCATION" FIELD FOR EACH DATASET., WHICH IS
PART OF ANOTHER CHUBB MODIFICATION. AS A RESULT, YOU WILL HAVE
TO REMOVE THE CODE FOR "LOCATION" TO USE THIS IN YOUR
INSTALLATION. HERE IS A LIST OF THE MEMBERS AND THE MODULES
THAT THEY HIT:
MEMBER MODULE/MACRO
------- ------------
CH10111 IATUX19
CH10130 CREATES MACRO
CH10131 IATOSDR
CH10132 CREATES MACRO
CH10133 CREATES LOAD MODULE
CH10134 MODIFIES MACRO IATYRSQ
6. ENHANCEMENT TO THE INQUIRE ACTIVE (I A) COMMAND.
THIS MOD ALLOWS YOU TO QUALIFY YOUR INQUIRE BY JOB CLASS
OR JOB GROUP. IT ALSO SHOWS THE JOB CLASS FOR EACH JOB
IN THE RESPONSE. THIS MOD IS CONTAINED IN MEMBERS CH10121
AND CH10092, AND UPDATES MODULE IATIQAC.
THIS TAPE CONTRIBUTED BY:
BRUCE WATTS
SYSTEMS PROGRAMMING
CHUBB & SON, INC.
P.O. BOX 1615
WARREN, NJ 07061-1615
TELEPHONE - (908) 580-3166
*----------------------------------------------------------------------* **FILE025 - C.E.G.B. Computing Centre, London 15 March 1989 * *----------------------------------------------------------------------* CONTENTS:
CEGB MODS TO JES3 1.3.4 - HJS2329 - MAINT LVL 8603+ - SUMMARY (MAR 89)
MOD# BRIEF DESCRIPTION
001 IMPROVED SEPARATOR PAGES (ROOM NO, OUTPUT CLASS, PRINTER NAME,
FORMS, LINE COUNT, PRINT DATE/TIME, NJE NODE)
002 COSTCODE CHECKING (USING A JESNEWS FILE); SUPPRESS JCL OUTPUT BY
MSGCLASS=Z FOR STARTED TASKS & TSO LOGONS.
003 SER= PARAMETER IN TT; SER & DENO MANDATORY
004 //*LIBRARYVOL (INFO FOR OPERATORS ON TEMP TAPES), & 'R' IN
FETCH MSGS (FOR 'RING')
005 INTERCEPT & REPLY TO FILE PROTECT MSGS FOR TAPE I/O (FORTRAN)
006 PUT DEFAULT JOB CPU TIME INTO MVS CONTROL BLOCKS, & ADJUST CPU
TIME ESTIMATE ACCORDING TO SPEED OF PROCESSOR WHERE JOB RUNS.
007 TIME PARAMETER ON JOB CARD. I J=XX,E INQUIRY GIVES TIME ESTIMATE.
008 AUTOMATIC HOLD ON JOB CHARACTERISTICS (LINES, REGION, TIME EST.)
009 FILES=ALL FACILITY IN TT.
010 OVERRIDE LINES/CARDS DEFAULT OF 10000/0 FOR STARTED TASKS.
011 COPIES OUTER JOBNAME TO INNER JOB OF NJE IF NO NAME SPECIFIED
012 PRINT JESNEWS AT BEGINNING NOT END OF JOB (AFTER JOB HEADER).
013 SUPRESS SURPLUS SUBGENERIC SPLIT MESSAGES.
014 EDIT INISH DECK TO SELECT CORRECT TRACK CARDS FOR SPOOL
(ALSO BADTRACK & P=ADDCARD SUPPORT).
015 MESSAGE SENT WHEN EMPTY JOB TRIES TO CROSS NJE.
016 ALLOW REMOTE (RJP) OPERATORS TO CONTROL DEVICES AT OTHER STATIONS
017 CHANGE DEFAULT CHECKPOINT VALUE FOR PUNCH DEVICES.
018 PROVIDE NEW J OPTION IN '*I,S,V=VOL,J' INQUIRY.
019 ADD CHARS & FCB INFO TO MSG IAT7032 (SETPRT INVOKED..).
020 ENSURE COPIES=2 FOR SYSOUT CLASS L.
021 FORMS=CHEQUE.. ENSURES NO JESNEWS PRINTED (FOR COURTENAY PTR).
022 ASSIGN JOB CLASS FROM PRTY BY A LOOKUP TABLE.
023 '*I J=XX,LV OR TP'; LIBRARYVOL OR TAPE SETUP INFO.
024 ADD V OPTION FOR VOLUMES ONLY IN '*I S U' INQUIRY.
025 RESTRICT DATASET PRTY TO <= 200.
026 MODIFY OSE FOR HELD OUTPUT TO SUPPORT QUEUE CLEANUP (ADD 'DAY
OF WEEK' FIELD WHICH IS USED TO SELECT O/P FOR DELETION).
028 CHANGE TIMEOUT LIMIT AND ERROR MSG FOR DIALLED RJP LINES.
029 ENFORCE RESTRICTIONS ON USE OF PRIORITY 6 (DEP. ON TIME EST.).
030 LET NJE INQUIRY USE T= TO GET INFORMATION ON OTHER RELATED NODES.
031 RESTRICT OUTPUT FROM '*I O' TO NON-RJP CONSOLES (OR '*I O R' FOR
RJP CONSOLES)
032 CANCEL JOB IN SETUP IF IT REQUIRES VOLUME 'EXPORT' OR 'CRASH'.
035 JOB JCL STMT COUNT - WARNING IF TOO LARGE.
036 FAIL JOB IN SETUP IF IT USES 'UNIT=CTC..'.
037 ALLOW VSPC USER TO SPECIFY HIS OWN JOB NAMES (FOR NJE & DJC).
039 MODIFY SYSOUT CLASS ON RECEIPT BY NJE (CONVERT CLASSES 0-9 TO
Q-Z); OTHERWISE TAKE DATA FROM LOCAL SYSOUT CLASS TABLE.
040 ENSURE ROOM NUMBER IS PASSED ACROSS NJE; SPECIAL TREATMENT FOR
AERE (HARWELL).
041 INQUIRY ON NO. OF JCL STMTS FOR JOB.
044 ALLOW NJE JOBS TO BE SUBMITTED TO HOMENODE (ALSO TSO NOTIFY).
045 TRANSMIT ACROSS NJE AND RE-USE OUTER JOB NAME AND PRIORITY.
048 INSERT LETTER IN MSGS TO INDICATE JSAM BUFFER USAGE.
049 MAKE DEFAULT CLASS FOR //*DATASET = CLASS A.
050 MAKE *F U,.... HAVE DEFAULT NEW CLASS OF A,I.E. DEFAULT NCL=A.
051 PARTIAL RELEASE OF PRTY LEVEL (N JOBS AT A TIME).
052 AUTO REPLY TO ARC.. MSGS FROM HSM WITH XA FOR DISP=(OLD,DELETE).
053 CHANGE N JOBS FROM ONE PRTY TO ANOTHER.
054 ALLOW CTC=YES/NO FOR NJELINE - OVERRIDES NJERMT SPEC.
055 ALLOW '*I P=XX,N=?' TO GIVE COUNT OF JOBS IN PRTY LEVEL; ALSO
'N=?' ALLOWED IN '*I Q' INQUIRIES.
057 AUTO CHANGE JOBS WITH MANY JCL STMTS TO HELD PRIORITY LEVELS.
058 MODIFY/ADD NJE SMF RECORDS (NEW ONE ON RECEIPT OF JOB/DATA OVER
NJE).
059 PASS 8 CHAR ROOM NUMBER, LINE & PAGE COUNTS, FCB'S, CHAR SETS,
FORMS, FORMDEF, PAGEDEF, NJE NODE, TO WTR FSS (PSF), & RESTRICT
O/P WITH NEW FCB'S OR CHARS TO FSS MODE
060 ADD JOB CLASS TO MSGS IAT2000 & IAT6101.
061 DEFINE USER FIELDS FOR TRANSLATION BY DJMS (1.3.1 -> 1.3.4).
062 CODE TO DISPLAY COUNT OF JOB NUMBERS IN USE.
063 '*I U,..,N=?' INQUIRY (HOW MANY JOBS ON O/P QUEUE WITH SPECIFIED
CHARACTERISTICS).
064 ALLOW FOR NON-ADJUSTED CPU TIME > 1440 MINS (CF. MOD 006).
066 ARTEMIS 2-LEVEL DEST SUPPORT (DELETE XWTR FIELD IN NETWORK
DATASET HEADER FOR CLASS Q O/P).
067 ALLOW HELD OUTPUT TO BE VIEWED AT PLYM (SET 'HELD' FLAG IN
NETWORK DATASET HEADER).
068 TEMP FIX FOR ERROR IN OY17095 (SFR1027).
MOD# MODULES AFFECTED
001 IATOSWP,IATUX20,IATUX21,IATUX23
002 IATGRAN,IATUX28
003 IATUTTT
004 IATISFR,IATISLG,IATMDFE
005 IATCNSV,IATSIWO
006 IATUX26
007 IATGRWJ,IATISJB
008 IATINCD,IATINCH,IATINIC,IATUX09,IATUX10
009 IATUTTT
010 IATUX29
011 IATISNJ
012 IATUX20,IATUX23
013 IATINMD
014 IATINGS,IATUX15
015 IATOSNJ
016 IATUX18
017 IATINGN,IATINR2
018 IATMDIQ
019 IATOSPS
020 IATUX19
021 IATUX20
022 IATISDV,IATISEN,IATISJB,IATISMN
023 IATGRWJ,IATIQDV,IATIQQU,IATLIBV(CEGB-NEW),IATYWTD
024 IATMDIQ
025 IATISFR
026 IATIQOS,IATMOOS,IATOSDO,IATOSDR,IATUX19
028 IATRJM1
029 IATINCD,IATINCH,IATINIC,IATISEN,IATMDFE,IATUX09,IATUX10
030 IATCNNJ,IATUX35
031 IATIQCN
032 IATMDFE
035 IATIICC,IATIISB,IATYIDD
036 IATUX06,IATUX10
037 IATISJL
039 IATUX19,IATUX38,IATUX39
040 IATISJB,IATISNJ,IATNTJS,IATUX28
041 IATGRWJ,IATIQDV,IATIQQU,IATUX09,IATYWTD
044 IATYISD,IATISJB,IATISLG
045 IATMOOS,IATNTJS,IATOSDO,IATOSNT,IATUX38,IATUX39,IATUX40
048 IATCNMR
049 IATISEN
050 IATMOOS
051 IATGRJS,IATINIC,IATMODV,IATMOHR
052 IATCNSV,IATSIWO
053 IATINIC,IATMODV,IATMOHR
054 IATINCF,IATNTDR
055 IATGRWJ,IATIQDV,IATIQQU
057 IATIIFC,IATIIFR,IATIIFS,IATIIPN,IATIISB,IATUX09,IATUX10
058 IATNTDR,IATNTJS,IATNTSD
059 IAZJSPA(AMODGEN),IATDMBS,IATFCMS,IATFPGD,IATFPGF,IATFPRA,
IATFPSB,IATOSFD,IATOSFG,IATOSFI,IATOSFP,IATOSFT,IATOSWC,IATOSWS,
IATUX19,IATUX45
060 IATISEN,IATMSMS
061 IATDJCR
062 IATGRJN,IATINIC,IATINJQ,IATISEN,IATPURG,IATYPUR
063 IATIQOS
064 IATIICM,IATIIDR,IATISJB,IATUX28
066 IATUX37
067 IATUX39
068 IATOSFI
THIS TAPE CONTRIBUTED BY:
A. J. Davey
Room 116,
C.E.G.B. Computing Centre
85 Park St.
London,
SE1 9DY
England
*----------------------------------------------------------------------* **FILE026 - State Farm Insurance Company 03/25/87 * *----------------------------------------------------------------------* CONTENTS:
Usermod to IATUX26 to assign a job cpu time limit for test job classe (R,S,U and B). The time limit assigned is based on the job class and the cpu model the job is executing on. This way the job gets an equivalent amount of cpu time no matter where it runs.
submitted by: Randy Schafer
State Farm Insurance
Mail Code SC3
One State Farm Plaza
Bloomington, Ill 61710
*----------------------------------------------------------------------* **FILE027 - Swissair 03/25/87 * *----------------------------------------------------------------------* CONTENTS:
MEMBER DESCRIPTION
MOD1 ADD SYSTEM NAME INTO MSG IAT8674 IF JOB IS ON MAIN
MOD2 DISABLE 'SUBGENERIC SPLIT' MESSAGES
MOD3 IDENTIFY JES3-GLOBAL IN MSG IAT8524 AND IAT5638
MOD4 IGNORE PRTY ON JOBCARD
MOD5 PREVENT PRTY 0 FROM BEING RELEASED ('F Q,R'-COMMAND)
MOD6 REPLACE CONSOLE-CHARACTER TRANSLATION TABLE
MOD7 DON'T ROUTE NCCF, AND IMS WTLS TO GLOBAL
MOD8 DISABLE MVS-VARIES FOR DASD
MOD9 SET 'LINES EXCEEDED' MESSAGE INCREMENT -> 30000
Submitted by: Andy Gillieron
Swissair
Attn: FAA-ZRH
Department CRSIM
JFK Airport, Hanger 15
Jamica, NY 11430
*----------------------------------------------------------------------* **FILE028 - National Computer Systems 11/10/87 * *----------------------------------------------------------------------* CONTENTS:
JES3 and PSF user exits
SUBMITTED BY JOHN JOHNSON
NATIONAL COMPUTER SYSTEMS
P.O. BOX 30
IOWA CITY, IOWA 52244
319-339-6719
*----------------------------------------------------------------------* **FILE029 - Social Security Administration 25 Jan 88 * *----------------------------------------------------------------------* CONTENTS:
TIMESYNC DSP. The TIMESYNC DSP is used to sybchronize the
date and time of all CPUs in a JES3 complex and all NJE
nodes.
SUBMITTER: Larre N Schiller
Social Security Administration,
6201 Security Boulevard,
Software Support Branch, 5G7 NCC,
Woodlawn, Maryland, 21235.
(301) 965-2209
*----------------------------------------------------------------------* **FILE030 - Exxon Co. USA 11 Mar 88 * *----------------------------------------------------------------------* CONTENTS:
IATUX15 to support INISH deck stored in sections in a PDS
rather than in one potentially very large member.
Mod to SNA/NJE to reduce the number of files transmitted.
SUBMITTER: Marie Cheng
Exxon Co. USA
800 Bell St.
Houston, Texas 77002
*----------------------------------------------------------------------* **FILE031 - Chubb & Son Inc. 21 Mar 88 * *----------------------------------------------------------------------* CONTENTS:
A modification to suppress dumps for DM656-10 abends on
3800-3 printers (FSS).
SUBMITTER: Bruce Watts
Chubb & Son Inc.
15 Mountain View Road
Warren, New Jersey 07061.
(908) 580-3166
*----------------------------------------------------------------------* **FILE032 - COMMAND 01 May 88 * *----------------------------------------------------------------------* CONTENTS: A command to issue MVS or JES3 commands from TSO.
SUBMITTER: R. S. White,
Data Networks PLC.,
51-53 Hagley Rd,
Edgbaston, Birmingham,
U.K. B16 8TP
(021) 455-5247
*----------------------------------------------------------------------*
**FILE033 - SHORTHAND REPLY SUBSYSTEM 30 Sep 88 *
*----------------------------------------------------------------------*
CONTENTS: A subsystem to allow abbreviated command responses from
an MVS console.
SUBMITTER: Alan C Field,
Wetterau, Inc.,
345 Dunn Road,
Florissant, Missouri, 63031-7995.
(314) 839-9440
*----------------------------------------------------------------------*
**FILE034 - JES3/CMS OUTPUT SPOOLONG 12 Jan 90 *
*----------------------------------------------------------------------*
CONTENTS: A set of exits to enable the retrieval of output from the
JES3 spool and return to a CMS user without using NJE.
Updated to HJS3312 version.
SUBMITTER: Alan C Field,
Wetterau, Inc.,
345 Dunn Road,
Florissant, Missouri, 63031-7995.
(314) 839-7040
*----------------------------------------------------------------------*
**FILE035 - IATSSI34 05 Jun 90 *
*----------------------------------------------------------------------*
CONTENTS: A mod to IATSI34 to allow shorthand replies for ids
starting with 8.
SUBMITTER: James G Dunn,
Angelica Uniform Group,
P.O. Bok 466,
St. Louis, Missouri, 63166-0466.
*----------------------------------------------------------------------*
**FILE036 - *I D,D=nnn Enhancement 29 Jun 90 *
*----------------------------------------------------------------------*
CONTENTS: An update to the Mountain Bell modification MB01039
to display % complete on writer. This version for
HJS3313.
SUBMITTER: Alan C Field,
Wetterau, Inc.,
345 Dunn Road,
Florissant, Missouri, 63031-7995.
(314) 839-7040
*----------------------------------------------------------------------* **FILE037 - SEPARATOR ENHANCEMENTS 05 Jul 90 * *----------------------------------------------------------------------* CONTENTS: Routines to customize the output separator pages.
SUBMITTER: Don Lant,
Nebraska Public Power District,
P.O. Box 499,
Columbus, Ne, 68601-0499.
(402) 564-8561
*----------------------------------------------------------------------* **FILE038 - SOURCE MAINTENANCE 24 Nov 91 * *----------------------------------------------------------------------* CONTENTS: These files contains the Rockwell Source Maintenance ISPF Dialog. It has been extracted from a more extensive ISPF environment for systems programmers to allow distibution. Every effort has been made to remove local dependencies, although some still exist (e.g. the SHOW program called by several modules which references user information in ACF2 records).
Use this dialog at your own risk. The author will attempt to provide assistance (time permitting) for problems encountered.
File Description
CLIST Clist and Rexx procedure library
LOAD Load library (be careful with this)
MACLIB All user macros
PANELS ISPF panels
SKELS ISPF skeletons
SOURCE Source for load
TEXT DCF/BookMaster Script text
(has not been updated in several years and just recently
converted from a 1977 version of Waterloo Script into
DCF and BookMaster tags - some formatting still remains).
The above files were generated by using the TSO Transmit command to send the respective partitioned data sets to a sequential file. To use these files issue the TSO RECEIVE command:
RECEIVE INDA(xxxxx.xxx(member))
Anyone is welcome to clean this dialog up to make it a fully self-contained distribution.
Author: Lionel Dyck
Rockwell International
m/c 110-SE28
2201 Seal Beach Blvd.
Seal Beach, Calif 90740
710-797-1125
IBMLink: ROK2027
IBM Mail Exchange: USROKNTN
*----------------------------------------------------------------------* **FILE039 - LASTJES3 18 Feb 92 * *----------------------------------------------------------------------* CONTENTS: This member contains the source for a TSO command to tell the date, time and type of the last JES3 start.
SUBMITTER: Alan C Field,
Wetterau, Inc.,
345 Dunn Road,
Florissant, Missouri, 63031-7995.
(314) 839-7040
*----------------------------------------------------------------------* **FILE040 - THWS Analysis 21 Feb 92 * *----------------------------------------------------------------------* CONTENTS: A set of three files. The first two are SMF#30T and SMF#30U, which are assembler source code. The third file, which is SMF#30TX, contains JCL to run a batch job to execute the above programs to crunch the necessary data and produce a report of which batch jobs "waste" the most minutes of tape drive time due to JES3 High Watermark Setup.
Author: Bill McCoy
Chubb & Son, Inc.
(908) 580-2941
Submitted by: Bruce Watts
Chubb & Son, Inc.
Systems Programming
15 Mountain View Rd.
Warren, NJ 07059
(908) 580-3166
IBMLink ID - HONE81(AACU543)
SHARE ID's -
TAO - Bruce.Watts
PROFS - BWATTS
Contact - OBW
*----------------------------------------------------------------------*
**FILE041 - Program Licence Enforcement 18 Aug 92 *
*----------------------------------------------------------------------*
CONTENTS:
This modification to JES3 is intended to direct batch jobs to
a system that is licensed for all of the programs that are
found on EXEC statements in a job's JCL. It is designed around
the Chubb production environment (a four processor complex, with
the systems named A1, A2, A3, and A4), but can be adapted to
other installations if anyone is so inclined.
Submitted by: Bruce Watts
Chubb & Son, Inc.
Systems Programming
15 Mountain View Rd.
Warren, NJ 07059
(908) 580-3166
IBMLink ID - HONE81(AACU543)
SHARE ID's -
TAO - Bruce.Watts
PROFS - BWATTS
Contact - OBW
*----------------------------------------------------------------------*
**FILE042 - IATNTNR Mod 05 Jul 95 *
*----------------------------------------------------------------------*
CONTENTS:
This modification facilitates the submitter's shop to influence
the job names coming to their node via SNA/NJE. In their case, any
AS/400 job coming into the site have jobnames AS400001 which are
changed based on a table.
Submitted by: Stan Majowski
ISM - Information Systems Management Corp
400 Ellice Av
Winnipeg MB, R3B 3M3
*----------------------------------------------------------------------*
**FILE043 - SDF for JES3 5.1 29 Aug 95 *
*----------------------------------------------------------------------*
CONTENTS:
This member contains SDF code for an MVS 5.x/JES3 5.1 system.
Submitted by: James R. Mathewson
Telephone - 919/254-1285
*----------------------------------------------------------------------*
**FILE044 - SDF for JES3 5.2 and above 17 Dec 1998 *
*----------------------------------------------------------------------*
CONTENTS:
This member contains SDF code for an MVS 5.x/JES3 5.2 system up
to an OS/390 2.6 system.
In order to correctly assemble this code, the PTF for APAR OW30849
must be applied.
SDF will work before, and will work after the IATUJCT utility has
been run.
NOTE: Look at FILE045 and FILE046, you might find them useful
during the install of SDF.
*----------------------------------------------------------------------*
**FILE045 - JCL to extract SDF from FILE044 17 Jan 1999 *
*----------------------------------------------------------------------*
CONTENTS:
This member contains a jobstream to extract the datasets for SDF
source datasets from member FILE044.
After editing the above JCL and running, you need only modify the
ASM and LINK members of the CNTL dataset to install SDF.
*----------------------------------------------------------------------*
**FILE046 - JES3JCT 17 Jan 1999 *
*----------------------------------------------------------------------*
CONTENTS:
This member contains a little program which can be used to
determine whether the JCT has been expanded.
*----------------------------------------------------------------------*
**FILE047 - SDF for JES3 5.2 and above 11 Apr 2000 *
*----------------------------------------------------------------------*
CONTENTS:
This member contains SDF code for an MVS 5.x/JES3 5.1 system with
updates provided by Steve O'Neal from Phillips Petroleum Company.
Here are Steve's notes on the changes:
All the changes have the eyecatcher "PPCO" in them.
SDFBROWS - fix for quoted fields used in searches.
SDFCOPY - fix for IEF375I/IEF376I messages not displayed
when using the "L" option for a job under option "J".
This started after MVS ESA 5.1.
SDFDRVR - Support for the DSP under SDF.
SDFTASK - Support for the DSP under SDF.
SDFTIME - Y2K fix.
Steve O'Neal
Phillips Petroleum Company
918-661-1770
sdoneal@ppco.com
*----------------------------------------------------------------------*
**FILE048 - Procedure to move JES3 SPOOL 27 Jun 2000 *
*----------------------------------------------------------------------*
CONTENTS:
This member contains documentation and JCL to show how to move JES3
SPOOL volumes using DFsms/DSS.
*----------------------------------------------------------------------*
**FILE049 - GUIDE JES3 Tuning Document 27 Jun 2000 *
*----------------------------------------------------------------------*
CONTENTS:
This member contains the XMITed PDS of the GUIDE JES3 tuning
document in printer format. This was formerly the second file
on the tape.
*----------------------------------------------------------------------*
**FILE050 - GUIDE JES3 Tuning Document (SCRIPT) 27 Jun 2000 *
*----------------------------------------------------------------------*
CONTENTS:
This member contains the SCRIPT source of the GUIDE JES3
tuning document. This was formerly the third file on the tape.
************************** END OF TAPE *********************************
//LOAD EXEC PGM=IEBCOPY //SYSPRINT DD SYSOUT=* //SYSUT1 DD DSN=JES3.MODS,DISP=OLD,LABEL=(1,SL,EXPDT=98000), // UNIT=3480,VOL=(,RETAIN,SER=JES081) //SYSUT2 DD DSN=highlvl.MODS.DATA, // DISP=(,CATLG),UNIT=3390, // SPACE=(CYL,(60,1,10),RLSE), // DCB=(RECFM=FB,LRECL=80,BLKSIZE=0,DSORG=PO) //SYSUT3 DD SPACE=(TRK,(10,1),RLSE),UNIT=SYSDA //SYSUT4 DD SPACE=(TRK,(10,1),RLSE),UNIT=SYSDA //SYSIN DD * COPY O=SYSUT2,I=((SYSUT1,R))