CBT Tape Home Page

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

Contact Us

Buy Gear

cbt-tape on
Yahoo Groups

*---------------------------------------------------------------------*
*    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))
 

Copyright © 2000,2002 cbttape.org   All rights reserved.
All trademarks are properties of their respective owners.