//MVSMODS1 JOB 527TEC000S0003,TEC,CLASS=8,MSGCLASS=5,PRTY=10,           DOC FILE
// REGION=512K,PERFORM=12,TYPRUN=HOLD,NOTIFY=TS15500                    DOC FILE
//*******************************************************************   DOC FILE
//*******************************************************************   DOC FILE
//* FILE 01 IS RECFM=FB,LRECL=80,BLKSIZE=32720                      *   DOC FILE
//*                                                                 *   DOC FILE
//*                    ********************                         *   DOC FILE
//*                    * VERSION 08-24-00 *                         *   DOC FILE
//*                    ********************                         *   DOC FILE
//*                    *   VERSION # 428V *                         *   DOC FILE
//*                    ********************                         *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//***CBT TAPE NAME SECTION                                          *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*       C B T    T A P E    N A M E     S E C T I O N             *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*******************************************************************   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    C B T   M V S   U T I L I T I E S   O V E R F L O W    -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  Welcome to the CBT Overflow Tape.  This tape contains    -- *   DOC FILE
//* --  material that was deleted from older CBT tapes because   -- *   DOC FILE
//* --  the regular CBT Tape filled up.                          -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  There is much other useful stuff on this tape, which     -- *   DOC FILE
//* --  is hard to find.  Look below to get a glimpse at some    -- *   DOC FILE
//* --  of the goodies we have here.                             -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  I have included a lot of code on this tape, which        -- *   DOC FILE
//* --  never got a chance to be included in the CBT Tape.       -- *   DOC FILE
//* --  Four files, 012 thru 015, contain the UK GUIDE tape,     -- *   DOC FILE
//* --  the German GUIDE tape, the Swiss GUIDE tape, and the     -- *   DOC FILE
//* --  Australian GUIDE tape, respectively.  These alone,       -- *   DOC FILE
//* --  contain lots of useful materials.                        -- *   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//* --  Short note:   Since the MVS SHARE Tape (SPLA TAPE)       -- *   DOC FILE
//* --        code appears on this tape, I'd be happy to take    -- *   DOC FILE
//* --        any updates and enhancements for this code.        -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --        If you'd like to update any of the SPLA Tape code, -- *   DOC FILE
//* --        please email me at:                                -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --          sbgolob@attglobal.net  and/or  sbgolob@aol.com   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  All CBT Materials are available online at:               -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --      http://www.cbttape.org   Click "Download Overflow"   -- *   DOC FILE
//* --                               for CBT Overflow Tape       -- *   DOC FILE
//* --                               files, or "Download CBT"    -- *   DOC FILE
//* --                               for regular CBT Tape files. -- *   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//* --  I have also included some newer code too, that doesn't   -- *   DOC FILE
//* --  appear anywhere else.  Files 043-057 contain what would  -- *   DOC FILE
//* --  have been the "SHARE ISPF Smoke and Mirrors Tape".       -- *   DOC FILE
//* --  This is from Jim Marshall, and was a SHARE project       -- *   DOC FILE
//* --  that got started, but which was unable to continue.      -- *   DOC FILE
//* --  A prototype first tape was produced, and that is what    -- *   DOC FILE
//* --  appears here.                                            -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  We have now included the entire "SHARE MVS Tape" on      -- *   DOC FILE
//* --  this tape.  SHARE MVS Tape (or "SPLA Tape") Version      -- *   DOC FILE
//* --  46, was the last tape that was supported by the SHARE    -- *   DOC FILE
//* --  organization.  The SPLA MVS Tape is now "officially      -- *   DOC FILE
//* --  dead" as far as the SHARE organization is concerned.     -- *   DOC FILE
//* --  Therefore we have included it in its entirety, here.     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  OUR PURPOSE IS TO CONTINUE TO MAKE ITS CODE AVAILABLE    -- *   DOC FILE
//* --  AND TO HAVE A PLACE TO MAINTAIN UPDATES.                 -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  The original doc for SPLA Tape Version 46 is on File     -- *   DOC FILE
//* --  104.  All other SPLA Tape files are on this tape in      -- *   DOC FILE
//* --  100 plus the file number on the original SPLA Tape,      -- *   DOC FILE
//* --  except for the L.A. MVS Users Group Tape material, as    -- *   DOC FILE
//* --  per our comments just below.                             -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  However, we are updating some of the files of the SPLA   -- *   DOC FILE
//* --  Tape as required.  We have, in effect, taken over all    -- *   DOC FILE
//* --  the code from the SPLA Tape on this tape.  (Thanks to    -- *   DOC FILE
//* --  Dan Squillace of the SAS Institute in Cary, North        -- *   DOC FILE
//* --  Carolina.)  Since the SPLA tape had included a version   -- *   DOC FILE
//* --  of the Los Angeles MVS Users Group Tape, we have         -- *   DOC FILE
//* --  updated those files to the highest version of the L.A.   -- *   DOC FILE
//* --  Users Group Tape that we have, Version 72.  Furthermore, -- *   DOC FILE
//* --  we have separated out the files from the LA UG Tape and  -- *   DOC FILE
//* --  placed them in their own block of files, Files 060-070.  -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  The PDS command is now on File 040, and has been         -- *   DOC FILE
//* --  upgraded to the latest version.                          -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  THE SPLA TAPE FILES WHICH HAD CONTAINED LA UG TAPE       -- *   DOC FILE
//* --  FILES, HAVE BEEN EMPTIED, AND THE DOCUMENTATION ON       -- *   DOC FILE
//* --  THIS FILE, REFLECTS THIS.                                -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  The documentation from the original SHARE MVS Tape has   -- *   DOC FILE
//* --  been merged into this documentation.  File numbers have  -- *   DOC FILE
//* --  been adjusted.  The original documentation from SPLA     -- *   DOC FILE
//* --  Tape V46 is on File 104 of this tape, and will be kept   -- *   DOC FILE
//* --  there for reference without change.                      -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  Additionally, this tape will be a reference tape to      -- *   DOC FILE
//* --  find a lot of older code, that people may want to learn  -- *   DOC FILE
//* --  from.  Much of it may still work on modern systems, or   -- *   DOC FILE
//* --  it may be slightly alterable to work.  In that regard,   -- *   DOC FILE
//* --  this "OVERFLOW" tape will be a little different from     -- *   DOC FILE
//* --  the regular CBT Tape which has mostly more current       -- *   DOC FILE
//* --  code.  This tape will have quite a bit of older code,    -- *   DOC FILE
//* --  but people need a place to find it when they want to     -- *   DOC FILE
//* --  look at it.  Nevertheless, there will be quite a bit     -- *   DOC FILE
//* --  of current code too.                                     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- ANNOUNCEMENT - (FROM SAM GOLOB)               (12/99)     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  Due to the closing of SPLA (The SHARE Program Library    -- *   DOC FILE
//* --  Agency), I have taken over the code from the SHARE PL/I  -- *   DOC FILE
//* --  Tape.  Mapping of the PL/I Tape files is as follows:     -- *   DOC FILE
//*                                                                 *   DOC FILE
//*   PL/1 SHARE Tape    CBT Overflow Tape                          *   DOC FILE
//*   ---- ----- ----    --- -------- ----                          *   DOC FILE
//*   Files 01 - 10 :    File  260  (members FILE01 thru FILE10)    *   DOC FILE
//*   Files 11 - 14 :    Files 261 - 264   /  ABE                   *   DOC FILE
//*   Files 17 - 18 :    Files 265 - 266  <    Editor               *   DOC FILE
//*   Files 47 - 49 :    Files 267 - 269   \    (Tom Smith)         *   DOC FILE
//*   Files 24 - 27 :    Files 271 - 274    /                       *   DOC FILE
//*   File  28 :         File  274         /  QUANDRY               *   DOC FILE
//*   Files 29 - 31 :    Files 275 - 277   \    System              *   DOC FILE
//*   File  32 :         File  277          \                       *   DOC FILE
//*   Files 15 - 17 :    Files 278 - 280   Teledyne Script System   *   DOC FILE
//*   File  20 - 22 :    File  281         PL1 Execution Analyzer   *   DOC FILE
//*   File  23 :         File  282         PL1 SORT Interface       *   DOC FILE
//*   File  33 :         File  283         Load Lib Analysis Pgms   *   DOC FILE
//*   File  34 :         File  284         Statistical Subrtns      *   DOC FILE
//*   Files 35 , 37      File  285         Mike Robinson Pgms       *   DOC FILE
//*   File  36 :         File  286         Mike Robinson Pgms       *   DOC FILE
//*   File  38 :         File  287         PLEA for VM              *   DOC FILE
//*   File  39 - 40 :    File  288         PL1 3270 Interface       *   DOC FILE
//*   File  41 :         File  289         PL1 IMS Interface        *   DOC FILE
//*   File  42 :         File  290         Display DS as Dump       *   DOC FILE
//*   File  43 :         File  291         PL1 3270 Interface       *   DOC FILE
//*   File  44 :         File  292         Chart of Subrtn calls    *   DOC FILE
//*   File  45 :         File  293         PL1 CMS Enhancer         *   DOC FILE
//*   File  46 :         File  294         Complex PDS search pgm   *   DOC FILE
//*   File  50 :         File  295         REXX Functions in PL1    *   DOC FILE
//*                                                                 *   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- ANNOUNCEMENT - (FROM SAM GOLOB)               (01/98)     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --     I HAVE DECIDED TO EXTEND THIS TAPE FROM 472 TO 500    -- *   DOC FILE
//* --     FILES.  THE REASON IS THAT IF YOU WANT TO STRING      -- *   DOC FILE
//* --     THE FILES FROM BOTH THE CBT TAPE AND THE CBT          -- *   DOC FILE
//* --     OVERFLOW TAPES END-TO-END ON A HIGH-DENSITY OR LONG   -- *   DOC FILE
//* --     CARTRIDGE, IT WILL BE EASIER TO COUNT FILE NUMBERS.   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- ANNOUNCEMENT -  (FROM SAM GOLOB)              (10/98)     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --     THE CBT TAPE MATERIALS ARE NOW ONLINE.                -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --     CHECK OUT:   http://www.cbttape.org  "SPONSORED BY    -- *   DOC FILE
//* --                                             NASPA"        -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- ANNOUNCEMENT -  (FROM SAM GOLOB)              (04/96)     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --              IF FOR SOME REASON, MY ADDRESS AND           -- *   DOC FILE
//* --              CONTACT PHONE NUMBERS MAY CHANGE, I          -- *   DOC FILE
//* --              INTEND TO LEAVE NEW INFORMATION WITH         -- *   DOC FILE
//* --              NASPA'S MEMBERSHIP COORDINATOR.              -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --     My email addresses:   sbgolob@aol.com                 -- *   DOC FILE
//* --                           sbgolob@attglobal.net           -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --     NASPA'S ADDRESS:   NaSPA                              -- *   DOC FILE
//* --                        7040 S. 13th Street                -- *   DOC FILE
//* --                        Oak Creek, WI 53154                -- *   DOC FILE
//* --                        414-768-8000                       -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    (NASPA HAS RECENTLY MOVED.)                            -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --     THIS TAPE HAS NOTHING TO DO WITH NASPA, BUT I AM      -- *   DOC FILE
//* --     A MEMBER OF NASPA, AND MY NASCOM ID IS "GOLOSHMA".    -- *   DOC FILE
//* --     THAT MAY HELP YOU TO CONTACT ME IF YOU NEED TO.       -- *   DOC FILE
//* --     MESSAGES TO ME AT NASPA GET FORWARDED TO MY AOL       -- *   DOC FILE
//* --     EMAIL ADDRESS.                                        -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- ANNOUNCEMENT -   WHEN FILES WERE UPDATED LAST.            -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --     See the "FILE UPDATE SECTION" below, just above       -- *   DOC FILE
//* --     the "CHANGES SECTION", to learn how to tell when      -- *   DOC FILE
//* --     files which are on this tape have been last updated.  -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//*******************************************************************   DOC FILE
//***SECTION DISCLAIMER SECTION                                     *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*            D I S C L A I M E R    S E C T I O N                 *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*   The tapes commonly referred to as "The CBT MVS Utilities      *   DOC FILE
//*   Tape", and "The CBT Overflow Tape", as well as "The CBT       *   DOC FILE
//*   Overflow Tape Two" are hereinafter referred to as "this       *   DOC FILE
//*   tape".  The materials on these "tapes", even if they are      *   DOC FILE
//*   not physically on a tape, but they exist on a cd-rom disk,    *   DOC FILE
//*   or on any other machine-readable medium, or printed, or       *   DOC FILE
//*   written, or in analog or digital form, or in any data         *   DOC FILE
//*   representation format, such as EBCDIC or ASCII or any other   *   DOC FILE
//*   data representation scheme, or they are in any compressed     *   DOC FILE
//*   or encrypted format, shall fully be included in all           *   DOC FILE
//*   disclaimers of responsibility, as though these materials      *   DOC FILE
//*   were actually physically on tape.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*  THIS TAPE CONTAINS FREE SOFTWARE, NOT TO BE CHARGED FOR,       *   DOC FILE
//*  EXCEPT FOR HANDLING COSTS.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*  THIS TAPE MAY BE FREELY DUPLICATED.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*  NOTICE.  There are certain copyrighted sections on this tape   *   DOC FILE
//*   which contain reservations of rights.  Owners of these        *   DOC FILE
//*   sections have given permission for the use of their           *   DOC FILE
//*   materials subject to the conditions stated in each case.      *   DOC FILE
//*                                                                 *   DOC FILE
//*   THESE RESERVATIONS DO NOT APPLY TO THE ENTIRE TAPE ... !!!.   *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*  DISCLAIMER REGARDING "NON-FREE" MATERIALS.                     *   DOC FILE
//*   The editor and/or any other persons or institutions,          *   DOC FILE
//*   corporations, or any other entity handling this tape,         *   DOC FILE
//*   do not assume responsibility for the inadvertent inclusion    *   DOC FILE
//*   of non-"free" materials.  If any such materials are found     *   DOC FILE
//*   to have been accidentally included on this tape, please       *   DOC FILE
//*   inform the editor immediately, and such materials will be     *   DOC FILE
//*   promptly removed.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*   ALL DISCLAIMERS OF RESPONSIBILITY, ABOVE AND BELOW, APPLY     *   DOC FILE
//*   TO ALL PERSONS AND/OR INSTALLATIONS OR ANY OTHER ENTITY       *   DOC FILE
//*   EDITING, DUPLICATING, PROCESSING, OR OTHERWISE HANDLING       *   DOC FILE
//*   THIS TAPE.  NO RESPONSIBILITIES ARE ASSUMED BY ANY OF         *   DOC FILE
//*   THESE PERSONS, INSTALLATIONS, CORPORATIONS, ENTITIES,         *   DOC FILE
//*   INSTITUTIONS, OR ORGANIZATIONS.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*   No warranty, expressed or implied, is provided by any or all  *   DOC FILE
//*   of the persons and/or installations editing, duplicating, or  *   DOC FILE
//*   otherwise handling this tape.  Persons and/or installations   *   DOC FILE
//*   using any of the programs or materials on this tape, do so    *   DOC FILE
//*   entirely at their own risk.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*   NO WARRANTY IS MADE TO THE ACCURACY OF THE PROGRAMS OR        *   DOC FILE
//*   RELATED MATERIAL AND NO RESPONSIBILITY IS ASSUMED FOR ANY     *   DOC FILE
//*   MODIFICATION DIRECTLY OR INDIRECTLY CAUSED BY THE USE OF      *   DOC FILE
//*   THIS SOFTWARE.  IT IS THE USER'S RESPONSIBILITY TO EVALUATE   *   DOC FILE
//*   THE USEFULNESS OF THE MATERIAL SUPPLIED.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*   We do not guarantee to keep any material provided up to       *   DOC FILE
//*   date, nor do we guarantee to provide any corrections or       *   DOC FILE
//*   extensions described by anyone, or corrections or             *   DOC FILE
//*   extensions made in the future.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*   NO WARRANTY, EXPRESSED OR IMPLIED, IS PROVIDED BY ANY OR ALL  *   DOC FILE
//*   OF THE PERSONS AND/OR INSTALLATIONS EDITING, DUPLICATING, OR  *   DOC FILE
//*   OTHERWISE HANDLING THIS TAPE.  PERSONS AND/OR INSTALLATIONS   *   DOC FILE
//*   USING ANY OF THE PROGRAMS OR MATERIALS ON THIS TAPE, DO SO    *   DOC FILE
//*   ENTIRELY AT THEIR OWN RISK.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*   THE EDITOR AND/OR ANY OTHER PERSONS, INSTITUTIONS,            *   DOC FILE
//*   CORPORATIONS, OR ANY OTHER ENTITY HANDLING THIS TAPE, DO NOT  *   DOC FILE
//*   ASSUME ANY RESPONSIBILITY, EXPRESS, IMPLIED, OR TO BE         *   DOC FILE
//*   CONSTRUED IN ANY WAY, TO UPDATE THIS TAPE AT ALL.             *   DOC FILE
//*                                                                 *   DOC FILE
//*   Specifically, but not limited thereto, no responsibility is   *   DOC FILE
//*   assumed, in any way, by anyone handling this tape, to ensure  *   DOC FILE
//*   YEAR 2000 compliance of any materials on this tape, at all.   *   DOC FILE
//*                                                                 *   DOC FILE
//*   THESE STATEMENTS APPLY TO ALL MATERIALS CONTAINED ON THIS     *   DOC FILE
//*   TAPE, WITHOUT EXCEPTION.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*   These statements OVERRIDE ANY STATEMENT OF DOCUMENTATION,     *   DOC FILE
//*   anywhere else on this tape, that any software or materials    *   DOC FILE
//*   contained on this tape are YEAR 2000 compliant or functional. *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//***TAPE DUPLICATION SECTION                                       *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*      T A P E    D U P L I C A T I O N    S E C T I O N          *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*  THIS IS FREE SOFTWARE, NOT TO BE CHARGED FOR, EXCEPT HANDLING  *   DOC FILE
//*   COSTS.                                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*  THIS TAPE MAY BE FREELY DUPLICATED.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*  NOTICE.  THERE ARE CERTAIN COPYRIGHTED SECTIONS ON THIS TAPE   *   DOC FILE
//*   WHICH CONTAIN RESERVATIONS OF RIGHTS.  OWNERS OF THESE        *   DOC FILE
//*   SECTIONS HAVE GIVEN PERMISSION FOR THE USE OF THEIR           *   DOC FILE
//*   MATERIALS SUBJECT TO THE CONDITIONS STATED IN EACH CASE.      *   DOC FILE
//*                                                                 *   DOC FILE
//*   THESE RESERVATIONS *-> DO NOT <-* APPLY TO THE ENTIRE TAPE.   *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*  DUPLICATION ADVICE.  (USE THIS ON YOUR OWN RESPONSIBILITY)     *   DOC FILE
//*                                                                 *   DOC FILE
//*   The tape copying program called "COPYMODS" on File 006        *   DOC FILE
//*   of this tape, is useful for making byte-for-byte copies       *   DOC FILE
//*   of this, and other tapes.  Up to 10 copies may be made        *   DOC FILE
//*   at one time.  See documentation with that file.  It is        *   DOC FILE
//*   the editor's experience that cartridges are handled without   *   DOC FILE
//*   any problems by the "COPYMODS" program.  COPYMODS can also    *   DOC FILE
//*   do tape-to-cart or cart-to-tape, but if you have multiple     *   DOC FILE
//*   output tapes, do not mix unit types.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*   The editor can read 3480, 3490 IDRC, and 3490E format tapes   *   DOC FILE
//*   at this time.  Magstar formats cannot be read at this time,   *   DOC FILE
//*   at the editor's installation.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*   CONTRIBUTIONS TO THIS TAPE CAN NOW BE MADE ELECTRONICALLY     *   DOC FILE
//*   THROUGH THE INTERNET.  MY EMAIL ADDRESSES ARE:                *   DOC FILE
//*                                                                 *   DOC FILE
//*             sbgolob@aol.com                                     *   DOC FILE
//*             sbgolob@attglobal.net                               *   DOC FILE
//*                                                                 *   DOC FILE
//*     Also look at:    http://www.cbttape.org    for info on      *   DOC FILE
//*       how to contribute to this tape.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*   CAVEAT:  SL tapes are copied by the "COPYMODS" program,       *   DOC FILE
//*            labels and all.  (This is good...  )  However,       *   DOC FILE
//*            it is possible that if a "null" standard-label       *   DOC FILE
//*            file is present on a tape, "COPYMODS" may            *   DOC FILE
//*            interpret the "null" file as if it were a double     *   DOC FILE
//*            tapemark and stop copying at that point.  In such    *   DOC FILE
//*            a case, you might try using the "COPYFILE" program   *   DOC FILE
//*            that is especially designed for SL tapes.  The       *   DOC FILE
//*            "COPYFILE" program is part of File 316 on the        *   DOC FILE
//*            CBT tape.  Also try "TAPESCAN" on File 009 here.     *   DOC FILE
//*            FILE 008 ON THIS TAPE HAS LOAD MODULES.              *   DOC FILE
//*                                                                 *   DOC FILE
//*   The "TAPEMAP" program on File 007, may be of further          *   DOC FILE
//*   use in this and related endeavors.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//***UPLOAD DOWNLOAD SECTION                                        *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*      U P L O A D    D O W N L O A D    S E C T I O N            *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*   I prefer contributions on cartridge or tape because they      *   DOC FILE
//*   are not as subject to error as what we shall describe         *   DOC FILE
//*   below.  For this reason, in this Internet age, I prefer       *   DOC FILE
//*   contributions in TSO XMIT format, which never had to          *   DOC FILE
//*   undergo an ASCII to EBCDIC translation (and vice-versa).      *   DOC FILE
//*   Hovever....                                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*   We have fully entered the era of PC's, and some of the        *   DOC FILE
//*   contributions to this tape have been obtained from diskette   *   DOC FILE
//*   downloads and uploads.  Sometimes, the upload-download        *   DOC FILE
//*   software will make a mistake in character translation.        *   DOC FILE
//*   This editor would appreciate when anyone notices such errors  *   DOC FILE
//*   on any file in this tape.  Please inform me about them        *   DOC FILE
//*   so they can be corrected.                                     *   DOC FILE
//*                                  New Phone:  845-362-1996       *   DOC FILE
//*                                                                 *   DOC FILE
//* --             email:    sbgolob@aol.com       OR            -- *   DOC FILE
//* --                       sbgolob@attglobal.net               -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//*       (IF MY PHONE INFORMATION BECOMES OBSOLETE, PLEASE         *   DOC FILE
//*        CONTACT THE MEMBERSHIP OFFICER AT NASPA 414-768-8000     *   DOC FILE
//*        WHERE I INTEND TO LEAVE MY NEW INFORMATION. )            *   DOC FILE
//*                                                                 *   DOC FILE
//*   THANKS.                                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*   ERRORS WE KNOW ABOUT ARE -                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*      HEX 53    SHOULD BE CHANGED TO    HEX 5F       USUALLY.    *   DOC FILE
//*      HEX 6A    SHOULD BE CHANGED TO    HEX 4F   OR VICE-VERSA.  *   DOC FILE
//*                                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*   PLEASE CALL THESE OR ANY OTHER ERRORS IN TO ME. THANKS AGAIN. *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//***NEWS BULLETIN SECTION                                          *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*      N E W S     B U L L E T I N     S E C T I O N              *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*******************************************************************   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//* -- THE ONLY NEWS I'LL PUT HERE IS WHAT IS RELEVANT TO THE    -- *   DOC FILE
//* -- OVERFLOW TAPE.                                            -- *   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*  ANNOUNCEMENT ------*-*-*-*-*------ DOC FOR THIS TAPE. .        *   DOC FILE
//*                                                                 *   DOC FILE
//*  DOCUMENTATION FOR THIS TAPE IS BEING KEPT ON FILE 071 OF THE   *   DOC FILE
//*  REGULAR CBT TAPE.  IT IS ADVISABLE TO OBTAIN THE LATEST COPY   *   DOC FILE
//*  OF THE REGULAR CBT TAPE THAT YOU CAN.  THE CBT TAPE, AS OF     *   DOC FILE
//*  CURRENT WRITING, IS BEING COPIED ONCE A YEAR TO THE NASPA      *   DOC FILE
//*  CD-ROM DISC.  HOWEVER, BETWEEN TIMES, THE REGULAR CBT TAPE     *   DOC FILE
//*  IS BEING UPDATED (HOPEFULLY) A LOT MORE OFTEN.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*  You can find all the files of the CBT Tape and the CBT         *   DOC FILE
//*  Overflow Tape online at the following location:                *   DOC FILE
//*                                                                 *   DOC FILE
//*     http://www.cbttape.org                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*  IMPORTANT -  IF ANYBODY HAS AN OLD VERSION OF THE CBT TAPE:    *   DOC FILE
//*  IMPORTANT -  IF ANYBODY HAS AN OLD VERSION OF THE CBT TAPE:    *   DOC FILE
//*                                                                 *   DOC FILE
//* >>>  DEFINITION OF "OLD":   BEFORE VERSION 248.    <<<<<        *   DOC FILE
//*                                                                 *   DOC FILE
//*      PLEASE MAKE A COPY ON A LARGE REEL OR CARTRIDGE, AND       *   DOC FILE
//*      SEND IT TO THE EDITOR:   (CARTRIDGE PREFERRED)             *   DOC FILE
//*                                                                 *   DOC FILE
//*            Sam Golob                                            *   DOC FILE
//*            P.O. Box 906                                         *   DOC FILE
//*            Tallman, NY 10982-0906                               *   DOC FILE
//*                      New Phone Number:    845-362-1996          *   DOC FILE
//*                                                                 *   DOC FILE
//*         email addresses:     sbgolob@aol.com                    *   DOC FILE
//*                              sbgolob@attglobal.net              *   DOC FILE
//*                                                                 *   DOC FILE
//*       (IF MY CONTACT INFORMATION BECOMES OBSOLETE, PLEASE       *   DOC FILE
//*        CALL THE MEMBERSHIP OFFICER AT NASPA 414-768-8000        *   DOC FILE
//*        WHERE I INTEND TO LEAVE MY NEW INFORMATION. )            *   DOC FILE
//*                                                                 *   DOC FILE
//*      MATERIAL FROM THESE OLD TAPES MAY GET COPIED ONTO THIS     *   DOC FILE
//*      TAPE, IF IT IS FOUND TO BE OF USE.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//***SECTION FILE DESCRIPTION SECTION                               *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*      F I L E   D E S C R I P T I O N   S E C T I O N            *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*  This section contains a one-line description of each non-empty *   DOC FILE
//*  file on the CBT Overflow Tape.  Its purpose is to provide      *   DOC FILE
//*  a more detailed description of each file's contents, than is   *   DOC FILE
//*  provided in the File Status Section of this documentation.     *   DOC FILE
//*                                                                 *   DOC FILE
//*  Empty files are marked as such, and the descriptions of them   *   DOC FILE
//*  should be regarded as placeholders, in case the file number    *   DOC FILE
//*  would become occupied at a future date.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*+File 001:  Detailed documentation of the CBT MVS Overflow Tape  *   DOC FILE
//*+File 002:  CBT973 Compression-Decompression Program for Files   *   DOC FILE
//*+File 003:  JCL member to load each tape file to disk            *   DOC FILE
//*+File 004:  Collection of utilities to manipulate File 001 doc   *   DOC FILE
//*+File 005:  VMREXX exec to load this tape on to a VM system      *   DOC FILE
//*+File 006:  Air Force Tape Copy program--same as File 229 of CBT *   DOC FILE
//*+File 007:  UCLA Tapemap Program - same as File 299 of CBT       *   DOC FILE
//*+File 008:  Load Module Library - similar to File 035 of CBT     *   DOC FILE
//*+File 009:  TAPESCAN,SS0104 - programs to map tapes              *   DOC FILE
//*+File 010:  EMPTY                                                *   DOC FILE
//*+File 011:  EMPTY                                                *   DOC FILE
//*+File 012:  UK GUIDE TAPE - full contents (as of about 1992)     *   DOC FILE
//*+File 013:  GERMAN GUIDE TAPE - full contents     "              *   DOC FILE
//*+File 014:  SWISS GUIDE TAPE - full contents      "              *   DOC FILE
//*+File 015:  AUSSIE GUIDE TAPE - full contents     "              *   DOC FILE
//*+File 016:  Rockwell System Programmer Tools - Documentation     *   DOC FILE
//*+File 017:  Rockwell System Pgmr Tools - Waterloo Script Loadmod *   DOC FILE
//*+File 018:  Rockwell System Programmer Tools - Help Library      *   DOC FILE
//*+File 019:  Rockwell System Programmer Tools - CLIST Library     *   DOC FILE
//*+File 020:  Rockwell System Programmer Tools - MACRO Library     *   DOC FILE
//*+File 021:  Rockwell System Pgmr Tools - Script Text Library     *   DOC FILE
//*+File 022:  Rockwell System Programmer Tools - Source Library    *   DOC FILE
//*+File 023:  Rockwell System Programmer Tools - Utilities Doc     *   DOC FILE
//*+File 024:  Rockwell System Programmer Tools - News File         *   DOC FILE
//*+File 025:  Rockwell System Programmer Tools - Skeleton Lib      *   DOC FILE
//*+File 026:  Rockwell System Programmer Tools - Panel Library     *   DOC FILE
//*+File 027:  Rockwell System Programmer Tools - TSSO CLISTs       *   DOC FILE
//*+File 028:  Rockwell System Programmer Tools - Message Library   *   DOC FILE
//*+File 029:  Rockwell System Pgmr Tools - Script Memo Library     *   DOC FILE
//*+File 030:  Rockwell System Pgmr Tools-Script Hyphenation Dict   *   DOC FILE
//*+File 031:  Rockwell System Pgmr Tools - Script Text Library     *   DOC FILE
//*+File 032:  Rockwell System Programmer Tools - ISPF Table Lib    *   DOC FILE
//*+File 033:  Rockwell System Programmer Tools - TSSO PARMLIB      *   DOC FILE
//*+File 034:  Rockwell System Programmer Tools - SYS1.PROCLIB      *   DOC FILE
//*+File 035:  Rockwell System Programmer Tools - SYS1.PARMLIB      *   DOC FILE
//*+File 036:  Rockwell System Pgmr Tools - Script Macro Library    *   DOC FILE
//*+File 037:  Rockwell System Programmer Tools - TSSO Source       *   DOC FILE
//*+File 038:  MEMOREX Utilities that were on File 313 of CBT Tape  *   DOC FILE
//*+File 039:  PDS VERSION 7.3                                      *   DOC FILE
//*+File 040:  PDS VERSION 8.5                                      *   DOC FILE
//*+File 041:  VTOC TSO Command - corresponds to File 112 of CBT    *   DOC FILE
//*+File 042:  Utilities for PDS - from File 296                    *   DOC FILE
//*+File 043:  ISPF Smoke and Mirrors Tape -  DOC                   *   DOC FILE
//*+File 044:  ISPF Smoke and Mirrors Tape -  File 4                *   DOC FILE
//*+File 045:  ISPF Smoke and Mirrors Tape -  File 5                *   DOC FILE
//*+File 046:  ISPF Smoke and Mirrors Tape -  File 6                *   DOC FILE
//*+File 047:  ISPF Smoke and Mirrors Tape -  File 7                *   DOC FILE
//*+File 048:  ISPF Smoke and Mirrors Tape -  File 8                *   DOC FILE
//*+File 049:  ISPF Smoke and Mirrors Tape -  File 9                *   DOC FILE
//*+File 050:  ISPF Smoke and Mirrors Tape -  File 10               *   DOC FILE
//*+File 051:  ISPF Smoke and Mirrors Tape -  File 11               *   DOC FILE
//*+File 052:  ISPF Smoke and Mirrors Tape -  File 12               *   DOC FILE
//*+File 053:  ISPF Smoke and Mirrors Tape -  File 13               *   DOC FILE
//*+File 054:  ISPF Smoke and Mirrors Tape -  File 14               *   DOC FILE
//*+File 055:  ISPF Smoke and Mirrors Tape -  File 15               *   DOC FILE
//*+File 056:  ISPF Smoke and Mirrors Tape -  File 16               *   DOC FILE
//*+File 057:  ISPF Smoke and Mirrors Tape -  File 17               *   DOC FILE
//*+File 058:  Old SMP4 User Programs from Sam Golob                *   DOC FILE
//*+File 059:  Utilities from Florida Power                         * grams from
//*+File 059:  Utilities from Florida Power                         *   DOC FILE
//*+File 060:  Los Angeles User Group MVS Tape Documentation        *   DOC FILE
//*+File 061:  Los Angeles User Group MVS Tape Help Library         *   DOC FILE
//*+File 062:  Los Angeles User Group MVS Tape Load Library         *   DOC FILE
//*+File 063:  Los Angeles User Group MVS Tape MACLIB               *   DOC FILE
//*+File 064:  Los Angeles User Group MVS Tape Object Library       *   DOC FILE
//*+File 065:  Los Angeles User Group MVS Tape Source Library       *   DOC FILE
//*+File 066:  Los Angeles User Group MVS Tape CNTL Library         *   DOC FILE
//*+File 067:  Los Angeles User Group MVS Tape CLIST Library        *   DOC FILE
//*+File 068:  Los Angeles User Group MVS Tape PANEL Library        *   DOC FILE
//*+File 069:  Los Angeles User Group MVS Tape Reconfig Library     *   DOC FILE
//*+File 070:  Los Angeles User Group MVS Tape DAF from M.Cleary    *   DOC FILE
//*+File 071:  EMPTY                                                *   DOC FILE
//*+File 072:  EMPTY                                                *   DOC FILE
//*+File 073:  EMPTY                                                *   DOC FILE
//*+File 074:  EMPTY                                                *   DOC FILE
//*+File 075:  OS/360 Release 21.8 (MVT) SYS1.MACLIB                *   DOC FILE
//*+File 076:  OS/360 Release 21.8 (MVT) SYS1.MODGEN                *   DOC FILE
//*+File 077:  OS/360 Release 21.8 (MVT) SYS1.TSOMAC                *   DOC FILE
//*+File 078:  OS/360 Release 21.8 (MVT) SYS1.GENLIB                *   DOC FILE
//*+File 079:  OS/360 Release 21.8 (MVT) SYS1.SAMPLIB               *   DOC FILE
//*+File 080:  OS/360 Release 21.8 (MVT) SYS1.TCAMMAC               *   DOC FILE
//*+File 081:  OS/360 Release 21.8 (MVT) SYS1.PROCLIB               *   DOC FILE
//*+File 082:  OS/360 Release 21.8 (MVT) SYS1.PVTMACS               *   DOC FILE
//*+File 083:  EMPTY                                                *   DOC FILE
//*+File 084:  PDS Version 8.4                                      *   DOC FILE
//*+File 085:  EMPTY                                                *   DOC FILE
//*+File 086:  EMPTY                                                *   DOC FILE
//*+File 087:  EMPTY                                                *   DOC FILE
//*+File 088:  EMPTY                                                *   DOC FILE
//*+File 089:  EMPTY                                                *   DOC FILE
//*+File 090:  EMPTY                                                *   DOC FILE
//*+File 091:  EMPTY                                                *   DOC FILE
//*+File 092:  EMPTY                                                *   DOC FILE
//*+File 093:  JES2 QUEUE Spool Browser program - for JES2 2.2.0    *   DOC FILE
//*+File 094:  JES2 QUEUE Spool Browser program - for JES2 1.3.6    *   DOC FILE
//*+File 095:  JES2 QUEUE Spool Browser program - for JES2 3.1.1    *   DOC FILE
//*+File 096:  JES2 QUEUE Spool Browser program - for JES2 3.1.1    *   DOC FILE
//*+File 097:  JES2 QUEUE Spool Browser program - for JES2 1.3.6    *   DOC FILE
//*+File 098:  JES2 QUEUE Spool Browser program - for JES2 2.2.0    *   DOC FILE
//*+File 099:  EMPTY                                                *   DOC FILE
//*+File 100:  EMPTY                                                *   DOC FILE
//*+File 101:  EMPTY                                                *   DOC FILE
//*+File 102:  EMPTY                                                *   DOC FILE
//*+File 103:  Documentation for Other MVS Tapes                    *   DOC FILE
//*+File 104:  SHARE MVS Tape (SPLA Tape) Original Documentation    *   DOC FILE
//*+File 105:  SHARE MVS Tape (SPLA Tape) File 005                  *   DOC FILE
//*+File 106:  SHARE MVS Tape (SPLA Tape) File 006                  *   DOC FILE
//*+File 107:  SHARE MVS Tape (SPLA Tape) File 007                  *   DOC FILE
//*+File 108:  SHARE MVS Tape (SPLA Tape) File 008                  *   DOC FILE
//*+File 109:  SHARE MVS Tape (SPLA Tape) File 009                  *   DOC FILE
//*+File 110:  SHARE MVS Tape (SPLA Tape) File 010                  *   DOC FILE
//*+File 111:  SHARE MVS Tape (SPLA Tape) File 011                  *   DOC FILE
//*+File 112:  SHARE MVS Tape (SPLA Tape) File 012                  *   DOC FILE
//*+File 113:  SHARE MVS Tape (SPLA Tape) File 013                  *   DOC FILE
//*+File 114:  SHARE MVS Tape (SPLA Tape) File 014                  *   DOC FILE
//*+File 115:  SHARE MVS Tape (SPLA Tape) File 015                  *   DOC FILE
//*+File 116:  SHARE MVS Tape (SPLA Tape) File 016                  *   DOC FILE
//*+File 117:  SHARE MVS Tape (SPLA Tape) File 017                  *   DOC FILE
//*+File 118:  SHARE MVS Tape (SPLA Tape) File 018                  *   DOC FILE
//*+File 119:  SHARE MVS Tape (SPLA Tape) File 019                  *   DOC FILE
//*+File 120:  SHARE MVS Tape (SPLA Tape) File 020                  *   DOC FILE
//*+File 121:  SHARE MVS Tape (SPLA Tape) File 021                  *   DOC FILE
//*+File 122:  SHARE MVS Tape (SPLA Tape) File 022                  *   DOC FILE
//*+File 123:  SHARE MVS Tape (SPLA Tape) File 023                  *   DOC FILE
//*+File 124:  SHARE MVS Tape (SPLA Tape) File 024                  *   DOC FILE
//*+File 125:  SHARE MVS Tape (SPLA Tape) File 025                  *   DOC FILE
//*+File 126:  SHARE MVS Tape (SPLA Tape) File 026                  *   DOC FILE
//*+File 127:  SHARE MVS Tape (SPLA Tape) File 027                  *   DOC FILE
//*+File 128:  SHARE MVS Tape (SPLA Tape) File 028                  *   DOC FILE
//*+File 129:  SHARE MVS Tape (SPLA Tape) File 029                  *   DOC FILE
//*+File 130:  SHARE MVS Tape (SPLA Tape) File 030                  *   DOC FILE
//*+File 131:  SHARE MVS Tape (SPLA Tape) File 031                  *   DOC FILE
//*+File 132:  SHARE MVS Tape (SPLA Tape) File 032                  *   DOC FILE
//*+File 133:  SHARE MVS Tape (SPLA Tape) File 033                  *   DOC FILE
//*+File 134:  SHARE MVS Tape (SPLA Tape) File 034                  *   DOC FILE
//*+File 135:  SHARE MVS Tape (SPLA Tape) File 035                  *   DOC FILE
//*+File 136:  SHARE MVS Tape (SPLA Tape) File 036                  *   DOC FILE
//*+File 137:  SHARE MVS Tape (SPLA Tape) File 037                  *   DOC FILE
//*+File 138:  SHARE MVS Tape (SPLA Tape) File 038                  *   DOC FILE
//*+File 139:  EMPTY                                                *   DOC FILE
//*+File 140:  SHARE MVS Tape (SPLA Tape) File 040                  *   DOC FILE
//*+File 141:  SHARE MVS Tape (SPLA Tape) File 041                  *   DOC FILE
//*+File 142:  SHARE MVS Tape (SPLA Tape) File 042                  *   DOC FILE
//*+File 143:  SHARE MVS Tape (SPLA Tape) File 043                  *   DOC FILE
//*+File 144:  SHARE MVS Tape (SPLA Tape) File 044                  *   DOC FILE
//*+File 145:  SHARE MVS Tape (SPLA Tape) File 045                  *   DOC FILE
//*+File 146:  SHARE MVS Tape (SPLA Tape) File 046                  *   DOC FILE
//*+File 147:  SHARE MVS Tape (SPLA Tape) File 047                  *   DOC FILE
//*+File 148:  EMPTY                                                *   DOC FILE
//*+File 149:  EMPTY                                                *   DOC FILE
//*+File 150:  EMPTY                                                *   DOC FILE
//*+File 151:  EMPTY                                                *   DOC FILE
//*+File 152:  EMPTY                                                *   DOC FILE
//*+File 153:  EMPTY                                                *   DOC FILE
//*+File 154:  EMPTY                                                *   DOC FILE
//*+File 155:  SHARE MVS Tape (SPLA Tape) File 055                  *   DOC FILE
//*+File 156:  SHARE MVS Tape (SPLA Tape) File 056                  *   DOC FILE
//*+File 157:  SHARE MVS Tape (SPLA Tape) File 057                  *   DOC FILE
//*+File 158:  SHARE MVS Tape (SPLA Tape) File 058                  *   DOC FILE
//*+File 159:  SHARE MVS Tape (SPLA Tape) File 059                  *   DOC FILE
//*+File 160:  SHARE MVS Tape (SPLA Tape) File 060                  *   DOC FILE
//*+File 161:  SHARE MVS Tape (SPLA Tape) File 061                  *   DOC FILE
//*+File 162:  SHARE MVS Tape (SPLA Tape) File 062                  *   DOC FILE
//*+File 163:  SHARE MVS Tape (SPLA Tape) File 063                  *   DOC FILE
//*+File 164:  SHARE MVS Tape (SPLA Tape) File 064                  *   DOC FILE
//*+File 165:  SHARE MVS Tape (SPLA Tape) File 065                  *   DOC FILE
//*+File 166:  SHARE MVS Tape (SPLA Tape) File 066                  *   DOC FILE
//*+File 167:  SHARE MVS Tape (SPLA Tape) File 067                  *   DOC FILE
//*+File 168:  SHARE MVS Tape (SPLA Tape) File 068                  *   DOC FILE
//*+File 169:  SHARE MVS Tape (SPLA Tape) File 069                  *   DOC FILE
//*+File 170:  SHARE MVS Tape (SPLA Tape) File 070                  *   DOC FILE
//*+File 171:  SHARE MVS Tape (SPLA Tape) File 071                  *   DOC FILE
//*+File 172:  SHARE MVS Tape (SPLA Tape) File 072                  *   DOC FILE
//*+File 173:  SHARE MVS Tape (SPLA Tape) File 073                  *   DOC FILE
//*+File 174:  SHARE MVS Tape (SPLA Tape) File 074                  *   DOC FILE
//*+File 175:  SHARE MVS Tape (SPLA Tape) File 075                  *   DOC FILE
//*+File 176:  SHARE MVS Tape (SPLA Tape) File 076                  *   DOC FILE
//*+File 177:  SHARE MVS Tape (SPLA Tape) File 077                  *   DOC FILE
//*+File 178:  SHARE MVS Tape (SPLA Tape) File 078                  *   DOC FILE
//*+File 179:  SHARE MVS Tape (SPLA Tape) File 079                  *   DOC FILE
//*+File 180:  SHARE MVS Tape (SPLA Tape) File 080                  *   DOC FILE
//*+File 181:  SHARE MVS Tape (SPLA Tape) File 081                  *   DOC FILE
//*+File 182:  SHARE MVS Tape (SPLA Tape) File 082                  *   DOC FILE
//*+File 183:  SHARE MVS Tape (SPLA Tape) File 083                  *   DOC FILE
//*+File 184:  SHARE MVS Tape (SPLA Tape) File 084                  *   DOC FILE
//*+File 185:  SHARE MVS Tape (SPLA Tape) File 085                  *   DOC FILE
//*+File 186:  SHARE MVS Tape (SPLA Tape) File 086                  *   DOC FILE
//*+File 187:  SHARE MVS Tape (SPLA Tape) File 087                  *   DOC FILE
//*+File 188:  SHARE MVS Tape (SPLA Tape) File 088                  *   DOC FILE
//*+File 189:  SHARE MVS Tape (SPLA Tape) File 089                  *   DOC FILE
//*+File 190:  SHARE MVS Tape (SPLA Tape) File 090                  *   DOC FILE
//*+File 191:  SHARE MVS Tape (SPLA Tape) File 091                  *   DOC FILE
//*+File 192:  SHARE MVS Tape (SPLA Tape) File 092                  *   DOC FILE
//*+File 193:  SHARE MVS Tape (SPLA Tape) File 093                  *   DOC FILE
//*+File 194:  SHARE MVS Tape (SPLA Tape) File 094                  *   DOC FILE
//*+File 195:  SHARE MVS Tape (SPLA Tape) File 095                  *   DOC FILE
//*+File 196:  SHARE MVS Tape (SPLA Tape) File 096                  *   DOC FILE
//*+File 197:  SHARE MVS Tape (SPLA Tape) File 097                  *   DOC FILE
//*+File 198:  SHARE MVS Tape (SPLA Tape) File 098                  *   DOC FILE
//*+File 199:  SHARE MVS Tape (SPLA Tape) File 099                  *   DOC FILE
//*+File 200:  SHARE MVS Tape (SPLA Tape) File 100                  *   DOC FILE
//*+File 201:  SHARE MVS Tape (SPLA Tape) File 101                  *   DOC FILE
//*+File 202:  SHARE MVS Tape (SPLA Tape) File 102                  *   DOC FILE
//*+File 203:  SHARE MVS Tape (SPLA Tape) File 103                  *   DOC FILE
//*+File 204:  SHARE MVS Tape (SPLA Tape) File 104                  *   DOC FILE
//*+File 205:  SHARE MVS Tape (SPLA Tape) File 105                  *   DOC FILE
//*+File 206:  SHARE MVS Tape (SPLA Tape) File 106                  *   DOC FILE
//*+File 207:  SHARE MVS Tape (SPLA Tape) File 107                  *   DOC FILE
//*+File 208:  SHARE MVS Tape (SPLA Tape) File 108                  *   DOC FILE
//*+File 209:  EMPTY                                                *   DOC FILE
//*+File 210:  EMPTY                                                *   DOC FILE
//*+File 211:  SHARE MVS Tape (SPLA Tape) File 111                  *   DOC FILE
//*+File 212:  SHARE MVS Tape (SPLA Tape) File 112                  *   DOC FILE
//*+File 213:  SHARE MVS Tape (SPLA Tape) File 113                  *   DOC FILE
//*+File 214:  SHARE MVS Tape (SPLA Tape) File 114                  *   DOC FILE
//*+File 215:  SHARE MVS Tape (SPLA Tape) File 115                  *   DOC FILE
//*+File 216:  SHARE MVS Tape (SPLA Tape) File 116                  *   DOC FILE
//*+File 217:  SHARE MVS Tape (SPLA Tape) File 117                  *   DOC FILE
//*+File 218:  SHARE MVS Tape (SPLA Tape) File 118                  *   DOC FILE
//*+File 219:  SHARE MVS Tape (SPLA Tape) File 119                  *   DOC FILE
//*+File 220:  SHARE MVS Tape (SPLA Tape) File 120                  *   DOC FILE
//*+File 221:  SHARE MVS Tape (SPLA Tape) File 121                  *   DOC FILE
//*+File 222:  SHARE MVS Tape (SPLA Tape) File 122                  *   DOC FILE
//*+File 223:  SHARE MVS Tape (SPLA Tape) File 123                  *   DOC FILE
//*+File 224:  SHARE MVS Tape (SPLA Tape) File 124                  *   DOC FILE
//*+File 225:  SHARE MVS Tape (SPLA Tape) File 125                  *   DOC FILE
//*+File 226:  SHARE MVS Tape (SPLA Tape) File 126                  *   DOC FILE
//*+File 227:  SHARE MVS Tape (SPLA Tape) File 127                  *   DOC FILE
//*+File 228:  SHARE MVS Tape (SPLA Tape) File 128                  *   DOC FILE
//*+File 229:  SHARE MVS Tape (SPLA Tape) File 129                  *   DOC FILE
//*+File 230:  SHARE MVS Tape (SPLA Tape) File 130                  *   DOC FILE
//*+File 231:  SHARE MVS Tape (SPLA Tape) File 131                  *   DOC FILE
//*+File 232:  SHARE MVS Tape (SPLA Tape) File 132                  *   DOC FILE
//*+File 233:  SHARE MVS Tape (SPLA Tape) File 133                  *   DOC FILE
//*+File 234:  SHARE MVS Tape (SPLA Tape) File 134                  *   DOC FILE
//*+File 235:  EMPTY                                                *   DOC FILE
//*+File 236:  EMPTY                                                *   DOC FILE
//*+File 237:  EMPTY                                                *   DOC FILE
//*+File 238:  EMPTY                                                *   DOC FILE
//*+File 239:  EMPTY                                                *   DOC FILE
//*+File 240:  MVS Is Breaking My Heart (a poem from 1975)          *   DOC FILE
//*+File 241:  SPY/CONSOLE TSO programs at MVS/XA 2.2.0 level       *   DOC FILE
//*+File 242:  Amdahl Dump Analysis Exits - MVS/370 era             *   DOC FILE
//*+File 243:  MVS Tuning Report from July 1983                     *   DOC FILE
//*+File 244:  QUEUE program for JES2 4.2 and 4.3                   *   DOC FILE
//*+File 245:  EMPTY                                                *   DOC FILE
//*+File 246:  EMPTY                                                *   DOC FILE
//*+File 247:  TSSO - Bellcore version - Release 4.3                *   DOC FILE
//*+File 248:  TSSO Mods by David Cartwright                        *   DOC FILE
//*+File 249:  TSSO 4.3A - File 402 fitted to File 401              *   DOC FILE
//*+File 250:  EMPTY                                                *   DOC FILE
//*+File 251:  EMPTY                                                *   DOC FILE
//*+File 252:  EMPTY                                                *   DOC FILE
//*+File 253:  EMPTY                                                *   DOC FILE
//*+File 254:  EMPTY                                                *   DOC FILE
//*+File 255:  EMPTY                                                *   DOC FILE
//*+File 256:  EMPTY                                                *   DOC FILE
//*+File 257:  EMPTY                                                *   DOC FILE
//*+File 258:  EMPTY                                                *   DOC FILE
//*+File 259:  EMPTY                                                *   DOC FILE
//*+File 260:  SHARE PL/1 Tape Documentation                        *   DOC FILE
//*+File 261:  ABE Editor Load Module Library                       *   DOC FILE
//*+File 262:  ABE Editor AID Library - Needed for ABE Online Help  *   DOC FILE
//*+File 263:  ABE Editor Documentation                             *   DOC FILE
//*+File 264:  ABE Editor Source Code                               *   DOC FILE
//*+File 265:  ABE Editor Subroutine Documentation                  *   DOC FILE
//*+File 266:  ABE Editor Subroutine "INCLUDE" Load Library         *   DOC FILE
//*+File 267:  ABE Editor Linkage Editor Control Statements         *   DOC FILE
//*+File 268:  ABE Editor Fortran Subroutine Source Code            *   DOC FILE
//*+File 269:  ABE Editor Fortran Subroutine Object Modules         *   DOC FILE
//*+File 270:  EMPTY                                                *   DOC FILE
//*+File 271:  QUANDARY Dept of Education File Lookup Documentation *   DOC FILE
//*+File 272:  QUANDARY Dept of Education File Lookup Assemblr Srce *   DOC FILE
//*+File 273:  QUANDARY Dept of Education File Lookup - CLISTs      *   DOC FILE
//*+File 274:  QUANDARY Dept of Education File Lookup - Jobstreams  *   DOC FILE
//*+File 275:  QUANDARY Dept of Education File Lookup - Listings    *   DOC FILE
//*+File 276:  QUANDARY Dept of Education File Lookup - PL1 Source  *   DOC FILE
//*+File 277:  QUANDARY Dept of Education File Lookup - Sample Data *   DOC FILE
//*+File 278:  Teledyne Script System from Ron Dickie               *   DOC FILE
//*+File 279:  Teledyne Script System from Ron Dickie               *   DOC FILE
//*+File 280:  Teledyne Script System Documentation                 *   DOC FILE
//*+File 281:  PL/1 Execution Analyzer (PLEA)                       *   DOC FILE
//*+File 282:  SORTPLI - Routines for calling SORT from PL/1        *   DOC FILE
//*+File 283:  Ron Dickie pgms for analyzing Load Libraries         *   DOC FILE
//*+File 284:  Statistical Analysis and Curve Fitting Programs      *   DOC FILE
//*+File 285:  Mike Robinson Programs                               *   DOC FILE
//*+File 286:  Mike Robinson Programs                               *   DOC FILE
//*+File 287:  VM PL/1 Execution Monitor (like PLEA)                *   DOC FILE
//*+File 288:  PL/1 3270 Terminal Interface from Bob Styma          *   DOC FILE
//*+File 289:  PL/1 IMS Database Interface                          *   DOC FILE
//*+File 290:  Program to Display a Dataset on 3270 in Dump Format  *   DOC FILE
//*+File 291:  PL/1 3270 Interface Programs from W.C. Hadden        *   DOC FILE
//*+File 292:  PL/1 Subroutine Call Structure Chart from Listing    *   DOC FILE
//*+File 293:  PL/1 CMS Interface                                   *   DOC FILE
//*+File 294:  Program to do complex source includes in another pgm *   DOC FILE
//*+File 295:  PL/1 Function Package Interface for VM, REXX, etc.   *   DOC FILE
//*+File 296:  EMPTY                                                *   DOC FILE
//*+File 297:  EMPTY                                                *   DOC FILE
//*+File 298:  EMPTY                                                *   DOC FILE
//*+File 299:  EMPTY                                                *   DOC FILE
//*+File 300:  EMPTY                                                *   DOC FILE
//*+File 301:  EMPTY                                                *   DOC FILE
//*+File 302:  EMPTY                                                *   DOC FILE
//*+File 303:  EMPTY                                                *   DOC FILE
//*+File 304:  EMPTY                                                *   DOC FILE
//*+File 305:  EMPTY                                                *   DOC FILE
//*+File 306:  EMPTY                                                *   DOC FILE
//*+File 307:  EMPTY                                                *   DOC FILE
//*+File 308:  EMPTY                                                *   DOC FILE
//*+File 309:  EMPTY                                                *   DOC FILE
//*+File 310:  EMPTY                                                *   DOC FILE
//*+File 311:  EMPTY                                                *   DOC FILE
//*+File 312:  EMPTY                                                *   DOC FILE
//*+File 313:  EMPTY                                                *   DOC FILE
//*+File 314:  EMPTY                                                *   DOC FILE
//*+File 315:  EMPTY                                                *   DOC FILE
//*+File 316:  EMPTY                                                *   DOC FILE
//*+File 317:  EMPTY                                                *   DOC FILE
//*+File 318:  EMPTY                                                *   DOC FILE
//*+File 319:  EMPTY                                                *   DOC FILE
//*+File 320:  EMPTY                                                *   DOC FILE
//*+File 321:  EMPTY                                                *   DOC FILE
//*+File 322:  EMPTY                                                *   DOC FILE
//*+File 323:  EMPTY                                                *   DOC FILE
//*+File 324:  EMPTY                                                *   DOC FILE
//*+File 325:  EMPTY                                                *   DOC FILE
//*+File 326:  EMPTY                                                *   DOC FILE
//*+File 327:  EMPTY                                                *   DOC FILE
//*+File 328:  EMPTY                                                *   DOC FILE
//*+File 329:  EMPTY                                                *   DOC FILE
//*+File 330:  EMPTY                                                *   DOC FILE
//*+File 331:  EMPTY                                                *   DOC FILE
//*+File 332:  EMPTY                                                *   DOC FILE
//*+File 333:  EMPTY                                                *   DOC FILE
//*+File 334:  EMPTY                                                *   DOC FILE
//*+File 335:  EMPTY                                                *   DOC FILE
//*+File 336:  EMPTY                                                *   DOC FILE
//*+File 337:  EMPTY                                                *   DOC FILE
//*+File 338:  EMPTY                                                *   DOC FILE
//*+File 339:  EMPTY                                                *   DOC FILE
//*+File 340:  EMPTY                                                *   DOC FILE
//*+File 341:  EMPTY                                                *   DOC FILE
//*+File 342:  EMPTY                                                *   DOC FILE
//*+File 343:  EMPTY                                                *   DOC FILE
//*+File 344:  EMPTY                                                *   DOC FILE
//*+File 345:  EMPTY                                                *   DOC FILE
//*+File 346:  EMPTY                                                *   DOC FILE
//*+File 347:  EMPTY                                                *   DOC FILE
//*+File 348:  EMPTY                                                *   DOC FILE
//*+File 349:  EMPTY                                                *   DOC FILE
//*+File 350:  EMPTY                                                *   DOC FILE
//*+File 351:  EMPTY                                                *   DOC FILE
//*+File 352:  EMPTY                                                *   DOC FILE
//*+File 353:  EMPTY                                                *   DOC FILE
//*+File 354:  EMPTY                                                *   DOC FILE
//*+File 355:  EMPTY                                                *   DOC FILE
//*+File 356:  EMPTY                                                *   DOC FILE
//*+File 357:  EMPTY                                                *   DOC FILE
//*+File 358:  EMPTY                                                *   DOC FILE
//*+File 359:  EMPTY                                                *   DOC FILE
//*+File 360:  EMPTY                                                *   DOC FILE
//*+File 361:  EMPTY                                                *   DOC FILE
//*+File 362:  EMPTY                                                *   DOC FILE
//*+File 363:  EMPTY                                                *   DOC FILE
//*+File 364:  EMPTY                                                *   DOC FILE
//*+File 365:  EMPTY                                                *   DOC FILE
//*+File 366:  EMPTY                                                *   DOC FILE
//*+File 367:  EMPTY                                                *   DOC FILE
//*+File 368:  EMPTY                                                *   DOC FILE
//*+File 369:  EMPTY                                                *   DOC FILE
//*+File 370:  EMPTY                                                *   DOC FILE
//*+File 371:  EMPTY                                                *   DOC FILE
//*+File 372:  EMPTY                                                *   DOC FILE
//*+File 373:  EMPTY                                                *   DOC FILE
//*+File 374:  EMPTY                                                *   DOC FILE
//*+File 375:  EMPTY                                                *   DOC FILE
//*+File 376:  EMPTY                                                *   DOC FILE
//*+File 377:  EMPTY                                                *   DOC FILE
//*+File 378:  EMPTY                                                *   DOC FILE
//*+File 379:  EMPTY                                                *   DOC FILE
//*+File 380:  EMPTY                                                *   DOC FILE
//*+File 381:  EMPTY                                                *   DOC FILE
//*+File 382:  EMPTY                                                *   DOC FILE
//*+File 383:  EMPTY                                                *   DOC FILE
//*+File 384:  EMPTY                                                *   DOC FILE
//*+File 385:  EMPTY                                                *   DOC FILE
//*+File 386:  EMPTY                                                *   DOC FILE
//*+File 387:  EMPTY                                                *   DOC FILE
//*+File 388:  EMPTY                                                *   DOC FILE
//*+File 389:  EMPTY                                                *   DOC FILE
//*+File 390:  EMPTY                                                *   DOC FILE
//*+File 391:  EMPTY                                                *   DOC FILE
//*+File 392:  EMPTY                                                *   DOC FILE
//*+File 393:  EMPTY                                                *   DOC FILE
//*+File 394:  EMPTY                                                *   DOC FILE
//*+File 395:  EMPTY                                                *   DOC FILE
//*+File 396:  EMPTY                                                *   DOC FILE
//*+File 397:  EMPTY                                                *   DOC FILE
//*+File 398:  EMPTY                                                *   DOC FILE
//*+File 399:  EMPTY                                                *   DOC FILE
//*+File 400:  EMPTY                                                *   DOC FILE
//*+File 401:  EMPTY                                                *   DOC FILE
//*+File 402:  EMPTY                                                *   DOC FILE
//*+File 403:  EMPTY                                                *   DOC FILE
//*+File 404:  EMPTY                                                *   DOC FILE
//*+File 405:  EMPTY                                                *   DOC FILE
//*+File 406:  EMPTY                                                *   DOC FILE
//*+File 407:  EMPTY                                                *   DOC FILE
//*+File 408:  EMPTY                                                *   DOC FILE
//*+File 409:  EMPTY                                                *   DOC FILE
//*+File 410:  EMPTY                                                *   DOC FILE
//*+File 411:  EMPTY                                                *   DOC FILE
//*+File 412:  EMPTY                                                *   DOC FILE
//*+File 413:  EMPTY                                                *   DOC FILE
//*+File 414:  EMPTY                                                *   DOC FILE
//*+File 415:  EMPTY                                                *   DOC FILE
//*+File 416:  EMPTY                                                *   DOC FILE
//*+File 417:  EMPTY                                                *   DOC FILE
//*+File 418:  EMPTY                                                *   DOC FILE
//*+File 419:  EMPTY                                                *   DOC FILE
//*+File 420:  EMPTY                                                *   DOC FILE
//*+File 421:  EMPTY                                                *   DOC FILE
//*+File 422:  EMPTY                                                *   DOC FILE
//*+File 423:  EMPTY                                                *   DOC FILE
//*+File 424:  EMPTY                                                *   DOC FILE
//*+File 425:  EMPTY                                                *   DOC FILE
//*+File 426:  EMPTY                                                *   DOC FILE
//*+File 427:  EMPTY                                                *   DOC FILE
//*+File 428:  EMPTY                                                *   DOC FILE
//*+File 429:  EMPTY                                                *   DOC FILE
//*+File 430:  EMPTY                                                *   DOC FILE
//*+File 431:  EMPTY                                                *   DOC FILE
//*+File 432:  EMPTY                                                *   DOC FILE
//*+File 433:  EMPTY                                                *   DOC FILE
//*+File 434:  EMPTY                                                *   DOC FILE
//*+File 435:  EMPTY                                                *   DOC FILE
//*+File 436:  EMPTY                                                *   DOC FILE
//*+File 437:  EMPTY                                                *   DOC FILE
//*+File 438:  EMPTY                                                *   DOC FILE
//*+File 439:  EMPTY                                                *   DOC FILE
//*+File 440:  EMPTY                                                *   DOC FILE
//*+File 441:  EMPTY                                                *   DOC FILE
//*+File 442:  EMPTY                                                *   DOC FILE
//*+File 443:  EMPTY                                                *   DOC FILE
//*+File 444:  EMPTY                                                *   DOC FILE
//*+File 445:  EMPTY                                                *   DOC FILE
//*+File 446:  EMPTY                                                *   DOC FILE
//*+File 447:  EMPTY                                                *   DOC FILE
//*+File 448:  EMPTY                                                *   DOC FILE
//*+File 449:  EMPTY                                                *   DOC FILE
//*+File 450:  EMPTY                                                *   DOC FILE
//*+File 451:  EMPTY                                                *   DOC FILE
//*+File 452:  EMPTY                                                *   DOC FILE
//*+File 453:  EMPTY                                                *   DOC FILE
//*+File 454:  EMPTY                                                *   DOC FILE
//*+File 455:  EMPTY                                                *   DOC FILE
//*+File 456:  EMPTY                                                *   DOC FILE
//*+File 457:  EMPTY                                                *   DOC FILE
//*+File 458:  EMPTY                                                *   DOC FILE
//*+File 459:  EMPTY                                                *   DOC FILE
//*+File 460:  EMPTY                                                *   DOC FILE
//*+File 461:  EMPTY                                                *   DOC FILE
//*+File 462:  EMPTY                                                *   DOC FILE
//*+File 463:  EMPTY                                                *   DOC FILE
//*+File 464:  EMPTY                                                *   DOC FILE
//*+File 465:  EMPTY                                                *   DOC FILE
//*+File 466:  EMPTY                                                *   DOC FILE
//*+File 467:  EMPTY                                                *   DOC FILE
//*+File 468:  EMPTY                                                *   DOC FILE
//*+File 469:  EMPTY                                                *   DOC FILE
//*+File 470:  EMPTY                                                *   DOC FILE
//*+File 471:  EMPTY                                                *   DOC FILE
//*+File 472:  EMPTY                                                *   DOC FILE
//*+File 473:  EMPTY                                                *   DOC FILE
//*+File 474:  EMPTY                                                *   DOC FILE
//*+File 475:  EMPTY                                                *   DOC FILE
//*+File 476:  EMPTY                                                *   DOC FILE
//*+File 477:  EMPTY                                                *   DOC FILE
//*+File 478:  EMPTY                                                *   DOC FILE
//*+File 479:  EMPTY                                                *   DOC FILE
//*+File 480:  EMPTY                                                *   DOC FILE
//*+File 481:  EMPTY                                                *   DOC FILE
//*+File 482:  EMPTY                                                *   DOC FILE
//*+File 483:  EMPTY                                                *   DOC FILE
//*+File 484:  EMPTY                                                *   DOC FILE
//*+File 485:  EMPTY                                                *   DOC FILE
//*+File 486:  EMPTY                                                *   DOC FILE
//*+File 487:  EMPTY                                                *   DOC FILE
//*+File 488:  EMPTY                                                *   DOC FILE
//*+File 489:  EMPTY                                                *   DOC FILE
//*+File 490:  EMPTY                                                *   DOC FILE
//*+File 491:  EMPTY                                                *   DOC FILE
//*+File 492:  EMPTY                                                *   DOC FILE
//*+File 493:  EMPTY                                                *   DOC FILE
//*+File 494:  EMPTY                                                *   DOC FILE
//*+File 495:  EMPTY                                                *   DOC FILE
//*+File 496:  EMPTY                                                *   DOC FILE
//*+File 497:  EMPTY                                                *   DOC FILE
//*+File 498:  EMPTY                                                *   DOC FILE
//*+File 499:  EMPTY                                                *   DOC FILE
//*+File 500:  EMPTY                                                *   DOC FILE
//*******************************************************************   DOC FILE
//*******************************************************************   DOC FILE
//***USING THIS TAPE SECTION                                        *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*      U S I N G    T H I S    T A P E    S E C T I O N           *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*  This tape is NON-LABELED and contains 500 files.               *   DOC FILE
//*                                                                 *   DOC FILE
//*  THE FIRST THREE FILES ON THIS TAPE ARE SEQUENTIAL FILES,       *   DOC FILE
//*  RECFM=FB,LRECL=80,BLKSIZE=32720.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*  FILE 001 CONTAINS THIS INFORMATION (YOU ARE READING IT).       *   DOC FILE
//*  IT IS A CATALOG OF WHAT'S ON THIS TAPE, AND IT HAS SUNDRY      *   DOC FILE
//*  OTHER INFORMATION.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*  FILE 002 CONTAINS ASSEMBLER SOURCE FOR THE PROGRAM WHICH       *   DOC FILE
//*  DECOMPRESSES MANY OF THE OTHER FILES ON THIS TAPE.  THAT       *   DOC FILE
//*  PROGRAM IS CALLED CBT973.  I'D ADVISE ASSEMBLING AND           *   DOC FILE
//*  LINKEDITING THE CBT973 PROGRAM, AND CUSTOMIZING THE JCL        *   DOC FILE
//*  OF FILE 003 TO USE THE LINKEDITED PROGRAM.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*  FILE 003 CONTAINS JCL TO LOAD THE OTHER (NONTRIVIAL) FILES     *   DOC FILE
//*  ON THE TAPE TO DISK.  FILE 003 MAY BE CUSTOMIZED TO LOAD       *   DOC FILE
//*  JUST A FEW OF THE FILES AT A TIME.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*  MY OWN PRACTICE IS TO CREATE A PDS THAT CONTAINS THE CONTENTS  *   DOC FILE
//*  OF FILES 001 AND 003.  THEN I WORK FROM THAT PDS TO CUSTOMIZE  *   DOC FILE
//*  THE JCL ON FILE 003.  THERE ARE ALL KINDS OF VARIATIONS        *   DOC FILE
//*  AMONG PEOPLE ON HOW THEY HANDLE A CBT TAPE.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*  ONE THING FOR SURE--TRY TO TAKE INTO ACCOUNT THAT THIS TAPE    *   DOC FILE
//*  IS UPDATED QUITE FREQUENTLY.  IT PAYS TO STAY AS CURRENT AS    *   DOC FILE
//*  POSSIBLE.                                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*  ONE FURTHER NOTE.  MOST SOURCE FILES ARE NOW IN IEBUPDTE       *   DOC FILE
//*  SYSIN FORMAT SO THAT THE TAPEMAP PROGRAM CAN REPORT ON         *   DOC FILE
//*  MEMBER NAMES CONTAINED IN THESE FILES.  THIS MEANS THAT        *   DOC FILE
//*  THEY ARE UNLOADED PDS'ES.  PLAIN SEQUENTIAL FILES THAT WERE    *   DOC FILE
//*  ON THE TAPE BEFORE, HAVE BEEN CONVERTED TO PDS'ES WITH A       *   DOC FILE
//*  SINGLE MEMBER, SO THE TAPEMAP PROGRAM CAN REPORT THE MEMBER    *   DOC FILE
//*  NAME.                                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*  MOST NEW FILES ARE BEING STORED ON THE TAPE WITH ISPF STATS    *   DOC FILE
//*  PRESERVED.  IN ORDER TO GET THE STATS, YOU HAVE TO USE THE     *   DOC FILE
//*  PDSLOAD PROGRAM TO CONSTRUCT THE PDS, INSTEAD OF USING         *   DOC FILE
//*  IEBUPDTE.  THE PDSLOAD LOAD MODULE IS ON FILE 008.  SEE THE    *   DOC FILE
//*  NOTES ON PDSLOAD THAT ARE IN FILE 003 FOR FURTHER INSTRUCTION. *   DOC FILE
//*  IN THE "FILE STATUS SECTION" BELOW IN THIS FILE, YOU CAN SEE   *   DOC FILE
//*  THOSE FILES WHICH HAVE ISPF STATS PRESERVED, BY AN "S" MARKED  *   DOC FILE
//*  AFTER THE COUNT OF THE NUMBER OF RECORDS IN THAT FILE.         *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*******************************************************************   DOC FILE
//***REGULAR NEWS SECTION                                           *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*      R E G U L A R      N E W S      S E C T I O N              *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                    READ  THIS  SECTION                          *   DOC FILE
//*                                                                 *   DOC FILE
//*   (This is from the Regular CBT Tape.)                          *   DOC FILE
//*                                                                 *   DOC FILE
//*   The CBT Tape is now being edited by Sam Golob.  This tape     *   DOC FILE
//*   was established and previously edited by Arnold               *   DOC FILE
//*   Casinghino.  Arnie Casinghino has supported the Regular       *   DOC FILE
//*   CBT Tape for over 15 years, from Version 1 through Version    *   DOC FILE
//*   321.  Almost every MVS installation in the world has          *   DOC FILE
//*   benefited in some way from materials on some version of       *   DOC FILE
//*   this tape.  (Certainly EVERY MVS installation has             *   DOC FILE
//*   benefited, because suggestions originating from materials     *   DOC FILE
//*   on this tape have found their way to IBM development desks    *   DOC FILE
//*   through user requirements, and have become a part of the      *   DOC FILE
//*   MVS Operating System itself.)                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*   Our plan is to keep the initials "CBT" even though this       *   DOC FILE
//*   tape is no longer supported at the Connecticut Bank and       *   DOC FILE
//*   Trust Company, because those initials reflect how the tape    *   DOC FILE
//*   should be properly and accurately referred to.  For now,      *   DOC FILE
//*   I'm calling it the "CBT" MVS Utilities Tape without the       *   DOC FILE
//*   initials CBT meaning anything special.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*   ALL DISCLAIMERS IN THIS FILE NOW APPLY TO ALL PERSONS,        *   DOC FILE
//*   INSTALLATIONS, CORPORATIONS, INSTITUTIONS, ENTITIES, OR       *   DOC FILE
//*   ORGANIZAIONS EDITING, DUPLICATING, OR OTHERWISE HANDLING      *   DOC FILE
//*   THIS TAPE.                                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*   NO RESPONSIBILITIES ARE ASSUMED BY ANY OF THESE PERSONS,      *   DOC FILE
//*   INSTALLATIONS, CORPORATIONS, INSTITUTIONS, ENTITIES, OR       *   DOC FILE
//*   ORGANIZATIONS.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*   All disclaimers apply to materials on this CBT Overflow       *   DOC FILE
//*   Tape, as well as to the regular CBT Tape itself, and to       *   DOC FILE
//*   any materials that will be on the "CBT Overflow Tape Two".    *   DOC FILE
//*                                                                 *   DOC FILE
//*   ANY QUESTIONS CONCERNING DOCUMENTATION SHOULD BE DIRECTED     *   DOC FILE
//*   TO THE CURRENT EDITOR.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//***TAPE ORDER SECTION     (WHO YOU GONNA CALL .... )              *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*      T  A  P  E    O  R  D  E  R    S  E  C  T  I  O  N         *   DOC FILE
//*                                                                 *   DOC FILE
//*                 (WITH CONTRIBUTOR INFORMATION)                  *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*   ORDER INFORMATION FOR THE CBT TAPE IS CURRENT AS OF THE       *   DOC FILE
//*   DATE OF ISSUE OF THIS TAPE.  THIS TAPE'S DATE OF ISSUE IS     *   DOC FILE
//*   DISPLAYED AT THE HEAD OF THIS FILE.  (FOR YOUR INFORMATION,   *   DOC FILE
//*   IF A CBT TAPE IS MAPPED BY THE LATEST VERSION OF THE TAPEMAP  *   DOC FILE
//*   PROGRAM ON FILE 007, THE DATE OF ISSUE OF THAT TAPE WILL BE   *   DOC FILE
//*   DISPLAYED IN REPORT #1 OF TAPEMAP.)  COPIES OF THE CBT TAPE   *   DOC FILE
//*   MAY BE ORDERED FROM THE SOURCES LISTED BELOW.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*  CONTRIBUTOR INFORMATION                                        *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*    CONTRIBUTIONS TO THIS TAPE ARE NOT REALLY RELEVANT, SINCE,   *   DOC FILE
//*    AS AN OVERFLOW, THE NEW CONTRIBUTIONS WILL BE MADE TO THE    *   DOC FILE
//*    REGULAR CBT TAPE, AND NOT TO THIS TAPE, UNLESS IT IS A LOT   *   DOC FILE
//*    OF CODE, OR OLDER CODE, OR A LOT OF OLDER CODE.              *   DOC FILE
//*                                                                 *   DOC FILE
//*  -------------------------------------------------------------  *   DOC FILE
//*                                                                 *   DOC FILE
//*   MY ADDRESS: (USE THE FOLLOWING ADDRESS UNTIL FURTHER NOTICE)  *   DOC FILE
//*                                                                 *   DOC FILE
//*            SAM GOLOB             (PLEASE USE THIS ADDRESS)      *   DOC FILE
//*            P.O. BOX 906                                         *   DOC FILE
//*            TALLMAN, NY 10982-0906                               *   DOC FILE
//*                                                                 *   DOC FILE
//*                      NEW PHONE NUMBER:    845-362-1996          *   DOC FILE
//*                                                                 *   DOC FILE
//*      CONTRIBUTIONS TO THIS TAPE CAN NOW BE MADE THROUGH THE     *   DOC FILE
//*      INTERNET, BY EMAIL.  MY EMAIL ADDRESSES ARE:               *   DOC FILE
//*                                                                 *   DOC FILE
//*          sbgolob@aol.com    and    sbgolob@attglobal.net        *   DOC FILE
//*                                                                 *   DOC FILE
//*      FOR EMAIL OR FTP CONTRIBUTIONS, PLEASE CONTACT ME AT       *   DOC FILE
//*      EITHER OF THESE EMAIL ADDRESSES FOR INFORMATION.           *   DOC FILE
//*                                                                 *   DOC FILE
//*      A PDS THAT WAS PUT INTO TSO XMIT FORMAT MAY BE DOWN-       *   DOC FILE
//*      LOADED TO A PC (OPTIONALLY PKZIP'ED) AND ATTACHED AS       *   DOC FILE
//*      A FILE TO AN EMAIL MESSAGE, OR (ALTERNATIVELY) FTP'ED      *   DOC FILE
//*      TO GILBERT SAINT-FLOUR'S FTP SITE.  PLEASE EMAIL ME FOR    *   DOC FILE
//*      FURTHER INFORMATION.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*       (IF MY CONTACT INFORMATION BECOMES OBSOLETE, PLEASE       *   DOC FILE
//*        CALL THE MEMBERSHIP OFFICER AT NASPA 414-768-8000        *   DOC FILE
//*        WHERE I INTEND TO LEAVE MY NEW INFORMATION. )            *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*  ORDER INFORMATION - ORDER INFORMATION - ORDER INFORMATION      *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*     YOU DO NOT HAVE TO BE AT A SHARE OR GUIDE                   *   DOC FILE
//*     INSTALLATION TO OBTAIN A COPY OF THIS TAPE.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*     This tape may be ordered from:                              *   DOC FILE
//*                                                                 *   DOC FILE
//*                    NASPA                                        *   DOC FILE
//*                    NATIONAL SYSTEMS PROGRAMMERS ASSOCIATION     *   DOC FILE
//*                    7040 S. 13TH STREET                          *   DOC FILE
//*                    OAK CREEK, WISCONSIN 53154                   *   DOC FILE
//*                    (414) 768-8000                               *   DOC FILE
//*                        (THEIR HANDLING FEE APPLIES.)            *   DOC FILE
//*                                                                 *   DOC FILE
//*       NaSPA home page:    www.naspa.net                         *   DOC FILE
//*                                                                 *   DOC FILE
//*   (NaSPA HAS moved from their previous location.  Please note   *   DOC FILE
//*    their current address.)                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*******************************************************************   DOC FILE
//***SECTION INFORMATION SECTION                                    *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*          I N F O R M A T I O N     S E C T I O N                *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*   EDITOR'S PHONE NUMBER:  SAM GOLOB                             *   DOC FILE
//*                      NEW PHONE NUMBER:    845-362-1996          *   DOC FILE
//*                                                                 *   DOC FILE
//*   EDITOR'S CONTACT INFORMATION:                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*      ADDRESS: (USE THE FOLLOWING ADDRESS UNTIL FURTHER NOTICE)  *   DOC FILE
//*                                                                 *   DOC FILE
//*            SAM GOLOB             (PLEASE USE THIS ADDRESS)      *   DOC FILE
//*            P.O. BOX 906                                         *   DOC FILE
//*            TALLMAN, NY 10982-0906                               *   DOC FILE
//*                                                                 *   DOC FILE
//*                      NEW PHONE NUMBER:    845-362-1996          *   DOC FILE
//*                                                                 *   DOC FILE
//*       (IF MY CONTACT INFORMATION BECOMES OBSOLETE, PLEASE       *   DOC FILE
//*        CALL THE MEMBERSHIP OFFICER AT NASPA 414-768-8000        *   DOC FILE
//*        WHERE I INTEND TO LEAVE MY NEW INFORMATION. )            *   DOC FILE
//*                                                                 *   DOC FILE
//* --                        NASPA                              -- *   DOC FILE
//* --                        7040 S. 13TH STREET                -- *   DOC FILE
//* --                        OAK CREEK, WI 53154                -- *   DOC FILE
//* --                        414-768-8000                       -- *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*   Arnold Casinghino's phone number:   (860) 823-2739            *   DOC FILE
//*   Arnold Casinghino's email address:  acasingh@cscmail.csc.com  *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*   ARNOLD CASINGHINO'S CONTACT INFORMATION:  (ARNIE IS NOT       *   DOC FILE
//*   CURRENTLY EDITING THIS TAPE, BUT IS A "CONSULTING PARTNER".)  *   DOC FILE
//*                                                                 *   DOC FILE
//*                     ARNOLD CASINGHINO                           *   DOC FILE
//*                     COMPUTER SCIENCES CORPORATION               *   DOC FILE
//*                     TECHNOLOGY MANAGEMENT DIVISION              *   DOC FILE
//*                     100 WINNENTEN ROAD                          *   DOC FILE
//*                     NORWICH, CT   06360                         *   DOC FILE
//*                                                                 *   DOC FILE
//*   DIRECT LINE       1-860-823-2739 ( MON - FRI )                *   DOC FILE
//*   Arnold Casinghino's email address:  acasingh@cscmail.csc.com  *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*      THE CBT OVERFLOW MVS TAPE WILL BE SHIPPED ONLY             *   DOC FILE
//*       ON 3480 NON-IDRC TAPE CARTRIDGE  (MUCH PREFERRED)         *   DOC FILE
//*       OR ON 6250 BPI REEL (3600 FOOT SIZE ONLY).                *   DOC FILE
//*                                                                 *   DOC FILE
//*     The CBT Overflow Tape is available online on the INTERNET   *   DOC FILE
//*     at:                                                         *   DOC FILE
//*             http://www.cbttape.org   Click "Download Overflow"  *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*   DOC FILE
//*                                                                 *   DOC FILE
//* THE TAPE IS NOW COMPRESSED                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*                              ALL COMPRESSED FILES HAVE          *   DOC FILE
//*                              THE FOLLOWING DCB ATTRIBUTES:      *   DOC FILE
//*                              RECFM=VB,LRECL=94,BLKSIZE=32716    *   DOC FILE
//*                                                                 *   DOC FILE
//*    ALL 80 BYTE RECORD FILES WILL BE COMPRESSED EXCEPT           *   DOC FILE
//*    FOR THE FOLLOWING                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*          FILE 001     This File                                 *   DOC FILE
//*          FILE 002     COMPRESSION/DECOMPRESSION program         *   DOC FILE
//*                            which is called "CBT973"             *   DOC FILE
//*          FILE 003     JCL to drop the whole tape down           *   DOC FILE
//*          FILE 004     Assembler program to put IEBUPDTE         *   DOC FILE
//*                            ./ ADD cards into this doc           *   DOC FILE
//*          FILE 005     REXX EXEC to drop this tape to VM         *   DOC FILE
//*                                                                 *   DOC FILE
//*    THESE 4 FILES HAVE DCB:  RECFM=FB,LRECL=80,BLKSIZE=32720     *   DOC FILE
//*                                                                 *   DOC FILE
//*$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()# * ==DOC FILE
//*$%^ *()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^& ()# * ==DOC FILE
//*$%^  ()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^  ()# * ==DOC FILE
//*$%^   )#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%   ()# * ==DOC FILE
//*$%^    #$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$    ()# * ==DOC FILE
//*$%^     $%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#     ()# * ==DOC FILE
//*$%^      %^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()      ()# * ==DOC FILE
//*$%^       ^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*        ()# * ==DOC FILE
//*$%^        &*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&         ()# * ==DOC FILE
//*$%^         *()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^          ()# * ==DOC FILE
//*$%^          ()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%           ()# * ==DOC FILE
//*$%^           )#$%^&*()#$%^&*()#$%^&*()#$%^&*()#             ()# * ==DOC FILE
//*$%^            #$%^&*()#$%^&*()#$%^&*()#$%^&*()              ()# * ==DOC FILE
//*$%^             $%^&*()#$%^&*()#$%^&*()#$%^&*(               ()# * ==DOC FILE
//*$%^              %^&*()#$%^&*()#$%^&*()#$%^&                 ()# * ==DOC FILE
//*$%^               ^&*()#$%^&*()#$%^&*()#$%^                  ()# * ==DOC FILE
//*$%^                 *()#$%^&*()#$%^&*()#$%                   ()# * ==DOC FILE
//*$%^                  ()#$%^&*()#$%^&*()#$                    ()# * ==DOC FILE
//*$%^                   )#$%^&*()#$%^&*()#                     ()# * ==DOC FILE
//*$%^                    #$%^&*()#$%^&*()                      ()# * ==DOC FILE
//*$%^                     $%^&*()#$%^&*(                       ()# * ==DOC FILE
//*$%^                      %^&*()#$%^&*                        ()# * ==DOC FILE
//*$%^                       ^&*()#$%^&                         ()# * ==DOC FILE
//*$%^                        &*()#$%^                          ()# * ==DOC FILE
//*$%^                         *()#$%                           ()# * ==DOC FILE
//*$%^                          ()#$                            ()# * ==DOC FILE
//*$%^                           )#                             ()# * ==DOC FILE
//*$%^                                                          ()# * ==DOC FILE
//*$%^  THE TAPEMAP PROGRAM IN FILE 007 OF THIS TAPE HAS BEEN   ()# *   DOC FILE
//*$%^  UPDATED TO LOOK FOR A TAPE IN THE CBT MVS UTILITIES     ()# *   DOC FILE
//*$%^  TAPE FORMAT AND PRODUCE AN ABUNDANCE OF ADDITIONAL      ()# *   DOC FILE
//*$%^  INFORMATION TO ALLOW THE USER TO FIND HIS WAY THROUGH   ()# *   DOC FILE
//*$%^  THIS TAPE.  A COMPILED VERSION OF THAT CODE IS ALSO IN  ()# *   DOC FILE
//*$%^  FILE 008.  YOU CAN GET DIRECTLY TO FILE 008 BY SPECIFY- ()# *   DOC FILE
//*$%^  ING LABEL=(08,NL) ON YOUR IEBCOPY UNLOAD JCL FOR THIS   ()# *   DOC FILE
//*$%^  TAPE.  ALL MEMBER NAMES OF MOST FILES WILL BE DISPLAYED ()# *   DOC FILE
//*$%^  BY THE REPORT #2 OF THE TAPEMAP PROGRAM, WHICH IS       ()# *   DOC FILE
//*$%^  DDNAME SYSPRNT2.                                        ()# *   DOC FILE
//*$%^                                                          ()# * ==DOC FILE
//*$%^                           )#                             ()# * ==DOC FILE
//*$%^                         *()#$%                           ()# * ==DOC FILE
//*$%^                        &*()#$%^                          ()# * ==DOC FILE
//*$%^                       ^&*()#$%^&                         ()# * ==DOC FILE
//*$%^                      %^&*()#$%^&*                        ()# * ==DOC FILE
//*$%^                     $%^&*()#$%^&*(                       ()# * ==DOC FILE
//*$%^                    #$%^&*()#$%^&*()                      ()# * ==DOC FILE
//*$%^                   )#$%^&*()#$%^&*()#                     ()# * ==DOC FILE
//*$%^                  ()#$%^&*()#$%^&*()#$                    ()# * ==DOC FILE
//*$%^                  ()#$%^&*()#$%^&*()#$                    ()# * ==DOC FILE
//*$%^                 *()#$%^&*()#$%^&*()#$%                   ()# * ==DOC FILE
//*$%^               ^&*()#$%^&*()#$%^&*()#$%^                  ()# * ==DOC FILE
//*$%^              %^&*()#$%^&*()#$%^&*()#$%^&                 ()# * ==DOC FILE
//*$%^              %^&*()#$%^&*()#$%^&*()#$%^&*                ()# * ==DOC FILE
//*$%^             $%^&*()#$%^&*()#$%^&*()#$%^&*(               ()# * ==DOC FILE
//*$%^            #$%^&*()#$%^&*()#$%^&*()#$%^&*()              ()# * ==DOC FILE
//*$%^           )#$%^&*()#$%^&*()#$%^&*()#$%^&*()#             ()# * ==DOC FILE
//*$%^          ()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%           ()# * ==DOC FILE
//*$%^         *()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^          ()# * ==DOC FILE
//*$%^        &*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&         ()# * ==DOC FILE
//*$%^       ^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*        ()# * ==DOC FILE
//*$%^      %^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()      ()# * ==DOC FILE
//*$%^     $%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#     ()# * ==DOC FILE
//*$%^    #$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$    ()# * ==DOC FILE
//*$%^   )#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%   ()# * ==DOC FILE
//*$%^  ()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^  ()# * ==DOC FILE
//*$%^ *()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^& ()# * ==DOC FILE
//*$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()# * ==DOC FILE
//*                                                                 *   DOC FILE
//*    LOOK IN THIS FILE AT THE SECTION ENTITLED "FILE STATUS       *   DOC FILE
//*    SECTION" TO SEE EXACTLY WHAT FILES ARE IN COMPRESSED         *   DOC FILE
//*    FORMAT AND WHICH ARE NOT IN COMPRESSED FORMAT                *   DOC FILE
//*                                                                 *   DOC FILE
//*    When additions are added to the Overflow Tape, they will     *   DOC FILE
//*    probably be added to the next non-empty slot.  However,      *   DOC FILE
//*    I have created 500 slots for files on this tape, the         *   DOC FILE
//*    same way that the Regular CBT tape has 500 files on it.      *   DOC FILE
//*    I reserve the right to skip some empty slots if I feel       *   DOC FILE
//*    this is needed, or if it seems to make sense.                *   DOC FILE
//*                                                                 *   DOC FILE
//*    FILE 3 WHICH IS THE JCL TO DROP THE WHOLE TAPE DOWN WILL     *   DOC FILE
//*    BE CURRENT AND UP-TO-DATE TO THE VERSION OF THE TAPE ON      *   DOC FILE
//*    WHICH IT APPEARS (HOPEFULLY).                                *   DOC FILE
//*                                                                 *   DOC FILE
//*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*   DOC FILE
//*                                                                 *   DOC FILE
//*      THIS TAPE IS CUMULATIVE.  EACH FILE ON THE TAPE IS THE     *   DOC FILE
//*      LATEST VERSION OF THAT FILE WITH ANY AND ALL MAINTENANCE   *   DOC FILE
//*      APPLIED TO IT, EXCEPT WHERE SPECIFICALLY NOTED.  THE DATE  *   DOC FILE
//*      OF LAST UPDATE SHOULD APPEAR IN THE FILE STATUS SECTION    *   DOC FILE
//*      BELOW.                                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*      If you have any problems processing the data on the tape   *   DOC FILE
//*      or find any errors please let me know and I will attempt   *   DOC FILE
//*      to correct them.  (Sam Golob)                              *   DOC FILE
//*                                                                 *   DOC FILE
//*      A. WE SOMETIMES HAVE CHANGED CODE THAT PEOPLE HAVE SENT    *   DOC FILE
//*         US.  WHEN WE DID, WE TRIED TO PUT OUR INITIALS ON       *   DOC FILE
//*         THE LINES OF CODE THAT WE HAVE MODIFIED.                *   DOC FILE
//*                                                                 *   DOC FILE
//*         THE CURRENT SET OF INITIALS ARE                         *   DOC FILE
//*                                                                 *   DOC FILE
//*                              CBT        SBG                     *   DOC FILE
//*                              AXC        NWK                     *   DOC FILE
//*                                                                 *   DOC FILE
//*         (EDITOR'S INITIALS ------   SBG    OR    NWK)           *   DOC FILE
//*                                                                 *   DOC FILE
//*         TO FIND OUT WHAT WE DID USE THE TSO EDITOR AND ISSUE    *   DOC FILE
//*         THE FOLLOWING AGAINST THE PROGRAM IN QUESTION           *   DOC FILE
//*                                                                 *   DOC FILE
//*             V                                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*             C 0 99999999 / CBT / CBT / ALL                      *   DOC FILE
//*                                                                 *   DOC FILE
//*             C 0 99999999 / AXC / AXC / ALL                      *   DOC FILE
//*                                                                 *   DOC FILE
//*             C 0 99999999 / SBG / SBG / ALL                      *   DOC FILE
//*                                                                 *   DOC FILE
//*             C 0 99999999 / NWK / NWK / ALL                      *   DOC FILE
//*                                                                 *   DOC FILE
//*         OR USE WHATEVER OTHER PROGRAM YOU HAVE THAT WILL GIVE   *   DOC FILE
//*         THE SAME TYPE OF INFORMATION.  (e.g. the ISPF editor)   *   DOC FILE
//*                                                                 *   DOC FILE
//*      B. If you ever want to know what is on the current version *   DOC FILE
//*         of the tape call Sam Golob.  Contact information is     *   DOC FILE
//*         listed on this file.  Email addresses:                  *   DOC FILE
//*                                                                 *   DOC FILE
//*         sbgolob@attglobal.net and/or sbgolob@aol.com            *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*******************************************************************   DOC FILE
//***SECTION MODIFICATION TAPE SECTION                              *   DOC FILE
//*******************************************************************   DOC FILE
//*      M O D I F I C A T I O N    T A P E S    S E C T I O N      *   DOC FILE
//*******************************************************************   DOC FILE
//*  -------------------------------------------------------------  *   DOC FILE
//*  - ========================================================= -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==   THERE ARE A QUITE A FEW UTILITY AND MODS TAPES    == -  *   DOC FILE
//*  - ==   AROUND.                                           == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==   ABSTRACTS OF THE CONTENTS OF MANY OF THESE TAPES  == -  *   DOC FILE
//*  - ==   CAN NOW BE FOUND ON FILE 071 OF THIS TAPE.        == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==   THE ONES I KNOW ABOUT ARE:                        == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==      0  THE "CBT MVS UTILITIES TAPE" which is       == -  *   DOC FILE
//*  - ==         the main MVS collection.  This tape is      == -  *   DOC FILE
//*  - ==         an "overflow" from that tape.               == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==         SEE  http://www.cbttape.org                 == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==         for file downloads from the CBT MVS         == -  *   DOC FILE
//*  - ==         Utilities Tape.                             == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==      1  THE SHARE MVS MODS TAPE (ENTIRE CONTENTS    == -  *   DOC FILE
//*  - ==         NOW ON FILES 104-234 OF CBT OVERFLOW TAPE)  == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==         THE CBT OVERFLOW TAPE NOW CONTAINS THE      == -  *   DOC FILE
//*  - ==         ENTIRE CONTENTS OF THE SPLA MVS TAPE,       == -  *   DOC FILE
//*  - ==         VERSION 46 (SHARE'S LAST VERSION).          == -  *   DOC FILE
//*  - ==         UPDATES TO CODE ON THE SHARE MVS TAPE,      == -  *   DOC FILE
//*  - ==         (THE SPLA TAPE) SHOULD NOW BE SENT TO ME,   == -  *   DOC FILE
//*  - ==         BECAUSE I AM NOW EFFECTIVELY MAINTAINING    == -  *   DOC FILE
//*  - ==         THIS CODE.  (SAM GOLOB - SEE ADDRESS BELOW) == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==      2  THE SHARE SOFTWARE DISKETTES.  I don't      == -  *   DOC FILE
//*  - ==         know how to obtain these, now that SPLA     == -  *   DOC FILE
//*  - ==         has been closed down.  There is a SHARE     == -  *   DOC FILE
//*  - ==         cd-rom disk.  I have one.  If you'd like    == -  *   DOC FILE
//*  - ==         materials from this disk, please email me   == -  *   DOC FILE
//*  - ==         at   sbgolob@attglobal.net  and/or          == -  *   DOC FILE
//*  - ==         sbgolob@aol.com .                           == -  *   DOC FILE
//*                                                                 *   DOC FILE
//*       IF YOUR INSTALLATION IS A SHARE MEMBER YOU MAY WISH       *   DOC FILE
//*       TO CONTACT SHARE HEADQUARTERS IN CHICAGO.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*       You can contact:                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*                    PETE SIMON                                   *   DOC FILE
//*                    SHARE INC.                                   *   DOC FILE
//*                    401 N. MICHIGAN AVE. - 24TH FLOOR            *   DOC FILE
//*                    CHICAGO, IL  60611                           *   DOC FILE
//*                    312-822-0932                                 *   DOC FILE
//*                    312-644-6363    FAX                          *   DOC FILE
//*                                                                 *   DOC FILE
//*                    www.share.org                                *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==      3  THE JES2 MODIFICATION TAPE.  THE SP-ONLY    == -  *   DOC FILE
//*  - ==         VERSION IS PRODUCED BY JACK SCHUDEL OF THE  == -  *   DOC FILE
//*  - ==         NORTH EAST REGIONAL DATA CENTER AT THE      == -  *   DOC FILE
//*  - ==         UNIVERSITY OF FLORIDA IN GAINESVILLE,       == -  *   DOC FILE
//*  - ==         FLORIDA. (SEE BELOW FOR THE DETAILS.)       == -  *   DOC FILE
//*  - ==         FOR ABSTRACT SEE FILE 071.                  == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==         email:  schudel@ufl.edu                     == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==         You can download files from this tape       == -  *   DOC FILE
//*  - ==         at:   http://www.cbttape.org                == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==      4  THE JES3 MODIFICATION TAPE.  SEE BELOW FOR  == -  *   DOC FILE
//*  - ==         THE ADDRESS.  FOR ABSTRACT SEE FILE 071.    == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==          email:  alan.field@supervalu.com           == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==         You can download files from this tape       == -  *   DOC FILE
//*  - ==         at:   http://www.cbttape.org                == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==         THE JES3 SHARE-GUIDE TAPE CONTAINS A        == -  *   DOC FILE
//*  - ==         SPOOL BROWSER FOR JES3 CALLED SDF.  THIS    == -  *   DOC FILE
//*  - ==         TAPE ALSO HAS OTHER STUFF OF VALUE TO A     == -  *   DOC FILE
//*  - ==         JES3 SHOP.  ALAN FIELD, WHO MAINTAINS       == -  *   DOC FILE
//*  - ==         THAT TAPE, TELLS ME THAT VERSIONS OF SDF    == -  *   DOC FILE
//*  - ==         ARE AVAILABLE FOR JES3 VERSIONS 4.1,        == -  *   DOC FILE
//*  - ==         4.2, 5.1, AND 5.2.  THIS PRODUCT ALLOWS     == -  *   DOC FILE
//*  - ==         YOU TO DIRECTLY BROWSE SPOOL TO LOOK AT     == -  *   DOC FILE
//*  - ==         JOBS, OUTPUT, ETC.  OF COURSE, VERSIONS     == -  *   DOC FILE
//*  - ==         OF SDF FOR OLDER LEVELS OF JES3 ARE ALSO    == -  *   DOC FILE
//*  - ==         INCLUDED ON THE TAPE.                       == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==         SDF STANDS (I THINK) FOR "SPOOL DISPLAY     == -  *   DOC FILE
//*  - ==         FACILITY".  THE TAPE'S PROPRIETOR IS:       == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==           MR ALAN C FIELD                           == -  *   DOC FILE
//*  - ==           SUPER VALU INC.                           == -  *   DOC FILE
//*  - ==           11840 VALLEY VIEW ROAD                    == -  *   DOC FILE
//*  - ==           EDEN PRAIRIE, MINNESOTA 55344             == -  *   DOC FILE
//*  - ==           (952) 828-4979                            == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==      5  THE L.A. MVS USERS GROUP TAPE.  THIS TAPE   == -  *   DOC FILE
//*  - ==         IS MAINTAINED BY THE MVS USERS GROUP IN     == -  *   DOC FILE
//*  - ==         LOS ANGELES, CALIFORNIA.                    == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==  >>     MATERIALS FOR THE LAST VERSION I KNOW       == -  *   DOC FILE
//*  - ==  >>     ABOUT, VERSION 72, ARE INCLUDED ON THE      == -  *   DOC FILE
//*  - ==  >>     CBT OVERFLOW TAPE, VERSION 417V, ON         == -  *   DOC FILE
//*  - ==  >>     FILES 060-070, AND 040 (PDS COMMAND), 041   == -  *   DOC FILE
//*  - ==  >>     (VTOC), AND 042 (UTILITIES).  ON THE CBT    == -  *   DOC FILE
//*  - ==  >>     TAPE, THE PDS COMMAND IS ON FILE 182,       == -  *   DOC FILE
//*  - ==  >>     DAF IS ON FILE 094, VTOC IS ON FILE 112,    == -  *   DOC FILE
//*  - ==  >>     AND UTILITIES MAY BE FOUND ON FILES 296     == -  *   DOC FILE
//*  - ==  >>     AND 134.                                    == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==         THE PROPRIETOR OF THIS TAPE HAS BEEN:       == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==          TOM BEUTHIN                                == -  *   DOC FILE
//*  - ==          NCR CORP.                                  == -  *   DOC FILE
//*  - ==          100 N. SEPULVEDA BLVD                      == -  *   DOC FILE
//*  - ==          EL SEGUNDO, CA  90245                      == -  *   DOC FILE
//*  - ==          (310) 524-5045                             == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==          email:   tom.beuthin@ibm.net               == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==      6  THE PL/1 MODIFICATION TAPE FROM SHARE.      == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==         All of the files from the PL/1 SHARE        == -  *   DOC FILE
//*  - ==         Tape are now here on this tape:             == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==         They are on Files 260 - 295 of this         == -  *   DOC FILE
//*  - ==         tape (CBT Overflow Tape).  Please see       == -  *   DOC FILE
//*  - ==         the documentation for File 260 below,       == -  *   DOC FILE
//*  - ==         for further details.                        == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==      8  THE CBT MVS UTILITIES TAPE (THIS IS IT)     == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==         Go to   www.cbttape.org  to download        == -  *   DOC FILE
//*  - ==          files from the CBT Tape and the CBT        == -  *   DOC FILE
//*  - ==          Overflow Tape.                             == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==      THIS TAPE IS NOT TO BE CONFUSED WITH THE       == -  *   DOC FILE
//*  - ==      SHARE MVS TAPE.  THIS TAPE IS NOT THE SHARE    == -  *   DOC FILE
//*  - ==      MVS TAPE, AND IT HAS NOTHING TO DO WITH THE    == -  *   DOC FILE
//*  - ==      "SHARE" ORGANIZATION.                          == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==      WHAT IS THE DIFFERENCE BETWEEN THE CBT TAPE    == -  *   DOC FILE
//*  - ==      AND THE SPLA MVS MODIFICATION (SHARE) TAPE ?   == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==      THE SPLA TAPE WAS THE OFFICIAL SHARE MVS MODI- == -  *   DOC FILE
//*  - ==      FICATION TAPE.  THAT TAPE WAS SENT TO SPLA     == -  *   DOC FILE
//*  - ==      FOR ITS OFFICIAL SHARE DISTRIBUTION.  IT IS    == -  *   DOC FILE
//*  - ==      NOW OFFICIALLY "FUNCTIONALLY STABILIZED"       == -  *   DOC FILE
//*  - ==      (I.E. "DEAD").  THE MATERIALS FROM THE SHARE   == -  *   DOC FILE
//*  - ==      MVS TAPE CAN NOW BE FOUND ON THE CBT OVERFLOW  == -  *   DOC FILE
//*  - ==      TAPE, ON FILES 104 THRU 234, OR IN OTHER       == -  *   DOC FILE
//*  - ==      RELEVANT PLACES HERE.  FOR EXAMPLE, THE L.A.   == -  *   DOC FILE
//*  - ==      MVS USERS GROUP TAPE MATERIALS WERE MOVED TO   == -  *   DOC FILE
//*  - ==      FILES 060 THRU 070 OF THE CBT OVERFLOW TAPE,   == -  *   DOC FILE
//*  - ==      AND WERE UPDATED TO THE LATEST VERSION I HAD.  == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==      THE CBT TAPE IS AN INDEPENDENTLY PRODUCED      == -  *   DOC FILE
//*  - ==      TAPE, VERY DIFFERENT FROM THE SHARE MVS TAPE   == -  *   DOC FILE
//*  - ==      IN CONTENTS.  (TO SEE WHAT WAS ON THE SHARE    == -  *   DOC FILE
//*  - ==      MVS TAPE, SEE FILE 071 OF THIS TAPE.)          == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==      ANYONE WHO WANTS TO SEND UPDATES FOR MVS       == -  *   DOC FILE
//*  - ==      SHARE TAPE MATERIALS, SHOULD SEND THEM         == -  *   DOC FILE
//*  - ==      TO sam golob:    sbgolob@attglobal.net OR      == -  *   DOC FILE
//*  - ==      sbgolob@aol.com .                              == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==      9  THE NASPA VIP TAPE IS A COLLECTION OF       == -  *   DOC FILE
//*  - ==         PUBLIC DOMAIN SOFTWARE DONATED TO THE       == -  *   DOC FILE
//*  - ==         NATIONAL SYSTEMS PROGRAMMERS                == -  *   DOC FILE
//*  - ==         ASSOCIATION.  TWO VIP PROGRAMS EXIST,       == -  *   DOC FILE
//*  - ==         ONE ENCOMPASSES MVS--ANOTHER, VM/VSE.       == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==         To my knowledge, the materials from these   == -  *   DOC FILE
//*  - ==         tapes have not been updated for some time,  == -  *   DOC FILE
//*  - ==         and you can obtain them from the NaSPA      == -  *   DOC FILE
//*  - ==         cd-rom disk.                                == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==         For further information contact:            == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==         http://www.naspa.net                        == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==         or    NASPA                                 == -  *   DOC FILE
//*  - ==               7040 S. 13TH STREET                   == -  *   DOC FILE
//*  - ==               OAK CREEK, WISCONSIN 53154            == -  *   DOC FILE
//*  - ==               1-414-768-8000      EXT 109           == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*                                                                 *   DOC FILE
//*   (NASPA HAS RECENTLY MOVED.  PLEASE NOTE THE NEW ADDRESS.)     *   DOC FILE
//*                                                                 *   DOC FILE
//*  - ==       NASPA ALSO HAS RIGHTS TO AN ELECTRONIC MAIL   == -  *   DOC FILE
//*  - ==       PACKAGE CALLED "BEEM" THAT RUNS UNDER MVS.    == -  *   DOC FILE
//*  - ==       "BEEM" COMES ON A SEPARATE TAPE, AVAILABLE    == -  *   DOC FILE
//*  - ==       FROM NASPA.  (SEE FILE 071 FOR SOME OF THE    == -  *   DOC FILE
//*  - ==       DOCUMENTATION FROM THESE NASPA MVS TAPES,     == -  *   DOC FILE
//*  - ==       AND ALSO FROM ITS VM/VSE VIP TAPE.)           == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==     10   THE CICS SHARE TAPE.  THIS IS MAINTAINED   == -  *   DOC FILE
//*  - ==       BY BARRY BROOKS OF NERDC AT THE UNIVERSITY    == -  *   DOC FILE
//*  - ==       OF FLORIDA IN GAINESVILLE.  THIS TAPE IS      == -  *   DOC FILE
//*  - ==       DISTRIBUTED BY SPLA, AND SHOULD BE ORDERED    == -  *   DOC FILE
//*  - ==       FROM SPLA.                                    == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==       THE CICS SHARE TAPE IS AVAILABLE TO ANYONE.   == -  *   DOC FILE
//*  - ==       YOU DO NOT HAVE TO BE A SHARE OR GUIDE        == -  *   DOC FILE
//*  - ==       MEMBER.                                       == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==       BARRY HAS TOLD ME THAT HE WOULD LIKE TO GET   == -  *   DOC FILE
//*  - ==       NEW CONTRIBUTIONS, ESPECIALLY FOR THE CICS    == -  *   DOC FILE
//*  - ==       3.X VERSIONS.   IF YOU ARE A CICS SYSTEMS     == -  *   DOC FILE
//*  - ==       OR "INTERNALS" PERSON, OR ANYONE WITH SOME-   == -  *   DOC FILE
//*  - ==       THING THAT MIGHT BE USEFUL TO OTHERS, PLEASE  == -  *   DOC FILE
//*  - ==       CONTACT BARRY BROOKS AT (352) 392-2061 X107.  == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*******************************************************************   DOC FILE
//***SECTION DUPLICATED MATERIAL SECTION                            *   DOC FILE
//*******************************************************************   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==         D U P L I C A T E D   M A T E R I A L       == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==    Just a note here about duplication.  Because of  == -  *   DOC FILE
//*  - ==    how all the tapes are set up, there will be      == -  *   DOC FILE
//*  - ==    some duplication.  If you are very ambitious     == -  *   DOC FILE
//*  - ==    and get all the tapes you will find some code    == -  *   DOC FILE
//*  - ==    that is on more than one tape.  It will be your  == -  *   DOC FILE
//*  - ==    job to find out which is the most current or     == -  *   DOC FILE
//*  - ==    which has the function you want and discard      == -  *   DOC FILE
//*  - ==    the rest.                                        == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==      GOOD LUCK !                                    == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ========================================================= -  *   DOC FILE
//*  -------------------------------------------------------------  *   DOC FILE
//***SECTION SPLA TAPE MODIFICATION SECTION                         *   DOC FILE
//*******************************************************************   DOC FILE
//*             S   P   L   A         S E C T I O N                 *   DOC FILE
//*******************************************************************   DOC FILE
//*  -------------------------------------------------------------  *   DOC FILE
//*  - ========================================================= -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==   The "SHARE MVS TAPE" is now on this tape.         == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==   The entire contents of the SHARE MVS Tape is      == -  *   DOC FILE
//*  - ==   now found on Files 104-234 of this tape.          == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==   The L.A. MVS Users Group Tape is now found on     == -  *   DOC FILE
//*  - ==   Files 060 - 070 of this tape.                     == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==   The latest version of the PDS program package     == -  *   DOC FILE
//*  - ==   is found on File 040 of this tape.                == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==   An old version of the PDS program package (v7.3)  == -  *   DOC FILE
//*  - ==   that works for ISPF/PDF V1R1M0 (very old) is on   == -  *   DOC FILE
//*  - ==   File 039 of this tape.                            == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ========================================================= -  *   DOC FILE
//*  -------------------------------------------------------------  *   DOC FILE
//***SECTION JES2 MODIFICATION TAPE SECTION                         *   DOC FILE
//*******************************************************************   DOC FILE
//*             J   E   S   2         S E C T I O N                 *   DOC FILE
//*******************************************************************   DOC FILE
//*  -------------------------------------------------------------  *   DOC FILE
//*  - ========================================================= -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==              JES2 MODIFICATION TAPE                 == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==      IF YOU WOULD LIKE A COPY OF THE NON-SP JES2    == -  *   DOC FILE
//*  - ==                                      NON-SP JES2    == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==      MODIFICATION TAPE YOU MAY TRY AND CALL THE     == -  *   DOC FILE
//*  - ==      PERSON MENTIONED BELOW.                        == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==      (I DON'T KNOW WHO IS RUNNING NON-SP JES2       == -  *   DOC FILE
//*  - ==      OR HASP NOWADAYS.  ANYWAY, THE INFORMATION     == -  *   DOC FILE
//*  - ==      AND THIS TAPE IS STILL AVAILABLE.  MAYBE       == -  *   DOC FILE
//*  - ==      SOME PLACES ARE STILL RUNNING OS/VS1.)         == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==      FOR THE MORE UP-TO-DATE MVS/SP JES2 TAPE, SEE  == -  *   DOC FILE
//*  - ==      IMMEDIATELY BELOW.                             == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==       S.P.L.A. is now officially out of business.   == -  *   DOC FILE
//*  - ==       However, you may want to contact the person   == -  *   DOC FILE
//*  - ==       below, if you need some help obtaining the    == -  *   DOC FILE
//*  - ==       materials.  Any help is unofficial, and is    == -  *   DOC FILE
//*  - ==       at Fred's personal discretion.                == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==       MR FRED ROBINSON                              == -  *   DOC FILE
//*  - ==       UNIVERSITY OF MIAMI                           == -  *   DOC FILE
//*  - ==       146 UNGER BUILDING                            == -  *   DOC FILE
//*  - ==       1365 MEMORIAL DRIVE                           == -  *   DOC FILE
//*  - ==       CORAL GABLES, FL  33124                       == -  *   DOC FILE
//*  - ==        (305)-284-6257                               == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ========================================================= -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==  IF YOU WISH A COPY OF THE MVS/SP VERSION OF        == -  *   DOC FILE
//*  - ==  THE JES2 MODIFICATION TAPE, PLEASE CONTACT ITS     == -  *   DOC FILE
//*  - ==  PROPRIETOR, JACK SCHUDEL.                          == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==         You can download files from this tape       == -  *   DOC FILE
//*  - ==         at:   http://www.cbttape.org                == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==  CONTRIBUTORS TO THE TAPE ARE WELCOME TO CONTACT    == -  *   DOC FILE
//*  - ==  THE EDITOR OF THIS TAPE, JACK SCHUDEL.  CONTRI-    == -  *   DOC FILE
//*  - ==  BUTIONS ARE MOST WELCOME, AND CONTRIBUTORS WILL    == -  *   DOC FILE
//*  - ==  RECEIVE A -- FREE TAPE --.                         == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==  TO PARTICIPATE, PLEASE CONTACT THE TAPE'S EDITOR   == -  *   DOC FILE
//*  - ==  DIRECTLY - - - - :                                 == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==    JACK SCHUDEL                                     == -  *   DOC FILE
//*  - ==    NORTH EAST REGIONAL DATA CENTER (NERDC)          == -  *   DOC FILE
//*  - ==    ROOM 233 SSRB                                    == -  *   DOC FILE
//*  - ==    UNIVERSITY OF FLORIDA                            == -  *   DOC FILE
//*  - ==    GAINESVILLE, FLORIDA  32611                      == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==    PHONE (904) 392-4601                             == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==  IF YOU ARE SHIPPING FROM OUTSIDE THE U.S.A.        == -  *   DOC FILE
//*  - ==  PLEASE SHIP BY MAIL AND PUT THE PROPER CUSTOM      == -  *   DOC FILE
//*  - ==  DECLARATION TAGS ON THE PACKAGE.  INDICATE ONE     == -  *   DOC FILE
//*  - ==  REEL OF MAGNETIC TAPE WITH NO COMMERICAL VALUE.    == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ========================================================= -  *   DOC FILE
//*  -------------------------------------------------------------  *   DOC FILE
//*******************************************************************   DOC FILE
//***SECTION JES3 MODIFICATION TAPE SECTION                         *   DOC FILE
//*******************************************************************   DOC FILE
//*             J   E   S   3         S E C T I O N                 *   DOC FILE
//*******************************************************************   DOC FILE
//*  -------------------------------------------------------------  *   DOC FILE
//*  - ========================================================= -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==              JES3 MODIFICATION TAPE                 == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==  If you wish a copy of the JES3 Modification Tape   == -  *   DOC FILE
//*  - ==  it may be ordered by sending a contribution on     == -  *   DOC FILE
//*  - ==  a DTR or contacting:                               == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==           MR ALAN C FIELD                           == -  *   DOC FILE
//*  - ==           SUPER VALU INC.                           == -  *   DOC FILE
//*  - ==           11840 VALLEY VIEW ROAD                    == -  *   DOC FILE
//*  - ==           EDEN PRAIRIE, MINNESOTA 55344             == -  *   DOC FILE
//*  - ==           (952) 828-4979                            == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==         You can download files from this tape       == -  *   DOC FILE
//*  - ==         at:   http://www.cbttape.org                == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==  NOTE:  VERSIONS OF THE SPOOL BROWSER CALLED SDF    == -  *   DOC FILE
//*  - ==         ARE NOW AVAILABLE FOR JES3 VERSIONS         == -  *   DOC FILE
//*  - ==         4.1, 4.2, 5.1, AND 5.2, AS WELL AS FOR      == -  *   DOC FILE
//*  - ==         OLDER JES3 LEVELS.  OF COURSE, THIS TAPE    == -  *   DOC FILE
//*  - ==         CONTAINS MANY OTHER THINGS OF VALUE TO      == -  *   DOC FILE
//*  - ==         A JES3 SHOP.                                == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==  ALAN REQUESTS THAT YOU PLEASE INCLUDE RETURN       == -  *   DOC FILE
//*  - ==  POSTAGE FOR A CARTRIDGE OR TAPE.  THANKS.          == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ========================================================= -  *   DOC FILE
//*  -------------------------------------------------------------  *   DOC FILE
//*******************************************************************   DOC FILE
//*******************************************************************   DOC FILE
//***SECTION FILE UPDATE SECTION                                    *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*     F  I  L  E     U  P  D  A  T  E     S  E  C  T  I  O  N     *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*   To determine most exactly when a particular file on this      *   DOC FILE
//*   tape was updated last from its author, the file status        *   DOC FILE
//*   section below will have the following date information:       *   DOC FILE
//*                                                                 *   DOC FILE
//*   The date next to each file number is either the deleted       *   DOC FILE
//*   date from the Regular CBT Tape, or it contains the date       *   DOC FILE
//*   that I added the file to this tape.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*   FOR EXAMPLE:                                                  *   DOC FILE
//*                                          --------               *   DOC FILE
//* RKWEL DOC        431 UNKCBT   375 S   .3 04-08-94      080 YES  *   DOC FILE
//* RKWEL DOCFMT     432 UNKCBT    14    2.8 08-19-94    IEBCOPY  NO*   DOC FILE
//* RKWEL HELP       433 UNKCBT  4119    3.2 02-08-89      080 YES  *   DOC FILE
//* RKWEL CLIST      434 UNKCBT 41257   72.8 04-17-94    IEBCOPY  NO*   DOC FILE
//* RKWEL MACRO      435 UNKCBT 41340   26.8 09-24-93      080 YES  *   DOC FILE
//* RKWEL TEXT       436 UNKCBT 23076   16.7 08-16-92      080 YES  *   DOC FILE
//* RKWEL SOURCE     437 UNKCBT146085   94.0 08-16-92      080 YES  *   DOC FILE
//* RKWEL UTIL DOC   438 UNKCBT 65122   36.6 08-16-92      080 YES  *   DOC FILE
//* RKWEL NEWS FILE  439 UNKCBT  1581    1.4 02-08-89      080 YES  *   DOC FILE
//* RKWEL ISPF SKEL  440 UNKCBT 10981    6.0 02-08-89      080 YES  *   DOC FILE
//* RKWEL ISPF PNL   441 UNKCBT 59202 S 36.1 08-28-92      080 YES  *   DOC FILE
//* RKWEL TSSO CLST  442 UNKCBT    54    4.6 08-19-94    IEBCOPY  NO*   DOC FILE
//* RKWEL ISPF MSG   443 UNKCBT  1062     .9 08-16-92      080 YES  *   DOC FILE
//* RKWEL SCR MEMO   444 UNKCBT   231   25.1 08-19-94    IEBCOPY  NO*   DOC FILE
//* RKWEL SCR HYPH   445 UNKCBT  2735     .9 02-08-89      080-VB-NO*   DOC FILE
//* RKWEL SCR TXT    446 UNKCBT  5106    3.7 02-08-89      080 YES  *   DOC FILE
//* RKWEL ISPF TBL   447 UNKCBT  8949   10.2 02-08-89      080 YES  *   DOC FILE
//* RKWEL TSSO PARM  448 UNKCBT   743     .9 02-08-89      080 YES  *   DOC FILE
//* RKWEL PROCLIB    449 UNKCBT   119     .1 02-08-89      080 YES  *   DOC FILE
//* RKWEL PARMLIB    450 UNKCBT    38     .0 02-08-89      080 YES  *   DOC FILE
//* RKWEL SCR MACRO  451 UNKCBT 26093   19.4 02-08-89      080 YES  *   DOC FILE
//* RKWEL TSSO SRC   452 UNKCBT 57181   33.3 08-16-92      080 YES  *   DOC FILE
//*                                          --------               *   DOC FILE
//*                                          SEE THIS               *   DOC FILE
//*                                          DATE ...               *   DOC FILE
//*                                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//***SECTION CHANGE SECTION                                         *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*           C  H  A  N  G  E      S  E  C  T  I  O  N             *   DOC FILE
//*                                                                 *   DOC FILE
//***********************************************************TOP*****   DOC FILE
//***SECTION V-428 SECTION                                          *   DOC FILE
//*  V-428  CHANGES FOR VERSION 428 AUG 24, 2000                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 005 to make some slight fixes to      *   DOC FILE
//*            the file which loads this tape to a VM system,       *   DOC FILE
//*            so it hopefully will work better under VM/ESA.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 006 which is source for the           *   DOC FILE
//*            COPYMODS program, to reflect the many changes to     *   DOC FILE
//*            that program that have been made by Sam Golob.       *   DOC FILE
//*            The old source is included too.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 007 to reflect a fix in the TAPEMAP   *   DOC FILE
//*            program, so it shows the correct day-of-week after   *   DOC FILE
//*            the year 2000 starts.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 008 to reflect all recent changes     *   DOC FILE
//*            in the load modules.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 009 to reflect recent changes in      *   DOC FILE
//*            the TAPESCAN program so it can copy and read 64K     *   DOC FILE
//*            blocks.  There are also 2 versions here, called      *   DOC FILE
//*            5.2 (upgrade of Howard Dean's version which does     *   DOC FILE
//*            3480 footage measurements) and 4.6 (old version      *   DOC FILE
//*            without Howard Dean's changes, but upgraded to       *   DOC FILE
//*            64K blocksize support).                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 40 which is PDS 8.5, supported by     *   DOC FILE
//*            John Kalinich.  Current version is 8.5.15 .          *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 42 which contains utilities that      *   DOC FILE
//*            are used under TSO.  Some of these are used with     *   DOC FILE
//*            the PDS 8.5 program package.  These were updated     *   DOC FILE
//*            to conform with how they are on the regular CBT      *   DOC FILE
//*            Tape.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 70 from Mike Cleary.  This is DAF     *   DOC FILE
//*            Version 2.6 .                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 103 to reflect changes in the doc     *   DOC FILE
//*            for the regular CBT Tape (V428) and for the JES3     *   DOC FILE
//*            SHARE Tape.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-422 SECTION                                          *   DOC FILE
//*  V-422  CHANGES FOR VERSION 423 DEC 16, 1999                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Addition of Files 260-269, 271-295 as follows:       *   DOC FILE
//*                                                                 *   DOC FILE
//*            Because of the closing of the SHARE Program          *   DOC FILE
//*            Library Agency to the public (SPLA), we are now      *   DOC FILE
//*            taking over the code of the SHARE PL/1 Tape,         *   DOC FILE
//*            that was sponsored by the SHARE PL/1 committee.      *   DOC FILE
//*            Many thanks to Bob Styma, the tape's former editor,  *   DOC FILE
//*            for his great help in getting this set up.           *   DOC FILE
//*                                                                 *   DOC FILE
//*            SHARE PL/1 Tape materials will be on Files 260       *   DOC FILE
//*            through 295, but not on all of those files.          *   DOC FILE
//*            File 270 is being left empty, for now.               *   DOC FILE
//*                                                                 *   DOC FILE
//*            Addition of Files 260 through 295, with the          *   DOC FILE
//*            exception of File 270.  These files contain all      *   DOC FILE
//*            the materials from the SHARE PL/1 Tape.              *   DOC FILE
//*                                                                 *   DOC FILE
//*            Mapping of the files from the original PL/1 SHARE    *   DOC FILE
//*            Tape, onto the CBT Overflow Tape, is as follows:     *   DOC FILE
//*                                                                 *   DOC FILE
//*   PL/1 SHARE Tape    CBT Overflow Tape   Short Description      *   DOC FILE
//*   ---- ----- ----    --- -------- ----   ----- -----------      *   DOC FILE
//*   Files 01 - 10 :    File  260  (members FILE01 thru FILE10)    *   DOC FILE
//*   Files 11 - 14 :    Files 261 - 264   /  ABE                   *   DOC FILE
//*   Files 17 - 18 :    Files 265 - 266  <    Editor               *   DOC FILE
//*   Files 47 - 49 :    Files 267 - 269   \    (Tom Smith)         *   DOC FILE
//*   Files 24 - 27 :    Files 271 - 274    /                       *   DOC FILE
//*   File  28 :         File  274         /  QUANDRY               *   DOC FILE
//*   Files 29 - 31 :    Files 275 - 277   \    System              *   DOC FILE
//*   File  32 :         File  277          \                       *   DOC FILE
//*   Files 15 - 17 :    Files 278 - 280   Teledyne Script System   *   DOC FILE
//*   File  20 - 22 :    File  281         PL1 Execution Analyzer   *   DOC FILE
//*   File  23 :         File  282         PL1 SORT Interface       *   DOC FILE
//*   File  33 :         File  283         Load Lib Analysis Pgms   *   DOC FILE
//*   File  34 :         File  284         Statistical Subrtns      *   DOC FILE
//*   Files 35 , 37      File  285         Mike Robinson Pgms       *   DOC FILE
//*   File  36 :         File  286         Mike Robinson Pgms       *   DOC FILE
//*   File  38 :         File  287         PLEA for VM              *   DOC FILE
//*   File  39 - 40 :    File  288         PL1 3270 Interface       *   DOC FILE
//*   File  41 :         File  289         PL1 IMS Interface        *   DOC FILE
//*   File  42 :         File  290         Display DS as Dump       *   DOC FILE
//*   File  43 :         File  291         PL1 3270 Interface       *   DOC FILE
//*   File  44 :         File  292         Chart of Subrtn calls    *   DOC FILE
//*   File  45 :         File  293         PL1 CMS Enhancer         *   DOC FILE
//*   File  46 :         File  294         MACRO pgm-includes       *   DOC FILE
//*   File  50 :         File  295         REXX Functions in PL1    *   DOC FILE
//*                                                                 *   DOC FILE
//*            The old documentation for the PL/1 SHARE Tape,       *   DOC FILE
//*            that is on File 260, members FILE01 and FILE02,      *   DOC FILE
//*            will describe the files in the way that they were    *   DOC FILE
//*            placed, on the old tape.  In the "File 001"          *   DOC FILE
//*            descriptions of the corresponding files on this      *   DOC FILE
//*            tape, just about all of that information has been    *   DOC FILE
//*            quoted, or paraphrased, so you don't lose anything   *   DOC FILE
//*            if you just look at the "Documentation Section"      *   DOC FILE
//*            description of the files that is on File 001 of      *   DOC FILE
//*            this tape, for Files 260 through 295.                *   DOC FILE
//*                                                                 *   DOC FILE
//*            I've tried to put all of the SHARE PL/1 Tape         *   DOC FILE
//*            files into CBT Tape formats, which are readable      *   DOC FILE
//*            on an MVS system.  If you need some help in          *   DOC FILE
//*            porting this stuff to another system, please         *   DOC FILE
//*            write to Sam Golob at sbgolob@attglobal.net and/or   *   DOC FILE
//*            sbgolob@aol.com .  Thanks.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 008, which is a load library, to      *   DOC FILE
//*            get the latest versions of the load modules that     *   DOC FILE
//*            we have.  In particular, the PDS 8.5 program         *   DOC FILE
//*            corresponds to Update 12 from John Kalinich, and     *   DOC FILE
//*            is later than the version that is on V422 of the     *   DOC FILE
//*            regular CBT Tape.  Quite a few of the other          *   DOC FILE
//*            programs have been updated too.  Look for year       *   DOC FILE
//*            1999 linkedit dates, to see what's new.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 040, which is PDS Version 8.5.        *   DOC FILE
//*            This corresponds to Update 12 from John Kalinich.    *   DOC FILE
//*            Version 422, File 182, of the regular CBT Tape       *   DOC FILE
//*            contains Update 11 of PDS 8.5, so this version       *   DOC FILE
//*            is later.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 103, which is documentation for       *   DOC FILE
//*            other free software sources.  The CBT MVS            *   DOC FILE
//*            Utilities Tape Version 422 doc is now here           *   DOC FILE
//*            (since V422 of the Regular CBT Tape was produced     *   DOC FILE
//*            before this tape was).  Also, since the SHARE        *   DOC FILE
//*            PL1 tape materials are now on this tape, that        *   DOC FILE
//*            member has been updated to reflect this fact.        *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-421 SECTION                                          *   DOC FILE
//*  V-421  CHANGES FOR VERSION 421 AUG 10, 1999                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        00  This documentation is now being lowercased, in       *   DOC FILE
//*            part.  One reason is to make for easier display      *   DOC FILE
//*            of Internet addresses.  The second is to make for    *   DOC FILE
//*            easier reading.  (We gotta keep up with the times,   *   DOC FILE
//*            too.)                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Addition of File 004, which corresponds to File      *   DOC FILE
//*            006 of the regular CBT Tape, and which contains      *   DOC FILE
//*            a pds in IEBUPDTE SYSIN format.  This pds has        *   DOC FILE
//*            tools to manipulate the File 001 documentation.      *   DOC FILE
//*            Included is the CBTUPD assembler program, which      *   DOC FILE
//*            puts ./ ADD cards into this documentation, to        *   DOC FILE
//*            break it up into a partitioned dataset, in the       *   DOC FILE
//*            same way as I maintain it.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 008, which is a load module library   *   DOC FILE
//*            that corresponds to File 035 of the regular CBT      *   DOC FILE
//*            tape, and which has the REVIEW program from File     *   DOC FILE
//*            135 of the regular CBT Tape in it also, and the      *   DOC FILE
//*            SHOWMVS program.  David Noon's delinker program,     *   DOC FILE
//*            which can be called from REVIEW, has been added.     *   DOC FILE
//*            You need files on the regular CBT Tape to see        *   DOC FILE
//*            source code for most of these programs.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 040, which contains PDS Version 8.5   *   DOC FILE
//*            from John Kalinich.  This file has been updated to   *   DOC FILE
//*            the "shipment 9" level, PDS85U9.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 103, which contains documentation     *   DOC FILE
//*            for other free tapes, to reflect the latest levels   *   DOC FILE
//*            we have, as of this release time.  Latest update     *   DOC FILE
//*            is (approximate) documentation for the regular CBT   *   DOC FILE
//*            Tape, to Version 421.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Addition of File 240, which was moved from File 052  *   DOC FILE
//*            of the regular CBT Tape, and which contains the poem *   DOC FILE
//*            called "MVS Is Breaking My Heart".  This epic work   *   DOC FILE
//*            was written in 1975, when the then new MVS had a     *   DOC FILE
//*            lot of problems.  Fun to read for us old-timers.     *   DOC FILE
//*            There is also a fine acronym quiz, with answers.     *   DOC FILE
//*            I found this "historical" and quite enjoyable. (sg)  *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Addition of File 241 which contains SPY and CONSOLE  *   DOC FILE
//*            for MVS/XA 2.2.0, and which came from File 068 of    *   DOC FILE
//*            the regular CBT Tape.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Addition of File 242, which contains Amdahl dump     *   DOC FILE
//*            exits to additionally format MVS/370 dumps.  This    *   DOC FILE
//*            file was moved from File 123 of the regular CBT      *   DOC FILE
//*            Tape, because with the approach of the Year 2000,    *   DOC FILE
//*            I figure that this won't be of so much use, and I    *   DOC FILE
//*            had to make room on the regular CBT Tape for other   *   DOC FILE
//*            things.                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Addition of File 243, which was moved from File 155  *   DOC FILE
//*            of the regular CBT Tape.  This file contains an MVS  *   DOC FILE
//*            Tuning Report from SHARE in 1983, and I think it is  *   DOC FILE
//*            a bit old, to say the least.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Addition of File 244, which contains QUEUE for MVS   *   DOC FILE
//*            ESA 4.2 and 4.3.  Since this QUEUE doesn't work      *   DOC FILE
//*            properly for MVS/ESA 5.2 and OS/390 JES2 levels,     *   DOC FILE
//*            I figured it was time to archive it here.  This      *   DOC FILE
//*            version came from File 391 of the regular CBT Tape.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Addition of Files 247 thru 249, which were moved     *   DOC FILE
//*            from Files 401 thru 403 of the regular CBT Tape.     *   DOC FILE
//*            File 247 contains the Bellcore version of TSSO       *   DOC FILE
//*            Version 4.3.  File 248 contains Dave Cartwright's    *   DOC FILE
//*            modifications to the Bellcore TSSO, and File 249     *   DOC FILE
//*            contains Guy Albertelli's merging of File 248 into   *   DOC FILE
//*            the main code of File 247.  For an OS/390 version    *   DOC FILE
//*            of TSSO, please refer to File 404 of the regular     *   DOC FILE
//*            CBT Tape.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-419 SECTION                                          *   DOC FILE
//*  V-419  CHANGES FOR VERSION 419 OCT 27, 1998                    *   DOC FILE
//*        01  UPDATE TO FILE 008 WHICH IS A LOAD MODULE LIBRARY,   *   DOC FILE
//*            TO REFLECT UPDATES TO PDSLOAD AND THE PDS 8.5        *   DOC FILE
//*            PROGRAM.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 040 TO REFLECT THE LATEST VERSION     *   DOC FILE
//*            OF PDS 8.5 FROM JOHN KALINICH OF THE U.S. ARMY IN    *   DOC FILE
//*            ST. LOUIS, MISSOURI.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  ADDITION OF FILE 075 FROM JIM MARSHALL.  THIS IS     *   DOC FILE
//*            SYS1.MACLIB FOR OS MVT RELEASE 21.8.  THE SOFTWARE   *   DOC FILE
//*            IN THAT RELEASE IS PUBLIC DOMAIN, EVEN THOUGH IT IS  *   DOC FILE
//*            FROM IBM.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  ADDITION OF FILE 076 FROM JIM MARSHALL.  THIS IS     *   DOC FILE
//*            SYS1.MODGEN FOR OS MVT RELEASE 21.8.  THE SOFTWARE   *   DOC FILE
//*            IN THAT RELEASE IS PUBLIC DOMAIN, EVEN THOUGH IT IS  *   DOC FILE
//*            FROM IBM.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  ADDITION OF FILE 077 FROM JIM MARSHALL.  THIS IS     *   DOC FILE
//*            SYS1.TSOMAC FOR OS MVT RELEASE 21.8.  THE SOFTWARE   *   DOC FILE
//*            IN THAT RELEASE IS PUBLIC DOMAIN, EVEN THOUGH IT IS  *   DOC FILE
//*            FROM IBM.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  ADDITION OF FILE 078 FROM JIM MARSHALL.  THIS IS     *   DOC FILE
//*            SYS1.GENLIB FOR OS MVT RELEASE 21.8.  THE SOFTWARE   *   DOC FILE
//*            IN THAT RELEASE IS PUBLIC DOMAIN, EVEN THOUGH IT IS  *   DOC FILE
//*            FROM IBM.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  ADDITION OF FILE 079 FROM JIM MARSHALL.  THIS IS     *   DOC FILE
//*            SYS1.SAMPLIB FOR OS MVT RELEASE 21.8. THE SOFTWARE   *   DOC FILE
//*            IN THAT RELEASE IS PUBLIC DOMAIN, EVEN THOUGH IT IS  *   DOC FILE
//*            FROM IBM.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  ADDITION OF FILE 080 FROM JIM MARSHALL.  THIS IS     *   DOC FILE
//*            SYS1.TCAMMAC FOR OS MVT RELEASE 21.8. THE SOFTWARE   *   DOC FILE
//*            IN THAT RELEASE IS PUBLIC DOMAIN, EVEN THOUGH IT IS  *   DOC FILE
//*            FROM IBM.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  ADDITION OF FILE 081 FROM JIM MARSHALL.  THIS IS     *   DOC FILE
//*            SYS1.PROCLIB FOR OS MVT RELEASE 21.8.  THE SOFTWARE  *   DOC FILE
//*            IN THAT RELEASE IS PUBLIC DOMAIN, EVEN THOUGH IT IS  *   DOC FILE
//*            FROM IBM.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  ADDITION OF FILE 082 FROM JIM MARSHALL.  THIS IS     *   DOC FILE
//*            SYS1.PVTMACS FOR OS MVT RELEASE 21.8.  THE SOFTWARE  *   DOC FILE
//*            IN THAT RELEASE IS PUBLIC DOMAIN, EVEN THOUGH IT IS  *   DOC FILE
//*            FROM IBM.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  UPDATE TO FILE 103 TO REFLECT CHANGES IN             *   DOC FILE
//*            DOCUMENTATION TO OTHER TAPES.                        *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-418 SECTION                                          *   DOC FILE
//*  V-418  CHANGES FOR VERSION 418 MAY 29, 1998                    *   DOC FILE
//*        01  UPDATE TO FILE 008 TO REFLECT CHANGES IN LOAD        *   DOC FILE
//*            MODULES AND SOURCE CODE FROM THE REGULAR CBT TAPE.   *   DOC FILE
//*            ALSO, ADDITION OF THE LOAD MODULE FOR SHOWMVS TO     *   DOC FILE
//*            THIS LOAD LIBRARY.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 040 WHICH IS PDS 8.5 TO REFLECT       *   DOC FILE
//*            THE LATEST UPDATE FROM JOHN KALINICH.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  ADDITION OF FILE 084 WHICH IS PDS 8.4 THAT USED TO   *   DOC FILE
//*            RESIDE ON FILE 198 OF THE REGULAR CBT TAPE.  THIS    *   DOC FILE
//*            IS THE LAST FREE VERSION THAT WAS SUPPORTED BY BRUCE *   DOC FILE
//*            LELAND AND STEVE SMITH.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  ADDITION OF FILES 093 THRU 098 WHICH ARE VARIOUS     *   DOC FILE
//*            VERSIONS OF QUEUE AND ISPF QUEUE THAT WERE ON        *   DOC FILE
//*            FILES 393 THRU 398 OF THE REGULAR CBT TAPE,          *   DOC FILE
//*            RESPECTIVELY.  THESE ARE FOR VARIOUS VERSIONS OF     *   DOC FILE
//*            JES2, FROM SP 1.3.6 THRU SP 3.1.0.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  UPDATE TO FILE 103 TO REFLECT VARIOUS CHANGES IN     *   DOC FILE
//*            DOCUMENTATION FOR OTHER MVS TAPES.                   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-417 SECTION                                          *   DOC FILE
//*  V-417  CHANGES FOR VERSION 417 JAN 20, 1998                    *   DOC FILE
//*        00  EXTEND THIS TAPE FROM 472 TO 500 FILES.  REASON IS   *   DOC FILE
//*            THAT IF YOU WANT TO STRING BOTH THE CBT AND CBT      *   DOC FILE
//*            OVERFLOW TAPES ON ONE 3490 IDRC OR 3490E CARTRIDGE,  *   DOC FILE
//*            IT WILL BE EASIER TO COUNT THE FILE NUMBERS.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  UPDATE TO FILE 008 WHICH IS A LOAD LIBRARY CONTAIN-  *   DOC FILE
//*            ING UTILITIES FROM THE REGULAR CBT TAPE.  THIS       *   DOC FILE
//*            UPDATE REFLECTS THE CHANGES TO THE PDS AND VTOC      *   DOC FILE
//*            COMMAND PROCESSORS BY JOHN KALINICH.  SOURCE FOR     *   DOC FILE
//*            PDS 8.5 IS ON FILE 040 OF THIS TAPE.  VTOC IS ON     *   DOC FILE
//*            FILE 041.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  ADDITION OF FILE 039 WHICH IS PDS VERSION 7.3 FROM   *   DOC FILE
//*            BRUCE LELAND AND STEVE SMITH.  THIS FILE WAS TAKEN   *   DOC FILE
//*            FROM FILE 198 OF CBT TAPE VERSION 415.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  ADDITION OF FILE 040 WHICH IS PDS VERSION 8.5 FROM   *   DOC FILE
//*            JOHN KALINICH OF THE US ARMY IN ST. LOUIS.  THIS     *   DOC FILE
//*            FILE WAS TAKEN FROM FILE 182 OF CBT TAPE VERSION     *   DOC FILE
//*            416, AND IS A PRODUCTION VERSION OF PDS 8.5,         *   DOC FILE
//*            IDENTICAL TO FILE 182 OF CBT TAPE VERSION 417.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  ADDITION OF FILE 041 WHICH IS THE VTOC TSO COMMAND   *   DOC FILE
//*            THAT IS A DUPLICATE OF FILE 112 OF THE REGULAR CBT   *   DOC FILE
//*            TAPE.  THE VTOC COMMAND IS NEEDED BY THE PDS COMMAND *   DOC FILE
//*            FROM EITHER FILE 039 OR FILE 040.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  ADDITION OF FILE 042 WHICH IS A COPY OF FILE 296     *   DOC FILE
//*            OF THE REGULAR CBT TAPE.  IN ADDITION, THE REVIEW    *   DOC FILE
//*            AND HEL (NOW AN ALIAS OF REVIEW) COMMANDS WERE       *   DOC FILE
//*            COPIED INTO THIS FILE, FROM FILE 134 OF THE REGULAR  *   DOC FILE
//*            CBT TAPE.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  ADDITION OF FILES 060 THRU 070 WHICH IS VERSION 72   *   DOC FILE
//*            OF THE LOS ANGELES MVS USERS GROUP TAPE.  THIS TAPE  *   DOC FILE
//*            WAS INCLUDED AS PART OF THE SHARE MVS TAPE (FILES    *   DOC FILE
//*            104-234), AND IS NOW BEING SEPARATED OUT INTO ITS    *   DOC FILE
//*            OWN CONSECUTIVE FILES.  CERTAIN FILES FROM THE LA    *   DOC FILE
//*            MVS USERS GROUP TAPE, SUCH AS THE PDS COMMAND, ARE   *   DOC FILE
//*            FOUND ELSEWHERE IN THIS TAPE IN UPDATED SOURCE, AND  *   DOC FILE
//*            HAVE BEEN DELETED FROM THIS BLOCK OF FILES.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  ADDITION OF FILE 103, WHICH WILL NOW CONTAIN THE     *   DOC FILE
//*            DOCUMENTATION FOR MANY OTHER TAPES, AND SOURCES      *   DOC FILE
//*            OF FREE MVS SOFTWARE.  THE DOCUMENTATION FOR         *   DOC FILE
//*            THE REGULAR CBT TAPE IS ON THIS FILE ALSO.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  DELETION OF FILE 139.  DOCUMENTATION FOR THE         *   DOC FILE
//*            REGULAR CBT TAPE IS NOW INCLUDED IN THE PDS ON       *   DOC FILE
//*            FILE 103 OF THIS TAPE.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  DELETION OF FILES 148 THRU 154, AND FILES 209 THRU   *   DOC FILE
//*            210, WHICH CONTAINED A BACK-LEVEL VERSION OF THE     *   DOC FILE
//*            LOS ANGELES MVS USERS GROUP TAPE.  THESE FILES ARE   *   DOC FILE
//*            BEING REPLACED BY FILES 060 THRU 070.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  MERGING OF DOCUMENTATION FOR THE SPLA TAPE FILES     *   DOC FILE
//*            INTO THIS DOCUMENTATION.  FILES 104-234.             *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-413 SECTION                                          *   DOC FILE
//*  V-413  CHANGES FOR VERSION 413 DEC 30, 1996                    *   DOC FILE
//*        00  CHANGE TO MY MAILING ADDRESS.  IT IS NOW:            *   DOC FILE
//*                                                                 *   DOC FILE
//*                 SAM GOLOB                                       *   DOC FILE
//*                 P.O. BOX 906                                    *   DOC FILE
//*                 TALLMAN, NY  10982-0906                         *   DOC FILE
//*                                                                 *   DOC FILE
//*                      NEW PHONE NUMBER:    845-362-1996          *   DOC FILE
//*                                                                 *   DOC FILE
//*            MAIL SENT TO MY PREVIOUS ADDRESS WILL BE FORWARDED   *   DOC FILE
//*            FOR A WHILE, SO I SHOULD STILL GET IT.  IF YOU WANT  *   DOC FILE
//*            CURRENT CONTACT INFORMATION FOR ME, I EXPECT TO      *   DOC FILE
//*            LEAVE IT WITH NASPA, TELEPHONE NUMBER 414-768-8000.  *   DOC FILE
//*            PLEASE TALK TO THE MEMBERSHIP COORDINATOR AND ASK    *   DOC FILE
//*            FOR MY CURRENT PHONE NUMBER.  THANK YOU.             *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-407 SECTION                                          *   DOC FILE
//*  V-407  CHANGES FOR VERSION 407 AUG 19, 1996                    *   DOC FILE
//*        01  ADDITION OF FILE 009 WHICH CONTAINS SOURCE FOR       *   DOC FILE
//*            TWO TAPE PROGRAMS, TAPESCAN AND SS0104.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  ADDITION OF FILE 058 WHICH CONTAINS OLD CODE         *   DOC FILE
//*            TO POST-PROCESS SMP4 REPORTS.  THIS CODE IS          *   DOC FILE
//*            ESSENTIALLY OBSOLETE, BUT IT IS BEING INCLUDED       *   DOC FILE
//*            HERE FOR ITS IDEAS.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  ADDITION OF FILE 059 WHICH A COLLECTION OF           *   DOC FILE
//*            PROGRAMS FROM THE FLORIDA POWER COMPANY.  THIS       *   DOC FILE
//*            COLLECTION USED TO BE ON FILE 058 OF THE OLDER       *   DOC FILE
//*            CBT TAPES.  THIS FILE WAS TAKEN FROM CBT TAPE        *   DOC FILE
//*            VERSION 249.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-406 SECTION                                          *   DOC FILE
//*  V-406  CHANGES FOR VERSION 406 JUN 25, 1996                    *   DOC FILE
//*        01  ADDITION OF FILE 005 FROM GEORGE SHEDLOCK OF         *   DOC FILE
//*            OCALA, FLORIDA.  THIS FILE CONTAINS A REXX EXEC      *   DOC FILE
//*            TO LOAD THIS TAPE ONTO A VM SYSTEM.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  ADDITION OF FILES 104-235 TO CONTAIN THE ENTIRE      *   DOC FILE
//*            SHARE MVS TAPE, THAT IS NOW "FUNCTIONALLY            *   DOC FILE
//*            STABILIZED" (I.E. "OFFICIALLY DEAD").  I GOT         *   DOC FILE
//*            PERMISSION FROM THEM TO PUT ANYTHING I WANTED        *   DOC FILE
//*            FROM THAT TAPE ONTO THIS TAPE.  SEE THE DOCUMEN-     *   DOC FILE
//*            TATION FILE 104 AND PLEASE ADD THE NUMBER 100        *   DOC FILE
//*            TO ALL FILE NUMBERS IN THAT DOCUMENTATION, TO        *   DOC FILE
//*            GET THE CORRECT FILE NUMBERS ON THIS TAPE.  JCL      *   DOC FILE
//*            TO DUMP DOWN THE FILES IS ON FILE 003 OF THIS        *   DOC FILE
//*            TAPE.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-405 SECTION                                          *   DOC FILE
//*  V-405  CHANGES FOR VERSION 405 MAY 06, 1996                    *   DOC FILE
//*        01  ADDITION OF FILE 006 WHICH IS THE AIR FORCE COPY     *   DOC FILE
//*            PROGRAM CALLED "COPYMODS" THAT IS ON FILE 229 OF     *   DOC FILE
//*            THE REGULAR CBT TAPE.  A LOAD MODULE FOR THIS        *   DOC FILE
//*            PROGRAM IS INCLUDED IN FILE 008 OF THIS TAPE.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  ADDITION OF FILE 007 WHICH IS THE TAPEMAP PROGRAM    *   DOC FILE
//*            THAT IS ON FILE 299 OF THE REGULAR CBT TAPE.  A      *   DOC FILE
//*            LOAD MODULE FOR THIS PROGRAM IS INCLUDED IN FILE     *   DOC FILE
//*            008 OF THIS TAPE.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  ADDITION OF FILE 008 WHICH IS A LOAD MODULE          *   DOC FILE
//*            LIBRARY THAT IS A COPY OF THIE LOAD MODULE LIBRARY   *   DOC FILE
//*            THAT IS ON FILE 035 OF THE REGULAR CBT TAPE.  I      *   DOC FILE
//*            FIGURE THAT IF FOR SOME REASON, YOU ONLY HAVE THIS   *   DOC FILE
//*            TAPE, WITHOUT THE OTHER TAPE, YOU MIGHT NEED SOME    *   DOC FILE
//*            UTILITIES, SUCH AS THE PDSLOAD PROGRAM, ETC.         *   DOC FILE
//*                                                                 *   DOC FILE
//*            FOR CURRENT SOURCE CODE, IT IS ADVISABLE FOR YOU     *   DOC FILE
//*            TO OBTAIN A REGULAR CBT MVS UTILITIES TAPE.  IT      *   DOC FILE
//*            SHOULD BE OBTAINABLE FROM ONE OF THE SOURCES         *   DOC FILE
//*            LISTED ABOVE.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  ADDITION OF FILE 012, WHICH IS THE UK G.U.I.D.E.     *   DOC FILE
//*            TAPE IN ITS ENTIRETY, INCLUDING ITS COLLECTION OF    *   DOC FILE
//*            ASSEMBLER MACROS.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  ADDITION OF FILE 013, WHICH IS THE GERMAN G.U.I.D.E. *   DOC FILE
//*            TAPE IN ITS ENTIRETY.  COMMENTS ARE MOSTLY IN        *   DOC FILE
//*            GERMAN.                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  ADDITION OF FILE 014, WHICH IS THE SWISS G.U.I.D.E.  *   DOC FILE
//*            TAPE IN ITS ENTIRETY.  COMMENTS ARE MOSTLY IN        *   DOC FILE
//*            GERMAN.                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  ADDITION OF FILE 015, WHICH IS THE AUSTRALIAN        *   DOC FILE
//*            G.U.I.D.E. TAPE IN ITS ENTIRETY.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  ADDITION OF FILES 016 THROUGH 037, WHICH IS          *   DOC FILE
//*            FROM LIONEL DYCK, FORMERLY OF ROCKWELL INTERNATIONAL *   DOC FILE
//*            AND WHO CURRENTLY WORKS FOR KAISER PERMANENTE.       *   DOC FILE
//*            THIS COLLECTION OF SYSTEM PROGRAMMER SOFTWARE IS     *   DOC FILE
//*            BEING DELETED FROM THE REGULAR CBT TAPE, AND IS      *   DOC FILE
//*            BEING TRANSPLANTED TO THIS TAPE.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  ADDITION OF FILE 038, WHICH IS FROM THE OLD CBT      *   DOC FILE
//*            TAPE VERSION 249.  THIS IS FILE 313 FROM THAT TAPE.  *   DOC FILE
//*            THIS IS A NICE COLLECTION OF UTILITIES FROM MEMOREX  *   DOC FILE
//*            WHICH IS OLD, BUT THE CODERS WERE GOOD, AND I MISS   *   DOC FILE
//*            HAVING THIS FILE AROUND TO REFER TO.  AM PUTTING     *   DOC FILE
//*            IT HERE TO MAKE IT AVAILABLE TO THE PUBLIC, AGAIN.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  ADDITION OF FILES 043 THROUGH 057, WHICH ARE FROM    *   DOC FILE
//*            JIM MARSHALL.  THESE ARE THE FILES FROM THE FIRST    *   DOC FILE
//*            EDITION OF THE PROPOSED SHARE "ISPF SMOKE AND        *   DOC FILE
//*            MIRRORS TAPE".  THIS TAPE NEVER GOT OFF THE GROUND,  *   DOC FILE
//*            ALTHOUGH 14 DATA FILES WERE SUBMITTED TO START IT.   *   DOC FILE
//*            JIM MARSHALL GAVE ME PERMISSION TO INCLUDE THEM      *   DOC FILE
//*            HERE.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*                 JIM MARSHALL, US TREASURY                       *   DOC FILE
//*                 FINANCIAL MANAGEMENT SERVICE                    *   DOC FILE
//*                 PRINCE GEORGES PLAZA II - ROOM 400B             *   DOC FILE
//*                 3700 EAST-WEST HIGHWAY                          *   DOC FILE
//*                 HYATTSVILLE, MD  20782                          *   DOC FILE
//*                 202-874-8353                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION DISCLAIM SECTION                                       *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*            D I S C L A I M E R    S E C T I O N                 *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//* THE UTILITIES AND MODS ON THIS TAPE HAVE BEEN USED SUCCESSFULLY *   DOC FILE
//* AND TO THE BEST OF OUR KNOWLEDGE THEY ARE OPERATIONAL, HOWEVER  *   DOC FILE
//* NO WARRANTY IS MADE TO THE ACCURACY OF THE PROGRAMS OR RELATED  *   DOC FILE
//* MATERIAL, AND NO RESPONSIBILITY IS ASSUMED FOR ANY MODIFICATION *   DOC FILE
//* DIRECTLY OR INDIRECTLY CAUSED BY THE USE OF THESE UTILITIES     *   DOC FILE
//* AND/OR MODS.  IT IS THE USER'S RESPONSIBILITY TO EVALUATE THE   *   DOC FILE
//* USEFULNESS OF THE MATERIAL SUPPLIED.                            *   DOC FILE
//*                                                                 *   DOC FILE
//* WE DO NOT GUARANTEE TO KEEP ANY MATERIAL PROVIDED UP TO DATE    *   DOC FILE
//* NOR DO WE GUARANTEE TO PROVIDE ANY CORRECTIONS OR EXTENSIONS    *   DOC FILE
//* DESCRIBED BY THE USER OR CORRECTIONS OR EXTENSIONS MADE IN THE  *   DOC FILE
//* FUTURE.                                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//***SECTION FILE STATUS SECTION                                    *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*            F I L E    S T A T U S    S E C T I O N              *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*  THE COLUMN 3.8 SHOWS STATUS WITH MVS 3.8. THE CODES MEAN,      *   DOC FILE
//*                                                                 *   DOC FILE
//*        X A  =  MVS/XA RELEASE                                   *   DOC FILE
//*        ESA  =  IT HAS BEEN RUN UNDER ESA                        *   DOC FILE
//*        N/A  =  NOT SYSTEM DEPENDENT (NO REASON NOT TO RUN)      *   DOC FILE
//*     DELETED =  DELETED FROM THIS TAPE                           *   DOC FILE
//*        SU'S =  SU5 & SU7                                        *   DOC FILE
//*        SP13 =  MVS/SP1.3 RELEASE                                *   DOC FILE
//*        AMS  =  Tested at Automated Migration Services           *   DOC FILE
//*        CBT  =  TESTED AT CBT                                    *   DOC FILE
//*        NWK  =  TESTED AT NEWSWEEK                               *   DOC FILE
//*        CSC  =  TESTED AT CSC                                    *   DOC FILE
//*        ANP  =  TESTED AT A&P                                    *   DOC FILE
//*      UNKCBT =  NOT TESTED AT CBT                                *   DOC FILE
//*      UNKNWK =  NOT TESTED AT NEWSWEEK                           *   DOC FILE
//*      UNKCSC =  NOT TESTED AT CSC                                *   DOC FILE
//*      UNKAMS =  NOT TESTED AT Automated Migration Services       *   DOC FILE
//*      UNKANP =  NOT TESTED AT A&P                                *   DOC FILE
//*         ALL =  ONLY THE SOURCE FOR # COMMAND SYSTEM HAS THIS    *   DOC FILE
//*                THIS MARKER BECAUSE THERE IS SOURCE FOR:         *   DOC FILE
//*                  01  NON-SE (BASE 3.8 - 3.7 WITH SU5 AND SU7)   *   DOC FILE
//*                  02  SE/RELEASE 1                               *   DOC FILE
//*                  03  SE/RELEASE 2                               *   DOC FILE
//*                  04  SP/RELEASE 1                               *   DOC FILE
//*                 SOME OF THE COMMANDS ARE ONLY SUPPORTED ON      *   DOC FILE
//*                 CERTAIN RELEASES WHILE OTHERS ARE SUPPORTED ON  *   DOC FILE
//*                 ALL RELEASES                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*      COMPRESSED HEADER SHOWS IF THE FILE HAS BEEN COMPRESSED    *   DOC FILE
//*                                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*                 FILE 3.8    RECORD FOOT            ORIGINAL     *   DOC FILE
//*                 NUM-         COUNT AGE   AS OF         LRECL    *   DOC FILE
//*                 BER                6                            *   DOC FILE
//*                                     2                      COM  *   DOC FILE
//*                                      5                     PRES *   DOC FILE
//*                                      0                     SED? *   DOC FILE
//*       +                             BPI                         *   DOC FILE
//*   ---> ISPF STATS PRESERVED WITH  S     IN THIS COLUMN  <---    *   DOC FILE
//* |            DO NOT REMOVE THIS LINE FOR QUICK INDEX PGM        *   DOC FILE
//* |DIRECTORY       001 N/A    13110   15.3 08-24-00      080    NO* % DOC FILE
//* COMPRESS PGM     002 CBT      263     .3 04-01-79      080    NO*   DOC FILE
//* JCL - DROP TAPE  003 AMS      489     .9 12-16-99      080    NO*   DOC FILE
//* File 1 Utilities 004 AMS     2263 S  1.4 08-10-99      080 YES  *   DOC FILE
//* VMREXX-DROP TAPE 005 N/A     1099    1.4 08-24-00      080    NO*   DOC FILE
//* TAPE COPY        006 CBT     2932 S  2.3 08-24-00      080 YES  *   DOC FILE
//* TAPEMAP          007 CBT     9493 S  6.9 08-24-00      080 YES  *   DOC FILE
//* LOAD MODS        008 CSC      148   41.6 08-24-00    IEBCOPY  NO*   DOC FILE
//* TAPESCAN,SS0104  009 CSC     8634 S  6.0 08-24-00      080 YES  *   DOC FILE
//* EMPTY            010 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            011 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* UK GUIDE TAPE    012 N/A   253103 S148.6 05-06-96      080 YES  *   DOC FILE
//* GERMAN GUIDE TAP 013 N/A   527498 S328.2 05-06-96      080 YES  *   DOC FILE
//* SWISS GUIDE TAPE 014 N/A    27555 S 17.1 05-06-96      080 YES  *   DOC FILE
//* AUSSIE GUIDE TAP 015 N/A    22263 S 13.0 05-06-96      080 YES  *   DOC FILE
//* RKWEL DOC        016 UNKCBT   375 S   .3 04-08-94      080 YES  *   DOC FILE
//* RKWEL DOCFMT     017 UNKCBT    14    2.8 08-19-94    IEBCOPY  NO*   DOC FILE
//* RKWEL HELP       018 UNKCBT  4119    3.2 02-08-89      080 YES  *   DOC FILE
//* RKWEL CLIST      019 UNKCBT 41257   72.8 04-17-94    IEBCOPY  NO*   DOC FILE
//* RKWEL MACRO      020 UNKCBT 41340   26.8 09-24-93      080 YES  *   DOC FILE
//* RKWEL TEXT       021 UNKCBT 23076   16.7 08-16-92      080 YES  *   DOC FILE
//* RKWEL SOURCE     022 UNKCBT146085   94.0 08-16-92      080 YES  *   DOC FILE
//* RKWEL UTIL DOC   023 UNKCBT 65122   36.6 08-16-92      080 YES  *   DOC FILE
//* RKWEL NEWS FILE  024 UNKCBT  1581    1.4 02-08-89      080 YES  *   DOC FILE
//* RKWEL ISPF SKEL  025 UNKCBT 10981    6.0 02-08-89      080 YES  *   DOC FILE
//* RKWEL ISPF PNL   026 UNKCBT 59202 S 36.1 08-28-92      080 YES  *   DOC FILE
//* RKWEL TSSO CLST  027 UNKCBT    54 S  4.6 08-19-94    IEBCOPY  NO*   DOC FILE
//* RKWEL ISPF MSG   028 UNKCBT  1062     .9 08-16-92      080 YES  *   DOC FILE
//* RKWEL SCR MEMO   029 UNKCBT   231   25.1 08-19-94    IEBCOPY  NO*   DOC FILE
//* RKWEL SCR HYPH   030 UNKCBT  2735    1.1 02-08-89      080-VB-NO*   DOC FILE
//* RKWEL SCR TXT    031 UNKCBT  5106    3.7 02-08-89      080 YES  *   DOC FILE
//* RKWEL ISPF TBL   032 UNKCBT  8949   10.2 02-08-89      080 YES  *   DOC FILE
//* RKWEL TSSO PARM  033 UNKCBT   743     .9 02-08-89      080 YES  *   DOC FILE
//* RKWEL PROCLIB    034 UNKCBT   119     .1 02-08-89      080 YES  *   DOC FILE
//* RKWEL PARMLIB    035 UNKCBT    38     .0 02-08-89      080 YES  *   DOC FILE
//* RKWEL SCR MACRO  036 UNKCBT 26093   19.4 02-08-89      080 YES  *   DOC FILE
//* RKWEL TSSO SRC   037 UNKCBT 57181   33.3 08-16-92      080 YES  *   DOC FILE
//* MEMOREX FILE 313 038 UNKCB 109571 S 65.7 06-21-81      080 YES  *
//* PDS VERSION 7.3  039 NWK    52431 S 35.6 01-20-98      080 YES  *   DOC FILE
//* PDS VERSION 8.5  040 NWK    90795 S 62.0 08-24-00      080 YES  *   DOC FILE
//* VTOC TSO COMMAND 041 UNKTCN 13792 S  9.3 01-20-98      080 YES  *   DOC FILE
//* UTILTIES FOR PDS 042 ANP    43853 S 27.3 08-24-00      080 YES  *   DOC FILE
//* ISPF SMMT DOC    043 N/A     1365 S   .9 05-06-96      080 YES  *   DOC FILE
//* ISPF SMMT FIL 4  044 N/A      955 S   .9 05-06-96      080 YES  *   DOC FILE
//* ISPF SMMT FIL 5  045 N/A     2014 S  1.4 05-06-96      080 YES  *   DOC FILE
//* ISPF SMMT FIL 6  046 N/A     1325 S   .9 05-06-96      080 YES  *   DOC FILE
//* ISPF SMMT FIL 7  047 N/A      736 S   .4 05-06-96      080 YES  *   DOC FILE
//* ISPF SMMT FIL 8  048 N/A    17771 S  9.7 05-06-96      080 YES  *   DOC FILE
//* ISPF SMMT FIL 9  049 N/A      183 S   .1 05-06-96      080 YES  *   DOC FILE
//* ISPF SMMT FIL10  050 N/A     1430 S   .9 05-06-96      080 YES  *   DOC FILE
//* ISPF SMMT FIL11  051 N/A      573 S   .3 05-06-96      080 YES  *   DOC FILE
//* ISPF SMMT FIL12  052 N/A    11886 S  6.5 05-06-96      080 YES  *   DOC FILE
//* ISPF SMMT FIL13  053 N/A      585 S   .4 05-06-96      080 YES  *   DOC FILE
//* ISPF SMMT FIL14  054 N/A     1943 S  1.4 05-06-96      080 YES  *   DOC FILE
//* ISPF SMMT FIL15  055 N/A      158 S   .1 05-06-96      080 YES  *   DOC FILE
//* ISPF SMMT FIL16  056 N/A      487 S   .2 05-06-96      080 YES  *   DOC FILE
//* ISPF SMMT FIL17  057 N/A     4529 S  2.8 05-06-96      080 YES  *   DOC FILE
//* SMP USER PGMS    058 NWK    20517 S 14.3 08-19-96      080 YES  *   DOC FILE
//* UTILITIES        059 SOME   22396 S 15.3 08-19-96      080 YES  *   DOC FILE
//* LAUG TAPE DOC    060 N/A    36409 S 21.8 01-20-98      080 YES  *   DOC FILE
//* LAUG TAPE HELP   061 N/A     9490 S  7.9 01-20-98      080 YES  *   DOC FILE
//* LAUG TAPE LOAD   062 N/A      244   68.6 01-20-98    IEBCOPY  NO*   DOC FILE
//* LAUG TAPE MACLIB 063 N/A    59874 S 38.9 01-20-98      080 YES  *   DOC FILE
//* LAUG TAPE OBJECT 064 N/A    15409 S 17.1 01-20-98      080 YES  *   DOC FILE
//* LAUG TAPE SOURCE 065 N/A   389243 S253.6 01-20-98      080 YES  *   DOC FILE
//* LAUG TAPE CNTL   066 N/A     3861 S  3.2 01-20-98      080 YES  *   DOC FILE
//* LAUG TAPE CLIST  067 N/A     6750 S  4.6 01-20-98      080 YES  *   DOC FILE
//* LAUG TAPE PANELS 068 N/A     7229 S  4.6 01-20-98      080 YES  *   DOC FILE
//* LAUG TAPE RECNFG 069 N/A      595 S   .9 01-20-98      080 YES  *   DOC FILE
//* DAF 2.6 or later 070 N/A    15159 S  8.8 08-24-00      080 YES  *   DOC FILE
//* EMPTY            071 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            072 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            073 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            074 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* MVT SYS1.MACLIB  075 UNKTCN 42952 S 28.7 10-27-98      080 YES  *   DOC FILE
//* MVT SYS1.MODGEN  076 UNKTCN 93179 S 65.3 10-27-98      080 YES  *   DOC FILE
//* MVT SYS1.TSOMAC  077 UNKTCN 11519 S  8.3 10-27-98      080 YES  *   DOC FILE
//* MVT SYS1.GENLIB  078 UNKTCN 34315 S 25.5 10-27-98      080 YES  *   DOC FILE
//* MVT SYS1.SAMPLIB 079 UNKTCN 11243 S  9.3 10-27-98      080 YES  *   DOC FILE
//* MVT SYS1.TCAMMAC 080 UNKTCN  9986 S  6.9 10-27-98      080 YES  *   DOC FILE
//* MVT SYS1.PROCLIB 081 UNKTCN   832 S   .9 10-27-98      080 YES  *   DOC FILE
//* MVT SYS1.PVTMACS 082 UNKTCN118119 S 80.5 10-27-98      080 YES  *   DOC FILE
//* EMPTY            083 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* PDS PREVIOUS     084 CBT    86517 S 59.2 05-20-98      080 YES  *   DOC FILE
//* EMPTY            085 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            086 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            087 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            088 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            089 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            090 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            091 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            092 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* QUE 2.2.0        093 UNKCBT 11538 S  8.8 05-29-98      080 YES  *   DOC FILE
//* QUE 1.3.6        094 UNKCBT 13392 S  9.7 05-29-98      080 YES  *   DOC FILE
//* QUE 3.1.1        095 UNKCBT 12301    9.3 05-29-98      080 YES  *   DOC FILE
//* QUE 3.1.1        096 UNKCBT 16276   12.0 05-29-98      080 YES  *   DOC FILE
//* QUE 1.3.6        097 UNKCBT 15883   11.6 05-29-98      080 YES  *   DOC FILE
//* QUE 2.2.0        098 UNKCBT 15858   11.6 05-29-98      080 YES  *   DOC FILE
//* EMPTY            099 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            100 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            101 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            102 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* DOC OTHER TAPES  103 CSC    86288 S 61.6 08-24-00      080 YES  *   DOC FILE
//* SPLA TAPE DOC    104 UNKCSC 10175 S  6.5 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 005    105 UNKCSC  6562 S  5.5 06-25-96    IEBCOPY  NO*   DOC FILE
//* SPLA FILE 006    106 UNKCSC  2230 S  1.9 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 007    107 UNKCSC    42 S   .1 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 008    108 UNKCSC   170 S   .1 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 009    109 UNKCSC 23237 S 14.3 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 010    110 UNKCSC  4509 S  2.8 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 011    111 UNKCSC     2 S   .0 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 012    112 UNKCSC  3907 S  3.7 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 013    113 UNKCSC    88   16.9 06-25-96    IEBCOPY  NO*   DOC FILE
//* SPLA FILE 014    114 UNKCSC  5817 S  3.7 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 015    115 UNKCSC  3443 S  1.9 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 016    116 UNKCSC   499 S   .3 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 017    117 UNKCSC  4624 S  2.8 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 018    118 UNKCSC   346     .2 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 019    119 UNKCSC  8283 S  4.6 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 020    120 UNKCSC  1274 S   .9 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 021    121 UNKCSC 50475   32.4 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 022    122 UNKCSC   634 S   .4 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 023    123 UNKCSC  2253 S  1.8 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 024    124 UNKCSC  8267 S  5.6 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 025    125 UNKCSC  9687 S  5.6 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 026    126 UNKCSC 26142 S 16.2 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 027    127 UNKCSC  9800 S  6.9 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 028    128 UNKCSC  1131 S   .9 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 029    129 UNKCSC  1583 S  1.4 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 030    130 UNKCSC    78 S   .1 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 031    131 UNKCSC 62829 S 36.6 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 032    132 UNKCSC  4397 S  3.2 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 033    133 UNKCSC  3658 S  2.8 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 034    134 UNKCSC  2620 S  1.9 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 035    135 UNKCSC  3593 S  2.3 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 036    136 UNKCSC   987 S   .9 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 037    137 UNKCSC   926 S  1.4 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 038    138 UNKCSC    81 S   .1 06-25-96      080 YES  *   DOC FILE
//* EMPTY            139 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* SPLA FILE 040    140 UNKCSC   103 S   .1 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 041    141 UNKCSC   315 S   .2 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 042    142 UNKCSC  1171 S   .9 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 043    143 UNKCSC   339 S   .3 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 044    144 UNKCSC  3588 S  8.6 06-25-96    IEBCOPY  NO*   DOC FILE
//* SPLA FILE 045    145 UNKCSC 10674 S  5.6 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 046    146 UNKCSC    23    3.2 06-25-96    IEBCOPY  NO*   DOC FILE
//* SPLA FILE 047    147 UNKCSC  9000 S  6.0 06-25-96      080 YES  *   DOC FILE
//* EMPTY            148 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* EMPTY            149 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* EMPTY            150 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* EMPTY            151 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* EMPTY            152 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* EMPTY            153 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* EMPTY            154 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* SPLA FILE 055    155 UNKCSC  1111 S  1.2 06-25-96    IEBCOPY  NO*   DOC FILE
//* SPLA FILE 056    156 UNKCSC  4127 S  2.8 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 057    157 UNKCSC  1083 S   .9 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 058    158 UNKCSC  1003 S   .9 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 059    159 UNKCSC  2222 S  5.7 06-25-96    IEBCOPY  NO*   DOC FILE
//* SPLA FILE 060    160 UNKCSC 34792 S 22.2 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 061    161 UNKCSC  2391 S  1.9 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 062    162 UNKCSC     5 S   .0 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 063    163 UNKCSC    99 S   .1 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 064    164 UNKCSC 19530 S 13.4 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 065    165 UNKCSC   109 S   .1 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 066    166 UNKCSC 20795 S 13.9 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 067    167 UNKCSC    57   11.4 06-25-96    IEBCOPY  NO*   DOC FILE
//* SPLA FILE 068    168 UNKCSC  1678 S  1.4 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 069    169 UNKCSC 13986 S  8.8 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 070    170 UNKCSC    57   11.4 06-25-96    IEBCOPY  NO*   DOC FILE
//* SPLA FILE 071    171 UNKCSC  1544    2.0 06-25-96    IEBCOPY  NO*   DOC FILE
//* SPLA FILE 072    172 UNKCSC   648    2.0 06-25-96    IEBCOPY  NO*   DOC FILE
//* SPLA FILE 073    173 UNKCSC  2404   10.1 06-25-96    IEBCOPY  NO*   DOC FILE
//* SPLA FILE 074    174 UNKCSC   102 S   .1 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 075    175 UNKCSC    79 S   .1 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 076    176 UNKCSC    89 S   .1 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 077    177 UNKCSC  4351 S  3.2 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 078    178 UNKCSC 70431 S 36.6 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 079    179 UNKCSC   463 S   .4 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 080    180 UNKCSC  1860 S  3.9 06-25-96    IEBCOPY  NO*   DOC FILE
//* SPLA FILE 081    181 UNKCSC    81 S   .1 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 082    182 UNKCSC   497 S  1.2 06-25-96    IEBCOPY  NO*   DOC FILE
//* SPLA FILE 083    183 UNKCSC  3818 S  2.8 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 084    184 UNKCSC  6176 S  6.9 06-25-96    IEBCOPY  NO*   DOC FILE
//* SPLA FILE 085    185 UNKCSC 25629 S 16.7 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 086    186 UNKCSC  6242 S  8.1 06-25-96    IEBCOPY  NO*   DOC FILE
//* SPLA FILE 087    187 UNKCSC  4894 S  3.7 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 088    188 UNKCSC 13089 S  8.8 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 089    189 UNKCSC  1495 S  1.4 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 090    190 UNKCSC   579 S   .4 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 091    191 UNKCSC 15974 S 31.0 06-25-96    IEBCOPY  NO*   DOC FILE
//* SPLA FILE 092    192 UNKCSC162259 S 99.5 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 093    193 UNKCSC   143 S   .1 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 094    194 UNKCSC  4634 S  3.2 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 095    195 UNKCSC  1055 S   .9 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 096    196 UNKCSC 16616 S 11.6 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 097    197 UNKCSC   490 S   .4 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 098    198 UNKCSC   678 S   .4 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 099    199 UNKCSC  3590 S  2.8 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 100    200 UNKCSC   254 S   .3 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 101    201 UNKCSC    23    2.5 06-25-96    IEBCOPY  NO*   DOC FILE
//* SPLA FILE 102    202 UNKCSC  2200 S  2.0 06-25-96    IEBCOPY  NO*   DOC FILE
//* SPLA FILE 103    203 UNKCSC  1975 S  1.4 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 104    204 UNKCSC  3923 S  2.8 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 105    205 UNKCSC  7923 S  6.0 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 106    206 UNKCSC  6949 S  4.2 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 107    207 UNKCSC  7741 S  5.1 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 108    208 UNKCSC    22 S   .8 06-25-96    IEBCOPY  NO*   DOC FILE
//* EMPTY            209 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* EMPTY            210 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* SPLA FILE 111    211 UNKCSC  2638 S  1.9 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 112    212 UNKCSC  1177 S   .9 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 113    213 UNKCSC   338 S   .3 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 114    214 UNKCSC  1510 S  1.4 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 115    215 UNKCSC  1185 S   .9 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 116    216 UNKCSC  8170 S  5.1 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 117    217 UNKCSC  4016 S  2.3 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 118    218 UNKCSC   132   26.5 06-25-96    IEBCOPY  NO*   DOC FILE
//* SPLA FILE 119    219 UNKCSC   568  113.7 06-25-96    IEBCOPY  NO*   DOC FILE
//* SPLA FILE 120    220 UNKCSC  2841 S  2.3 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 121    221 UNKCSC  1188 S   .9 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 122    222 UNKCSC   225 S   .1 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 123    223 UNKCSC    22    4.4 06-25-96    IEBCOPY  NO*   DOC FILE
//* SPLA FILE 124    224 UNKCSC   197 S   .1 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 125    225 UNKCSC  1299 S  1.5 06-25-96    IEBCOPY  NO*   DOC FILE
//* SPLA FILE 126    226 UNKCSC  9663 S  6.9 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 127    227 UNKCSC     1 S   .0 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 128    228 UNKCSC    17 S   .0 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 129    229 UNKCSC  5180 S  3.2 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 130    230 UNKCSC 26845 S 16.2 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 131    231 UNKCSC    84   13.1 06-25-96    IEBCOPY  NO*   DOC FILE
//* SPLA FILE 132    232 UNKCSC   119   23.9 06-25-96    IEBCOPY  NO*   DOC FILE
//* SPLA FILE 133    233 UNKCSC 27618 S 19.0 06-25-96      080 YES  *   DOC FILE
//* SPLA FILE 134    234 UNKCSC  3783 S  2.8 06-25-96      080 YES  *   DOC FILE
//* EMPTY            235 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            236 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            237 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            238 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            239 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* BONY + QUIZ      240 N/A      385 S   .3 10-15-85      080 YES  *   DOC FILE
//* SPY/CONSOLE      241 UNKCBT  2400 S  1.8 05-22-88      080 YES  *   DOC FILE
//* DUMP EXITS       242 UNKCBT 10967 S  7.9 10-29-85      080 YES  *   DOC FILE
//* TUNING RPT       243 N/A     5021 S  2.8 07-17-83      080 YES  *   DOC FILE
//* QUE 4.2, 4.3     244 CSC    21893 S 15.7 09-13-95      080 YES  *   DOC FILE
//* EMPTY            245 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            246 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* TSSO - BELLCORE  247 UNKCBT 40131 S 23.1 05-16-91      080 YES  *   DOC FILE
//* TSSO MODS        248 UNKCSC  3836 S  2.8 01-10-93      080 YES  *   DOC FILE
//* TSSO - BFG       249 UNKCSC 43344 S 25.5 01-10-93      080 YES  *   DOC FILE
//* EMPTY            250 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            251 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            252 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            253 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            254 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            255 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            256 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            257 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            258 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            259 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* PL1 Tape Doc     260 UNKAMS  1692 S  1.4 12-16-99      080 YES  *   DOC FILE
//* ABE Editor Load  261 UNKAMS   781  219.6 12-16-99    IEBCOPY  NO*   DOC FILE
//* ABE AID Library  262 UNKAMS  7743 S  5.1 12-16-99      080 YES  *   DOC FILE
//* ABE Documentaton 263 UNKAMS 24321 S 14.3 12-16-99      080 YES  *   DOC FILE
//* ABE Source Code  264 UNKAMS211285 S135.6 12-16-99      080 YES  *   DOC FILE
//* ABE Subrtn Doc   265 UNKAMS 16665 S 26.1 12-16-99    IEBCOPY  NO*   DOC FILE
//* ABE Include Libr 266 UNKAMS   209   56.6 12-16-99    IEBCOPY  NO*   DOC FILE
//* ABE LKED Stmts   267 UNKAMS   412 S   .4 12-16-99      080 YES  *   DOC FILE
//* ABE Fortran subr 268 UNKAMS   923 S   .9 12-16-99      080 YES  *   DOC FILE
//* ABE Fortran Obj  269 UNKAMS   485 S   .5 12-16-99      080 YES  *   DOC FILE
//* EMPTY            270 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* QUANDRY Doc      271 UNKAMS  1255 S   .9 12-16-99      080 YES  *   DOC FILE
//* QUANDRY Asm Srce 272 UNKAMS   979 S   .9 12-16-99      080 YES  *   DOC FILE
//* QUANDRY Clists   273 UNKAMS   218 S   .2 12-16-99      080 YES  *   DOC FILE
//* QUANDRY Jobstrms 274 UNKAMS   561 S   .4 12-16-99      080 YES  *   DOC FILE
//* QUANDRY Listings 275 UNKAMS  8786 S 20.5 12-16-99    IEBCOPY  NO*   DOC FILE
//* QUANDRY PL1 Srce 276 UNKAMS  4736 S  3.7 12-16-99      080 YES  *   DOC FILE
//* QUANDRY Data Fil 277 UNKAMS  1000 S 24.8 12-16-99    IEBCOPY  NO*   DOC FILE
//* Teledyne Script  278 UNKAMS 13430 S 21.5 12-16-99    IEBCOPY  NO*   DOC FILE
//* Teledyne Script  279 UNKAMS  6277 S  8.4 12-16-99    IEBCOPY  NO*   DOC FILE
//* Teledyne Scr Doc 280 UNKAMS  8001 S  9.8 12-16-99    IEBCOPY  NO*   DOC FILE
//* PL1 Exec Analyzr 281 UNKAMS  2291 S  1.8 12-16-99      080 YES  *   DOC FILE
//* SORTPLI          282 UNKAMS   548 S   .4 12-16-99      080 YES  *   DOC FILE
//* Dickie Llib Pgms 283 UNKAMS  1523 S  1.4 12-16-99      080 YES  *   DOC FILE
//* Curv Fitting Pgs 284 UNKAMS   610 S   .3 12-16-99      080 YES  *   DOC FILE
//* M.Robinson Prgms 285 UNKAMS  3331 S  1.9 12-16-99      080 YES  *   DOC FILE
//* M.Robinson Prgms 286 UNKAMS  3879 S  2.3 12-16-99      080 YES  *   DOC FILE
//* VM PL1 Monitor   287 UNKAMS   233    8.7 12-16-99      805    NO*   DOC FILE
//* PL1 3270 Styma   288 UNKAMS  5633 S  4.2 12-16-99      080 YES  *   DOC FILE
//* PL1 IMS Interfac 289 UNKAMS   633 S   .4 12-16-99      080 YES  *   DOC FILE
//* Display Dataset  290 UNKAMS  6210 S  4.2 12-16-99      080 YES  *   DOC FILE
//* PL1 3270 Hadden  291 UNKAMS  1392 S   .9 12-16-99      080 YES  *   DOC FILE
//* PL1 Struc Chart  292 UNKAMS   884 S   .9 12-16-99      080 YES  *   DOC FILE
//* PL1 CMS Interfac 293 UNKAMS  3291 S  2.3 12-16-99      080 YES  *   DOC FILE
//* MACROS Program   294 UNKAMS  5035 S  2.8 12-16-99      080 YES  *   DOC FILE
//* PL1 Function Pkg 295 UNKAMS  2247 S  1.4 12-16-99      080 YES  *   DOC FILE
//* EMPTY            296 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            297 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            298 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            299 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            300 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            301 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            302 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            303 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            304 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            305 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            306 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            307 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            308 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            309 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            310 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            311 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            312 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            313 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            314 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            315 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            316 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            317 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            318 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            319 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            320 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            321 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            322 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            323 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            324 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            325 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            326 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            327 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            328 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            329 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            330 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            331 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            332 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            333 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            334 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            335 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            336 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            337 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            338 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            339 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            340 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            341 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            342 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            343 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            344 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            345 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            346 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            347 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            348 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            349 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            350 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            351 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            352 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            353 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            354 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            355 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            356 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            357 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            358 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            359 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            360 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            361 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            362 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            363 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            364 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            365 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            366 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            367 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            368 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            369 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            370 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            371 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            372 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            373 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            374 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            375 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            376 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            377 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            378 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            379 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            380 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            381 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            382 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            383 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            384 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            385 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            386 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            387 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            388 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            389 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            390 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            391 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            392 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            393 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            394 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            395 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            396 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            397 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            398 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            399 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            400 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            401 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            402 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            403 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            404 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            405 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            406 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            407 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            408 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            409 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            410 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            411 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            412 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            413 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            414 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            415 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            416 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            417 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            418 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            419 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            420 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            421 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            422 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            423 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            424 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            425 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            426 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            427 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            428 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            429 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            430 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            431 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            432 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            433 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            434 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            435 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            436 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            437 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            438 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            439 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            440 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            441 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            442 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            443 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            444 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            445 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            446 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            447 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            448 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            449 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            450 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            451 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            452 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            453 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            454 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            455 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            456 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            457 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            458 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            459 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            460 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            461 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            462 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            463 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            464 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            465 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            466 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            467 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            468 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            469 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            470 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            471 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            472 N/A        1     .0 05-06-96      080 YES  *   DOC FILE
//* EMPTY            473 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* EMPTY            474 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* EMPTY            475 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* EMPTY            476 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* EMPTY            477 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* EMPTY            478 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* EMPTY            479 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* EMPTY            480 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* EMPTY            481 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* EMPTY            482 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* EMPTY            483 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* EMPTY            484 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* EMPTY            485 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* EMPTY            486 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* EMPTY            487 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* EMPTY            488 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* EMPTY            489 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* EMPTY            490 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* EMPTY            491 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* EMPTY            492 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* EMPTY            493 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* EMPTY            494 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* EMPTY            495 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* EMPTY            496 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* EMPTY            497 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* EMPTY            498 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* EMPTY            499 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//* EMPTY            500 N/A        1     .0 01-20-98      080 YES  *   DOC FILE
//*       TOTAL FOOTAGE               3571.5                        *   DOC FILE
//*                                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//***SECTION OFFLOAD SECTION                                        *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*              O F F L O A D           S E C T I O N              *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*    Many of the files on this tape are created using the Yale    *   DOC FILE
//*    OFFLOAD program (File 093).  When the OFFLOAD program finds  *   DOC FILE
//*    data records in a pds that look like IEBUPDTE control cards  *   DOC FILE
//*    (i.e.  './' ) it substitues a >< for an ' ./ '.              *   DOC FILE
//*                                                                 *   DOC FILE
//*    I currently use the LISTPDS program nowadays instead of      *   DOC FILE
//*    OFFLOAD.  Note that the LISTPDS program from File 316 can    *   DOC FILE
//*    do the same thing, and it can also preserve ISPF stats in    *   DOC FILE
//*    the control card.  The ISPF stats can be restored using      *   DOC FILE
//*    the PDSLOAD program from File 093.  OFFLOAD and PDSLOAD      *   DOC FILE
//*    have recently been modified by Greg Price to have paired     *   DOC FILE
//*    functionality, and OFFLOAD will also produce ISPF stats in   *   DOC FILE
//*    the "IEBUPDTE" control cards if they existed for the pds     *   DOC FILE
//*    member.  (SG. 10/93)                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*                OFFLOAD FORMAT ---- (ERGO ' ./ '                 *   DOC FILE
//*                CONTROL CARDS HAVE BEEN CONVERTED TO ' >< '      *   DOC FILE
//*                AND YOU WILL HAVE TO ISSUE A GLOBAL CHANGE TO    *   DOC FILE
//*                CONVERT >< TO ./ BEFORE YOU USE THESE MEMBER AS  *   DOC FILE
//*                SYSIN INPUT TO IEBUPDTE.)                        *   DOC FILE
//*                                                                 *   DOC FILE
//*   *** FIRST TAKE THE WHOLE FILE AND IEBUPDTE IT TO A DATASET    *   DOC FILE
//*       THEN EDIT EACH OF THE FOLLOWING MEMBERS AND DO YOUR       *   DOC FILE
//*       GLOBAL CHANGE BEFORE YOU DO ANOTHER IEBUPDTE RUN FOR      *   DOC FILE
//*       EACH OF THE FOLLOWING TO ITS OWN UNIQUE PDS.  ***         *   DOC FILE
//*                                                                 *   DOC FILE
//*       THE PDSLOAD PROGRAM FROM FILE 093 WILL CHANGE >< TO ./    *   DOC FILE
//*       AUTOMATICALLY.  SEE THE JCL IN FILE 003 OF THIS TAPE      *   DOC FILE
//*       IN PROC "UPDATEO" DESCRIBING THE USE OF PDSLOAD IN PLACE  *   DOC FILE
//*       OF IEBUPDTE.                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*    THE FOLLOWING FILES ARE IN IEBUPDTE SYSIN FORMAT AND MAY     *   DOC FILE
//*    HAVE BEEN ACCESSED BY OFFLOAD AT ONE TIME OR ANOTHER AND     *   DOC FILE
//*    HENCE MAY HAVE >< SUBSTITUED FOR AN ./                       *   DOC FILE
//*                                                                 *   DOC FILE
//*       MOST EVERY FILE ON THE TAPE THAT IS IN IEBUPDTE SYSIN     *   DOC FILE
//*       FORMAT HAS PROBABLY BEEN PROCESSED BY OFFLOAD.            *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//***SECTION EMPTY FILE SECTION                                     *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*              E M P T Y    F I L E    S E C T I O N              *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*    The following files are currently empty:                     *   DOC FILE
//*                                                                 *   DOC FILE
//*          010 - 011                                              *   DOC FILE
//*          071 - 074                                              *   DOC FILE
//*          082                                                    *   DOC FILE
//*          085 - 092                                              *   DOC FILE
//*          099 - 101                                              *   DOC FILE
//*          139                                                    *   DOC FILE
//*          148 - 154                                              *   DOC FILE
//*          209 - 210                                              *   DOC FILE
//*          235 - 239                                              *   DOC FILE
//*          245 - 246                                              *   DOC FILE
//*          250 - 259                                              *   DOC FILE
//*          270                                                    *   DOC FILE
//*          296 - 500                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//***SECTION VERSION SECTION                                        *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*              V E R S I O N     S E C T I O N                    *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*              Date of CHANGES to the OVERFLOW Tape               *   DOC FILE
//*                                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//* YR VERS SHP  VERSION          DATE    # SHIPPED  # REC  # FILES *   DOC FILE
//*                                                                 *   DOC FILE
//*  000 - TOTAL VERSIONS FOR 1995                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//*1996  1049.3  VERSION 405V  MAY 06, 1996   -   67,400,615   472  *   DOC FILE
//*      2146.1  VERSION 406V  JUN 25, 1996   -  126,636,288   472  *   DOC FILE
//*      2180.3  VERSION 407V  AUG 19, 1996   -  128,987,407   472  *   DOC FILE
//*      2180.3  VERSION 413V  DEC 30, 1996   -  128,989,967   472  *   DOC FILE
//*                                                                 *   DOC FILE
//*  004 - TOTAL VERSIONS FOR 1996                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//*                                                                 *   DOC FILE
//*  000 - TOTAL VERSIONS FOR 1997                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//*      2543.0  VERSION 417V  JAN 20, 1998   -  153,037,348   500  *   DOC FILE
//*      2665.3  VERSION 418V  MAY 29, 1998   -  161,483,999   500  *   DOC FILE
//*      2895.7  VERSION 419V  OCT 27, 1998   -  177,524,006   500  *   DOC FILE
//*                                                                 *   DOC FILE
//*  003 - TOTAL VERSIONS FOR 1998                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//*      2986.1  VERSION 421V  AUG 10, 1999   -  183,675,668   500  *   DOC FILE
//* IDRC 3573.2  VERSION 422V  DEC 16, 1999   -  212,821,259   500  *   DOC FILE
//*                                                                 *   DOC FILE
//*  002 - TOTAL VERSIONS FOR 1999                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//*      3571.5  VERSION 428V  AUG 24, 2000   -  212,954,712   500  *   DOC FILE
//*              VERSION 429V   ?             -     ,   ,      500  *   DOC FILE
//*              VERSION 430V   ?             -     ,   ,      500  *   DOC FILE
//*                                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*     001     VERSION 249 *  JUL 05, 1985  49    2,362,266   460  *   DOC FILE
//*                                          002                    *   DOC FILE
//*******************************************************************   DOC FILE
//*******************************************************************   DOC FILE
//***SECTION DOCUMENTATION SECTION                                  *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*       D   O   C   U   M   E   N   T   A   T   I   O   N         *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//* >>> = = = = = = = = = = = = = = = = = = = = = = = = = = = = <<< *   DOC FILE
//* >>>                                                         <<< *   DOC FILE
//* >>>   This tape is recorded on 3480 non-IDRC cartridges     <<< *   DOC FILE
//* >>>            or on 3600 foot reels at 6250 bpi            <<< *   DOC FILE
//* >>>                          and                            <<< *   DOC FILE
//* >>>             has code that pertains to MVS               <<< *   DOC FILE
//* >>>                                                         <<< *   DOC FILE
//* >>> = = = = = = = = = = = = = = = = = = = = = = = = = = = = <<< *   DOC FILE
//*                                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//***FILE 001 IS THE JCL THAT CREATED THIS TAPE (YOU ARE            *   FILE 001
//*           READING IT NOW)                                       *   FILE 001
//*                                                                 *   FILE 001
//*           Please see the assembler program called CBTUPD        *   FILE 001
//*           that is on File 004 and on File 010.  This program    *   FILE 001
//*           will introduce ./ ADD NAME= cards into this file,     *   FILE 001
//*           so that it can be conveniently broken up into         *   FILE 001
//*           members of a partitioned dataset, and it may be       *   FILE 001
//*           read in more "bite-sized" pieces.                     *   FILE 001
//*                                                                 *   FILE 001
//*                            SUNGARD                              *   FILE 001
//*                                                                 *   FILE 001
//*           THE FOLLOWING IS A COMMENT FROM MR ARTHUR TANSKY      *   FILE 001
//*           OF SUNGARD IN VOORHEES, NEW JERSEY. IT MAY BE TO      *   FILE 001
//*           YOUR ADVANTAGE TO FOLLOW HIS ADVICE.                  *   FILE 001
//*                                                                 *   FILE 001
//*           TO KEEP FILE 001 FROM TAKING UP SO MUCH ROOM, YOU     *   FILE 001
//*           CAN EDIT OUT CERTAIN OF THE BEGINNING LINES WHICH     *   FILE 001
//*           ARE SELDOM USED (SUCH AS THE ADDRESS).  BUT THIS      *   FILE 001
//*           DOES NOT SAVE TOO MUCH.  THE REAL SAVINGS COMES       *   FILE 001
//*           WHEN YOU GET RID OF THE //* AT THE BEGINNING OF       *   FILE 001
//*           EACH LINE AND ESPECIALLY THE * AT THE END OF EACH     *   FILE 001
//*           LINE.  YOU CAN USE SPF TO COPY THE DATASET TO A VB    *   FILE 001
//*           FILE.  THE FILE TAKES UP 34  3380 TRACKS (BLOCKED     *   FILE 001
//*           AT 9040) IN FIXED FORMAT AND ONLY 20 TRACKS VB AT     *   FILE 001
//*           9076.  THIS SAVINGS OF 14 TRACKS ALSO TRANSLATES      *   FILE 001
//*           TO CPU-TIME AND REAL-TIME WHEN SEARCHING THE FILE,    *   FILE 001
//*           IN THAT THERE ARE THAT MANY LESS BYTES TO SEARCH.     *   FILE 001
//*           MR TANSKY'S CALCULATIONS SHOW A 40% SAVINGS.          *   FILE 001
//*                                                                 *   FILE 001
//*           WE, HOWEVER, WILL NOT CHANGE THE FILE, SINCE          *   FILE 001
//*           FILE 001 IS USED AS INPUT TO FILE 042 OF THIS         *   FILE 001
//*           TAPE, WHICH IS USED TO CREATE THE INPUT TO AN         *   FILE 001
//*           INFOMVS DATA BASE.                                    *   FILE 001
//*                                                                 *   FILE 001
//***FILE 002 COMPRESSION / DECOMPRESSION program for this          *   FILE 002
//*           tape.  This is the code used for compression and      *   FILE 002
//*           decompression of many of the files in this tape.      *   FILE 002
//*           The official name of this program is CBT973, and      *   FILE 002
//*           I would recommend assembling and linkediting this     *   FILE 002
//*           program, and making its load module available at      *   FILE 002
//*           all times in your installation.  The load module      *   FILE 002
//*           for CBT973 may also be found on File 008 of this      *   FILE 002
//*           tape.                                                 *   FILE 002
//*                                                                 *   FILE 002
//*           The JCL for loading files from this tape on to        *   FILE 002
//*           disk, may be found in File 003.  This JCL is set      *   FILE 002
//*           up to ASSEMBLE and LOAD the CBT973 program with       *   FILE 002
//*           every run.  When you customize a copy of File 003     *   FILE 002
//*           for yourself, you might use your own linkedited       *   FILE 002
//*           copy of the load module, and not have to assemble     *   FILE 002
//*           it for every run.                                     *   FILE 002
//*                                                                 *   FILE 002
//***FILE 003 is a JCL stream with instream procs to drop down      *   FILE 003
//*           this whole mods tape (except files that have been     *   FILE 003
//*           deleted) to a disk pack (if you happen to have the    *   FILE 003
//*           luxury of having a disk pack lying around doing       *   FILE 003
//*           nothing).                                             *   FILE 003
//*                                                                 *   FILE 003
//*           I'd personally recommend customizing a copy of this   *   FILE 003
//*           file, to download a few files at a time.  Keep the    *   FILE 003
//*           original copy around, so you know the "unload format" *   FILE 003
//*           of whatever file you want to get from the tape.       *   FILE 003
//*                                                                 *   FILE 003
//*           NEW FILES ARE NOW BEING STORED ON THIS TAPE WITH      *   FILE 003
//*           ISPF STATISTICS RELOADABLE.  YOU MUST USE THE         *   FILE 003
//*           PDSLOAD PROGRAM JCL IN FILE 003 INSTEAD OF            *   FILE 003
//*           IEBUPDTE TO GET THE STATISTICS INTO YOUR LOADED       *   FILE 003
//*           SOURCE PDS'ES.  A LOAD MODULE FOR PDSLOAD IS ON       *   FILE 003
//*           FILE 008.  INSTRUCTIONS ON HOW TO USE PDSLOAD         *   FILE 003
//*           INSTEAD OF IEBUPDTE ARE INCLUDED IN THE NEW           *   FILE 003
//*           COMMENTS IN FILE 003.  THOSE FILES THAT HAVE ISPF     *   FILE 003
//*           STATS INCLUDED ARE MARKED IN THE "FILE STATUS         *   FILE 003
//*           SECTION" ABOVE, WITH AN "S" NEAR TO THE COUNT OF      *   FILE 003
//*           THE NUMBER OF RECORDS.                                *   FILE 003
//*                                                                 *   FILE 003
//***FILE 004 CONTAINS SEVERAL PROGRAMS USED FOR MANIPULATION OF    *   FILE 004
//*           THE CBT TAPE AND CBT OVERFLOW TAPE DOCUMENTATION.     *   FILE 004
//*                                                                 *   FILE 004
//*           The program called CBTUPD is for the purpose of       *   FILE 004
//*           introducing appropriately named ./ ADD NAME= cards    *   FILE 004
//*           into strategic places of the CBT Tape Documentation.  *   FILE 004
//*           The CBT Tape doc can then be conveniently broken      *   FILE 004
//*           up into a pds.  The member names of the pds are       *   FILE 004
//*           in collating sequence order (EBCDIC), so that the     *   FILE 004
//*           members can be put back together as a sequential      *   FILE 004
//*           file, in their proper order.                          *   FILE 004
//*                                                                 *   FILE 004
//*           The program called DOCFILE is from Arnold Casinghino  *   FILE 004
//*           and it puts the indicators in columns 73-80 of the    *   FILE 004
//*           CBT Tape documentation, to indicate your current      *   FILE 004
//*           position within the documentation.                    *   FILE 004
//*                                                                 *   FILE 004
//*           The original idea of the DOCFILE program is from      *   FILE 004
//*           a COBOL program written by Sam Barr of Northrop.      *   FILE 004
//*                                                                 *   FILE 004
//*           DOCFILE has been updated by Sam Golob (03/99) to      *   FILE 004
//*           take into account the fact that there may be lower    *   FILE 004
//*           case characters in the CBT Tape Documentation         *   FILE 004
//*           nowadays.                                             *   FILE 004
//*                                                                 *   FILE 004
//*    Note:  This file also contains copies of the ISPF Edit       *   FILE 004
//*           Macros  CBTUPDTE  and  COVUPDTE, which are used       *   FILE 004
//*           to introduce ./ ADD NAME= cards into the CBT Tape     *   FILE 004
//*           and CBT Overflow Tape documentation files.  That      *   FILE 004
//*           will allow them to be converted into partitioned      *   FILE 004
//*           datasets, using IEBUPDTE ,PARM=NEW , or PDSLOAD       *   FILE 004
//*           programs.                                             *   FILE 004
//*                                                                 *   FILE 004
//*           However, the CBTUPD assembler program supersedes      *   FILE 004
//*           these two edit macros, because it is more accurate    *   FILE 004
//*           in checking where to insert the ./ ADD cards,         *   FILE 004
//*           and is less prone to some other errors.               *   FILE 004
//*                                                                 *   FILE 004
//*           As of CBTUPD Version 1.3 (or higher), the changes     *   FILE 004
//*           for each version of the tape are separated out as     *   FILE 004
//*           distinct members, sorted in reverse order.  None of   *   FILE 004
//*           the edit macros did that job, so CBTUPD is distinctly *   FILE 004
//*           better than the CBTUPDTE edit macro.                  *   FILE 004
//*                                                                 *   FILE 004
//*           Version 1.3 of the CBTUPD program was developed and   *   FILE 004
//*           tested on the IBM PC using the Tachyon Cross          *   FILE 004
//*           Assembler and the Tachyon Operating System.  This     *   FILE 004
//*           is a vendor product from Tachyon Software, Denver     *   FILE 004
//*           Colorado, 1-303-722-1341. (www.tachyonsoft.com)       *   FILE 004
//*           This product allows you to develop MVS assembler      *   FILE 004
//*           programs on an IBM PC, test them on the PC, and       *   FILE 004
//*           port them to MVS.  The object deck produced by        *   FILE 004
//*           the Tachyon Assembler is compatible with HLASM.       *   FILE 004
//*                                                                 *   FILE 004
//***FILE 005 IS FROM GEORGE SHEDLOCK OF OCALA, FLORIDA, AND        *   FILE 005
//*           CONTAINS A REXX EXEC TO LOAD THIS TAPE ONTO A         *   FILE 005
//*           VM SYSTEM.                                            *   FILE 005
//*                                                                 *   FILE 005
//*    MODULE NAME:   CBTTAPE EXEC                                  *   FILE 005
//*                                                                 *   FILE 005
//*    AUTHOR:        GEORGE SHEDLOCK JR.                           *   FILE 005
//*                   4479 SW 159TH ST RD                           *   FILE 005
//*                   OCALA, FL 34473                               *   FILE 005
//*                   (352) 347-3868                                *   FILE 005
//*                                                                 *   FILE 005
//*    VERSION:       1.1   (I DON'T LIKE VERSION 1.0 SINCE IT      *   FILE 005
//*                   IMPLIES A LOT OF BUGS ARE STILL IN THERE      *   FILE 005
//*                   WAITING TO BE DISCOVERED.)                    *   FILE 005
//*                                                                 *   FILE 005
//*    PURPOSE:       THIS REXX EXEC WAS WRITTEN BECAUSE I MADE     *   FILE 005
//*                   THE MISTAKE OF TELLING SAM GOLOB THAT IT      *   FILE 005
//*                   WOULDN'T BE HARD TO WRITE SOMETHING LIKE      *   FILE 005
//*                   THIS SINCE I HAD MOST OF THE PIECES AND       *   FILE 005
//*                   JUST HAD TO PUT THEM TOGETHER.  WELL, HERE    *   FILE 005
//*                   IT IS... 3 YEARS, 1100 MILES (I MOVED         *   FILE 005
//*                   FROM NEW JERSEY), AND A LOT OF DESERVED       *   FILE 005
//*                   NAGGING FROM SAM.  IF THIS IS OF SOME VALUE   *   FILE 005
//*                   TO YOU, GREAT.  IF THIS IS OF NO VALUE TO     *   FILE 005
//*                   YOU, YOU'RE WELCOME TO WRITE SOMETHING OF     *   FILE 005
//*                   YOUR OWN.  FEEL FREE TO MODIFY THIS TO SUIT   *   FILE 005
//*                   YOUR NEEDS.  IF YOU MODIFY THIS, PLEASE       *   FILE 005
//*                   SEND ME A COPY SO THAT IT CAN BE SHARED       *   FILE 005
//*                   WITH OTHERS.                                  *   FILE 005
//*                                                                 *   FILE 005
//*                   THIS EXEC WILL ALLOW THE VM SITE A WAY        *   FILE 005
//*                   TO PROCESS THE CBT TAPE IN THE NATIVE         *   FILE 005
//*                   VM ENVIRONMENT.  THIS IS MAINLY BECAUSE       *   FILE 005
//*                   THERE ARE A LOT OF REALLY GOOD PROGRAMS,      *   FILE 005
//*                   MACROS, ETC. ON THIS TAPE.  WELL, OK          *   FILE 005
//*                   THERE ARE SOME SO-SO PROGRAMS ALSO, BUT       *   FILE 005
//*                   MOST OF IT IS GOOD.  INCLUDED IN THIS         *   FILE 005
//*                   FILE IS A PROGRAM I FOUND IN MY TRAVELS       *   FILE 005
//*                   ON THE INTERNET SOME YEARS AGO.  IF I         *   FILE 005
//*                   COULD REMEMBER WHO WROTE IT OR WHERE I        *   FILE 005
//*                   FOUND IT, I WOULD GLADLY GIVE THE PROPER      *   FILE 005
//*                   CREDIT.  THIS PROGRAM IS THE IEBCOPY          *   FILE 005
//*                   PROGRAM.  ALTHOUGH IT WILL ONLY LOAD OR       *   FILE 005
//*                   LIST THE MODULES FROM THE TAPE, IT IS         *   FILE 005
//*                   STILL A GOOD LITTLE UTILITY.                  *   FILE 005
//*                                                                 *   FILE 005
//*    INITIAL SETUP:                                               *   FILE 005
//*        SP PUN * CL K                                            *   FILE 005
//*        TAPE REW                                                 *   FILE 005
//*        TAPE FSF 4                                               *   FILE 005
//*        FI INMOVE TAP1 (RECFM FB LRECL 80 BLOCK 80               *   FILE 005
//*        FI OUTFILE PUNCH (RECFM FB LRECL 80 BLOCK 80             *   FILE 005
//*        MOVEFILE                                                 *   FILE 005
//*        CL PUN                                                   *   FILE 005
//*        SP RDR CL K                                              *   FILE 005
//*        READCARD * *                                             *   FILE 005
//*        CBTTAPE 402 SETUP A 3390                                 *   FILE 005
//*                                                                 *   FILE 005
//*        NOTE: IT IS ASSUMED THAT THE CBT TAPE IS MOUNTED         *   FILE 005
//*              ON YOUR 181                                        *   FILE 005
//*              IN THE CBTTAPE COMMAND, IF 402 IS THE CBT          *   FILE 005
//*              VERSION, SETUP TELLS IT TO LOAD THE                *   FILE 005
//*              APPROPRIATE FILES FROM THE CBT TAPE, ASSEMBLE      *   FILE 005
//*              THEM AND GENERATE LOAD MODULES.  IN ADDITION       *   FILE 005
//*              SETUP WILL ALSO CREATE AN INDEX OF THE CBT         *   FILE 005
//*              TAPE SO THAT FUTURE RETRIEVALS WILL BE EASIER.     *   FILE 005
//*                                                                 *   FILE 005
//*      ON-GOING USAGE:                                            *   FILE 005
//*             CBTTAPE 402 FILENO TARGET DISKTYPE                  *   FILE 005
//*                                                                 *   FILE 005
//*          NOTE: IT IS ASSUMED THAT THE CBT TAPE IS MOUNTED       *   FILE 005
//*                ON YOUR 181. THE 402 IS AGAIN THE CBT VERSION,   *   FILE 005
//*                FILENO IS THE FILE NUMBER YOU WANT TO LOAD,      *   FILE 005
//*                TARGET IS THE FILEMODE OF THE DISK THAT WILL     *   FILE 005
//*                RECEIVE THE EXTRACTED MODULES, AND DISKTYPE      *   FILE 005
//*                IS THE DEVICE TYPE TO USE FOR SOME T-DISK        *   FILE 005
//*                (SOMETIMES WE NEED A LITTLE WORK SPACE)          *   FILE 005
//*                                                                 *   FILE 005
//*          EXAMPLE:                                               *   FILE 005
//*                CBTTAPE 402 122 R 3390                           *   FILE 005
//*                   THIS WILL GET, IF WE NEED IT, 5 CYLINDERS     *   FILE 005
//*                   OF T-DISK ON A 3390, AND LOAD FILE 122        *   FILE 005
//*                   FROM CBT VERSION 402 TO THE R MINIDISK.       *   FILE 005
//*                                                                 *   FILE 005
//*      REQUIRED FILES:                                            *   FILE 005
//*          CBTTAPE EXEC        (THIS FILE)                        *   FILE 005
//*          CBT973   ASSEMBLE  (FROM FILE 002 OF THE CBT TAPE)     *   FILE 005
//*          IEBCOPY  ASSEMBLE  (FROM ELSEWHERE IN THIS FILE)       *   FILE 005
//*          IEBCOPY  HELP        (FROM ELSEWHERE IN THIS FILE)     *   FILE 005
//*                                                                 *   FILE 005
//***FILE 006 is a tape copy program from the Air Force Finance     *   FILE 006
//*           Center in Denver.  This pgm will copy all files of    *   FILE 006
//*           an input tape to one to sixteen output tapes.  The    *   FILE 006
//*           original purpose of this program was for copying      *   FILE 006
//*           the SHARE MVS Mods Tape.  This program is quite       *   FILE 006
//*           fast.  The name of this program is "COPYMODS".        *   FILE 006
//*                                                                 *   FILE 006
//*           When first written, the intent of this program was    *   FILE 006
//*           to copy NL tapes.  I have modified COPYMODS very      *   FILE 006
//*           extensively, to teach it about Standard Labeled       *   FILE 006
//*           tapes, and have modified it to copy large-blocked     *   FILE 006
//*           files of up to 64K.  (SG 07/00)                       *   FILE 006
//*                                                                 *   FILE 006
//*           I USE THIS PROGRAM FOR CREATING COPIES OF THE CBT     *   FILE 006
//*           MVS UTILITIES TAPE.  (SG 10/93)                       *   FILE 006
//*                                                                 *   FILE 006
//*           This program is useful in making "carbon copies"      *   FILE 006
//*           from one tape to another, and it can also convert     *   FILE 006
//*           from one tape medium to another.  For example, it     *   FILE 006
//*           can convert from reels to cartridges, or vice-versa.  *   FILE 006
//*                                                                 *   FILE 006
//*           My advice is, however, that you should not mix        *   FILE 006
//*           media types when you make multiple output tapes in    *   FILE 006
//*           one run.  For example, //OUT1 and //OUT2 should       *   FILE 006
//*           both be reels, or both cartridges of the same         *   FILE 006
//*           format (like 3480, 3490IDRC, or 3490E).  Do not mix   *   FILE 006
//*           these.  //IN can be different from //OUTx, however.   *   FILE 006
//*           It is my experience that when the //IN (input tape)   *   FILE 006
//*           was of different media type than the //OUTx (output   *   FILE 006
//*           tapes), this program has always worked flawlessly     *   FILE 006
//*           to convert the tape to a different media format.      *   FILE 006
//*                                                                 *   FILE 006
//*           I fixed the COPYMODS program to copy tapes with       *   FILE 006
//*           up to 64K blocks.  I've also added many other fixes,  *   FILE 006
//*           most of them having to do with teaching the program   *   FILE 006
//*           about Standard Labels.                                *   FILE 006
//*                                                                 *   FILE 006
//*           I've also solved the 2-tape-marks-together problem    *   FILE 006
//*           when you have a null SL tape file.  The program will  *   FILE 006
//*           now copy past that point, if it has seen a HDR1 or    *   FILE 006
//*           HDR2 label before the 2 tape marks.                   *   FILE 006
//*                                                                 *   FILE 006
//*           Under PARM control, this program can now copy         *   FILE 006
//*           initted tapes, and optionally change the VOLSER       *   FILE 006
//*           of the copied SL initted tape.  Thus, you can init    *   FILE 006
//*           a large number of tapes at the same time.             *   FILE 006
//*                                                                 *   FILE 006
//*  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  *   FILE 006
//*                                                                 *   FILE 006
//*       NEW FEATURES ADDED:                      SBG 07/00        *   FILE 006
//*                                                                 *   FILE 006
//*           1.  64K BLOCKS ON A TAPE CAN BE COPIED.               *   FILE 006
//*                                                                 *   FILE 006
//*           2.  UP TO 16 OUTPUT DDNAMES ALLOWED.                  *   FILE 006
//*                                                                 *   FILE 006
//*           3.  INITTED TAPES, AND SL MULTIVOLUME TAPES CAN       *   FILE 006
//*               BE CORRECTLY COPIED.                              *   FILE 006
//*                                                                 *   FILE 006
//*           4.  ALL STANDARD LABEL INFORMATION, OR ANY            *   FILE 006
//*               PARTICULAR LABEL TYPES, CAN BE PRINTED, IF        *   FILE 006
//*               FOUND ON THE INPUT TAPE.                          *   FILE 006
//*                                                                 *   FILE 006
//*           5.  A FLEXIBLE TABLE-DRIVEN PARM KEYWORD SCANNER      *   FILE 006
//*               WAS ADDED.  THIS ALLOWS FOR EASY SETTING OF       *   FILE 006
//*               PROGRAM DEFAULTS, AND KEYWORD SYNONYMS.  SEE      *   FILE 006
//*               LABEL PARMTABL.                                   *   FILE 006
//*                                                                 *   FILE 006
//*           6.  OPTIONALLY, THE VOLSER OF THE OUTPUT TAPES        *   FILE 006
//*               CAN BE SET TO THE JCL VOLSER, INSTEAD OF THE      *   FILE 006
//*               INPUT TAPE'S VOLSER.                              *   FILE 006
//*                                                                 *   FILE 006
//*           7.  TAPES WITH LEADING TAPE MARKS CAN BE COPIED       *   FILE 006
//*               EITHER AS-IS, OR WITH THE LEADING TAPE MARKS      *   FILE 006
//*               LEFT OFF.                                         *   FILE 006
//*                                                                 *   FILE 006
//*           8.  EOV LABELS IN THE MIDDLE OF A TAPE, CAN NOW BE    *   FILE 006
//*               CHANGED TO EOF LABELS, IF THE TAPE WAS CREATED    *   FILE 006
//*               AS A COMPOSITE, BY THE COPYFILE PROGRAM.  THE     *   FILE 006
//*               PARM IS EOV2EOF (SEE PARMTABL FOR ALL ACCURATE    *   FILE 006
//*               AND CURRENT PARM KEYWORD SETTINGS).               *   FILE 006
//*                                                                 *   FILE 006
//*           9.  COPYMODS CAN NOW BE RUN READ-ONLY FOR THE INPUT   *   FILE 006
//*               TAPE, USING PARMS OF READ, READONLY, OR NOWRITE.  *   FILE 006
//*                                                                 *   FILE 006
//***FILE 007 CONTAINS THE SOURCE FOR THE TAPEMAP PROGRAM.  THIS    *   FILE 007
//*           VERSION IS A COMPILATION OF THE ORIGINAL CODE FROM    *   FILE 007
//*           UCLA (THAT USED TO BE IN FILE 149) AND THE MODIFIED   *   FILE 007
//*           CODE THAT USED TO BE IN FILE 316 FROM THE AIR FORCE,  *   FILE 007
//*           AND INCLUDES MANY ADDITIONAL CHANGES FROM VARIOUS     *   FILE 007
//*           PLACES.                                               *   FILE 007
//*                                                                 *   FILE 007
//*           THIS PROGRAM WILL PROVIDE SPECIAL INFORMATION FOR     *   FILE 007
//*           TAPE FILES CREATED BY IEBCOPY, IEHMOVE, IEBISAM,      *   FILE 007
//*           IEHDASDR, OR IN SMPPTFIN FORMAT.  IN ADDITION, IF     *   FILE 007
//*           A FILE CONTAINS AN IEBUPDTE INPUT STREAM THE          *   FILE 007
//*           MEMBERS IN THE STREAM WILL BE LISTED.                 *   FILE 007
//*                                                                 *   FILE 007
//*           THIS PROGRAM WILL ALSO PROVIDE SPECIAL                *   FILE 007
//*           INFORMATION FOR CBT MVS UTILITIES TAPES CREATED       *   FILE 007
//*           WITH CBT973.  IEBUPDTE INTERPRETATION IS DONE FOR     *   FILE 007
//*           CBT973-COMPRESSED FILES.                              *   FILE 007
//*                                                                 *   FILE 007
//*           ALSO, MACROS IN MEMBERS THAT ARE THEMSELVES MACRO     *   FILE 007
//*           LIBRARIES (IN IEBUPDTE FORMAT WITH ./ CHANGED TO ><)  *   FILE 007
//*           WILL BE LISTED.  THUS, WITH THIS TAPEMAP YOU CAN      *   FILE 007
//*           FIND ALMOST ANY MEMBER NAME ON THE CBT TAPE.          *   FILE 007
//*                                                                 *   FILE 007
//*           SEE ALSO THE LOAD MODULE FOR TAPEMAP ON FILE 008.     *   FILE 007
//*                                                                 *   FILE 007
//*    PARENTHETICAL NOTE:                                          *   FILE 007
//*                                                                 *   FILE 007
//*           THE OLD VERSION OF TAPEMAP, CALLED TAPEMAPO, IS       *   FILE 007
//*           INCLUDED BOTH ON THIS FILE, AND ON FILE 008.  THE     *   FILE 007
//*           NEWER VERSION WAS REVISED BY RON TANSKY OF WEBCRAFT   *   FILE 007
//*           IN CHALFONT, PENNSYLVANIA.  DUE TO THE TEDIOUSNESS    *   FILE 007
//*           OF TESTING ANY NEW VERSION OF TAPEMAP, ITS OLD        *   FILE 007
//*           VERSION HAS NOT BEEN DELETED, JUST IN CASE THE NEW    *   FILE 007
//*           VERSION AFFECTS SOME OF THE CODE THAT WORKED BEFORE.  *   FILE 007
//*           YOU CAN SIMPLY SAY EXEC PGM=TAPEMAPO, INSTEAD.        *   FILE 007
//*           I'VE TESTED THE NEW VERSION, BUT WE'RE TRYING TO BE   *   FILE 007
//*           ON THE SAFE SIDE.  (TAPEMAP IS READ-ONLY ANYWAY.)     *   FILE 007
//*                                                                 *   FILE 007
//***FILE 008 IS A LOAD MODULE LIBRARY WITH USEFUL PROGRAMS IN IT.  *   FILE 008
//*                                                                 *   FILE 008
//*          (Source file numbers are from the Regular CBT Tape     *   FILE 008
//*           unless marked with an asterisk *)                     *   FILE 008
//*                                                                 *   FILE 008
//*           SOURCE FILE           LOAD MODULE NAME                *   FILE 008
//*           * 002  SOURCE           CBT973 - UNCOMPRESS THIS TAPE *   FILE 008
//*             004  SOURCE           CBTUPD - ./ ADD cards in this *   FILE 008
//*                                            documentation        *   FILE 008
//*             018  DOCUMENTATION    TSUPDATE                      *   FILE 008
//*             044  SOURCE           ASMTOZAF - PL1/F ASMTOZAP     *   FILE 008
//*             044  SOURCE           ASMTOZAP - PL/1 OPTIMIZER     *   FILE 008
//*                                    GOOD WITH PL/1 V1.3 OR MORE  *   FILE 008
//*             090  SOURCE           DELINKI, DWNSPDSR             *   FILE 008
//*             093  SOURCE           OFFLOAD                       *   FILE 008
//*             093  SOURCE           PDSLOAD                       *   FILE 008
//*             094  SOURCE           DAF                           *   FILE 008
//*             112  SOURCE           VTOC                          *   FILE 008
//*             134  SOURCE           HEL  (MOVED TO FILE 135)      *   FILE 008
//*             134  SOURCE           REVIEW  (MOVED TO FILE 135)   *   FILE 008
//*             134  SOURCE           ZAP  (MOVED TO FILE 135)      *   FILE 008
//*             147  SOURCE           ARCHINIT  \\                  *   FILE 008
//*             147  SOURCE           ARCHIVER   >>  ARCHIVER       *   FILE 008
//*             147  SOURCE           ARCHPARS  //                  *   FILE 008
//*             182  SOURCE           PDS85 - PDS VERS 8.5 LD.MOD.  *   FILE 008
//*                                    (NEEDS PANELS AND MSGS TO    *   FILE 008
//*                                    RUN IN ISPMODE.  WILL RUN    *   FILE 008
//*                                    IN LINE MODE AS IS.  USE     *   FILE 008
//*                                    XISPM KEYWORD WHEN INVOKING. *   FILE 008
//*                                    SEE FILE 182 FOR PANELS AND  *   FILE 008
//*                                    MESSAGES.                    *   FILE 008
//*             218  SOURCE           VSAMMAPP                      *   FILE 008
//*             264  SOURCE           LOOK                          *   FILE 008
//*             294  SOURCE           VSAMADTL  VSAMANAL            *   FILE 008
//*             294  SOURCE           VSAMAGET  VSAMANAL            *   FILE 008
//*             294  SOURCE           VSAMAHLP  VSAMANAL            *   FILE 008
//*             294  SOURCE           VSAMANAL  VSAMANAL            *   FILE 008
//*             294  SOURCE           VSAMANDX  VSAMANAL            *   FILE 008
//*             294  SOURCE           VSAMSIZE  VSAMANAL            *   FILE 008
//*             296  SOURCE           BLKDISK BLK3380 BLK3390       *   FILE 008
//*             296  SOURCE           BLK3375 BLK9345 BLK3350       *   FILE 008
//*             299  SOURCE           TAPEMAP & TAPEMAPO            *   FILE 008
//*             316  SOURCE           COPYFILE - COPIES SL TAPE FLS *   FILE 008
//*             316  SOURCE           IGG019WD - WITH COPYFILE      *   FILE 008
//*             316  SOURCE           IGG019WE - WITH COPYFILE      *   FILE 008
//*             316  SOURCE           LISPDS (REALLY LISTPDS)       *   FILE 008
//*             316  SOURCE           TAPEL - USED WITH COPYFILE    *   FILE 008
//*             407  SOURCE           DYNABLDL                      *   FILE 008
//*                                                                 *   FILE 008
//***FILE 009 contains source code for 2 tape mapping utilities:    *   FILE 009
//*           TAPESCAN (from File 102 of the regular CBT Tape),     *   FILE 009
//*           and SS0104 (which is used to measure footages, as     *   FILE 009
//*           if at density 6250 bpi), on the CBT Tapes.            *   FILE 009
//*                                                                 *   FILE 009
//***FILE 010 IS CURRENTLY EMPTY                                    *   FILE 010
//*                                                                 *   FILE 010
//***FILE 011 IS CURRENTLY EMPTY                                    *   FILE 011
//*                                                                 *   FILE 011
//***FILE 012 IS THE UK G.U.I.D.E. TAPE, UTILITIES PLUS MACROS.     *   FILE 012
//*                                                                 *   FILE 012
//***FILE 013 IS THE GERMAN G.U.I.D.E. TAPE.                        *   FILE 013
//*                                                                 *   FILE 013
//***FILE 014 IS THE SWISS G.U.I.D.E. TAPE.                         *   FILE 014
//*                                                                 *   FILE 014
//***FILE 015 IS THE AUSSIE G.U.I.D.E. TAPE.                        *   FILE 015
//*                                                                 *   FILE 015
//***FILE 016 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL      *   FILE 016
//*           AND CONTAINS A COPY OF THEIR FILE 001 WHICH IS DOC    *   FILE 016
//*           FOR THEIR TAPE.  THEIR FILE NUMBERS ARE OFFSET BY     *   FILE 016
//*           015  (IE THEIR FILE 001 IS MY FILE 016                *   FILE 016
//*                    THEIR FILE 010 IS MY FILE 025                *   FILE 016
//*                    THEIR FILE 022 IS MY FILE 037)               *   FILE 016
//*                                                                 *   FILE 016
//*         FILE 016 IS NOW IN IEBUPDTE SYSIN FORMAT.               *   FILE 016
//*                                                                 *   FILE 016
//*         SOME OF THE UTILITIES/TSO COMMANDS/ISPF                 *   FILE 016
//*         PANELS/CLISTS WERE DEVELOPED AT ROCKWELL.  MANY WERE    *   FILE 016
//*         FOUND ON THE LA MVS USERS GROUP TAPE, THE SHARE         *   FILE 016
//*         TAPE, GUIDE ISPF TAPE OR THE CBT TAPE.                  *   FILE 016
//*                                                                 *   FILE 016
//*        CHANGES WITH THIS VERSION OF THE TAPE:                   *   FILE 016
//*                                                                 *   FILE 016
//*        REPLACED FILE 21 WITH MACRO LIBRARY FOR                  *   FILE 016
//*              ASSEMBLYING THE UNIVERSITY OF WATERLOO             *   FILE 016
//*              SCRIPT                                             *   FILE 016
//*              (THIS IS THE LAST TAPE TO HAVE THIS AS WE          *   FILE 016
//*               ARE USING IBM'S SCRIPT/VS NOW AND                 *   FILE 016
//*               ELIMINATING THE WATERLOO SCRIPT)                  *   FILE 016
//*                                                                 *   FILE 016
//*        TSSO ENHANCEMENTS PRIMARILY IN THE CLIST LIBRARY         *   FILE 016
//*              INCLUDING A TIMOFDAY CLIST TO PERFORM              *   FILE 016
//*              FUNCTIONS BASED ON TIME, ETC.                      *   FILE 016
//*                                                                 *   FILE 016
//*        PRINTOFF HAS BEEN UPDATED TO SUPPORT THE OUTDES          *   FILE 016
//*              SPECIFICATION FOR REFERENCING THE OUTPUT           *   FILE 016
//*              JCL STATEMENTS IN THE LOGON PROCEDURE              *   FILE 016
//*                                                                 *   FILE 016
//*        ADDITION OF PROGRAM TO REPORT PTFS IN ERROR THAT         *   FILE 016
//*              ARE IN APPLY STATUS AND ISPF DIALOG TO             *   FILE 016
//*              DRIVE PROGRAM.                                     *   FILE 016
//*                                                                 *   FILE 016
//*        MANY ENHANCEMENTS TO THE ISPF DIALOG ENVIRONMENT         *   FILE 016
//*        INCLUDING:                                               *   FILE 016
//*                                                                 *   FILE 016
//*              DYNAMIC MASTER, PRIMARY AND USER MENU              *   FILE 016
//*              OPTIONS  (BUILD)                                   *   FILE 016
//*                                                                 *   FILE 016
//*              GENERALIZED AFP PRINT DIALOG                       *   FILE 016
//*                                                                 *   FILE 016
//*              LETTER DIALOGS UPDATED TO SUPPORT AFP              *   FILE 016
//*                                                                 *   FILE 016
//*              TECHNICAL BULLETIN GENERATION DIALOG               *   FILE 016
//*                                                                 *   FILE 016
//*              CHANGE NOTICE GENERATION DIALOG                    *   FILE 016
//*                                                                 *   FILE 016
//*              XMIT/RECEIVE DIALOGS (ISPF COMMANDS                *   FILE 016
//*              XMIT/RECV)                                         *   FILE 016
//*                                                                 *   FILE 016
//*                 CHANGES TO ISPCMDS FOR NEW CAPABILITIES         *   FILE 016
//*                                                                 *   FILE 016
//*              DIALOG TO BROWSE VSAM DATA SETS DIRECTLY.          *   FILE 016
//*                                                                 *   FILE 016
//*                                                                 *   FILE 016
//*        REPLACED CONS131 WITH CONSOLE TO SUPPORT MVS/XA          *   FILE 016
//*        2.1.7 AND                                                *   FILE 016
//*                                                                 *   FILE 016
//*        ADDED DYNXLIST TO LIST DEVICE ESOTERICS/GENERICS.        *   FILE 016
//*                                                                 *   FILE 016
//*        ADDED LISTICAT TO LIST ICF CATALOGS.                     *   FILE 016
//*                                                                 *   FILE 016
//*        UPDATED TSOHELP TO SUPPORT FINDING MESSAGES.             *   FILE 016
//*                                                                 *   FILE 016
//*        UPDATED VERSION OF VTOCLIST FOR IX VTOCS AND >16         *   FILE 016
//*                EXTENTS, AND FOR 3380-K MODELS'                  *   FILE 016
//*                                                                 *   FILE 016
//*        ADDED KERMIT FOR TSO (TERMINAL EMULATION AND FILE        *   FILE 016
//*                TRANSFER IN NON-FULL SCREEN MODE ONLY FOR        *   FILE 016
//*                FILE TRANSFER).                                  *   FILE 016
//*                                                                 *   FILE 016
//*        UPDATED DSNINFO TO ACCEPT A VOLSER PARM.                 *   FILE 016
//*                                                                 *   FILE 016
//*        UPDATED THE SOFTLOG DIALOG ASSEMBLER PROGRAM TO          *   FILE 016
//*                USE THE ISPF TABLE OF CPUS BUILT BY THE          *   FILE 016
//*                IPCS DIALOG ADMINISTRATOR.                       *   FILE 016
//*                                                                 *   FILE 016
//*        CONSIDERABLE OTHER ISPF DIALOG CHANGES.                  *   FILE 016
//*                                                                 *   FILE 016
//*        UPDATED DSNINFO TO ACCEPT A VOLSER PARM.                 *   FILE 016
//*                                                                 *   FILE 016
//*        UPDATED JCLFORMT TO SUPPORT // PEND                      *   FILE 016
//*                                                                 *   FILE 016
//*        COMPLETE ISPF DIALOG FOR IPCS AND AMDPRDMP TO            *   FILE 016
//*               SUPPORT MVS/XA DUMP MANAGEMENT, INCLUDING         *   FILE 016
//*               REVISED DOCUMENTATION.                            *   FILE 016
//*                                                                 *   FILE 016
//*        CORRECTED LOCINDEX TO ELIMINATE 0C4 INTERMITTENT         *   FILE 016
//*               ABENDS.                                           *   FILE 016
//*                                                                 *   FILE 016
//*        REMOVED ACTMODS AND COPYCNTL CLIST'S AND MODULES         *   FILE 016
//*               AND REPLACED WITH NEW ISPF DIALOG.                *   FILE 016
//*                                                                 *   FILE 016
//*        UPDATED SHOW TO ACCESS THE COMPMAIL FIELD IF             *   FILE 016
//*               REQUESTED.                                        *   FILE 016
//*                                                                 *   FILE 016
//*        UPDATED SPFVINIT SO THAT IT IS INVOKED ONCE PER          *   FILE 016
//*               NEWAPPL INSTEAD OF ONCE PER MONTH.                *   FILE 016
//*                                                                 *   FILE 016
//*        ADDED DEFER AND UNITCNT OPTIONS TO THE ALLOC             *   FILE 016
//*                DYNAMIC ALLOCATION ASSEMBLER MACROS.             *   FILE 016
//*                                                                 *   FILE 016
//*        ADDED SEQCHK MODULE TO VERIFY ASSEMBLER SOURCE           *   FILE 016
//*                SEQUENCE NUMBERS AS PART OF THE SOURCE           *   FILE 016
//*                MAINTENACE DIALOG.                               *   FILE 016
//*                                                                 *   FILE 016
//*        UPDATE TO KDSN TO DO A PUTLINE INSTEAD OF TPUT.          *   FILE 016
//*                                                                 *   FILE 016
//*        CORRECTED SEVERAL MINOR BUGS IN CUMOD.                   *   FILE 016
//*                                                                 *   FILE 016
//*        CORRECTED A MINOR BUG IN SMPLINKP.                       *   FILE 016
//*                                                                 *   FILE 016
//*        ADDED/ENHANCED RETDSNVL ISPF PROGRAM.                    *   FILE 016
//*                                                                 *   FILE 016
//*        ADDED COPYPDS TSO COMMAND FROM THE CBT TAPE.             *   FILE 016
//*                                                                 *   FILE 016
//*        ADDED COPYSDS TSO COMMAND FROM THE CBT TAPE.             *   FILE 016
//*                                                                 *   FILE 016
//*        UPDATED HEL TO INVOKE TSOHELP IF UNDER ISPF              *   FILE 016
//*        ENVIRONMENT.  (SEE REVIEW AND HEL IN FILE 134.)          *   FILE 016
//*                                                                 *   FILE 016
//*        UPDATED TSOHELP TO SUPPORT ENTRY FOR SUBCOMMAND          *   FILE 016
//*                OF PRIMARY COMMAND AND ENTRY FROM HEL.           *   FILE 016
//*                                                                 *   FILE 016
//*        UPDATED GENPRINT WITH NEW OPTION FOR XEROX 2/3700        *   FILE 016
//*                TO NOT PRINT A BANNER PAGE.                      *   FILE 016
//*                                                                 *   FILE 016
//*        CORRECT ERROR IN CUMOD WITH SMP/E TO FIX MERGE           *   FILE 016
//*                OPTION ERRORS.                                   *   FILE 016
//*                                                                 *   FILE 016
//*        UPDATED RJOBCARD TO ALLOW FOR A CHANGE IN                *   FILE 016
//*                USERID'S AND ACCT.                               *   FILE 016
//*                                                                 *   FILE 016
//*      SOME OF THE THINGS OF INTEREST WHICH MAY BE FOUND          *   FILE 016
//*      ON THIS TAPE ARE:                                          *   FILE 016
//*                                                                 *   FILE 016
//*      COMPLETE ISPF SYSTEM FOR SYSTEM PROGRAMMER TYPES.          *   FILE 016
//*                                                                 *   FILE 016
//*      REPLACEMENT FOR THE IBM SUPPLIED ISPF DIALOG FOR           *   FILE 016
//*      MVS/BDT.... !!!!!                                          *   FILE 016
//*                                                                 *   FILE 016
//*         INCLUDING A COMPLETE SOURCE MAINTENANCE SYSTEM          *   FILE 016
//*         FOR JES3 OR ANY SOURCE MAINTAINED PACKAGE.              *   FILE 016
//*                                                                 *   FILE 016
//*        THERE IS ALSO A FILE CONTAINING OUR MODIFICATIONS        *   FILE 016
//*        (EXITS) TO MVS/BDT.                                      *   FILE 016
//*                                                                 *   FILE 016
//*      SEE CLIST MEMBER ISPF OR PRESAMP FOR A SAMPLE ON           *   FILE 016
//*         HOW TO USE THIS SYSTEM.                                 *   FILE 016
//*                                                                 *   FILE 016
//*      THE UTILITIES MANUAL IN FILE 8 IS OVER 600 PAGES           *   FILE 016
//*      AND DOCUMENTS HOW TO INSTALL THIS SYSTEM AND ALL OF        *   FILE 016
//*      THE TSO COMMANDS/PROGRAMS IN THIS PACKAGE.                 *   FILE 016
//*                                                                 *   FILE 016
//*      THE UTILITIES MANUAL REFERS TO THE SLAC ASSEMBLER H        *   FILE 016
//*      WHICH WE HAVE INSTALLED.  SINCE THIS IS A LICENSED         *   FILE 016
//*      PRODUCT I HAD TO EXCLUDE IT FROM THIS TAPE.  TO FIND       *   FILE 016
//*      OUT HOW TO GET THIS ENHANCED ASSEMBLER CONTACT:            *   FILE 016
//*                                                                 *   FILE 016
//*                   GREGORY J  MUSHIAL                            *   FILE 016
//*                   STANFORD LINEAR ACCELERATOR CENTER            *   FILE 016
//*                   MAIL BIN 97                                   *   FILE 016
//*                   PO BOX 4349                                   *   FILE 016
//*                   STANFORD, CA 94305                            *   FILE 016
//*                   (415) 854-3300 X2063                          *   FILE 016
//*                   BITNET: GJM-SLACVM                            *   FILE 016
//*                                                                 *   FILE 016
//*      (GREG ISN'T DOING THAT ANY MORE.  THE SLAC ASSEMBLER H     *   FILE 016
//*      HAS NOW BEEN FUNCTIONALLY REPLACED BY IBM'S HIGH LEVEL     *   FILE 016
//*      ASSEMBLER.  MOST OF THE SLAC MODS, AND SOME NEW THINGS,    *   FILE 016
//*      ARE INCORPORATED THERE.  I'M LEAVING GREG'S ADDRESS        *   FILE 016
//*      HERE, SO PEOPLE CAN CALL HIM TO THANK HIM FOR HIS WORK.    *   FILE 016
//*      GREG IS THE AUTHOR OF THE SLAC MODS, AND THE INSPIRER      *   FILE 016
//*      OF IBM'S HIGH LEVEL ASSEMBLER.    SG - 1/94)               *   FILE 016
//*                                                                 *   FILE 016
//*      SOME OF THE THINGS OF INTEREST ARE:                        *   FILE 016
//*                                                                 *   FILE 016
//*      A TSO COMMAND WHICH WILL INVOKE ANY TSO COMMAND USING      *   FILE 016
//*      THE ATTACH SVC AND UTILIZING ANY SPECIFIED TASKLIB.        *   FILE 016
//*      THIS SIMPLIFIES TESTING OF NEW TSO COMMANDS THAT YOU       *   FILE 016
//*      DON'T WANT TO PUT INTO THE LINKLIST YET.  UPDATED TO       *   FILE 016
//*      UTILIZE THE NEW TSO/E CAPABILITIES FOR AUTH.               *   FILE 016
//*                                                                 *   FILE 016
//*      A TSO COMMAND SIMILIAR TO THE ABOVE WHICH INVOKES A        *   FILE 016
//*      PROGRAM.                                                   *   FILE 016
//*                                                                 *   FILE 016
//*      THE ABOVE COMMANDS HAVE ALIASES WHICH WILL INVOKE          *   FILE 016
//*      THE SPECIFIED PROGRAM/COMMAND IN AN AUTHORIZED             *   FILE 016
//*      STATE.  NO MORE IKJEFTXX UPDATES.                          *   FILE 016
//*                                                                 *   FILE 016
//*      A TSO COMMAND WHICH WILL INFORM YOUR CLIST WHETHER         *   FILE 016
//*      IT IS BEING INVOKED IN NATIVE TSO OR UNDER ISPF.           *   FILE 016
//*      THIS IS DONE BY TESTING FOR THE ENQ SPFUSER.               *   FILE 016
//*                                                                 *   FILE 016
//*      THE SOURCE MAINTENANCE MANUAL IN FILE 8 IS OUR             *   FILE 016
//*      MANUAL ON HOW WE MAINTAIN JES3 SOURCE USING ISPF           *   FILE 016
//*      AND SMP.                                                   *   FILE 016
//*                                                                 *   FILE 016
//*      A TSO COMMAND WHICH INFORMS THE CALLER HOW MUCH            *   FILE 016
//*      VIRTUAL STORAGE IS BEING USED IN HIS ADDRESS SPACE,        *   FILE 016
//*      HOW MUCH IS AVAILABLE, AND HOW MUCH LSQA IS IN USE.        *   FILE 016
//*                                                                 *   FILE 016
//*      A COMPLETE IPCS CLIST DRIVER WITH PSEUDO MENUS AND         *   FILE 016
//*      SEMI-ISPF INTERFACE. THIS ALSO INCLUDES SEVERAL OF         *   FILE 016
//*      THE PRDMP EXITS FOUND ON THE CBT TAPE AND ELSEWHERE.       *   FILE 016
//*                                                                 *   FILE 016
//*      A LISTA REPLACEMENT.                                       *   FILE 016
//*                                                                 *   FILE 016
//*      AN IEBUPDTE SIMULATOR USED IN THE SOURCE                   *   FILE 016
//*      MAINTENANCE SYSTEM TO FIND OUT WHAT A PUT TAPE WILL        *   FILE 016
//*      DO TO A SOURCE MAINTAINED SYSTEM WITHOUT ACTUALLY          *   FILE 016
//*      KILLING YOU.                                               *   FILE 016
//*                                                                 *   FILE 016
//*      A HANDY UTILITY TO EXPAND A DIRECTORY IN A                 *   FILE 016
//*      NON-DESTRUCTIVE MANNER.                                    *   FILE 016
//*                                                                 *   FILE 016
//*      A UTILITY TO COPY AN SVCDUMP TO THE MSS (3850) AND         *   FILE 016
//*      UPDATE A DUMP CONTROL LOG.                                 *   FILE 016
//*                                                                 *   FILE 016
//*      AN EXTERNAL WRITER YOU CAN HAVE FUN WITH (CALLED           *   FILE 016
//*      SYSOUT).                                                   *   FILE 016
//*                                                                 *   FILE 016
//*      ISPF PROGRAMS TO:                                          *   FILE 016
//*          TAKE ANY DSN AND FULLY QUALIFY IT.                     *   FILE 016
//*                                                                 *   FILE 016
//*          RETURN FULL DCB AND DIRECTORY INFORMATION FOR A        *   FILE 016
//*          SPECIFIED DSN.                                         *   FILE 016
//*                                                                 *   FILE 016
//*          EXTRACT INFORMATION FROM SYSTEM CONTROL BLOCKS         *   FILE 016
//*          AND ACF2 AND PUT IT IN ISPF VARIABLES.                 *   FILE 016
//*                                                                 *   FILE 016
//*          PROVIDE A LIST OF ALL CATALOGED DATASETS AND           *   FILE 016
//*             ALLOW AN ALMOST UNLIMITED NUMBER OF                 *   FILE 016
//*             PROCESSING OPTIONS ON THEM.                         *   FILE 016
//*                                                                 *   FILE 016
//*      ISPF APPLICATION TO MANAGE YOUR INDIVIDUAL SLSS.           *   FILE 016
//*                                                                 *   FILE 016
//*      ISPF APPLICATION TO INVOKE THE IBM BULK DATA               *   FILE 016
//*      TRANSFER IUP.                                              *   FILE 016
//*                                                                 *   FILE 016
//*      ISPF DIALOG TO INVOKE THE DATA SET AND FREE SPACE          *   FILE 016
//*      MANAGER IUP.                                               *   FILE 016
//*                                                                 *   FILE 016
//*      ISPF APPLICATION TO INVOKE THE WATERLOO SCRIPT.            *   FILE 016
//*          (WE CALL IT DOCFMT SINCE WE HAVE THE IBM SCRIPT        *   FILE 016
//*          UNDER CICS)                                            *   FILE 016
//*                                                                 *   FILE 016
//*      A COPY OF THE WATERLOO SCRIPT (ONE OF THE LAST FREE        *   FILE 016
//*      VERSIONS) WITH AN UPDATE TO SUPPORT 3380 DASD FOR          *   FILE 016
//*      OUTPUT - WE CALL IT DOCFMT SINCE WE ALSO HAVE DCF          *   FILE 016
//*      (BUT ONLY UNDER CICS).                                     *   FILE 016
//*                                                                 *   FILE 016
//*      PLUS OVER 200 OTHER PROGRAMS AND TSO COMMANDS.             *   FILE 016
//*                                                                 *   FILE 016
//***FILE 017 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL      *   FILE 017
//*           AND CONTAINS A COPY OF THEIR LOAD MODULE FOR THE      *   FILE 017
//*           WATERLOO SCRIPT CALLED DOCFMT.                        *   FILE 017
//*                                                                 *   FILE 017
//***FILE 018 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL      *   FILE 018
//*           AND CONTAINS A COPY OF THEIR FILE 003 WHICH IS        *   FILE 018
//*           A COPY OF THEIR TSO HELP LIBRARY.  THIS FILE IS IN    *   FILE 018
//*           IEBUPDTE SYSIN FORMAT.                                *   FILE 018
//*                                                                 *   FILE 018
//***FILE 019 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL      *   FILE 019
//*           AND CONTAINS A COPY OF THEIR FILE 004 WHICH IS A      *   FILE 019
//*           COPY OF THEIR CLIST LIBRARY.  THIS FILE IS IN         *   FILE 019
//*           IEBCOPY FORMAT (RECFM=VB,LRECL=255,BLKSIZE=5064)      *   FILE 019
//*                                                                 *   FILE 019
//***FILE 020 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL      *   FILE 020
//*           AND CONTAINS A COPY OF THEIR FILE 005 WHICH IS        *   FILE 020
//*           A COPY OF THEIR BAL MACRO LIBRARY.  THIS FILE IS      *   FILE 020
//*           IN IEBDUPTE SYSIN FORMAT.                             *   FILE 020
//*                                                                 *   FILE 020
//***FILE 021 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL      *   FILE 021
//*           AND CONTAINS A COPY OF THEIR FILE 006 WHICH IS        *   FILE 021
//*           A COPY OF THEIR SCRIPT TEXT LIBRARY USED TO CREATE    *   FILE 021
//*           FILE 023.  THIS FILE IS IN IEBUPDTE SYSIN FORMAT.     *   FILE 021
//*                                                                 *   FILE 021
//***FILE 022 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL      *   FILE 022
//*           AND CONTAINS A COPY OF THEIR FILE 007 WHICH IS        *   FILE 022
//*           A COPY OF THEIR BAL SOURCE LIBRARY.  THIS FILE IS     *   FILE 022
//*           IN IEBUPDTE SYSIN FORMAT.                             *   FILE 022
//*                                                                 *   FILE 022
//***FILE 023 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL      *   FILE 023
//*           AND CONTAINS A COPY OF THEIR FILE 008 WHICH IS A      *   FILE 023
//*           COPY OF THEIR UTILITIES DOCUMENTATION.  THIS FILE     *   FILE 023
//*           IS IN IEBUPDTE SYSIN FORMAT.                          *   FILE 023
//*                                                                 *   FILE 023
//***FILE 024 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL      *   FILE 024
//*           AND CONTAINS A COPY OF THEIR FILE 009 WHICH IS        *   FILE 024
//*           THEIR NEWS FILE.  THIS FILE IS IN IEBDUPTE SYSIN      *   FILE 024
//*           FORMAT.                                               *   FILE 024
//*                                                                 *   FILE 024
//***FILE 025 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL      *   FILE 025
//*           AND CONTAINS A COPY OF THEIR FILE 010 WHICH IS A      *   FILE 025
//*           COPY OF THEIR ISPF SKELETON LIBRARY.  THIS FILE       *   FILE 025
//*           IS IN IEBUPDTE SYSIN FORMAT.                          *   FILE 025
//*                                                                 *   FILE 025
//***FILE 026 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL      *   FILE 026
//*           AND CONTAINS A COPY OF THEIR FILE 011 WHICH IS A      *   FILE 026
//*           COPY OF THEIR ISPF PANEL LIBRARY.  THIS FILE IS       *   FILE 026
//*           IN IEBUPDTE SYSIN FORMAT.                             *   FILE 026
//*                                                                 *   FILE 026
//***FILE 027 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL      *   FILE 027
//*           AND CONTAINS A COPY OF THEIR FILE 012 WHICH IS A      *   FILE 027
//*           COPY OF THEIR TSSO CLIST LIBRARY.  THIS FILE IS       *   FILE 027
//*           IN IEBCOPY FORMAT.                                    *   FILE 027
//*                                                                 *   FILE 027
//***FILE 028 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL      *   FILE 028
//*           AND CONTAINS A COPY OF THEIR FILE 013 WHICH IS A      *   FILE 028
//*           COPY OF THEIR ISPF MESSAGE LIBRARY.  THIS FILE        *   FILE 028
//*           IS IN IEBUPDTE SYSIN FORMAT.                          *   FILE 028
//*                                                                 *   FILE 028
//***FILE 029 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL      *   FILE 029
//*           AND CONTAINS A COPY OF THEIR FILE 014 WHICH IS A      *   FILE 029
//*           COPY OF THEIR VERSION OF THE WATERLOO SCRIPT MEMO     *   FILE 029
//*           LIBRARY.  THIS FILE IS IN IEBCOPY FORMAT.             *   FILE 029
//*                                                                 *   FILE 029
//***FILE 030 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL      *   FILE 030
//*           AND CONTAINS A COPY OF THEIR FILE 015 WHICH IS A      *   FILE 030
//*           COPY OF THEIR VERSION OF THE WATERLOO SCRIPT          *   FILE 030
//*           HYPHENATION DICTIONARY.  THIS FILE IS                 *   FILE 030
//*           RECFM=VB LRECL=80 BLKSIZE=32716.                      *   FILE 030
//*                                                                 *   FILE 030
//***FILE 031 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL      *   FILE 031
//*           AND CONTAINS A COPY OF THEIR FILE 016 WHICH IS A      *   FILE 031
//*           COPY OF THEIR SCRIPT TEXT LIBRARY USED TO CREATE      *   FILE 031
//*           DOCUMENTATION FOR SOURCE MAINTENANCE.                 *   FILE 031
//*                                                                 *   FILE 031
//***FILE 032 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL      *   FILE 032
//*           AND CONTAINS A COPY OF THEIR FILE 017 WHICH IS A      *   FILE 032
//*           COPY OF THEIR ISPF TABLE LIBRARY.                     *   FILE 032
//*                                                                 *   FILE 032
//***FILE 033 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL      *   FILE 033
//*           AND CONTAINS A COPY OF THEIR FILE 018 WHICH IS        *   FILE 033
//*           COPY OF THEIR TSSO PARMLIB.  THIS FILE IS IN          *   FILE 033
//*           IEBDUPTE SYSIN FORMAT.                                *   FILE 033
//*                                                                 *   FILE 033
//***FILE 034 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL      *   FILE 034
//*           AND CONTAINS A COPY OF THEIR FILE 019 WHICH IS A      *   FILE 034
//*           COPY OF THEIR SYS1.PROCLIB THAT CONTAINS ONLY         *   FILE 034
//*           MEMBERS NEEDED FOR THEIR CONTRIBUTION TO THIS TAPE.   *   FILE 034
//*                                                                 *   FILE 034
//***FILE 035 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL      *   FILE 035
//*           AND CONTAINS A COPY OF THEIR FILE 020 WHICH IS A      *   FILE 035
//*           COPY OF THEIR SYS1.PARMLIB THAT CONTAINS ONLY         *   FILE 035
//*           MEMBERS NEEDED FOR THEIR CONTRIBUTION TO THIS TAPE.   *   FILE 035
//*                                                                 *   FILE 035
//***FILE 036 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL      *   FILE 036
//*           AND CONTAINS A COPY OF THEIR FILE 021 WHICH IS A      *   FILE 036
//*           COPY OF THEIR UNIVERSITY OF WATERLOO SCRIPT MACRO     *   FILE 036
//*           LIBRARY.  THIS FILE IS IN IEBUPDTE SYSIN FORMAT.      *   FILE 036
//*                                                                 *   FILE 036
//***FILE 037 IS FROM MR LIONEL DYCK OF ROCKWELL INTERNATIONAL      *   FILE 037
//*           AND CONTAINS A COPY OF THEIR FILE 022 WHICH IS        *   FILE 037
//*           A COPY OF THEIR TSSO SOURCE LIBRARY.  THIS FILE IS    *   FILE 037
//*           IN IEBUPDTE SYSIN FORMAT.                             *   FILE 037
//*                                                                 *   FILE 037
//***FILE 038 IS THE SOURCE OF UTILITIES, PROGRAMS, MODS, SMF       *   FILE 038
//*           EXITS AND OTHER THINGS FROM MEMOREX. THIS FILE IS     *   FILE 038
//*           IN IEBUPDTE SYSIN FORMAT AND CONTAINS OVER 100,000    *   FILE 038
//*           RECORDS.  THIS IS OLD CODE, BUT THE CODERS WERE       *   FILE 038
//*           CLEVER AND EXPERIENCED, AND THE CODE IS VERY MUCH     *   FILE 038
//*           WORTH EXPLORING.  (THE OLD MEMOREX FILE IS BACK !!)   *   FILE 038
//*                                                                 *   FILE 038
//***FILE 039 THIS FILE CURRENTLY CONTAINS PDS VERSION 7.3, WHICH   *   FILE 039
//*           IS THE LATEST VERSION THAT STILL SUPPORTS ISPF/PDF    *   FILE 039
//*           V1R1M0.  TO USE PDS VERSION 8.5 FROM FILE 182 OF THE  *   FILE 039
//*           REGULAR CBT TAPE, OR FILE 040 OF THIS TAPE, YOU NEED  *   FILE 039
//*           TO HAVE AT LEAST ISPF/PDF VERSION 2.                  *   FILE 039
//*                                                                 *   FILE 039
//*           Most shops nowadays have at least ISPF Version 4.x,   *   FILE 039
//*           so they can run this program, or they have the        *   FILE 039
//*           option to run PDS Version 8.5.  This version (7.3)    *   FILE 039
//*           is being saved for those people who are still         *   FILE 039
//*           running very old systems.  Almost nobody probably     *   FILE 039
//*           will need it, except for historical purposes.         *   FILE 039
//*                                                                 *   FILE 039
//***FILE 040 IS THE TSO "PDS" COMMAND PROCESSOR AND ISPF DIALOG    *   FILE 040
//*           PROGRAM PACKAGE.  THERE ARE POSSIBLY 1000 SEPARATE    *   FILE 040
//*           DATASET MANIPULATION FUNCTIONS BUILT INTO THIS        *   FILE 040
//*           PACKAGE, AND IT IS SOMETHING THAT NO SYSTEMS          *   FILE 040
//*           PROGRAMMER CAN AFFORD TO BE WITHOUT  .......          *   FILE 040
//*                                                                 *   FILE 040
//*           THIS IS THE HIGHEST CURRENT VERSION OF THE FREE PDS   *   FILE 040
//*           COMMAND, WHICH IS VERSION 8.5, FROM JOHN KALINICH.    *   FILE 040
//*           PDS 8.5 INCORPORATES YEAR 2000 CORRECTIONS, AND IS    *   FILE 040
//*           CURRENTLY IN PRODUCTION STATUS.  THE PREVIOUS LEVEL   *   FILE 040
//*           OF PDS, VERSION 8.4, IS ON FILE 040.  THE ISPF LEVEL  *   FILE 040
//*           FOR THIS PACKAGE, HAS TO BE ISPF VERSION 2 OR HIGHER. *   FILE 040
//*           THIS IS SO THE TABLE SORTS WILL WORK AND THE PANELS   *   FILE 040
//*           CAN BE UNDERSTOOD.  IF YOU ARE STILL STUCK WITH       *   FILE 040
//*           ISPF V1R1M0, YOU NEED PDS 7.3 WHICH IS ON THE CBT     *   FILE 040
//*           OVERFLOW TAPE FILE 039.                               *   FILE 040
//*                                                                 *   FILE 040
//*           IT WOULD BE "GROSS NEGLECT" TO HAVE A COPY OF THIS    *   FILE 040
//*           TAPE AND NOT INVESTIGATE THIS PRODUCT.                *   FILE 040
//*                                                                 *   FILE 040
//*           THIS FILE IS BEST COMBINED WITH UTILITIES ON          *   FILE 040
//*           FILES 296, 112, AND 134 OF THE REGULAR CBT TAPE.      *   FILE 040
//*           I'VE COMBINED THE ESSENTIALS HERE (I THINK) ON FILE   *   FILE 040
//*           042 OF THIS TAPE.  FILE 112 OF THE REGULAR CBT TAPE   *   FILE 040
//*           IS FILE 041 OF THIS TAPE.                             *   FILE 040
//*                                                                 *   FILE 040
//*           THE PDS COMMAND ALLOWS THE TSO USER TO ACCESS AND     *   FILE 040
//*           MANIPULATE THE DIRECTORY AND SELECTED MEMBERS OF A    *   FILE 040
//*           PARTITIONED DATA SET.  THE PDS COMMAND CONTAINS       *   FILE 040
//*           HUNDREDS OF SEPARATE FUNCTIONS, AND CAN BE OPERATED   *   FILE 040
//*           EITHER IN TSO LINE MODE (WITH PUTLINE INTERFACING)    *   FILE 040
//*           OR IN ISPF FULLSCREEN MODE.  ISPF MODE HAS ALL OF     *   FILE 040
//*           THE LINE MODE FUNCTIONS, AND ALSO, MANY ADDITIONAL    *   FILE 040
//*           CAPABILITIES.  PDS, IN LINE MODE, CAN BE RUN FROM     *   FILE 040
//*           A SYSTEM CONSOLE UNDER TSSO (FROM FILE 404 OF THE     *   FILE 040
//*           REGULAR CBT TAPE).                                    *   FILE 040
//*                                                                 *   FILE 040
//*           TSSO IS A SUBSYSTEM, WHICH CAN BE BROUGHT UP UNDER    *   FILE 040
//*           SUB=MSTR WITHOUT JES.  IN THAT CASE, THE LINE MODE    *   FILE 040
//*           FUNCTIONS OF PDS STILL WORK.  THEREFORE, YOU CAN      *   FILE 040
//*           EXPAND THE DIRECTORY OF A PDS, COPY MEMBERS FROM      *   FILE 040
//*           ONE PDS TO ANOTHER, ETC ETC, WITHOUT JES2 OR JES3     *   FILE 040
//*           AND WITHOUT TSO BEING UP.  THIS MAKES FOR A GREAT     *   FILE 040
//*           RECOVERY TOOL.  PLEASE EXPLORE THIS WHILE YOUR        *   FILE 040
//*           SYSTEM IS HEALTHY, AND HAVE THE MECHANISMS IN PLACE.  *   FILE 040
//*                                                                 *   FILE 040
//*           WITH ITS DIRECTORY OPTIONS. THE PDS COMMAND CAN       *   FILE 040
//*           PRODUCE STATISTICS ON DIRECTORY AND DATA SET USAGE,   *   FILE 040
//*           DISPLAY PORTIONS OF THE DIRECTORY, AND SCRATCH,       *   FILE 040
//*           RENAME OR CREATE ALIASES FOR SELECTED MEMBERS.  FOR   *   FILE 040
//*           ALL OF A PDS'S MEMBERS THAT HAVE PREVIOUSLY BEEN      *   FILE 040
//*           DELETED AND BEFORE THE LIBRARY HAS BEEN COMPRESSED    *   FILE 040
//*           PDS WILL ALLOW YOU TO GO IN AND RESTORE THOSE         *   FILE 040
//*           MEMBERS.  FOR LOAD DATA SETS, OPTIONS ARE AVAILABLE   *   FILE 040
//*           TO LIST LOAD MODULE HISTORY DATA, DISPLAY AND         *   FILE 040
//*           MODIFY LOAD MODULE LINKAGE ATTRIBUTES, AND PRODUCE    *   FILE 040
//*           LOAD MODULE CSECT MAPS IN TWO DIFFERENT LENGTHS.      *   FILE 040
//*           FOR OTHER PARTITIONED DATA SETS, OPTIONS ARE          *   FILE 040
//*           AVAILABLE TO SUBMIT A MEMBER (JCL) FOR BACKGROUND     *   FILE 040
//*           PROCESSING, LIST A MEMBER, EDIT A MEMBER OR LIST      *   FILE 040
//*           LINES FROM A MEMBER CONTAINING A SPECIFIED SEARCH     *   FILE 040
//*           STRING.  THIS FILE IS IN IEBUPDTE FORMAT AND          *   FILE 040
//*           CONTAINS THE SOURCE AND HELP MEMBER FOR THIS COMMAND. *   FILE 040
//*           THE RESTORE OPTION WILL ALSO ALLOW THE RECOVERY OF    *   FILE 040
//*           LOAD MODULE MEMBERS.                                  *   FILE 040
//*                                                                 *   FILE 040
//*           THE PDS PRODUCT AT VERSION 8.5 PROVIDES AN ISPF       *   FILE 040
//*           INTERFACE AND UTILITY VALUE OF AWESOME PROPORTION.    *   FILE 040
//*           YOU ARE ADVISED NOT TO PASS OVER THIS FILE WITHOUT    *   FILE 040
//*           LOOKING AT IT ..........                              *   FILE 040
//*                                                                 *   FILE 040
//*           THIS PACKAGE HAD BEEN FUNCTIONALLY STABILIZED AT      *   FILE 040
//*           VERSION 8.4 BECAUSE IT HAS BEEN SUCCEEDED BY A        *   FILE 040
//*           VENDOR PRODUCT CALLED STARTOOL.  STARTOOL IS          *   FILE 040
//*           SUPPORTED BY BRUCE LELAND AND STEVE SMITH.            *   FILE 040
//*           JOHN KALINICH IS NOW ENHANCING THIS PACKAGE.          *   FILE 040
//*                                                                 *   FILE 040
//* >>   FREE PDS IS NOW SUPPORTED BY JOHN KALINICH OF THE U.S.     *   FILE 040
//* >>   ARMY LOGISTICS SUPPORT CENTER IN ST. LOUIS, MISSOURI.      *   FILE 040
//*                                                                 *   FILE 040
//* >>   EMAIL ADDRESS:  KALINICH@ST-LOUIS-EMH2.ARMY.MIL            *   FILE 040
//* >>   PHONE NUMBER :  314-331-4521                               *   FILE 040
//*                                                                 *   FILE 040
//* >>>>      PLEASE NOTIFY JOHN IF YOU HAVE ANY FIXES OR           *   FILE 040
//* >>>>      ENHANCEMENTS TO PDS, SO THAT HE MAY INCORPORATE       *   FILE 040
//* >>>>      AND/OR TEST THEM.                                     *   FILE 040
//*                                                                 *   FILE 040
//*           THE VENDOR PRODUCT EXTENSION OF PDS, CALLED           *   FILE 040
//*           STARTOOL, IS SUPPORTED BY BRUCE LELAND AND STEVE      *   FILE 040
//*           SMITH, AND IS DISTRIBUTED BY SERENA INTERNATIONAL     *   FILE 040
//*           IN BURLINGAME, CALIFORNIA.                            *   FILE 040
//*                                                                 *   FILE 040
//*           STARTOOL HAS MORE THAN DOUBLE THE AWESOME CAPABILITY  *   FILE 040
//*           OF FREE PDS, INCLUDING DISASSEMBLER, DELINKER,        *   FILE 040
//*           AUTOMATIC SMP/E STATEMENT GENERATION, EXTENSIVE       *   FILE 040
//*           VSAM SUPPORT, VSAM EDITOR, ETC, ETC. PDSE DATASET     *   FILE 040
//*           SUPPORT, ALL AT THE TRADITIONAL PDS SUPER EXECUTION   *   FILE 040
//*           SPEED, AND WITH UNBELIEVABLE ISPF SUPPORT.            *   FILE 040
//*                                                                 *   FILE 040
//*           UPDATED ADDRESSES OF BRUCE LELAND AND STEVE SMITH.    *   FILE 040
//*           THEY BOTH WORK AT:                                    *   FILE 040
//*                                                                 *   FILE 040
//*               SERENA INTERNATIONAL                              *   FILE 040
//*               500 AIRPORT BLVD, 2ND FLOOR                       *   FILE 040
//*               BURLINGAME, CA 94010                              *   FILE 040
//*               (415) 696-1800                                    *   FILE 040
//*               (415) 696-1776   FAX                              *   FILE 040
//*                                                                 *   FILE 040
//*     EMAIL ADDRESS:   BLELAND@SERENA.COM                         *   FILE 040
//*                                                                 *   FILE 040
//***FILE 041 IS THE SOURCE FOR THE TSO COMMAND PROMPTER CALLED     *   FILE 041
//*          VTOC.  THIS FILE IS IN IEBUPDTE FORM.  THIS COMMAND    *   FILE 041
//*          ALLOWS YOU TO SEARCH THE VOLUME TABLE OF CONTENTS OF   *   FILE 041
//*          ONE OR MORE DISK VOLUMES AND OBTAIN LISTINGS OR TOTALS *   FILE 041
//*          OF DATA SETS MEETING SOME CRITERIA.  THE SPECIFICATION *   FILE 041
//*          IS QUITE FLEXIBLE.  THIS FILE ALSO CONTAINS THE HELP   *   FILE 041
//*          DATA SET FOR THIS COMMAND.   IT ALSO CONTAINS          *   FILE 041
//*          INSTALLATION NOTES,  SOME COMMENTS ON DEFAULTS THAT MAY*   FILE 041
//*          NOT BE TYPICAL ELSEWHERE,  A LIST OF THE KNOWN ERRORS  *   FILE 041
//*          IN THE COMMAND,  AND IDEAS FOR FUTURE EXPANSION.       *   FILE 041
//*          THIS VERSION SUPPORTS SU60,  CATALOG DATASETS AND THE  *   FILE 041
//*          ABILITY TO SORT THE OUTPUT ON ANYTHING.  FOR ADDITIONAL*   FILE 041
//*          CHANGES SEE THE HELP MEMBER OF THE PDS.                *   FILE 041
//*          THIS VERSION WILL RUN ON A SYSTEM THAT DOES NOT HAVE   *   FILE 041
//*          SU60 INSTALLED,  HOWEVER IF YOU TRY TO ASSEMBLE        *   FILE 041
//*          ON A SYSTEMS THAT DOES NOT HAVE SU60 MACROS YOU WILL   *   FILE 041
//*          GET ASSEMBLE ERRORS.  YOU CAN GO IN AND JUST NO OP     *   FILE 041
//*          THOSE INSTRUCTIONS.  ITS LOAD MODULE IS IN FILE 035    *   FILE 041
//*          AND IS CALLED VTOC.                                    *   FILE 041
//*                                                                 *   FILE 041
//*          VTOC IS CALLED BY A SUBCOMMAND OF PDS VERSION 8.5      *   FILE 041
//*          FROM FILE 040.  IF YOU HAVE INSTALLED PDS VERSION 8.5  *   FILE 041
//*          YOU SHOULD ALSO INSTALL VTOC.                          *   FILE 041
//*                                                                 *   FILE 041
//*          IF YOU INSTALL PDS VERSION 8.5, SEE THE NOTES IN       *   FILE 041
//*          THIS FILE AS TO WHICH VERSION OF THE VTOCPRNT MODULE   *   FILE 041
//*          YOU SHOULD ASSEMBLE AND LINKEDIT INTO THIS COMMAND.    *   FILE 041
//*                                                                 *   FILE 041
//*          BUGS FIXED, AND SUPPORT ADDED FOR 3990 MODEL 9.        *   FILE 041
//*          YOU SHOULD RE-INSTALL VTOC.    (UPDATED 08-94)         *   FILE 041
//*          FIXED FOR MVS/ESA 5.1.         (UPDATED 07-95)         *   FILE 041
//*          FIXED FOR Y2K SUPPORT.         (UPDATED 12-97)         *   FILE 041
//*                                                                 *   FILE 041
//*          ****************************************************   *   FILE 041
//*          * IT APPEARS THAT THERE ARE ADDITIONAL MACROS      *   *   FILE 041
//*          * THAT ARE MISSING FROM THIS FILE  THIS IS IN FACT *   *   FILE 041
//*          * NOT TRUE. WHAT APPEARS TO BE OTHER MACROS WERE   *   *   FILE 041
//*          * JUST AN IDEA AND THOSE MACROS WERE NEVER         *   *   FILE 041
//*          * WRITTEN.  I KNOW ! I SPENT WEEKS TRYING TO TRACK *   *   FILE 041
//*          * THEM DOWN.                                       *   *   FILE 041
//*          *           ARNIE                                  *   *   FILE 041
//*          ****************************************************   *   FILE 041
//*                                                                 *   FILE 041
//* KEYWORDS TSO CP COMMAND PROCESSOR VTOC COMMAND                  *   FILE 041
//*                                                                 *   FILE 041
//***FILE 042 IS A SERIES OF UTILITIES FROM MR BRUCE LELAND.        *   FILE 042
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT AND CONTAINS:   *   FILE 042
//*                                                                 *   FILE 042
//*         01. DSAT- THE DSAT COMMAND IS USED TO DISPLAY           *   FILE 042
//*                    ALLOCATION INFORMATION FOR DATA SETS         *   FILE 042
//*                    ON A DIRECT ACCESS DEVICE.                   *   FILE 042
//*                                                                 *   FILE 042
//*                    DSAT WILL SEARCH THE OS CATALOG AND          *   FILE 042
//*                    CVOLS FOR THE ENTRIES FOR THE DATA           *   FILE 042
//*                    SETS SPECIFIED.  ALLOCATION                  *   FILE 042
//*                    INFORMATION WILL BE OBTAINED FROM THE        *   FILE 042
//*                    VOLUME TABLE OF CONTENTS, FORMATTED          *   FILE 042
//*                    AND DISPLAYED.  IF A NAME IS AN INDEX        *   FILE 042
//*                    NAME, ALL DATA SETS BELOW THE INDEX          *   FILE 042
//*                    WILL BE DISPLAYED.                           *   FILE 042
//*                                                                 *   FILE 042
//*                    THE USER MAY BYPASS THE CATALOG              *   FILE 042
//*                    SEARCH BY SUPPLYING THE VOLUME SERIAL        *   FILE 042
//*                    ON WHICH THE DATA SET RESIDES.  THIS         *   FILE 042
//*                    OPTION PERMITS DISPLAYING INFORMATION        *   FILE 042
//*                    FOR UNCATALOGED DATA SETS.                   *   FILE 042
//*                                                                 *   FILE 042
//*                    THE ATTRIBUTES TO BE DISPLAYED MAY BE        *   FILE 042
//*                    SELECTED BY THE USER WHEN HE ENTERS          *   FILE 042
//*                    THE DSAT COMMAND BY SPECIFYING               *   FILE 042
//*                    KEYWORD OPERANDS.                            *   FILE 042
//*                                                                 *   FILE 042
//*                    THE DSAT COMMAND MAY BE USED IN              *   FILE 042
//*                    COMMAND PROCEDURES TO FIND THE               *   FILE 042
//*                    ALLOCATION OF A DATA SET OR A GROUP          *   FILE 042
//*                    OF DATA SETS AND SET THE RETURN CODE         *   FILE 042
//*                    TO THE SPECIFIED VALUE.  THE RETURN          *   FILE 042
//*                    CODE MAY THEN BE TESTED WITH THE WHEN        *   FILE 042
//*                    COMMAND.  OUTPUT MAY BE SUPPRESSED BY        *   FILE 042
//*                    SPECIFYING NOPRINT.                          *   FILE 042
//*                                                                 *   FILE 042
//*                    THE USER MAY CHOOSE WHAT INFORMATION         *   FILE 042
//*                    WILL BE DISPLAYED BY ENTERING                *   FILE 042
//*                    KEYWORDS.                                    *   FILE 042
//*                                                                 *   FILE 042
//*         THE INFORMATION THAT MAY BE DISPLAYED IS:               *   FILE 042
//*                                                                 *   FILE 042
//*           1. VOLUME SERIAL ON WHICH THE DATA SET IS LOCATED.    *   FILE 042
//*           2. FILE SEQUENCE NUMBER.                              *   FILE 042
//*           3. DEVICE TYPE CODE FROM CATALOG ENTRY.               *   FILE 042
//*           4. ALLOCATION  (ALLOCATED, USED, AND EXTENTS).        *   FILE 042
//*           5. SECONDARY ALLOCATION (AMOUNT AND UNITS).           *   FILE 042
//*           6. DATA SET ORGANIZATION.                             *   FILE 042
//*           7. DCB (RECFM, BLKSIZE, AND LRECL).                   *   FILE 042
//*           8. CREATION DATE.                                     *   FILE 042
//*           9. EXPIRATION DATE.                                   *   FILE 042
//*          10. FULLY QUALIFIED DATA SET NAME.                     *   FILE 042
//*          11. CCHHR OF THE FORMAT 1 DSCB.                        *   FILE 042
//*          12. GENERATION DATA GROUP DATA.                        *   FILE 042
//*          13. PDS DIRECTORY INFORMATION.                         *   FILE 042
//*                                                                 *   FILE 042
//*          02. DVOL- THE DVOL COMMAND IS USED TO DISPLAY          *   FILE 042
//*                    THE AMOUNT OF FREE SPACE ON A DIRECT         *   FILE 042
//*                    ACCESS DEVICE.                               *   FILE 042
//*                                                                 *   FILE 042
//*                    DVOL WILL READ THE FORMAT 4 AND              *   FILE 042
//*                    FORMAT 5 DSCB'S FROM THE VTOC OF A           *   FILE 042
//*                    DIRECT ACCESS VOLUME AND DISPLAY:            *   FILE 042
//*                                                                 *   FILE 042
//*                    DVOL UPDATED 09/97 TO RECOGNIZE DYNAMIC      *   FILE 042
//*                    UCB'S.                                       *   FILE 042
//*                                                                 *   FILE 042
//*               1.  VOLUME SERIAL                                 *   FILE 042
//*               2.  UNIT ADDRESS                                  *   FILE 042
//*               3.  MOUNT STATUS                                  *   FILE 042
//*               4.  USE STATUS                                    *   FILE 042
//*               5.  NUMBER OF BLANK DSCB'S IN THE VTOC            *   FILE 042
//*               6.  CONDITION OF THE VTOC INDICATORS BYTE         *   FILE 042
//*               7.  VSAM DATA FIELDS                              *   FILE 042
//*               8.  TOTAL FREE SPACE IN TRACKS                    *   FILE 042
//*               9.  NUMBER OF FREE EXTENTS                        *   FILE 042
//*              10.  NUMBER OF FREE CYLINDERS                      *   FILE 042
//*              11.  SIZE OF LARGEST EXTENTS (UP TO 5) IN          *   FILE 042
//*                   CYLINDERS + TRACKS                            *   FILE 042
//*              12.  SIZE OF LARGEST EXTENTS (UP TO 5) IN TRACKS   *   FILE 042
//*                                                                 *   FILE 042
//*                    THE RETURN CODE IS SET TO THE TOTAL          *   FILE 042
//*                    NUMBER OF TRACKS IN THE LARGEST              *   FILE 042
//*                    EXTENTS (UP TO 5) UP TO A MAXIMUM OF         *   FILE 042
//*                    4095.  IF THE NUMBER OF FREE TRACKS          *   FILE 042
//*                    EXCEEDS 4095, THE RETURN CODE WILL           *   FILE 042
//*                    BE SET TO 4095.  IF MORE THAN ONE            *   FILE 042
//*                    VOLUME IS DISPLAYED, THE RETURN CODE         *   FILE 042
//*                    WILL BE REFER TO THE SPACE ON THE            *   FILE 042
//*                    LAST VOLUME.  IF AN ERROR CONDITION          *   FILE 042
//*                    EXISTS ON THE VOLUME, THE RETURN             *   FILE 042
//*                    CODE WILL BE SET TO 0.                       *   FILE 042
//*                                                                 *   FILE 042
//*                    NOTE - IF AN ERROR CONDITION EXISTS          *   FILE 042
//*                           ON THE VOLUME, THE RETURN             *   FILE 042
//*                           CODE WILL BE SET TO 0.                *   FILE 042
//*                                                                 *   FILE 042
//*          03. RESET    -  PERFORMS THE EQUIVALENT OF A DATASET   *   FILE 042
//*                          SCRATCH FOLLOWED BY A REALLOCATION     *   FILE 042
//*                          IN THE SAME SPACE FOR A PDS. THE       *   FILE 042
//*                          NUMBER OF DIRECTORY BLOCKS CAN BE      *   FILE 042
//*                          CHANGED VIA THE PROGRAM PARM.          *   FILE 042
//*                                                                 *   FILE 042
//*          04. BLKDISK   - SEE BELOW FOR A COMPLETE DESCRIPTION:  *   FILE 042
//*                                                                 *   FILE 042
//*       DESCRIPTION:  THIS PROGRAM COMPUTES AN "OPTIMAL"          *   FILE 042
//*           BLOCKSIZE FOR A DISK OR DRUM DATA SET GIVEN THE       *   FILE 042
//*           LOGICAL RECORD LENGTH.  INPUTS INCLUDE THE LRECL      *   FILE 042
//*           AND OPTIONALLY ANY OF THE FOLLOWING:                  *   FILE 042
//*                                                                 *   FILE 042
//*           A.  A KEY LENGTH (ZERO, FOR NO KEY, IS THE            *   FILE 042
//*               DEFAULT)                                          *   FILE 042
//*           B.  THE NUMBER OF RECORDS IN THE DATA SET (USED       *   FILE 042
//*               FOR AN ALLOCATION COMPUTATION -- 100,000 IS       *   FILE 042
//*               THE DEFAULT)                                      *   FILE 042
//*           C.  THE BLOCKSIZE TO USE FOR THE ALLOCATION           *   FILE 042
//*               COMPUTATION (THE RECOMMENDED BLOCKSIZE VALUE      *   FILE 042
//*               IS THE DEFAULT)                                   *   FILE 042
//*           D.  WHETHER OR NOT TO PROVIDE A TRACK CAPACITY        *   FILE 042
//*               REPORT                                            *   FILE 042
//*           E.  WHETHER OR NOT TO VERIFY RESULTS AGAINST          *   FILE 042
//*               "TRKCALC"                                         *   FILE 042
//*                                                                 *   FILE 042
//*       SUPPORTED DEVICES:  THE NAME BY WHICH THIS COMMAND        *   FILE 042
//*           PROCESSOR IS INVOKED DETERMINES THE DEVICE TYPE       *   FILE 042
//*           TO BE USED.                                           *   FILE 042
//*                                                                 *   FILE 042
//*           THE FIRST THREE CHARACTERS OF THE COMMAND NAME        *   FILE 042
//*           (USUALLY "BLK") ARE IGNORED; THE REMAINING FOUR       *   FILE 042
//*           OR FIVE CHARACTERS ARE COMPARED AGAINST A TABLE       *   FILE 042
//*           OF SUPPORTED DEVICES IN THE PROGRAM.  THE VALID       *   FILE 042
//*           ALIAS NAMES FOR THE PROGRAM INCLUDE THE               *   FILE 042
//*           FOLLOWING:                                            *   FILE 042
//*                                                                 *   FILE 042
//*           A.  BLK23051  (FOR 2305-1 DRUMS)                      *   FILE 042
//*           B.  BLK23052  (FOR 2305-2 DRUMS)                      *   FILE 042
//*           C.  BLK2314   (FOR 2314 DISKS)                        *   FILE 042
//*           D.  BLK3330   (FOR 3330 DISKS)                        *   FILE 042
//*           E.  BLK33301  (FOR 3330 MODEL 11 DISKS)               *   FILE 042
//*           F.  BLK3340   (FOR 3340 DISKS)                        *   FILE 042
//*           G.  BLK3350   (FOR 3350 DISKS)                        *   FILE 042
//*           H.  BLK3375   (FOR 3375 DISKS)                        *   FILE 042
//*           I.  BLK3380   (FOR 3380 DISKS)                        *   FILE 042
//*           J.  BLK3390   (FOR 3390 DISKS)                        *   FILE 042
//*           K.  BLK9345   (FOR 9345 DISKS)                        *   FILE 042
//*                                                                 *   FILE 042
//*          05.  REVIEW - HAS BEEN COPIED TO THIS FILE FROM FILE   *   FILE 042
//*               134 OF THE REGULAR CBT TAPE.                      *   FILE 042
//*                                                                 *   FILE 042
//*          06.  HEL - THIS PROGRAM IS A FULL SCREEN TSO HELP      *   FILE 042
//*               PROGRAM WHICH IS AN ALIAS OF REVIEW.  THIS PGM    *   FILE 042
//*               HAS BEEN COPIED INTO THIS FILE FROM FILE 134 OF   *   FILE 042
//*               THE REGULAR CBT TAPE.                             *   FILE 042
//*                                                                 *   FILE 042
//*          07.  XEQ - A COMMAND PROCESSOR THAT IS DESIGNED TO     *   FILE 042
//*               LOAD AND EXECUTE (ATTACH) A PROGRAM IN ONE OF THE *   FILE 042
//*               SYSTEM LINK LIBRARIES OR A USER LIBRARY (TASKLIB) *   FILE 042
//*                                                                 *   FILE 042
//*          08   COMPARE - A SOMEWHAT MODIFIED VERSION OF THE      *   FILE 042
//*               YALE COMPARE PROGRAM                              *   FILE 042
//*                                                                 *   FILE 042
//*        XX  UPDATE TO FILE 042 FROM BRUCE LELAND OF SERENA IN    *   FILE 042
//*            BURLINGAME, CALIFORNIA.  THE FOLLOWING MEMBERS       *   FILE 042
//*            WERE UPDATED:  (AUGUST 94 - CBT VERSION 381)         *   FILE 042
//*                                                                 *   FILE 042
//*              DSAT    - WAS UPDATED AS FOLLOWS:                  *   FILE 042
//*                   1.  ADDED THE "FULL" KEYWORD TO PROVIDE       *   FILE 042
//*                       MULTIPLE DEFAULTS FOR MORE COMPLETE       *   FILE 042
//*                       INFORMATION ON EACH DATA SET.             *   FILE 042
//*                   2.  ADDED THE "EXTENTS" KEYWORD TO FORMAT     *   FILE 042
//*                       DISK EXTENTS AS PROGRAMMED BY LEONARD     *   FILE 042
//*                       WOREN AT THE UNIVERISITY OF SOUTHERN      *   FILE 042
//*                       CALIFORNIA FROM DSAT IN CBT FILE 180.     *   FILE 042
//*              DVOL - WAS MODIFIED TO SUPPORT 3390 MODEL 9 DISKS. *   FILE 042
//*                   THIS INVOLVED CHANGING THE IXTOFMT5 ROUTINE   *   FILE 042
//*                   TO CONVERT FREE SPACE TO THE NEW FORMAT 7     *   FILE 042
//*                   FREE SPACE RECORDS.  THE &MODEL9 VARIABLE     *   FILE 042
//*                   CAN BE MODIFIED TO REVERT TO FORMAT 5         *   FILE 042
//*                   RECORDS FOR OLDER SYSTEM LEVELS, HOWEVER.     *   FILE 042
//*                                                                 *   FILE 042
//***FILE 043 IS DOCUMENTATION FOR THE ISPF "SMOKE AND MIRRORS"     *   FILE 043
//*           TAPE FROM SHARE, THAT WAS ADMINISTERED BY JIM         *   FILE 043
//*           MARSHALL OF THE U.S. TREASURY FINANCIAL MANAGEMENT    *   FILE 043
//*           SERVICE IN HYATTSVILLE, MARYLAND.  THE NEXT 14 FILES  *   FILE 043
//*           REFLECT THE DATA FILES ON THAT TAPE.  OUR FILE        *   FILE 043
//*           NUMBERS ARE HIS FILE NUMBERS, PLUS 40.  THAT IS,      *   FILE 043
//*           HIS FILE 7 IS OUR FILE 47.  YOU GET THE IDEA.         *   FILE 043
//*                                                                 *   FILE 043
//*                 JIM MARSHALL, US TREASURY                       *   FILE 043
//*                 FINANCIAL MANAGEMENT SERVICE                    *   FILE 043
//*                 PRINCE GEORGES PLAZA II - ROOM 400B             *   FILE 043
//*                 3700 EAST-WEST HIGHWAY                          *   FILE 043
//*                 HYATTSVILLE, MD  20782                          *   FILE 043
//*                 202-874-8353                                    *   FILE 043
//*                                                                 *   FILE 043
//***FILE 044 IS FILE 04 FROM THE ISPF "SMOKE AND MIRRORS" TAPE.    *   FILE 044
//*                                                                 *   FILE 044
//***FILE 045 IS FILE 05 FROM THE ISPF "SMOKE AND MIRRORS" TAPE.    *   FILE 045
//*                                                                 *   FILE 045
//***FILE 046 IS FILE 06 FROM THE ISPF "SMOKE AND MIRRORS" TAPE.    *   FILE 046
//*                                                                 *   FILE 046
//***FILE 047 IS FILE 07 FROM THE ISPF "SMOKE AND MIRRORS" TAPE.    *   FILE 047
//*                                                                 *   FILE 047
//***FILE 048 IS FILE 08 FROM THE ISPF "SMOKE AND MIRRORS" TAPE.    *   FILE 048
//*                                                                 *   FILE 048
//***FILE 049 IS FILE 09 FROM THE ISPF "SMOKE AND MIRRORS" TAPE.    *   FILE 049
//*                                                                 *   FILE 049
//***FILE 050 IS FILE 10 FROM THE ISPF "SMOKE AND MIRRORS" TAPE.    *   FILE 050
//*                                                                 *   FILE 050
//***FILE 051 IS FILE 11 FROM THE ISPF "SMOKE AND MIRRORS" TAPE.    *   FILE 051
//*                                                                 *   FILE 051
//***FILE 052 IS FILE 12 FROM THE ISPF "SMOKE AND MIRRORS" TAPE.    *   FILE 052
//*                                                                 *   FILE 052
//***FILE 053 IS FILE 13 FROM THE ISPF "SMOKE AND MIRRORS" TAPE.    *   FILE 053
//*                                                                 *   FILE 053
//***FILE 054 IS FILE 14 FROM THE ISPF "SMOKE AND MIRRORS" TAPE.    *   FILE 054
//*                                                                 *   FILE 054
//***FILE 055 IS FILE 15 FROM THE ISPF "SMOKE AND MIRRORS" TAPE.    *   FILE 055
//*                                                                 *   FILE 055
//***FILE 056 IS FILE 16 FROM THE ISPF "SMOKE AND MIRRORS" TAPE.    *   FILE 056
//*                                                                 *   FILE 056
//***FILE 057 IS FILE 17 FROM THE ISPF "SMOKE AND MIRRORS" TAPE.    *   FILE 057
//*                                                                 *   FILE 057
//***FILE 058 IS FROM SAM GOLOB AND CONTAINS A COPY OF HIS OLD      *   FILE 058
//*           SMP4 SERVICE AID UTILITIES. SEE BELOW FOR ADDITIONAL  *   FILE 058
//*           INFORMATION. (THIS FILE IS IN IEBUPDTE SYSIN FORMAT   *   FILE 058
//*           SEE THE MEMBER CALLED $$$$$DOC FOR MORE INFORMATION)  *   FILE 058
//*                                                                 *   FILE 058
//*    (ALTHOUGH THIS CODE IS OUTDATED ON MOST MVS SYSTEMS          *   FILE 058
//*     RUNNING TODAY, THE DOC AND THE CODE CAN GIVE YOU IDEAS      *   FILE 058
//*     ON HOW TO IMPROVE YOUR CURRENT SMP/E PROCESSING BY          *   FILE 058
//*     MODIFYING THIS STUFF.    SAM GOLOB 07/96)                   *   FILE 058
//*                                                                 *   FILE 058
//*              THE PURPOSE OF THIS PACKAGE IS TO PRODUCE          *   FILE 058
//*              EXECUTABLE LISTS OF SYSMODS FROM SMP4 REPORTS.     *   FILE 058
//*              THIS SAVES A LOT OF COPYING OF PTF NUMBERS FROM    *   FILE 058
//*              LISTINGS, AND IMPROVES ACCURACY.  THERE ARE ALSO   *   FILE 058
//*              PROGRAMS TO LIST ALL ELEMENTS FROM THE ELEMENT     *   FILE 058
//*              REPORT OF AN APPLY OR ACCEPT LISTING.  THERE'S     *   FILE 058
//*              ALSO STUFF THAT GETS PTF LISTS FROM THE RECEIVE    *   FILE 058
//*              SUMMARY, AND FROM LISTS.  THE HELDOFF PROGRAM      *   FILE 058
//*              SMPHOFF PRODUCES A LIST OF HELD-OFF AND            *   FILE 058
//*              HOLDERS-OFF SYSMODS AND IS VERY USEFUL FOR PUTS.   *   FILE 058
//*              COMMENTS ARE INCLUDED IN THE OUTPUT FILE FOR MOST  *   FILE 058
//*              PROGRAM OUTPUTS, NEXT TO EACH SYSMOD OR ELEMENT    *   FILE 058
//*              NUMBER TO MAKE THE OUTPUTS MUCH MORE USEFUL.       *   FILE 058
//*              SYSMOD NUMBERS ARE PUT IN COLUMN 7 TO MAKE THEM    *   FILE 058
//*              SORT-MERGEABLE WITH IBM'S.  ELEMENT NAMES ARE PUT  *   FILE 058
//*              IN COLUMN 2, TO GET THE MAXIMUM COMMENTS INTO THE  *   FILE 058
//*              OUTPUT LINE.                                       *   FILE 058
//*                                                                 *   FILE 058
//*              USING THESE PROGRAMS IS EASY, ALTHOUGH THERE ARE A *   FILE 058
//*              FEW TRICKS.  INPUT IS A COPY OF YOUR SMP LISTING   *   FILE 058
//*              ON A DISK FILE.  OUTPUT IS A CARD DECK:  I USUALLY *   FILE 058
//*              PUT THE CARD DECK ON MY PUTPDS DATASET (WHICH GETS *   FILE 058
//*              PRETTY BIG).  I SHALL INCLUDE MY EXECUTION JCL FOR *   FILE 058
//*              ALL OF THEM WITH THE PREFIX ^.  THE IDEA IS TO     *   FILE 058
//*              SORT THE OUTPUT AND DELETE THE DUPLICATE NUMBERS.  *   FILE 058
//*              SOME OF THE PROGRAMS DELIBERATELY PRODUCE          *   FILE 058
//*              DUPLICATE NUMBERS FOR OUTPUT.  IN ANY CASE, I AM   *   FILE 058
//*              INCLUDING ALL OF MY EXECUTION JCL AS OF THIS DATE. *   FILE 058
//*                                                                 *   FILE 058
//***FILE 059 CONTAINS SEVERAL PROGRAMS, TSO COMMAND PROCESSORS,    *   FILE 059
//*           MACROS, ETC., FROM THE FLORIDA POWER & LIGHT CO.      *   FILE 059
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT.  SEE THE       *   FILE 059
//*           MEMBER CALLED $$$DOC FOR MORE INFORMATION             *   FILE 059
//*                                                                 *   FILE 059
//*     SYSTEMS WHICH SUPPORT EXECUTION OF THE TMP IN THE           *   FILE 059
//*     BACKGROUND WILL SUPPORT DVOL, DSN, DENQ, AND DSAT           *   FILE 059
//*     (EXCEPT PDS OPTION) UNDER THE TMP AS BATCH JOBS.            *   FILE 059
//*                                                                 *   FILE 059
//*     MVS SYSTEMS WHICH ALSO SUPPORT BACKGROUND DYNAMIC           *   FILE 059
//*     ALLOCATION WILL SUPPORT ALL OF THE TSO COMMANDS UNDER       *   FILE 059
//*     THE TMP AS BATCH JOBS.                                      *   FILE 059
//*                                                                 *   FILE 059
//*     THE SOURCE FOR DSAT, DVOL, DSN/DENQ, AND FREEALL IS         *   FILE 059
//*     OPERATING SYSTEM DEPENDENT.  THE PROPER OPERATING           *   FILE 059
//*     SYSTEM MUST BE SPECIFIED AS THE VALUE FOR &OPSYSTM          *   FILE 059
//*     BEFORE ASSEMBLING.  THE REMAINING PROGRAMS ARE              *   FILE 059
//*     OPERATING SYSTEM INDEPENDENT (MVT SVS MVS).                 *   FILE 059
//*                                                                 *   FILE 059
//*     THE MVT ASSEMBLER F WILL NOT ASSEMBLE SOME OF THE           *   FILE 059
//*     MACROS PROPERLY.  THE SVS AND MVS ASSEMBLER XF, THE H       *   FILE 059
//*     ASSEMBLER, AND SOME VERSIONS OF THE G ASSEMBLER WILL        *   FILE 059
//*     ASSEMBLE THE MACROS WITHOUT ERROR.  THE F ASSEMBLER         *   FILE 059
//*     DOES NOT RECOGNIZE THE &SYSDATE AND &SYSTIME SYSTEM         *   FILE 059
//*     VARIABLE SYMBOLS IN THE $ENTER MACRO AND DOES NOT           *   FILE 059
//*     ALLOW THE MNOTE STATEMENT BEFORE THE LOCAL AND GLOBAL       *   FILE 059
//*     SYMBOL DEFINITIONS IN SEVERAL OF THE MACROS.                *   FILE 059
//*                                                                 *   FILE 059
//*     THE FOLLOWING IS A BRIEF DESCRIPTION OF THE MEMBERS IN      *   FILE 059
//*     THIS PDS.                                                   *   FILE 059
//*                                                                 *   FILE 059
//*     MORE DETAILED DOCUMENTATION IS INCLUDED IN COMMENT          *   FILE 059
//*     STATEMENTS IN EACH SOURCE PROGRAM AND MACRO.                *   FILE 059
//*                                                                 *   FILE 059
//*               MACROS REQUIRED TO ASSEMBLE PROGRAMS              *   FILE 059
//*                                                                 *   FILE 059
//*               $ENTER    ENTRY LINKAGE                           *   FILE 059
//*               $CALL     INVOKE A SUBROUTINE                     *   FILE 059
//*               $RTRN     RETURN LINKAGE                          *   FILE 059
//*               #CTGPL    MAP A VSAM CATALOG PARAMETER LIST       *   FILE 059
//*               #SORT     SORT A TABLE                            *   FILE 059
//*               #TSOBLKS  CONSTRUCT TSO CONTROL BLOCKS            *   FILE 059
//*               #TSOMSG   CONSTRUCT TSO PUTLINE MESSAGE           *   FILE 059
//*               #VTCFMT1  DESCRIBE A FORMAT 1 DSCB                *   FILE 059
//*               #VTCFMT3  DESCRIBE A FORMAT 3 DSCB                *   FILE 059
//*               #VTCFMT4  DESCRIBE A FORMAT 4 DSCB                *   FILE 059
//*               #VTCFMT5  DESCRIBE A FORMAT 5 DSCB                *   FILE 059
//*               IKJATRCB  IBM MACRO TO MAP ATTRIBUTE CONTROL      *   FILE 059
//*                         BLOCK (NOT DISTRIBUTED WITH MVT)        *   FILE 059
//*                                                                 *   FILE 059
//*               THE FOLLOWING MACROS MAY BE HELPFUL, BUT ARE      *   FILE 059
//*               NOT REQUIRED TO ASSEMBLE THE OTHER PROGRAMS       *   FILE 059
//*                                                                 *   FILE 059
//*               #UCS      GENERATE UCS CHARACTER IMAGES           *   FILE 059
//*               IKJEBEST  IBM PRIVATE MACRO TO GENERATE TSO       *   FILE 059
//*                         EDIT SUBCOMMAND TABLE                   *   FILE 059
//*               TESTMACS  IBM PRIVATE MACROS USED TO INSTALL      *   FILE 059
//*                         AND ASSEMBLE TEST SUBCOMMANDS           *   FILE 059
//*                         (AVAILABLE FROM OPTIONAL MATERIAL)      *   FILE 059
//*               BRKELEM   BREAK ELEMENT DESCRIPTION               *   FILE 059
//*               IKJEGDBE                                          *   FILE 059
//*               IKJEGDME                                          *   FILE 059
//*               IKJEGSIO  SET OF I/O MACROS                       *   FILE 059
//*               IKJEGSPL                                          *   FILE 059
//*               IKJEGSUB  GENERATE SUBCOMMAND TABLE               *   FILE 059
//*               IKJEGSVB                                          *   FILE 059
//*               IKJEGSVQ                                          *   FILE 059
//*               IKJEGS6A                                          *   FILE 059
//*               IKJEGS9G                                          *   FILE 059
//*               IKJPARMA  DESCRIBE AN ADDRESS PDE                 *   FILE 059
//*               TCOMTAB   DESCRIBE TEST COMMUNICATIONS TABLE      *   FILE 059
//*                                                                 *   FILE 059
//*               PROGRAMS                                          *   FILE 059
//*                                                                 *   FILE 059
//*               DSAT      TSO COMMAND TO DISPLAY DATA SET         *   FILE 059
//*                         ALLOCATION                              *   FILE 059
//*               DSATHELP  HELP MEMBER FOR DSAT                    *   FILE 059
//*               DVOL      TSO COMMAND TO DISPLAY FREE SPACE       *   FILE 059
//*                         ON DIRECT ACCESS VOLUMES                *   FILE 059
//*               DVOLHELP  HELP MEMBER FOR DVOL                    *   FILE 059
//*               DSN/DENQ  TSO COMMANDS TO DISPLAY                 *   FILE 059
//*                         ALLOCATIONS ON DATA SETS OR ANY         *   FILE 059
//*                         QNAME/RNAME COMBINATION                 *   FILE 059
//*               DSNHELP   HELP MEMBER FOR DSN                     *   FILE 059
//*               DENQHELP  HELP MEMBER FOR DENQ                    *   FILE 059
//*               FREEALL   TSO COMMAND TO FREE ALL ALLOCATED       *   FILE 059
//*                         DATA SETS                               *   FILE 059
//*               FALLHELP  HELP MEMBER FOR FREEALL                 *   FILE 059
//*               RLSE      TSO COMMAND TO RELEASE UNUSED           *   FILE 059
//*                         SPACE FOR DISK DATA SETS                *   FILE 059
//*               RLSEHELP  HELP MEMBER FOR RLSE                    *   FILE 059
//*               MMDEL     TSO COMMAND TO DELETE MULTIPLE          *   FILE 059
//*                         MEMBERS FROM A PDS                      *   FILE 059
//*               MMDLHELP  HELP MEMBER FOR MMDEL                   *   FILE 059
//*               DQ        ENHANCED STATUS COMMAND SHOWING         *   FILE 059
//*                         QUEUE NAME AND POSITION OR              *   FILE 059
//*                         STEPNAME IF EXECUTING (FOR JES2         *   FILE 059
//*                         VERSION 4.0 OR 4.1)                     *   FILE 059
//*               DQHELP    HELP MEMBER FOR DQ                      *   FILE 059
//*               SS0812    FIND SUBCOMMAND OF TEST                 *   FILE 059
//*               HELP0812  HELP DATA FOR SS0812                    *   FILE 059
//*               SS0813    LISTBKPT SUBCOMMAND OF TEST             *   FILE 059
//*               HELP0813  HELP DATA FOR SS0813                    *   FILE 059
//*               SS0104    TAPE MAPPING PROGRAM                    *   FILE 059
//*               SS0278    TAPE DUPLICATION PROGRAM                *   FILE 059
//*               SS0108    PROGRAM TO GENERATE CARDS WITH PDS      *   FILE 059
//*                         MEMBER NAMES SUBSTITUTED FOR            *   FILE 059
//*                         CONTROL CHARACTERS                      *   FILE 059
//*               SS0127    PROGRAM TO IDENTIFY UNCATALOGED         *   FILE 059
//*                         DATA SETS                               *   FILE 059
//*               SS0300    PROGRAM TO PRINT OR PUNCH MEMBERS       *   FILE 059
//*                         OF A PDS IN ALPHABETICAL OR             *   FILE 059
//*                         SELECTED ORDER                          *   FILE 059
//*               SS0136    PROGRAM TO LIST THE CHANNELS            *   FILE 059
//*                         SPECIFIED BY FCB IMAGES FOR 3211        *   FILE 059
//*                         PRINTERS                                *   FILE 059
//*               SS0272    PROGRAM TO READ A LINK MAP AND          *   FILE 059
//*                         LIST UNREFERENCED CONTROL SECTIONS      *   FILE 059
//*               DMPSPOOL  PROGRAM TO DUMP INPUT JOBS FROM         *   FILE 059
//*                         JES2 RELEASE 4.0 SPOOL                  *   FILE 059
//*               UNITNAME  PROGRAM TO LIST DEVICES SPECIFIED       *   FILE 059
//*                         BY EACH GENERIC AND ESOTERIC UNIT       *   FILE 059
//*                         NAME                                    *   FILE 059
//*                                                                 *   FILE 059
//***FILE 060 IS THE DOCUMENTATION FILE FROM THE LOS ANGELES MVS    *   FILE 060
//*           USERS GROUP TAPE.                                     *   FILE 060
//*                                                                 *   FILE 060
//***FILE 061 IS THE HELP FILE FROM THE LOS ANGELES MVS USERS       *   FILE 061
//*           GROUP TAPE.                                           *   FILE 061
//*                                                                 *   FILE 061
//***FILE 062 IS THE LOAD MODULE LIBRARY FROM THE LOS ANGELES MVS   *   FILE 062
//*           USERS GROUP TAPE.                                     *   FILE 062
//*                                                                 *   FILE 062
//***FILE 063 IS THE MACRO LIBRARY FROM THE LOS ANGELES MVS USERS   *   FILE 063
//*           GROUP TAPE.                                           *   FILE 063
//*                                                                 *   FILE 063
//***FILE 064 IS THE OBJECT LIBRARY FROM THE LOS ANGELES MVS USERS  *   FILE 064
//*           GROUP TAPE.                                           *   FILE 064
//*                                                                 *   FILE 064
//***FILE 065 IS THE SOURCE LIBRARAY FROM THE LOS ANGELES MVS       *   FILE 065
//*           USERS GROUP TAPE.                                     *   FILE 065
//*                                                                 *   FILE 065
//***FILE 066 IS THE CNTL LIBRARY FROM THE LOS ANGELES MVS USERS    *   FILE 066
//*           GROUP TAPE.                                           *   FILE 066
//*                                                                 *   FILE 066
//***FILE 067 IS THE CLIST LIBRARY FROM THE LOS ANGELES MVS USERS   *   FILE 067
//*           GROUP TAPE.                                           *   FILE 067
//*                                                                 *   FILE 067
//***FILE 068 IS THE ISPF PANEL LIBRARY FROM THE LOS ANGELES MVS    *   FILE 068
//*           USERS GROUP TAPE.                                     *   FILE 068
//*                                                                 *   FILE 068
//***FILE 069 IS FROM THE LOS ANGELES MVS USERS GROUP TAPE, AND IS  *   FILE 069
//*           A FILE WHICH TELLS HOW TO RECONFIGURE OR PARTITION    *   FILE 069
//*           A 3090 PROCESSOR.                                     *   FILE 069
//*                                                                 *   FILE 069
//***FILE 070 is from Michael Cleary, and contains a copy of        *   FILE 070
//*           DAF (Dataset Audit Facility).  This file is in        *   FILE 070
//*           IEBUPDTE SYSIN format.                                *   FILE 070
//*                                                                 *   FILE 070
//*     MIKE CLEARY HAS A NEW ADDRESS:                              *   FILE 070
//*                                                                 *   FILE 070
//*        email:  mcleary@pacbell.net                              *   FILE 070
//*                                                                 *   FILE 070
//*     Contact:   Michael J. Cleary                                *   FILE 070
//*                Mainframe Technical Services                     *   FILE 070
//*                Bergen Brunswig                                  *   FILE 070
//*                4000 Metropolitan Drive                          *   FILE 070
//*                Orange, California  92868                        *   FILE 070
//*                Voice:  714.385.4052                             *   FILE 070
//*                Fax     714.704.7052                             *   FILE 070
//*                Email:  mike.cleary@bergenbrunswig.com           *   FILE 070
//*                                                                 *   FILE 070
//*           THE CURRENT VERSION OF DAF IS WRITTEN IN ASSEMBLER.   *   FILE 070
//*                                                                 *   FILE 070
//*           DOCUMEMTATION IS INCLUDED IN THE CODE, AND I WILL     *   FILE 070
//*           INCLUDE MORE DOCUMENTATION OF THE BAL VERSION IF IT   *   FILE 070
//*           BECOMES AVAILABLE.                                    *   FILE 070
//*                                                                 *   FILE 070
//*           The PL/I version of DAF, V1.3, is also included       *   FILE 070
//*           here, as member OLDDAF, with its documentation        *   FILE 070
//*           included.                                             *   FILE 070
//*                                                                 *   FILE 070
//*           DAF IS A BATCH UTILITY PROGRAM THAT READS SMF         *   FILE 070
//*           RECORDS AND GENERATES A REPORT.                       *   FILE 070
//*                                                                 *   FILE 070
//*           THE FOLLOWING CONTROL RECORDS CAN BE USED TO MODIFY   *   FILE 070
//*           THE SELECTION CRITERIA.                               *   FILE 070
//*                                                                 *   FILE 070
//*             DDN=    DEFAULT:  ALL DDNAMES   <###  NOTE:         *   FILE 070
//*                                              EACH TYPE OF       *   FILE 070
//*             DSN=    DEFAULT:  ALL DATASETS  <###  CONTROL       *   FILE 070
//*                                              RECORD CAN OCCUR   *   FILE 070
//*             JOB=    DEFAULT:  ALL JOBS      <###  BETWEEN 0 AND *   FILE 070
//*                                              32 TIMES.          *   FILE 070
//*             VOL=    DEFAULT:  ALL VOLUMES   <###                *   FILE 070
//*                                                                 *   FILE 070
//*             SD=YYDDD    DEFAULT:  START DATE 86001              *   FILE 070
//*             ED=YYDDD    DEFAULT:  END DATE 99365                *   FILE 070
//*                                                                 *   FILE 070
//*           DAF CAN SOLVE MANY COMMON MYSTERIES BY SHOWING:       *   FILE 070
//*                                                                 *   FILE 070
//*               DATASET CREATE, ACCESS, RENAME, DELETE            *   FILE 070
//*                       HOW MANY EXCPS ?                          *   FILE 070
//*                       WHAT DDNAME ?                             *   FILE 070
//*                       WHAT JOB ?                                *   FILE 070
//*                       WHAT TIME ?                               *   FILE 070
//*                       WHAT VOLUME ?                             *   FILE 070
//*                                                                 *   FILE 070
//*           DAF CAN SOLVE SOME UNIQUE MYSTERIES BY SHOWING:       *   FILE 070
//*                                                                 *   FILE 070
//*               WHAT VOLUMES DOES AN APPLICATION USE ?            *   FILE 070
//*               WAS A CERTAIN DATASET USED LAST WEEKEND ?         *   FILE 070
//*                                                                 *   FILE 070
//***FILE 071 IS CURRENTLY EMPTY                                    *   FILE 071
//*                                                                 *   FILE 071
//***FILE 072 IS CURRENTLY EMPTY                                    *   FILE 072
//*                                                                 *   FILE 072
//***FILE 073 IS CURRENTLY EMPTY                                    *   FILE 073
//*                                                                 *   FILE 073
//***FILE 074 IS CURRENTLY EMPTY                                    *   FILE 074
//*                                                                 *   FILE 074
//***FILE 075 IS FROM JIM MARSHALL AND CONTAINS SYS1.MACLIB FROM    *   FILE 075
//*           OS MVT RELEASE 21.8.  THIS IS FROM IBM, BUT IT IS     *   FILE 075
//*           PUBLIC DOMAIN SOFTWARE.                               *   FILE 075
//*                                                                 *   FILE 075
//***FILE 076 IS FROM JIM MARSHALL AND CONTAINS SYS1.MODGEN FROM    *   FILE 076
//*           OS MVT RELEASE 21.8.  THIS IS FROM IBM, BUT IT IS     *   FILE 076
//*           PUBLIC DOMAIN SOFTWARE.                               *   FILE 076
//*                                                                 *   FILE 076
//***FILE 077 IS FROM JIM MARSHALL AND CONTAINS SYS1.TSOMAC FROM    *   FILE 077
//*           OS MVT RELEASE 21.8.  THIS IS FROM IBM, BUT IT IS     *   FILE 077
//*           PUBLIC DOMAIN SOFTWARE.                               *   FILE 077
//*                                                                 *   FILE 077
//***FILE 078 IS FROM JIM MARSHALL AND CONTAINS SYS1.GENLIB FROM    *   FILE 078
//*           OS MVT RELEASE 21.8.  THIS IS FROM IBM, BUT IT IS     *   FILE 078
//*           PUBLIC DOMAIN SOFTWARE.                               *   FILE 078
//*                                                                 *   FILE 078
//***FILE 079 IS FROM JIM MARSHALL AND CONTAINS SYS1.SAMPLIB FROM   *   FILE 079
//*           OS MVT RELEASE 21.8.  THIS IS FROM IBM, BUT IT IS     *   FILE 079
//*           PUBLIC DOMAIN SOFTWARE.                               *   FILE 079
//*                                                                 *   FILE 079
//***FILE 080 IS FROM JIM MARSHALL AND CONTAINS SYS1.TCAMMAC FROM   *   FILE 080
//*           OS MVT RELEASE 21.8.  THIS IS FROM IBM, BUT IT IS     *   FILE 080
//*           PUBLIC DOMAIN SOFTWARE.                               *   FILE 080
//*                                                                 *   FILE 080
//***FILE 081 IS FROM JIM MARSHALL AND CONTAINS SYS1.PROCLIB FROM   *   FILE 081
//*           OS MVT RELEASE 21.8.  THIS IS FROM IBM, BUT IT IS     *   FILE 081
//*           PUBLIC DOMAIN SOFTWARE.                               *   FILE 081
//*                                                                 *   FILE 081
//***FILE 082 IS FROM JIM MARSHALL AND CONTAINS SYS1.PVTMACS FROM   *   FILE 082
//*           OS MVT RELEASE 21.8.  THIS IS FROM IBM, BUT IT IS     *   FILE 082
//*           PUBLIC DOMAIN SOFTWARE.                               *   FILE 082
//*                                                                 *   FILE 082
//***FILE 083 IS CURRENTLY EMPTY                                    *   FILE 083
//*                                                                 *   FILE 083
//***FILE 084 IS THE PREVIOUS VERSION OF THE TSO PDS COMMAND THAT   *   FILE 084
//*           LIVES IN FILE 182 OF THE CBT TAPE.  SEE THE WRITE UP  *   FILE 084
//*           UNDER FILE 182 OF THE CBT TAPE FOR ADDITIONAL         *   FILE 084
//*           INFORMATION.  THAT DOC APPLIES TO THIS FILE ALSO.     *   FILE 084
//*                                                                 *   FILE 084
//*           THIS FILE CURRENTLY CONTAINS PDS VERSION 8.4.  THIS   *   FILE 084
//*           IS THE LAST VERSION THAT WAS SUPPORTED BY BRUCE       *   FILE 084
//*           LELAND AND STEVE SMITH.  JOHN KALINICH IS THE         *   FILE 084
//*           PERSON WHO CURRENTLY SUPPORTS THE FREE PDS PACKAGE.   *   FILE 084
//*                                                                 *   FILE 084
//*           BRUCE LELAND AND STEVE SMITH SUPPORT A VENDOR         *   FILE 084
//*           PRODUCT EXTENSION OF PDS, WHICH IS CALLED STARTOOL.   *   FILE 084
//*           STARTOOL IS DISTRIBUTED BY SERENA INTERNATIONAL OF    *   FILE 084
//*           BURLINGAME, CALIFORNIA, AND HAS PERHAPS DOUBLE THE    *   FILE 084
//*           NUMBER OF FUNCTIONS THAT FREE PDS HAS.  THEY ARE      *   FILE 084
//*           BOTH AWESOME TOOLS.                                   *   FILE 084
//*                                                                 *   FILE 084
//*    EMAIL FOR JOHN KALINICH:  KALINICH@ST-LOUIS-EMH2.ARMY.MIL    *   FILE 084
//*                                                                 *   FILE 084
//*    EMAIL FOR BRUCE LELAND:   BLELAND@SERENA.COM                 *   FILE 084
//*    EMAIL FOR STEVEN SMITH:   SSMITH@SERENA.COM                  *   FILE 084
//*                                                                 *   FILE 084
//*                                                                 *   FILE 084
//***FILE 085 IS CURRENTLY EMPTY                                    *   FILE 085
//*                                                                 *   FILE 085
//***FILE 086 IS CURRENTLY EMPTY                                    *   FILE 086
//*                                                                 *   FILE 086
//***FILE 087 IS CURRENTLY EMPTY                                    *   FILE 087
//*                                                                 *   FILE 087
//***FILE 088 IS CURRENTLY EMPTY                                    *   FILE 088
//*                                                                 *   FILE 088
//***FILE 089 IS CURRENTLY EMPTY                                    *   FILE 089
//*                                                                 *   FILE 089
//***FILE 090 IS CURRENTLY EMPTY                                    *   FILE 090
//*                                                                 *   FILE 090
//***FILE 091 IS CURRENTLY EMPTY                                    *   FILE 091
//*                                                                 *   FILE 091
//***FILE 092 IS CURRENTLY EMPTY                                    *   FILE 092
//*                                                                 *   FILE 092
//***FILE 093 IS A JES2 2.2.0   VER OF THE TSO CP CALLED QUE FROM   *   FILE 093
//*           THE UNIVERSITY OF FLORIDA.  THIS FILE IS IN IEBUPDTE  *   FILE 093
//*           SYSIN FORMAT.  THIS CODE WAS TAKEN FROM VERSION       *   FILE 093
//*           86 OF THE JES2 SP MODS TAPE.  QUEUE IS A TSO COMMAND  *   FILE 093
//*           TO LOOK AT JES2 SPOOL DATASETS.                       *   FILE 093
//*                                                                 *   FILE 093
//***FILE 094 IS A JES2 1.3.6/2.1.5 VER OF THE TSO CP CALLED QUE.   *   FILE 094
//*           THIS VERSION OF QUE WAS RECEIVED FROM SAM GOLOB.      *   FILE 094
//*           THIS VERSION OF QUE HAS BEEN CONVERTED TO RUN ON      *   FILE 094
//*           JES2 RELEASES SP1.3.6 AND SP2.1.5.  CONVERSION WAS    *   FILE 094
//*           DONE AT LOCKHEED AND WAS OBTAINED, WITH MODIFICATIONS *   FILE 094
//*           BY JOHN SULLIVAN, FROM THE JES2 MODS TAPE, VERSION    *   FILE 094
//*           59.  WE HAD BEEN RUNNING THE 1.3.6 QUEUE.  WHEN WE    *   FILE 094
//*           INSTALLED RSCS VERSION 2.1 IT STOPPED WORKING FOR     *   FILE 094
//*           THE DATASETS THAT RSCS SENT OVER TO JES2. WE FOUND    *   FILE 094
//*           THAT RSCS 2.1 WAS USING A DSID OF 0 INSTEAD OF 1      *   FILE 094
//*           SO WE HAD TO MODIFY QUE TO MAKE 0 A VALID DSID.       *   FILE 094
//*           WE ARE GRATEFUL TO JACK SCHUDEL FOR ALL HIS HELP.     *   FILE 094
//*                                                                 *   FILE 094
//***FILE 095 IS A JES2 3.1.1 VERSION OF THE TSO CP CALLED QUEUE.   *   FILE 095
//*           THIS VERSION WAS SUBMITTED FROM MR SAM GOLOB WHO      *   FILE 095
//*           OBTAINED IT FROM MR BILL BALMER OF EG & G IDAHO       *   FILE 095
//*           WHO MODIFIED THE VERSION FROM MR JACK SCHUDEL OF      *   FILE 095
//*           THE UNVIERSITY OF FLORIDA.  THIS FILE IS IN           *   FILE 095
//*           IEBUPDTE SYSIN FORMAT.                                *   FILE 095
//*                                                                 *   FILE 095
//***FILE 096 IS A JES2 3.1.1 VERSION OF THE TSO CP CALLED QUEUE.   *   FILE 096
//*           THIS VERSION WAS SUBMITTED FROM MR SAM GOLOB OF       *   FILE 096
//*           WHO OBTAINED IT FROM MR BILL BALMER OF EG & G         *   FILE 096
//*           IDAHO WHO MODIFIED THE VERSION FROM MR GUY            *   FILE 096
//*           ALBERTELLI OF BF GOODRICH.  THIS FILE IS IN           *   FILE 096
//*           IEBUPDTE SYSIN FORMAT.                                *   FILE 096
//*                                                                 *   FILE 096
//***FILE 097 IS A JES2 1.3.6/2.1.5 VER OF THE TSO CP CALLED QUEUE. *   FILE 097
//*           THIS VERSION WAS SUBMITTED BY MR GUY ALBERTELLI OF    *   FILE 097
//*           B.F. GOODRICH OF AKRON, OHIO.  THIS VERSION SUPPORTS  *   FILE 097
//*           ISPF VERSION 2.2 AND 2.3.  THIS FILE IS IN IEBUPDTE   *   FILE 097
//*           SYSIN FORMAT.                                         *   FILE 097
//*                                                                 *   FILE 097
//***FILE 098 IS A JES2 2.2.0 VERSION OF THE TSO CP CALLED QUEUE.   *   FILE 098
//*           THIS VERSION WAS SUBMITTED BY MR GUY ALBERTELLI OF    *   FILE 098
//*           B.F. GOODRICH OF AKRON, OHIO.  THIS VERSION SUPPORTS  *   FILE 098
//*           ISPF VERSION 2.2 AND 2.3.  THIS FILE IS IN IEBUPDTE   *   FILE 098
//*           SYSIN FORMAT.                                         *   FILE 098
//*                                                                 *   FILE 098
//***FILE 099 IS CURRENTLY EMPTY                                    *   FILE 099
//*                                                                 *   FILE 099
//***FILE 100 IS CURRENTLY EMPTY                                    *   FILE 100
//*                                                                 *   FILE 100
//***FILE 101 IS CURRENTLY EMPTY                                    *   FILE 101
//*                                                                 *   FILE 101
//***FILE 102 IS CURRENTLY EMPTY                                    *   FILE 102
//*                                                                 *   FILE 102
//***FILE 103 IS A COLLECTION OF DOCUMENTATION FILES FROM OTHER     *   FILE 103
//*           TAPES.  INCLUDED TAPES ARE:                           *   FILE 103
//*                                                                 *   FILE 103
//*  ===>>   REGULAR CBT TAPE - CURRENT IS VERSION 428.             *   FILE 103
//*  ===>>   CICS SHARE TAPE                                        *   FILE 103
//*  ===>>   SHARE SOFTWARE DISTRIBUTION DISKETTES (FROM THE PC     *   FILE 103
//*          WHICH CONTAINS CONTRIBUTED SOFTWARE AT SHARE MEETINGS) *   FILE 103
//*  ===>>   JES2 SHARE TAPE                                        *   FILE 103
//*  ===>>   JES2 NON-SP SHARE TAPE                                 *   FILE 103
//*  ===>>   JES3 SHARE/GUIDE TAPE                                  *   FILE 103
//*  ===>>   LOS ANGELES MVS USERS GROUP TAPE (NOW ON THIS TAPE)    *   FILE 103
//*  ===>>   NASPA VIP MVS TAPE                                     *   FILE 103
//*  ===>>   NASPA VIP VM/VSE TAPE                                  *   FILE 103
//*  ===>>   NASPA BEEM TAPE                                        *   FILE 103
//*  ===>>   PL/I SHARE TAPE                                        *   FILE 103
//*  ===>>   SPLA MVS TAPE                                          *   FILE 103
//*  ===>>   CBT TAPE VERSION 249 (BEFORE MASSIVE DELETION)         *   FILE 103
//*  ===>>   XEPHON ARTICLES AND CODE, DOWNLOADABLE FROM            *   FILE 103
//*          WWW.XEPHON.COM - 2 YEARS OLD OR MORE, ARE FREE...      *   FILE 103
//*                                                                 *   FILE 103
//*           PUTTING THESE DOCUMENTATION FILES TOGETHER MAKES      *   FILE 103
//*           INFORMATION RESIDING ON OTHER PUBLIC TAPES EASIER     *   FILE 103
//*           TO FIND.                                              *   FILE 103
//*                                                                 *   FILE 103
//*           ALSO SEE FILE 102 WHICH CONTAINS A TAPEMAP OF THE     *   FILE 103
//*           LOS ANGELES MVS USERS GROUP TAPE.                     *   FILE 103
//*                                                                 *   FILE 103
//*                                                                 *   FILE 103
//***FILE 104 CONTAINS DOCUMENTATION FOR THE SPLA MVS TAPE, V46,    *   FILE 104
//*           WHICH CAME FROM SHARE.  THIS TAPE IS "OFFICIALLY      *   FILE 104
//*           DEAD", AS FAR AS SHARE IS CONCERNED.  I WANTED TO     *   FILE 104
//*           MAKE ITS CODE AVAILABLE TO THE PUBLIC, BECAUSE        *   FILE 104
//*           THAT TAPE IS NOT SO AVAILABLE NOWADAYS.               *   FILE 104
//*                                                                 *   FILE 104
//*   >>>>    THE CODE ON THE SHARE MVS TAPE WILL NOW BE            *   FILE 104
//*   >>>>    MAINTAINED AS PART OF THE CBT OVERFLOW TAPE.          *   FILE 104
//*                                                                 *   FILE 104
//*           PLEASE ADD THE NUMBER 100 TO ALL FILE NUMBERS IN      *   FILE 104
//*           THE TAPE DOCUMENTATION, TO ARRIVE AT THE PROPER       *   FILE 104
//*           FILE NUMBER ON THIS TAPE.                             *   FILE 104
//*                                                                 *   FILE 104
//*           FOR EXAMPLE.                                          *   FILE 104
//*                                                                 *   FILE 104
//*            ---                          ---                     *   FILE 104
//*  >>>  FILE 005 ON THE SPLA TAPE IS FILE 105 ON THIS TAPE  <<<   *   FILE 104
//*            ---                          ---                     *   FILE 104
//*                                                                 *   FILE 104
//***FILE 105 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 105
//*           THIS MEANS "SPLA TAPE FILE 005".                      *   FILE 105
//*                                                                 *   FILE 105
//*   H F000105 D=JAN80                                             *   FILE 105
//*   T FILE 105 - MVS TUNING REPORT                                *   FILE 105
//*   K TUNING REPORT SHARE PERFORMANCE PROJECT MVS V1 TURKEY       *   FILE 105
//*                                                                 *   FILE 105
//*      THIS IS VERSION III OF THE MVS TUNING REPORT FROM THE      *   FILE 105
//*      SHARE MVS PERFORMANCE PROJECT.  IT WAS PUBLISHED           *   FILE 105
//*      NOVEMBER 1979.  THIS FILE CONTAINS UPPER AND LOWER         *   FILE 105
//*      CASE CHARACTERS.                                           *   FILE 105
//*                                                                 *   FILE 105
//***FILE 106 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 106
//*           THIS MEANS "SPLA TAPE FILE 006".                      *   FILE 106
//*                                                                 *   FILE 106
//*   H F000106 D=JAN80                                             *   FILE 106
//*   T FILE 106 - UTILSMFY - SMF/RMF DAILY SYSTEM UTILIZATION      *   FILE 106
//*                         SUMMARY                                 *   FILE 106
//*   K SMF RMF PL1 PLI V1 UTILSMRY WIDNEY PERFORMANCE              *   FILE 106
//*                                                                 *   FILE 106
//*      UTILSMRY - AN RMF/SMF DAILY SYSTEM UTILIZATION SUMMARY     *   FILE 106
//*      PROGRAM THAT CREATES A TWO-PAGE PROFILE OF SYSTEM          *   FILE 106
//*      RESOURCE UTILIZATION.  THIS FILE CONTAINS PL/1             *   FILE 106
//*      (OPTIMIZER) SOURCE WITH DOCUMENTATION CONTAINED IN THE     *   FILE 106
//*      PROGRAM.                                                   *   FILE 106
//*      CONTRIBUTOR   BOB WIDNEY                                   *   FILE 106
//*                    CO. OF LOS ANGLES                            *   FILE 106
//*                    DEPT OF DATA PROCESSING                      *   FILE 106
//*                    IBM TECHNOLOGY DIVISION                      *   FILE 106
//*                    9150 E. IMPERIAL HIGHWAY                     *   FILE 106
//*                    DOWNEY, CALIF 90242                          *   FILE 106
//*                                                                 *   FILE 106
//***FILE 107 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 107
//*           THIS MEANS "SPLA TAPE FILE 007".                      *   FILE 107
//*                                                                 *   FILE 107
//*   H F000107 D=SEP82                                             *   FILE 107
//*   T FILE 107 - SP3 TSO DRUM FENCE ZAP                           *   FILE 107
//*   K SP3 TSO DRUM FENCE ZAP ILRIODRV FIXED HEAD JBB1326 V22      *   FILE 107
//*   K PERFORMANCE                                                 *   FILE 107
//*                                                                 *   FILE 107
//*      THIS IS A ZAP FOR SP1.3 TO RESTRICT DRUMS TO CONTAIN       *   FILE 107
//*      ONLY TSO PAGES.  CONTRIBUTOR ATTRIBUTES EFFECTIVELY        *   FILE 107
//*      DOUBLED PAGING CAPACITY ON HIS DRUMS IN A HEAVY TSO        *   FILE 107
//*      ENVIRONMENT, E.G. 200 PAGES/SECOND ON 4 2350S, TO THIS     *   FILE 107
//*      MODIFICATION.                                              *   FILE 107
//*                                                                 *   FILE 107
//*      CONTRIBUTOR'S NAME WITHELD BY REQUEST                      *   FILE 107
//*                                                                 *   FILE 107
//***FILE 108 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 108
//*           THIS MEANS "SPLA TAPE FILE 008".                      *   FILE 108
//*                                                                 *   FILE 108
//*   H F000108 D=MAR80                                             *   FILE 108
//*   T FILE 108 - DCMS TAPE DESCRIPTION                            *   FILE 108
//*   K DCMS DOCUMENTATION CHAPMAN PERFORMANCE PROJECT TURKEY V1    *   FILE 108
//*   K DIRT CHEAP MONITOR SYSTEM                                   *   FILE 108
//*                                                                 *   FILE 108
//*      RELATED FILES: 108-113, 115; DOCUMENTATION 108,115         *   FILE 108
//*                                                                 *   FILE 108
//*      THE MVS PERFORMANCE PROJECT HAS DEVELOPED A MEASUREMENT    *   FILE 108
//*      TOOL.  THIS PACKAGE, REFERRED TO BOTH THE SHARE            *   FILE 108
//*      STANDARD MONITOR AND AS "DCMS", PROVIDES A LOW-COST        *   FILE 108
//*      ENTRY INTO MVS MEASUREMENT AND FORMS A COMMON GROUND       *   FILE 108
//*      FOR EXCHANGE OF MEASUREMENT AND TUNING DATA AND            *   FILE 108
//*      SOFTWARE.  THIS FILE IS THE FIRST FILE OF THE ORIGINAL     *   FILE 108
//*      DCMS TAPE, AND CONTAINS A FEW TIDBITS YOU NEED TO KNOW.    *   FILE 108
//*                                                                 *   FILE 108
//*      CONTRIBUTOR  JOHN CHAPMAN                                  *   FILE 108
//*                   STANDARD OIL CO (INDIANA)                     *   FILE 108
//*                   200 E. RANDOLPH DRIVE                         *   FILE 108
//*                   CHICAGO, ILL 60601                            *   FILE 108
//*                   PHONE 312-856-5648                            *   FILE 108
//*                                                                 *   FILE 108
//***FILE 109 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 109
//*           THIS MEANS "SPLA TAPE FILE 009".                      *   FILE 109
//*                                                                 *   FILE 109
//*   H F000109 D=MAR80                                             *   FILE 109
//*   T FILE 109 - DCMS SOURCE                                      *   FILE 109
//*   K DCMS SOURCE ASM CHAPMAN PERFORMANCE PROJECT TURKEY V1       *   FILE 109
//*   K DIRT CHEAP MONITOR SYSTEM                                   *   FILE 109
//*                                                                 *   FILE 109
//*      RELATED FILES: 108-113, 115; DOCUMENTATION 108,115         *   FILE 109
//*                                                                 *   FILE 109
//*      THIS FILE IS THE CURRENT SOURCE LIBRARY FOR DCMS, SEE      *   FILE 109
//*      ENTRY F8 FOR A DESCRIPTION OF THE SYSTEM                   *   FILE 109
//*                                                                 *   FILE 109
//***FILE 110 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 110
//*           THIS MEANS "SPLA TAPE FILE 010".                      *   FILE 110
//*                                                                 *   FILE 110
//*   H F000110 D=MAR80                                             *   FILE 110
//*   T FILE 110 - DCMS MACLIB                                      *   FILE 110
//*   K DCMS MACLIB MACRO CHAPMAN PERFORMANCE PROJECT TURKEY V1     *   FILE 110
//*   K DIRT CHEAP MONITOR SYSTEM                                   *   FILE 110
//*                                                                 *   FILE 110
//*      RELATED FILES: 108-113, 115; DOCUMENTATION 108,115         *   FILE 110
//*                                                                 *   FILE 110
//*      THIS FILE IS THE CURRENT MACRO LIBRARY FOR DCMS            *   FILE 110
//*                                                                 *   FILE 110
//***FILE 111 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 111
//*           THIS MEANS "SPLA TAPE FILE 011".                      *   FILE 111
//*                                                                 *   FILE 111
//*   H F000111 D=MAR80                                             *   FILE 111
//*   T FILE 111 - DCMS COPYRIGHTED MACLIB (NOT REALLY THERE)       *   FILE 111
//*   K DCMS MACLIB MACRO CHAPMAN PERFORMANCE PROJECT TURKEY V1     *   FILE 111
//*   K DIRT CHEAP MONITOR SYSTEM                                   *   FILE 111
//*                                                                 *   FILE 111
//*      RELATED FILES: 108-113, 115; DOCUMENTATION 108,115         *   FILE 111
//*                                                                 *   FILE 111
//*      IS A STATEMENT SAYING THAT THE FILE SHOULD CONTAIN THE     *   FILE 111
//*      MVS/SRM MACROS FOR MVS/SE DCMS BUT BECAUSE OF THE          *   FILE 111
//*      COPYRIGHT LAWS IT DOES NOT.  IF YOU NEED THESE YOU MUST    *   FILE 111
//*      GET THE OPTIONAL MATERIAL FOR MVS/SE (5740-XE1) TO TO      *   FILE 111
//*      OBTAIN IT.                                                 *   FILE 111
//*                                                                 *   FILE 111
//***FILE 112 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 112
//*           THIS MEANS "SPLA TAPE FILE 012".                      *   FILE 112
//*                                                                 *   FILE 112
//*   H F000112 D=MAR80                                             *   FILE 112
//*   T FILE 112 - DCMS OBJECT LIBRARY                              *   FILE 112
//*   K DCMS OBJECT OBJ CHAPMAN PERFORMANCE PROJECT TURKEY V1       *   FILE 112
//*   K DIRT CHEAP MONITOR SYSTEM                                   *   FILE 112
//*                                                                 *   FILE 112
//*      RELATED FILES: 108-113, 115; DOCUMENTATION 108,115         *   FILE 112
//*                                                                 *   FILE 112
//*      THIS FILE IS THE CURRENT OBJECT LIBRARY FOR DCMS           *   FILE 112
//*                                                                 *   FILE 112
//***FILE 113 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 113
//*           THIS MEANS "SPLA TAPE FILE 013".                      *   FILE 113
//*                                                                 *   FILE 113
//*   H F000113 D=MAR80                                             *   FILE 113
//*   T FILE 113 - DCMS LOAD LIBRARY                                *   FILE 113
//*   K DCMS LOAD OBJ CHAPMAN PERFORMANCE PROJECT TURKEY V1         *   FILE 113
//*   K DIRT CHEAP MONITOR SYSTEM                                   *   FILE 113
//*                                                                 *   FILE 113
//*      RELATED FILES: 108-113, 115; DOCUMENTATION 108,115         *   FILE 113
//*                                                                 *   FILE 113
//*      THIS FILE IS THE CURRENT LOAD LIBRARY FOR DCMS             *   FILE 113
//*                                                                 *   FILE 113
//***FILE 114 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 114
//*           THIS MEANS "SPLA TAPE FILE 014".                      *   FILE 114
//*                                                                 *   FILE 114
//*   H F000114 D=APR82                                             *   FILE 114
//*   T FILE 114 - DATA USED TO PROCESS REQUESTS AND UPDATES TO     *   FILE 114
//*               THE MODS TAPE                                     *   FILE 114
//*   K MODS TAPE V29                                               *   FILE 114
//*                                                                 *   FILE 114
//*      THIS FILE CONTAINS DATA THAT I USE TO PROCESS REQUESTS     *   FILE 114
//*      FOR AND UPDATES TO THE MVS MODS TAPE.                      *   FILE 114
//*                                                                 *   FILE 114
//*  >>  THIS FILE IS NOT RELEVANT FOR CBT PROCESSING OF THIS  <<   *   FILE 114
//*  >>  MATERIAL, BUT IS INCLUDED FOR HISTORICAL REFERENCE.   <<   *   FILE 114
//*  >>  DAN SQUILLACE IS NOT HANDLING THE SHARE MVS TAPE ANY  <<   *   FILE 114
//*  >>  MORE.                                                 <<   *   FILE 114
//*                                                                 *   FILE 114
//*                                   DAN SQUILLACE                 *   FILE 114
//*                                   SAS INSTITUTE INC.            *   FILE 114
//*                                   BOX 8000                      *   FILE 114
//*                                   ONE SAS CIRCLE                *   FILE 114
//*                                   CARY, NC 27512-8000           *   FILE 114
//*                                   (919) 467-8000                *   FILE 114
//*                                                                 *   FILE 114
//***FILE 115 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 115
//*           THIS MEANS "SPLA TAPE FILE 015".                      *   FILE 115
//*                                                                 *   FILE 115
//*   H F000115 D=MAR80                                             *   FILE 115
//*   T FILE 115 - DCMS PROGRAMMER'S GUIDE                          *   FILE 115
//*   K DCMS GUIDE DOCUMENTATION CHAPMAN PERFORMANCE PROJECT        *   FILE 115
//*          TURKEY V1                                              *   FILE 115
//*   K DIRT CHEAP MONITOR SYSTEM                                   *   FILE 115
//*                                                                 *   FILE 115
//*      RELATED FILES: 108-113, 115; DOCUMENTATION 108,115         *   FILE 115
//*                                                                 *   FILE 115
//*      THIS FILE IS THE CURRENT DCMS PROGRAMMERS GUIDE.  NOTE     *   FILE 115
//*      THAT IT CONTAINS BOTH UPPER AND LOWER CASE CHARACTERS.     *   FILE 115
//*                                                                 *   FILE 115
//***FILE 116 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 116
//*           THIS MEANS "SPLA TAPE FILE 016".                      *   FILE 116
//*                                                                 *   FILE 116
//*   H F000116 D=JAN80                                             *   FILE 116
//*   T FILE 116 - LPALINK - DYNAMIC MPLA FACILITY                  *   FILE 116
//*   K LPALINK LPA CSA MLPA V1                                     *   FILE 116
//*                                                                 *   FILE 116
//*      LPALINK - A PROGRAM THAT DYNAMICALLY LOADS MODULES INTO    *   FILE 116
//*      THE COMMON AREA.  THE MODULES LOADED THEN APPEAR AS        *   FILE 116
//*      THOUGH THEY WERE LOADED VIA THE MLPA FACILITY.   THIS      *   FILE 116
//*      FILE ALSO CONTAINS SOME ADDITIONAL DOCUMENTATION.          *   FILE 116
//*                                                                 *   FILE 116
//***FILE 117 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 117
//*           THIS MEANS "SPLA TAPE FILE 017".                      *   FILE 117
//*                                                                 *   FILE 117
//*   H F000117 D=JAN80                                             *   FILE 117
//*   T FILE 117 - PROGRAMS FROM DEAN DAVIS                         *   FILE 117
//*   K XREF CROSSREF PROCLIB JCL V15 BACKUP UTILITY DEAN DAVIS     *   FILE 117
//*   K CROWN ZELLERBACH                                            *   FILE 117
//*                                                                 *   FILE 117
//*      THIS DATA SET CONTAINS SEVERAL PROGRAMS CONTRIBUTED BY     *   FILE 117
//*                                                                 *   FILE 117
//*                   DEAN DAVIS                                    *   FILE 117
//*                   CROWN ZELLERBACH                              *   FILE 117
//*                   NORTH WEST DATA CENTER                        *   FILE 117
//*                   1500 SW FIRST AVE                             *   FILE 117
//*                   PORTLAND, OR 97201                            *   FILE 117
//*                   PHONE: 503-221-7003                           *   FILE 117
//*                                                                 *   FILE 117
//*      HOWEVER, DEAN IS NO LONGER WITH CROWN ZELLERBACH           *   FILE 117
//*                                                                 *   FILE 117
//*      CONTENTS:                                                  *   FILE 117
//*        JCL PROCLIB CROSS REFERENCE SYSTEM MEMBER SAMPLJCL       *   FILE 117
//*          CONTAINS SAMPLE JCL FOR EXECUTION MEMBERS NSP011 -     *   FILE 117
//*          NSP016 SHOULD BE ASSEMBLED IN ORDER.                   *   FILE 117
//*                                                                 *   FILE 117
//*        A MULTIPURPOSE BACKUP UTILITY USING STANDARD IBM         *   FILE 117
//*        UTILITY PROGRAMS (IEBCOPY, IEBGENER, IEBISAM,            *   FILE 117
//*        IEHMOVE, AND IDCAMS).  A SAMPLE IS INCLUDED (THIS USED   *   FILE 117
//*        TO BE THE WAY THIS TAPE WAS MAINTAINED BEFORE IT WAS     *   FILE 117
//*        COMPRESSED.)                                             *   FILE 117
//*                                                                 *   FILE 117
//***FILE 118 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 118
//*           THIS MEANS "SPLA TAPE FILE 018".                      *   FILE 118
//*                                                                 *   FILE 118
//*   H F000118 D=DEC81                                             *   FILE 118
//*   T FILE 118 - TSO COMMANDS FROM STATE OF WASHINGTON DEPT       *   FILE 118
//*               OF TRANSPORTATION                                 *   FILE 118
//*   K V18 ENQ DSN EDSN RICHARD NIKULA WASHINGTON DOT              *   FILE 118
//*               TRANSPORTATION                                    *   FILE 118
//*                                                                 *   FILE 118
//*      THIS FILE CONTAINS TSO COMMANDS FROM THE STATE             *   FILE 118
//*      OF WASHINGTON DEPARTMENT OF TRANSPORTATION                 *   FILE 118
//*      CONTRIBUTED BY:                                            *   FILE 118
//*                                                                 *   FILE 118
//*      RICHARD G. NIKULA                                          *   FILE 118
//*      DEPARTMENT OF TRANSPORTATION                               *   FILE 118
//*      HIGHWAY ADMINISTRATION BUILDING                            *   FILE 118
//*      OLYMPIA, WASHINGTON 98504                                  *   FILE 118
//*      (206) 753 6005                                             *   FILE 118
//*                                                                 *   FILE 118
//*      TSO COMMANDS:                                              *   FILE 118
//*                                                                 *   FILE 118
//*      DSN    RETURNS ALL USERS ENQ'D (SINGLE CPU) ON A GIVEN     *   FILE 118
//*             DATASET NAME                                        *   FILE 118
//*                                                                 *   FILE 118
//*      EDSN   A TSO EDIT COMMAND WHICH RETURNS THE NAME OF        *   FILE 118
//*             THE DATASET AND WHETHER IT HAS BEEN MODIFIED        *   FILE 118
//*             SINCE IT WAS LAST SAVED.                            *   FILE 118
//*                                                                 *   FILE 118
//***FILE 119 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 119
//*           THIS MEANS "SPLA TAPE FILE 019".                      *   FILE 119
//*                                                                 *   FILE 119
//*   H F000119 D=OCT82                                             *   FILE 119
//*   T FILE 119 - FORTRAN G1 VERSION OF ADVENTURE GAME FROM        *   FILE 119
//*               SCHERING-PLOUGH                                   *   FILE 119
//*   K FORTRAN G1 ADVENTURE TSO GAME SCHERING PLOUGH DOUG          *   FILE 119
//*               MOORE WIZARD V23                                  *   FILE 119
//*                                                                 *   FILE 119
//*                    A D V E N T U R E                            *   FILE 119
//*                    - - - - - - - - -                            *   FILE 119
//*                                                                 *   FILE 119
//*      CONTENTS                                                   *   FILE 119
//*                                                                 *   FILE 119
//*       MEMBERS CONTAIN DOCUMENTATION, FORTRAN AND ASSEMBLER      *   FILE 119
//*       SOURCE, JCL, AND DATA BASE FILE.                          *   FILE 119
//*                                                                 *   FILE 119
//*       * WARNING *  DO NOT NUMBER ANY MEMBERS AS THIS WILL       *   FILE 119
//*       DESTROY COMMENTS AND/OR DATA.                             *   FILE 119
//*                                                                 *   FILE 119
//*      CONTRIBUTOR  DOUG MOORE                                    *   FILE 119
//*                   SCHERING-PLOUGH CORPORATION                   *   FILE 119
//*                   BOX 377                                       *   FILE 119
//*                   MEMPHIS, TN  38151                            *   FILE 119
//*                   901/320-2883                                  *   FILE 119
//*                                                                 *   FILE 119
//***FILE 120 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 120
//*           THIS MEANS "SPLA TAPE FILE 020".                      *   FILE 120
//*                                                                 *   FILE 120
//*   H F000120 D=JAN80                                             *   FILE 120
//*   T FILE 120 - ANALYZE TYPE 14 AND 15 SMF RECORDS               *   FILE 120
//*   K SMF T14 TYPE14 T15 TYPE15 BLOCK SIZE BLKSIZE                *   FILE 120
//*   K SHERIFF CASE PERFORMANCE                                    *   FILE 120
//*                                                                 *   FILE 120
//*      BAL SOURCE CODE WHICH LOOKS AT SMF RECORD TYPES 14         *   FILE 120
//*      AND 15 TO SHOW THE BENEFITS FROM CHANGING BLOCK            *   FILE 120
//*      SIZES.                                                     *   FILE 120
//*                                                                 *   FILE 120
//*      CONTRIBUTOR  J.E. SHERIFF                                  *   FILE 120
//*                   J. I. CASE CO.                                *   FILE 120
//*                   CORP COMPUTER CENTER                          *   FILE 120
//*                   700 STATE STREET                              *   FILE 120
//*                   RACINE, WI 53404                              *   FILE 120
//*                   PHONE 414-636-6623                            *   FILE 120
//*                                                                 *   FILE 120
//***FILE 121 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 121
//*           THIS MEANS "SPLA TAPE FILE 021".                      *   FILE 121
//*                                                                 *   FILE 121
//*   H F000121 D=MAY82                                             *   FILE 121
//*   T FILE 121 - NEW SPF STUFF FROM MILLER BREWING                *   FILE 121
//*   K RACF SPF MILLER V20                                         *   FILE 121
//*                                                                 *   FILE 121
//*      SOURCE: RACF MODS TAPE - JANUARY 22, 1982                  *   FILE 121
//*      RELATED FILES: 123-128                                     *   FILE 121
//*                                                                 *   FILE 121
//*      COMMENTS:                                                  *   FILE 121
//*                                                                 *   FILE 121
//*      THIS FILE CONTAINS SPF DIALOG MANAGER EXAMPLES ALONG       *   FILE 121
//*      WITH THEIR RELATED PANELS, MESSAGES, SKELETONS AND         *   FILE 121
//*      OBJECT FROM SELECTED CUSTOMERS IN THE MILWAUKEE AREA.      *   FILE 121
//*      THEY HAVE BEEN PROVIDED AS AN AID TO OTHERS AS EXAMPLES    *   FILE 121
//*      OF DIALOG MANAGER TECHNIQUES AND MAY BE CONSIDERED         *   FILE 121
//*      'PUBLIC DOMAIN'.  AS SUCH NO WARRANTY IS IMPLIED.          *   FILE 121
//*      HOWEVER, THEY HAVE BEEN USED AS DISTRIBUTED BY MANY        *   FILE 121
//*      INSTALLATIONS AT THE APPROPRIATE RELEASE DESCRIBED         *   FILE 121
//*      BELOW.                                                     *   FILE 121
//*                                                                 *   FILE 121
//*      'MSTR' MEMBERS ARE SPF EXTENSIONS THAT PROVIDE FOR         *   FILE 121
//*          MULTIPLE 'TYPES' OF SPF USERS (E.G. SYSTEM-PGMRS,      *   FILE 121
//*          APPLICATION-PGMRS, OPERATORS,                          *   FILE 121
//*          SECURITY-ADMINISTRATORS ETC.) WITH UNIQUE              *   FILE 121
//*          EXTENSIONS BY USER 'TYPE'.  INCLUDED ARE MULTIPLE      *   FILE 121
//*          UTILITIES AND FOREGROUND/BACKGROUND EXAMPLES.          *   FILE 121
//*                                                                 *   FILE 121
//*      'RACF' MEMBERS ARE THE MILLER-BREWING SPF EXTENSIONS       *   FILE 121
//*           THAT EASE THE INTEGRATION AND MAINTENANCE OF RACF     *   FILE 121
//*           VIA SPF.  NOTE:  AS DISTRIBUTED, THE RACF             *   FILE 121
//*           FUNCTION IS INTEGRATED AS A SUBSET OF THE 'MSTR'      *   FILE 121
//*           EXTENSIONS.                                           *   FILE 121
//*                                                                 *   FILE 121
//***FILE 122 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 122
//*           THIS MEANS "SPLA TAPE FILE 022".                      *   FILE 122
//*                                                                 *   FILE 122
//*   H F000122 D=JUN83                                             *   FILE 122
//*   T FILE 122 - PAUL TOKHIEM MODIFICATIONS                       *   FILE 122
//*   K IEBPTPCH V15 IEBUPDTE IEC507D SMP EXIT MOD IEFACTRT         *   FILE 122
//*   K JES3 *S SHARED UCB DASD RINGCHK EXPDTCHK *NET               *   FILE 122
//*   K *I TAPE                                                     *   FILE 122
//*                                                                 *   FILE 122
//*      THIS FILE CONTAINS A SERIES OF MODIFICATION                *   FILE 122
//*      CONTRIBUTED BY                                             *   FILE 122
//*                                                                 *   FILE 122
//*           PAUL TOKHIEM                                          *   FILE 122
//*           COMPUTER SPECIALIST                                   *   FILE 122
//*           HEADQUATERS, AFAFC                                    *   FILE 122
//*           DENVER, CO 80279                                      *   FILE 122
//*                                                                 *   FILE 122
//*      THESE MODIFICATIONS WERE PREVIOUSLY CONTAINED IN           *   FILE 122
//*      SEPARATE FILES ON THE TAPE, BUT HAVE BEEN COMBINED         *   FILE 122
//*      INTO THIS ONE FILE                                         *   FILE 122
//*                                                                 *   FILE 122
//*      CONTENTS:                                                  *   FILE 122
//*         MODIFICATION TO CHANGE IEBPTPCH SO THAT WHEN AN         *   FILE 122
//*         ENTIRE PDS IS PRINTED OR PUNCHED THE MEMBERS WILL       *   FILE 122
//*         BE PROCESSED IN ALPHANUMERIC SEQUENCE INSTEAD OF        *   FILE 122
//*         TTR SEQUENCE.                                           *   FILE 122
//*                                                                 *   FILE 122
//*         DISPLAY DATE AND TIME ON HEADER OF IEBUPDTE             *   FILE 122
//*         LISTINGS                                                *   FILE 122
//*                                                                 *   FILE 122
//*         AUTOMATICALLY REPLY 'U' TO MESSAGE IEC507D PURGE.       *   FILE 122
//*                                                                 *   FILE 122
//*         SMP RECEIVE USER EXIT WHICH REMOVES ALL ++MOD           *   FILE 122
//*         STATEMENTS AND OBJECT CODE FROM JES3 PTF'S SO THAT      *   FILE 122
//*         SMP WILL ALWAYS USE THE ASSEMBLY SOURCE TO BUILD A      *   FILE 122
//*         MODULE.                                                 *   FILE 122
//*                                                                 *   FILE 122
//*         DISPLAY STEP TERMINATION CONDITION CODE ON CONSOLE.     *   FILE 122
//*                                                                 *   FILE 122
//*         ALLOW A PROBLEM PROGRAM TO ISSUE A JES3 COMMAND BY      *   FILE 122
//*         ISSUING A WTO WITH A SPECIAL FORMAT.                    *   FILE 122
//*                                                                 *   FILE 122
//*         ELIMINATE THE NEED FOR A JES3 *S S COMMAND FOR FETCH    *   FILE 122
//*         OF DISK WHEN USING ALLOCATE=MANUAL                      *   FILE 122
//*                                                                 *   FILE 122
//*         JES3 MODIFICATION TO SUPPRESS LEADING ZEROS ON          *   FILE 122
//*         SYSOUT FORM NUMBERS CODED BY PROGRAMMER.                *   FILE 122
//*                                                                 *   FILE 122
//*         JES3 MODIFICATION TO ELIMINATE THE TIME STAMP FROM      *   FILE 122
//*         MESSAGES BEING SENT TO A 3277 CONSOLE UNLESS THE        *   FILE 122
//*         MESSAGE IS MLG.                                         *   FILE 122
//*                                                                 *   FILE 122
//*         JES3 MODIFICATION TO MODIFY UCBS OF CERTAIN DASD        *   FILE 122
//*         VOLUMES (I.E. PAGE VOL'S) FROM SHARED TO NOT SHARED     *   FILE 122
//*         DURING JES3 INITIALIZATION.                             *   FILE 122
//*                                                                 *   FILE 122
//*         JES3 MODIFICATION TO DISPLAY COUNT OF CARDS             *   FILE 122
//*         PROCESSED BY INPUT SERVICE FOR EACH JOB.                *   FILE 122
//*                                                                 *   FILE 122
//*         JES3 MODIFICATION TO FORCE RINGCHK=NO AND               *   FILE 122
//*         EXPDTCHK=NO                                             *   FILE 122
//*                                                                 *   FILE 122
//*         JES3 MODIFICATION TO CHANGE DEFAULT TO AB=F ON          *   FILE 122
//*         //*NET CONTROL CARD                                     *   FILE 122
//*                                                                 *   FILE 122
//*         JES3 MODIFICATION TO CHANGE THE *I J=COMMAND SO THAT    *   FILE 122
//*         ALL JOB NAMES BEGINNING WITH THE CHARACTER STRING       *   FILE 122
//*         ENTERED WILL BE DISPLAYED.                              *   FILE 122
//*                                                                 *   FILE 122
//*         JES3 MODIFICATION TO FORCE DEFERED MOUNTING ON DUAL     *   FILE 122
//*         DEN OUTPUT TAPES. THIS CAUSES MVS TO ISSUE THE MOUNT    *   FILE 122
//*         MESSAGE WHICH GIVES DENSITY INFORMATION SO OPERATORS    *   FILE 122
//*         KNOW WHICH SERIES OF SCRATCH TAPES TO MOUNT.            *   FILE 122
//*                                                                 *   FILE 122
//*         JES3 MODIFICATION TO AUTOMATICALLY ASSIGN               *   FILE 122
//*         PERFORMANCE TO JOB STEPS BASED ON AFAFC STANDARDS.      *   FILE 122
//*                                                                 *   FILE 122
//***FILE 123 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 123
//*           THIS MEANS "SPLA TAPE FILE 023".                      *   FILE 123
//*                                                                 *   FILE 123
//*   H F000123 D=NOV81                                             *   FILE 123
//*   T FILE 123 - RACF MODS FROM ARIZONA PUBLIC SERVICE            *   FILE 123
//*   K RACF V20 APS PL/1 PLI PL1                                   *   FILE 123
//*   K ARIZONA PUBLIC SERVICE                                      *   FILE 123
//*                                                                 *   FILE 123
//*      SOURCE: RACF MODS TAPE - MARCH 1982                        *   FILE 123
//*      RELATED FILES: 23-28                                       *   FILE 123
//*                                                                 *   FILE 123
//*      THIS FILE CONTAIN A SERIES OF RACF MODS FROM THE           *   FILE 123
//*      ARIZONA PUBLIC SERVICE IT WAS RECEIVED AS PART OF          *   FILE 123
//*      THE RACF MODS TAPE FROM MILLER BREWING                     *   FILE 123
//*                                                                 *   FILE 123
//*          BITBYTE - PL/I PROCEDURE TO CONVERT ACCESS BITS TO     *   FILE 123
//*                    CHARACTER                                    *   FILE 123
//*                                                                 *   FILE 123
//*          BUILTIN - PL/I STANDARD BUILTIN FUNCTION DECLARATIONS  *   FILE 123
//*                                                                 *   FILE 123
//*          MDCON   - PL/I CONNECT PROFILE DESCRIPTORS FOR RACFMGR *   FILE 123
//*                                                                 *   FILE 123
//*          MDDSN   - PL/I DATASET RESOURCE PROFILE                *   FILE 123
//*                    DESCRIPTORS FOR RACFMGR                      *   FILE 123
//*                                                                 *   FILE 123
//*          MDGEN   - PL/I GENERAL RESOURCE PROFILE                *   FILE 123
//*                    DESCRIPTORS FOR RACFMGR                      *   FILE 123
//*                                                                 *   FILE 123
//*          MDGRP   - PL/I GROUP PROFILE DESCRIPTORS FOR RACFMGR   *   FILE 123
//*                                                                 *   FILE 123
//*          MDUSR   - PL/I USER PROFILE DESCRIPTORS FOR RACFMGR    *   FILE 123
//*                                                                 *   FILE 123
//*          MGRERR  - PL/I ROUTINE TO PROCESS RACFMGR ERRORS       *   FILE 123
//*                                                                 *   FILE 123
//*          PLIERR  - PL/I STANDARD ERROR ROUTINE                  *   FILE 123
//*                                                                 *   FILE 123
//*          RACFCON - PL/I PROCESS CONNECT PROFILE REQUESTS        *   FILE 123
//*                    FOR RACF MANAGER                             *   FILE 123
//*                                                                 *   FILE 123
//*          RACFDSN - PL/I PROCESS DATASET PROFILE REQUESTS        *   FILE 123
//*                    FOR RACF MANAGER                             *   FILE 123
//*                                                                 *   FILE 123
//*          RACFGEN - PL/I PROCESS GENERAL PROFILE REQUESTS        *   FILE 123
//*                    FOR RACF MANAGER                             *   FILE 123
//*                                                                 *   FILE 123
//*          RACFGRP - PL/I PROCESS GROUP PROFILE REQUESTS FOR      *   FILE 123
//*                    RACF MANAGER                                 *   FILE 123
//*                                                                 *   FILE 123
//*          RACFUSR - PL/I PROCESS USER PROFILE REQUESTS FOR       *   FILE 123
//*                    RACF MANAGER                                 *   FILE 123
//*                                                                 *   FILE 123
//*          RACFLU  - PL/I RACF USER PROFILE LISTING GENERATOR     *   FILE 123
//*                                                                 *   FILE 123
//*          USERS   - SAS AND RACFLU PROGRAM TO LIST USERS         *   FILE 123
//*                    WITH VARIOUS ATTRIBUTES                      *   FILE 123
//*                                                                 *   FILE 123
//*          RACFMGR - ALC GENERALIZED RACF MANAGER INTERFACE       *   FILE 123
//*                    ROUTINE                                      *   FILE 123
//*                                                                 *   FILE 123
//***FILE 124 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 124
//*           THIS MEANS "SPLA TAPE FILE 024".                      *   FILE 124
//*                                                                 *   FILE 124
//*   H F000124 D=NOV81                                             *   FILE 124
//*   T FILE 124 - RACF MODS FROM EL PASO NATURAL GAS               *   FILE 124
//*   K RACF ELPASO V20 JES3                                        *   FILE 124
//*   K EL PASO NATURAL GAS                                         *   FILE 124
//*                                                                 *   FILE 124
//*      SOURCE: RACF MODS TAPE - MARCH 1982                        *   FILE 124
//*      RELATED FILES: 123-128                                     *   FILE 124
//*                                                                 *   FILE 124
//*      THIS FILE CONTAIN A SERIES OF RACF MODS FROM EL PASO       *   FILE 124
//*      NATURAL GAS.  IT WAS RECEIVED AS PART OF THE RACF MODS     *   FILE 124
//*      TAPE FROM MILLER BREWING                                   *   FILE 124
//*                                                                 *   FILE 124
//*         ACEE     -  CLIST TO INVOKE ACEE PROGRAM                *   FILE 124
//*         ADDGROUP -  INFO ON ZAP TO RESTRICT ADDGROUP            *   FILE 124
//*                     COMMANDS TO FORMAT OF SUPERIOR GROUP        *   FILE 124
//*         ADDGRP1  -  ALC ASSEMBLY OF ZAP TEXT FOR ADDGROUP       *   FILE 124
//*                     COMMAND                                     *   FILE 124
//*         ASMLNK1  -  ASSEMBLE AND LINK JCL FOR CNX00V00          *   FILE 124
//*         ASMLNK2  -  ASSEMBLE AND LINK JCL FOR ICHCNX00          *   FILE 124
//*         BLDDSN   -  MACRO TO BUILD DSN FROM NODES FOR A         *   FILE 124
//*                     GIVEN NUMBER OF NODES.                      *   FILE 124
//*         CDE      -  NOTE TO ASSEMBLE CDE                        *   FILE 124
//*         CNX00DRV -  ASSEMBLE AND LINK ICHCNX00 DRIVER           *   FILE 124
//*                     ROUTINE IN LINE ASSEMBLY OF SOURCE          *   FILE 124
//*         CNX00DRV -  ASSEMBLE AND LINK ICHCNX00 DRIVER           *   FILE 124
//*                     ROUTINE IN LINE ASSEMBLY OF SOURCE          *   FILE 124
//*         CNX00V01 -  ALC COMMAND PROCESSING ROUTINE SOURCE       *   FILE 124
//*         DUMPR2   -  ALC PROGRAM TO DUMP RCVTTO PRINT            *   FILE 124
//*         DYNTST2  -  ALC PROGRAM TO SCAN VTOCS AND ZAP RACF      *   FILE 124
//*                     BITS IN VTOC                                *   FILE 124
//*         ICHERCDE -  SAMLE ICHERCDE FOR INSTALLATION             *   FILE 124
//*         IEPMACRO -  MACRO                                       *   FILE 124
//*         IEPMAC2  -  MACRO                                       *   FILE 124
//*         LOGON    -  ZAP TO IKJEFLE TO ALLOW USER TO ENTER       *   FILE 124
//*                     DIFFERENT TSO PARAMETERS                    *   FILE 124
//*         LOGONA   -  NOTE ON ZAP CONTAINED IN LOGON              *   FILE 124
//*         MAPDSN   -  MACRO TO BUILD A DSN NODE TABLE USED        *   FILE 124
//*                     IN MANIPULATING INSTALLATION NAMING         *   FILE 124
//*                     CONVENTIONS                                 *   FILE 124
//*         MSTRJCL  -  SAMPLE ASSEMBLY OF MSTRJCL WITH JES3        *   FILE 124
//*                     AND RACF                                    *   FILE 124
//*         NODETAB  -  MACRO SAMPLE NODE TABLE USED IN             *   FILE 124
//*                     INSTALLATION NAMING CONVENTIONS             *   FILE 124
//*         PASSMAC  -  MACRO                                       *   FILE 124
//*         RCVT     -  CLIST TO INVOKE RCVT PRINT PROGRAM          *   FILE 124
//*         RCX01DRV -  RACF EXIT ICHRCX01 - DRIVER ROUTINE         *   FILE 124
//*                     ASSEMBLER SOURCE                            *   FILE 124
//*         RCX01V01 -  RACF EXIT ICHRCX01 - RACHECK                *   FILE 124
//*                     PRE-PROCESSING EXIT ASSEMBLER SOURCE        *   FILE 124
//*         RCX02DRV -  RACF EXIT ICHRCX02 - DRIVER ROUTINE         *   FILE 124
//*                     ASSEMBLER SOURCE                            *   FILE 124
//*         RCX02V01 -  RACF EXIT ICHRCX01 - RACHECK                *   FILE 124
//*                     POST-PROCESSING EXIT ASSEMBLER SOURCE       *   FILE 124
//*         RDX01DRV -  RACF EXIT ICHRDX01 - DRIVER ROUTINE         *   FILE 124
//*                     ASSEMBLER SOURCE                            *   FILE 124
//*         RDX01V01 -  RACF EXIT ICHRDX01 - RACDEF                 *   FILE 124
//*                     PRE-PROCESSING EXIT ASSEMBLER SOURCE        *   FILE 124
//*         RDX02DRV -  RACF EXIT ICHRDX02 - DRIVER ROUTINE         *   FILE 124
//*                     ASSEMBLER SOURCE                            *   FILE 124
//*         RDX02V01 -  RACF EXIT ICHRDX02 - RACINIT                *   FILE 124
//*                     POST-PROCESSING EXIT ASSEMBLER SOURCE       *   FILE 124
//*         RWHO     -  CLIST TO INVOKE ACEE PROGRAM WITH           *   FILE 124
//*                     PARAMETER 'WHO'                             *   FILE 124
//*         SMF180   -  DESCT FOR SMF RECORD TYPE 180               *   FILE 124
//*         TSTACEE  -  TEST JCL AND IN LINE SOURCE TO TEST         *   FILE 124
//*                     ACEE INQUIRY PROGRAM                        *   FILE 124
//*         TSTMACRO -  SAMPLE PROGRAM TO TEST RACF INTERNAL MACROS *   FILE 124
//*         TSTMAC2  -  SAMPLE PROGRAM TO TEST RACF INTERNAL MACROS *   FILE 124
//*         TSTMAC3  -  SAMPLE PROGRAM TO TEST RACF INTERNAL MACROS *   FILE 124
//*         TSTMAC4  -  SAMPLE PROGRAM TO TEST RACF INTERNAL MACROS *   FILE 124
//*         TSTMAC5  -  SAMPLE PROGRAM TO TEST RACF INTERNAL MACROS *   FILE 124
//*         TSTMAC6  -  SAMPLE PROGRAM TO TEST RACF INTERNAL MACROS *   FILE 124
//*         TSTMAC7  -  SAMPLE PROGRAM TO TEST RACF INTERNAL MACROS *   FILE 124
//*         TSTMAC8  -  SAMPLE PROGRAM TO TEST RACF INTERNAL MACROS *   FILE 124
//*         WHERE    -  CLIST TO INVOKE ACEE INQUIRY PROGRAM        *   FILE 124
//*                     WITH OPTION WHERE                           *   FILE 124
//*         WRKDSN   -  MACRO TO MAP DSN                            *   FILE 124
//*                                                                 *   FILE 124
//***FILE 125 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 125
//*           THIS MEANS "SPLA TAPE FILE 025".                      *   FILE 125
//*                                                                 *   FILE 125
//*   H F000125 D=NOV81                                             *   FILE 125
//*   T FILE 125 - SPF MODS FROM MILLER BREWING                     *   FILE 125
//*   K RACF SPF MILLER V20                                         *   FILE 125
//*                                                                 *   FILE 125
//*      SOURCE: RACF MODS TAPE - MARCH 1982                        *   FILE 125
//*      RELATED FILES: 123-128                                     *   FILE 125
//*                                                                 *   FILE 125
//*      THIS FILE CONTAIN A SERIES OF SPF MODS FROM MILLER         *   FILE 125
//*      BREWING.  IT WAS RECEIVED AS PART OF THE RACF MODS         *   FILE 125
//*      TAPE FROM MILLER BREWING                                   *   FILE 125
//*                                                                 *   FILE 125
//*        SPF INTERFACE FOR NEW SPF                                *   FILE 125
//*                                                                 *   FILE 125
//*        USES DIALOG MANAGER AND TABLE SERVICES FOR DISPLAYS      *   FILE 125
//*        AND FIELD UPDATING.                                      *   FILE 125
//*                                                                 *   FILE 125
//*        USES SPF INTERFACE FOR ATTACHING TSO COMMANDS. MENUS     *   FILE 125
//*        ARE USED TO CREATE TSO COMMANDS AND THEN SPF IS USED     *   FILE 125
//*        TO ATTACH THE COMMAND.                                   *   FILE 125
//*                                                                 *   FILE 125
//*        RACF INTERNAL MACROS USED IN COMBINATION WITH SPF        *   FILE 125
//*        TABLE SERVICES FOR RACF FIELDS UPDATING AND INQUIRY.     *   FILE 125
//*                                                                 *   FILE 125
//*        THIS DATASET CONTAINS:                                   *   FILE 125
//*                                                                 *   FILE 125
//*             ASSEMBLER SOURCE                                    *   FILE 125
//*             SPF MENUS                                           *   FILE 125
//*             SPF TUTORIAL FOR MANY RACF MENUS                    *   FILE 125
//*                                                                 *   FILE 125
//*                         -------------                           *   FILE 125
//*                         | CMNER10   |                           *   FILE 125
//*                         | (LIST)    |                           *   FILE 125
//*                         |           |                           *   FILE 125
//*                         ------|------                           *   FILE 125
//*     |----------------|--------|--------|----------------|       *   FILE 125
//* ------------    -------------    -------------    ------------- *   FILE 125
//* | CMNER11  |    |  CMNER12  |    |  CMNER13  |    |  CMNER14  | *   FILE 125
//* | (USER)   |    |  (DATASET)|    | (RESOURCE)|    |  (GROUP)  | *   FILE 125
//* |          |    |           |    |           |    |           | *   FILE 125
//* ----|-------    ------|------    ------|------    ------|------ *   FILE 125
//*     |                 |                |                |       *   FILE 125
//* ----|-------    ------|------    ------|------    ------|------ *   FILE 125
//* | CMNER15  |    |  CMNER16  |    |  CMNER17  |    |  CMNER18  | *   FILE 125
//* |          |    |           |    |           |    |           | *   FILE 125
//* |          |    |           |    |           |    |           | *   FILE 125
//* ------------    -------------    -------------    ------------- *   FILE 125
//*                                                                 *   FILE 125
//*                                                                 *   FILE 125
//***FILE 126 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 126
//*           THIS MEANS "SPLA TAPE FILE 026".                      *   FILE 126
//*                                                                 *   FILE 126
//*   H F000126 D=NOV81                                             *   FILE 126
//*   T FILE 126 - RACF MODS FROM MILLER BREWING                    *   FILE 126
//*   K RACF V20 MILLER SUBMIT OPERATOR SMF EXIT ENVIRON/1 E1       *   FILE 126
//*              CINCOM                                             *   FILE 126
//*   K PCF TMS SPF BINARY DATECONV                                 *   FILE 126
//*                                                                 *   FILE 126
//*      SOURCE: RACF MODS TAPE - MARCH 1982                        *   FILE 126
//*      RELATED FILES: 123-128                                     *   FILE 126
//*                                                                 *   FILE 126
//*      THIS FILE CONTAIN A SERIES OF RACF MODS FROM MILLER        *   FILE 126
//*      BREWING.  IT WAS RECEIVED AS PART OF THE RACF MODS         *   FILE 126
//*      TAPE FROM MILLER BREWING                                   *   FILE 126
//*                                                                 *   FILE 126
//*      CENTRAL OPERATOR JOB SUBMIT FACILTIY WITH RACF             *   FILE 126
//*           PASSWORD INSERTION. MAY ALSO BE USED FROM BATCH.      *   FILE 126
//*                                                                 *   FILE 126
//*      $$MBRDR                                                    *   FILE 126
//*      P00655 - ISSUE ABEND MACRO FROM COBOL PGM Z888LOAD         *   FILE 126
//*      P01101 - WTO FROM COBOL Z888LOAD                           *   FILE 126
//*      P01102 - WTOR FROM COBOL Z888LOAD                          *   FILE 126
//*      P01110 - READ JFCB FROM COBOL Z888LOAD                     *   FILE 126
//*      P01569 - BPAM ACCESS FROM COBOL Z888LOAD                   *   FILE 126
//*      P01616 - DYNAMIC LOADER FROM COBOL Z888LOAD                *   FILE 126
//*      P01820 - TIOT EXTRACT FROM COBOL Z888LOAD                  *   FILE 126
//*      P01831 - Z888LOAD MAINLINE COBOL REPLACED BY P50270        *   FILE 126
//*      P50270 - Z888LOAD MAINLINE REPLACES P01831 1/81 TS05       *   FILE 126
//*      P50233 - MBJOBS - PROGRAM TO SUBMIT JOBS FROM THE          *   FILE 126
//*               CONSOLE                                           *   FILE 126
//*      P50233A - WTO FOR MBRDR  P50233                            *   FILE 126
//*      P50233B - WTO FOR MBRDR  P50233 REVISED MESSAGE            *   FILE 126
//*                FORMATS                                          *   FILE 126
//*      P50229 - J/TIP USER SUBMITTED PRODUCTION AUTHORIZATION     *   FILE 126
//*               TABLE                                             *   FILE 126
//*      P50248 - Z999LOAD SUB-ROUTINE TO SEND 'MODIFY' TO MBRDR    *   FILE 126
//*                                                                 *   FILE 126
//*      SMF EXITS                                                  *   FILE 126
//*                                                                 *   FILE 126
//*      P50003 - IEFUJV     MILLER IEFUJV EXIT                     *   FILE 126
//*      P50004 - IEFUJI     MILLER IEFUJI EXIT                     *   FILE 126
//*      P50005 - IEFUTL     MILLER IEFUTL EXIT                     *   FILE 126
//*      P50007 - IEFACTRT   MILLER IEFACTRT EXIT                   *   FILE 126
//*      P50008 - USI SMF EXIT                                      *   FILE 126
//*      P50011 - SMF MESSAGES FOR EXITS                            *   FILE 126
//*                                                                 *   FILE 126
//*      P50252 - RESTRICTED JCL PARAMETERS - TABLE                 *   FILE 126
//*                                                                 *   FILE 126
//*                                                                 *   FILE 126
//*      RACF SAMPLE EXITS                                          *   FILE 126
//*                                                                 *   FILE 126
//*      P50020 - RACINIT PRE-PROCESSING EXIT                       *   FILE 126
//*      P50029 - RACHECK PREPROCESSING EXIT                        *   FILE 126
//*      P50217 - RACDEF PREPROCESSING EXIT                         *   FILE 126
//*      P50269 - ICHRIX02 RACINIT POST PROCESSING EXIT (RACF)      *   FILE 126
//*      P50031 - RACF ICHRIN03 TABLE FOR STARTED TASKS             *   FILE 126
//*      P50080 - RACF MODS                                         *   FILE 126
//*                                                                 *   FILE 126
//*      ROLL YOUR OWN TP SECURITY SAMPLES USING RACF               *   FILE 126
//*      (IMS LIKE FOR CINCOM'S ENVIRON/1 SYSTEM. COULD BE          *   FILE 126
//*       CHANGED TO PROBABLY AND NON-IBM OS TP MONITOR.)           *   FILE 126
//*                                                                 *   FILE 126
//*      P50100 - E/1 RACF PASSWORD FILE MAINTAINANCE               *   FILE 126
//*      M50100 - E/1 RACF PASSWORD FILE MAINTAINANCE MAPS          *   FILE 126
//*      P50101 - E/1 COLD START INITIALIZATION EXIT                *   FILE 126
//*                                                                 *   FILE 126
//*      P50130 - E/1 WARM START INITIALIZATION ROUTINE             *   FILE 126
//*      P50185 - E/1 RACF SUBROUTINES                              *   FILE 126
//*      P50186 - E/1 RACF MENU TRANSACTION                         *   FILE 126
//*      M50186 - E/1 RACF MENU TRANSACTION MAPS                    *   FILE 126
//*                                                                 *   FILE 126
//*                                                                 *   FILE 126
//*      RACF DECRYPT RACF PASSWORD ROUTINES                        *   FILE 126
//*                                                                 *   FILE 126
//*      P50239 - RACF PASSWORD ROUTINE                             *   FILE 126
//*      P50240 - RACF PASSWORD ROUTINE (TSO)                       *   FILE 126
//*                                                                 *   FILE 126
//*      RACF REPLACEMENT FOR PCF TSO COMMAND AUTHORIZATION         *   FILE 126
//*                                                                 *   FILE 126
//*      IKJEFTB2                                                   *   FILE 126
//*      MBCINTR                                                    *   FILE 126
//*      MBCSCAN                                                    *   FILE 126
//*                                                                 *   FILE 126
//*      RACF TMS INTERFACE FOR TMS(UCC ONE) TAPE MANAGEMENT        *   FILE 126
//*               SYSTEM                                            *   FILE 126
//*                                                                 *   FILE 126
//*      TMSDOC - UCC-1 RACF INTERFACE DOCUMENTATION MILLER         *   FILE 126
//*               BREWING                                           *   FILE 126
//*      TMSBOISE - UCC-1 RACF INTERFACE FROM BOISE CASCADE         *   FILE 126
//*      P50230 - UCC-1 RACF SECURITY MODULE (IGC0BXXX)             *   FILE 126
//*      P50232 - TSOTIQ - TMSTIQ INTERFACE MODULE                  *   FILE 126
//*      P50093 - UCC/1 MODS                                        *   FILE 126
//*                                                                 *   FILE 126
//*      RACF SPF(NEW SPF) ALLOWS RACF COMMANDS USING SPF MENUS     *   FILE 126
//*      ALSO USES DIALOG MANAGER AND TABLE SERVICES.               *   FILE 126
//*                                                                 *   FILE 126
//*      SEE MBSRACF.SPFLIB FOR SAMPLE MENUS AND NEW PROGRAMS       *   FILE 126
//*      AND NEW TUTORIALS.                                         *   FILE 126
//*                                                                 *   FILE 126
//*      P50296 - SPF/RACF MAIN LIST TASK  (SEE MBCRACF.SPFLIB)     *   FILE 126
//*      P50297 - SPF/RACF LIST USER                                *   FILE 126
//*      P50298 - SPF/RACF LIST GROUP                               *   FILE 126
//*      P50299 - SPF/RACF LIST GENERALIZED RESOURCE                *   FILE 126
//*      P50300 - SPF/RACF LIST DATA SET                            *   FILE 126
//*      P50303 - SPF/RACF MAIN ADD TASK                            *   FILE 126
//*      P50304 - SPF/RACF ADD USER                                 *   FILE 126
//*      P50305 - SPF/RACF ADD GROUP                                *   FILE 126
//*      P50306 - SPF/RACF ADD GENERALIZED RESOURCE                 *   FILE 126
//*      P50307 - SPF/RACF ADD DATA SET                             *   FILE 126
//*                                                                 *   FILE 126
//*      UTILITIES SECTION                                          *   FILE 126
//*                                                                 *   FILE 126
//*      P50013 - $SVC231 AUTHORIZATION SVC                         *   FILE 126
//*                                                                 *   FILE 126
//*      P50301 - RACF FILE EXTRACT PROGRAM                         *   FILE 126
//*                                                                 *   FILE 126
//*      P50311 - RACF GENERALIZED RESOURCE AUTHORIZATION           *   FILE 126
//*               REPORT                                            *   FILE 126
//*                                                                 *   FILE 126
//*      P50312 - RACF DATA SECURITY OWNERSHIP REPORT               *   FILE 126
//*                                                                 *   FILE 126
//*      P50314 - RACF USER OWNERSHIP REPORT                        *   FILE 126
//*                                                                 *   FILE 126
//*      P50065 - RACF SMF POST PROCESSOR AUDIT LISTING             *   FILE 126
//*      P50065A- TABLES FOR                                        *   FILE 126
//*      P50065B-       RACF SMF POST                               *   FILE 126
//*      P50065C-                PROCESSOR AUDIT LISTING            *   FILE 126
//*                                                                 *   FILE 126
//*      P50191 - TS02 RACF DATASET PROCESSOR - DATASET PRINT       *   FILE 126
//*               PGM                                               *   FILE 126
//*      P50192 - TS02 RACF DATASET PROCESSOR - USER ACCESS         *   FILE 126
//*               PRINT PGM                                         *   FILE 126
//*      P50193 - TS02 RACF DATASET PROCESSOR - DATASET EXTRACT     *   FILE 126
//*               PGM                                               *   FILE 126
//*      P50196 - TS02 RACF DATASET PROCESSOR - USER                *   FILE 126
//*               ACCESS EXTRACT                                    *   FILE 126
//*      P50215 - JULIAN TO GREGORIAN DATE SUBROUTINE               *   FILE 126
//*      P50245 - RACF SET PASSWORD EXIPRATION DATE TO              *   FILE 126
//*               NOT EXPIRE                                        *   FILE 126
//*      P50257 - DELETE USERS OLDER THAN X DAYS FROM               *   FILE 126
//*               RACF/UADS                                         *   FILE 126
//*      P50237 - CATALOG SUBROUTINE                                *   FILE 126
//*      P50249 - GENERALIZED RACHECK SUBROUTINE                    *   FILE 126
//*      P50255 - RACLIST INITIALIZATION PROGRAM                    *   FILE 126
//*      P50259 - GENERALIZED BINARY SEARCH SUBROUTINE              *   FILE 126
//*      P50267 - RACF CONFLICT ANALYSIS PROGRAM                    *   FILE 126
//*                                                                 *   FILE 126
//*      RACFLOCN - ROUTINE TO LOCATE NEXT DATASET PROFILE IN       *   FILE 126
//*                 RACF DATASET                                    *   FILE 126
//*      RACLSTBU - SUBROUTINE TO PERFORM RACLIST AND BUILDS        *   FILE 126
//*                 LIST OF POINTERS TO RACF PROFILES.              *   FILE 126
//*                                                                 *   FILE 126
//*                                                                 *   FILE 126
//*      MACROS SECTION                                             *   FILE 126
//*                                                                 *   FILE 126
//*      PRIME                                                      *   FILE 126
//*      TERME                                                      *   FILE 126
//*      MACROS1 CONTAINS TERME AND PRIME                           *   FILE 126
//*                                                                 *   FILE 126
//***FILE 127 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 127
//*           THIS MEANS "SPLA TAPE FILE 027".                      *   FILE 127
//*                                                                 *   FILE 127
//*   H F000127 D=NOV81                                             *   FILE 127
//*   T FILE 127 - RACF MODS FROM RAINIER BANK                      *   FILE 127
//*   K RACF V20 RAINIER SPF IEFUJV IKJEFF10 IKJEFLD LOGON          *   FILE 127
//*              EXIT                                               *   FILE 127
//*   K WALT FARRELL                                                *   FILE 127
//*                                                                 *   FILE 127
//*      SOURCE: RACF MODS TAPE - MARCH 1982                        *   FILE 127
//*      RELATED FILES: 123-128                                     *   FILE 127
//*                                                                 *   FILE 127
//*      THIS FILE CONTAIN A SERIES OF RACF MODS FROM RAINIER.      *   FILE 127
//*      IT WAS RECEIVED AS PART OF THE RACF MODS TAPE FROM         *   FILE 127
//*      MILLER BREWING.                                            *   FILE 127
//*                                                                 *   FILE 127
//*      SEE MEMBER $DOC IN THE LIBRARY FOR A MORE COMPLETE         *   FILE 127
//*      DESCRIPTION.  EXCERPTS FROM THAT MEMBER ARE INCLUDED       *   FILE 127
//*      HERE.                                                      *   FILE 127
//*                                                                 *   FILE 127
//*      IF YOU HAVE QUESTIONS OR SUGGESTIONS ABOUT THESE PROGRAMS, *   FILE 127
//*      PLEASE CONTACT                                             *   FILE 127
//*                                                                 *   FILE 127
//*      WALT FARRELL                                               *   FILE 127
//*      RAINIER NATIONAL BANK - TECH SUPPORT                       *   FILE 127
//*      PO BOX C34030                                              *   FILE 127
//*      SEATTLE, WA 98124                                          *   FILE 127
//*      (206) 433-7467                                             *   FILE 127
//*                                                                 *   FILE 127
//*                                                                 *   FILE 127
//*      $HINTS - MISCELLANEOUS IDEAS ABOUT RACF THAT MAY NOT       *   FILE 127
//*               BE OBVIOUS, AND THAT WE HAVE FOUND VALUABLE.      *   FILE 127
//*                                                                 *   FILE 127
//*      FRONTEND - MODULE THAT MAY BE LINK-EDITTED INTO AN         *   FILE 127
//*               EXISTING PROGRAM TO PERFORM A RACHECK WHEN        *   FILE 127
//*               THE PROGRAM IS EXECUTED TO SEE IF THE USER IS     *   FILE 127
//*               AUTHORIZED TO RUN THE PROGRAM. THE MODULE HAS     *   FILE 127
//*               BEEN RECENTLY RECODED TO REMOVE SOME LOCAL        *   FILE 127
//*               (AND STRANGE) MACROS, AND HAS NOT YET BEEN        *   FILE 127
//*               TESTED. HOWEVER, THE ORIGINAL VERSION WORKS       *   FILE 127
//*               VERY WELL. THE NEW VERSION WILL BE TESTED         *   FILE 127
//*               SOON AND FIXES SUPPLIED.                          *   FILE 127
//*                                                                 *   FILE 127
//*      ICHEACTN-THIS IS AN INTERNAL RACF MACRO THAT IS USED       *   FILE 127
//*               BY SEVERAL PROGRAMS TO COMMUNICATE WITH THE       *   FILE 127
//*               RACF INVENTORY MANAGER DIRECTLY. THE MACRO        *   FILE 127
//*               SOURCE IS NOT PRESENT. IT MUST BE OBTAINED        *   FILE 127
//*               FROM THE OPTIONAL (SOURCE) TAPE FOR RACF.         *   FILE 127
//*                                                                 *   FILE 127
//*      ICHEIN - ANOTHER MACRO LIKE ICHEACTN.                      *   FILE 127
//*                                                                 *   FILE 127
//*      ICHEINTY - ANOTHER MACRO LIKE ICHEACTN.                    *   FILE 127
//*                                                                 *   FILE 127
//*      ICHEOPT - ANOTHER MACRO LIKE ICHEACTN.                     *   FILE 127
//*                                                                 *   FILE 127
//*      ICHETEST- ANOTHER MACRO LIKE ICHEACTN.                     *   FILE 127
//*                                                                 *   FILE 127
//*      ICHPLOGC- MAPPING OF THE PARAMETER LIST TO ICHRAU00,       *   FILE 127
//*               WHICH IS  THE RACF MODULE THAT LOGS               *   FILE 127
//*               VIOLATIONS VIA SMF. ICHRAU00 CAN BE CALLED BY     *   FILE 127
//*               AN AUTHORIZED MODULE, AND SEVERAL OF THE          *   FILE 127
//*               PROGRAMS SUPPLIED HERE USE ICHRAU00 TO LOG        *   FILE 127
//*               THEIR OWN INFORMATION TO SMF IN A FORMAT THAT     *   FILE 127
//*               OUR (AND IBM'S) RACF REPORT WRITER(S) CAN         *   FILE 127
//*               UNDERSTAND. AS THIS SOURCE FROM IBM BEARS NO      *   FILE 127
//*               COPYRIGHT, IT IS INCLUDED HERE.                   *   FILE 127
//*                                                                 *   FILE 127
//*      ICHRDSNT-RAINIER BANKS ICHRDSNT (RACF DATA SET NAME        *   FILE 127
//*               TABLE). USE OF ICHRDSNT AVOIDS HAVING TO          *   FILE 127
//*               MODIFY MSTRJCL, AS WELL AS PROVIDING MORE         *   FILE 127
//*               FLEXIBILITY IN USING RACF. SEE $HINTS FOR         *   FILE 127
//*               MORE INFO.                                        *   FILE 127
//*                                                                 *   FILE 127
//*      ICHRDSNU- AN 'EMERGENCY' VERSION OF ICHRDSNT. SEE          *   FILE 127
//*                $HINTS.                                          *   FILE 127
//*                                                                 *   FILE 127
//*      ICHRIX01-RACINIT PRE-PROCESSING EXIT THAT WORKS IN         *   FILE 127
//*               CONJUNCTION WITH OUR IEFUJV TO CHECK BATCH        *   FILE 127
//*               PASSWORDS AT JOB SUBMISSION TIME INSTEAD OF       *   FILE 127
//*               AT INITIATION.                                    *   FILE 127
//*                                                                 *   FILE 127
//*      IEFUJV - AN SMF EXIT FOR JOB-CARD VALIDATION. WE WROTE     *   FILE 127
//*               IT (OR AT LEAST PUT RACF STUFF INTO IT) SO        *   FILE 127
//*               THAT THE USERID, PASSWORD, ETC. COULD BE          *   FILE 127
//*               VALIDATED WHEN THE JOB WAS SUBMITTED, NOT WHEN    *   FILE 127
//*               IT WAS INITIATED. THIS ALLOWS THE USER TO         *   FILE 127
//*               CHANGE HIS PASSWORD AFTER JOB SUBMISSION          *   FILE 127
//*               WITHOUT CAUSING A JCL ERROR WHEN THE JOB RUNS.    *   FILE 127
//*               ALSO REQUIRES THE RACINIT PRE-PROCESSING EXIT.    *   FILE 127
//*                                                                 *   FILE 127
//*               POTENTIAL PROBLEMS (BUT NOT VERY MUCH SO):        *   FILE 127
//*              (1) DEPENDS ON THE JES2 JCT FOR THE JOB, WHOSE     *   FILE 127
//*                 ADDRESS CAN BE FOUND BY CHASING THE TCB         *   FILE 127
//*                 CHAIN AND FINDING SOME REGISTERS FROM           *   FILE 127
//*                 HOSCNVT. MAY BE DIFFERENT WITH JES2/NJE OR      *   FILE 127
//*                 WITH MVS-SP2.  WORKS WITH SP1 JUST FINE.        *   FILE 127
//*                 VERY INSENSITIVE TO PTF'S, AT LEAST SO FAR.     *   FILE 127
//*                                                                 *   FILE 127
//*      IEZCTGFL- DSECT NEEDED TO USE CATALOG MANAGEMENT SVC       *   FILE 127
//*                26, WHICH SOME PROGRAMS ON THIS TAPE NEED.       *   FILE 127
//*                                                                 *   FILE 127
//*      IEZCTGPL- ANOTHER SVC 26 DSECT.                            *   FILE 127
//*                                                                 *   FILE 127
//*      IGC0023I- SVC (239) TO TURN APF AUTHORIZATION ON OR        *   FILE 127
//*              OFF. IT WILL NOT WORK UNDER TSO TEST. THE          *   FILE 127
//*              ISSUER MUST BE IN THE PLPA, OR THE USER WHO IS     *   FILE 127
//*              RUNNING THE ISSUING PROGRAM MUST BE AUTHORIZED     *   FILE 127
//*              TO THE RACF RESOURCE 'APPL SVC239'. HAS PROVEN     *   FILE 127
//*              USEFUL IN SEVERAL PROGRAMS HERE. IN                *   FILE 127
//*              PARTICULAR, SEE ISPRCFA.                           *   FILE 127
//*                                                                 *   FILE 127
//*      IKJEFF10 - EXIT FOR THE TSO SUBMIT COMMAND. IT PERFORMS    *   FILE 127
//*              MANY FUNCTIONS, THE MOST IMPORTANT OF WHICH        *   FILE 127
//*              (FOR THIS TAPE) IS THE PLACING OF THE USERID       *   FILE 127
//*              AND PASSWORD ON THE JOB CARD FOR THE SUBMITTED     *   FILE 127
//*              JOB. IN OUR ENVIRONMENT, IT ALSO DETECTS THE       *   FILE 127
//*              SUBMISSION OF A 'PRODUCTION JOB' FROM OUR          *   FILE 127
//*              PRODUCTION JOB SCHEDULING SYSTEM, AND USES A       *   FILE 127
//*              'FAKE' USERID/PASSWORD TO RUN THE JOB WITH         *   FILE 127
//*              OPERATIONS AUTHORITY.                              *   FILE 127
//*                                                                 *   FILE 127
//*              THIS MODULE IS BEST USED FOR IDEAS ABOUT HOW       *   FILE 127
//*              TO PUT THE USERID/PASSWORD/GROUP ON THE JOB        *   FILE 127
//*              CARD, HOW TO USE THE RACF INTERNAL MACROS TO       *   FILE 127
//*              DIRECTLY ACCESS THE RACF DATA SET, AND HOW TO      *   FILE 127
//*              USE ICHRAU00 TO LOG INFORMATION TO SMF.            *   FILE 127
//*                                                                 *   FILE 127
//*      IKJEFLD - LOGON PRE-PROMPT EXIT THAT OBTAINS SOME          *   FILE 127
//*              INFORMATION   FROM THE RACF DATASET (E.G.          *   FILE 127
//*              PROGRAMMER NAME) AND CREATES THE JCL FOR THE       *   FILE 127
//*              LOGON. BASED ON AN EXIT FROM THE CBT TAPE, BUT     *   FILE 127
//*              WITH RACF FUNCTIONS ADDED.                         *   FILE 127
//*                                                                 *   FILE 127
//*      ISP@PRIM - PRIMARY OPTION MENU FOR THE NEW SPF (ISPF)      *   FILE 127
//*             THAT SHOWS A USE OF SYSTEM VARIABLE ZGROUP.         *   FILE 127
//*             ZGROUP CONTAINS THE NAME OF THE RACF GROUP THAT     *   FILE 127
//*             THE USER IS CURRENTLY LOGGED ON TO, ASSUMING        *   FILE 127
//*             THAT THE MODS IN PZ21001/PZ21002 HAVE BEEN          *   FILE 127
//*             APPLIED TO SPF.                                     *   FILE 127
//*                                                                 *   FILE 127
//*      ISPRCFA- A FRONT-END FOR THE CFA MODULE IN THE NEW SPF.    *   FILE 127
//*             IT USES A COPY OF THE AUTHORIZED COMMAND TABLE      *   FILE 127
//*             FROM THE TMP TO ALLOW APF-AUTHORIZED COMMANDS TO    *   FILE 127
//*             BE RUN UNDER SPF. REQUIRES USE OF SVC 239 (SEE      *   FILE 127
//*             IGC0023I) AND REQUIRES THAT ISPSUBS BE IN THE       *   FILE 127
//*             PLPA.                                               *   FILE 127
//*                                                                 *   FILE 127
//*             IBM STARTED TO IMPLEMENT A FACILITY IN SPF A        *   FILE 127
//*             LONG TIME AGO (IN A GALAXY QUITE CLOSE TO HERE),    *   FILE 127
//*             TO ALLOW THIS FUNCTION.  THEY NEVER COMPLETED       *   FILE 127
//*             IT, AND THEY APPARENTLY FELT THAT THERE WAS A       *   FILE 127
//*             SECURITY/INTEGRITY HOLE IF SUCH A FUNCTION WERE     *   FILE 127
//*             ALLOWED. WE HAVEN'T BEEN ABLE TO FIND A HOLE IN     *   FILE 127
//*             THIS CODE, BUT CAN'T GUARANTEE THERE ISN'T ONE.     *   FILE 127
//*                                                                 *   FILE 127
//*             TO USE ISPRCFA, RE-LINK ISPSUBS USING THE           *   FILE 127
//*             FOLLOWING LINKAGE EDITOR CONTROL CARDS:             *   FILE 127
//*                                                                 *   FILE 127
//*             ENTRY ISPTSC                                        *   FILE 127
//*             CHANGE ISPCFA(ISPRCFA)                              *   FILE 127
//*             INCLUDE AOS31(ISPTSC)                               *   FILE 127
//*             INCLUDE YOURDD(ISPRCFA)                             *   FILE 127
//*             INCLUDE AOST4(IKJEFTE2)                             *   FILE 127
//*             INCLUDE SPFLOAD(ISPSUBS)                            *   FILE 127
//*             NAME ISPSUBS(R)                                     *   FILE 127
//*                                                                 *   FILE 127
//*      PZ21001                                                    *   FILE 127
//*      PZ21001$                                                   *   FILE 127
//*      PZ21002                                                    *   FILE 127
//*      PZ21002$- MODIFICATION TO THE NEW SPF (ISPF) TO ADD A      *   FILE 127
//*             NEW SYSTEM VARIABLE ZGROUP, WHICH WILL, WHEN        *   FILE 127
//*             REFERENCED IN A MENU OR PANEL, CONTAIN THE NAME     *   FILE 127
//*             OF THE RACF GROUP THAT THE USER IS CURRENTLY        *   FILE 127
//*             CONNECTED TO. PZ21001 AND PZ21002 ARE THE MODS      *   FILE 127
//*             IN A FORM THAT CAN BE INPUT TO THE GENZAPS          *   FILE 127
//*             (ASMTOZAP) PROGRAM. PZ21001$ AND PZ21002$ ARE       *   FILE 127
//*             THE OUTPUT FROM GENZAPS, READY TO BE INPUT TO       *   FILE 127
//*             SMP4. THE MOD ALSO PROVIDES SOME DUMMY              *   FILE 127
//*             VARIABLES, TO EASE ADDITION OF FUTURE SYSTEM        *   FILE 127
//*             VARIABLES. THE DUMMY VARIABLES WILL ALWAYS          *   FILE 127
//*             CONTAIN A NULL VALUE AT PRESENT.  SEE MEMBER        *   FILE 127
//*             ISP@PRIM FOR A PRIMARY OPTION MENU THAT USES THE    *   FILE 127
//*             NEW VARIABLE ZGROUP. THIS MOD IS ESPECIALLY         *   FILE 127
//*             HANDY IF THE RGROUP TSO CP IS INSTALLED AND IF      *   FILE 127
//*             THE ISPRCFA MOD IS MADE.                            *   FILE 127
//*                                                                 *   FILE 127
//*      RACFMENU - SET OF SPF RACF MENUS TO DO NICE RACF           *   FILE 127
//*             FUNCTIONS FOR SPF USERS WHO DON'T KNOW THE RACF     *   FILE 127
//*             COMMANDS.                                           *   FILE 127
//*                                                                 *   FILE 127
//*      RACFPROC - SET OF SPF FOREGROUND RACF PROCS TO BE USED     *   FILE 127
//*             WITH THE RACFMENU MEMBER. ALSO REQUIRES THAT        *   FILE 127
//*             YOUR SPF BE ABLE TO ISSUE AUTHORIZED COMMANDS       *   FILE 127
//*             (SEE ISPRCFA).                                      *   FILE 127
//*                                                                 *   FILE 127
//*      RACFVER -  PROGRAM THAT READS THE RACF DATA SET VIA THE    *   FILE 127
//*             INTERNAL MACROS, AND FOR EACH DATASET ENTRY         *   FILE 127
//*             CHECKS THE VTOC TO ENSURE THAT THE DATASET          *   FILE 127
//*             EXISTS AND IS PROTECTED. ALSO HAS CODE FOR UCC-1    *   FILE 127
//*             TAPE MANAGEMENT SYSTEM. WILL ACCEPT AN OPTIONAL     *   FILE 127
//*             LIST OF DASD VOLUMES (FROM DD DASDVOL) IN CARD      *   FILE 127
//*             FORMAT WITH A VOLSER IN COLS 1-6 AND AN OPTIONAL    *   FILE 127
//*             'I' IN COL 8. IF AN ENTRY IN THE RACF DATASET       *   FILE 127
//*             LISTS A VOLSER THAT IS NOT ONLINE, AND IF THE       *   FILE 127
//*             'I' WAS SPECIFIED ON THE CONTROL CARD FOR THAT      *   FILE 127
//*             VOLUME, THEN ONE ERROR MESSAGE WILL BE PRODUCED,    *   FILE 127
//*             AND FURTHER REFERENCES TO THAT VOLUME WILL BE       *   FILE 127
//*             IGNORED. IF THE 'I' WAS NOT SPECIFIED, THEN A       *   FILE 127
//*             MESSAGE WILL BE PRODUCED FOR EACH RACF-DEFINED      *   FILE 127
//*             DATASET ON THE VOLUME.                              *   FILE 127
//*                                                                 *   FILE 127
//*             THIS PROGRAM HAS GROWN IN A RATHER UNSTRUCTURED     *   FILE 127
//*             WAY, AND DOESN'T LOOK AS GOOD AS I WANTED IT TO.    *   FILE 127
//*             WHEN IT IS REWRITTEN SOMEDAY, THE FOLLOWING         *   FILE 127
//*             ENHANCEMENTS WILL BE MADE: (1) ADD THE OTHER        *   FILE 127
//*             HALF OF THE PROGRAM, WHICH WILL READ ALL OF THE     *   FILE 127
//*             ONLINE VTOCS AND FOR EACH RACF-INDICATED DATASET    *   FILE 127
//*             VERIFY THAT IT IS RACF-DEFINED.  (2) WHEN AN        *   FILE 127
//*             INCONSISTENCY IS FOUND, OPTIONALLY FIX IT           *   FILE 127
//*             INSTEAD OF JUST PRODUCING AN ERROR MESSAGE.         *   FILE 127
//*                                                                 *   FILE 127
//*      RGROUP - A PROGRAM WHICH WILL RUN AS EITHER A TSO CP       *   FILE 127
//*              (FOREGROUND OR BACKGROUND) OR AS AN EXECUTED       *   FILE 127
//*              PROGRAM. IT HAS TWO PURPOSES.  (1) IF INVOKED      *   FILE 127
//*              WITHOUT PARAMETERS IT WILL TELL YOU WHICH RACF     *   FILE 127
//*              GROUP THE INVOKER IS CURRENTLY CONNECTED TO.       *   FILE 127
//*              (2) IF INVOKED WITH A GROUP NAME THAT THE          *   FILE 127
//*              INVOKER IS AUTHORIZED TO USE, IT WILL CHANGE       *   FILE 127
//*              THE CURRENT CONNECT GROUP TO THAT NAMED GROUP,     *   FILE 127
//*              USING A RACINIT 'CHANGE' FUNCTION. THIS IS         *   FILE 127
//*              USEFUL FOR PEOPLE CONNECTED TO MULTIPLE GROUPS     *   FILE 127
//*              WITH DIFFERENT AUTHORITIES, SO THEY DON'T HAVE     *   FILE 127
//*              TO LOGOFF AND RE-LOGON SO OFTEN.  THE PROGRAM      *   FILE 127
//*              MUST BE LINKED AND RUN AUTHORIZED (AC=1).          *   FILE 127
//*                                                                 *   FILE 127
//*      RNBACEE - A CONTROL BLOCK THAT WE CHAIN FROM THE ACEE      *   FILE 127
//*              TO HOLD SOME INFORMATION THAT SOME OF OUR          *   FILE 127
//*              PROGRAMS AND EXITS REQUIRE.                        *   FILE 127
//*                                                                 *   FILE 127
//*      RNBUINST -  MAPPING OF HOW WE USE THE DATA FIELD IN        *   FILE 127
//*              THE USER PROFILE.  REQUIRED BY SOME OF THE         *   FILE 127
//*              PROGRAMS.                                          *   FILE 127
//*                                                                 *   FILE 127
//*      TMPFRONT -  PROGRAM THAT REPLACES IKJEFT01 IN THE EXEC     *   FILE 127
//*              STATEMENT OF OUR TSO LOGON PROCS. IT ALLOWS US     *   FILE 127
//*              TO RESTRICT TSO LOGONS BY CONTROLLING ACCESS       *   FILE 127
//*              TO A RACF RESOURCE 'APPL TSOXXXX' WHERE XXXX       *   FILE 127
//*              IS THE SMFID FROM THE SMCA. USEFUL FOR SYSTEM      *   FILE 127
//*              TEST PERIODS OR OTHER TIMES WHEN ONLY CERTAIN      *   FILE 127
//*              PEOPLE SHOULD BE ABLE TO LOG ON. IF THE            *   FILE 127
//*              RACHECK SUCCEEDS, IT LINKS TO IKJEFT01 TO          *   FILE 127
//*              CONTINUE THE LOGON.                                *   FILE 127
//*                                                                 *   FILE 127
//*      UNPROTCT -  PROGRAM THAT READS A VTOC AND GENERATES        *   FILE 127
//*              AMASPZAP CONTROL CARDS TO RESET THE RACF AND       *   FILE 127
//*              PASSWORD INDICATORS FOR ANY PROTECTED DATA         *   FILE 127
//*              SETS. USED FOR DISASTER RECOVERY WHEN A FULL-      *   FILE 127
//*              PACK BACKUP TAPE IS TAKEN TO A SHOP WITHOUT        *   FILE 127
//*              RACF, OR TO A SHOP WITH RACF BUT WITHOUT THE       *   FILE 127
//*              PROPER DATASET PROFILES OR PASSWORD ENTRIES        *   FILE 127
//*              DEFINED. VAGUELY BASED ON A VTOC UPDATING          *   FILE 127
//*              PROGRAM FROM THE IPO TAPE.                         *   FILE 127
//*                                                                 *   FILE 127
//***FILE 128 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 128
//*           THIS MEANS "SPLA TAPE FILE 028".                      *   FILE 128
//*                                                                 *   FILE 128
//*   H F000128 D=NOV81                                             *   FILE 128
//*   T FILE 128 - TLMS RACF MODS FROM MANITOBA DATA SERVICES       *   FILE 128
//*   K RACF TLMS V20 MANITOBA                                      *   FILE 128
//*                                                                 *   FILE 128
//*      SOURCE: RACF MODS TAPE - OCTOBER 8, 1981                   *   FILE 128
//*      RELATED FILES: 123-128                                     *   FILE 128
//*                                                                 *   FILE 128
//*      THIS FILE CONTAIN A SERIES OF RACF MODS FOR TLMS FROM      *   FILE 128
//*      MANITOBA DATA SERVICES.  IT WAS RECEIVED AS PART OF        *   FILE 128
//*      THE RACF MODS TAPE FROM MILLER BREWING.                    *   FILE 128
//*                                                                 *   FILE 128
//*        --------------- TLMS/RACF INTERFACE -----------------    *   FILE 128
//*         --> THIS CODE HAS BEEN IMPLEMENTED UNDER RACF V1R2      *   FILE 128
//*         AND V1R3 WITH NO MAJOR CHANGES FOR 3-4 YEARS. NO        *   FILE 128
//*         RACF RELEASE DEPENDANCIES BEYOND RELEASE 1 VERSION      *   FILE 128
//*         2 (TAPEVOL SUPPORT) ARE KNOWN.                          *   FILE 128
//*                                                                 *   FILE 128
//*         --> THE FOLLOWING JOB WILL CREATE AN IEBUPDTE FORMAT    *   FILE 128
//*         FILE ON TAPE, THEN PRINT IT. THE FILE ADDS THREE        *   FILE 128
//*         MEMBERS TO A DATASET (ICHRTX01, ICHRTX02, TLMSBYDSP)    *   FILE 128
//*         AND ATTEMPTS TO DO A ./ CHANGE ON                       *   FILE 128
//*         MEMBERS=(TLMSDSPF,TLMBMASS,TLMSCTL,TLMBUPDA). THESE     *   FILE 128
//*         UPDATES ARE INTENDED TO FIT ON TLMS VERSION 2 REL.      *   FILE 128
//*         3 (V2R3) AS SHIPPED FROM TLMS(BEFORE CAPEX??). ANY      *   FILE 128
//*         RESEQUENCING OF THE MODULES IN QUESTION WILL MEAN A     *   FILE 128
//*         RE-EXAMINATION OF THESE HOOKS.                          *   FILE 128
//*                                                                 *   FILE 128
//*         --> SUPPORT IS ADDED FOR PROTECT=YES AND ADSP USERS     *   FILE 128
//*         TO HAVE TLMS ADD DSN INFO TO THE TAPE PROFILE,          *   FILE 128
//*         REMEMBER THAT THE TAPE IS RACF PROTECTED, AND           *   FILE 128
//*         AUTOMATICALLY REMOVE RACF PROTECTION WHEN THE TAPE      *   FILE 128
//*         IS RETURNED TO THE SCRATCH POOL. "GRPACC" AND RACF      *   FILE 128
//*         NAMING CONVENTIONS ARE ALSO FULLY SUPPORTED.            *   FILE 128
//*         ***NOTE*** THIS CODE WILL MEAN THAT TLMS AND RACF       *   FILE 128
//*         ARE ALWAYS IN SYNC... THIS CAN CAUSE CONSIDERABLE       *   FILE 128
//*         CONFUSION FOR USERS OF TOSS(TAPE OFF-SITE STORAGE)      *   FILE 128
//*         WHO USE GENERATION DATA GROUPS. THE SYSTEM CATALOG      *   FILE 128
//*         IS NOT NECESSARILY IN SYNC WITH RACF AND TLMS IF THE    *   FILE 128
//*         JOB CYCLES AND NUMBER OF GENERATIONS DO NOT MATCH       *   FILE 128
//*         THE TOSS SPECIFICATIONS. THIS CAUSES CONFUSION IN       *   FILE 128
//*         ATTEMPTING TO VERIFY CORRECT OPERATION, (IN AN          *   FILE 128
//*         ATTEMPT TO RESOLVE TLMS,CATALOG, AND RACF LISTINGS),    *   FILE 128
//*         BUT TO THE BEST OF MY KNOWLEDGE NO PROBLEMS EXIST.      *   FILE 128
//*                                                                 *   FILE 128
//*         --> TAPE LIBRARIANS GENERALLY WILL NEED NO KNOWLEDGE    *   FILE 128
//*         OF ANY RACF ADDITIONS TO TLMS PROCESSING EXCEPT IN      *   FILE 128
//*         THE CASE WHERE A TAPE WHICH HAS BEEN SCRATCHED IS TO    *   FILE 128
//*         BE MARKED NON-SCRATCH. TO PROPERLY ADD RACF             *   FILE 128
//*         PROTECTION AT THIS POINT IS VERY DIFFICULT, AND IS      *   FILE 128
//*         BEST LEFT TO THE RACF ADMINISTRATOR IN CONJUNCTION      *   FILE 128
//*         WITH THE END-USER. NOTE THAT TO USE A TSO UPDATE TO     *   FILE 128
//*         THE MASTER FILE AND MARK A TAPE AS SCRATCH WITHOUT      *   FILE 128
//*         REMOVING THE RACF PROTECTION WILL CAUSE THE TAPE TO     *   FILE 128
//*         REMAIN RACF PROTECTED. THIS CAN CAUSE SEVERAL           *   FILE 128
//*         PROBLEMS. NOTE THAT THE PROGRAMS WHICH USE SCRATCH      *   FILE 128
//*         FUNCTIONS WILL REQUIRE APF AUTHORIZATION, AND HENCE     *   FILE 128
//*         WILL LIKELY BE RESTRICTED TO BATCH USAGE UNLESS         *   FILE 128
//*         SPECIAL ACTION IS TAKEN.                                *   FILE 128
//*                                                                 *   FILE 128
//*         ---> ONE MODIFICATION IS HIGHLY RECOMMENDED. IN THE     *   FILE 128
//*         ICHRTX01 CODE, IF NAMING CONVENTIONS ARE NOT            *   FILE 128
//*         FOLLOWED, A U485 ABEND RESULTS. NO PARTICULARLY         *   FILE 128
//*         VALUABLE REGISTER INFORMATION IS PRESENT, AND NO WTO    *   FILE 128
//*         IS ISSUED. IF IMS IS USED THE U485 CAN BE CONFUSED      *   FILE 128
//*         WITH AN IMS ABEND, WITH WILD GOOSE CHASES RESULTING.    *   FILE 128
//*         I WOULD SUGGEST A SIMPLE WTO BE ADDED BEFORE ABENDING   *   FILE 128
//*         ANY USER, AND PERHAPS CHANGE THE U485 ABEND TO A MORE   *   FILE 128
//*         APPROPRIATE ABEND.                                      *   FILE 128
//*                                                                 *   FILE 128
//*         ---> NOTE THAT NO NAMING CONVENTION EXITS ARE IN USE    *   FILE 128
//*         WITH THIS CODE, (NONE WERE REQUIRED), AND HENCE I       *   FILE 128
//*         CANNOT COMMENT ON WHAT CHANGES MAY BE REQUIRED IF       *   FILE 128
//*         NAMING CONVENTIONS ARE A PROBLEM. I CAN NOTE THAT       *   FILE 128
//*         NAMING CONVENTIONS ARE CHECKED INSIDE ICHRTX01 IN       *   FILE 128
//*         THE SAME MANNER THAT THEY ARE CHECKED IN THE RACF       *   FILE 128
//*         CODE, BUT THAT NO EFFORT WAS INVESTED IN PROVIDING A    *   FILE 128
//*         NAMING CONVENTION "HOOK". FOR USERS OF OTHER RACF       *   FILE 128
//*         EXITS, A WORD OF CAUTION: FOR SOME REASON (UNKNOWN      *   FILE 128
//*         BUT DEFINATELY ILL-CONCEIVED) I MANAGED TO MOVE THE     *   FILE 128
//*         ADDRESS OF THE IOSWA (IOS WORK AREA) FROM REGISTER 4    *   FILE 128
//*         (WHEN TLMS IS INVOKED) TO REGISTER 3. THIS REGISTER     *   FILE 128
//*         IS THE KEY TO FINDING DATASET NAMES AND OTHER GOOD      *   FILE 128
//*         INFO IN ALL RACF EXITS I HAVE SEEN.  IF YOU INTEND      *   FILE 128
//*         TO USE THIS CODE IN CONJUNCTION WITH A MODELLING        *   FILE 128
//*         EXIT WHICH WILL ACT ON TAPE PROFILES, THE EXIT WILL     *   FILE 128
//*         LIKELY EXPECT R4 TO POINT TO THE IOSWA AT THE TIME      *   FILE 128
//*         THAT "RACDEF" IS ISSUED.  SINCE THE "RACDEF" IS         *   FILE 128
//*         ALWAYS ISSUED FROM HERE FOR TAPES (THE PROTECT=YES      *   FILE 128
//*         FLAG IS OFF BY THE TIME OF THE SYSTEM "RACDEF") I       *   FILE 128
//*         WOULD SUGGEST THAT THIS REGISTER ASSIGNMENT BE          *   FILE 128
//*         CHANGED...MY APOLOGIES.                                 *   FILE 128
//*                                                                 *   FILE 128
//*         --> ALSO.. THIS CODE IS NOT COPYRIGHTED IN ANY          *   FILE 128
//*         MANNER, AND "NO WARRANTEE EXPRESSED OR IMPLIED..."      *   FILE 128
//*         ETC-JUST LIKE IBM.                                      *   FILE 128
//*                                                                 *   FILE 128
//*        --------------- TLMS/RACF INTERFACE -----------------    *   FILE 128
//*                                                                 *   FILE 128
//***FILE 129 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 129
//*           THIS MEANS "SPLA TAPE FILE 029".                      *   FILE 129
//*                                                                 *   FILE 129
//*   H F000129 D=NOV81                                             *   FILE 129
//*   T FILE 129 - OPERATOR SYSTEM CONTENTION DISPLAY -             *   FILE 129
//*               CLEMSON UNIVERSITY                                *   FILE 129
//*   K OPERATOR SYSTEM CONTENTION 3270 CLEMSON FRASER V17          *   FILE 129
//*   K PERFORMANCE                                                 *   FILE 129
//*                                                                 *   FILE 129
//*      THIS FILE CONTAINS AN OPERATOR SYSTEM CONTENTION           *   FILE 129
//*      DISPLAY CONTRIBUTED BY                                     *   FILE 129
//*                                                                 *   FILE 129
//*       DON FRASER                                                *   FILE 129
//*       CLEMSON UNIVERSITY COMPUTER CENTER                        *   FILE 129
//*       50 NEW CHERRY STREET                                      *   FILE 129
//*       CLEMSON, SC. 29631-2793                                   *   FILE 129
//*                                                                 *   FILE 129
//*      THE CONTENTION DISPLAY IS A PROGRAM TO MONITOR VARIOUS     *   FILE 129
//*      INDICATORS OF SYSTEM PERFORMANCE.  THEY ARE DISPLAYED      *   FILE 129
//*      GRAPHICALLY ON A 3270 TYPE TERMINAL SUCH THAT A TARGET     *   FILE 129
//*      LEVEL FOR EACH INDICATOR WILL CORRESPOND MID-SCALE.        *   FILE 129
//*      THIS INFORMATION CAN BY USED BY THE SYSTEM OPERATOR TO     *   FILE 129
//*      HELP HIM OR HER KEEP FROM OVER COMMITTING THE              *   FILE 129
//*      RESOURCES OF THE SYSTEM.                                   *   FILE 129
//*                                                                 *   FILE 129
//*      IN ADDITION TO THE CHANGES DISCUSSED IN THE                *   FILE 129
//*      MODIFICATION AND USER'S GUIDE IN THE SOURCE CODE OF        *   FILE 129
//*      TUN0029, YOU WILL LIKELY NEED TO CHANGE THE FIRST          *   FILE 129
//*      PERIOD TSO DOMAIN NUMBER USED.                             *   FILE 129
//*                                                                 *   FILE 129
//***FILE 130 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 130
//*           THIS MEANS "SPLA TAPE FILE 030".                      *   FILE 130
//*                                                                 *   FILE 130
//*   H F000130 D=NOV81                                             *   FILE 130
//*   T FILE 130 - SPECIFY VOLSER FOR LINKLIST DATA SETS            *   FILE 130
//*            TO AVOID HAVING TO CATALOG IN MASTER CATALOG         *   FILE 130
//*   K LINKLIST LNKLST00 MASTER CATALOG MCAT IEAVNP03 PURDY        *   FILE 130
//*     REVLON V17                                                  *   FILE 130
//*                                                                 *   FILE 130
//*      THIS IS A MODIFICATION TO MODULE IEAVNP03 TO RECOGNIZE     *   FILE 130
//*      A DATASET IN THE LINKLIST THAT IS EITHER NOT CATALOGUED    *   FILE 130
//*      OR IS CATALOGUED BUT NOT IN THE MVS MASTER CATALOG         *   FILE 130
//*                                                                 *   FILE 130
//*      CONTRIBUTED BY:                                            *   FILE 130
//*                                                                 *   FILE 130
//*       NEW ADDRESS OF JIM PURDY:                                 *   FILE 130
//*                                                                 *   FILE 130
//*                JAMES PURDY                                      *   FILE 130
//*                ANDERSEN CONSULTING                              *   FILE 130
//*                1345 MEADOW GLEN                                 *   FILE 130
//*                SOUTHLAKE, TX  76092                             *   FILE 130
//*                (214) 402-7511                                   *   FILE 130
//*                                                                 *   FILE 130
//*       NOTE:  STARTING WITH MVS/ESA RELEASE 4, THE PLACE FOR     *   FILE 130
//*              THIS MODIFICATION WAS MOVED FROM IEAVNP03 TO       *   FILE 130
//*              ONE OF THE OTHER NUCLEUS MODULES.  IF SOMEONE      *   FILE 130
//*              ELSE HAS A ZAP TO MAKE THIS MODIFICATION ON        *   FILE 130
//*              NEWER SYSTEMS, PLEASE CONTACT SAM GOLOB:           *   FILE 130
//*                                                                 *   FILE 130
//*                   PHONE:   845-362-1996                         *   FILE 130
//*                   email:   sbgolob@aol.com     or               *   FILE 130
//*                            sbgolob@attglobal.net                *   FILE 130
//*                                                                 *   FILE 130
//***FILE 131 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 131
//*           THIS MEANS "SPLA TAPE FILE 031".                      *   FILE 131
//*                                                                 *   FILE 131
//*   H F000131 D=APR89                                             *   FILE 131
//*   T FILE 131 - BATCH UTILITY PGMS FROM THE US AIR FORCE         *   FILE 131
//*   K AIR FORCE AIRFORCE  JIM MARSHALL 2ISG SADSC                 *   FILE 131
//*   K ASMBOX1 ASMHNOX ASMR90 BLOKLTR BLOKHD BLOKHF BLOKPDS        *   FILE 131
//*   K COPYFILE CT DELINKO DISKMAP                                 *   FILE 131
//*   K CATLIST ICF DFEF C3PO COPYREC                               *   FILE 131
//*   K EALSD095 EXCPMOD IEECVXIT R2D2                              *   FILE 131
//*   K IEFUTL IEFU29 IEFU83 INCORZAP IGG019WD IGG019WE IEFUJI      *   FILE 131
//*   K INCORZZP J13X1  J13X3  J13X4  J13X10 J13X255 JES2           *   FILE 131
//*   K JESXRDR LISTCLTG LISTIDR LISTPDS LKEDBOX1                   *   FILE 131
//*   K LKEDMOD1 LKED90 MODREP MSGWRITE MSSMOUNT NJE                *   FILE 131
//*   K OFFLOAD PARMBLOC PDSGAS PDSLOAD PDSMATCH PDSPROGM           *   FILE 131
//*   K PDSPRINT PDSTEST PDSUTIL P38BOX1 P38TURN RACHECK SVC130     *   FILE 131
//*   K SMF  SHUTTLE  RACF  STRUCTURED SETINIT SYSLOG               *   FILE 131
//*   K READF ROTATER SEEKMON SPANCOPY SMFXTRCT STAE$ SYSREPRO      *   FILE 131
//*   K TANAL TAPEL TAPELZAP TAPEMAP TAPESCAN TIDY TIDYASM          *   FILE 131
//*   K TLABEL TLPRINT TMS TMSLABL UCC1 UNIVAC UNIVERT XEROX X8700  *   FILE 131
//*   K VKILLER ZEBCOMPR ZTSECURE 8700                              *   FILE 131
//*   K ZTDUMPTP UCC1                                               *   FILE 131
//*   K JIM MARSHALL                                                *   FILE 131
//*                                                                 *   FILE 131
//*    RELATED FILES: 131-133, 192, 194, 216-219 DOC ALL FILES      *   FILE 131
//*                   MEMBER $$PROSE                                *   FILE 131
//*                                                                 *   FILE 131
//*                B A T C H   U T I L I T Y   P R O G R A M S      *   FILE 131
//*                                                                 *   FILE 131
//*         RELEASE 19.0    1  APRIL    1989                        *   FILE 131
//*                                                                 *   FILE 131
//*         COURTESY     JIM MARSHALL, CAPT, USAF                   *   FILE 131
//*                                                                 *   FILE 131
//*               JAMES D. MARSHALL  (CAPT USAF RETIRED)            *   FILE 131
//*               DEPARTMENT OF THE TREASURY                        *   FILE 131
//*               FINANCIAL MANAGEMENT SERVICE                      *   FILE 131
//*               3700 EAST-WEST HIGHWAY - ROOM 400B                *   FILE 131
//*               HYATTSVILLE, MD. 20782                            *   FILE 131
//*               (202) 874-8353                                    *   FILE 131
//*                                                                 *   FILE 131
//*                -----------------------------------              *   FILE 131
//*                                                                 *   FILE 131
//*        THIS IS A COLLECTION OF BATCH UTILTITY PGMS. MY          *   FILE 131
//*        INTENT IS TO PUT TOGETHER A FILE OF THESE PGMS FOR       *   FILE 131
//*        SHARE. SOME ARE ORIGINAL AND MOST WERE OBTAINED FROM     *   FILE 131
//*        OUR OS/MVT DAYS AND CONVERTED. IT IS EMBARRASSING TO     *   FILE 131
//*        TELL MANAGEMENT THAT USERS HAVE LOST FUNCTION MIGRAT-    *   FILE 131
//*        ING TO MVS AND ALL OF ITS WONDERS. HOPEFULLY I CAN       *   FILE 131
//*        DONATE SOME OF THESE HANDY UTILITIES TO OTHERS WHO       *   FILE 131
//*        WERE NOT LUCKY ENOUGH TO HAVE AN IBM 360 WITH OS/MVT     *   FILE 131
//*        ALOT WAS DEVELOPED FOR OS/MVT AND MUCH OF IT IS STILL    *   FILE 131
//*        APPLICABLE.                                              *   FILE 131
//*                                                                 *   FILE 131
//*        D I S C L A I M E R S  !!!!!                             *   FILE 131
//*        *************************************                    *   FILE 131
//*        USE ALL OF THESE AT YOUR OWN RISK, NATURALLY!            *   FILE 131
//*        *************************************                    *   FILE 131
//*                                                                 *   FILE 131
//*        THE FILE IS CONSTRUCTED AS FOLLOWS: THE SOURCE IS        *   FILE 131
//*        PUT IN AS A NAME. THEN IF THERE IS ANY INSTRUCTIONS,     *   FILE 131
//*        GUIDANCE, ETC, THAT MEMBER IS SUFFIXED WITH A #. THE     *   FILE 131
//*        IF JCL IS INVOLVED, THEN MOST ALWAYS THE JCL IS          *   FILE 131
//*        SUFFIXED WITH A $.                                       *   FILE 131
//*                                                                 *   FILE 131
//*        FOR EXAMPLE:   UTIL    - SOURCE MEMBER                   *   FILE 131
//*                       UTIL#   - ADDITIONAL INFORMATION          *   FILE 131
//*                       UTIL$   - JCL TO INSTALL                  *   FILE 131
//*                                                                 *   FILE 131
//*        CHANGE ACTIVITY LOG:                                     *   FILE 131
//*                                                                 *   FILE 131
//*        --------------------------------------------------       *   FILE 131
//*        RELEASE 19                                               *   FILE 131
//*        IEFUJI   - ADDED.                                        *   FILE 131
//*        IEFUTL   - UPDATED                                       *   FILE 131
//*        IEFU83   - UPDATED                                       *   FILE 131
//*        MACROS   - PACKAGED TO INCLUDE ALL MACROS.               *   FILE 131
//*        OLDCVXIT - DELETED. WAS THE MVS 3.8 VERSION              *   FILE 131
//*        OLDCR2D2 - DELETED. WAS THE MVS 3.8 VERSION              *   FILE 131
//*        PDSGAS   - UPDATED FOR 3380S AND MVS/XA 2.2.0            *   FILE 131
//*        SETINIT  - ADDED.                                        *   FILE 131
//*        SYSLOG   - ADDED.                                        *   FILE 131
//*        TAPESCAN - UPDATED FOR 3480 SUPPORT (FRANK PAJERSKI)     *   FILE 131
//*        --------------------------------------------------       *   FILE 131
//*        RELEASE 18                                               *   FILE 131
//*        $$PROSEO -  DELETED. $$PROSE GOES BACK FAR ENOUGH        *   FILE 131
//*        COPYREC  -  ADDED                                        *   FILE 131
//*        BLOKHD   -  ADDED                                        *   FILE 131
//*        BLOKHF   -  ADDED                                        *   FILE 131
//*        BLOKLTR  -  ADDED                                        *   FILE 131
//*        BLOKPDS  -  ADDED                                        *   FILE 131
//*        GETDATE  -  ADDED                                        *   FILE 131
//*        --------------------------------------------------       *   FILE 131
//*        RELEASE 17                                               *   FILE 131
//*        $$PROSEX -  DELETED. IT WAS OVER 4 YRS OLD.              *   FILE 131
//*        --------------------------------------------------       *   FILE 131
//*        RELEASE 16. HAVE CHECKED OUT ALOT OF PGMS WITH MVS/XA,   *   FILE 131
//*                    LOOK AT THE DESCRIPTION TO SEE WHAT EACH     *   FILE 131
//*                    ONE STATUS IS.                               *   FILE 131
//*                                                                 *   FILE 131
//*        GDDM     - MOVED TO TSO FILE SINCE IT MORE TSO RELATED.  *   FILE 131
//*        J13X1    - NARRATIVE TO SOLVE A XEROX 8700 PROBLEM       *   FILE 131
//*                   WHEN YOU PUT 2 OR 4 PAGES PER PHYSCIAL PAGE   *   FILE 131
//*                   AND REQUEST MULTI-COPIES.                     *   FILE 131
//*                                                                 *   FILE 131
//*        SMFXTRCT - FIXED 0C4 BUG FOR RECORDS OVER 6416.          *   FILE 131
//*        SPANCOPY - FIXED BUG WITH PARM=SMF AND MVS/XA.           *   FILE 131
//*        ------------------------------------------------------   *   FILE 131
//*                                                                 *   FILE 131
//*        10 OCT 86 - AS I CHECK OUT THE DIFFERENT PGMS ON AN      *   FILE 131
//*                    MVS/XA SYSTEM I WILL NOTE IT IN THE REL      *   FILE 131
//*                    FIELD. MY SCHEME OF THINGS IS AS FOLLOWS:    *   FILE 131
//*                                                                 *   FILE 131
//*            X     - CHECKED OUT ON MVS/XA                        *   FILE 131
//*            Y     - RUNS ONLY MVS/SP AND I WILL NOT PURSUE       *   FILE 131
//*                    THE CHANGES TO MVS/XA, YOU CAN DO IT         *   FILE 131
//*                    AND I WOULD APPRECIATE THE CODE IF SO.       *   FILE 131
//*                    (MAY WORK IN MVS/SP, YOU CAN TRY).           *   FILE 131
//*            N     - ONLY RUNS IN MVS/SP, NEEDS CONVERSION        *   FILE 131
//*            Z     - RUNS NOW IN MVS/XA BUT WAS CONVERTED         *   FILE 131
//*                    AND IF YOU WANT IT TO WORK IN MVS/SP         *   FILE 131
//*                    YOU NEED TO LOOK IN CODE AND CHANGE A        *   FILE 131
//*                    CONDITIONAL ASSEMBLY.                        *   FILE 131
//*            BLANK - NEEDS TO BE DETERMINED, WILL GET TO IT       *   FILE 131
//*     ----------------------------------------------------------  *   FILE 131
//*                                                                 *   FILE 131
//*       SUMMARY OF THE MODULES CONTAINED.                         *   FILE 131
//*                                                                 *   FILE 131
//*       UTIL     REL          DESCRIPTION                         *   FILE 131
//*                                                                 *   FILE 131
//*       ASKOPER   1    PASS THE OPERATOR A QUESTION WITH A PARM   *   FILE 131
//*                      AND REPLY OF YES GIVES RC=0 AND NO GIVES   *   FILE 131
//*                      RC=4                                       *   FILE 131
//*                                                                 *   FILE 131
//*       ASMBOX1   1    PUT A NICE LOOKING BOX AROUND YOUR         *   FILE 131
//*                      ASSEMBLY LISTING OUTPUT. LINECT FOR        *   FILE 131
//*                      ASSEMBLY LISTING IS 53. CODE IS 3800       *   FILE 131
//*                      DEPENDENT.                                 *   FILE 131
//*                                                                 *   FILE 131
//*       ASMHNOX   1    A PTF FOR AN ASSEMBLER H BUG.              *   FILE 131
//*                      AS YOU KNOW ASM H IS CLASS C NOW.          *   FILE 131
//*                                                                 *   FILE 131
//*       ASMR90    1    ROTATE 90 DEGREES ASSEMBLY LISTINGS        *   FILE 131
//*                      ON THE 3800 TYPE PRINTERS.                 *   FILE 131
//*                                                                 *   FILE 131
//*       BLOKHD    1X   GODDARD SPACE FLT CENTER UTILITY TO        *   FILE 131
//*                      PRODUCE 12X12 BLOCK LETTERS UP TO 8        *   FILE 131
//*                      ACROSS THE PAGE AND FOUR BLOCK LINES PER   *   FILE 131
//*                      PAGE.                                      *   FILE 131
//*                                                                 *   FILE 131
//*       BLOKHF    1X   FORTRAN INTERFACE MODULE SO YOU CAN CALL   *   FILE 131
//*                      'BLOKHD' FROM FORTRAN CODE.                *   FILE 131
//*                                                                 *   FILE 131
//*       BLOKLTR   1X   FORTRAN PGM THAT PRODUCES BLOCK LETTERS    *   FILE 131
//*                      ONE PER PAGE (SIDEWAYS).                   *   FILE 131
//*                                                                 *   FILE 131
//*       BLOKPDS   1X   TAKES A SEQUENTIAL SOURCE FILE CREATED     *   FILE 131
//*                      BY UTIL 'LISTPDS' AND CREATES A PRINT      *   FILE 131
//*                      FILE WITH 12X12 BLOCK LETTERS BEFORE       *   FILE 131
//*                      EACH MEMBER IN THE LISTING. GREAT FOR      *   FILE 131
//*                      WHEN YOU PUT SOURCE ON MICROFICHE. SEE     *   FILE 131
//*                      DOC IN CODE.                               *   FILE 131
//*                                                                 *   FILE 131
//*       CATLIST   1    THIS PROGRAM IS FROM MIKE LOOS, DELUXE     *   FILE 131
//*                      CHK PRINTERS. THIS WILL DO A VERY FAST     *   FILE 131
//*                      LIST OF AN ICF CATALOG FOR GDG'S AND       *   FILE 131
//*                      NONVSAM DSNS.  LISTING IS IN THE SAME      *   FILE 131
//*                      FORMAY AS IDCAMS (WE USED IT TO BUILD A    *   FILE 131
//*                      TMC) BUT THE OUTPUT FORMAT WOULD BE VERY   *   FILE 131
//*                      EASY TO CHANGE. SEE COMMEMTS IN THE CODE   *   FILE 131
//*                      FOR AN EXPLANATION OF ITS SPEED AND        *   FILE 131
//*                      RELATION TO RACF.                          *   FILE 131
//*                                                                 *   FILE 131
//*       COPYFILE  3    POWERFUL COPY TAPE TYPE PROGRAM. IF YOU    *   FILE 131
//*                      HAVE MULTIFILE SL TAPES WILL COPY          *   FILE 131
//*                      SELECTED FILES VIA A CONTROL CARD.         *   FILE 131
//*                                                                 *   FILE 131
//*       COPYREC   3X   PROVIDE FOR A SELECTIVE COPY OF RECORDS    *   FILE 131
//*                      VIA A CONTROL CARD FOR 80 BYTE RECORDS.    *   FILE 131
//*                      LIKE 1-100, 450-800, 900-950.              *   FILE 131
//*                                                                 *   FILE 131
//*       CT        3X   AIR FORCE DEVELOPED HIGH SPEED TAPECOPY    *   FILE 131
//*                      PGM.  RUNS AT EXCP SPEED. COPIES LABELED   *   FILE 131
//*                      OR UNLABLED SINGLE OR MULTIFILE, AND IF    *   FILE 131
//*                      ONE ONE REEL AN AN OPTION TO VERIFY BYTE   *   FILE 131
//*                      FOR BYTE. COPIES MULITVOLUME OR            *   FILE 131
//*                      MULTIFILE & MULTIVOLUME WITH NO VERIFY     *   FILE 131
//*                      FUNCTION.                                  *   FILE 131
//*                                                                 *   FILE 131
//*       C3PO      1Y   BRIAN SCOTT OF THE US POSTAL SERVICE,      *   FILE 131
//*                      TOPEKA KA WROTE C3PO TO BE THE SRB         *   FILE 131
//*                      RECEIVER FOR R2D2.  R2D2 NEEDS A TASK OF   *   FILE 131
//*                      SOME KIND GOING TO BUMP THE SRB OFF OF.    *   FILE 131
//*                      MOST PEOPLE HAVE BEEN USING #CMD           *   FILE 131
//*                      SUBSYSTEM AND SOME OTHER BRAVE SOLES,      *   FILE 131
//*                      JES2. PLUS NOW C3PO WILL TALK TO YOU IF    *   FILE 131
//*                      YOU WANT. ANYONE WANTS TO INCREASE HIS     *   FILE 131
//*                      VOCABULARY IS WELCOME. HAVE NOT INSTALLED  *   FILE 131
//*                      IT THIS WAY BUT WILL WHEN I GO TO          *   FILE 131
//*                      MVS/SP1.3.                                 *   FILE 131
//*                                                                 *   FILE 131
//*       C3PO2     1Y   SAME AS ABOVE, BUT WITH A STIMER IN IT     *   FILE 131
//*                      FOR PEOPLE WHO DO NOT WNAT TO RUN C3PO     *   FILE 131
//*                      WITH TIME=1440.                            *   FILE 131
//*                                                                 *   FILE 131
//*       DELINK0   2    SOURCE CARDS FOR IBM FE PROGRAM TO         *   FILE 131
//*                      'DELINK' WE RECONSTRUCTED THE SOURCE       *   FILE 131
//*                      IMAGES WITH A DISASSEMBLER AND ALOT OF     *   FILE 131
//*                      PATIENCE.  FUN !!!                         *   FILE 131
//*                                                                 *   FILE 131
//*       DISKMAP   3Y   DISKMAP PROGRAM THAT HAS 3330 SUPPORT,     *   FILE 131
//*                      3350, 3850 SUPPORT INCLUDED. GIVES         *   FILE 131
//*                      SIMILIAR INFO TO A COMPAKTOR MAP. THIS     *   FILE 131
//*                      NOW DOES NOT UPDATE LASTUSE DATE  FOR      *   FILE 131
//*                      EVERY FILE ON THE PACK. NOT NOT REALLY     *   FILE 131
//*                      TRUE FOR PDS'S,  SO STILL BEWARE.          *   FILE 131
//*                                                                 *   FILE 131
//*       EALSD095  1    EASTERN AIRLINES UPDATE OF THE STANDARD    *   FILE 131
//*                      IBM BLOCK LETTER ROUTINE IEFSD095 WHICH    *   FILE 131
//*                      WAS USED FOR BANNER PAGES. THE UPDATED     *   FILE 131
//*                      VERSION HAS ALL THE SPECIAL CHARACTERS     *   FILE 131
//*                      INCLUDED IN IT.                            *   FILE 131
//*                                                                 *   FILE 131
//*       EXCPMOD   1Y   MOD (ZAP) TO SHOW EXCP COUNTS ON JCL       *   FILE 131
//*                      LISTING.  MVS/SP1.1                        *   FILE 131
//*                                                                 *   FILE 131
//*       EXIMPORT  1    THIS PROGRAM IS FROM MIKE LOOS, DELUXE     *   FILE 131
//*                      CHK PRINTERS. WILL CREATE 2 JCL FILES, A   *   FILE 131
//*                      CLIST, AND A SYSPRINT LISTING. THE JCL     *   FILE 131
//*                      FILES HAVE A SET OF EXPORT AND IMPORT JCL  *   FILE 131
//*                      DESIGNED TO EXPORT (VSAM) AND IEBGENER     *   FILE 131
//*                      (DSORG=PS) ALL DATASETS ON A VOLUME TO     *   FILE 131
//*                      TAPE AND RESTORE THEM WITH IMPORT (VSAM)   *   FILE 131
//*                      AND IEBGENER (DSORG=PS) FROM TAPE TO       *   FILE 131
//*                      DISK. THE VSAM PORTION WORKS ONLY FOR      *   FILE 131
//*                      UNIQUE DATASETS (DFEF) AND BASE CLUSTERS   *   FILE 131
//*                      ONLY. SEE THE CODE FOR FURTHER             *   FILE 131
//*                      EXPLANATIONS AND RESTRICTIONS.             *   FILE 131
//*                                                                 *   FILE 131
//*       EXIT002   1Y   JES2/SP1.3 EXIT 2. TAKES TIME OFF THE      *   FILE 131
//*                      JOBCARD TO ENFORCE INTERNAL STANDARD FOR   *   FILE 131
//*                      JOB CLASS.  FROM AFDSC.                    *   FILE 131
//*                                                                 *   FILE 131
//*       EXIT006   1Y   JES2/SP1.3 EXIT 6. PUT TIME BACK ON THE    *   FILE 131
//*                      JOBCARD FOR THE APPROPRIATE JOB CLASS.     *   FILE 131
//*                      ALSO SEE NOTE OF HOW TO DISPLAY INTERNAL   *   FILE 131
//*                      TEXT FOR ANY FIELD YOU WANT TO DISPLAY.    *   FILE 131
//*                      FROM AFDSC.                                *   FILE 131
//*                                                                 *   FILE 131
//*       GETDATE   1X   ANOTHER PROGRAM TO DO DATE CONVERSION.     *   FILE 131
//*                      ALSO RETURNS THE DAY OF THE WEEK AND ALSO  *   FILE 131
//*                      A FLAG IF IT IS A USER DEFINE HOLIDAY.     *   FILE 131
//*                      USEFUL IN PGMS FOR SMF                     *   FILE 131
//*                                                                 *   FILE 131
//*       IDATE     1    SEE PGM DOCUMENTATION TO SEE ALL THE WAYS  *   FILE 131
//*                      IT CAN CONVERT A DATE, MANY, MANY,......   *   FILE 131
//*                                                                 *   FILE 131
//*       IEECVXIT  1    COMBINED VERSION OF 'IEECVXIT AND          *   FILE 131
//*                      'IEECR2D2'.  CODED THE WAY IT SHOULD IF    *   FILE 131
//*                      YOU A GENIUS. SCH- EDULES AN SRB TO GET    *   FILE 131
//*                      AROUND THE FACT THE MOVED WQE CHAIN IN     *   FILE 131
//*                      SP1.3. NEEDS SOMETHING RUNNING ALL THE     *   FILE 131
//*                      TIME TO BUMP THE SRB OFF OF WHEN IEECR2D2  *   FILE 131
//*                      REQUIRED. CODER USED THE #CMD SUBSYSTEM,   *   FILE 131
//*                      YOU COULD HAVE USED JES2 HE SAYS. TIME     *   FILE 131
//*                      DEPENDENT CODE HAS BEEN REMOVED AND WORKS  *   FILE 131
//*                      IN ALL VERSIONS OF MVS/SP.    WE ARE       *   FILE 131
//*                      SAVED !!                                   *   FILE 131
//*                                                                 *   FILE 131
//*                      AFDSC DEVELOPED 'MCS EXIT'. HAS THE        *   FILE 131
//*                      CAPABILITY TO SUPPRESS OR CHNGE ROUTE      *   FILE 131
//*                      CODES, DESC, CODES, ETC. BUT WITH THIS ONE *   FILE 131
//*                      WILL UTILITIZE 'R2D2' TO DO AUTOMATIC      *   FILE 131
//*                      OPERATOR REPLIES AND STC'S BASED UPON WHAT *   FILE 131
//*                      COMES ACROSS CONSOLE. IS NOT DEPENDENT     *   FILE 131
//*                      UPON THE OPERATOR BEING AWAKE.  AFDSC      *   FILE 131
//*                      DEVELOPED VERSION OF THE FAMOUS 'R2D2'.    *   FILE 131
//*                      LITTLE CREATURE WILL DO AUTOMATIC START    *   FILE 131
//*                      CMDS FOR THINGS THAT NEED TO BE STARTED    *   FILE 131
//*                      BASED UPON WHAT COMES ACROSS SCREEN AND IS *   FILE 131
//*                      DETECTED BY IEECVXIT. R2D2 WILL DO THE     *   FILE 131
//*                      AUTOMATIC REPLIES, RMF (R XX,GO),          *   FILE 131
//*                      ALLOCATION (R XX,NOHOLD) EVER HAD OPERATOR *   FILE 131
//*                      TURN YOUR 3081 MVS SYSTEM TO OS/MVT SYSTEM *   FILE 131
//*                      BY LOCKING Q4 (R XX,HOLD).  LITTLE CRITTER *   FILE 131
//*                      HAS ALOT OF POSSIBILITIES.                 *   FILE 131
//*                                                                 *   FILE 131
//*       IEFUJI    1    IBM STANDARD SMF EXIT, IEFUJI. HAS CODE    *   FILE 131
//*                      TO PASS USER FIELDS TO UCC-1 (NO CA-1).    *   FILE 131
//*                                                                 *   FILE 131
//*       IEFUTL    2    IBM STANDARD SMF EXIT, IEFUTL. WAIT TIME   *   FILE 131
//*                      AND CPU TIME EXCESSION FOR BATCH AND TSO.  *   FILE 131
//*                      NOT MUCH CODE BUT ONE THING IT CAN DO IS   *   FILE 131
//*                      TO ELIMINATE S522 ABENDS CAUSED BY         *   FILE 131
//*                      OPERATORS.                                 *   FILE 131
//*                                                                 *   FILE 131
//*       IEFU29    1    DETECT SMF SWITCH AND SCHEDULE A JOB THAT  *   FILE 131
//*                      DUMPS SMF DATASETS. MOVED THESES FUNCTIONS *   FILE 131
//*                      FROM THE 'MCS' EXIT TO THIS EXIT (WHERE IT *   FILE 131
//*                      SHOULD BE).                                *   FILE 131
//*                                                                 *   FILE 131
//*       IEFU83    3    AFDSC DEVELOPED SMF EXIT, 'IEFU83'. HAS    *   FILE 131
//*                      ALL STANDARD SUGGESTION FOR TYPE 40 RECS,  *   FILE 131
//*                      0 EXCP COUNTS, ETC. THIS ONE IS BRANCH     *   FILE 131
//*                      TABLE DRIVEN, IS A GOOD PLACE TO BEGIN     *   FILE 131
//*                      FOR THOSE WHO WANT TO EXPAND ON ITS CODE.  *   FILE 131
//*                      ALSO LOOKS AT 14&15'S ETC.  ADDED TYPE 21  *   FILE 131
//*                      SUPPORT TO TELL OPERATORS TO CLEAN TAPE    *   FILE 131
//*                      DRIVE IF YOU ENCOUNTER PERM CHECK OR TOO   *   FILE 131
//*                      MANY TEMPORARY ERRORS.                     *   FILE 131
//*                                                                 *   FILE 131
//*       INCORZAP  2    SOURCE FOR THE FAMOUS 'INCORZAP' THAT IS   *   FILE 131
//*                      KNOWN ONLY IN OBJECT FORM. THANKS BILL     *   FILE 131
//*                      GODFREY FOR DISASSEMBLY AND PATIENCE.      *   FILE 131
//*                                                                 *   FILE 131
//*       IGG019WD  1X   APPENDAGE FOR RECOVERY FROM WRONG DENSITY  *   FILE 131
//*                      TAPE VOLUMES, USED BY TAPE UTLITIES        *   FILE 131
//*                                                                 *   FILE 131
//*       IGG019WE  1X   APPENDAGE TO PREVENT ERROR AT EOF, USED    *   FILE 131
//*                      BY TAPE UTILITIES.                         *   FILE 131
//*                                                                 *   FILE 131
//*       INCORZZP  1    ZAP TO THE 'INCORZAP' PROGRAM SO IT WILL   *   FILE 131
//*                      RUN UNDER ANY NAME.                        *   FILE 131
//*                                                                 *   FILE 131
//*       J13X1     3    SP1.3 EXIT.  SEPARATOR (PRINT&PUNCH) FOR   *   FILE 131
//*                      JES2. HAS EXIT255 INVOKED TO PRINT OFF A   *   FILE 131
//*                      RECEIPT ON SEPARATE IBM3287 MCS PRINTER.   *   FILE 131
//*                      ADDED SOME CODE FOR PRINTING OFF NJE PRT   *   FILE 131
//*                      FROM VM/RSCS. ALSO ADDED SOME CODE FOR     *   FILE 131
//*                      X8700 PRT.  CONVERTED TO JES2/SP1.3.4      *   FILE 131
//*                                                                 *   FILE 131
//*       J13X1ACT  2    SP1.3 EXIT.  ACCOUNT USED TO BILL X8700    *   FILE 131
//*                      PRTER TO VM/RSCS/NJI PRINT.  RSCS OUTPUT   *   FILE 131
//*                      DOESN'T COME ACROSS WITH JES2 ACCT INFO    *   FILE 131
//*                      IN THE JOBCARD.                            *   FILE 131
//*                                                                 *   FILE 131
//*       J13X1XF   2    SP1.3 EXIT.  X8700 VALID FORMS USED TO     *   FILE 131
//*                      BUILD 'DJDE' RECORD TO BE PUMPED TO X8700  *   FILE 131
//*                      PRINTER.                                   *   FILE 131
//*                                                                 *   FILE 131
//*       J13X3     1    JES2/SP1.3 EXIT3. JOB CARD SCAN EXIT,      *   FILE 131
//*                      ALSO HAS OTHER FEATURES. WE DO VALIDATION  *   FILE 131
//*                      OF ACCT CODES ON JOB CARD.                 *   FILE 131
//*                      CONVERTED TO JES2/SP1.3.4                  *   FILE 131
//*                                                                 *   FILE 131
//*       J13X4     1    JES2/SP1.3 EXIT4. JECL SCAN EXIT.          *   FILE 131
//*                      CONVERTED TO JES2/SP1.3.4                  *   FILE 131
//*                                                                 *   FILE 131
//*       J13X10    1    JES2/SP1.3 EXIT10. SUPPRESS JES2 WTO       *   FILE 131
//*                      MESGS JOB RECEIPT GENERATED FOR ALL PARTS  *   FILE 131
//*                      OF A JOB THAT IS PRINTED LOCALLY. IS       *   FILE 131
//*                      BECAUSE JES EXIT 1 PRODUCES RECEIPTS  TO   *   FILE 131
//*                      A 3287 TYPE PRINTER ALL PARTS OF A JOB     *   FILE 131
//*                      PRINTED LOCALLY.  THANKS CAPT JIM CARTER   *   FILE 131
//*                      AND LT PAUL FINDLEY CONVERTED TO           *   FILE 131
//*                      JES2/SP1.3.4                               *   FILE 131
//*                                                                 *   FILE 131
//*       J13X13    1    JES2/SP1.3 EXIT13. TSO/E EXIT.             *   FILE 131
//*                                                                 *   FILE 131
//*       J13X255   2    JES2/SP1.3 EXIT255. THIS IS MY EXIT THAT   *   FILE 131
//*                      IS INVOKED BY USER EXIT001 TO PRINT A      *   FILE 131
//*                      RECEIPT ON AN IBM3287 MCS PRINTER SET TO   *   FILE 131
//*                      ROUTCDE=(14).  OPERATORS NOW KNOW HOW      *   FILE 131
//*                      MANY LISTINGS THEY WILL FIND ON THE        *   FILE 131
//*                      PRINTERS.  CONVERTED TO JES2/SP1.3.4       *   FILE 131
//*                                                                 *   FILE 131
//*       JESXRDR   1Y   HURRAY BILL GODFREY, MY GENIUS. YOU CAN    *   FILE 131
//*                      SUBMIT JOBS TO A SECONDARY JES2 LIKE JESX  *   FILE 131
//*                      FROM THIS PGM. LOOK IN TSOSRC FILE YOU     *   FILE 131
//*                      WILL FIND 'SUBMITX' ALLOWS YOU TO SUBMIT   *   FILE 131
//*                      FROM TSO TO A SECONDARY JES2. (ALSO YOU    *   FILE 131
//*                      GET OUTPUTX, CANCELX, AND STATUSX) WITH    *   FILE 131
//*                      SUBMITX.  MAY NOT WORK BEYOND JES2/SP1.1   *   FILE 131
//*                                                                 *   FILE 131
//*       JES0001   1Y   SMP USERMOD TO ALLOW YOU TO DO TSO IN      *   FILE 131
//*                      SECONDARY JES,  ALSO STC'S ETC ETC.        *   FILE 131
//*                      MAY NOT WORK BEYOND JES2/SP1.1             *   FILE 131
//*                                                                 *   FILE 131
//*       LISTCTLG  1Y   LISTS OS CATALOGS EFFICIENTLY. UPDATED     *   FILE 131
//*                      FOR 3400 SERIES TAPE DRIVES, 3330 TYPE     *   FILE 131
//*                      DISKS, 3350'S AND, 3850 MSS. SEE THE       *   FILE 131
//*                      COMMENTS IN THE CODE FOR ADDITIONAL        *   FILE 131
//*                      CAPABILITIES OF THE PGM.                   *   FILE 131
//*                                                                 *   FILE 131
//*       LISTIDR   1    IMPROVED GODDARD SPACE CENTER PROGRAM FOR  *   FILE 131
//*                      LISTING 'IDR' RECORDS.                     *   FILE 131
//*                                                                 *   FILE 131
//*       LISTPDS   1    GODDARD SPACE FLIGHT CENTER, FAMOUS        *   FILE 131
//*                      'LISTPDS' PROGRAM. UPDATED SO WHEN YOU DO  *   FILE 131
//*                      THE FUNCTION SIMILIAR TO IEHLIST, LISTPDS, *   FILE 131
//*                      IT GIVES YOU THE SPF STATS, LIKE SPF 3.1   *   FILE 131
//*                      DOES. SEE THE LISTPDS# FOR ALL OF ITS      *   FILE 131
//*                      CAPABILITIES.                              *   FILE 131
//*                                                                 *   FILE 131
//*       LKEBOX1   1    PLACE NICE LOOKING BOX AROUND YOU LKED     *   FILE 131
//*                      LISTING FOR USE IN CONJUNCTION WITH        *   FILE 131
//*                      ASMBOX1.                                   *   FILE 131
//*                                                                 *   FILE 131
//*       LKEDMOD   1    LKED EDITOR ZAP, PUT TIME & DATE INTO      *   FILE 131
//*                      LOAD MODULES MVS/3.8                       *   FILE 131
//*                                                                 *   FILE 131
//*       LKEDMOD1  1Y   LKED EDITOR ZAP TO PUT TIME & DATE INTO    *   FILE 131
//*                      LOAD MODULES MVS/SP1.1                     *   FILE 131
//*                                                                 *   FILE 131
//*       LKED90    1    ROTATE LKED OUTPUT ON AN IBM 3800 90       *   FILE 131
//*                      DEGREES AND GET 2 PAGES ONTO 1.            *   FILE 131
//*                                                                 *   FILE 131
//*       MACROS    1    PACKAGED MOST MACROS IN THIS ONE MEMBER.   *   FILE 131
//*                      LOOK AT THE INSTALL JOBSTREAM TO SEE IF    *   FILE 131
//*                      YOU WILL NEED THEM. HAVE '><' IN PLACE OF  *   FILE 131
//*                      './' IN IEBUPDTE FORMAT SO USE 'PDSLOAD'   *   FILE 131
//*                      PGM AS I DID.                              *   FILE 131
//*                                                                 *   FILE 131
//*                      MACROS FOR THIS FILE ARE NOW INCLUDED      *   FILE 131
//*                                                                 *   FILE 131
//*                $-E          F-M             N-T       U-Z       *   FILE 131
//*               $#SVCKP       FLOAT         OPENIF    12345678    *   FILE 131
//*               $#SVCKS       IFIX          OPENIN                *   FILE 131
//*               $REGS         LOADIT        SEARCHDD              *   FILE 131
//*               @             LOADS         SNAPREGS              *   FILE 131
//*               CAPS          MOVE          STAE$                 *   FILE 131
//*               CLOSEIF       MSG           TESTOPEN              *   FILE 131
//*               COMMENT                     TRC                   *   FILE 131
//*               DFLOAT                                            *   FILE 131
//*               EDIT                                              *   FILE 131
//*                                                                 *   FILE 131
//*       MIRROR    1X   REVERSE THE DATA ON INPUT CARD IMAGE.      *   FILE 131
//*                      I.E.  1-80 IS NOW IN 80-1.                 *   FILE 131
//*                                                                 *   FILE 131
//*       MODREP    2    LPA MODULE REPLACEMENT PROGRAM OBTAINED    *   FILE 131
//*                      FROM THE CBT TAPE. MODIFIED AT AFDSC SO    *   FILE 131
//*                      IT WILL NOT ABEND WITH A S522. SEVERAL     *   FILE 131
//*                      OTHER BUGS FIXED.                          *   FILE 131
//*                                                                 *   FILE 131
//*       MSGWRITE  2X   SUBROUTINE USED BY SOME OF THE UTILITIES.  *   FILE 131
//*                                                                 *   FILE 131
//*       MSSMOUNT  1    ZAP TO LET TSO USERS MOUNT MSS VOLUMES     *   FILE 131
//*                      WITHOUT HAVING MOUNT ATTRIBUTE IN 'UADS'.  *   FILE 131
//*                                                                 *   FILE 131
//*       OFFLOAD   1    UNLOAD A PDS TO A SEQUENTIAL IEBUPDTE      *   FILE 131
//*                      DATASET.  FIXED BUG ABEND 103-4C FOR       *   FILE 131
//*                      UNBLOCKED PDS'ES.                          *   FILE 131
//*                                                                 *   FILE 131
//*       PARMBLOC  2    TAKE THE PARM FROM THE EXEC CARD AND       *   FILE 131
//*                      CREATE A BLOCK LETTER BANNER. HAS OPTIONS  *   FILE 131
//*                      TO SLANT ETC.  NICE FOR REPORTS.           *   FILE 131
//*                                                                 *   FILE 131
//*       PDSGAS    2X   ALLOW YOU FIND A 'GAS' MEMBER IN A PDS     *   FILE 131
//*                      PRO- VIDED  YOU HAVE NOT COMPRESSED THE    *   FILE 131
//*                      PDS. ASSIGNS MEMBER NAME OF $GASXXXX       *   FILE 131
//*                      WHERE XXXX GOES FROM 0001 TO 9999. THEN    *   FILE 131
//*                      IT IS CALLED BRUTE FORCE TO GO IN WITH     *   FILE 131
//*                      SPF 3.1 TO FIND IT. BUT !! WORKS NOW ON    *   FILE 131
//*                      3380S AND MVS/XA 2.2.0                     *   FILE 131
//*                                                                 *   FILE 131
//*       PDSLOAD   1    TAKE FILE WITH IEBUPDTE CONTROL CARDS IN   *   FILE 131
//*                      THEM, RELOAD TO A PDS. WILL PUT IN SPF     *   FILE 131
//*                      STATS AND USEFUL FOR FILES UNLOADED BY     *   FILE 131
//*                      OFFLOAD PGM TO FROM CBT TAPE. CAN CHANGE   *   FILE 131
//*                      THE IMBEDDED '><' TO './' AS YOU RELOAD.   *   FILE 131
//*                                                                 *   FILE 131
//*       PDSMATCH  1    COMPARE THE DIRECTORY OF 2 PDS'S. HAS      *   FILE 131
//*                      MANY OPTIONS. REFER TO THE COMMENTS IN     *   FILE 131
//*                      THE CODE FOR HOW TO RUN THIS UTILITY.      *   FILE 131
//*                                                                 *   FILE 131
//*       PDSPROGM  1    USED FOR DELETING AND RENAMING MEMBERS OF  *   FILE 131
//*                      PDS FROM A BATCH JOB. MUCH EASIER TO USE   *   FILE 131
//*                      THAN IEHPROGM.                             *   FILE 131
//*                                                                 *   FILE 131
//*       PDSPRINT  1X   ANOTHER PDS LIST OR PUNCH PROGRAM. CAN     *   FILE 131
//*                      FEED IT CONTROL CARDS FOR A MEMBER LIST    *   FILE 131
//*                      OR GIVE IT A CHARACTER STRING TO SCAN      *   FILE 131
//*                      FOR. MANY NICE                             *   FILE 131
//*                                                                 *   FILE 131
//*       PDSTEST   1    VERIFIES INTEGRITY OF A LOAD MODULE PDS    *   FILE 131
//*                      BY ISSUING 'LOAD' FOR EVERY MODULE IN THE  *   FILE 131
//*                      LOADLIB IF PROBLEMS OCCUR, THEN YOU ARE    *   FILE 131
//*                      TOLD OF THEM.                              *   FILE 131
//*                                                                 *   FILE 131
//*       PDSUTIL   1    ANOTHER PDS LIST TYPE PROGRAM.  THINGS IT  *   FILE 131
//*                      DOES, GIVES YOU A TABLE OF CONTENTS AS TO  *   FILE 131
//*                      WHAT PAGE EACH IS ON. HANDY                *   FILE 131
//*                                                                 *   FILE 131
//*       P38BOX1   1    SUBROUTINE FOR ASMBOX1.                    *   FILE 131
//*                                                                 *   FILE 131
//*       P38TURN   1    CHARACTER SET USED FOR THE 90 DEGREE       *   FILE 131
//*                      ROTATE.                                    *   FILE 131
//*                                                                 *   FILE 131
//*       RACHECK   1Y   EL-CHEAPO RACF SECURITY SVC. YALE          *   FILE 131
//*                      UNIVERSITY SVC 130 MADE TO GIVE DIRT-CHEAP *   FILE 131
//*                      SECURITY.  WE USE WHITE HAT - BALCK HAT    *   FILE 131
//*                      THEORY. EITHER YOU CAN GET TO IT OR NOT.   *   FILE 131
//*                      DOES NOT AFFECT STC OR SYSTEM CODE. LOOK   *   FILE 131
//*                      AT SVC TO SEE HOW WE GIVE ALL POWERFUL     *   FILE 131
//*                      SYSTEM PROGRAMMERS (WEARS WHITE HATS)      *   FILE 131
//*                      THE PRIVILEGES.  YA, YA.                   *   FILE 131
//*                                                                 *   FILE 131
//*       READF     1    SUBRNTES-READF,WRITEF,RESETF, INTENTED     *   FILE 131
//*                      FOR USE IN PLACE OF FORTRAN UNFORMATTED    *   FILE 131
//*                      I/O (REAL DOG) FORTRAN UNFORMATTED I/O     *   FILE 131
//*                      USES VBS RECORDS WHERE THIS USED FIXED     *   FILE 131
//*                      BLOCKED QSAM. SAVES ALOT OF CPU CYCLES.    *   FILE 131
//*                                                                 *   FILE 131
//*       ROTATER   1    SUBROUTINE USED IN ROTATE PGMS.            *   FILE 131
//*                      REPLACED P38R90 AND P38R90B.               *   FILE 131
//*                                                                 *   FILE 131
//*       SEEKMON   1Y   MVS VERSION OF OS/MVT SEEKMON.             *   FILE 131
//*                                                                 *   FILE 131
//*       SETINIT   1X   SETS INITIATORS BASED ON WHEN IT IS. HAVE  *   FILE 131
//*                      INITS SET FOR PRIME, EVENINGS, MIDS,       *   FILE 131
//*                      HOLIDAYS, ETC.                             *   FILE 131
//*                                                                 *   FILE 131
//*       SPANCOPY  1X   CLEANS UP FILES WITH SPANNED RECS.  IT     *   FILE 131
//*                      WILL DROP BAD SPANNED RECORDS, AND IF THE  *   FILE 131
//*                      FILE CONTAINS SMF RECORDS, THEN IT WILL    *   FILE 131
//*                      ATTEMPT TO GIVE YOU  AS MUCH INFORMATION   *   FILE 131
//*                      AS IT  CAN ON WHAT KIND OF RECS WERE       *   FILE 131
//*                      LOST.  GOODBYE S002 ABENDS FROM SMF DATA.  *   FILE 131
//*                                                                 *   FILE 131
//*       SMFXTRCT  2X   GENERALIZED SMF RECORD EXTRACTION UTILITY. *   FILE 131
//*                      SELECT BY RECORD TYPE, DATE INTERVAL, TIME *   FILE 131
//*                      INTERVAL, ETC  SEE  CODE FOR ALL           *   FILE 131
//*                      CAPABILITIES.                              *   FILE 131
//*                                                                 *   FILE 131
//*       STAE$     1    GENERALIZED ESTAE EXIT FOR MVS. SEE        *   FILE 131
//*                      COMMENTS FOR ITS CAPABILITIES.             *   FILE 131
//*                                                                 *   FILE 131
//*       STRMACS   1X   STRUCTURED PROGRAMMING MACROS FOR          *   FILE 131
//*                      ASSEMBLY LANGUAGE CODING. WAS CALLED       *   FILE 131
//*                      'CONCEPT 14' LONG AGO AND NEVER REALLY     *   FILE 131
//*                      CAUGHT ON. YOU WILL SEE CODE WRITTEN IN    *   FILE 131
//*                      IT AND THESE SHOULD WORK.  MACROS          *   FILE 131
//*                      INCLUDED ARE AS FOLLOWS:                   *   FILE 131
//*                                                                 *   FILE 131
//*                                                                 *   FILE 131
//*                      CASE      ELSE        EXITIF     POPNEST   *   FILE 131
//*                      CASENTRY  ENDCASE     GBLVARS    PUSHINS   *   FILE 131
//*                      CHKSTACK  ENDDO       GETCC      PUSHLAB   *   FILE 131
//*                      DO        ENDLOOP     IF         PUSHNEST  *   FILE 131
//*                      DOEXIT    ENDSRCH     IFPROC     STKINS    *   FILE 131
//*                      DOPROC    EXIT        POPINS     STRTDO    *   FILE 131
//*                                                       STRTSRCH  *   FILE 131
//*                                                                 *   FILE 131
//*       SYSLOG    1X   WRITE YOUR OPERATOR LOGS SAFELY AND        *   FILE 131
//*                      ALWAYS IN ORDER. SEE CODE FOR DETAILS      *   FILE 131
//*                                                                 *   FILE 131
//*       SYSREPRO  1X   SEQUENTIAL COPY UTILITY. IT IS LIKE        *   FILE 131
//*                      IEBGENER BUT MUCH FASTER. PRINTS OUT       *   FILE 131
//*                      DSNAMES, VOLSERS, DCB, ATTRIBUTES,         *   FILE 131
//*                      FILE SEQ NUMBER FOR EACH DATASET.          *   FILE 131
//*                                                                 *   FILE 131
//*       TANAL     3X   DO QUICK SCAN OF UNLABELLED OR LABELLED    *   FILE 131
//*                      TAPE TO GIVE YOU THE MAX AND MIN BLKSIZES  *   FILE 131
//*                      IN ALL FILES AND THE NUMBER OF BLOCKS IN   *   FILE 131
//*                      THE FILE.                                  *   FILE 131
//*                                                                 *   FILE 131
//*       TAPEL     3X   GIVES YOU A QUICK SCAN OF A TAPE AND GIVES *   FILE 131
//*                      INFO ON EACH FILE IN EASY TO READ FORM.    *   FILE 131
//*                      MADE FOR THE NOT TOO BRIGHT USER YOU MAY   *   FILE 131
//*                      HAVE.                                      *   FILE 131
//*                                                                 *   FILE 131
//*       TAPELZAP  1Y   ZAP TO FORCE OPER REPLY WITH 6 CHARACTER   *   FILE 131
//*                      VOL SER ON TAPE. DECREASE TAPES WITH       *   FILE 131
//*                      VOL=SER=U MVS/SP1.1                        *   FILE 131
//*                                                                 *   FILE 131
//*       TAPEMAP   1X   FAMOUS 'TAPEMAP' PROGRAM IN SOURCE CARD    *   FILE 131
//*                      FORM.  SURPRISING WHAT YOU CAN DO WITH A   *   FILE 131
//*                      DISASS- EMBLER AND A LOT OF TIME AND       *   FILE 131
//*                      PATIENCE.                                  *   FILE 131
//*                                                                 *   FILE 131
//*       TAPESCAN  1    MVS UPDATED VERSION FAMOUS 'TAPESCAN'.     *   FILE 131
//*                      UPDATED TO R4.4 FOR 3480 SUPPORT BY FRANK  *   FILE 131
//*                      PAJERSKI.  THE MAN IS NOTHING SHORT OF     *   FILE 131
//*                      "GREAT".                                   *   FILE 131
//*                                                                 *   FILE 131
//*       TIDY      1    CLEANS UP FORTRAN CODE.  LOOK AT COMMENTS  *   FILE 131
//*                      IN CODE TO SEE HOW TO RUN THE BEAST.       *   FILE 131
//*                                                                 *   FILE 131
//*       TIDYASM   1    CLEANS UP ALC CODE.  LOOK AT COMMENTS IN   *   FILE 131
//*                      CODE TO SEE HOW TO RUN THE BEAST.          *   FILE 131
//*                                                                 *   FILE 131
//*       TLABEL    2    REPLACES IBM UTILITY 'IEHINIT', OPER       *   FILE 131
//*                      STARTABLE AND WILL ALLOW YOU TO PUT LABEL  *   FILE 131
//*                      TO TAPE OR JUST PUT A TAPEMARK ONTO THE    *   FILE 131
//*                      TAPE.  (RUNS AUTHORIZED)                   *   FILE 131
//*                                                                 *   FILE 131
//*       TLPRINT   3X   SUBROUTINE USED BY SOME  TAPE UTILITIES    *   FILE 131
//*                      TO FORMAT A LABEL OF A TAPE.               *   FILE 131
//*                                                                 *   FILE 131
//*       TMSLABL   1    FRONT-END TO UCC1 TMSTPNIT TO LABEL        *   FILE 131
//*                      TAPES. GETS AROUND SC03 ABEND PROBLEM      *   FILE 131
//*                      WITH MULTI-LINKS, WE ATTACH INSTEAD.       *   FILE 131
//*                                                                 *   FILE 131
//*       UNIVERT   1    PGM TO CONVERT CARD DECK DATA BACK AND     *   FILE 131
//*                      FORTH TO UNIVAC(FIELDATA). USES UNIVAC     *   FILE 131
//*                      TRANSLATE TABLES IN 2ND CSECT.             *   FILE 131
//*                                                                 *   FILE 131
//*       USRGUIDE  1    THIS IS THE 2ISG USER'S GUIDE. HOPEFULLY   *   FILE 131
//*                      IT WILL GIVE YOU AN IDEA OF HOW ONE        *   FILE 131
//*                      INSTALLATION WROTE ONE.                    *   FILE 131
//*                                                                 *   FILE 131
//*       VKILLER   1    SUBTASK FOR TAPEL TO LET YOU DO MULTI      *   FILE 131
//*                      TAPEL'S ON A NO. OF TAPES, THEN IT MAKE    *   FILE 131
//*                      IT QUIT, YOU TELL, KILL TO KILL TAPEL !!!  *   FILE 131
//*                                                                 *   FILE 131
//*       ZEBCOMPR  1    A ZAP TO THE IBM UTILITY 'IEBCOMPR' TO     *   FILE 131
//*                      DISPLAY UNMATCHED RECORDS IN EBCDIC        *   FILE 131
//*                      INSTEAD OF HEX. WE MADE A COPY OF          *   FILE 131
//*                      IEBCOMPR, CALLED IT ZEBCOMPR AND ZAPPED    *   FILE 131
//*                      IT.                                        *   FILE 131
//*                                                                 *   FILE 131
//*       ZTDUMPTP  1X   GENERALIZED TAPE DUMPING FACILITY. PUT IT  *   FILE 131
//*                      IN AN AUTHORIZED LIBRARY. VERY POWERFUL.   *   FILE 131
//*                      SEE COMMENTS IN CODE FOR FULL DETAILS.     *   FILE 131
//*                                                                 *   FILE 131
//*       ZTSECURE  1    MAKE SURE NO DATA IS BEYOND THE 2 DOUBLE   *   FILE 131
//*                      EOF MARKS ON TAPE. WILL DUMP FIRST 3       *   FILE 131
//*                      BLOCKS AND LAST BLK OF EVERY FILE. LEAPS   *   FILE 131
//*                      OVER DOUBLE END-OF-FILE MARKS & WRITE      *   FILE 131
//*                      BINARY PATTERN UNTIL HITS REFLECTIVE       *   FILE 131
//*                      STRIP.                                     *   FILE 131
//*                                                                 *   FILE 131
//***FILE 132 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 132
//*           THIS MEANS "SPLA TAPE FILE 032".                      *   FILE 132
//*                                                                 *   FILE 132
//*   H F000132 D=APR89                                             *   FILE 132
//*   T FILE 132 - ASSEMBLER(XF) MACRO REFERENCE LIST FROM US       *   FILE 132
//*                AIR FORCE                                        *   FILE 132
//*   K AIR FORCE AIRFORCE V27 JIM MARSHALL                         *   FILE 132
//*   K IFOX00 IFOXLIB AFOXLIB ASSEMBLER BAL ASM MACRO XREF         *   FILE 132
//*                                                                 *   FILE 132
//*    RELATED FILES: 131-133, 192, 194, 216-219, DOC  ALL FILES    *   FILE 132
//*                   MEMBER $$PROSE                                *   FILE 132
//*                                                                 *   FILE 132
//*    ASSEMBLER (XF) MACRO REFERENCE LIST                          *   FILE 132
//*                                                                 *   FILE 132
//*    DOCUMENTATION                                                *   FILE 132
//*                                                                 *   FILE 132
//*                                                                 *   FILE 132
//*      WRITTEN BY BILL GODFREY, PLANNING RESEARCH CORPORATION,    *   FILE 132
//*      PRC COMPUTER CENTER INC, MCLEAN VA 22101                   *   FILE 132
//*                                                                 *   FILE 132
//*      INSTALLED :   1 INFORMATION SYSTEMS GROUP, PENTAGON        *   FILE 132
//*                    2 INFORMATION SYSTEMS GROUP, SAN ANTONIO     *   FILE 132
//*                                                                 *   FILE 132
//*               JAMES D. MARSHALL  (CAPT USAF RETIRED)            *   FILE 132
//*               DEPARTMENT OF THE TREASURY                        *   FILE 132
//*               FINANCIAL MANAGEMENT SERVICE                      *   FILE 132
//*               3700 EAST-WEST HIGHWAY - ROOM 400B                *   FILE 132
//*               HYATTSVILLE, MD. 20782                            *   FILE 132
//*               (202) 874-8353                                    *   FILE 132
//*                                                                 *   FILE 132
//*     CHANGE LOG:                                                 *   FILE 132
//*                                                                 *   FILE 132
//*      7 APR 83 - DON MARQUARDT, MAY & SPEH, OAKBROOK, IL         *   FILE 132
//*                 (312) 620-8060 REPORTED THAT HE TRIED TO        *   FILE 132
//*                 INSTALL THE FILE USING THE MEMBER CALLED        *   FILE 132
//*                 'INSTALX' WHICH ESSENTIALLY USES SUPPLIED       *   FILE 132
//*                 MEMBERS OF OBJECT CODE. HE HAD TROUBLE, SO      *   FILE 132
//*                 USED THE MEMBER 'INSTALO' THAT FORCES YOU       *   FILE 132
//*                 TO REASSEMBLE EVERYTHING AND IT WORKED          *   FILE 132
//*                 WITH NO PROBLEMS. I HAVE NOT TRIED TO INSTALL   *   FILE 132
//*                 IT HERE, BUT DON SAYS IT GOES ON CLEAN IF       *   FILE 132
//*                 REASSEMBLE EVERYTHING.                          *   FILE 132
//*                                                                 *   FILE 132
//*       THE MACRO REFERENCE LIST IS A MODIFICATION TO THE         *   FILE 132
//*       IFOX00 ASSEMBLER WHICH PRODUCES A LISTING OF ALL          *   FILE 132
//*       MACRO AND COPY MODULE NAMES THAT THE ASSEMBLER            *   FILE 132
//*       READ FROM SYSLIB, ALONG WITH THE LIBRARY NUMBER,          *   FILE 132
//*       DSNAME, AND VOLUME WHERE THE MACRO WAS FOUND.             *   FILE 132
//*                                                                 *   FILE 132
//*       THE LISTING APPEARS IMMEDIATELY AFTER THE EXTERNAL        *   FILE 132
//*       SYMBOL DICTIONARY LISTING.                                *   FILE 132
//*                                                                 *   FILE 132
//*       THE LISTING IS GENERATED ONLY IF THERE IS                 *   FILE 132
//*       A 'MACREF' DD STATEMENT PRESENT. THE LISTING              *   FILE 132
//*       IS WRITTEN TO SYSPRINT, HOWEVER, SO THE 'MACREF' DD       *   FILE 132
//*       SHOULD BE DUMMY TO KEEP ALLOCATION OVERHEAD TO A          *   FILE 132
//*       MINIMUM, BECAUSE IT IS MERELY USED AS A SWITCH.           *   FILE 132
//*                                                                 *   FILE 132
//*       THE LISTING IS SORTED BY MACRO NAME WITHIN LIBRARY.       *   FILE 132
//*                                                                 *   FILE 132
//*       INSTALLATION REQUIRES TWO ASSEMBLIES (OPTIONAL, SINCE     *   FILE 132
//*       THE TWO OBJECT DECKS ARE PROVIDED), LINK-EDITING          *   FILE 132
//*       OF 4 MODULES, AND 3 SMALL ZAPS TO ONE MODULE.             *   FILE 132
//*                                                                 *   FILE 132
//*       DURING INSTALLATION, MODULE 'AFOX00' IS CREATED BY        *   FILE 132
//*       COPYING MODULE 'IFOX00', AND ZAPS ARE APPLIED TO          *   FILE 132
//*       'AFOX00'.  TO RUN TESTS AFTER INSTALLATION, YOU MUST      *   FILE 132
//*       EXECUTE 'AFOX00', NOT 'IFOX00'.  AFTER YOU ARE SATISFIED  *   FILE 132
//*       THAT IS WORKING, YOU MAY WANT TO APPLY THE ZAPS TO        *   FILE 132
//*       'IFOX00' TOO. (THIS IS SIMPLER THAN DELETING IFOX00       *   FILE 132
//*       AND RENAMING AFOX00 TO IFOX00, BECAUSE IFOX00 HAS         *   FILE 132
//*       ALIASES OF 'ASMBLR' AND 'IEUASM').                        *   FILE 132
//*                                                                 *   FILE 132
//*       IF YOU CHOOSE TO APPLY THE ZAPS TO 'IFOX00' ITSELF,       *   FILE 132
//*       THAT IS UP TO YOU.  IF YOU PREFER NOT TO DO THAT, YOU     *   FILE 132
//*       CAN STILL USE 'AFOX00', BECAUSE IT DOES NOT INTERFERE     *   FILE 132
//*       WITH THE UNMODIFIED 'IFOX00' AT ALL, EVEN IF THEY ARE     *   FILE 132
//*       BOTH IN THE SAME LOAD LIBRARY.                            *   FILE 132
//*                                                                 *   FILE 132
//*       DATA SETS REQUIRED DURING INSTALLATION.                   *   FILE 132
//*                                                                 *   FILE 132
//*       1) INSTALLATION SOURCE LIBRARY (YOU ARE READING           *   FILE 132
//*          A MEMBER OF IT).  THIS IS NAMED USERID.IFOLIB          *   FILE 132
//*          IN THE INSTALLATION JCL.  USED AS ASSEMBLER            *   FILE 132
//*          SYSIN AND SYSLIB.                                      *   FILE 132
//*                                                                 *   FILE 132
//*       2) INSTALLATION LOAD LIBRARY, WHERE 4 LOAD MODULES        *   FILE 132
//*          ARE TO BE WRITTEN. THIS IS NAMES USERID.LOAD           *   FILE 132
//*          IN THE INSTALLATION JCL.  OUTPUT ONLY. YOU MAY         *   FILE 132
//*          CREATE A NEW LOAD LIBRARY OR USE ONE OF YOUR           *   FILE 132
//*          EXISTING LOAD LIBRARIES ON YOUR SYSTEM.                *   FILE 132
//*                                                                 *   FILE 132
//*       3) OLD ASSEMBLER LOAD LIBRARY, WHERE YOU CURRENTLY HAVE   *   FILE 132
//*          YOUR ASSEMBLER.  THIS IS NEEDED FOR INPUT ONLY DURING  *   FILE 132
//*          LINKEDIT.  INSTALLATION JCL USES SYS1.LINKLIB.         *   FILE 132
//*                                                                 *   FILE 132
//*     DESCRIPTION OF SOURCE LIBRARY.                              *   FILE 132
//*       MEMBER 'IFOX0F' IS INPUT TO AN ASSEMBLY.                  *   FILE 132
//*               IT IS MODIFIED IBM SOURCE.                        *   FILE 132
//*       MEMBER 'IFNX4E' IS INPUT TO AN ASSEMBLY.                  *   FILE 132
//*               IT IS MODIFIED IBM SOURCE.                        *   FILE 132
//*                                                                 *   FILE 132
//*       MEMBER 'OFOX0F' IS OBJECT OUTPUT FROM AN ASSEMBLY.        *   FILE 132
//*       MEMBER 'OFNX4E' IS OBJECT OUTPUT FROM AN ASSEMBLY.        *   FILE 132
//*                                                                 *   FILE 132
//*       MEMBER 'MACREFBL' IS COPY CODE USED DURING AN ASSEMBLY.   *   FILE 132
//*       MEMBER 'MACREFGM' IS COPY CODE USED DURING AN ASSEMBLY.   *   FILE 132
//*       MEMBER 'MACREFFI' IS COPY CODE USED DURING AN ASSEMBLY.   *   FILE 132
//*       MEMBER 'MACREF4E' IS COPY CODE USED DURING AN ASSEMBLY.   *   FILE 132
//*              THESE 4 ARE ALL NEW CODE, NOT FROM IBM.            *   FILE 132
//*                                                                 *   FILE 132
//*       MEMBER 'XDICT' IS A MODIFIED VERSION OF THE MACRO         *   FILE 132
//*              FROM THE MVS PRIVATE MACROS LIBRARY.               *   FILE 132
//*                                                                 *   FILE 132
//*       MEMBER 'LINKIN' IS LINKAGE EDITOR CONTROL STATEMENTS.     *   FILE 132
//*       MEMBER 'ZAPIN' IS AMASPZAP CONTROL STATEMENTS.            *   FILE 132
//*       MEMBER 'INSTALL' IS INSTALLATION JCL USING SOURCE DECKS.  *   FILE 132
//*       MEMBER 'INSTALO' IS INSTALLATION JCL USING OBJECT DECKS.  *   FILE 132
//*       MEMBER '$DOC' IS DOCUMENTATION YOU ARE READING.           *   FILE 132
//*                                                                 *   FILE 132
//*       ALL OTHER MEMBERS ARE UNMODIFIED IBM SOURCE,              *   FILE 132
//*              MACROS FROM THE MVS PRIVATE MACROS LIBRARY.        *   FILE 132
//*                                                                 *   FILE 132
//*    3 ZAPS TO AFOX00                                             *   FILE 132
//*    VER 0414 E7F0F4, REP 0414 E7E7F4.  IFOX04 TO IFOXX4.         *   FILE 132
//*    VER 043A E7F4F1, REP 043A E7F4C1.  IFOX41 TO IFOX4A.         *   FILE 132
//*    VER 0441 E7F4F2, REP 0441 E7F4C2.  IFOX42 TO IFOX4B.         *   FILE 132
//*                                                                 *   FILE 132
//*    THE IBM SOURCE CODE FOR IFOX0F HAS BEEN KEEP UP TO           *   FILE 132
//*    DATE LOCALLY BY MODIFING OLDER IBM SOURCE CODE.              *   FILE 132
//*    THE OTHER IBM SOURCE CODE IS OF UNDETERMINED LEVEL.          *   FILE 132
//*                                                                 *   FILE 132
//*    MOST RECENT CHANGE: PTF UZ32460 (8010) TO IFOX0F.            *   FILE 132
//*                                                                 *   FILE 132
//*    TO COMPARE THE CODE WITH THE CURRENT IBM SOURCE              *   FILE 132
//*    (ON MICROFICHE FOR EXAMPLE), CHANGE THE 'SETB'               *   FILE 132
//*    FOR &MACREF TO ZERO (IN IFOX0F AND XDICT) AND ASSEMBLE.      *   FILE 132
//*    THIS WILL PRODUCE AN ASSEMBLY WITHOUT THE MODIFICATIONS,     *   FILE 132
//*    WHICH YOU CAN COMPARE TO THE MICROFICHE OR TO AN AMASPZAP    *   FILE 132
//*    DUMP OF YOUR CURRENT UNMODIFIED ASSEMBLER.                   *   FILE 132
//*                                                                 *   FILE 132
//*    IN THE MODIFIED VERSION OF THE ASSEMBLER,                    *   FILE 132
//*    -   MODULE AFOX00 REPLACES IFOX00 (BUT YOU CAN CALL IT       *   FILE 132
//*       IFOX00 IF YOU CHOOSE TO REPLACE IFOX00).                  *   FILE 132
//*    -   MODULE IFOXX4 IS USED INSTEAD OF IFOX04,                 *   FILE 132
//*    -   MODULE IFOX4A IS USED INSTEAD OF IFOX41,                 *   FILE 132
//*    -   MODULE IFOX4B IS USED INSTEAD OF IFOX42.                 *   FILE 132
//*                                                                 *   FILE 132
//*    IFOX41/4A IS USED WHEN THE 'TEST' OPTION IS NOT SPECIFIED.   *   FILE 132
//*    IFOX42/4B IS USED WHEN THE 'TEST' OPTION IS SPECIFIED.       *   FILE 132
//*    THE MODULE PRODUCED BY THE ASSEMBLY OF IFOX4E IS             *   FILE 132
//*    LINK-EDITED INTO BOTH IFOX4A AMD IFOX4B.                     *   FILE 132
//*                                                                 *   FILE 132
//***FILE 133 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 133
//*           THIS MEANS "SPLA TAPE FILE 033".                      *   FILE 133
//*                                                                 *   FILE 133
//*   H F000133 D=JUL86                                             *   FILE 133
//*   T FILE 133 - CATALOG PRINT/PUNCH FROM US AIR FORCE            *   FILE 133
//*   K AIR FORCE AIRFORCE V23 JIM MARSHALL                         *   FILE 133
//*   K CATALOG CATLG CATPTPCH IEHPROGM                             *   FILE 133
//*                                                                 *   FILE 133
//*    RELATED FILES: 131-133, 192, 194, 216-219, DOC  ALL FILES    *   FILE 133
//*                   MEMBER $$PROSE                                *   FILE 133
//*                                                                 *   FILE 133
//*                 C  A  T  P  T  P  C  H                          *   FILE 133
//*                                                                 *   FILE 133
//*              RELEASE    1      24 JULY 1984                     *   FILE 133
//*                                                                 *   FILE 133
//*     THIS IS THE SOURCE FILE TO ASSEMBLE A PROGRAM CALLED        *   FILE 133
//*    'CATPTPCH'. I OBTAINED IT FROM THE OS/MVT PROJECT TAPE       *   FILE 133
//*    WHEN I WAS ON OS/MVT. IT WILL ALLOW YOU TO OFFLOAD YOUR      *   FILE 133
//*    OS CATALOGS IN IEHPROGM PROGRAM FORMAT CONTROL CARDS. IT     *   FILE 133
//*    DOES ALL THE BLDG'S ETC NECESSARY TO REBUILD THE CATALOG.    *   FILE 133
//*    TRUE THERE ARE NICE NEAT PROGRAMS TO DO COPIES OF            *   FILE 133
//*    CATALOGS ETC.  BUT THERE IS JUST SOMETHING THAT GIVES YOU    *   FILE 133
//*    A WARM FEELING IN THE BOTTOM OF YOUR STOMACH WHEN YOU CAN    *   FILE 133
//*    SEE THE CATALOG REPRODUCED IN IEHPROGM CONTROL CARDS.        *   FILE 133
//*                                                                 *   FILE 133
//*     WE HAVE ADDED THE ADDITIONAL SUPPORT FOR ALL 3330           *   FILE 133
//*     DEVICES 3350'S. IT HAS SOME OTHER FUNCTIONS THAT ARE        *   FILE 133
//*     EXPLAINED IN THE MEMBER $DOC. THE CODE IS IN THE FORM       *   FILE 133
//*     OF MACROS AND I HAVE PUT A MEMBER CALLED $INSTALL TO        *   FILE 133
//*     DEMONSTRATE THE JCL REQUIRED FOR AN ASSEMBLY.  I WANT       *   FILE 133
//*     TO THANK DARRELL WILCOX OF KING COUNTY SYSTEMS FOR THE      *   FILE 133
//*     ORIGINAL CODE.  GOOD LUCK !!!!!                             *   FILE 133
//*                                                                 *   FILE 133
//*               JAMES D. MARSHALL  (CAPT USAF RETIRED)            *   FILE 133
//*               DEPARTMENT OF THE TREASURY                        *   FILE 133
//*               FINANCIAL MANAGEMENT SERVICE                      *   FILE 133
//*               3700 EAST-WEST HIGHWAY - ROOM 400B                *   FILE 133
//*               HYATTSVILLE, MD. 20782                            *   FILE 133
//*               (202) 874-8353                                    *   FILE 133
//*                                                                 *   FILE 133
//*      AS AN ADDED WORD HERE. I BELIEVE YOU WILL SEE THE SYSTEM   *   FILE 133
//*      ON THE MACRO FOR GENERATING THE CODE. WHEN IT WAS          *   FILE 133
//*      ORIGINALLY CODED I THINK 'SYSTEM=370' MEANT TO INCLUDE     *   FILE 133
//*      370 INSTRUCTIONS.  I TRIED THE CODE AND IT BLEW. SO I      *   FILE 133
//*      INTEND THE MEANING TO BE 'SYSTEM=360' TO BE FOR OS/MVT     *   FILE 133
//*      ON 360'S AND 370'S. AND 'SYSTEM=370' TO MEAN OS/MVS. I     *   FILE 133
//*      HAVE ONLY DONE THE FUNCTIONS TO PRINT THE CATALOG OFF OR   *   FILE 133
//*      PUNCH IT OFF. WILL PROBABLY CONTINUE TO PLAY WITH IT. IF   *   FILE 133
//*      YOU DISCOVER ANY BUGS, PLEASE SEND ME THE CORRECTIONS.     *   FILE 133
//*                                                                 *   FILE 133
//***FILE 134 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 134
//*           THIS MEANS "SPLA TAPE FILE 034".                      *   FILE 134
//*                                                                 *   FILE 134
//*   H F000134 D=SEP82                                             *   FILE 134
//*   T FILE 134 - SPF PANELS, MENUS, AND MESSAGES FROM             *   FILE 134
//*                DELUXE CHECK PRINTERS                            *   FILE 134
//*   K TSO SPF PANELS MENUS MESSAGES DELUXE CHECK MIKE LOOS        *   FILE 134
//*                V22                                              *   FILE 134
//*   K ABR COBOL GENER IEBGENER INFO MANAGEMENT FOREGROUND         *   FILE 134
//*                LINKAGE EDITOR                                   *   FILE 134
//*   K COMPARE PASSWORD SERIES/1 VTOC UTILITY TUTORIAL             *   FILE 134
//*                BACKGROUND                                       *   FILE 134
//*                                                                 *   FILE 134
//*      RELATED FILES: 134-136, 183. DOCUMENTATION IS IN           *   FILE 134
//*                     FILE 134 MEMBER $$$DOC.                     *   FILE 134
//*                                                                 *   FILE 134
//*             ANY INSTALLATION PROBLEMS OR FIXES TO BUGS MAY      *   FILE 134
//*                  BE ADDRESSED TO MIKE LOOS                      *   FILE 134
//*                                                                 *   FILE 134
//*                  Mike Loos                                      *   FILE 134
//*                  VP of Ops and Tech Support                     *   FILE 134
//*                  Fair, Isaac and Company, Inc.                  *   FILE 134
//*                  4295 Lexington Avenue North                    *   FILE 134
//*                  St. Paul, MN  55126                            *   FILE 134
//*                  mikeloos@fairisaac.com                         *   FILE 134
//*                                                                 *   FILE 134
//*             ALL PANELS AND OR MENUS AND OR MESSAGES AND OR      *   FILE 134
//*             SKELETONS ARE IN PDS1 AND HAVE BEEN CONVERTED TO    *   FILE 134
//*             THE NEWEST ISPF AND ISPF/PDF FORMATS 5668-960 AND   *   FILE 134
//*             5665-268 I THINK.                                   *   FILE 134
//*                                                                 *   FILE 134
//*             ALL CLISTS ARE IN PDS2.                             *   FILE 134
//*                                                                 *   FILE 134
//*             ALL PROGRAMS ARE IN PDS3.  (INCLUDING RACF)         *   FILE 134
//*                                                                 *   FILE 134
//*                                                                 *   FILE 134
//*                               DOCUMENTATION                     *   FILE 134
//*                          (THIS IS A PARTIAL LIST)               *   FILE 134
//*                                                                 *   FILE 134
//*      $$$$DISC  DISCLAIMER ON CONTENTS                           *   FILE 134
//*      $$$DOC    YOU ARE READING IT                               *   FILE 134
//*                                                                 *   FILE 134
//*                             SPF MENUS                           *   FILE 134
//*                                                                 *   FILE 134
//*      ABR*****  ABR UTILITY SELECTION AND FUNCTIONS PANELS       *   FILE 134
//*      COBOL2    FOREGROUND COBOL COMPILE PANEL                   *   FILE 134
//*      COBOL2B   BACKGROUND COBOL COMPILE PANEL                   *   FILE 134
//*      GENER1    FOREGROUND IEBGENER PANEL                        *   FILE 134
//*      INFOMGT1  INFO MANAGEMENT PANEL                            *   FILE 134
//*      INFOSEL   INFO MANAGEMENT DATABASE SELECTION PANEL         *   FILE 134
//*      ISR@PRIM  REPLACEMENT FOR PRIMARY OPTION MENU              *   FILE 134
//*      LINK3     FOREGROUND LINKAGE EDIT PANEL                    *   FILE 134
//*      LINK3B    BACKGROUND LINKAGE EDIT PANEL                    *   FILE 134
//*      PLTCMPR1  COMPARE UTILITY PANEL                            *   FILE 134
//*      PSWDSEL   PASSWORD (OS) MAINTENANCE SELECTION PANEL        *   FILE 134
//*      PWADD     PASSWORD (OS) ADDITION PANEL                     *   FILE 134
//*      PWCHNG    PASSWORD (OS) CHANGE PANEL                       *   FILE 134
//*      PWDEL     PASSWORD (OS) DELETION PANEL                     *   FILE 134
//*      S1ASM1    FOREGROUND SERIES 1 HOST ASSEMBLER PANEL         *   FILE 134
//*      S1ASM1B   BACKGROUND SERIES 1 HOST ASSEMBLER PANEL         *   FILE 134
//*      S1OBJ1    FOREGROUND SERIES 1 OBJECT SHIPPING PANEL        *   FILE 134
//*      USERSEL   USER UTILITY SELECTION MENU                      *   FILE 134
//*      USERSELB  USER BACKGROUND SELECTION MENU                   *   FILE 134
//*      USERVTOC  VTOC UTILITY PANEL                               *   FILE 134
//*                                                                 *   FILE 134
//*                             SPF TUTORIAL MENUS                  *   FILE 134
//*                                                                 *   FILE 134
//*      TABR****  ABR UTILITY FUNCTIONS TUTORIAL PANELS            *   FILE 134
//*      TPLTCMP*  COMPARE UTILITY TUTORIAL PANELS                  *   FILE 134
//*      TS1ASM1   SERIES1 OBJECT SHIPPING TUTORIAL PANEL           *   FILE 134
//*      TVTOC**   VTOC UTILITY TUTORIAL PANELS                     *   FILE 134
//*                                                                 *   FILE 134
//*                             SPF MESSAGES                        *   FILE 134
//*                                                                 *   FILE 134
//*      ABR00     ABR UTILITY FUNCTIONS MESSAGES                   *   FILE 134
//*      PLTCM00   COMPARE MESSAGES                                 *   FILE 134
//*      SASM00    SERIES 1 MESSAGES                                *   FILE 134
//*      VTOC00    VTOC UTILITY MESSAGES                            *   FILE 134
//*                                                                 *   FILE 134
//***FILE 135 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 135
//*           THIS MEANS "SPLA TAPE FILE 035".                      *   FILE 135
//*                                                                 *   FILE 135
//*   H F000135 D=SEP82                                             *   FILE 135
//*   T FILE 135 - SPF RELATED CLISTS FROM DELUXE CHECK             *   FILE 135
//*                PRINTERS                                         *   FILE 135
//*   K TSO SPF CLISTS DELUXE CHECK PRINTER MIKE LOOS V22           *   FILE 135
//*   K ABR PASSWORD GENER IEBGENER INFO MANAGEMENT                 *   FILE 135
//*                FOREGROUND COMPARE                               *   FILE 135
//*   K UTILITY SERIES/1 COBOL LINKAGE EDITOR VTOC UTILITY          *   FILE 135
//*                BACKGROUND                                       *   FILE 135
//*                                                                 *   FILE 135
//*      RELATED FILES: 134-136, 183. DOCUMENTATION IS IN FILE      *   FILE 135
//*                     134 MEMBER $$$DOC.                          *   FILE 135
//*                                                                 *   FILE 135
//*      ANY INSTALLATION PROBLEMS OR FIXES TO BUGS MAY BE          *   FILE 135
//*          ADDRESSED TO                                           *   FILE 135
//*                                                                 *   FILE 135
//*                  Mike Loos                                      *   FILE 135
//*                  VP of Ops and Tech Support                     *   FILE 135
//*                  Fair, Isaac and Company, Inc.                  *   FILE 135
//*                  4295 Lexington Avenue North                    *   FILE 135
//*                  St. Paul, MN  55126                            *   FILE 135
//*                  mikeloos@fairisaac.com                         *   FILE 135
//*                                                                 *   FILE 135
//*                             CLISTS                              *   FILE 135
//*                                                                 *   FILE 135
//*      ABR*****  ABR CLISTS                                       *   FILE 135
//*      ****PASS  PASSWORD (OS) MAINTENANCE CLISTS                 *   FILE 135
//*      GENER1    IEBGENER CLIST                                   *   FILE 135
//*      INFOMGT1  INFO MANAGEMENT CLIST                            *   FILE 135
//*      PLTCMPR   FOREGROUND COMPARE UTILITY CLIST                 *   FILE 135
//*                (REQUIRES SYNCSORT)                              *   FILE 135
//*      S1ASM1    FOREGROUND SERIES 1 HOST ASSEMBLER CLIST         *   FILE 135
//*      S1ASM1B   BACKGROUND SERIES 1 HOST ASSEMBLER CLIST         *   FILE 135
//*      S1OBJ1    FOREGROUND SERIES 1 OBJECT SHIPPING CLIST        *   FILE 135
//*      USERCOB   FOREGROUND COBOL COMPILER CLIST                  *   FILE 135
//*      USERCOBB  BACKGROUND COBOL COMPILER CLIST                  *   FILE 135
//*      USERLNK   FOREGROUND LINK EDIT CLIST                       *   FILE 135
//*      USERLNKB  BACKGROUND LINK EDIT CLIST                       *   FILE 135
//*      USERSELB  BACKGROUND SELECTION PROCESSING CLIST            *   FILE 135
//*      VTOCCMD1  VTOC UTILITY (REQUIRES VTOC COMMAND FROM CBT     *   FILE 135
//*                TAPE)                                            *   FILE 135
//*                                                                 *   FILE 135
//*           NOTE ON THE CLISTS:                                   *   FILE 135
//*              MOST OF THE PROGRAMS USED IN THE CLISTS ARE        *   FILE 135
//*              EXECUTED VIA THE "$" COMMAND WHICH SIMPLY USES     *   FILE 135
//*              THE PROGRAM FROM THE LINKLIST THIS COULD BE        *   FILE 135
//*              CHANGED TO "CALL 'LIBRARY(PROGRAM)'" IF YOU        *   FILE 135
//*              WISH ALSO IF THE COMMAND IS NOT STANDARD IBM       *   FILE 135
//*              IT IS PROBABLY ON THE CBT TAPE SOMEWHERE.          *   FILE 135
//*                                                                 *   FILE 135
//*           NOTE FROM BEN MOORE:                                  *   FILE 135
//*              THE $ COMMAND IS IN FILE 183 WHICH IS AN           *   FILE 135
//*              EARLIER VERSION OF THE DELUXE CHECK PRINTERS       *   FILE 135
//*              CONTRIBUTIONS WITH UPDATES BY HOWARD DEAN OF       *   FILE 135
//*              GTE.  I'LL KEEP BOTH SETS AROUND FOR A WHILE.      *   FILE 135
//*                                                                 *   FILE 135
//***FILE 136 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 136
//*           THIS MEANS "SPLA TAPE FILE 036".                      *   FILE 136
//*                                                                 *   FILE 136
//*   H F000136 D=SEP82                                             *   FILE 136
//*   T FILE 136 - SPF RELATED PROGRAMS FROM DELUXE CHECK           *   FILE 136
//*                PRINTERS                                         *   FILE 136
//*   K TSO SPF PROGRAMS DELUXE CHECK MIKE LOOS V22                 *   FILE 136
//*   K FOLDIT SMFSEL DLXSUBMT IKJEFF10 DLXPOST RACF SUBMIT         *   FILE 136
//*                EXIT PASSWORD                                    *   FILE 136
//*                                                                 *   FILE 136
//*      RELATED FILES: 134-136, 183. DOCUMENTATION IS IN FILE      *   FILE 136
//*                     134 MEMBER $$$DOC.                          *   FILE 136
//*                                                                 *   FILE 136
//*             ANY INSTALLATION PROBLEMS OR FIXES TO BUGS MAY      *   FILE 136
//*                 BE ADDRESSED TO                                 *   FILE 136
//*                                                                 *   FILE 136
//*                  Mike Loos                                      *   FILE 136
//*                  VP of Ops and Tech Support                     *   FILE 136
//*                  Fair, Isaac and Company, Inc.                  *   FILE 136
//*                  4295 Lexington Avenue North                    *   FILE 136
//*                  St. Paul, MN  55126                            *   FILE 136
//*                  mikeloos@fairisaac.com                         *   FILE 136
//*                                                                 *   FILE 136
//*                               PROGRAMS                          *   FILE 136
//*                                                                 *   FILE 136
//*      THERE IS A MORE DETAILED DESCRIPTION OF ALL THESE          *   FILE 136
//*      PROGRAMS IN THE BEGINNING OF THE CODE:                     *   FILE 136
//*                                                                 *   FILE 136
//*      MEMBER    DESCRIPTION                                      *   FILE 136
//*      FOLDIT    PROGRAM FOR PRINTING DATA SETS WITH UPPER        *   FILE 136
//*                AND LOWER CASE CHARACTERS ON PRINTERS            *   FILE 136
//*                LACKING THE LUXURY OF LOWER CASE                 *   FILE 136
//*      SMFSEL    THIS PROGRAM COPIES ONE SMF HISTORY TAPE TO      *   FILE 136
//*                ANOTHER BUT ALLOW SELECTION  BY DATE             *   FILE 136
//*                (JULIAN) AND TIME (MILITARY 24 HR CLOCK).        *   FILE 136
//*                (FIXED BUG WITH DATE SELECTION)                  *   FILE 136
//*      DLXSUBMT  PROGRAM USED HERE AS A STC TO PROVIDE RACF       *   FILE 136
//*                PASSWORDS FOR OPERATIONS JOBS (PASSWORD          *   FILE 136
//*                DECRYPTION ROUTINE IS NOT MINE BUT IT DOES       *   FILE 136
//*                WORK FOR ANY LENGTH PASSWORD. I DO NOT           *   FILE 136
//*                PROFESS TO UNDERSTAND IT AND I HAVE              *   FILE 136
//*                CONVENIENTLY FORGOTTEN THE FINE GENTLEMAN        *   FILE 136
//*                WHO PROVIDED IT TO ME)                           *   FILE 136
//*      IKJEFF10  DOES APPROXIMATELY THE SAME THING AS             *   FILE 136
//*                DLXSUBMT EXCEPT IS THE A TSO SUBMIT EXIT.        *   FILE 136
//*                HAS A COUPLE OF MINOR LIMITATIONS, MAINLY        *   FILE 136
//*                THAT THE PASSWORD FIELD MUST HAVE EXACTLY        *   FILE 136
//*                THE SAME NUMBER OF QUESTION MARKS AS THE         *   FILE 136
//*                USERS PASSWORD HAS CHARACTERS. IF ANY ON         *   FILE 136
//*                FIXES THAT PLEASE GIVE ME A CALL I AM SHORT      *   FILE 136
//*                OF TIME.                                         *   FILE 136
//*      DLXPOST   SLOPPY BUT IT DOES ALLOW PRINTING OF MOST        *   FILE 136
//*                PRINT TYPE FILES ON A 6670 USING OCL FROM        *   FILE 136
//*                SYSIN. (DOCUMENTATION IS CURRENTLY A LITTLE      *   FILE 136
//*                DEFICIENT)                                       *   FILE 136
//*                                                                 *   FILE 136
//***FILE 137 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 137
//*           THIS MEANS "SPLA TAPE FILE 037".                      *   FILE 137
//*                                                                 *   FILE 137
//*   H F000137 D=DEC82                                             *   FILE 137
//*   T FILE 137 - VERSION OF IEBCOPY TO RUN ON                     *   FILE 137
//*                NON-VS SYSTEMS                                   *   FILE 137
//*   K IEBCOPY MFT MVT VSCOPY IGG019C9 UNLOAD                      *   FILE 137
//*                NASA GODDARD V24                                 *   FILE 137
//*                                                                 *   FILE 137
//*      THIS FILE CONTAINS A JOBSTREAM AND OBJECT DECKS TO         *   FILE 137
//*      LINKEDIT A VERSION OF IEBCOPY.  THIS VERSION OF            *   FILE 137
//*      IEBCOPY IS FROM SVS AND HAS BEEN MODIFIED TO RUN UNDER     *   FILE 137
//*      MFT/MVT SYSTEMS.  THIS JOBSTREAM CREATES TWO LOAD          *   FILE 137
//*      MODULES, VSCOPY AND IGG019C9.  IGG019C9 IS A CHANNEL       *   FILE 137
//*      END APPENDAGE AND SHOULD BE MOVED INTO SYS1.SVCLIB.        *   FILE 137
//*      UNDER SVS, THIS VERSION ALSO REQUIRED IGG019FT BUT         *   FILE 137
//*      THIS CODE HAS BEEN ZAPPED OUT.  NOTICE THAT THE CSECT      *   FILE 137
//*      NAME FOR IGG019C9 IS IGG019C8.  THIS IS OK AS THE NAME     *   FILE 137
//*      IN VSCOPY HAS BEEN ZAPPED TO IGG019C9.                     *   FILE 137
//*                                                                 *   FILE 137
//*      THIS PROGRAM COULD BE USED BY NON-VS INSTALLATIONS TO      *   FILE 137
//*      RELOAD THOSE FILES ON THIS AND OTHER MODS TAPES THAT       *   FILE 137
//*      ARE IN IEBCOPY UNLOADED FORMAT.                            *   FILE 137
//*                                                                 *   FILE 137
//*      THIS VERSION WAS OBTAINED FROM THE NASA-GODDARD TAPE       *   FILE 137
//*      THAT ARNIE CASINGHINO FOUND DEEP IN HIS TAPE LIBRARY.      *   FILE 137
//*      THANKS ALSO TO FRANK PAJERSKI FOR HIS HELP IN              *   FILE 137
//*      UNDERSTANDING THE HISTORY OF THIS PROGRAM.                 *   FILE 137
//*                                                                 *   FILE 137
//***FILE 138 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 138
//*           THIS MEANS "SPLA TAPE FILE 038".                      *   FILE 138
//*                                                                 *   FILE 138
//*   H F000138 D=JAN80                                             *   FILE 138
//*   T FILE 138 - PSUEDO LOGICAL SWAP                              *   FILE 138
//*   K PSUEDO SWAP LOGICAL PERFORMANCE V1                          *   FILE 138
//*                                                                 *   FILE 138
//*      'PSUEDO LOGICAL-SWAP' - SHOULD REDUCE UNNECESSARY          *   FILE 138
//*      SWAP, REDUCE ASMQ LENGTH AND ALLOW MORE BATCH TO RUN       *   FILE 138
//*      WITH TSO.  SHOULDN'T AFFECT TSOMON STATISTICS, BUT MAY     *   FILE 138
//*      HAVE A MINIMAL AFFECT ON RMF.  CONTRIBUTOR'S NAME          *   FILE 138
//*      WITHELD BY REQUEST                                         *   FILE 138
//*                                                                 *   FILE 138
//***FILE 139 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 139
//*           THIS MEANS "SPLA TAPE FILE 039".                      *   FILE 139
//*                                                                 *   FILE 139
//*   H F000139 D=JAN98                                             *   FILE 139
//*   T FILE 139 - CBT MVS UTILITIES TAPE DESCRIPTION               *   FILE 139
//*   K CBT CASINGHINO GOLOB                                        *   FILE 139
//*                                                                 *   FILE 139
//*      THIS FILE IS NOW EMPTY.  CONTENTS OF THE CURRENT CBT       *   FILE 139
//*      TAPE (OR A VERY RECENT ONE) IS NOW ON FILE 103.            *   FILE 139
//*                                                                 *   FILE 139
//*      THIS REFLECTS VERSION 416,  12/18/97                       *   FILE 139
//*                                                                 *   FILE 139
//*      FOR FURTHER INFORMATION CONTACT:                           *   FILE 139
//*                                                                 *   FILE 139
//*                  SAM GOLOB                                      *   FILE 139
//*                  P.O. BOX 906                                   *   FILE 139
//*                  TALLMAN, NY 10982-0906                         *   FILE 139
//*                                                                 *   FILE 139
//*             NEW PHONE NUMBER:    845-362-1996                   *   FILE 139
//*                                                                 *   FILE 139
//*      email:   sbgolob@aol.com   or   sbgolob@attglobal.net      *   FILE 139
//*                                                                 *   FILE 139
//*      For access to all CBT Tape and CBT Overflow Tape files     *   FILE 139
//*      via Internet, please go to the CBT Tape web site:          *   FILE 139
//*                                                                 *   FILE 139
//*             http://www.cbttape.org                              *   FILE 139
//*                                                                 *   FILE 139
//***FILE 140 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 140
//*           THIS MEANS "SPLA TAPE FILE 040".                      *   FILE 140
//*                                                                 *   FILE 140
//*   H F000140 D=APR80                                             *   FILE 140
//*   T FILE 140 - STORAGE FENCING                                  *   FILE 140
//*   K STORAGE FENCING V3 CICS FENCE PERFORMANCE                   *   FILE 140
//*                                                                 *   FILE 140
//*      THIS FILE CONTAINS THE FLOATING STORAGE FENCE (NON SE)     *   FILE 140
//*      THIS STRATEGY DIFFERS FROM OTHER STORAGE FENCING IN        *   FILE 140
//*      THAT THE NUMBER OF FENCED PAGE FRAMES VARIES WITH THE      *   FILE 140
//*      DEMAND (AS MEASURED BY UIC) OF THE PROTECTED ADDRESS       *   FILE 140
//*      SPACE.  AS ITS PRIVATE UIC DROPS, STEALING IS              *   FILE 140
//*      INHIBITED AND MORE FRAMES ARE PROTECTED.  AS IT IDLES      *   FILE 140
//*      UIC RISES AND STEAL RESUMES, RETURNING MORE OF ITS         *   FILE 140
//*      FRAMES TO THE PAGE FRAME POOL FOR USE BY OTHER ADDRESS     *   FILE 140
//*      SPACES.  ANOTHER KEY DIFFERENCE IS THAT THIS MOD           *   FILE 140
//*      EXCLUDES THE PROTECTED ADDRESS SPACE FROM SYSTEM-WIDE      *   FILE 140
//*      HIGH UIC CALCULATION, ENABLING SRM TO CONTINUE TO USE      *   FILE 140
//*      UIC IN ADJUSTING SYSTEM MPL.  CONTRIBUTOR:  NAME           *   FILE 140
//*      WITHHELD                                                   *   FILE 140
//*                                                                 *   FILE 140
//***FILE 141 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 141
//*           THIS MEANS "SPLA TAPE FILE 041".                      *   FILE 141
//*                                                                 *   FILE 141
//*   H F000141 D=APR80                                             *   FILE 141
//*   T FILE 141 - RMF TRACE                                        *   FILE 141
//*   K RMF EXIT TRACE CICS V3 PERFORMANCE                          *   FILE 141
//*                                                                 *   FILE 141
//*      THIS MOD INSTALLS SPECIAL RMF TRACE FEATURE TO MEASURE     *   FILE 141
//*      EFFECT OF OTHER MODS ON CICS PAGING AND PERFORMANCE.       *   FILE 141
//*      IT IS USEFUL TO MEASURE PAGING INDICATORS FOR A            *   FILE 141
//*      SPECIFIC ADDRESS SPACE, E.G., ITS HIGH UIC, PAGE-FAULT     *   FILE 141
//*      RATE OR FRAME COUNT.  CAUTION: THE ADDRESS SPACE YOU       *   FILE 141
//*      WANT TO MEASURE MUST BE SWAPPED IN, OR RESULT WILL BE      *   FILE 141
//*      UNPREDICT- ABLE.  MAKE IT NON-SWAPPABLE VIA PPT IR         *   FILE 141
//*      IPS.                                                       *   FILE 141
//*                                                                 *   FILE 141
//*                     CONTRIBUTOR:  NAME WITHHELD                 *   FILE 141
//*                                                                 *   FILE 141
//***FILE 142 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 142
//*           THIS MEANS "SPLA TAPE FILE 042".                      *   FILE 142
//*                                                                 *   FILE 142
//*   H F000142 D=APR80                                             *   FILE 142
//*   T FILE 142 - IEFUJV EXIT                                      *   FILE 142
//*   K IEFUJV EXIT V3                                              *   FILE 142
//*                                                                 *   FILE 142
//*      THIS IS AN EXAMPLE OF A RATHER EXTENSIVE IEFUJV JCL        *   FILE 142
//*      VALIDATION EXIT.  RATHER THAN EXPLAIN IT HERE SEE THE      *   FILE 142
//*      COMMENTS IN THE SOURCE CODE.  WE NEVER GOT A COPY OF       *   FILE 142
//*      THE REQUIRED TABLE.                                        *   FILE 142
//*                                                                 *   FILE 142
//*      CONTRIBUTOR:  NAME WITHHELD                                *   FILE 142
//*                                                                 *   FILE 142
//***FILE 143 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 143
//*           THIS MEANS "SPLA TAPE FILE 043".                      *   FILE 143
//*                                                                 *   FILE 143
//*   H F000143 D=SEP82                                             *   FILE 143
//*   T FILE 143 - PAGEPLOT INSTALLATION INSTRUCTIONS               *   FILE 143
//*   K PAGEPLOT 3800 XEROX 9700 SASGRAPH STATISTICS                *   FILE 143
//*                   CANADA SUGI                                   *   FILE 143
//*   K CALCOMP V22                                                 *   FILE 143
//*                                                                 *   FILE 143
//*      RELATED FILES: 144, 145, 146, DOCUMENTATION IS IN          *   FILE 143
//*                     FILE 143 AND FILE 145 MEMBER SYSDOC.        *   FILE 143
//*                                                                 *   FILE 143
//*      INTRODUCTION                                               *   FILE 143
//*      ------------                                               *   FILE 143
//*      PAGEPLOT IS A COLLECTION OF SUBROUTINES USED TO            *   FILE 143
//*      GENERATE COMPUTER GRAPHICS ON PRINTERS WHICH USE           *   FILE 143
//*      SOFTWARE GENERATED CHARACTER SETS.  THE SYSTEM WAS         *   FILE 143
//*      DEVELOPED TO SUPPORT THE USE OF THE IBM 3800 AND XEROX     *   FILE 143
//*      9700 LASER PRINTERS AS GRAPHICS DEVICES DRIVEN BY THE      *   FILE 143
//*      SAS/GRAPH SYSTEM.  THE INTERFACE WITH SAS, WHICH IS        *   FILE 143
//*      KNOWN AS THE UNIVERSAL DEVICE DRIVER, ALLOWS THE           *   FILE 143
//*      IMPLEMENTATION OF GRAPHICS DEVICE DRIVERS FROM             *   FILE 143
//*      CALCOMP-COMPATIBLE GRAPHICS SUBROUTINES PROVIDED BY        *   FILE 143
//*      THE USER.  THE TERM CALCOMP-COMPATIBLE REFERS TO THE       *   FILE 143
//*      CALLING SEQUENCES DEFINED IN "BASIC SOFTWARE FOR           *   FILE 143
//*      ELECTROMECHANICAL PLOTTERS", PUBLISHED BY CALIFORNIA       *   FILE 143
//*      COMPUTER PRODUCTS INC (CALCOMP).  THE PAGEPLOT             *   FILE 143
//*      SUBROUTINES USE THESE CONVENTIONS, TO THE EXTENT           *   FILE 143
//*      REQUIRED BY SAS/GRAPH, BUT THE LIBRARY DOES NOT            *   FILE 143
//*      INCLUDE EVERY ROUTINE DEFINED BY CALCOMP.  THE             *   FILE 143
//*      PAGEPLOT SOFTWARE MAY BE COMBINED WITH SUBROUTINES         *   FILE 143
//*      FROM ANOTHER GRAPHICS PACKAGE TO PRODUCE A COMPLETE        *   FILE 143
//*      IMPLEMENTATION.  IN ADDITION TO THE GRAPHICS               *   FILE 143
//*      SUBROUTINES, THE PACKAGE REQUIRES THE USE OF A SPECIAL     *   FILE 143
//*      CHARACTER SET.  THIS CHARACTER SET IS BASED ON THE         *   FILE 143
//*      EBCDIC STANDARD BUT INCLUDES A NUMBER OF ADDITIONAL        *   FILE 143
//*      CHARACTERS USED SPECIFICALLY FOR GRAPHICS.  THE            *   FILE 143
//*      CHARACTER SETS FOR THE IBM 3800 AND XEROX 9700 ARE         *   FILE 143
//*      GENERATED BY SPECIAL PURPOSE SOFTWARE AND MUST BE          *   FILE 143
//*      PERMANENTLY INSTALLED IN THE PRINTER FONT LIBRARY.         *   FILE 143
//*      PAGEPLOT GRAPHICS ARE GENERATED BY THE GRAPHICS            *   FILE 143
//*      SUBROUTINES AND PRINTED ON THE TARGET DEVICE USING         *   FILE 143
//*      THIS SPECIAL CHARACTER SET.                                *   FILE 143
//*                                                                 *   FILE 143
//*      CONCEPTS                                                   *   FILE 143
//*      --------                                                   *   FILE 143
//*      THE BASIC CONCEPT BEHIND PAGEPLOT IS THE                   *   FILE 143
//*      SOFTWARE-GENERATED GRAPHICS CHARACTER SET WHICH            *   FILE 143
//*      SIMULATES A RASTER-SCAN GRAPHICS DISPLAY.  EACH PLOT       *   FILE 143
//*      REQUIRES ONE PRINTER PAGE, WHICH IS FILLED WITH TEXT,      *   FILE 143
//*      SPECIAL SYMBOLS AND MOSAIC CHARACTERS.  THE AREA OF        *   FILE 143
//*      THE PLOTTING SURFACE IS DETERMINED FROM THE SIZE OF        *   FILE 143
//*      THE PRINTER FORM USED, WHILE THE RESOLUTION OF THE         *   FILE 143
//*      IMAGE DEPENDS UPON THE SIZE OF CHARACTERS USED.  EACH      *   FILE 143
//*      PAGE IS TREATED AS A MATRIX OF CHARACTER CELLS AND IS      *   FILE 143
//*      FILLED BY CALLS TO THE PLOT AND SYMBOL SUBROUTINES.  A     *   FILE 143
//*      SEPARATE IMAGE IS MAINTAINED BY EACH OF THESE              *   FILE 143
//*      ROUTINES.  THE PLOT IMAGE IS FORMED FROM MOSAIC            *   FILE 143
//*      CHARACTERS, WHICH CONSIST OF SIX RECTANGULAR PIXELS        *   FILE 143
//*      ARRANGED IN TWO COLUMNS.  SIXTY-FOUR MOSAIC CHARACTERS     *   FILE 143
//*      ARE USED REPRESENT ALL COMBINATIONS OF THE SIX PIXELS.     *   FILE 143
//*      THE SYMBOL ROUTINE BUILDS AN IMAGE FROM TEXT               *   FILE 143
//*      CHARACTERS AND CENTRED GRAPHICS SYMBOLS.  AT THE           *   FILE 143
//*      COMPLETION OF EVERY PLOT, THE TEXT IMAGE IS MERGED         *   FILE 143
//*      ONTO THE MOSAIC ONE, WITH NON-BLANK TEXT CHARACTERS        *   FILE 143
//*      ERASING OVERLAID MOSAICS.  THE COMPLETED PLOT IS THEN      *   FILE 143
//*      WRITTEN OUT TO AN EXTERNAL PRINT FILE AND PRINTED ON       *   FILE 143
//*      THE TARGET DEVICE USING THE PAGEPLOT GRAPHICS              *   FILE 143
//*      CHARACTER SET.                                             *   FILE 143
//*                                                                 *   FILE 143
//*      DISCLAIMER                                                 *   FILE 143
//*      ----------                                                 *   FILE 143
//*      THESE MATERIALS ARE PROVIDED TO MVS SHARE FOR              *   FILE 143
//*      DISTRIBUTION TO INTEREST THIRD PARTIES ON A                *   FILE 143
//*      NOT-FOR-PROFIT BASIS.  THE CONTENTS OF THIS PACKAGE        *   FILE 143
//*      MAY BE FURTHER COPIED AND DISTRIBUTED BY ANY THIRD         *   FILE 143
//*      PARTY, PROVIDED THE CREDIT IS GIVEN TO THE GOVERNMENT      *   FILE 143
//*      OF CANADA AND THAT NO CHARGE IS MADE EXCEPT TO RECOVER     *   FILE 143
//*      THE COSTS OF SUCH DISTRIBUTION.  NO WARRANTY AS TO THE     *   FILE 143
//*      COMPLETENESS OR CORRECTNESS OF THE SOFTWARE IS             *   FILE 143
//*      EXPRESSED OR IMPLIED STATISTICS CANADA.  TECHNICAL         *   FILE 143
//*      SUPPORT FOR THIS PACKAGE MUST BE PROVIDED BY THE USER.     *   FILE 143
//*      NO SUPPORT OR ADDITIONAL DOCUMENTATION FOR THESE           *   FILE 143
//*      MATERIALS WILL BE PROVIDED BY STATISTICS CANADA.           *   FILE 143
//*      SUGGESTIONS FOR THE ENHANCEMENT OF THESE MATERIALS MAY     *   FILE 143
//*      BE DIRECTED TO: SPECIAL RESOURCES SUB-DIVISION,            *   FILE 143
//*      SYSTEMS DEVELOPMENT DIVISION, STATISTICS CANADA,           *   FILE 143
//*      OTTAWA, ONTARIO, CANADA K1A 0T6, TELEPHONE                 *   FILE 143
//*      (613) 995-9960.                                            *   FILE 143
//*                                                                 *   FILE 143
//***FILE 144 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 144
//*           THIS MEANS "SPLA TAPE FILE 044".                      *   FILE 144
//*                                                                 *   FILE 144
//*   H F000144 D=SEP82                                             *   FILE 144
//*   T FILE 144 - PAGEPLOT DOCUMENTATION AND SAMPLE                *   FILE 144
//*                PRINT FILES                                      *   FILE 144
//*   K PAGEPLOT 3800 XEROX 9700 SASGRAPH STATISTICS                *   FILE 144
//*                CANADA SUGI                                      *   FILE 144
//*   K CALCOMP V22                                                 *   FILE 144
//*                                                                 *   FILE 144
//*      RELATED FILES: 144, 145, 146, DOCUMENTATION IS IN          *   FILE 144
//*                     FILE 143 AND FILE 145 MEMBER SYSDOC.        *   FILE 144
//*                                                                 *   FILE 144
//*      SEE FILE 143 FOR COMPLETE ABSTRACT.                        *   FILE 144
//*                                                                 *   FILE 144
//***FILE 145 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 145
//*           THIS MEANS "SPLA TAPE FILE 045".                      *   FILE 145
//*                                                                 *   FILE 145
//*   H F000145 D=SEP82                                             *   FILE 145
//*   T FILE 145 - PAGEPLOT SOURCE PROGRAMS AND                     *   FILE 145
//*                SAMPLE JCL                                       *   FILE 145
//*   K PAGEPLOT 3800 XEROX 9700 SASGRAPH STATISTICS                *   FILE 145
//*                CANADA SUGI                                      *   FILE 145
//*   K CALCOMP V22                                                 *   FILE 145
//*                                                                 *   FILE 145
//*      RELATED FILES: 144, 145, 146, DOCUMENTATION IS             *   FILE 145
//*                     IN FILE 143 AND FILE 145 MEMBER             *   FILE 145
//*                     SYSDOC.                                     *   FILE 145
//*                                                                 *   FILE 145
//*      SEE FILE 143 FOR COMPLETE ABSTRACT.                        *   FILE 145
//*                                                                 *   FILE 145
//***FILE 146 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 146
//*           THIS MEANS "SPLA TAPE FILE 046".                      *   FILE 146
//*                                                                 *   FILE 146
//*   H F000146 D=SEP82                                             *   FILE 146
//*   T FILE 146 - PAGEPLOT SUBROUTINES AND CHARACTER SET           *   FILE 146
//*                DEFINITIONS                                      *   FILE 146
//*   K PAGEPLOT 3800 XEROX 9700 SASGRAPH STATISTICS                *   FILE 146
//*                CANADA SUGI                                      *   FILE 146
//*   K CALCOMP V22                                                 *   FILE 146
//*                                                                 *   FILE 146
//*      RELATED FILES: 144, 145, 146, DOCUMENTATION IS IN          *   FILE 146
//*                     FILE 143 AND FILE 145 MEMBER SYSDOC.        *   FILE 146
//*                                                                 *   FILE 146
//*      SEE FILE 143 FOR COMPLETE ABSTRACT.                        *   FILE 146
//*                                                                 *   FILE 146
//***FILE 147 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 147
//*           THIS MEANS "SPLA TAPE FILE 047".                      *   FILE 147
//*                                                                 *   FILE 147
//***FILE 148 IS CURRENTLY EMPTY                                    *   FILE 148
//*                                                                 *   FILE 148
//***FILE 149 IS CURRENTLY EMPTY                                    *   FILE 149
//*                                                                 *   FILE 149
//***FILE 150 IS CURRENTLY EMPTY                                    *   FILE 150
//*                                                                 *   FILE 150
//***FILE 151 IS CURRENTLY EMPTY                                    *   FILE 151
//*                                                                 *   FILE 151
//***FILE 152 IS CURRENTLY EMPTY                                    *   FILE 152
//*                                                                 *   FILE 152
//***FILE 153 IS CURRENTLY EMPTY                                    *   FILE 153
//*                                                                 *   FILE 153
//***FILE 154 IS CURRENTLY EMPTY                                    *   FILE 154
//*                                                                 *   FILE 154
//***FILE 155 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 155
//*           THIS MEANS "SPLA TAPE FILE 055".                      *   FILE 155
//*                                                                 *   FILE 155
//***FILE 156 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 156
//*           THIS MEANS "SPLA TAPE FILE 056".                      *   FILE 156
//*                                                                 *   FILE 156
//*   H F000156 D=OCT82                                             *   FILE 156
//*   T FILE 156 - VSAM VOLUME MAP PROGRAM AND RMF EXIT             *   FILE 156
//*   FROM COCA-COLA                                                *   FILE 156
//*   K VSAM PL1 PLI VOLMAP VTOC CATALOG ERBRUS99 RMF               *   FILE 156
//*   RMFMON MPL ASM SRM                                            *   FILE 156
//*   K JAMES COOK V23 PERFORMANCE COCA COLA COCACOLA COKE          *   FILE 156
//*                                                                 *   FILE 156
//*      THIS FILE CONTAINS CONTRIBUTIONS BY:                       *   FILE 156
//*                                                                 *   FILE 156
//*                                                                 *   FILE 156
//*           JAMES F. COOK                                         *   FILE 156
//*           THE COCA-COLA COMPANY                                 *   FILE 156
//*           ONE COCA-COLA PLAZA, N.W.                             *   FILE 156
//*           ATLANTA, GA  30313                                    *   FILE 156
//*           (404) 676-8522                                        *   FILE 156
//*                                                                 *   FILE 156
//*      CONTENTS:                                                  *   FILE 156
//*        A PL/I (OPTIMIZER) PROGRAM TO PROVIDE A VSAM VOLUME      *   FILE 156
//*        MAP OF ALL VOLUMES IN A PARTICULAR VSAM CATALOG.  IT     *   FILE 156
//*        MAPS EACH DATA SPACE AND EACH DATA AND INDEX             *   FILE 156
//*        COMPONENT WITHIN THE DATA SPACE BY STARTING AND          *   FILE 156
//*        ENDING CCHH.                                             *   FILE 156
//*                                                                 *   FILE 156
//*        AN RMF USER EXIT TO DISPLAY THE SRM MPL CONTENTION       *   FILE 156
//*        INDICATORS AND PAGE DATA SET INFORMATION IN AN RMF       *   FILE 156
//*        MONITOR II SESSION.                                      *   FILE 156
//*                                                                 *   FILE 156
//***FILE 157 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 157
//*           THIS MEANS "SPLA TAPE FILE 057".                      *   FILE 157
//*                                                                 *   FILE 157
//*   H F000157 D=MAR80                                             *   FILE 157
//*   T FILE 157 - SPF MENUS LISTER                                 *   FILE 157
//*   K SPF PL1 PLI MENUS V2                                        *   FILE 157
//*   K AUGUST TREUBIG MIDDLE SOUTH SERVICES                        *   FILE 157
//*                                                                 *   FILE 157
//*      THIS FILE CONTAINS A PL/I (OPTIMIZER) PROGRAM AND TWO      *   FILE 157
//*      ASSEMBLER SUBROUTINES TO LIST THE SPF MENUES DATA          *   FILE 157
//*      SET TO HARD COPY.  DOCUMENTATION IS CONTAINED IN THE       *   FILE 157
//*      SOURCE FOR EXECUTION OF THIS PROGRAM.                      *   FILE 157
//*                                                                 *   FILE 157
//*      CONTRIBUTOR: AUGUST TREUBIG                                *   FILE 157
//*                   MIDDLE SOUTH SERVICES, INC.                   *   FILE 157
//*                   200 WESTBANK EXPRESSWAY                       *   FILE 157
//*                   GRETNA, LOUISIANA 70053                       *   FILE 157
//*                   PHONE: 504 362-9500                           *   FILE 157
//*                                                                 *   FILE 157
//*      NOTE... THIS IS FOR SPF LEVEL 2.2.1                        *   FILE 157
//*                                                                 *   FILE 157
//***FILE 158 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 158
//*           THIS MEANS "SPLA TAPE FILE 058".                      *   FILE 158
//*                                                                 *   FILE 158
//*   H F000158 D=MAR80                                             *   FILE 158
//*   T FILE 158 - MVS/SE WITHOUT THE MICROCODE                     *   FILE 158
//*   K FLIH IEAQPK00 MVSSE V2 PERFORMANCE                          *   FILE 158
//*   K GREGORY GARDNER UNION CARBIDE                               *   FILE 158
//*                                                                 *   FILE 158
//*      THIS PROGRAM IS INTENDED TO FUNCTION AS A FRONT END        *   FILE 158
//*      TO THE PROGRAM CHECK FIRST LEVEL INTERRUPT HANDLER,        *   FILE 158
//*      IEAQPK00. ITS PURPOSE IS TO INTERCEPT ALL PROGRAM          *   FILE 158
//*      CHECKS RESULTING FROM RUNNING MVS-SE ON A                  *   FILE 158
//*      UNI-PROCESSOR THAT DOES NOT HAVE THE EXTENDED              *   FILE 158
//*      FACILITY HARDWARE INSTALLED.  THIS MODULE INCLUDING        *   FILE 158
//*      INSTALLATION IS FULLY DOCUMENTED IN THE SOURCE CODE.       *   FILE 158
//*                                                                 *   FILE 158
//*      CONTRIBUTOR: GREGORY GARDNER                               *   FILE 158
//*                   UNION CARBIDE CORP.                           *   FILE 158
//*                   OLD SAW MILL RIVER ROAD                       *   FILE 158
//*                   TARRYTOWN, NY 10591                           *   FILE 158
//*                   PHONE: 914 789-3857                           *   FILE 158
//*                                                                 *   FILE 158
//***FILE 159 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 159
//*           THIS MEANS "SPLA TAPE FILE 059".                      *   FILE 159
//*                                                                 *   FILE 159
//*   H F000159 D=MAR80                                             *   FILE 159
//*   T FILE 159 - TSO CLIST ASSORTMENT                             *   FILE 159
//*   K TSO CLIST KAISER V3                                         *   FILE 159
//*   K ROBERT NORTHROP                                             *   FILE 159
//*                                                                 *   FILE 159
//*      THIS FILE CONTAINS AN ASSORTMENT OF TSO CLIST'S TO         *   FILE 159
//*      DO A MULTITUDE OF THINGS.  MEMBER $NOTICE CONTAINS A       *   FILE 159
//*      BRIEF WRITEUP OF SOME OF THE FUNCTIONS.                    *   FILE 159
//*                                                                 *   FILE 159
//*      CONTRIBUTOR: ROBERT NORTHROP                               *   FILE 159
//*                   KAISER FOUNDATION HEALTH PLAN                 *   FILE 159
//*                   NORTHERN CALIFORNIA REGIONAL DATA CENTER      *   FILE 159
//*                   945 CAMELIA STREET                            *   FILE 159
//*                   BERKELEY, CA 94710                            *   FILE 159
//*                   PHONE: (NOT SUPPLIED)                         *   FILE 159
//*                                                                 *   FILE 159
//***FILE 160 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 160
//*           THIS MEANS "SPLA TAPE FILE 060".                      *   FILE 160
//*                                                                 *   FILE 160
//*   H F000160 D=MAR80                                             *   FILE 160
//*   T FILE 160 - TSO GAMES                                        *   FILE 160
//*   K TSO GAMES V4 STARTREK BLACKJACK FOOTBALL                    *   FILE 160
//*   TICTACTOE THIMK NIM                                           *   FILE 160
//*   K BIORYTHM CHECKERS CHESS DRAW ELIZA POKER PUZZLE             *   FILE 160
//*   QUIBIC REX ADVENTURE                                          *   FILE 160
//*                                                                 *   FILE 160
//*      THIS FILE CONTAINS TSO GAMES THAT HAVE BEEN SUBMITTED      *   FILE 160
//*      FROM VARIOUS SOURCES SOME OF WHICH SHALL REMAIN            *   FILE 160
//*      SOMEWHAT ANONYMOUS FOREVER....                             *   FILE 160
//*      THE GAMES ARE AS FOLLOWS:                                  *   FILE 160
//*                                                                 *   FILE 160
//*      TEC000   DOCUMENTATION                                     *   FILE 160
//*      TEC000   TSO PROCLIB JCL USED TO INVOKE EXECUTION          *   FILE 160
//*      TEC001   STARTREK RULES FOR TEC003                         *   FILE 160
//*      TEC002   ASSEMBLER MACROS FOR STARTREK                     *   FILE 160
//*      TEC003   FORTRAN SOURCE FOR STARTREK                       *   FILE 160
//*      TEC004   DESCRIPTIONS FOR GAMES TEC005 - TEC016            *   FILE 160
//*      TEC005   PL1 SOURCE FOR BLACK JACK                         *   FILE 160
//*      TEC006   PL1 SOURCE FOR COFFEE                             *   FILE 160
//*      TEC007   PL1 SOURCE FOR ECONOMY                            *   FILE 160
//*      TEC008   PL1 SOURCE FOR FOOTBALL                           *   FILE 160
//*      TEC009   FORTRAN SOURCE FOR STARTREK                       *   FILE 160
//*      TEC010   ASSEMBLER MACROS FOR STARTREK                     *   FILE 160
//*      TEC011   STARTREK DOCUMENTATION                            *   FILE 160
//*      TEC012   FORTRAN SOURCE FOR 3-D TIC TAC TOE                *   FILE 160
//*      TEC013   INPUT DATA FOR TEC012                             *   FILE 160
//*      TEC014   PL1 SOURCE FOR TARGET                             *   FILE 160
//*      TEC015   ASSEMBLER SOURCE OF THIMK (NIM)                   *   FILE 160
//*      TEC016   TSO CLIST USED TO INVOKE GAMES TEC004 - TEC015    *   FILE 160
//*      TEC017   FORTRAN SOURCE FOR BIORYTHM                       *   FILE 160
//*      TEC018   FORTRAN SOURCE FOR BLACK JACK                     *   FILE 160
//*      TEC019   FORTRAN SOURCE FOR BLACK JACK 2                   *   FILE 160
//*      TEC020   SOURCE FOR CHECKERS                               *   FILE 160
//*      TEC021   FORTRAN SOURCE FOR CHESS                          *   FILE 160
//*      TEC022   FORTRAN SOURCE FOR DRAW                           *   FILE 160
//*      TEC023   SOURCE FOR ELIZA (SNOBOL)                         *   FILE 160
//*      TEC024   PL1 SOURCE FOR FOOTBALL                           *   FILE 160
//*      TEC025   BAL RANDOM # GENERATOR FOR FOOTBALL               *   FILE 160
//*      TEC026   BAL TGET TPUT FOR FOOTBALL                        *   FILE 160
//*      TEC027   PL1 SOURCE FOR FOOTBALL-2                         *   FILE 160
//*      TEC028   BAL MACROS FOR TSO SEND MSG                       *   FILE 160
//*      TEC029   FORTRAN SOURCE FOR POKER                          *   FILE 160
//*      TEC030   FORTRAN SOURCE FOR PUZZLE                         *   FILE 160
//*      TEC031   INPUT DATA FOR TEC032                             *   FILE 160
//*      TEC032   FORTRAN SOURCE FOR QUIBIC                         *   FILE 160
//*      TEC033   FORTRAN SOURCE FOR REX                            *   FILE 160
//*      TEC034   BASIC SOURCE FOR STARTREK                         *   FILE 160
//*      TEC035   DOCUMENTATION FOR STARTREK                        *   FILE 160
//*      TEC036   BAL MACROS FOR STARTREK                           *   FILE 160
//*      TEC037   FORTRAN SOURCE FOR STARTREK                       *   FILE 160
//*      TEC038   SOURCE TO DISPLAY GAME LIST UNDER TSO             *   FILE 160
//*      TEC039   TSO PROC INVOKING ADVENTURE                       *   FILE 160
//*      TEC040   INSTRUCTIONS FOR ADVENTURE                        *   FILE 160
//*      TEC041   DATA CARD INPUT FOR ADVENTURE                     *   FILE 160
//*      TEC042   ADVENTURE SOURCE (PL/I OPTIMIZER)                 *   FILE 160
//*      TEC043   BLACK JACK                                        *   FILE 160
//*      TEC044   BLACK JACK CLIST FOR TEC043                       *   FILE 160
//*                                                                 *   FILE 160
//***FILE 161 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 161
//*           THIS MEANS "SPLA TAPE FILE 061".                      *   FILE 161
//*                                                                 *   FILE 161
//*   H F000161 D=AUG86                                             *   FILE 161
//*   T FILE 161 - ISPF PANELS FOR SAS INSTITUTE                    *   FILE 161
//*                CONTRIBUTIONS                                    *   FILE 161
//*   K ISPF TSO PANELS FSLISTC FSLISTA SCANPDS V37 SAS             *   FILE 161
//*                INSTITUTE                                        *   FILE 161
//*                                                                 *   FILE 161
//*      RELATED FILES 162 TO 164, 223, 227, 228                    *   FILE 161
//*                                                                 *   FILE 161
//*      (FOR MOST CURRENT DESCRIPTION, SEE MEMBER $DS@DOC          *   FILE 161
//*      IN FILE164)                                                *   FILE 161
//*                                                                 *   FILE 161
//*                         DEVELOPMENT TOOLS                       *   FILE 161
//*                                                                 *   FILE 161
//*      DEVELOPMENT TOOLS IS A PACKAGE OF THREE ISPF DIALOG        *   FILE 161
//*      APPLICATIONS.                                              *   FILE 161
//*                                                                 *   FILE 161
//*      SCAN PDS                                                   *   FILE 161
//*                                                                 *   FILE 161
//*      SCANPDS BUILDS A FULL OR PARTIAL PDS MEMBER LIST FOR A     *   FILE 161
//*      PARTITIONED DATASET OR A CONCATENATION OF UP TO 4          *   FILE 161
//*      PDS'S.  PDS MEMBERS IN THE MEMBER LIST MAY BE LIMITED      *   FILE 161
//*      TO THOSE WITH A GENERIC NAME, AND/OR THOSE WITH A          *   FILE 161
//*      CERTAIN (OR GENERIC) USERID IN ISPF MEMBER STATISTICS,     *   FILE 161
//*      AND/OR THOSE MEMBERS SATISFYING A SEARCH FOR A             *   FILE 161
//*      CHARACTER STRING WITHIN THE MEMBER (HENCE THE NAME         *   FILE 161
//*      SCAN PDS).                                                 *   FILE 161
//*                                                                 *   FILE 161
//*      FROM THE MEMBER LIST DISPLAY, MEMBERS MAY BE SELECTED      *   FILE 161
//*      FOR EDIT, BROWSE, RENAME, DELETE, PRINT, MOVE/COPY,        *   FILE 161
//*      ZAP (DELETE THE MEMBER FROM THE DISPLAY), SUBMIT AND       *   FILE 161
//*      DIRECTORY DUMP.  IN ADDITION, COMMANDS ARE AVAILABLE       *   FILE 161
//*      FROM THE COMMAND LINE THAT MANIPULATE THE ENTIRE           *   FILE 161
//*      MEMBER LIST.  THESE ARE TOP, LOCATE, FIND (FIND A          *   FILE 161
//*      USERID IN ISPF STATISTICS), RFIND, SORT, LEFT/RIGHT        *   FILE 161
//*      (SCROLL COMMANDS), REBUILD (RECONSTRUCT THE ENTIRE         *   FILE 161
//*      MEMBER LIST FOR THE CURRENT DATASET(S)), SWITCH            *   FILE 161
//*      (CONSTRUCT A MEMBER LIST FOR A NEW PDS), AND MODE (SEE     *   FILE 161
//*      BELOW).  MEMBER LIST CONTRUCTION BY SCAN PDS IS UP TO      *   FILE 161
//*      TWICE AS FAST AS THE ISPF GENERATED MEMBER LISTS OF        *   FILE 161
//*      BROWSE, EDIT AND LIBRARY UTILITY.                          *   FILE 161
//*                                                                 *   FILE 161
//*      MENU REPLACEMENT FOR BROWSE/EDIT                           *   FILE 161
//*                                                                 *   FILE 161
//*      IN ADDITION, THE NECESSARY PANELS AND A DRIVER             *   FILE 161
//*      PROGRAM ARE INCLUDED WHICH ALLOW YOU TO USE THE FULL       *   FILE 161
//*      CAPABILITY OF THE MEMBER LIST PROVIDED BY SCAN PDS         *   FILE 161
//*      FOR ISPF BROWSE AND EDIT.  THIS CAN BE A DIRECT            *   FILE 161
//*      REPLACEMENT FOR BROWSE/EDIT IF  YOU CHOOSE.  THE           *   FILE 161
//*      ADVANTAGES ARE FASTER MEMBER LIST CONSTRUCTION,            *   FILE 161
//*      MULTIPLE SELECTS, GENERIC MEMBER NAME SPECIFICATION,       *   FILE 161
//*      AND ADDITIONAL COMMANDS FROM BROWSE/EDIT MEMBER LISTS      *   FILE 161
//*      (SUCH AS SORT, INFO, SWITCH, AND MODE, WHICH ALLOWS        *   FILE 161
//*      ONE TO GO BETWEEN BROWSE, EDIT AND THE FULL-FUNCTION       *   FILE 161
//*      MEMBER LIST OF SCAN PDS WITH A SIMPLE COMMAND).            *   FILE 161
//*      NOTE: THE BROWSE/EDIT FEATURES ARE FOR VERSION 2 OR        *   FILE 161
//*      LATER ISPF ONLY.                                           *   FILE 161
//*                                                                 *   FILE 161
//*                                                                 *   FILE 161
//*      FSLISTC                                                    *   FILE 161
//*                                                                 *   FILE 161
//*      FSLISTC (FULL-SCREEN LIST CATALOG) BUILDS A                *   FILE 161
//*      FULL-SCREEN DISPLAY OF INFORMATION FOR CATALOGED           *   FILE 161
//*      DATASETS FOR  A GIVEN CATALOG PREFIX.  THE DISPLAY         *   FILE 161
//*      MAY ALSO BE LIMITED TO DATASETS WITH A GIVEN DSORG,        *   FILE 161
//*      AND/OR DATA SETS ON A GIVEN VOLUME WITH THE CATALOG        *   FILE 161
//*      PREFIX.  COMMANDS AVAILABLE FROM  THE DISPLAY INCLUDE      *   FILE 161
//*      EDIT, BROWSE, MEMBER LIST (AN ENTIRE PDS MEMBER LIST       *   FILE 161
//*      USING THE SCAN  PDS PROGRAM ABOVE), SCAN (SCAN A PDS       *   FILE 161
//*      FOR A CHARACTER STRING USING SCAN  PDS ABOVE),             *   FILE 161
//*      RENAME, DELETE, COMPRESS/RELEASE, LOCATE (FIND A           *   FILE 161
//*      DATASET), CLEAR (REMOVE DELETED DATASETS FROM THE          *   FILE 161
//*      DISPLAY), TOP, AND SORT (VERSION 2 ISPF).                  *   FILE 161
//*                                                                 *   FILE 161
//*                                                                 *   FILE 161
//*      FSLISTA                                                    *   FILE 161
//*                                                                 *   FILE 161
//*      FSLISTA (FULL-SCREEN LIST ALLOCATE) BUILDS A               *   FILE 161
//*      FULL-SCREEN DISPLAY OF DDNAMES THAT ARE ALLOCATED TO       *   FILE 161
//*      THE  TSO SESSION.  (THE INFORMATION GIVEN IS SIMILAR       *   FILE 161
//*      TO THAT OF THE TSO LISTALC COMMAND PROCESSOR, EXCEPT       *   FILE 161
//*      THE INFORMATION IS FORMATTED IN AN EASY TO READ            *   FILE 161
//*      FULL-SCREEN DISPLAY.)  COMMANDS AVAILABLE FROM THE         *   FILE 161
//*      DISPLAY INCLUDE BROWSE, EDIT, FREE (FREE THE               *   FILE 161
//*      ALLOCATED DDNAME), MEMBER LIST (BUILD A PDS  MEMBER        *   FILE 161
//*      LIST FOR A SINGLE PDS), CONCATENATED MEMBER LIST           *   FILE 161
//*      (BUILD A CONCATENATED MEMBER LIST FOR UP TO 4 PDS'S        *   FILE 161
//*      STARTING AT THE LEVEL GIVEN  BY THE SELECT CODE),          *   FILE 161
//*      LOCATE (FIND A DDNAME), CLEAR (REMOVE FREED DDNAMES        *   FILE 161
//*      FROM THE DISPLAY), AND TOP.                                *   FILE 161
//*                                                                 *   FILE 161
//*      EACH APPLICATION HAS MANY OTHER UNIQUE AND USEFUL          *   FILE 161
//*      FEATURES.  COMPLETE DOCUMENTATION IS PROVIDED IN ISPF      *   FILE 161
//*      TUTORIAL PANELS.  FINALLY, A MENU IS PROVIDED TO           *   FILE 161
//*      DEMONSTRATE THE INVOCATION OF EACH APPLICATION.            *   FILE 161
//*                                                                 *   FILE 161
//***FILE 162 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 162
//*           THIS MEANS "SPLA TAPE FILE 062".                      *   FILE 162
//*                                                                 *   FILE 162
//*   H F000162 D=FEB86                                             *   FILE 162
//*   T FILE 162 - ISPF MESSAGES FOR SAS INSTITUTE                  *   FILE 162
//*                CONTRIBUTIONS                                    *   FILE 162
//*   K ISPF TSO MESSAGES FSLISTC FSLISTA SCANPDS V35               *   FILE 162
//*                SAS INSTITUTE                                    *   FILE 162
//*                                                                 *   FILE 162
//*      RELATED FILES 161, 163, 164, 223, 227, 228                 *   FILE 162
//*                                                                 *   FILE 162
//*      MESSAGES FOR THE UTILITIES DESCRIBED IN FILE 161           *   FILE 162
//*                                                                 *   FILE 162
//***FILE 163 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 163
//*           THIS MEANS "SPLA TAPE FILE 063".                      *   FILE 163
//*                                                                 *   FILE 163
//*   H F000163 D=FEB86                                             *   FILE 163
//*   T FILE 163 - TSO CLISTS FOR SAS INSTITUTE CONTRIBUTIONS       *   FILE 163
//*   K ISPF TSO CLIST FSLISTC FSLISTA SCANPDS V35 SAS INSTITUTE    *   FILE 163
//*                                                                 *   FILE 163
//*      RELATED FILES 161, 162, 164, 223, 227, 228                 *   FILE 163
//*                                                                 *   FILE 163
//*      TSO CLISTS FOR THE UTILITIES DESCRIBED IN FILE 161         *   FILE 163
//*                                                                 *   FILE 163
//***FILE 164 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 164
//*           THIS MEANS "SPLA TAPE FILE 064".                      *   FILE 164
//*                                                                 *   FILE 164
//*   H F000164 D=FEB86                                             *   FILE 164
//*   T FILE 164 - SOURCE LIBRARY FOR SAS INSTITUTE CONTRIBUTIONS   *   FILE 164
//*   K ISPF TSO SOURCE FSLISTC FSLISTA SCANPDS V35 SAS INSTITUTE   *   FILE 164
//*                                                                 *   FILE 164
//*      RELATED FILES 161, 162, 163, 223, 227, 228                 *   FILE 164
//*                                                                 *   FILE 164
//*      SOURCE CODE FOR THE UTILITIES DESCRIBED IN FILE 161        *   FILE 164
//*                                                                 *   FILE 164
//***FILE 165 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 165
//*           THIS MEANS "SPLA TAPE FILE 065".                      *   FILE 165
//*                                                                 *   FILE 165
//*   H F000165 D=MAY80                                             *   FILE 165
//*   T FILE 165 - DYNAMIC MONITOR SYSTEM (DMS) -                   *   FILE 165
//*                INSTALLATION JCL                                 *   FILE 165
//*   K DMS JCL MONITOR V5 GTF                                      *   FILE 165
//*                                                                 *   FILE 165
//*      RELATED FILES: 165-170; DOCUMENTATION: 168                 *   FILE 165
//*                                                                 *   FILE 165
//*      THIS FILE CONTAINS JCL NECESSARY TO INSTALL AND            *   FILE 165
//*      ASSEMBLE THE DMS PACKAGE.                                  *   FILE 165
//*                                                                 *   FILE 165
//***FILE 166 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 166
//*           THIS MEANS "SPLA TAPE FILE 066".                      *   FILE 166
//*                                                                 *   FILE 166
//*   H F000166 D=MAY80                                             *   FILE 166
//*   T FILE 166 - DYNAMIC MONITOR SYSTEM (DMS) -                   *   FILE 166
//*   NON-SE SOURCE                                                 *   FILE 166
//*   K DMS NONSE SOURCE V5 MONITOR GTF                             *   FILE 166
//*                                                                 *   FILE 166
//*      RELATED FILES: 165-170; DOCUMENTATION: 168                 *   FILE 166
//*                                                                 *   FILE 166
//*      THIS FILE CONTAINS THE SOURCE FOR THE NON-SE VERSION       *   FILE 166
//*      OF THE DYNAMIC MONITOR SYSTEM (DMS).                       *   FILE 166
//*                                                                 *   FILE 166
//***FILE 167 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 167
//*           THIS MEANS "SPLA TAPE FILE 067".                      *   FILE 167
//*                                                                 *   FILE 167
//*   H F000167 D=MAY80                                             *   FILE 167
//*   T FILE 167 - DYNAMIC MONITOR SYSTEM (DMS) -                   *   FILE 167
//*   NON-SE LOAD                                                   *   FILE 167
//*   K DMS NONSE LOAD V5 MONITOR GTF                               *   FILE 167
//*                                                                 *   FILE 167
//*      RELATED FILES: 165-170; DOCUMENTATION: 168                 *   FILE 167
//*                                                                 *   FILE 167
//*      THIS FILE CONTAINS THE LOAD FOR THE NON SE VERSION         *   FILE 167
//*      OF THE DYNAMIC MONITOR SYSTEM (DMS).                       *   FILE 167
//*                                                                 *   FILE 167
//***FILE 168 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 168
//*           THIS MEANS "SPLA TAPE FILE 068".                      *   FILE 168
//*                                                                 *   FILE 168
//*   H F000168 D=MAY80                                             *   FILE 168
//*   T FILE 168 - DYNAMIC MONITOR SYSTEM (DMS) -                   *   FILE 168
//*                DOCUMENTATION                                    *   FILE 168
//*   K DMS DOCUMENTATION DOCUMENT V5 MONITOR GTF                   *   FILE 168
//*                PERFORMANCE                                      *   FILE 168
//*                                                                 *   FILE 168
//*      RELATED FILES: 165-170; DOCUMENTATION: 168                 *   FILE 168
//*                                                                 *   FILE 168
//*      THE DYNAMIC MONITOR SYSTEM MONITORS THE INTERACTIONS       *   FILE 168
//*      BETWEEN THE OS/VS SYSTEM EVENTS AND THE CORRESPONDING      *   FILE 168
//*      DYNAMICALLY ACTIVATED EVENT HANDLING ROUTINES. A           *   FILE 168
//*      STANDARD SET OF EVENT HANDLING ROUTINES IS AVAILABLE.      *   FILE 168
//*      THIS ROUTINE PERFORMS AN EVENT TRACE FUNCTION.  DMS        *   FILE 168
//*      WAS DEVELOPED SPECIFICALLY TO ANALYZE THE I/O              *   FILE 168
//*      ACTIVITIES OF AN IBM/OS 370 MVS-AP SYSTEM.  A              *   FILE 168
//*      PRINCIPAL DESIGN GOAL FOR DMS IS TO KEEP THE CPU           *   FILE 168
//*      OVERHEAD AND STORAGE REQUIREMENTS BELOW AN ACCEPTABLE      *   FILE 168
//*      THRESHOLD, SO IT WILL BE POSSIBLE TO MONITOR AN ENTIRE     *   FILE 168
//*      TP NETWORK DURING THE ENTIRE ONLINE OPERATION.  IN         *   FILE 168
//*      ADDITION, DMS GIVES THE SYSTEM PROGRAMMER A CONVENIENT     *   FILE 168
//*      MEANS OF WRITING SIMPLE PROGRAMS CONTAINING BOTH           *   FILE 168
//*      SELECTION AND DECISION LOGIC WHICH CAN BE BASED ON A       *   FILE 168
//*      SELECTED GROUP OF SYSTEM EVENTS.  THE TIME STAMP FROM      *   FILE 168
//*      THE TIME OF DAY CLOCK GIVES THE POSSIBILTY TO CREATE       *   FILE 168
//*      REPRODUCIBLE TIME MEASUREMENTS.  DMS IS A HELPFUL TOOL     *   FILE 168
//*      FOR PROBLEM DETERMINATION.                                 *   FILE 168
//*                                                                 *   FILE 168
//*      CONTRIBUTOR:  MR. B. HARTMAN                               *   FILE 168
//*                    IBM SWITZERLAND                              *   FILE 168
//*                    BRANCH OFFICE BASEL                          *   FILE 168
//*                    HIRSCHGAESSLEIN 11                           *   FILE 168
//*                    CH-4000  B A S E L                           *   FILE 168
//*                    SWITZERLAND                                  *   FILE 168
//*                    PHONE 0041 61 23 66 23                       *   FILE 168
//*                                                                 *   FILE 168
//***FILE 169 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 169
//*           THIS MEANS "SPLA TAPE FILE 069".                      *   FILE 169
//*                                                                 *   FILE 169
//*   H F000169 D=MAY80                                             *   FILE 169
//*   T FILE 169 - DYNAMIC MONITOR SYSTEM (DMS) -                   *   FILE 169
//*   MVS/SE SOURCE                                                 *   FILE 169
//*   K DMS MVSSE SOURCE V5 MONITOR GTF                             *   FILE 169
//*                                                                 *   FILE 169
//*      RELATED FILES: 165-170; DOCUMENTATION: 168                 *   FILE 169
//*                                                                 *   FILE 169
//*      THIS FILE CONTAINS THE SOURCE FOR THE SE VERSION OF        *   FILE 169
//*      THE DYNAMIC MONITOR SYSTEM (DMS).                          *   FILE 169
//*                                                                 *   FILE 169
//***FILE 170 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 170
//*           THIS MEANS "SPLA TAPE FILE 070".                      *   FILE 170
//*                                                                 *   FILE 170
//*   H F000170 D=MAY80                                             *   FILE 170
//*   T FILE 170 - DYNAMIC MONITOR SYSTEM (DMS) -                   *   FILE 170
//*   MVSSE LOAD                                                    *   FILE 170
//*   K DMS NONSE LOAD V5 MONITOR GTF MVSSE                         *   FILE 170
//*                                                                 *   FILE 170
//*      RELATED FILES: 165-170; DOCUMENTATION: 168                 *   FILE 170
//*                                                                 *   FILE 170
//*      THIS FILE CONTAINS THE LOAD FOR THE NON-SE VERSION OF      *   FILE 170
//*      THE DYNAMIC MONITOR SYSTEM (DMS).                          *   FILE 170
//*                                                                 *   FILE 170
//***FILE 171 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 171
//*           THIS MEANS "SPLA TAPE FILE 071".                      *   FILE 171
//*                                                                 *   FILE 171
//*   H F000171 D=MAY80                                             *   FILE 171
//*   T FILE 171 - SPF IPCS INTERFACE -                             *   FILE 171
//*                DOCUMENTATION                                    *   FILE 171
//*   K SPF IPCS DOCUMENTATION DOCUMENT V5                          *   FILE 171
//*   K JERRY DANIEL JOLYNN DEEMS JIM GLAUERT                       *   FILE 171
//*                RON LEBAUBE MONSANTO                             *   FILE 171
//*                                                                 *   FILE 171
//*      RELATED FILES: 171-176; DOCUMENTATION: 171                 *   FILE 171
//*                                                                 *   FILE 171
//*      THE SPF IPCS MENUS WERE DEVELOPED BY JERRY DANIEL,         *   FILE 171
//*      JOLYNN DEEMS, JIM GLAUERT, AND RON LEBAUBE OF THE          *   FILE 171
//*      MONSANTO COMPANY.  THEY ARE MENT TO BE USED AS             *   FILE 171
//*      EXAMPLES OF HOW TO USE SPF TO INVOKE IPCS COMMANDS.        *   FILE 171
//*      IT IS RECOMMENDED THAT THE USER MODIFY THE MENU INPUT      *   FILE 171
//*      KEY WORDS TO SUIT HIS OWN SHOP.                            *   FILE 171
//*                                                                 *   FILE 171
//*      THIS FILE CONTAINS A LISTING OF THE MENUS AND THIS         *   FILE 171
//*      DOCUMENTATION.                                             *   FILE 171
//*                                                                 *   FILE 171
//*      CONTRIBUTOR  JIM GLAUERT                                   *   FILE 171
//*                   MONSANTO COMPANY                              *   FILE 171
//*                   800 N. LINDBERGH BLVD. - G2EC                 *   FILE 171
//*                   ST. LOUIS, MO  63166                          *   FILE 171
//*                   PHONE: 314 694-7702                           *   FILE 171
//*                                                                 *   FILE 171
//***FILE 172 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 172
//*           THIS MEANS "SPLA TAPE FILE 072".                      *   FILE 172
//*                                                                 *   FILE 172
//*   H F000172 D=MAY80                                             *   FILE 172
//*   T FILE 172 - SPF IPCS INTERFACE - CLISTS                      *   FILE 172
//*   K SPF IPCS CLISTS V5                                          *   FILE 172
//*   K JERRY DANIEL JOLYNN DEEMS JIM GLAUERT                       *   FILE 172
//*                RON LEBAUBE MONSANTO                             *   FILE 172
//*                                                                 *   FILE 172
//*      RELATED FILES: 171-176; DOCUMENTATION: 171                 *   FILE 172
//*                                                                 *   FILE 172
//*      THIS FILE CONTAINS THE CLISTS FOR THE IPCS SPF             *   FILE 172
//*      INTERFACE.                                                 *   FILE 172
//*                                                                 *   FILE 172
//***FILE 173 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 173
//*           THIS MEANS "SPLA TAPE FILE 073".                      *   FILE 173
//*                                                                 *   FILE 173
//*   H F000173 D=MAY80                                             *   FILE 173
//*   T FILE 173 - SPF IPCS INTERFACE - SPF MENUS                   *   FILE 173
//*   K SPF IPCS MENUS V5                                           *   FILE 173
//*   K JERRY DANIEL JOLYNN DEEMS JIM GLAUERT RON LEBAUBE           *   FILE 173
//*                MONSANTO                                         *   FILE 173
//*                                                                 *   FILE 173
//*      RELATED FILES: 171-176; DOCUMENTATION: 171                 *   FILE 173
//*                                                                 *   FILE 173
//*      THIS FILE CONTAINS THE MENUS FOR THE IPCS SPF              *   FILE 173
//*      INTERFACE.                                                 *   FILE 173
//*                                                                 *   FILE 173
//***FILE 174 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 174
//*           THIS MEANS "SPLA TAPE FILE 074".                      *   FILE 174
//*                                                                 *   FILE 174
//*   H F000174 D=MAY80                                             *   FILE 174
//*   T FILE 174 - SPF IPCS INTERFACE - SPF PROCS                   *   FILE 174
//*   K SPF IPCS PROCS V5                                           *   FILE 174
//*   K JERRY DANIEL JOLYNN DEEMS JIM GLAUERT                       *   FILE 174
//*                RON LEBAUBE MONSANTO                             *   FILE 174
//*                                                                 *   FILE 174
//*      RELATED FILES: 171-176; DOCUMENTATION: 171                 *   FILE 174
//*                                                                 *   FILE 174
//*      THIS FILE CONTAINS THE PROCS FOR THE IPCS SPF INTERFACE.   *   FILE 174
//*                                                                 *   FILE 174
//***FILE 175 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 175
//*           THIS MEANS "SPLA TAPE FILE 075".                      *   FILE 175
//*                                                                 *   FILE 175
//*   H F000175 D=MAY80                                             *   FILE 175
//*   T FILE 175 - SPF IPCS INTERFACE - JCL                         *   FILE 175
//*   K SPF IPCS JCL                                                *   FILE 175
//*   K JERRY DANIEL JOLYNN DEEMS JIM GLAUERT                       *   FILE 175
//*                RON LEBAUBE MONSANTO                             *   FILE 175
//*                                                                 *   FILE 175
//*      RELATED FILES: 171-176; DOCUMENTATION: 171                 *   FILE 175
//*                                                                 *   FILE 175
//*      THIS FILE CONTAINS THE JCL FOR THE IPCS SPF INTERFACE.     *   FILE 175
//*                                                                 *   FILE 175
//***FILE 176 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 176
//*           THIS MEANS "SPLA TAPE FILE 076".                      *   FILE 176
//*                                                                 *   FILE 176
//*   H F000176 D=MAY80                                             *   FILE 176
//*   T FILE 176 - CLEAR A 3270 SCREEN                              *   FILE 176
//*   K CLEAR CLRSCRN 3270 TSO SOURCE SPF IPCS V5                   *   FILE 176
//*                                                                 *   FILE 176
//*      RELATED FILES: 171-176; DOCUMENTATION: 171                 *   FILE 176
//*                                                                 *   FILE 176
//*      THIS FILE CONTAINS THE SOURCE CODE FOR THE TSO ROUTINE     *   FILE 176
//*      TO CLEAR A 3270 SCREEN.                                    *   FILE 176
//*                                                                 *   FILE 176
//*      THIS ROUTINE IS USED BY THE SPF IPCS INTERFACE             *   FILE 176
//*                                                                 *   FILE 176
//***FILE 177 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 177
//*           THIS MEANS "SPLA TAPE FILE 077".                      *   FILE 177
//*                                                                 *   FILE 177
//*   H F000177 D=MAY80                                             *   FILE 177
//*   T FILE 177 - FLORIDA POWER CORPORATION - DOCUMENTATION        *   FILE 177
//*   K FLA FLORIDA POWER DOCUMENTATION V6                          *   FILE 177
//*   K DONALD HIGGINS PERFORMANCE                                  *   FILE 177
//*   L MVSMON FULL SCREEN TSO PDSDIR PCOMPARE PANVALET SMF         *   FILE 177
//*                STRUCTURED                                       *   FILE 177
//*   L FORTRAN MACROS TIME CROSS MEMORY XMEMORY                    *   FILE 177
//*                                                                 *   FILE 177
//*      RELATED FILES: 177-179; DOCUMENTATION: 177                 *   FILE 177
//*                                                                 *   FILE 177
//*      FLORIDA POWER CORPORATION HAS CONTRIBUTED VARIOUS          *   FILE 177
//*      UTILITIES, MACROS AND A SORT.                              *   FILE 177
//*                                                                 *   FILE 177
//*                   DONALD S. HIGGINS                             *   FILE 177
//*                   B-3                                           *   FILE 177
//*                   FLORIDA POWER CORPORATION                     *   FILE 177
//*                   P.O. BOX 14042                                *   FILE 177
//*                   ST. PETERSBURG, FL 33733                      *   FILE 177
//*                                                                 *   FILE 177
//*      GENERAL INFORMATION MEMBERS                                *   FILE 177
//*                                                                 *   FILE 177
//*      $DIST    - DIRECTIONS FOR CREATING FPC DISTRIBUTION TAPE   *   FILE 177
//*      $FPCSHR  - JOB USED TO CREATE FPC DISTRIBUTION TAPE        *   FILE 177
//*      $HISTORY - HISTORY OF PACKAGE                              *   FILE 177
//*      $KEY     - KEY TO DISTRIBUTION TAPE FOR SHARE PROGRAM      *   FILE 177
//*                 LIBRARY                                         *   FILE 177
//*      $LOG     - LOG ALL FPC MAINTENANCE CHANGES                 *   FILE 177
//*      $MAINT   - FPC MAINTENANCE UPDATE PROCEDURE                *   FILE 177
//*      $NEW     - MAJOR NEW SOFTWARE ADDED SINCE RELEASE          *   FILE 177
//*      $OLD     - MAJOR OLD SOFTWARE RETAINED FROM LAST RELEASE   *   FILE 177
//*      $SHRDOC  - INDEX TO DOCUMENTATION LIBRARY                  *   FILE 177
//*      $SHRSUB  - INDEX TO SUBROUTINES IN SOURCE PROGRAM LIBRARY  *   FILE 177
//*      $SHRPGM  - INDEX TO PROGRAMS    IN SOURCE PROGRAM LIBRARY  *   FILE 177
//*      $SHRMAC  - INDEX TO MACROS      IN SOURCE PROGRAM LIBRARY  *   FILE 177
//*      $SHRSYS  - INDEX TO SYSTEM PGMS IN SOURCE PROGRAM LIBRARY  *   FILE 177
//*      $SHRJCL  - INDEX TO PROCEDURES IN PROCEDURE LIBRARY        *   FILE 177
//*                                                                 *   FILE 177
//*      MAJOR SOFTWARE SAMPLE OUTPUTS                              *   FILE 177
//*      @MVSMON  - SAMPLE OUTPUT FROM MVSMON RUN ON CURRENT        *   FILE 177
//*                 SYSTEM IN BATCH                                 *   FILE 177
//*                                                                 *   FILE 177
//*      MAJOR SOFTWARE DOCUMENTATION (ALL OTHER DOCUMENTATION      *   FILE 177
//*                 IS IN SOURCE)                                   *   FILE 177
//*                                                                 *   FILE 177
//*      FSF      - FULL SCREEN SUBROUTINE SUPPORT FOR TSO          *   FILE 177
//*      MVSMON   - MVS SYSTEM MONITOR FOR USE VIA TSO, MCS,        *   FILE 177
//*                 ONLINE, OR BATCH                                *   FILE 177
//*      PDSDIR   - SELECTIVE PDS DIRECTORY LIST                    *   FILE 177
//*      PCOMPARE - COMPARE TWO MEMBERS OF PAN LIBRARY AND          *   FILE 177
//*                 LIST DIFFERENCES                                *   FILE 177
//*      SMFDOC   - SMF DAILY REPORTING SYSTEM                      *   FILE 177
//*      STRFORT  - STRUCTURED FORTRAN TRANSLATOR                   *   FILE 177
//*      STRMAC   - STRUCTURED ALC MACROS                           *   FILE 177
//*      TIMER    - GENERAL TIME AND DATE UTILITY                   *   FILE 177
//*                 SUBROUTINE (17 OPTIONS)                         *   FILE 177
//*      XCOM     - CROSS MEMORY COMMUNICATION SUBROUTINE           *   FILE 177
//*                 SUPPORT                                         *   FILE 177
//*                                                                 *   FILE 177
//*      (SYS1.HELP MEMBERS ARE INCLUDED FOR MOST TSO COMMANDS)     *   FILE 177
//*                                                                 *   FILE 177
//***FILE 178 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 178
//*           THIS MEANS "SPLA TAPE FILE 078".                      *   FILE 178
//*                                                                 *   FILE 178
//*   H F000178 D=MAY80                                             *   FILE 178
//*   T FILE 178 - FLORIDA POWER CORPORATION - SOURCE               *   FILE 178
//*   K FLA FLORIDA POWER SOURCE V6                                 *   FILE 178
//*   K DONALD HIGGINS                                              *   FILE 178
//*   L STRUCTURED MACROS PANVALET PAN TAPESCAN TAPECOPY TAPE       *   FILE 178
//*   L IDRLIST REORGCHK XREF FSF FULL SCREEN TRAN3705 VTOC         *   FILE 178
//*   L UCBZAP FORTRAN DATECONV CONVERSION DATE TIME                *   FILE 178
//*   L SMF FPCMON MVSMON WHOAMI PORTS                              *   FILE 178
//*                                                                 *   FILE 178
//*      RELATED FILES: 177-179; DOCUMENTATION: 177                 *   FILE 178
//*                                                                 *   FILE 178
//*      THIS FILE CONTAINS THE SOURCE CODE OF THE FLORIDA          *   FILE 178
//*      POWER CORPORATION.                                         *   FILE 178
//*                                                                 *   FILE 178
//*    STRUCTURED ALC MACROS                                        *   FILE 178
//*    PAN      PDS        DESCRIPTION                              *   FILE 178
//*    NAME     NAME                                                *   FILE 178
//*  -------- ---------- -----------------------------------------  *   FILE 178
//*  AM010500 IF         CONDITIONALLY EXECUTE BLOCK OF CODE        *   FILE 178
//*  AM010600 THEN       BEGIN BLOCK OF CODE (OPTIONAL)             *   FILE 178
//*  AM010700 ELSE       BEGIN ALTERNATE BLOCK OF CODE FOR IF       *   FILE 178
//*  AM010800 DO         CONDITIONALLY REPEAT BLOCK OF CODE         *   FILE 178
//*  AM011000 FI         END OF CURRENT IF BLOCKS                   *   FILE 178
//*  AM011200 OD         END OF DO-WHILE OR DO-UNTIL BLOCK          *   FILE 178
//*  AM011300 DOCASE     DEFINE INDEX FOR ALTERNATE SEL. OF CASES   *   FILE 178
//*  AM011400 CASE       DEFINE VALUE OF INDEX FOR FOLLOWING        *   FILE 178
//*                      CASE CODE                                  *   FILE 178
//*  AM011500 ESAC       END OF CASE CODE BLOCK (UP TO 256 CASES)   *   FILE 178
//*  AM011600 ESACOD     END OF DOCASE (IE. EXIT POINT              *   FILE 178
//*                      FOR EACH CASE)                             *   FILE 178
//*  AM013600 ELSEIF     CONTRACTION OF ELSE AND IF (ONLY 1         *   FILE 178
//*                      IF REQ.)                                   *   FILE 178
//*                                                                 *   FILE 178
//*  *                                                              *   FILE 178
//*  * STANDARD LINKAGE FOR PROGRAMS AND LOCAL ROUTINES             *   FILE 178
//*  *                                                              *   FILE 178
//*  AM001100 PENTRY     DEFINE ENTRY TO A PERFORMED ROUTINE        *   FILE 178
//*  AM001200 PERFORM    PERFORM LOCAL ROUTINE WITHOUT USING REGS.  *   FILE 178
//*  AM001201 PM         PM - SAME AS PERFORM                       *   FILE 178
//*  AM001300 PEXIT      EXIT FROM LOCAL PERFORMED ROUTINE          *   FILE 178
//*  AM002500 SUBENTRY   ENTRY TO CALLED MODULE WITH REG.           *   FILE 178
//*                      AND BASE OPT.                              *   FILE 178
//*  AM002600 SUBEXIT    EXIT FROM CALLED MODULE                    *   FILE 178
//*  *                                                              *   FILE 178
//*  * GENERAL PROGRAMMING AIDS                                     *   FILE 178
//*  *                                                              *   FILE 178
//*  AM000500 DTIME      CREATE 22 BYTE FIELD WITH CURRENT          *   FILE 178
//*                      TIME/DATE                                  *   FILE 178
//*  AM000600 EDIT       EDIT ANY PACKED FIELD WITH COBOL           *   FILE 178
//*                      TYPE MASK                                  *   FILE 178
//*  AM000700 EQUREGS    GENERATE EQUATES FOR R0 THRU R15           *   FILE 178
//*  AM000900 FILL       PAD FIELD WITH BLANKS TO ASSEMBLED LENGTH  *   FILE 178
//*  AM001000 IOB        GENERATE IOB                               *   FILE 178
//*  AM002200 SCALL      FASTER CALL                                *   FILE 178
//*  AM002700 SYSIN      DCB FOR SYSIN                              *   FILE 178
//*  AM002800 SYSPRINT   DCB FOR SYSPRINT                           *   FILE 178
//*  AM002900 TAG        LABEL FOR NEXT HALFWORD                    *   FILE 178
//*  AM003100 MOVE       MOVE FOR OVER 256 BYTES VIA MVC'S          *   FILE 178
//*  AM008300 LT         LOAD AND TEST REGISTER                     *   FILE 178
//*  AM008400 EQUAL      EQUATE REGS AND LTORG AND COMMON BC        *   FILE 178
//*                      CONDITION                                  *   FILE 178
//*  AM008500 EQUI       EQU'S FOR IMMEDIATE DATA                   *   FILE 178
//*  AM008600 XREFI      CROSS REFERENCE IMMEDIATE DATA             *   FILE 178
//*  AM008700 LI         LOAD IMMEDIATE                             *   FILE 178
//*  AM008800 AI         ADD IMMEDIATE                              *   FILE 178
//*  AM008900 SI         SUB IMMEDIATE                              *   FILE 178
//*  AM009000 TB         TEST BITS                                  *   FILE 178
//*  AM009100 SB         SET BITS                                   *   FILE 178
//*  AM009200 ZB         ZERO BITS                                  *   FILE 178
//*  AM009300 XCH        EXCHANGE 2 FIELDS WITHOUT USING ANY        *   FILE 178
//*                      WORK AREA                                  *   FILE 178
//*  AM009400 XCHR       EXCHANGE 2 REGS WITHOUT USING ANY          *   FILE 178
//*                      OTHER REGS                                 *   FILE 178
//*  AM009500 ZR         ZERO A REGISTER                            *   FILE 178
//*  AM009600 AAI        ADD ADDRESS IMEDIATE (LA)                  *   FILE 178
//*  AM009700 SRC        SET REGISTER CONDITION CODE (LTR)          *   FILE 178
//*  AM009800 ZHB        ZERO HIGH BYTE                             *   FILE 178
//*  AM009900 SPOOLDAT   DEFINE HASP V4 SPOOL CHECKPOINT LAYOUT     *   FILE 178
//*  AM010000 XCP        EXECUTE CHANNEL PGM (XCP IOB,CCW,ERREXIT)  *   FILE 178
//*  AM010100 MC         MONITOR CALL                               *   FILE 178
//*  AM010200 CDS        COMPARE DOUBLE AND SWAP                    *   FILE 178
//*  AM010300 CS         COMPARE AND SWAP                           *   FILE 178
//*  AM010900 EQUBC      EQUATE COMMON BC CONDITIONS                *   FILE 178
//*                      (EQ,LT,GT,LE,ETC.)                         *   FILE 178
//*  AM011800 LOGICAL    DEFINE LOGICAL SWITCH BY STATE NAMES       *   FILE 178
//*  AM011900 DCWV       DEFINE WEAK V CON (L R15,V  BALR R14,R15)  *   FILE 178
//*  AM012000 LOADTCB    LOAD ADDRESS OF TCB WITHOUT EXTRACT        *   FILE 178
//*  AM012100 LOADTIOT   LOAD ADDRESS OF TIOT WITHOUT EXTRACT       *   FILE 178
//*  AM012200 FINDDD     SET R1 TO ADDR OF TIOT DD ENTRY OR ZERO    *   FILE 178
//*  AM012400 ACCEPT     READ 80 BYTE RECORD FROM SYSIN             *   FILE 178
//*  AM012500 DISPLAY    PRINT 133 BYTE RECORD ON SYSPRINT          *   FILE 178
//*  AM012600 TPPUTMSG   CALL TPPUT TO ROUTE MSG VIA MPS (GU640000) *   FILE 178
//*  AM012700 TRTTAB     DEFINE COMMON TRANSLATE TABLES             *   FILE 178
//*                      (PRINT,NUMERIC,)                           *   FILE 178
//*  AM012800 PTRACE     INVOKE TRACE OF EVERY PERFORM ON PTRACE DD *   FILE 178
//*  AM012900 FINDCDE    SET A1 TO ADDR OF CDE OR ZERO              *   FILE 178
//*  AM013000 DOEXIT     ALIAS OF OD TO END REPEAT BLOCK            *   FILE 178
//*  AM013100 HDC        DEFINE HEADING DATA BY STARTING COLUMN     *   FILE 178
//*  AM013200 ABSP       MAKE PACKED FIELD ABSOLUTE (SIGN F)        *   FILE 178
//*  AM013300 CLGDSECT   DSECT OF RECORDS FROM GU027000 - GETCATLG  *   FILE 178
//*  AM013400 QCBS       VS2-R1 QCB DSECT                           *   FILE 178
//*  AM013500 SDCB       SHORT FORM DCB                             *   FILE 178
//*                      (SDCB M=GL,R=FB,L=80,E=EOFRTN)             *   FILE 178
//*  AM013700 XCOM       SVC INTERFACE FOR CROSS MEMORY             *   FILE 178
//*                      MESSAGE SWITCH                             *   FILE 178
//*  AM013800 FINDPGM    SEARCH FOR PROGRAM AND SET RC 0 IF FOUND   *   FILE 178
//*  AM013900 WTP        WRITE TO PROGRAMMER                        *   FILE 178
//*  AM014000 SDSA       START DEFINE STORAGE AREA WITH             *   FILE 178
//*                      UNKNOWN LENGTH                             *   FILE 178
//*  AM014100 EDSA       END   DEFINE STORAGE AREA AND DEFINE LABEL *   FILE 178
//*  *                                                              *   FILE 178
//*  *  TSO COMMAND PROCESSOR MACROS FOR FPL CODE (SEE TO003000)    *   FILE 178
//*  *                                                              *   FILE 178
//*  AM020000 $CALL      FPL         MACRO                          *   FILE 178
//*  AM021000 $ENTER     FPL         MACRO                          *   FILE 178
//*  AM022000 $RTRN      FPL         MACRO                          *   FILE 178
//*  AM023000 #CTGPL     FPL         MACRO                          *   FILE 178
//*  AM024000 #SORT      FPL         MACRO                          *   FILE 178
//*  AM025000 #TSOBLKS   FPL         MACRO                          *   FILE 178
//*  AM026000 #TSOMSG    FPL         MACRO                          *   FILE 178
//*  AM027000 #UCS       FPL         MACRO                          *   FILE 178
//*  AM028000 #VTCFMT1   FPL         MACRO                          *   FILE 178
//*  AM029000 #VTCFMT3   FPL         MACRO                          *   FILE 178
//*  AM030000 #VTCFMT4   FPL         MACRO                          *   FILE 178
//*  AM031000 #VTCFMT5   FPL         MACRO                          *   FILE 178
//*  AM032000 IKJATRCB   FPL         MACRO                          *   FILE 178
//*  AM033000 IKJEBEST   FPL         MACRO                          *   FILE 178
//*                                                                 *   FILE 178
//*  * **** PAN UTILITIES ****                                      *   FILE 178
//*                                                                 *   FILE 178
//*  GU101000    READ ONLY VERSION OF PAN#1                         *   FILE 178
//*  GU102000    COMPARE MEMBERS OF PAN LIBRARIES (OR QSAM FILES)   *   FILE 178
//*  GU103000    COMPARE PRINT FILES AND LIST ONLY DIFFERENCES      *   FILE 178
//*  GU716001    SUBMIT JOBS FROM PAN LIBRARY AT SPECIFIED TIMES    *   FILE 178
//*  *                                                              *   FILE 178
//*  * **** TAPE UTILITIES ****                                     *   FILE 178
//*  *                                                              *   FILE 178
//*  GU000300 TAPESTRY     TAPE SCAN, LIST, COPY, AND DUMP UTILITY  *   FILE 178
//*  GU001400 FPCLABEL     TAPE LABELING AND TESTING UTILITY        *   FILE 178
//*  GU021200 TVOLCOPY     COPY ANY SINGLE TAPE VOLUME TO NEW       *   FILE 178
//*                        VOLUME                                   *   FILE 178
//*  *                                                              *   FILE 178
//*  * **** DATA SET UTILITIES ****                                 *   FILE 178
//*  *                                                              *   FILE 178
//*  GU000500 COPYSOME     SELECTIVE QSAM COPY UTILITY              *   FILE 178
//*  GU003700 ISAMSTAT     LIST ISAM PRIME AND OVERFLOW             *   FILE 178
//*                        UTILIZATION STATS.                       *   FILE 178
//*  GU009700 PDSDLIST     LIST PDS DIRECTORIES (780 PER PAGE)      *   FILE 178
//*  GU011800 PDSMLIST     LIST PDS MEMBERS IN ASCENDING            *   FILE 178
//*                        ORDER WITH PAGE CTL                      *   FILE 178
//*  GU011850 PDSQSAM      DUMP SOURCE PDS TO   QSAM FILE           *   FILE 178
//*                        WITH NAME IN 73-80                       *   FILE 178
//*  GU011860 QSAMPDS      LOAD SOURCE PDS FROM QSAM FILE           *   FILE 178
//*                        WITH NAME IN 73-80                       *   FILE 178
//*  GU017500 QSAMISAM     COPY QSAM FILE TO ISAM FILE              *   FILE 178
//*  GU017510 QSAMQSAM     COPY QSAM FILE TO QSAM FILE              *   FILE 178
//*  GU017600 ISAMQSAM     COPY ISAM FILE TO QSAM FILE              *   FILE 178
//*  GU021500 ISAMISAM     COPY ISAM FILE TO ISAM FILE              *   FILE 178
//*  GU024900 PDSCLIST     LIST CSECT CROSS-REFERENCE FOR           *   FILE 178
//*                        LOAD MODULE                              *   FILE 178
//*  GU023000 TEXTEDIT     BATCH TEXT EDITOR WITH STRING            *   FILE 178
//*                        SCAN AND REPLACE                         *   FILE 178
//*  GU029100 REORGCHK     CHECK ISAM OR PDS FILE AND SET           *   FILE 178
//*                        RETURN CODE                              *   FILE 178
//*  GU103000 PRTCOMP      COMPARE PRINT FILES FOR CHANGES          *   FILE 178
//*  GU107000              CREATE SEQ. PDS DIR. FILE FROM           *   FILE 178
//*                        PDS LOAD LIBS                            *   FILE 178
//*  GU110000 CRD          CROSS REFERENCED DICTIONARY USING        *   FILE 178
//*                        TSO FSF                                  *   FILE 178
//*  *                                                              *   FILE 178
//*  * **** MISCELLANOUS UTILITIES ****                             *   FILE 178
//*  *                                                              *   FILE 178
//*  GU006400 TRAN3705     TRANSLATE 3705 DUMP INTO 3705 BAL        *   FILE 178
//*  GU008300 WTORPARM     DISPLAY PARM FIELD ON CONSOLE AND        *   FILE 178
//*                        WAIT FOR REPLY                           *   FILE 178
//*  GU009900 TESTUTL      BATCH TEST DRIVER FOR IEFUTL             *   FILE 178
//*  GU105000 TASKLIST     ATTACH LIST OF TASKS FOR PARALLEL        *   FILE 178
//*                        EXECUTION                                *   FILE 178
//*  GU012000 IPLLOG       LIST BDAM FILE CONTAINING ALL IPL        *   FILE 178
//*                        MESSAGES                                 *   FILE 178
//*  GU012100 IPLCHECK     VERIFY TIME, DATE, AND OPERATOR REASON   *   FILE 178
//*  GU012400 WTOPARM      DISPLAY PARM ON CONSOLE                  *   FILE 178
//*  GU016600 STEPLIST     LIST SMF STEP RECORDS                    *   FILE 178
//*  GU016700 SMFCOUNT     LIST COUNT OF EACH SMF RECORD            *   FILE 178
//*                        TYPE IN FILE                             *   FILE 178
//*  GU017300 DEBUG        DEBUG MONITOR TO TRAP, LOG, AND          *   FILE 178
//*                        CORRECT 0C7                              *   FILE 178
//*  GU017700 PATCH        LOAD, ZAP,EXEC, AND/OR DUMP MODULES      *   FILE 178
//*  GU022800 SIM370       SIMULATE 370 INSTRUCTIONS VIA            *   FILE 178
//*                        SPIE ROUTINE                             *   FILE 178
//*  GU022900 TST370       TEST SIMULATOR                           *   FILE 178
//*  GU024500 TABULATE     TABULATE UP TO 12 COLUMNS OF NUMBERS     *   FILE 178
//*  GU026100 VTOCPULL     READ UTOC DSCBS AND CREATE QSAM FILE     *   FILE 178
//*  GU026200 VTOCSCRH     SCRATCH EXPIRED AND/OR                   *   FILE 178
//*                        UNAUTHORIZED DATA SETS                   *   FILE 178
//*  GU026300 VTOCLIST     LIST 3330 VTOCS BY DSN WITHIN            *   FILE 178
//*                        VOLUME WITH MAP                          *   FILE 178
//*  GU026400 VTOCMON      DRIVER FOR VTOC MAINTENANCE SYSTEM       *   FILE 178
//*  GU026700 VTOCUPDT     UPDATE VTOC MASTER                       *   FILE 178
//*  GU026900 DSNLIST      LIST ALL DSNS REGISTERED,                *   FILE 178
//*                        ALLOCATED, AND CATLG'D                   *   FILE 178
//*  GU027400 LISTMACS     LIST FREQ OF ALL OPERATION CODES         *   FILE 178
//*                        AND MACROS                               *   FILE 178
//*  GU037000 DSNUPDTE     UPDATE DSN MASTER FILE USED BY GU026900  *   FILE 178
//*  GU460000 KWICUTL      UTILITY TO PRODUCE KWIC LISTINGS         *   FILE 178
//*  GU687000 UCBZAP       DYNAMICALLY ZAP UCB DEVICE TYPES         *   FILE 178
//*                        VIA BATCH                                *   FILE 178
//*  GU860000 ENQEXEC      ISSUE ENQ AND EXECUTE PGM                *   FILE 178
//*                        SPECIFIED IN PARM                        *   FILE 178
//*  *                                                              *   FILE 178
//*  * *** FORTRAN PROGRAMMING AIDS ****                            *   FILE 178
//*  *                                                              *   FILE 178
//*  ER011000 RENUM        RENUMBER AND CROSS-REFERENCE             *   FILE 178
//*                        FORTRAN PROGRAM                          *   FILE 178
//*  GU118000 SFTALC       STRUCTURED FORTRAN TRANSLATOR IN ALC     *   FILE 178
//*  GU119000 SFTSFORT     STRUCTURED FORTRAN TRANSLATOR IN         *   FILE 178
//*                        STRUCTURED FORT                          *   FILE 178
//*  GU119001 SFTFORT      STRUCTURED FORTRAN TRANSLATOR            *   FILE 178
//*                        BOOTSTRAP IN FORT                        *   FILE 178
//*  GU137000 QUEENS       STRUCTURED FORTRAN TRANSLATOR 8          *   FILE 178
//*                        QUEEN DEMO                               *   FILE 178
//*  GU138000 SFTTEST      STRUCTURED FORTRAN TRANSLATOR TEST PGM   *   FILE 178
//*  GU682000 QUEINIT      INITIALIZE FIFO MESSAGE QUEUE FOR        *   FILE 178
//*                        FORTRAN                                  *   FILE 178
//*  GU683000 QUEGET       QUEUE GET/PUT SUBROUTINE                 *   FILE 178
//*  GU684000 QUETEST      TEST PROGRAM FOR QUEUE                   *   FILE 178
//*  GU722000 SWF          SEQ. REUSEABLE FILE FOR FORT VIA         *   FILE 178
//*                        BDAM (NO OPENS)                          *   FILE 178
//*  GU723000 SMFTEST      SWF TEST PROGRAM                         *   FILE 178
//*  *                                                              *   FILE 178
//*  * PAN      PDS        DESCRIPTION                              *   FILE 178
//*  * NAME     NAME                                                *   FILE 178
//*  *                                                              *   FILE 178
//*  * *** TIME AND DATE ROUTINES ****                              *   FILE 178
//*                        SEE OT780RS.SHRDOC(SUBDOCTD)             *   FILE 178
//*  *                                                              *   FILE 178
//*  GU008700 SRCVTGRE     CONVERT MMDDYY TO 0YYDDD                 *   FILE 178
//*  GU008800 SRCVTJUL     CONVERT YYDDD  TO MM/DD/YY               *   FILE 178
//*  GU008900 SROSDATE     RETURN CURRENT DATE AS MM/DD/YY          *   FILE 178
//*  GU009300 SROSTIME     RETURN CURRENT DATE/TIME AS              *   FILE 178
//*                        YYDDDHHMMS                               *   FILE 178
//*  GU016200 HHMMSS       CONVERT BINARY TIME IN TU'S TO           *   FILE 178
//*                        HH MM SS                                 *   FILE 178
//*  GU022400 TOD          RETURN TIME AND DATE                     *   FILE 178
//*                        AS HH.MM.SS.TH YY.DDD                    *   FILE 178
//*  GU024200 CDATE        RETURN BINARY MM, DD, AND                *   FILE 178
//*                        YY FOR FORTRAN                           *   FILE 178
//*  GU027900 OSDATE       DATE SUBROUTINE FOR                      *   FILE 178
//*                        FORTRAN (USES SROSDATE)                  *   FILE 178
//*  GU701000 TIMER        GENERAL TIMER SUPPORT FOR FORTRAN        *   FILE 178
//*  GU719000 DOW          DAY OF THE WEEK                          *   FILE 178
//*  GU719100              CVTDAYWK - CONVERT DAY OF WEEK           *   FILE 178
//*  GU870000              RETURN CPU TIME (TTIMER - ALSO           *   FILE 178
//*                        MACRO NAME)                              *   FILE 178
//*  *                                                              *   FILE 178
//*  *  DATA MANIPULATION    -    SEE OT780RS.SHRDOC(SUBDOCDM)      *   FILE 178
//*  *                                                              *   FILE 178
//*  GU010900 ALOAD        LOAD ARRAY WITH CONSTANT                 *   FILE 178
//*  GU011000 AMOVE        MOVE ANY NUMBER OF BYTES                 *   FILE 178
//*  GU011100 SNV          STORE NUMERIC VALUE FROM DISPLAY FIELD   *   FILE 178
//*  GU011200 ASHIFT       SHIFT CHARACTERS RIGHT TO FILL AREA      *   FILE 178
//*  GU013500 UNPKBITS     UNPACK BITS INTO ARRAY OF 0/1 BYTES      *   FILE 178
//*  GU013600 PACKBITS     PACK BYTES INTO ARRAY OF BITS            *   FILE 178
//*  GU013700 UNPKBIT      UNPACK ONE BIT INTO BYTE                 *   FILE 178
//*  GU013800 PACKBIT      PACK   ONE BYTE INTO CORRESPONDING BIT   *   FILE 178
//*  GU016300 CVTPB        CONVERT 4 BYTE PACKED FIELD TO 4         *   FILE 178
//*                        BYTE BINARY                              *   FILE 178
//*  GU016400 SMFIO        READ AND EXTRACT ANY FIELDS FROM         *   FILE 178
//*                        SMF RECORDS                              *   FILE 178
//*  GU410000 MVCL         MVCL SUBROUTINE FOR ARRAY MOVES          *   FILE 178
//*  GU490000 CLCL         CLCL SUBROUTINE FOR ARRAY COMPARES       *   FILE 178
//*  *                                                              *   FILE 178
//*  * EXTENDED FORTRAN FUNCTIONS                                   *   FILE 178
//*  *                                                              *   FILE 178
//*  GU011600 PLOTXY       GENERAL X Y PLOT ROUTINE FOR LINE        *   FILE 178
//*                        PRINTER                                  *   FILE 178
//*  GU027800 INFILQ       ENCODE/DECODE SUBROUTINE FOR FORTRAN     *   FILE 178
//*  GU400000 REREAD       REREAD SUBROUTINE FOR FORTRAN            *   FILE 178
//*  *                                                              *   FILE 178
//*  *  GENERAL PURPOSE SUBROUTINES                                 *   FILE 178
//*  *                                                              *   FILE 178
//*  GU009100 SRALTDCB     CHANGE DDNAME FOR FILE DCB PRIOR TO OPEN *   FILE 178
//*  GU009400 SRMOVEZO     FILL FIELD WITH ZEROS                    *   FILE 178
//*  GU014300 GETPDSDE     GET NEXT PDS DIRECTORY ENTRY             *   FILE 178
//*                        (FIXED 08/21/79)                         *   FILE 178
//*  GU015700 CASORT       SORT INTERFACE SUBROUTINE                *   FILE 178
//*  GU018800 SRSNAP       TAKE A SNAP DUMP ON FILE SRSNAP          *   FILE 178
//*  GU027100 SRABEND      ABEND                                    *   FILE 178
//*  GU024600 GETPDSDD     GET NEXT PDS LIBRARY DIRECTORY           *   FILE 178
//*                        FOR PDSLIBXX                             *   FILE 178
//*  GU027000 GETCATLG     RETURN ENTIRE SYSTEM CATALOG IN          *   FILE 178
//*                        DSN SEQ.                                 *   FILE 178
//*  GU420000 NOSTAE       SURPRESS STAE RECOVERY TO ALLOW          *   FILE 178
//*                        ORIG. ABEND                              *   FILE 178
//*  GU421000 NOSPIE       SURPRESS SPIE TO ALLOW ALL 0CX ABENDS    *   FILE 178
//*  GU422000 ABEND        ISSUE USER ABEND - CALL ABEND(NUMBER)    *   FILE 178
//*  GU423000 WTO          ISSUE WTO        - CALL WTO(MSG,LMSG)    *   FILE 178
//*  GU424000 WTOR         ISSUE WTOR       - CALL                  *   FILE 178
//*                        WTOR(MSG,LMSG,RPY,LRPY)                  *   FILE 178
//*  GU425000 GTSIZE       GET TERMINAL SIZE- CALL                  *   FILE 178
//*                        GTSIZE(LINE,SCREEN)                      *   FILE 178
//*  GU426000 SNAP         SNAP DUMP AREAS  - CALL                  *   FILE 178
//*                        SNAP(A1,L1,..AN,LN)                      *   FILE 178
//*  GU427000 TGET         GET TSO MESSAGE  - CALL TGET(MSG,LMSG)   *   FILE 178
//*  GU428000 TPUT         PUT TSO MESSAGE  - CALL TPUT(MSG,LMSG)   *   FILE 178
//*  GU429000 EXEC         EXECUTE ALC AND SUPPORT DYNAMIC STORAGE  *   FILE 178
//*  GU430000 EXECTEST     TEST EXEC SUBROUTINE FOR EACH INSTR.     *   FILE 178
//*  GU450000 KWIC         KEY WORD IN CONTEXT SHIFT FIELD          *   FILE 178
//*                        SUBROUTINE                               *   FILE 178
//*  GU610000 BYNAME       DYNAMIC CALL INTERFACE (PRIOR TO DCALL)  *   FILE 178
//*  GU620000              BYNAME SUPPORT SUBROUTINE                *   FILE 178
//*  GU650000 BISAMSET     FIND CLOSEST RECORD TO LAST BISAM READ   *   FILE 178
//*  GU703000 ABTERM       ABTERM INTERFACE                         *   FILE 178
//*  GU710000 SRTBLMGR     DYNAMIC TABLE LOADER FOR COBOL           *   FILE 178
//*  GU713000 ENQDEQ       ENQ/DEQ VIA CALL (ALSO MACRO NAMES)      *   FILE 178
//*  GU736000 USERID       RETURN TSO USER ID OR JOBNAME            *   FILE 178
//*  GU737000 CSRNO        RETURN CSR NUMBER FOR CURRENT JOB        *   FILE 178
//*                        OR TSO USER                              *   FILE 178
//*  GU739000 DDUAV        RETURN UNIT AND VOLUME OF A GIVEN DDNAME *   FILE 178
//*  SR201000 DCALL        DCALL DYNAMIC CALL INTERFACE             *   FILE 178
//*  SR203000 SR203000     ISAM FILE INTERFACE                      *   FILE 178
//*  SR204000 SR204000     BDAM FILE INTERFACE                      *   FILE 178
//*  SR308000 FSF          INTERFACE TO TSO 3270 FULL SCREEN        *   FILE 178
//*                        FACILITY                                 *   FILE 178
//*  SR309000              FSF SUPPORT ROUTINE                      *   FILE 178
//*  SR310000              FSF TEST DRIVER                          *   FILE 178
//*  SR311000 DLOAD        DYNAMIC LOAD ONLY SUBROUTINE             *   FILE 178
//*  SR312000 SBREAK       PROVIDE BREAK KEY PROGRAM CONTROL        *   FILE 178
//*                        FOR TSO                                  *   FILE 178
//*  SR313000              DEMO FORTRAN PROGRAM FOR SBREAK          *   FILE 178
//*  *                                                              *   FILE 178
//*  * PAN      PDS        DESCRIPTION                              *   FILE 178
//*  * NAME     NAME                                                *   FILE 178
//*  *                                                              *   FILE 178
//*  * SMF DAILY AND MONTHLY REPORTING SYSTEM                       *   FILE 178
//*  *                                                              *   FILE 178
//*  CS301000            SMF SYSTEM PERFORMANCE AND PROBLEM         *   FILE 178
//*                      ANALYSIS REPORT                            *   FILE 178
//*  CS302000 CS302      SMF SUBROUTINE TO DECODE UCB ADDR          *   FILE 178
//*                      FOR USE IN FORT.                           *   FILE 178
//*  CS303000            SMF DETAIL JOB ANALYSIS AND SUMMARY        *   FILE 178
//*                      REPORTS                                    *   FILE 178
//*  CS304000            SMF JOB CROSS-REFERENCE REPORTS            *   FILE 178
//*                      (PGM-JOB,TIME-JOB,                         *   FILE 178
//*  CS305000 CS305      SMF SUBROUTINE TO DECODE ABEND             *   FILE 178
//*                      CODES FOR FORTRAN                          *   FILE 178
//*  CS306000 CS306      SMF SUBROUTINE TO GIVE CURRENT DATE        *   FILE 178
//*                      IN BINARY YYDD                             *   FILE 178
//*  CS308000            SMF DUMP AND SELECTIVE COPY UTILITY        *   FILE 178
//*                      (SEE CS324000)                             *   FILE 178
//*  CS311000            SMF SUBROUTINE TO CONVERT BYTE TO 8        *   FILE 178
//*                      WORDS WITH BITS                            *   FILE 178
//*  CS312000            SMF REPORT POST PROCESSOR                  *   FILE 178
//*  CS313000            PAN CHANGE REPORT                          *   FILE 178
//*  CS314000            PGM MASTER UPDATE                          *   FILE 178
//*  CS317000            USER SUMMARY REPORTS FROM SMF              *   FILE 178
//*  CS318000 RCPCALC    COMMON CHARGE CALCULATION ROUTINE          *   FILE 178
//*                      FOR ALL SMF EXIT                           *   FILE 178
//*  CS323000            MONTHLY MGT. BY RESULTS REPORTS FOR        *   FILE 178
//*                      MANAGERS                                   *   FILE 178
//*  CS324000            JOB SCHEDULING REPORT                      *   FILE 178
//*  CS326000            SMF DAILY REPORTS FROM FPCMON              *   FILE 178
//*                      MONITOR (GU949000)                         *   FILE 178
//*  UI010000            USER FILE INTERFACE SUBROUTINE             *   FILE 178
//*  UI011000            DATA SET SECURITY INTERFACE SUBROUTINE     *   FILE 178
//*  UI012000            PROGRAM  SECURITY INTERFACE SUBROUTINE     *   FILE 178
//*  UI013000            TEST DRIVER FOR UI011 AND UI012            *   FILE 178
//*  *                                                              *   FILE 178
//*  * SVS SYSTEM UTILITIES                                         *   FILE 178
//*  *                                                              *   FILE 178
//*  GU920000 SVSMON     SVS INTERVAL DRIVEN MONITOR FOR            *   FILE 178
//*                      OPERATORS                                  *   FILE 178
//*  GU640001 MPS        SUPERVISOR FOR TCAM/TSO/BATCH APPLICATION  *   FILE 178
//*  GU670000 TPPUT      INTERFACE TO MPS TO PUT MESSAGE            *   FILE 178
//*  GU680000 TPGET      INTERFACE TO MPS TO GET MESSAGE            *   FILE 178
//*  GU681000 TPQUE      INTERFACE TO MPS TO CHECK IF               *   FILE 178
//*                      MESSAGE QUEUED                             *   FILE 178
//*  GU692001 UPRDRMOD   USER PROCLIB MODIFICATIONS FOR SVS         *   FILE 178
//*  GU726000 FPCPAL     DYNAMIC PAGE PARAMETER MODIFIER VIA CON    *   FILE 178
//*  TP401000 HELP       MPS CMD TO DISPLAY AVAILABLE MPS COMMAN    *   FILE 178
//*  TP402000 DATE       MPS CMD TO DISPLAY DATE IN FORM MM/DD/YY   *   FILE 178
//*  TP403000 PAGE       MPS CMD TO DISPLAY PAGING PARAMETERS       *   FILE 178
//*  TP404000 MEMORY     MPS CMD TO DISPLAY MEMORY USAGE            *   FILE 178
//*  TP405000 HASP       MPS CMD TO INTERFACE TO HASPMON PROCESSOR  *   FILE 178
//*  TP406000 HASPMON    MPS CMD TO HASP V4.0 COMMAND PROCESSOR     *   FILE 178
//*  TP407000 DISK       MPS CMD TO DISPLAY STATUS OF DISKS         *   FILE 178
//*  TP408000 TAPE       MPS CMD TO DISPLAY STATUS OF TAPES         *   FILE 178
//*  TP409000 WAIT$      MPS CMD TO DISPLAY TASKS WAITING           *   FILE 178
//*                      DUE TO I/O                                 *   FILE 178
//*  TP410000 ERROR      MPS CMD TO DISPLAY ERROR CONDITIONS        *   FILE 178
//*                      SUCH AS ABENDS                             *   FILE 178
//*  TP411000 EXCP$      MPS CMD TO DISPLAY EXCP COUNTS FOR         *   FILE 178
//*                      ANY BATCH JOBS                             *   FILE 178
//*  TP412000 RATE       MPS CMD TO DISPLAY EXCP AND CPU            *   FILE 178
//*                      RATES FOR BATCHJOBS                        *   FILE 178
//*  TP413000 PAL        MPS CMD TO DISPLAY PAGE DATA SET STATUS    *   FILE 178
//*  TP414000 DUMP       MPS CMD TO DISPLAY STORAGE BY ADDRESS      *   FILE 178
//*  TP417000 TSO        MPS CMD TO DISPLAY TSO, REGIONS,           *   FILE 178
//*                      AND USERS                                  *   FILE 178
//*  TP418000 SEND       MPS CMD TO SEND MESSAGE                    *   FILE 178
//*  GU019500 COPYSPOL   COPY SPOOLED HASP V4.0 OUTPUT TO A         *   FILE 178
//*                      QSAM FILE                                  *   FILE 178
//*  GU019600 HASPXDAP   SUBROUTINE TO READ HASP SPOOL              *   FILE 178
//*                      TRACKS VIA XDAP                            *   FILE 178
//*  GU022300 MAP        PRINT OS/VS2-R1.7 VIRTUAL AND REAL         *   FILE 178
//*                      STORAGE MAP                                *   FILE 178
//*  GU022500 GETMAP     SUPPORT SUBROUTINE FOR MAP OF              *   FILE 178
//*                      VS2-R1 STORAGE                             *   FILE 178
//*  GU024100 UNITNAME   ASSEMBLE DEVMASK TABLE FROM                *   FILE 178
//*                      UNITNAME TABLE                             *   FILE 178
//*  *                                                              *   FILE 178
//*  * MVS SYSTEM UTILITIES                                         *   FILE 178
//*  *                                                              *   FILE 178
//*  SR301000 XCOMSVC    SVC TO MESSAGE SWITCH BETWEEN ANY          *   FILE 178
//*                      ASCB TASK                                  *   FILE 178
//*  SR302000 XCPATH     USER CALL INTERFACE TO DYNAMICALLY         *   FILE 178
//*                      LOADED SR                                  *   FILE 178
//*  SR303000            USER CALL INTERFACE SUPPORT                *   FILE 178
//*  SR304000            XCOM TEXT PROGRAM                          *   FILE 178
//*  GU949000            FPCMON TSO DISPLAY COMMAND FOR LONG TASKS  *   FILE 178
//*  GU949010            FPCMON DATA COLLECTION SUBROUTINE          *   FILE 178
//*  GU949020            FPCMON SYSTEM TASK MAINLINE                *   FILE 178
//*  GU949030            FPCMON FILE MAINTENANCE                    *   FILE 178
//*  *                                                              *   FILE 178
//*  *                                                              *   FILE 178
//*  * MVS TSO COMMAND PROCESSORS                                   *   FILE 178
//*  *                                                              *   FILE 178
//*  GU104000 PGMDIR     LIST SELECTED RANGE OF FPC PAN             *   FILE 178
//*                      PROGRAM DIRECTORY                          *   FILE 178
//*  GU952000 PDSDIR     LIST SELECTED RANGE OF PDS                 *   FILE 178
//*                      DIRECTORY ENTRIES                          *   FILE 178
//*  SR305000 XCOM$      TSO DRIVER TO MESSAGE SWITCH TO ANY        *   FILE 178
//*                      ASCB TASK                                  *   FILE 178
//*  TO002000 WHOAMI     IDENTIFY TSO USER                          *   FILE 178
//*  TO003000 DSAT       FPL DISPLAY DATA SET INFO.                 *   FILE 178
//*  TO004000 DVOL       FPL DISPLAY VOLUME INFO.                   *   FILE 178
//*  TO005000 MMDEL      FPL DELETE MEMBERS OF PDS.                 *   FILE 178
//*  TO008000 PORTS      LIST CURRENT TSO USERS AND THEIR PORTS     *   FILE 178
//*  TO009000 WHERIS     IDENTIFY SPECIFIED TSO USER                *   FILE 178
//*  TO009001            TERMINAL LOCATION INDEX                    *   FILE 178
//*  TO010000            UPDATE USER ID TABLE                       *   FILE 178
//*  TO011000            UID TABLE                                  *   FILE 178
//*  TO012000 TERMSET    SET TERMINAL CHARACTERISTICS               *   FILE 178
//*  TO023000 PANGET     COPY PAN MEMBER TO TSO DSN                 *   FILE 178
//*  TO024000 PANDIR     LIST SELECTED RANGE FROM PAN DIRECTORY     *   FILE 178
//*  TO025000 PANPUT     COPY TSO DSN TO PAN MEMBER                 *   FILE 178
//*  TO027000 PANEXIT    EXIT FOR CONTROL OF PAN USAGE              *   FILE 178
//*  TO030000 JULGRE     CONVERT JULIAN TO GEGORIAN                 *   FILE 178
//*  GU955000 MVSMON     MVS MONITOR FOR OPERATORS AND TSO USERS    *   FILE 178
//*                                                                 *   FILE 178
//***FILE 179 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 179
//*           THIS MEANS "SPLA TAPE FILE 079".                      *   FILE 179
//*                                                                 *   FILE 179
//*   H F000179 D=MAY80                                             *   FILE 179
//*   T FILE 179 - FLORIDA POWER CORPORATION - SAMPLE JCL           *   FILE 179
//*   K FLA FLORIDA POWER JCL V6                                    *   FILE 179
//*   K DONALD HIGGINS                                              *   FILE 179
//*                                                                 *   FILE 179
//*  RELATED FILES: 177-179; DOCUMENTATION: 177                     *   FILE 179
//*                                                                 *   FILE 179
//*  THIS FILE CONTAINS THE SAMPLE JCL FROM FLORIDA POWER           *   FILE 179
//*  CORPORATION.                                                   *   FILE 179
//*                                                                 *   FILE 179
//*  *                                                              *   FILE 179
//*  * PAN      PDS        DESCRIPTION                              *   FILE 179
//*  * NAME     NAME                                                *   FILE 179
//*  *                                                              *   FILE 179
//*  * *** LANGUAGE COMPILERS     ****                              *   FILE 179
//*  *                                                              *   FILE 179
//*  GU800R0P FORTC        STRUCTURED FORTRAN G1                    *   FILE 179
//*  GU810R0P FORTCL                                                *   FILE 179
//*  GU820R0P FORTCLG                                               *   FILE 179
//*  *                                                              *   FILE 179
//*  * *** PAN SOURCE LIBRARY ***                                   *   FILE 179
//*  *                                                              *   FILE 179
//*  GUXX1130 EDITPAN      EDIT PAN MEMBER USING TEXT EDITOR IN     *   FILE 179
//*                        BATCH                                    *   FILE 179
//*  GU821R0P PCOMPARE     COMPARE TWO MEMBERS OF PAN LIBRARY       *   FILE 179
//*  *                                                              *   FILE 179
//*  * *** PDS UTILITITES ***                                       *   FILE 179
//*  *                                                              *   FILE 179
//*  GUXX1270 PDSDLIST     LIST PDS DIRECTORY (780 ENTRIES PER      *   FILE 179
//*                        PAGE)                                    *   FILE 179
//*  GUXX1280 PDSMLIST     LIST ALL OR SELECTED MEMBERS OF          *   FILE 179
//*                        SOURCE PDS                               *   FILE 179
//*  GUXX1310 PDSCLIST     CROSS REFERENCE MEMBERS AND CSECTS OF    *   FILE 179
//*                        LOAD PDS                                 *   FILE 179
//*  *                                                              *   FILE 179
//*  * *** SMF DAILY REPORT PROCEDURE ***                           *   FILE 179
//*  *                                                              *   FILE 179
//*  CS301R0P              SMF DAILY REPORTING SYSTEM PROCEDURE     *   FILE 179
//*  *                                                              *   FILE 179
//*  * *** GENERAL UTILITIES ***                                    *   FILE 179
//*  *                                                              *   FILE 179
//*  GUXX1230 TABULATE     LIST AND TABULATE UP TO 12 COLUMNS OF    *   FILE 179
//*                        NUMBERS                                  *   FILE 179
//*  ER904R0P RENUM        FORTRAN RENUMBER                         *   FILE 179
//*  GUXX1150 TVOLCOPY     COPY TAPE VOLUME                         *   FILE 179
//*  GU102R0P KWICRPTS     KEY WORD IN CONTEXT REPORT GENERATOR     *   FILE 179
//*  GU822R0P COMPARE      COMPARE TWO SEQUENTIAL SOURCE FILES      *   FILE 179
//*                                                                 *   FILE 179
//***FILE 180 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 180
//*           THIS MEANS "SPLA TAPE FILE 080".                      *   FILE 180
//*                                                                 *   FILE 180
//*   H F000180 D=JUL80                                             *   FILE 180
//*   T FILE 180 - SPF PANVALET INTERFACE FROM MCAUTO -             *   FILE 180
//*                MENUS                                            *   FILE 180
//*   K SPF PANVALET MCAUTO MENUS PAN V7                            *   FILE 180
//*   K LARRY HOLLIDAY                                              *   FILE 180
//*                                                                 *   FILE 180
//*      RELATED FILES: 180-182                                     *   FILE 180
//*                                                                 *   FILE 180
//*      THIS FILE CONTAINS THE SPF/PANVALET INTERFACE FROM         *   FILE 180
//*      MCDONNELL DOUGLAS AUTOMATION COMPANY.                      *   FILE 180
//*                                                                 *   FILE 180
//*      FILE 180 CONTAINS THE MENUS                                *   FILE 180
//*      FILE 181 CONTAINS THE PROCS                                *   FILE 180
//*      FILE 182 CONTAINS THE CLISTS                               *   FILE 180
//*                                                                 *   FILE 180
//*      CONTRIBUTOR LARRY R. HOLLIDAY                              *   FILE 180
//*                  SUPERVISOR - SYSTEMS PROGRAMMING               *   FILE 180
//*                  HEALTH SERVICES DIVISION                       *   FILE 180
//*                  MCDONNELL DOUGLAS AUTOMATION COMAPNY           *   FILE 180
//*                  5775 CAMPUS PARKWAY                            *   FILE 180
//*                  HAZELWOOD, MISSOURI 63042                      *   FILE 180
//*                  PHONE (314) 232-8471                           *   FILE 180
//*                                                                 *   FILE 180
//***FILE 181 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 181
//*           THIS MEANS "SPLA TAPE FILE 081".                      *   FILE 181
//*                                                                 *   FILE 181
//*   H F000181 D=JUL80                                             *   FILE 181
//*   T FILE 181 - SPF PANVALET INTERFACE FROM MCAUTO -             *   FILE 181
//*                PROCS                                            *   FILE 181
//*   K SPF PANVALET MCAUTO MENUS PAN V7                            *   FILE 181
//*   K LARRY HOLLIDAY                                              *   FILE 181
//*                                                                 *   FILE 181
//*      RELATED FILES: 180-182                                     *   FILE 181
//*                                                                 *   FILE 181
//*      THIS FILE CONTAINS THE PROCS FOR THE SPF/PANVALET          *   FILE 181
//*      INTERFACE FROM MCDONNELL DOUGLAS AUTOMATION COMPANY.       *   FILE 181
//*                                                                 *   FILE 181
//***FILE 182 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 182
//*           THIS MEANS "SPLA TAPE FILE 082".                      *   FILE 182
//*                                                                 *   FILE 182
//*   H F000182 D=JUL80                                             *   FILE 182
//*   T FILE 182 - SPF PANVALET INTERFACE FROM MCAUTO -             *   FILE 182
//*                CLISTS                                           *   FILE 182
//*   K SPF PANVALET MCAUTO MENUS PAN V7                            *   FILE 182
//*   K LARRY HOLLIDAY                                              *   FILE 182
//*                                                                 *   FILE 182
//*      RELATED FILES: 180-182                                     *   FILE 182
//*                                                                 *   FILE 182
//*      THIS FILE CONTAINS THE CLISTS FOR THE SPF/PANVALET         *   FILE 182
//*      INTERFACE FROM MCDONNELL DOUGLAS AUTOMATION COMPANY.       *   FILE 182
//*                                                                 *   FILE 182
//***FILE 183 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 183
//*           THIS MEANS "SPLA TAPE FILE 083".                      *   FILE 183
//*                                                                 *   FILE 183
//*           H F000183 D=SEP82                                     *   FILE 183
//*           T FILE 183 - TSO ENHANCEMENTS FROM DELUXE CHECK       *   FILE 183
//*                        PRINTERS                                 *   FILE 183
//*           K V22 TSO SPF CHECK LOOS                              *   FILE 183
//*           K DELUXE CHECK PRINTERS HOWARD DEAN GTE               *   FILE 183
//*                                                                 *   FILE 183
//*      RELATED FILES: 134-136, 183. DOCUMENTATION IS IN           *   FILE 183
//*      FILE 134 MEMBER $$$DOC.                                    *   FILE 183
//*                                                                 *   FILE 183
//*      THIS FILE CONTAINS A SERIES OF ENHANCEMENTS FOR THE        *   FILE 183
//*      TSO ENVIRONMENT, PARTICULARLY SPF RECEIVED FROM DELUXE     *   FILE 183
//*      CHECK PRINTERS BY WAY OF HOWARD DEAN AT GTE DATA           *   FILE 183
//*      SERVICES.  HOWARD IS ACTING AS A CLEARING HOUSE FOR        *   FILE 183
//*      TSO MODIFICATIONS.                                         *   FILE 183
//*                                                                 *   FILE 183
//*       ANY INSTALLATION PROBLEMS OR FIXES TO BUGS MAY BE         *   FILE 183
//*       ADDRESSED TO                                              *   FILE 183
//*                                                                 *   FILE 183
//*            Mike Loos                                            *   FILE 183
//*            VP of Ops and Tech Support                           *   FILE 183
//*            Fair, Isaac and Company, Inc.                        *   FILE 183
//*            4295 Lexington Avenue North                          *   FILE 183
//*            St. Paul, MN  55126                                  *   FILE 183
//*            mikeloos@fairisaac.com                               *   FILE 183
//*                                                                 *   FILE 183
//*      ADDITIONAL SUB-PROGRAMS AND MACROS NEEDED TO ASSEMBLE      *   FILE 183
//*      THOSE PROGRAMS WERE ADDED FOR THE SHARE SPLA MODS TAPE     *   FILE 183
//*      BY:                                                        *   FILE 183
//*                                                                 *   FILE 183
//*            HOWARD DEAN          (NOT AT THIS ADDRESS ANY MORE)  *   FILE 183
//*            GTE DATA SERVICES                                    *   FILE 183
//*            4750 LINCOLN BLVD.                                   *   FILE 183
//*            MARINA DEL REY, CALIFORNIA 90291                     *   FILE 183
//*            PHONE (213) 821-0511 EXT. 330                        *   FILE 183
//*                                                                 *   FILE 183
//*      BESIDES THE PROGRAMS LISTED BELOW, THIS FILE CONTAINS      *   FILE 183
//*      MANY CLIST, MACROS, HELP MEMBERS, AND SPF STUFF THAT       *   FILE 183
//*      MAY PROVE USEFUL.  SEE MEMBER $$$DOC FOR ADDITIONAL        *   FILE 183
//*      DOCUMENTATION                                              *   FILE 183
//*                                                                 *   FILE 183
//*      FOLDIT    PROGRAM FOR PRINTING DATA SETS WITH UPPER        *   FILE 183
//*                AND LOWER CASE CHARACTERS ON PRINTERS            *   FILE 183
//*                LACKING THE LUXURY OF LOWER CASE.                *   FILE 183
//*                                                                 *   FILE 183
//*      SMFSEL    THIS PROGRAM COPIES ONE SMF HISTORY TAPE TO      *   FILE 183
//*                ANOTHER BUT ALLOWS SELECTION  BY DATE            *   FILE 183
//*                (JULIAN) AND TIME (MILITARY 24 HR CLOCK).        *   FILE 183
//*                (FIXED BUG WITH DATE SELECTION)                  *   FILE 183
//*                                                                 *   FILE 183
//*      $         TSO COMMAND TO CALL PROGRAMS FROM  *HMD 09/81*   *   FILE 183
//*                A LINKLIST LIB.  ALIASES ARE '#',  *HMD 09/81*   *   FILE 183
//*                AUTH, XEQ.                                       *   FILE 183
//*                                                                 *   FILE 183
//*      WHATIF     TSO COMMAND TO CHECK THE STATUS   *HMD 09/81*   *   FILE 183
//*                 OF DATASETS AND COMPARE STRINGS   *HMD 09/81*   *   FILE 183
//*                 AND OPTIONALLY STACK A COMMAND                  *   FILE 183
//*                                                                 *   FILE 183
//***FILE 184 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 184
//*           THIS MEANS "SPLA TAPE FILE 084".                      *   FILE 184
//*                                                                 *   FILE 184
//*   H F000184 D=NOV80                                             *   FILE 184
//*   T FILE 184 - YALE UNIVERSITY COMPUTER CENTER -                *   FILE 184
//*                DOCUMENTATION                                    *   FILE 184
//*   K YALE YU DOCUMENTATION V8                                    *   FILE 184
//*   K HOWARD GILBERT                                              *   FILE 184
//*   L RACF ACF SECURITY TAPE LIBRARY TMS TLMS SVC SSSH            *   FILE 184
//*                ASMTOZAP                                         *   FILE 184
//*   L SMP HAL STRUCTURED ASM BAL PREPROCESSOR PL1 PLI             *   FILE 184
//*                BLIP BLKSPTRK                                    *   FILE 184
//*   L FLY MLPA APF STEPLIB DYNAMIC                                *   FILE 184
//*                                                                 *   FILE 184
//*      RELATED FILES: 184-191; DOCUMENTATION: 184                 *   FILE 184
//*                                                                 *   FILE 184
//*      THIS FILE IS THE DOCUMENTATION FOR VARIOUS STUFF           *   FILE 184
//*      CONTRIBUTED BY                                             *   FILE 184
//*                                                                 *   FILE 184
//*                   HOWARD GILBERT                                *   FILE 184
//*                   YALE COMPUTER CENTER                          *   FILE 184
//*                   175 WHITNEY AVE                               *   FILE 184
//*                   NEW HAVEN, CT. 06520                          *   FILE 184
//*                   (203) 432-6608                                *   FILE 184
//*                                                                 *   FILE 184
//*      IT CONTAINS UPPER AND LOWER CASE CHARACTERS                *   FILE 184
//*                                                                 *   FILE 184
//*      SEE MEMBER INDEX FOR A COMPLETE DESCRIPTION                *   FILE 184
//*                                                                 *   FILE 184
//*      MOST NOTABLE STUFF ON THIS TAPE INCLUDES THE               *   FILE 184
//*      FOLLOWING:                                                 *   FILE 184
//*                                                                 *   FILE 184
//*        0.1   ACCESS CONTROL FACILITY                            *   FILE 184
//*                                                                 *   FILE 184
//*           YALE HAS DEVELOPED A MINIMAL ACCESS CONTROL           *   FILE 184
//*        FACILITY USING THE IBM SUPPLIED RACF HOOKS.              *   FILE 184
//*        BASICALLY, WE PROVIDE A UTILITY TO SELECTIVELY TURN      *   FILE 184
//*        ON THE RACF BIT IN THE VTOC FOR NON-VSAM DATASETS        *   FILE 184
//*        (AND TO STORE ADDITIONAL RACF OPTIONS AND PROTECT        *   FILE 184
//*        INFORMATION IN THE DATASET DSCB).  THE IBM SUPPLIED      *   FILE 184
//*        SVC 130 SIMPLY ABENDS, SO WE REPLACE IT WITH REAL        *   FILE 184
//*        ACCESS CONTROL CODE WHICH USES THE INFORMATION IN        *   FILE 184
//*        THE DSCB AND THE USERID AND ACCOUNT OF THE CALLER TO     *   FILE 184
//*        MAKE THE ACCESS CONTROL DECISION.  YOUR INSTALLATION     *   FILE 184
//*        MUST PROVIDE ITS OWN BATCH-PASSWORD OR OTHER BATCH       *   FILE 184
//*        IDENTIFICATION VERIFICATION MECHANISM.                   *   FILE 184
//*           A MORE COMPREHENSIVE DESCRIPTION OF FEATURES CAN      *   FILE 184
//*        BE FOUND IN THE DOCUMENTATION MEMBER RACTALK.  A         *   FILE 184
//*        MEMO TO USERS WHICH WAS DISTRIBUTED AT YALE IS           *   FILE 184
//*        CONTAINED IN MEMBER PROTECT.                             *   FILE 184
//*                                                                 *   FILE 184
//*        0.2   TAPE LIBRARY MANAGEMENT SYSTEM                     *   FILE 184
//*                                                                 *   FILE 184
//*           TAPESYS IS A TAPE SYSTEM ORIENTED TO THE LESS         *   FILE 184
//*        STRUCTURED TAPE LIBRARIES COMMON IN UNIVERSITY AND       *   FILE 184
//*        SERVICE BUREAU ENVIRONMENTS.  UNLIKE MOST COMMERCIAL     *   FILE 184
//*        TAPE SYSTEMS, IT IS VERY FORGIVING AND ALLOWS            *   FILE 184
//*        CONVERSION OF ALMOST ANY TAPE LIBRARY WITH ALMOST        *   FILE 184
//*        ANY VOLUME NAMING CONVENTION TO A MORE CONTROLLED        *   FILE 184
//*        SYSTEM. IN ADDITION TO ACCESS CONTROL, THE USER IS       *   FILE 184
//*        PROVIDED WITH SOME PROTECTION AGAINST ACCIDENTALLY       *   FILE 184
//*        OVERWRITING HIS OWN FILES.  A PREREQUISITE IS THE        *   FILE 184
//*        GSAM IUP TO PROVIDE CROSS-ADDRESS-SPACE ACCESS TO        *   FILE 184
//*        VSAM DATABASES.                                          *   FILE 184
//*           TAPESYS IS THE YALE SOFTWARE SYSTEM WHICH COMES       *   FILE 184
//*        CLOSEST TO BEING FULLY PACKAGED AND DOCUMENTED AND       *   FILE 184
//*        YET IS NOT NORMALLY SOLD. IT IS AVAILABLE BY SPECIAL     *   FILE 184
//*        ARRAGEMENT TO UNIVERSITIES AND NON-PROFIT                *   FILE 184
//*        ORGANIZATIONS AT NO COST.  USUALLY WE LIKE TO SWAP       *   FILE 184
//*        IT FOR SOMETHING (PROGRAMS, DATABASES, WSCRIPT OR        *   FILE 184
//*        DCF INPUT TO GENERATE GENERAL USE MANUALS FOR COMMON     *   FILE 184
//*        SYSTEMS, OR ANYTHING ELSE OF GENERAL USE THAT CAN GO     *   FILE 184
//*        ON A TAPE).  IT HAS A RATHER LARGE SYSTEM                *   FILE 184
//*        PROGRAMMER'S DOCUMENT TAPEPDOM AND A LARGE USER          *   FILE 184
//*        DOCUMENT TAPESYS. THE MEMBER TAPETALK GIVES A SHORT      *   FILE 184
//*        INTRODUCTION.                                            *   FILE 184
//*                                                                 *   FILE 184
//*        0.3   SUBSYSTEM SVC SCREEN HANDLER                       *   FILE 184
//*                                                                 *   FILE 184
//*           IBM PROVIDES A SUPERVISOR FACILITY FOR AUTHORIZED     *   FILE 184
//*        PROGRAMS TO INTERCEPT CALLS TO SELECTED SVC NUMBERS      *   FILE 184
//*        IN SELECTED TASKS.  THE SSSH ROUTINE IS A USER SVC       *   FILE 184
//*        WHICH EXTENDS THIS FACILITY TO UNAUTHORIZED CALLERS      *   FILE 184
//*        AND COORDINATES THE SVC SCREEN ACTIVITY OF SEVERAL       *   FILE 184
//*        TASKS IN THE SAME ADDRESS SPACE. IT CAN BE USED TO       *   FILE 184
//*        PROVIDE PACKAGED FUNCTIONS TO THE END USER (LIKE A       *   FILE 184
//*        TSO SESSION LOG) OR AS A SYSTEM PROGRAMMER DEBUGGING     *   FILE 184
//*        AND INFORMATION GATHERING DEVICE. THE SSSH MEMBER OF     *   FILE 184
//*        THE DOCUMENTATION FILE DESCRIBES ITS USE AND             *   FILE 184
//*        INSTALLATION.                                            *   FILE 184
//*                                                                 *   FILE 184
//*        0.4   ASMTOZAP                                           *   FILE 184
//*                                                                 *   FILE 184
//*           THE MAINTENANCE OF LOCAL MODIFICATIONS TO MVS         *   FILE 184
//*        CODE ACROSS IBM PTF AND SU ACTIVITY CAN BE A BIG         *   FILE 184
//*        PROBLEM. ASMTOZAP IS A PL/I PROGRAM WHICH SERVES A       *   FILE 184
//*        UTILITY FUNCTION TO SIMPLIFY THIS PROCESS.  IT READS     *   FILE 184
//*        THE LISTING FILE OF AN ASSEMBLY AND PRODUCES             *   FILE 184
//*        AMASPZAP (AND SMP) INPUT CARDS AS ITS OUTPUT FILE.       *   FILE 184
//*        ASMTOZAP IS USED WHENEVER A ZAP MUST BE MADE TO AN       *   FILE 184
//*        IBM SUPPLIED MODULE WHERE THE OFFSET OF THE CODE CAN     *   FILE 184
//*        CHANGE OR THE DATA BEING MODIFED CONTAINS                *   FILE 184
//*        RELOCATABLE DATA.  THE ASMTOZAP MEMBER OF THE            *   FILE 184
//*        DOCUMENTATION DATASET DESCRIBES THE CONTROL CARDS        *   FILE 184
//*        SYNTAX AND GIVES AN EXAMPLE OF ITS PROPER USE.           *   FILE 184
//*                                                                 *   FILE 184
//*        0.5   HAL MACROS                                         *   FILE 184
//*                                                                 *   FILE 184
//*           ANYONE WHO PROGRAMS IN ASSEMBLER LANGUAGE NEEDS A     *   FILE 184
//*        GOOD SET OF STRUCTURED PROGRAMING MACROS. HAL IS THE     *   FILE 184
//*        SET WE USE AT YALE. THE HAL MEMBER OF THE                *   FILE 184
//*        DOCUMENTATION DATASET DESCRIBES THE USE OF THIS MACRO    *   FILE 184
//*        SYSTEM. THE HAL MACROS ARE INCLUDED IN ONE MEMBER OF     *   FILE 184
//*        THE MACRO LIBRARY (ONE USES COPY TO INCLUDE THEM AT      *   FILE 184
//*        THE BEGINNING OF AN ASSEMBLY). THE HALFMT UTILITY        *   FILE 184
//*        INCLUDED IN THE ASSEMBLER SOURCE FILE WILL PRODUCE       *   FILE 184
//*        AN ATTRACTIVE INDENTED SOURCE LISTING OF A HAL           *   FILE 184
//*        STRUCTURED PROGRAM.                                      *   FILE 184
//*                                                                 *   FILE 184
//*        0.6   GENERAL PURPOSE PRE-PROCESSOR                      *   FILE 184
//*                                                                 *   FILE 184
//*           GPPP WAS AN EXPERIMENT WRITING A PL/I                 *   FILE 184
//*        PREPROCESSOR IN PL/I.  IT WORKS WELL ENOUGH, BUT HAS     *   FILE 184
//*        MOSTLY BEEN AN INTERESTING EXPERIMENT RATHER THAN A      *   FILE 184
//*        PRODUCT. UNFORTUNATELY, IT HAS BEEN RATHER USEFUL IN     *   FILE 184
//*        SOLVING LOCAL PROBLEMS AND IS A PREREQUISITE TO SOME     *   FILE 184
//*        OF OUR LOCAL CODE. THE GPPP MEMBER OF THE                *   FILE 184
//*        DOCUMENTATION FILE DESCRIBES THE USE OF THIS SYSTEM.     *   FILE 184
//*        IT MAY BE INTERESTING TO CONTRAST THIS PRODUCT TO        *   FILE 184
//*        THE PL/I LANGUAGE CONSTRUCTION IUP WHICH HAS             *   FILE 184
//*        SUBSEQUENTLY BEEN RELEASED AND WHICH USES A              *   FILE 184
//*        DIFFERENT APPROACH.                                      *   FILE 184
//*                                                                 *   FILE 184
//***FILE 185 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 185
//*           THIS MEANS "SPLA TAPE FILE 085".                      *   FILE 185
//*                                                                 *   FILE 185
//*   H F000185 D=NOV80                                             *   FILE 185
//*   T FILE 185 - YALE UNIVERSITY COMPUTER CENTER -                *   FILE 185
//*                SOURCE                                           *   FILE 185
//*   K YALE YU SOURCE ASM V8                                       *   FILE 185
//*   K HOWARD GILBERT                                              *   FILE 185
//*                                                                 *   FILE 185
//*      RELATED FILES: 184-191; DOCUMENTATION: 184                 *   FILE 185
//*                                                                 *   FILE 185
//*      THIS FILE CONTAINS THE ASSEMBLER SOURCE CODE FROM YALE     *   FILE 185
//*      COMPUTER CENTER.                                           *   FILE 185
//*                                                                 *   FILE 185
//***FILE 186 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 186
//*           THIS MEANS "SPLA TAPE FILE 086".                      *   FILE 186
//*                                                                 *   FILE 186
//*   H F000186 D=NOV80                                             *   FILE 186
//*   T FILE 186 - YALE UNIVERSITY COMPUTER CENTER - PLI            *   FILE 186
//*                SOURCE (VB)                                      *   FILE 186
//*   K YALE YU PL1 PLI VB V8                                       *   FILE 186
//*   K HOWARD GILBERT                                              *   FILE 186
//*                                                                 *   FILE 186
//*      RELATED FILES: 184-191; DOCUMENTATION: 184                 *   FILE 186
//*                                                                 *   FILE 186
//*      THIS FILE CONTAINS THE PLI OPTIMIZING SOURCE IN VB         *   FILE 186
//*      FORMAT FROM THE YALE COMPUTER CENTER                       *   FILE 186
//*                                                                 *   FILE 186
//***FILE 187 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 187
//*           THIS MEANS "SPLA TAPE FILE 087".                      *   FILE 187
//*                                                                 *   FILE 187
//*   H F000187 D=NOV80                                             *   FILE 187
//*   T FILE 187 - YALE UNIVERSITY COMPUTER CENTER - PLI            *   FILE 187
//*                SOURCE (FB)                                      *   FILE 187
//*   K YALE YU PL1 PLI V8                                          *   FILE 187
//*   K HOWARD GILBERT                                              *   FILE 187
//*                                                                 *   FILE 187
//*      RELATED FILES: 184-191; DOCUMENTATION: 184                 *   FILE 187
//*                                                                 *   FILE 187
//*      THIS FILE CONTAINS THE PLI OPTIMIZING SOURCE IN FB         *   FILE 187
//*      FORMAT FROM THE YALE COMPUTER CENTER                       *   FILE 187
//*                                                                 *   FILE 187
//***FILE 188 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 188
//*           THIS MEANS "SPLA TAPE FILE 088".                      *   FILE 188
//*                                                                 *   FILE 188
//*   H F000188 D=NOV80                                             *   FILE 188
//*   T FILE 188 - YALE UNIVERSITY COMPUTER CENTER -                *   FILE 188
//*                MACLIB                                           *   FILE 188
//*   K YALE YU MACROS ASM V8                                       *   FILE 188
//*   K HOWARD GILBERT                                              *   FILE 188
//*                                                                 *   FILE 188
//*      RELATED FILES: 184-191; DOCUMENTATION: 184                 *   FILE 188
//*                                                                 *   FILE 188
//*      THIS FILE CONTAINS THE ASSEMBLER MACROS FROM YALE          *   FILE 188
//*      COMPUTER CENTER.                                           *   FILE 188
//*                                                                 *   FILE 188
//***FILE 189 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 189
//*           THIS MEANS "SPLA TAPE FILE 089".                      *   FILE 189
//*                                                                 *   FILE 189
//*   H F000189 D=NOV80                                             *   FILE 189
//*   T FILE 189 - YALE UNIVERSITY COMPUTER CENTER -                *   FILE 189
//*                SYSMODS                                          *   FILE 189
//*   K YALE YU SYSMODS ASMTOZAP V8                                 *   FILE 189
//*   K HOWARD GILBERT                                              *   FILE 189
//*                                                                 *   FILE 189
//*      RELATED FILES: 184-191; DOCUMENTATION: 184                 *   FILE 189
//*                                                                 *   FILE 189
//*      THIS FILE CONTAINS ASMTOZAP INPUT PRODUCING SYSMODS IN     *   FILE 189
//*      SMP/E FORMAT FOR COMPLICATED CHANGES TO MVS MODULES        *   FILE 189
//*      FROM THE YALE COMPUTER CENTER                              *   FILE 189
//*                                                                 *   FILE 189
//***FILE 190 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 190
//*           THIS MEANS "SPLA TAPE FILE 090".                      *   FILE 190
//*                                                                 *   FILE 190
//*   H F000190 D=NOV80                                             *   FILE 190
//*   T FILE 190 - YALE UNIVERSITY COMPUTER CENTER -                *   FILE 190
//*                SYSMODS                                          *   FILE 190
//*   K YALE YU SYSMODS ZAP V8 SUPERZAP ASMSPZAP SMP                *   FILE 190
//*   K HOWARD GILBERT                                              *   FILE 190
//*                                                                 *   FILE 190
//*      RELATED FILES: 184-191; DOCUMENTATION: 184                 *   FILE 190
//*                                                                 *   FILE 190
//*      THIS FILE CONTAINS SMP4 PTFS FOR SYSMODS FROM YALE         *   FILE 190
//*      COMPUTER CENTER.                                           *   FILE 190
//*                                                                 *   FILE 190
//***FILE 191 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 191
//*           THIS MEANS "SPLA TAPE FILE 091".                      *   FILE 191
//*                                                                 *   FILE 191
//*   H F000191 D=NOV80                                             *   FILE 191
//*   T FILE 191 - YALE UNIVERSITY COMPUTER CENTER -                *   FILE 191
//*                PLIX MACROS                                      *   FILE 191
//*   K YALE YU PL1 PLI PLIX MACROS                                 *   FILE 191
//*   K HOWARD GILBERT                                              *   FILE 191
//*                                                                 *   FILE 191
//*      RELATED FILES: 184-191; DOCUMENTATION: 184                 *   FILE 191
//*                                                                 *   FILE 191
//*      THIS FILE CONTAINS THE PLIX MACROS FROM YALE               *   FILE 191
//*      COMPUTER CENTER.                                           *   FILE 191
//*                                                                 *   FILE 191
//***FILE 192 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 192
//*           THIS MEANS "SPLA TAPE FILE 092".                      *   FILE 192
//*                                                                 *   FILE 192
//*   H F000192 D=APR89                                             *   FILE 192
//*   T FILE 192 - TSO COMMAND PROCESSORS FROM THE US               *   FILE 192
//*                AIR FORCE                                        *   FILE 192
//*   K TSO COMMANDS CP AIR FORCE AIRFORCE 2ISG SADSC DOD           *   FILE 192
//*   K JIM MARSHALL PERFORMANCE $DI ABEND ASK ASMG ASMH            *   FILE 192
//*   K ASMXF ASMHNOX CALC CLRSCRN CLR2000 COBOLCHK CDSCB           *   FILE 192
//*   K COMPARE COMPRESS CONCAT COPYPDS CMDLOFF COB2CHK             *   FILE 192
//*   K COPYSDS COUNT CPSCB DA DATE DD DECONCAT DELAY DEX           *   FILE 192
//*   K DAJOB DLXAUTHC DELUXE  ECHO DSPRINT DAPF DLINK              *   FILE 192
//*   K DISPLAY DOPROG DUDASD DUSER EDAIR30 ERROR FREEALL FA        *   FILE 192
//*   K FINDFILE FORTP FORTX GTE GTELABS HOFFMAN GDDM               *   FILE 192
//*   K IKJEBMA9 IKJEFF10 IKJEFF53 IKJE9CL IKJE9CT INMXPARM         *   FILE 192
//*   K INMXZ02 IKJE9CX IKJE9DU IKJE9OF IKJE9LT IKJE9LX             *   FILE 192
//*   K IKJE9NA IKJE9PT CHANGEX DUPE    OFFLINE LISTTAB             *   FILE 192
//*   K LISTX   NAME    PUT IKJE9SP IKJE9SS IKJE9$ IKJT9FI          *   FILE 192
//*   K IKJT9LB IKJT9LI INFOSYS SPOT    SAVESHR TEST JCLSCAN        *   FILE 192
//*   K INMXPARM INMX02 LISTSU INSTREAM IO JULIAN KOMM              *   FILE 192
//*   K LASTCC LASTIPL LISTCDS LISTLPA LISTSPC LM LOOS LPSCB        *   FILE 192
//*   K MEMBER NEWSPACE MURPHY LISTAX OPERA OUTPRINT PDS            *   FILE 192
//*   K PLIF PPXIT PRINTOFF PUNCH QCB QLIST  REVIEW REVSMF          *   FILE 192
//*   K RACF RACFCLST RACFLST SLSS SLSSPRT RLSE SCRATCH             *   FILE 192
//*   K SHELP SHOWDS SHOWSPC SHOWSS SOLICIT SPFCOPY TRANSMIT        *   FILE 192
//*   K RECEIVE TSOE SPFSVC SPZAP SUBMITX SYSOUT99 SYSTEM           *   FILE 192
//*   K S99DAIR TPRINT TSOEXEC TO UADS  UNITS VTOC WHATIF           *   FILE 192
//*   K WHOHAS ZAP VTAMOPER POF VSFORT  VSFORTRAN  VTAM WTC         *   FILE 192
//*                                                                 *   FILE 192
//*      RELATED FILES: 131-133, 192, 194, 216-219 DOC              *   FILE 192
//*                     ALL FILES MEMBER $$                         *   FILE 192
//*                                                                 *   FILE 192
//*                 JIM MARSHALL, US TREASURY                       *   FILE 192
//*                 FINANCIAL MANAGEMENT SERVICE                    *   FILE 192
//*                 PRINCE GEORGES PLAZA II - ROOM 400B             *   FILE 192
//*                 3700 EAST-WEST HIGHWAY                          *   FILE 192
//*                 HYATTSVILLE, MD  20782                          *   FILE 192
//*                 202-874-8353                                    *   FILE 192
//*                                                                 *   FILE 192
//*     T S O     C O M M A N D    P R O C E S S O R S              *   FILE 192
//*                                                                 *   FILE 192
//*          RELEASE  24.0     1  APRIL   1989                      *   FILE 192
//*                                                                 *   FILE 192
//*     COURTESY     JIM MARSHALL, CAPT, USAF (RETIRED)             *   FILE 192
//*                                                                 *   FILE 192
//*      THIS IS A COLLECTION OF TSO CP'S FROM MANY                 *   FILE 192
//*     SOURCES.IT IS MY INTENT TO PUT TOGETHER A FILE OF           *   FILE 192
//*     TSO CP'S FOR SHARE. SOME SOME ARE ORIGINAL AND MOST         *   FILE 192
//*     WERE OBTAINED FROM MY OS/MVT DAYS AND CONVERTED.            *   FILE 192
//*     IT'S EMBARRASSING TO TELL MANAGEMENT THAT USERS HAVE        *   FILE 192
//*     LOST FUNCTIONS MIGRATING TO MVS. HOPEFULLY I CAN            *   FILE 192
//*     BECOME A FOCAL POINT FOR TSO CP'S. ALSO I HAVE              *   FILE 192
//*     ISPF/PDF AND BUT AM REQUIRED TO SUPPORT 300-1200            *   FILE 192
//*     BAUD ASYNC TERMINALS.  THUS TO KEEP THOSE PEOPLE            *   FILE 192
//*     HAPPY AND RELATIVELY PRODUCTIVE I MUST BE CONCERNED         *   FILE 192
//*     WITH THINGS OUTSIDE OF THE WONDEROUS SPF.  I WILL BE        *   FILE 192
//*     ADDING MORE TO THIS FILE AS TIME PROGRESSES.                *   FILE 192
//*                                                                 *   FILE 192
//*              D I S C L A I M E R     !!!!!                      *   FILE 192
//*          *************************************                  *   FILE 192
//*        USE ALL OF THESE AT YOUR OWN RISK, NATURALLY!            *   FILE 192
//*          *************************************                  *   FILE 192
//*                                                                 *   FILE 192
//*    THE FILE IS CONSTRUCTED OF MEMBERS AS FOLLOWS: THE           *   FILE 192
//*    SOURCE IS PUT IN AS A NAME, THEN THE HELP IS SUFFIXED        *   FILE 192
//*    WITH A # SIGN, AND THE THE JCL TO INSTALL IS SUFFIXED        *   FILE 192
//*    WITH A $ SIGN.                                               *   FILE 192
//*                                                                 *   FILE 192
//*    FOR EXAMPLE:   CMD     - SOURCE MEMBER                       *   FILE 192
//*                   CMD#    - HELP ENTRY                          *   FILE 192
//*                   CMD$    - JCL TO INSTALL                      *   FILE 192
//*                                                                 *   FILE 192
//*     NOTE:                                                       *   FILE 192
//*     MANY OF THESE MODULES HAVE THE CSECT STACKED                *   FILE 192
//*     TOGETHER, LOOK AT THE JCL INSTALL MEMBER TO SEE IF          *   FILE 192
//*     THERE A 'PARM=BATCH' IN COMPILE. IF YOU ONLY HAVE           *   FILE 192
//*     ASMF THEN YOU MAY HAVE TO BREAK THE CODE APART SINCE        *   FILE 192
//*     ASMF DOES NOT SUPPORT BATCH COMPILES !                      *   FILE 192
//*                                                                 *   FILE 192
//*     NOTE:                                                       *   FILE 192
//*     MANY OF THESE WILL RUN AS IS UNDER MVT, SOME HAVE A         *   FILE 192
//*     COMPILE CODE THAT LETS YOU SET IT FOR MVS OR MVT.           *   FILE 192
//*     NEAT!                                                       *   FILE 192
//*                                                                 *   FILE 192
//*     NOTE:                                                       *   FILE 192
//*     IF YOU INSTALL A COMD WITHOUT LOOKING AT THE CODE,          *   FILE 192
//*     AND IF TRY TO USE IT, IT MAY COME BACK WITH '               *   FILE 192
//*     COMMAND NOT FOUND '.  IT IS PROBABLY BECAUSE WE HAVE        *   FILE 192
//*     SOME CHECKING FOR SECURITY THAT LOOKS AT THE TSOID.         *   FILE 192
//*     THEREFORE IF IT ISN'T A MATCH WE XCTL TO THE SAME           *   FILE 192
//*     MODULE THAT WILL YIELD 'COMMAND NOT FOUND' CONFUSES         *   FILE 192
//*     THE HECK OUT OF PEOPLE WHO OVERHEAR A WORD AND ARE          *   FILE 192
//*     SLICK ENOUGH TO COPY THE CMD ELSEWHERE !!!!!                *   FILE 192
//*                                                                 *   FILE 192
//*     NOTE:                                                       *   FILE 192
//*     THE JCL YOU MAY SEE IN THE INSTALLATION OF THE TSO          *   FILE 192
//*     CP'S MAY LOOK STRANGE. ALL IT IS BASICALLY THE              *   FILE 192
//*     COMPILE AND LKED STEPS (ASMFCL OR ASMHCL). IT MAY           *   FILE 192
//*     LOOK A BIT DIFFERENT BUT IT IS REALLY NOT. WE HAVE          *   FILE 192
//*     AN IBM 3800 AND ROTATE THE PRINT. THAT IS WHY THE           *   FILE 192
//*     PROC IS DIFFERENT FROM THE STANDARD.  THE MOST              *   FILE 192
//*     IMPORTANT PART OF THE JCL IS TO SEE WHAT MEMBERS ARE        *   FILE 192
//*     INPUTTED AND THE LKED EDIT ATTRIBUTES OF THE MODULE.        *   FILE 192
//*                                                                 *   FILE 192
//*     NOTE:                                                       *   FILE 192
//*     IF YOU INSTALL THE TSO SUBCOMMANDS OF EDIT, YOU             *   FILE 192
//*     SHOULD READ THE TSO SPL. WE CALLED OUR MODULES              *   FILE 192
//*     IKJXXXXX NOT TO MEAN THESE ARE IBM MODULES BUT TO           *   FILE 192
//*     IDENTITY THEM TO US AS TSO CP'S OF EDIT. ALSO               *   FILE 192
//*     REMEMBER YOU HAVE TO UPDATE 'IKJEBMA9' EDIT                 *   FILE 192
//*     SUBCOMMAND TABLE. READ THE SPL ON IT. IT IS                 *   FILE 192
//*     CONFUSING BECAUSE A SUBCMD CAN HAVE MANY NAMES AND          *   FILE 192
//*     DO NOT HAVE TO MATCH THE MEMBER NAME IN THE LOAD            *   FILE 192
//*     MODULE LIBRARY.  DO NOT PANIC IF IT LOOKS LIKE              *   FILE 192
//*     MAGIC, JUST GO TO THE SPL.                                  *   FILE 192
//*                                                                 *   FILE 192
//*     NOTE:                                                       *   FILE 192
//*                                                                 *   FILE 192
//*     MUST GIVE A SPECIAL NOTE OF THANKS TO MR. BILL              *   FILE 192
//*     GODFREY FROM PLANNING RESEARCH CORPORATION (PRC). HE        *   FILE 192
//*     WAS A CONTRACTOR ASSIGNED TO ME AND HE IS A TSO             *   FILE 192
//*     WIZARD. HE HAS WRITTEN A LOT OF THE TSO COMMANDS AND        *   FILE 192
//*     IMPROVED UPON OTHERS.                                       *   FILE 192
//*                                                                 *   FILE 192
//*     NOTE:                                                       *   FILE 192
//*     CONVERTED THE $$PROSE MEMBER INTO INFOSYS FORMAT.           *   FILE 192
//*                                                                 *   FILE 192
//*     CHANGE ACTIVITY LOG :                                       *   FILE 192
//*                                                                 *   FILE 192
//*   RELEASE 24 CHANGE LOG:                                        *   FILE 192
//*   --------------------------------------------------------      *   FILE 192
//*   DAJOB    - ADDED.                                             *   FILE 192
//*   DUDASD   - ADDED CHECKING TO SEE IF VTOC IS INDEXED OR NOT.   *   FILE 192
//*   IKJEBMA9 - UPDATED TO JCL TO TSO-E R4 LEVEL.                  *   FILE 192
//*   IKJEBXXX - CHECKED OUT ALL THE EDIT SUBCOMMANDS TO TSO-E R4   *   FILE 192
//*              AND MVS/XA 2.2 LEVELS                              *   FILE 192
//*   LISTSU   - ADDED.                                             *   FILE 192
//*                                                                 *   FILE 192
//*   RELEASE 23 CHANGE LOG:                                        *   FILE 192
//*   --------------------------------------------------------      *   FILE 192
//*   $$PROSEO - DELETED, $$PROSE GOES BACK FAR ENOUGH              *   FILE 192
//*   $DI      - BROUGHT TO JES2/SP2.1.7                            *   FILE 192
//*   ABEND    - ADDED MORE ABENDS.                                 *   FILE 192
//*   COB2CHK  - ADDED.                                             *   FILE 192
//*   DAPF     - ADDED.                                             *   FILE 192
//*   DLINK    - ADDED.                                             *   FILE 192
//*   MURPHY   - ADDED MORE PHILOSOPHY - A CONTINUING EFFORT        *   FILE 192
//*   LISTSU   - ADDED.                                             *   FILE 192
//*   POF      - FIXED BUG                                          *   FILE 192
//*                                                                 *   FILE 192
//*   RELEASE 22 CHANGE LOG:                                        *   FILE 192
//*   --------------------------------------------------------      *   FILE 192
//*   $$PROSEX - DELETED, OLD PROSE OVER 3 YRS OLD.                 *   FILE 192
//*   DSPRINT  - ADDED. (DONATION FROM VPS PEOPLE (LRS)             *   FILE 192
//*   INMXPARM - REALLY DID ADD THE CODE THIS TIME !                *   FILE 192
//*   INMX02   - REALLY DID ADD THE CODE THIS TIME !                *   FILE 192
//*   JCLSCAN  - ADDED.                                             *   FILE 192
//*   MURPHY   - ADDED MORE PHILOSOPHY.                             *   FILE 192
//*   POF      - FIXED A BUG                                        *   FILE 192
//*                                                                 *   FILE 192
//*   RELEASE 21 CHANGE LOG:                                        *   FILE 192
//*   --------------------------------------------------------      *   FILE 192
//*   NOTE: TRANSFERRED TO FT. MEADE, MD                            *   FILE 192
//*                                                                 *   FILE 192
//*   $DI      - NOW GOOD FROM JES2/SP 1.3.0 TO JES2/SP 1.3.4       *   FILE 192
//*   CLRSCRN  - ADDED HELP MEMBER AND SAMPLE JCL.                  *   FILE 192
//*   CLR2000  - ADDED HELP MEMBER AND SAMPLE JCL.                  *   FILE 192
//*   CMDLOFF  - ADDED HELP MEMBER AND SAMPLE JCL.                  *   FILE 192
//*   COMPARE  - PROMPTS SLIGHTLY CHANGED AND HELP UPDATED TO       *   FILE 192
//*              REFLECT ALL OPTIONS.                               *   FILE 192
//*   DUDASD   - UPGRADED WITH NEW UCB SCAN ROUTINES, ENHANCED,     *   FILE 192
//*              CLEANED, SCRUBBED, ETC.                            *   FILE 192
//*   DUDASDR  - OLD VERSION OF DUDASD RETAINED FOR A WHILE.        *   FILE 192
//*   ECHO     - ADDED.                                             *   FILE 192
//*   FORTP    - FIXED BUG WHEN IT WAS PUT ON MVS/XA.               *   FILE 192
//*   GDDM     - MOVED OVER FROM SOURCE FILE TO ITS NEW             *   FILE 192
//*              HOME.  FIXED BUG REPORTED BY BILL SMITH,           *   FILE 192
//*              SYNTEX.                                            *   FILE 192
//*   LISTAX   - ADDED.                                             *   FILE 192
//*   MACROS   - ADDED.                                             *   FILE 192
//*   SLSSPRT  - DELETED. MOVED IT TO ISPF/PDF FILE WHERE IT        *   FILE 192
//*              BELONGS.                                           *   FILE 192
//*   TO       - FIXED BUG THAT DID NOT ALLOW YOU TO SEND MSGS      *   FILE 192
//*              TO USERID'S STARTING WITH SPECIAL CHAR.            *   FILE 192
//*   WTC      - ADDED.                                             *   FILE 192
//*                                                                 *   FILE 192
//*                                                                 *   FILE 192
//*      ADDED SOME NOTES IN THE SECTIONS ABOVE, PLSE READ FOR      *   FILE 192
//*      THERE HAS BEEN SOME CALLS WITH QUESTIONS.                  *   FILE 192
//*                                                                 *   FILE 192
//*  10 JAN 85 - GOT SOME TSO CP'S FROM CHUCK HOFFMAN, GTE LABS.    *   FILE 192
//*              I AM INCORPORATING THEM INTO MY FILE. ALSO I       *   FILE 192
//*              NEED TO REPACKAGE THEM IN MY SCHEME. THANKS FOR    *   FILE 192
//*              ALOT OF WORK BY CHUCK. ALL SHOULD LOOK AT THE      *   FILE 192
//*              'GTEMACS' MEMBER FOR SOME GOOD MACROS THAT USE     *   FILE 192
//*              SVC 99. HAD TO ALTER SOME OF THE NAMES BECAUSE     *   FILE 192
//*              OF CONFLICTS.                                      *   FILE 192
//*                                                                 *   FILE 192
//*   5 SEP 82 - I HAVE BEEN INSTALLING ALOT OF MY GOODIES THAT I   *   FILE 192
//*              BROUGHT FROM THE PENTAGON AND THEREFORE I AM       *   FILE 192
//*              ADDING ALOT OF JCL BECAUSE I AM INSTALLING         *   FILE 192
//*              YOU PEOPLE HAVE TO DO TO INSTALL. YOU MAY NOTE I   *   FILE 192
//*              HAVE BEEN ADDING ALIGN TO THE ASMH PARMS. THIS IS  *   FILE 192
//*              BECAUSE THE ASMH COMPILER WAS GENERATED WITH       *   FILE 192
//*              NOALIGN.                                           *   FILE 192
//*                                                                 *   FILE 192
//*  20 MAY 82 - MAJOR CHANGE, HOW I PACKAGE THE FILES. THE MACROS  *   FILE 192
//*              FOR THIS FILE ARE NOW IN THIS FILE. THE MACRO HAS  *   FILE 192
//*              DISAPPEARED.                                       *   FILE 192
//*                                                                 *   FILE 192
//*  10 OCT 86 - AS I INSTALL ON AN MVS/XA SYSTEM, I WILL NOTE THE  *   FILE 192
//*              FACT IN THE RELEASE FIELD. SAY YOU SEE A  1X IN    *   FILE 192
//*              FIELD MEANS 'REL 1 - RUNS IN MVS/XA FINE'.  THUS   *   FILE 192
//*              X     - RUNS FINE FROM MVS/SP TO MVS/XA NO CHNGE.  *   FILE 192
//*              Y     - RUNS ONLY MVS/SP AND I WILL NOT PURSUE THE *   FILE 192
//*                      CHANGES TO MVS/XA, YOU ARE WELCOME TO DO   *   FILE 192
//*                      IT AND WOULD APPRECIATE THE CODE.          *   FILE 192
//*              N     - ONLY RUNS IN MVS/SP, NEEDS TO BE CONVERTED *   FILE 192
//*              Z     - RUNS NOW IN MVS/XA BUT WAS CONVERTED AND   *   FILE 192
//*                      IF YOU WANT IT TO WORK IN MVS/SP YOU NEED  *   FILE 192
//*                      TO CHANGE A COND ASSEMBLY.                 *   FILE 192
//*              BLANK - NEEDS TO BE DETERMINED, WILL GET TO IT.    *   FILE 192
//*                                                                 *   FILE 192
//*      -------------------------------------------------------    *   FILE 192
//*                                                                 *   FILE 192
//*  SUMMARY OF THE MODULES CONTAINED.                              *   FILE 192
//*                                                                 *   FILE 192
//*     CP    REL           DESCRIPTION                             *   FILE 192
//*                                                                 *   FILE 192
//*  $#SVCKP   1  -  MACRO USED IN SOME OF THE PROGRAMS TO          *   FILE 192
//*                  INVOKE SVC TO GET MY BACK TO PROBLEM STATE     *   FILE 192
//*                  FROM SUPERVISOR STATE.                         *   FILE 192
//*                                                                 *   FILE 192
//*  $#SVCKS   1  -  MACRO USED IN SOME OF THE PROGRAMS TO          *   FILE 192
//*                  INVOKE SVC TO GET ME TO SUPERVISOR STATE       *   FILE 192
//*                  FROM PROBLEM STATE. YOU SHOULD USE YOUR        *   FILE 192
//*                  OWN SVC MECHANISM HERE.                        *   FILE 192
//*                                                                 *   FILE 192
//*  $DI       5X -  OPERATOR LIKE $DI COMMAND.                     *   FILE 192
//*                                                                 *   FILE 192
//*  ABEND#    3X -  NOT A COMMAND BUT A HELP ENTRY FOR ABEND       *   FILE 192
//*                  CODES AND SOME OF THE COMMON REASONS           *   FILE 192
//*                  YOU MAY GET THEM. UPDATED FOR MVS.             *   FILE 192
//*                                                                 *   FILE 192
//*  ASK       1Y -  CLIST USE CMD TO ASK A QUESTION AND GET A      *   FILE 192
//*                  YES OR NO BACK THUS SETTING A RETURN CODE.     *   FILE 192
//*                  (WAS AROUND IN MY MVT DAYS AND IS              *   FILE 192
//*                  OBSOLETE WITH MVS CLIST LANGUAGE)              *   FILE 192
//*                                                                 *   FILE 192
//*  ASMG      1Y -  DO ASSEMBLY LANGUAGE COMPILES INTERACTIVE.     *   FILE 192
//*                  ASSEM. G AND IS SIMILIAR TO ONE IN THIS FILE   *   FILE 192
//*                  FOR  ASSEM. H   BOTH SHOULD WORK FOR OS/MVT    *   FILE 192
//*                  AND OS/MVT.                                    *   FILE 192
//*                                                                 *   FILE 192
//*  ASMH      4X -  DO ASSEMBLY LANG COMPILES INTERATIVE. YOU CAN  *   FILE 192
//*                  GET THE IBM PROD WHICH IS SUPERIOR, THIS IS    *   FILE 192
//*                  FREE. WE HAVE A 'SYS2.MACLIB' DEFINED IN THIS  *   FILE 192
//*                  ONE FOR USERS GENERALLY HAVING A USER MACLIB.  *   FILE 192
//*                  CHECKED OUT IN MVS/XA.                         *   FILE 192
//*                                                                 *   FILE 192
//*  ASMHNOX   1  -  ZAP TO THE IBM P.P. ASSEMBLER H TO FIX         *   FILE 192
//*                  A BUG SAYING 'NOXREF' YOU GET 'XREF(FULL)'.    *   FILE 192
//*                  PTF LEVEL-21 MADE XREF DEFAULT TO XREF(FULL)   *   FILE 192
//*                  AND INTRODUCED THE ERROR DESCRIBED ABOVE.      *   FILE 192
//*                  NOTE: ASSEMBLER H IS CLASS C.                  *   FILE 192
//*                                                                 *   FILE 192
//*  ASMF      2  -  DO ASSEMBLY LANGUAGE COMPILES INTERATIVE.      *   FILE 192
//*                  YOU CAN GET THE IBM PRODUCT WHICH IS SUPERIOR, *   FILE 192
//*                  BUT THIS ONE IS FREE. HAVE A 'SYS2.MACLIB'     *   FILE 192
//*                  DEFINED IN THIS ONE FOR USERS GENERALLY        *   FILE 192
//*                  HAVING A USER MACLIB. THIS ONE UTILITIZES THE  *   FILE 192
//*                  ASMXF(IFOX00) NOTE THAT THE SOURCE FOR THIS IS *   FILE 192
//*                  THE ASMH PROMPTER WITH SOME SYSPARMS CHANGED.  *   FILE 192
//*                                                                 *   FILE 192
//*  CALC      1X -  TSO CALCULATOR PROGRAM. HAS 1 ACCUMULATOR AND  *   FILE 192
//*                  9 REGISTERS, ALSO CAN DO FUNCTIONS LIKE SIN,   *   FILE 192
//*                  COS, ETC, OR DEFINE YOUR OWN.  ( PLI-OPT )     *   FILE 192
//*                                                                 *   FILE 192
//*  COBOLCHK  2X -  AFDSC DEVELOPED CHEAP COBOL PROMPTER. COBOL    *   FILE 192
//*                  COMPILES(COBOLVS) INSIDE TSO, ONLY GIVING ERRS *   FILE 192
//*                  AT THE TERMINAL. USES 'SYNTAX' OPT OF COMPILER *   FILE 192
//*                  AND IS GREAT FOR ASYNCH SLOW SPEED TERMINALS.  *   FILE 192
//*                                                                 *   FILE 192
//*  COB2CHK   1X -  COBOL II VERSION OF COBOLCHK.                  *   FILE 192
//*                                                                 *   FILE 192
//*  CDSCB     3  -  ZAP FORMAT-1 DSCB OF DATASETS ON THE FLY.      *   FILE 192
//*                  USEFUL FOR SYSTEM TYPES !!!!                   *   FILE 192
//*                                                                 *   FILE 192
//*  CLRSCRN   1X -  CLEAR THE SCREEN ON 3270.                      *   FILE 192
//*                                                                 *   FILE 192
//*  CLR2000   1Y -  CLEAR SCREEN ON HAZELTINE 2000 TTY TERMINAL.   *   FILE 192
//*                                                                 *   FILE 192
//*  CMDLOFF   1X -  PASS A TSO COMMAND TO THIS TSO CP AND WHEN IT  *   FILE 192
//*                  COMPLETES THE USER WILL BE LOGGED OFF. VERRRY  *   FILE 192
//*                  INTERESTING IF YOU THINK ABOUT IT !!!!         *   FILE 192
//*                                                                 *   FILE 192
//*  COMPARE   3X -  COMPARE 2 FILES IN THE FOREGROUND. BASED ON    *   FILE 192
//*                  YALE UNIV COMPARE PROGRAM. OPTIONALLY YOU CAN  *   FILE 192
//*                  ASK FOR IBM'S  IEBCOMPR UTILITY PGM INSTEAD.   *   FILE 192
//*                  MODIFIED YALE'S PGM AND CALLED IT COMPAREB.    *   FILE 192
//*                                                                 *   FILE 192
//*  COMPRESS  2  -  COMPRESS A PDS IN FOREGROUND.                  *   FILE 192
//*                                                                 *   FILE 192
//*  CONCAT    1X -  CONCAT 2-9 FILES TOGETHER. TRUE MVS ALLOC CMD  *   FILE 192
//*                  CAN DO IT, BUT WE RUN PROGRAM CONTROL FACILITY *   FILE 192
//*                  (PCF) THUS  IF A CUSTOMER FREES A FILE THAT    *   FILE 192
//*                  IS SYS1 THEN THEY CAN NOT ALLOCATE IT BACK.    *   FILE 192
//*                                                                 *   FILE 192
//*  COPYPDS   3  -  COPIES A PDS TO ANOTHER PDS. ALLOWS YOU TO     *   FILE 192
//*                  COPY MEMBERS WITH A SELECT STATEMENT. UNLIKE   *   FILE 192
//*                  THE TSO CMD UTIL 'COPY' YOU CAN COPY MEMBERS   *   FILE 192
//*                  CAN INCLUDE THE ALIAS FOR THE MEMBER.          *   FILE 192
//*                                                                 *   FILE 192
//*  COPYSDS   1X -  COPY ONE SEQUENTIAL DATASET TO ANOTHER         *   FILE 192
//*                  SEQUENTIAL DATASET.                            *   FILE 192
//*                                                                 *   FILE 192
//*  COUNT     1X -  COUNT THE NUMBER OF RECORDS IN A FILE.         *   FILE 192
//*                                                                 *   FILE 192
//*  CPSCB     1  -  CHANGE YOUR PROTECTED STEP CONTROL BLOCK       *   FILE 192
//*                  (PSCB) ON THE FLY TO GIVE YOURSELF THINGS      *   FILE 192
//*                  LIKE MOUNT AUTHORITY ETC.SHOULD  PROBABLY      *   FILE 192
//*                  RESTRICT THIS TO SYSTEMS ONLY.                 *   FILE 192
//*                                                                 *   FILE 192
//*  DA        4X -  DISPLAY ACTIVE COMMAND TO GIVE THE USERS       *   FILE 192
//*                  PICTURE OF THE SYSTEM. THEY LIKE TO            *   FILE 192
//*                  SEE HOW MUCH TIME THE JOB HAS !!!!             *   FILE 192
//*                                                                 *   FILE 192
//*  DAJOB     2X -  DISPLAY ACTIVE COMMAND, YES ANOTHER ONE,       *   FILE 192
//*                  NOW YOU HAVE A CHOICE.                         *   FILE 192
//*                                                                 *   FILE 192
//*  DAPF      1X -  DISPLAY APF AUTHORIZED LIBRARY LIST BEING      *   FILE 192
//*                  USED USED THIS IPL.                            *   FILE 192
//*                                                                 *   FILE 192
//*  DATE      1X -  GIVES THE DATE AND TIME FROM THE SYSTEM.       *   FILE 192
//*                                                                 *   FILE 192
//*  DD        4  -  SHORT FORM OF ALLOCATE FOR AN EXISTING         *   FILE 192
//*                  FILE. IT IS FASTER THAN ALLOCATE.              *   FILE 192
//*                  UPDATE TO LET YOU ALLOCATE A NEW FILE ALSO.    *   FILE 192
//*                                                                 *   FILE 192
//*  DECONCAT  1X -  REVERSE OF THE CONCAT COMMAND.                 *   FILE 192
//*                                                                 *   FILE 192
//*  DELAY     1  -  SPECIFY A NUMBER OF SECONDS AND                *   FILE 192
//*                  HAVE YOU WAIT THAT LONG.                       *   FILE 192
//*                                                                 *   FILE 192
//*  DEX       1  -  TSO HEXIDECMAL CALCULATOR PROGRAM.             *   FILE 192
//*                                                                 *   FILE 192
//*  DISPLAY   1Y -  SHOWS CONTROL BLOCKS LIKE THE UCB ETC.         *   FILE 192
//*                                                                 *   FILE 192
//*  DLINK     1X -  DISPLAY LINKLIST CMD TO SHOW WHAT              *   FILE 192
//*                  LIBRARIES ARE BEING USED THIS IPL.             *   FILE 192
//*                                                                 *   FILE 192
//*                                                                 *   FILE 192
//*  DLXAUTHC  1  -  THIS CMD IS FROM MIKE LOOS, DELUXE CHECK       *   FILE 192
//*                  PRINTERS. IT WILL ISSUE THE COMMAND PASSED     *   FILE 192
//*                  TO TO IT AFTER SETTING THE JSCBAUTH BIT ON.    *   FILE 192
//*                  WHEN THE COMMAND COMPLETES THE JSCBAUTH        *   FILE 192
//*                  BIT WILL BE SET OFF. THE JSCB TAMPERING IS     *   FILE 192
//*                  DONE IN A USER SVC(YOUR OWN). YOU MUST         *   FILE 192
//*                  REPLACE THE USERSVC MACRO WITH YOUR OWN        *   FILE 192
//*                  INTEGRITY VIOLATION. THIS COMMAND IS ESP-      *   FILE 192
//*                  CIALLY USEFULE FOR ENTERING RACF COMMANDS      *   FILE 192
//*                  FROM ISPF DIALOGS.  FOR EXAMPLE:               *   FILE 192
//*                  DLXAUTHC LISTDSD DA('DSN1.EXAMPLE') ALL        *   FILE 192
//*                                                                 *   FILE 192
//*  DOPROG    1X -  GIVES THE USER THE 'CALL' COMMAND              *   FILE 192
//*                  FUNCTION BY ATTACHING A PROGRAM.               *   FILE 192
//*                                                                 *   FILE 192
//*  DSNCHECK  1X -  GTELABS CMD TO CHECK FOR EXISTENCE OF A CAT    *   FILE 192
//*                  DSN NAME AND OPTIONALLT CHECK FOR A  MEMBER    *   FILE 192
//*                  WITHIN A PDS (SETS &LASTCC FOR CLIST WRITERS). *   FILE 192
//*                                                                 *   FILE 192
//*  DSPRINT   1X -  DONATION FROM VPS PEOPLE (LRS) OF AN EARLY     *   FILE 192
//*                  VERSION OF A COMMAND THAT TAKES DSPRINT CMD    *   FILE 192
//*                  ISSUED OUT OF ISPF AND REFORMATS THE CMD INTO  *   FILE 192
//*                  A 'PRINTOFF'.  THIS CAME TO LRS BY WAY OF      *   FILE 192
//*                  BILL SMITH OF SYNTEX. THANKS ALL !!!!          *   FILE 192
//*                                                                 *   FILE 192
//*  DUDASD    2X -  OPERATOR LIKE  D U,DASD  CMD. UPDATED WITH     *   FILE 192
//*                  NEW UCB SCAN ROUTINE AND ENHANCED TO SHOW      *   FILE 192
//*                  VOLUME STATE, DEVICE TYPE (LIKE 3380), AND     *   FILE 192
//*                  WHERE VOLUME IS IPL DEVICE. ALSO CLEANED UP    *   FILE 192
//*                  CODE, DOCUMENT, ETC. ALSO CHECKS TO SEE IF     *   FILE 192
//*                  VTOC IS INDEXED OR UNINDEXED.                  *   FILE 192
//*                                                                 *   FILE 192
//*  DUDASDR   1Y -  OPERATOR LIKE  D U,DASD  CMD  (OLD VERSION).   *   FILE 192
//*                                                                 *   FILE 192
//*  DUTAPE    2X -  OPERATOR LIKE  D U,TAPE  CMD. CODED WITH       *   FILE 192
//*                  NEW UCB SCAN ROUTINE AND ENHANCED TO SHOW      *   FILE 192
//*                  DEVICE TYPE (LIKE 3380).                       *   FILE 192
//*                                                                 *   FILE 192
//*  DUSER     1X -  SHOW THE USERIDS CURRENTLY LOGGED ON TSO.      *   FILE 192
//*                                                                 *   FILE 192
//*  ECHO      1X -  TYPE IN A LINE AND HAVE IT ECHO'D BACK TO      *   FILE 192
//*                  YOUR TERMINAL IN HEX.                          *   FILE 192
//*                                                                 *   FILE 192
//*  EDAIR30   1  -  SUBPROGRAM. AN ENHANCED VERSION OF IKJDAIR     *   FILE 192
//*                  FOR ALLOCATING A SYSOUT DATASET.               *   FILE 192
//*                                                                 *   FILE 192
//*  ERROR#    2  -  NOT A COMMAND BUT A HELP ENTRY FOR RETURN      *   FILE 192
//*                  CODE  YOU CAN GET FROM DAIR ALLOCATION.        *   FILE 192
//*                  UPDATED FOR MVS.                               *   FILE 192
//*                                                                 *   FILE 192
//*  FREEALL   3X -  MVS VERSION OF THE FAMOUS 'FREEALL'            *   FILE 192
//*                  CMD TO FREE DYNAMICALLY ALLOCATED DATASETS.    *   FILE 192
//*                  AFDSC MODIFIED TO FREE ALL DATASETS WHICH:     *   FILE 192
//*                  A.  HAVE BEEN DYNAMICALLY ALLOCATED.           *   FILE 192
//*                  B.  ARE NOT CURRENTLY IN USE.                  *   FILE 192
//*                  C.  ARE NOT CURRENTLY OPEN.                    *   FILE 192
//*                  D.  ARE NOT ALLOCATED TO DDNAME=SYSPROC.       *   FILE 192
//*                                                                 *   FILE 192
//*  FINDFILE  1  -  DISPLAYS WHERE A DATASET IS CATALOGUED         *   FILE 192
//*                  AND LISTS ALL MOUNTED DASD  ON WHICH THE       *   FILE 192
//*                  DATASET RESIDES. NOTE: FOUND ON CBT TAPE AS    *   FILE 192
//*                  'LOCDSN', TO ME 'FINDFILE' MORE DESCRIPTIVE.   *   FILE 192
//*                                                                 *   FILE 192
//*  FORTP     2X -  DO FORTRAN G1 COMPILES INTERACTIVELY.          *   FILE 192
//*                  LOOK AT THE JCL INSTALL, IT IS SLICK AND NOT   *   FILE 192
//*                  JUST A SIMPLE COMPILE, LINKEDIT. IT IS NOT     *   FILE 192
//*                  COMPLICATED, BUT YOU USE THE SAME SOURCE CODE  *   FILE 192
//*                  WITH SYSPARM OPTIONS TO COMPILE 2 MODULES.     *   FILE 192
//*                                                                 *   FILE 192
//*  FORTX     1  -  DO FORT X (EXTENDED) COMPILES INTERACTIVELY.   *   FILE 192
//*                  IS  FORT PRODUCT SUPERIOR BUT THIS IS FREE.    *   FILE 192
//*                                                                 *   FILE 192
//*  GDDM      2X -  GDDM PROGRAMS WRITTEN IN MOSTLY FORTRAN. SPACE *   FILE 192
//*                  SHUTTLE, X-29, ETC.  WILL WORK WITH MY OS/360  *   FILE 192
//*                  FORTRAN G THAT IS ON THE TAPE. FORT G RUNS ON  *   FILE 192
//*                  MVS/XA FINE AND FOR THOSE WITH NO FORTRAN, IT  *   FILE 192
//*                  IS BETTER THAN NOTHING. THIS MEMBER HAS '><'   *   FILE 192
//*                  IN THE PLACE OF './' IN THE './ ADD' CARDS.    *   FILE 192
//*                  JUST LOOK AT THE MEMBER TO SEE THE SOURCE AND  *   FILE 192
//*                  SAMPLE JCL.                                    *   FILE 192
//*                                                                 *   FILE 192
//*  GFREEALL  1  -  GOT FROM GTELABS. THEIR VERSION OF THE SAME    *   FILE 192
//*                  CMD CALLED 'FREEALL' THAT IS ON THIS TAPE.     *   FILE 192
//*                                                                 *   FILE 192
//*  GSTREAM   1  -  GOT FROM GTELABS. THEIR VERSION OF THE SAME    *   FILE 192
//*                  CMD CALLED 'INSTREAM' THAT IS ON THIS TAPE.    *   FILE 192
//*                                                                 *   FILE 192
//*  GTEMACS   1  -  MACROS I GOT FROM GTELABS NEEDED FOR TSO CMDS  *   FILE 192
//*                  FROM CHUCK HOFFMAN. YOU SHOULD USE 'PDSLOAD'   *   FILE 192
//*                  (IEBUPDTE LIKE PGM) FROM MY SOURCE FILE TO     *   FILE 192
//*                  DOWNLOAD. OR JUST LOOK AT MACROS, YOU WILL     *   FILE 192
//*                  SEE HOW IT IS BUILT. MACROS ARE EQ$R,LINKSAVE, *   FILE 192
//*                  LINKBACK,GTEDAALC,GTEDADAT,GTEDADOC,GTEDASET.  *   FILE 192
//*                                                                 *   FILE 192
//*  IKJEBMA9  3  -  EXAMPLE OF THE MVS EDIT SUB-COMMAND TABLE &    *   FILE 192
//*                  WHAT YOU CAN MAKE VALID SUB-COMMANDS. HAS ALL  *   FILE 192
//*                  THE AFDSC SUB-COMMANDS OF EDIT IN THE TABLE.   *   FILE 192
//*                                                                 *   FILE 192
//*  IKJEFF10  1  -  AFDSC IPO BASED TSO SUBMIT EXIT.               *   FILE 192
//*                  THIS IS RELATIVELY SIMPLE. FORCES THE          *   FILE 192
//*                  FOLLOWING RESTRICTION ON A TSOUSER             *   FILE 192
//*                  1. JOBNAME ON SUBMITTED JOB CARD               *   FILE 192
//*                  MUST BE USERID PLUS ONE CHARACTER.             *   FILE 192
//*                  2. PROGRAMMER NAME FIELD (8 OR LESS CHAR) IN   *   FILE 192
//*                  IN UADS MUST MATCH PROGRAMMER NAME             *   FILE 192
//*                  (8 OR LESS ON JOB CARD).                       *   FILE 192
//*                                                                 *   FILE 192
//*  IKJEFF53  1  -  AFDSC IPO BASED TSO 'STATUS/OUTPUT/CANCEL'     *   FILE 192
//*                  EXIT THERE IS ALOT OF POSSIBILITIES IN CODE.   *   FILE 192
//*                                                                 *   FILE 192
//*  IKJE9CL   1  -  'COLS'. 2ISG DEVELOPED EDIT SUBCMD PRINT       *   FILE 192
//*                  COLUMN NUMBERS ON YOUR TERMINAL. SIMILAR TO    *   FILE 192
//*                  ISPF/PDF OPTION 2  'COLS' CMD.                 *   FILE 192
//*                                                                 *   FILE 192
//*  IKJE9CT   1  -  'COUNT'. AFDSC DEVELOPED EDIT SUBCMD  TO GIVE  *   FILE 192
//*                  THE NO  OF RECORDS YOU ARE CURRENTLY EDITING.  *   FILE 192
//*                                                                 *   FILE 192
//*  IKJE9CX   1  -  'CHANGEX'  AFDSC DEVELOPED SUBCOMMAND OF       *   FILE 192
//*                  EDIT. PERFORMS THE SAME FUNCTION AS CHANGE     *   FILE 192
//*                  BUT USES HEX STRINGS.                          *   FILE 192
//*                                                                 *   FILE 192
//*  IKJE9DU   1  -  'DUP'  AFDSC DEVELOPED EIDT SUBCMD. PERFORMS   *   FILE 192
//*                  SIMILIAR FUNCTION AS SPF REPEAT BUT ONLY ON 1  *   FILE 192
//*                  LINE. CAN REPEAT EXISTING LINE OR MAKE A COPY  *   FILE 192
//*                  OF AN EXISTING LINE ELSEWHERE AND REPEAT IT.   *   FILE 192
//*                                                                 *   FILE 192
//*  IKJE9FX   1  -  'FINDX'. AFDSC DEVELOPED EDIT SUBCMD  TO DO    *   FILE 192
//*                  A FIND BUT ABLE TO SPECIFY A HEX CHAR STRING.  *   FILE 192
//*                                                                 *   FILE 192
//*  IKJE9OF   1  -  'OFFLINE'. AFDSC EDIT SUBCMD TO 'SPINOFF' TO   *   FILE 192
//*                   PRT THE FILE YOU ARE CURRENTLY EDITING (ARE   *   FILE 192
//*                   NOT REQUIRED TO SAVE 1ST). CAN 'DEST' TO      *   FILE 192
//*                   RMTS, ETC. SEE THE HELP FOR SPECIFICS         *   FILE 192
//*                                                                 *   FILE 192
//*  IKJE9LT   1  -   'LISTTABS'. FOUND BY AFDSC. BACK FROM MVT     *   FILE 192
//*                   DAYS, CONVERTED BY BOB HANSEN (SEC) TO RUN    *   FILE 192
//*                   IN MVS. LISTS YOUR CURRENT EDIT TABS FOR      *   FILE 192
//*                   YOU.                                          *   FILE 192
//*                                                                 *   FILE 192
//*  IKJE9LX   1  -   'LISTX'. AFDSC DEVELOPED SUBCMD OF            *   FILE 192
//*                   EDIT TO DISPLAY TO YOUR TERMINAL,  LINES      *   FILE 192
//*                   OF A DATASET BEING EDIT'D IN HEX FORMAT.      *   FILE 192
//*                                                                 *   FILE 192
//*  IKJE9NA   1  -   'NAME'. AFDSC DEVELOPED SUBCMD OF             *   FILE 192
//*                   EDIT TO TELL THE NAME OF THE FILE OR          *   FILE 192
//*                   MEMBER OF PDS YOU'RE CURRENTLY EDITING.       *   FILE 192
//*                   IT'S EMBARASSING IF YOU FORGET.               *   FILE 192
//*                                                                 *   FILE 192
//*  IKJE9PT   1  -   'PUT'. AFDSC DEVELOPED SUBCMD OF EDIT TO      *   FILE 192
//*                   PUT CHARACTER STRINGS IN CERTAIN COLUMNS.     *   FILE 192
//*                   NICE FOR USERS OF ASYNC TERMINALS             *   FILE 192
//*                   WHO DO NOT HAVE SPF.                          *   FILE 192
//*                                                                 *   FILE 192
//*  IKJE9SP   1   -  'SPOT'. AFDSC DEVELOPED EDIT SUBCMD TO SPOT   *   FILE 192
//*                   CHARACTER STRINGS IN DATA. AGAIN NICE FOR     *   FILE 192
//*                   ASYNCH TERMINALS WHO DO NOT HAVE SPF.         *   FILE 192
//*                   CONTAINS A SELECT & EXCLUDE FUNCTION          *   FILE 192
//*                   FOR DELETION OF RECS THAT A FIT PATTERN.      *   FILE 192
//*                   SEE THE HELP ENTRY FOR MORE DETAILS.          *   FILE 192
//*                                                                 *   FILE 192
//*  IKJE9SS   2   -  'SAVESHR'. AFDSC DEVELOPED EDIT SUBCMD TO     *   FILE 192
//*                   ALLOW A SAVE WITH DISP=SHR. EDIT HAS NASTY    *   FILE 192
//*                   HABIT OF TRYING TO GET A DISP=OLD WHEN YOU    *   FILE 192
//*                   SAVE; THUS IF YOU NEED TO SAVE SOMETHING      *   FILE 192
//*                   INTO A FILE ALLOCATED ALL THE TIME,           *   FILE 192
//*                   TOUGH !!!!!  NOTE - APAR AZ57430 APPLIED      *   FILE 192
//*                                                                 *   FILE 192
//*  IKJT9$    1   -  UPDATE SUBCMD TABLE OF TEST FOR               *   FILE 192
//*                   FOLLOWING SUBCMDS                             *   FILE 192
//*                                                                 *   FILE 192
//*  IKJT9FI   1   -  'FIND' SUBCOMMAND OF THE TSO TEST CMD.        *   FILE 192
//*                                                                 *   FILE 192
//*  IKJT9LB   1   -  'LIST BREAKPOINTS' SUBCMD OF TSO TEST CMD.    *   FILE 192
//*                                                                 *   FILE 192
//*  IKJT9LI   1   -  'LIST' SUBCMD (2ND LOAD) OF TSO TEST CMD.     *   FILE 192
//*                                                                 *   FILE 192
//*  IKJT9MAC  1   -  MACROS NEEDED FOR ABOVE ASSEMBLIES.           *   FILE 192
//*                                                                 *   FILE 192
//*  INFOSYS   2X  -  TSO CMD, EXECUTE THE IBM PRODUCT 'INFOSYS'.   *   FILE 192
//*                                                                 *   FILE 192
//*  INMXPARM  2X  -  SAMPLE OF THE PARMS FOR TSO/E TRANSMIT AND    *   FILE 192
//*                   RECEIVE.                                      *   FILE 192
//*                                                                 *   FILE 192
//*  INMXZ02   2X  -  TSO/E TRANSMIT EXIT FOR NOTIFYING TSO USERS   *   FILE 192
//*                   ON THE SAME NODE THAN A FILE HAS BEEN SENT    *   FILE 192
//*                   TO THEM. GOTTEN FROM TUCC ON JES2 MODS TAPE   *   FILE 192
//*                   AND MODIFIED BY ME.  THANKS TUCC              *   FILE 192
//*                                                                 *   FILE 192
//*  INSTREAM  1   -  AFDSC DEVELOPED COMMAND TO BE USED IN CLIST   *   FILE 192
//*                   PUT CONTROL CARDS INSIDE OF CLISTS. CAN       *   FILE 192
//*                   BE USER INPUT FROM THE TERMINAL.  VERY NICE.  *   FILE 192
//*                                                                 *   FILE 192
//*  IO       (T)  -  LIST IO COUNTS FOR EACH FILE IN YOUR          *   FILE 192
//*                   TSO SESSION.                                  *   FILE 192
//*                                                                 *   FILE 192
//*  JCLSCAN   1   -  SHMUEL GOLOB OF NEWSWEEK SENT THIS TO ME.     *   FILE 192
//*                   RUNS IT ON MVS/SP 1.3.5 AND LOVES IT FOR      *   FILE 192
//*                   DOING A JCL CHECK PRIOR TO SUBMITTING.        *   FILE 192
//*                   HAS A PGM AND AN SVC TO INSTALL. TRY IT.      *   FILE 192
//*                                                                 *   FILE 192
//*  JULIAN    1X  -  RETRIEVE THE DATE AND GREGORIAN DAY           *   FILE 192
//*                   FROM THE SYSTEM. ALSO CAN RETURN THE          *   FILE 192
//*                   SAME INFO FOR ANY YEAR AND DAY.               *   FILE 192
//*                                                                 *   FILE 192
//*  KOMM      1X  -  USED IN CLISTS FOR FORMATTING DISPLAYS IN     *   FILE 192
//*                   FULL SCREEN SUPPORT ON 3270 TYPE TERMINALS.   *   FILE 192
//*                                                                 *   FILE 192
//*  LASTCC#   1   -  NOT A TSO COMMAND, BUT A HELP ENTRY OF        *   FILE 192
//*                   LIST OF ERROR CODES THAT CAN OCCUR IN         *   FILE 192
//*                   A CMD PROCEDURE (CLIST) INFO WAS COPIED       *   FILE 192
//*                   FROM MANUAL GC28-0646, TSO CMD LANG REF.      *   FILE 192
//*                                                                 *   FILE 192
//*  LASTIPL   1X  -  DISPLAY THE JULIAN, GREGORIAN, AND            *   FILE 192
//*                   CALENDAR DATE PLUS THE TIME IN HH.MM THAT     *   FILE 192
//*                   YOUR SYSTEM WAS LAST IPL'ED. OPERATORS        *   FILE 192
//*                   DO ALWAYS TELL YOU TRUE STORIES ????          *   FILE 192
//*                                                                 *   FILE 192
//*  LIBCALL   1   -  GTELABS CMD TRANSFERS CONTROL TO MODULES      *   FILE 192
//*                   WITH A 'CALL' TYPE PARAMTER LIST, WITH A      *   FILE 192
//*                   'STEPLIB' OPTION. LIBCALL ALSO CAN ACCEPT     *   FILE 192
//*                   PGM PARMS IN LOWER CASE.                      *   FILE 192
//*                                                                 *   FILE 192
//*  LISTAX    1X  -  SAME AS IBM 'LISTA' CMD BUT THIS ONE GIVE     *   FILE 192
//*                   YOU INFO YOU CAN USE ... LIKE DDNAME,         *   FILE 192
//*                   DISP, DSORG ETC.                              *   FILE 192
//*                                                                 *   FILE 192
//*   MACROS    1X -  ALL THE MACROS IN THE FILE HAVE BEEN PACKAGED *   FILE 192
//*                   IN THIS MEMBER PRECEDED BY ./ CARDS.          *   FILE 192
//*                                                                 *   FILE 192
//*                   PACKAGED MOST OF THE MACROS HERE PRECEDED     *   FILE 192
//*                   BY '><'  CARDS INSTEAD OF './'. USE           *   FILE 192
//*                   'PDSLOAD' TO LOAD. LOOK AT THE INSTALL        *   FILE 192
//*                   JOBSTREAM AND YOU WILL SEE HOW. DID IT LIKE   *   FILE 192
//*                   THIS FOR MACROS ARE LIKE FLEAS (THERE'RE      *   FILE 192
//*                   EVERYWHERE). SO JUST DO A PDSLOAD (LIKE       *   FILE 192
//*                   IEBUPDTE) TO RUN THEM INTO A TEMP PDS FOR     *   FILE 192
//*                   YOUR ASSEMBLY.                                *   FILE 192
//*                                                                 *   FILE 192
//*                       A-B        C        D-E       F-Z         *   FILE 192
//*                    12345678  12345678  12345678  12345678       *   FILE 192
//*                    $#SVCKP   CPDATA    DO08BLD   GNRLFAIL       *   FILE 192
//*                    $#SVCKS   CPEND     DCS       JVDENTER       *   FILE 192
//*                    $EPILOG   CPENTER   DCSPARS   JVDEQU         *   FILE 192
//*                    $PROLOG   CPENTRY   EQUENT    JVDLEAVE       *   FILE 192
//*                              CPEXIT    EQUEXT    MSGLPA         *   FILE 192
//*                              CPINIT    EQUREG    REGEQU         *   FILE 192
//*                              CVDT      EQUREGS   REGS           *   FILE 192
//*                              CVRT                TMPMAC         *   FILE 192
//*                                                                 *   FILE 192
//*   LISTCDS   2Y -  LIST THE SMP4 CDS FILE ( SYS1.SMPCDS ).       *   FILE 192
//*                                                                 *   FILE 192
//*   LISTLPA   1Y -  LIST ATTRIBUTES OF MEMBERS OF LPALIB.         *   FILE 192
//*                                                                 *   FILE 192
//*   LISTSPC   2X -  LIST SPACE ATTRIBUTES OF A FILE ON DASD.      *   FILE 192
//*                                                                 *   FILE 192
//*   LISTSU    1X -  THIS A WORTHLESS CMD, LIST THE SU NUMBERS     *   FILE 192
//*                   YOU HAVE INSTALLED ON YOUR SYSTEM.            *   FILE 192
//*                                                                 *   FILE 192
//*   LM        1  -  LIST MEMBER NAMES OF A DIRECTORY OF PDS.      *   FILE 192
//*                                                                 *   FILE 192
//*   LOGOBSC   1  -  EXAMPLE OF A VTAM LOGO SCREEN FOR             *   FILE 192
//*                   ACF/VTAM R2 TO IMPRESS THE MGMT. PUT ALOT     *   FILE 192
//*                   OF COMMENTS AS TO HOW TO CODE A BSC LOGO      *   FILE 192
//*                   SCREEN. BOOKS ARE NOT VERY CLEAR. MADE        *   FILE 192
//*                   MINE SO ANYONE COULD FILL IN A PREDEFINED     *   FILE 192
//*                   BOX AND USE MY CODE.                          *   FILE 192
//*                                                                 *   FILE 192
//*   LOGOSNA   1  -  EXAMPLE OF A VTAM LOGO SCREEN FOR             *   FILE 192
//*                   ACF/VTAM R2 TO IMPRESS THE MGMT. PUT ALOT     *   FILE 192
//*                   OF COMMENTS AS TO HOW TO CODE A SNA LOGO      *   FILE 192
//*                   SCREEN. BOOKS ARE NOT TOO BAD.  MADE MINE     *   FILE 192
//*                   SO ANYONE COULD FILL IN A PREDEFINED BOX      *   FILE 192
//*                   AND USE MY CODE.                              *   FILE 192
//*                                                                 *   FILE 192
//*   LPSCB     1X -  LIST YOUR PSCB (PROTECTED STEP CONTROL BLK).  *   FILE 192
//*                                                                 *   FILE 192
//*   MEMBER    3X -  SCAN A LIBRARY FOR A MEMBER. CAN BE USED      *   FILE 192
//*                   TO RUN THE LINK LIST FOR FIRST OCCURRANCE     *   FILE 192
//*                   OF THAT MEMBER, WILL ALSO DISPLAY LKED        *   FILE 192
//*                   ATTRIBUTES, CSECT, IDR DATA, LINK LIST LIB    *   FILE 192
//*                   NUMBER. SHOWS SPF STATS FOR SOURCE DATA.      *   FILE 192
//*                                                                 *   FILE 192
//*   MURPHY    2X -  GET A THOUGHT FOR THE DAY. MUCH THANKS TO     *   FILE 192
//*                   PAUL BANKS, ALLERGAN PHARMACEUTICALS IN       *   FILE 192
//*                   IRVINE, CA FOR THE IDEA. HAVE ADDED SOME      *   FILE 192
//*                   'THOUGHTS'.                                   *   FILE 192
//*                                                                 *   FILE 192
//*   NEWSPACE  1  -  GTELABS CMD FOR EASILY CREATING NEW, MOD-     *   FILE 192
//*                   ERATELY SIZED, DATASETS, AND LIBS. WRITTEN    *   FILE 192
//*                   WITH BEGINNERS IN MIND. CAN BE EXECUTED FROM  *   FILE 192
//*                   ISPF/PDF CMD LINE FOR A FILE YOU SUDDENLY     *   FILE 192
//*                   NEED.                                         *   FILE 192
//*                                                                 *   FILE 192
//*   NEWISPF   1  -  FOUND A TSO CMD ON MODS TAPE USED WITH NEW    *   FILE 192
//*                   ISPF/PDF PRODUCT TO GET YOU INTO THE PDF      *   FILE 192
//*                   WITH THE CLIST. BUT IT USED THE USERS         *   FILE 192
//*                   PREFIX INSTEAD OF THE USERID. MADE SOME       *   FILE 192
//*                   MINOR CHANGES TO IT AND CHANGED NAME FROM     *   FILE 192
//*                   'PDF' TO 'NEWISPF'.                           *   FILE 192
//*                                                                 *   FILE 192
//*   OPERA     1Y -  ALLOWS CONSOLE COMMANDS (EXCEPT JES2)         *   FILE 192
//*                   TO BE ENTERED FROM YOUR TSO TERMINAL.         *   FILE 192
//*                   USER MUST HAVE OPERATOR AUTHORITY.            *   FILE 192
//*                                                                 *   FILE 192
//*   OUTPRINT  1Y -  PRINTS A DATASET CREATED BY THE TSO           *   FILE 192
//*                   'OUTPUT' CMD, BUT YOU WILL GET PROPER         *   FILE 192
//*                   CARRIAGE CONTROL. SEE DOCUMENTATION IN        *   FILE 192
//*                   THE CODE FOR ALL THE FINE POINTS              *   FILE 192
//*                                                                 *   FILE 192
//*   PLIF      TY -  PL1/F LEVEL PROMPTER. HAVE NOT TRIED IT       *   FILE 192
//*                   BECAUSE WE  DO NOT RUN PL1/F.                 *   FILE 192
//*                   SO YOU ARE ON YOUR OWN.                       *   FILE 192
//*                                                                 *   FILE 192
//*   POF       3  -  TSO CMD TO LET YOU DO VTAM COMMANDS FROM      *   FILE 192
//*                   YOUR TSO TERMINAL. BRIAN SCOTT, US POST       *   FILE 192
//*                   SERVICE, TOPEKA, KA. SENT ME THIS ONE.        *   FILE 192
//*                   VERY EASY TO INSTALL. SEE THE CODE FOR        *   FILE 192
//*                   SOME AUTHORITY CHECKING AND PASSWORD FOR      *   FILE 192
//*                   THE VTAM ACB. HE GOT FROM FEDERAL EXPRESS     *   FILE 192
//*                                                                 *   FILE 192
//*   PPXIT     1Y -  TEST YOU PREPROMPT EXIT (IKJEFLD) WITH THIS   *   FILE 192
//*                   ROUTINE LOGON JUST AS IF YOU WOULD EXCEPT     *   FILE 192
//*                   INSTEAD OF 'LOGON USER' YOU SAY 'PPXIT USER'. *   FILE 192
//*                   HE WILL GIVE YOU ALL THE MSGS AND IF YOU      *   FILE 192
//*                   ABEND, AUTOMATICALLY GO INTO TEST FOR         *   FILE 192
//*                   DEBUGGING. SEE COMMENTS IN CODE               *   FILE 192
//*                                                                 *   FILE 192
//*   PRINTOFF  3  -  AFDSC MODIFIED CMD. IT HAS 'ASA' ADDED TO     *   FILE 192
//*                   ALLOW PRINTER TO USE 'ASA' CARRIAGE           *   FILE 192
//*                   CONTROL EVEN IF IT WAS NOT IN THE DCB OF      *   FILE 192
//*                   THE FILE TO BE PRINTED INCLUDES THE 'GTE'     *   FILE 192
//*                   MODS FOR FCB SUPPORT, ETC. CORRECTED 7        *   FILE 192
//*                   CHARACTER DEST CODE LIMIT.AT SADSC I FIXED    *   FILE 192
//*                   THE LIMITATION OF ONLY HAVING 7 CHARACTER     *   FILE 192
//*                   DESTID'S FOR JES2. NOT COOL, BOOK SAYS YOU    *   FILE 192
//*                   CAN HAVE 8 CHARACTERS.                        *   FILE 192
//*                                                                 *   FILE 192
//*   PUNCH     1  -  PUNCH A CARD DECK. HAS THE OPTION TO          *   FILE 192
//*                   HOLD THE OUTPUT FOR REVIEW                    *   FILE 192
//*                   BEFORE YOU LET IT GO TO BE PUNCHED.           *   FILE 192
//*                                                                 *   FILE 192
//*   QCB       1Y -  REPLACEMENT FOR WHOHAS CMD. MORE POWERFUL.    *   FILE 192
//*                   MAY NEED TO BE REWORKED FOR MVS/SP1.3.        *   FILE 192
//*                                                                 *   FILE 192
//*   QLIST     1X -  AFDSC DEVELOPED COMMAND TO DO MOST OF ALL     *   FILE 192
//*                   THE IBM TSO DATA UTILITY 'LIST' DOES BUT IN   *   FILE 192
//*                   SOME AREAS IT IS FASTER AND MORE EFFICIENT.   *   FILE 192
//*                                                                 *   FILE 192
//*   RACFALT   1Y -  THIS PROGRAM IS FROM MIKE LOOS, DELUXE CHK    *   FILE 192
//*                   PRINTERS. IT WILL GENERATE A CLIST TO         *   FILE 192
//*                   CHANGE THE VOLUME SERIAL NUMBERS IN RACF      *   FILE 192
//*                   PROFILES OF ALL NONVSAM DATASETS ON A         *   FILE 192
//*                   SPECIFIC VOLUME.                              *   FILE 192
//*                                                                 *   FILE 192
//*   RACFCLST  1Y -  THIS PROGRAM IS FROM MIKE LOOS, DELUXE CHK    *   FILE 192
//*                   PRINTERS. IT WILL GENERATE A CLIST TO         *   FILE 192
//*                   REDEFINE (VIA RACF CMDS DELSD, ADDSD, AND     *   FILE 192
//*                   PERMIT) FOR ALL DATASETS ON A SPECIFIED       *   FILE 192
//*                   VOLUME. DUE TO USE OF RACF INTERNAL MACROS    *   FILE 192
//*                   THIS PROGRAM MUST BE RUN AUTHORIZED. IF       *   FILE 192
//*                   SYSIN IS PRESENT, YOU CAN INCLUDE CMDS TO     *   FILE 192
//*                   SELECT BY DATASET GROUP ON A VOLUME AND/OR    *   FILE 192
//*                   DATASET NAME WITH OR WITHOUT VOLUME SPEC-     *   FILE 192
//*                   ICATION. WARNING: IF SYSIN IS PRESENT AND     *   FILE 192
//*                   DUMMIED OUT OR EMPTY THEN A NULL CLIST        *   FILE 192
//*                   WILL BE CREATED.                              *   FILE 192
//*                                                                 *   FILE 192
//*   REVIEW    6Y -  FULL SCREEN BROWSE, 3270 TYPE TERMINALS.      *   FILE 192
//*                   ANY RESEMBLANCE TO SPF 0 BROWSE FUNCT IS      *   FILE 192
//*                   PURELY A CHANCE OF FATE. THERE ARE SOME       *   FILE 192
//*                   BUGS IF YOU TRY TO BROWSE SMF FILES (         *   FILE 192
//*                   VARIABLE LENGTH RECS) BUT SHOULD BE FINE      *   FILE 192
//*                   FOR SANE THINGS LIKE PDS'S AND SOURCE. SMF    *   FILE 192
//*                   CODE HAS BEEN BEEN EXPANDED AND 'FINDSMF'     *   FILE 192
//*                   SUBCMD ADDED.                                 *   FILE 192
//*                                                                 *   FILE 192
//*   REVSMF    1Y -  SUBROUTINE NEEDED BY REVIEW WHEN              *   FILE 192
//*                   LOOKING AT SMFDATA.                           *   FILE 192
//*                                                                 *   FILE 192
//*   RLSE      3  -  AFDSC MODIFIED CMD. WILL RELEASE SPACEOUT     *   FILE 192
//*                   OF A PDS OR SEQUENTIAL FILE. PREVIOUS         *   FILE 192
//*                   VERSIONS RELEASED ALL THE SPACE. OURS WILL    *   FILE 192
//*                   ALLOW YOU TO RELEASE DOWN TO THE PRIMARY      *   FILE 192
//*                   EXTENT OR OR SPECIFY THE AMOUNT TO BE         *   FILE 192
//*                   RELEASED.                                     *   FILE 192
//*                                                                 *   FILE 192
//*   SAFECOPY  1  -  GTELABS COPY CMD WHICH ENABLES SEVERAL        *   FILE 192
//*                   USERS TO UPDATE SAME DATASET                  *   FILE 192
//*                   SIMULTANEOUSLY, WITHOUT CONFICTING WITH       *   FILE 192
//*                   EACH OTHER OR WITH USERS WHO ARE READING      *   FILE 192
//*                   THE DSN. SAFECOPY IS USEFUL IN CLISTS         *   FILE 192
//*                   WHICH WRITE TO A COMMON DATASET.              *   FILE 192
//*                                                                 *   FILE 192
//*   SCRATCH   TY -  SCRATCH A DSN AND NOT GO THROUGH CATALOG.     *   FILE 192
//*                                                                 *   FILE 192
//*   SHELP     1X -  OBTAIN SUB-COMMAND HELPS FOR COMMANDS         *   FILE 192
//*                   WITHOUT ACTUALLY BEING IN THAT COMMAND.       *   FILE 192
//*                                                                 *   FILE 192
//*   SHOWDS    3  -  AFDSC DEVELOPED COMMAND. DISPLAYS THE         *   FILE 192
//*                   DATASETS ATTRIBUTES AND SPACE ALLOCATION.     *   FILE 192
//*                                                                 *   FILE 192
//*   SHOWSPC   1X -  SHOW THE SPACE ALLOCATION FOR DATASETS ON     *   FILE 192
//*                   A DISK. CAN  MASK FOR THE NAMES.              *   FILE 192
//*                   LOOK AT IT FOR ALL CAPABILITIES.              *   FILE 192
//*                                                                 *   FILE 192
//*   SHOWSS    2X -  DISPLAYS THE SUBSYSTEM VECTOR TABLE AND IF    *   FILE 192
//*                   A SUBSYSTEM IS CURRENTLY ACTIVE.              *   FILE 192
//*                   OPTIONALLY YOU CAN RESET THE ADDRESS TO       *   FILE 192
//*                   ZERO'S IN CASE THE SUBSYSTEM HAS ABENDED      *   FILE 192
//*                   AND HAS NOT RESET THE ADDRESS TO ZERO'S.      *   FILE 192
//*                   ZERO CAPABILITY IS USED THEN YOU MUST BE      *   FILE 192
//*                   AUTHORIZED.                                   *   FILE 192
//*                                                                 *   FILE 192
//*   SOLICIT   1  -  MAKE YOUR 3270 TYPE TERMINAL LOOK LIKE        *   FILE 192
//*                   IT WAS LOGGED OFF AND BACK TO 'NETSOL'.       *   FILE 192
//*                   THINK OF YOUR OWN USES FOR THIS ONE.          *   FILE 192
//*                                                                 *   FILE 192
//*   SPFCOPY   1  -  INVOKER OF IEBCOPY INTERACTIVELY UNDER 'SPF'  *   FILE 192
//*                   OR 'ISPF' MENU 3.1   IEBCOPY MUST             *   FILE 192
//*                   BE AUTHORIZED AND SPF IS NOT. (PROBLEMS)      *   FILE 192
//*                                                                 *   FILE 192
//*   SPFSVC    1  -  SVC TO ALLOW  ISPF/PDF MENU 3.1 COMPRESS.     *   FILE 192
//*                                                                 *   FILE 192
//*   SPZAP     1  -  TSO CP TO INVOKE 'AMASPZAP'                   *   FILE 192
//*                                                                 *   FILE 192
//*   SUBMITX   2Y -  SUB FROM TSO JOB TO SECONDARY JES2. YES,      *   FILE 192
//*                   IBM SAYS YOU CAN'T DO IT, BILL GODFREY, PRC   *   FILE 192
//*                   CORP HAS IT WORKING. INCLUDED IN THIS CMD     *   FILE 192
//*                   ARE ALIASES OF OUTPUTX, STATUSX, AND          *   FILE 192
//*                   CANCELX.  PLSE READ COMMENTS IN THE           *   FILE 192
//*                   BEGINNING OF CODE FOR SOME POINTS OF          *   FILE 192
//*                   INTEREST. SEE THE SRC FILE FOR MEMBER         *   FILE 192
//*                   CALLED JESXRDR FOR SUBMITING FROM AN INTRDR   *   FILE 192
//*                   TO A SECONDARY JES2. THIS ALL NEEDS SOME      *   FILE 192
//*                   REFINEMENT BUT IT WORKS SO FAR.               *   FILE 192
//*                                                                 *   FILE 192
//*   SYSDSN    1  -  GTELABS CMD TO LIST NAMES OF EVERYONE WHO     *   FILE 192
//*                   HAS A DSN ALLOCATED, OR IS WAITING FOR        *   FILE 192
//*                   ALLOCATION VERY USEFUL AFTER 'DATASET IN      *   FILE 192
//*                   USE' AND 'WAITING FOR DATASETS' MSGS.         *   FILE 192
//*                                                                 *   FILE 192
//*   SYSOUT99  1  -  SUBPROGRAM. ALLOCATES A SYSOUT DATASET.       *   FILE 192
//*                                                                 *   FILE 192
//*   SYSTEM    1  -  DISPLAY THE SYSTEM RELEASE, CPU ID, MAIN      *   FILE 192
//*                   STORAGE AMOUNT ONLINE &  WHEN SYSTEM IPL'D.   *   FILE 192
//*                                                                 *   FILE 192
//*   S99DAIR   1  -  SUBPROGRAM. ENHANCED VERSION OF IKJDAIR       *   FILE 192
//*                   FOR ALLOCATING '0008' (DSNAME),               *   FILE 192
//*                   '001C' (TERMINAL), AND '0030' (SYSOUT).       *   FILE 192
//*                                                                 *   FILE 192
//*   TPRINT    1Y -  DISPLAYS A MSG FROM A CLIST AT A TERMINAL.    *   FILE 192
//*                   OBSLETE IN MVS TSO BUT IT WORKS AND IS FAST.  *   FILE 192
//*                                                                 *   FILE 192
//*   TO        1X -  SHORTHAND WAY OF DOING TSO SEND CMD. DON'T    *   FILE 192
//*                   HAVE WORRY ABOUT QUOTES.  EX AS FOLLOWS:      *   FILE 192
//*                     TO TSOUSER WE AIN'T DUMMIES, LET'S QUIT     *   FILE 192
//*                                                                 *   FILE 192
//*   TSOEXEC   1  -  USE THIS RYO VERISON OF TSOEXEC IF YOU        *   FILE 192
//*                   DO NOT HAVE TSO/E R2. MUCH THANKS TO          *   FILE 192
//*                   PAUL BANKS, ALLERGAN PHARMACEUTICALS IN       *   FILE 192
//*                   IRVINE, CA                                    *   FILE 192
//*                                                                 *   FILE 192
//*   UADS      1  -  LIST A UADS ENTRY LEAVING OUT PASSWORD.       *   FILE 192
//*                   GOOD FOR TECH SUPPORT PEOPLE.                 *   FILE 192
//*                   NOTE: MUST BE ABLE TO HAVE                    *   FILE 192
//*                   'SYS1.UADS' ALLOCATION PRIVILEDGES THOUGH.    *   FILE 192
//*                                                                 *   FILE 192
//*   UADS@     1  -  MACRO NEED FOR ASSEMBLY OF UADS.              *   FILE 192
//*                                                                 *   FILE 192
//*   UNITS     1  -  TSO CMD DISPLAYS UNIT NAMES IN DEVICE NAME    *   FILE 192
//*                   TABLE, AND CHANNEL-UNIT-ADDR ASSOCIATED WITH  *   FILE 192
//*                   EACH UNIT NAME. LOOK IN THE CODE FOR SOME     *   FILE 192
//*                   AUTH CHECKING AND DISABLE IN YOUR SHOP.       *   FILE 192
//*                                                                 *   FILE 192
//*   VSFORT    1X -  VS/FORTRAN PROMPTER FROM JOHN SILL OF         *   FILE 192
//*                   'CHICAGO BRIDGE & IRON' (HE IS NOT IN         *   FILE 192
//*                   CHICAGO, DOESN'T BUILD BRIDGES, AND DON'T     *   FILE 192
//*                   WORK WITH IRON). THANKS JOHN !!!!!!!!!!       *   FILE 192
//*                                                                 *   FILE 192
//*   VTOC      1  -  ONE OF THE SLICKEST CMDS FOR FINDING OUT      *   FILE 192
//*                   WHAT IS ON A DISK. LOOK AT THE HELP FOR       *   FILE 192
//*                   THE COMPLETE INFORMATION.                     *   FILE 192
//*                                                                 *   FILE 192
//*   WHATIF    2  -  ALLOWS THE CONDITIONAL EXECUTION OF A TSO     *   FILE 192
//*                   CMD FROM A CLIST BASED ON ANY OF              *   FILE 192
//*                      THE COMBINATIONS:                          *   FILE 192
//*                   1. WHETHER A FILE IS ALLOCATED.               *   FILE 192
//*                   2. WHETHER A FILE IS ALLOCATED TO A           *   FILE 192
//*                      SPECIFIC FILE NAME                         *   FILE 192
//*                   3. WHETHER A FILE IS CATALOGED.               *   FILE 192
//*                   4. WHETHER TWO STRINGS BEAR A SPECIFIED       *   FILE 192
//*                      RELATION TO EACH OTHER.                    *   FILE 192
//*                                                                 *   FILE 192
//*   WHOHAS    2Y -  AFDSC MODIFIED AND CORRECTED. DISCOVERED      *   FILE 192
//*                   BUG, NOT SHOW THE ENQ CHAIN PROPERLY.         *   FILE 192
//*                   PROPERLY. IT STOPPED AFTER THE 1ST            *   FILE 192
//*                   OCCURENCE OF DISP=OLD. WILL SHOW 'WHOHAS'     *   FILE 192
//*                   A FILE ALLOCATED AND THE ENQ CHAIN.           *   FILE 192
//*                                                                 *   FILE 192
//*   WTC       2X -  EVER SEND A MSG TO AN OPERATOR WITH SEND      *   FILE 192
//*                   AND THEY CLAIM IT NEVER CAME (ACTUALLY        *   FILE 192
//*                   ROLLED OFF THE SCREEN. NOW SEND THE MSG       *   FILE 192
//*                   AND RING THE CONSOLE ALARM, HIGHLIGHT THE     *   FILE 192
//*                   MSG, AND MAKE IT NON-ROLLABLE !!!!!!!!!       *   FILE 192
//*                                                                 *   FILE 192
//*   ZAP       1X -  FULL SCREEN VER OF IMASPZAP. MY TSO 'GURU'    *   FILE 192
//*                   WAS IMPRESSED , WHEN BILL SAYS IT IS GREAT    *   FILE 192
//*                   IT MUST BE. DONATED BY UCLA, THEM COLLEGE     *   FILE 192
//*                   KIDS ARE REALLY BUSY DOING GREAT THINGS.      *   FILE 192
//*                   (MUST USE ASM H OTHERWISE ASSEMBLY ERR)       *   FILE 192
//*                                                                 *   FILE 192
//*   ZAP@      1X -  MACROS NEED FOR ZAP ASSEMBLY.                 *   FILE 192
//*                                                                 *   FILE 192
//***FILE 193 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 193
//*           THIS MEANS "SPLA TAPE FILE 093".                      *   FILE 193
//*                                                                 *   FILE 193
//*   H F000193 D=JUN83                                             *   FILE 193
//*   T FILE 193 - ADD I/O COUNT IN MSGIEF285I                      *   FILE 193
//*   K I/O COUNT MSGIEF285I LARRY KRAUSE LITTON                    *   FILE 193
//*   K           DICK SZIEDE                                       *   FILE 193
//*   K GENERAL ELECTRIC V26                                        *   FILE 193
//*                                                                 *   FILE 193
//*      THIS FILE CONTAINS ASMTOZAP INPUT FOR ADDING THE I/O       *   FILE 193
//*      COUNTS TO MESSAGE IEF285I.  THIS IS THE MESSAGE YOU        *   FILE 193
//*      RECEIVE IN YOUR JES LOG AT DEALLOCATION TIME THAT          *   FILE 193
//*      CONTAINS DISPOSITIONS, ETC.                                *   FILE 193
//*                                                                 *   FILE 193
//*      SUBMITTOR:  DICK SZIEDE     -  (703) 883-8551              *   FILE 193
//*                  PLANNING RESEARCH CORP.                        *   FILE 193
//*                  1500 PRC DRIVE                                 *   FILE 193
//*                  MC LEAN, VA  22102                             *   FILE 193
//*                                                                 *   FILE 193
//***FILE 194 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 194
//*           THIS MEANS "SPLA TAPE FILE 094".                      *   FILE 194
//*                                                                 *   FILE 194
//*   H F000194 D=JUL86                                             *   FILE 194
//*   T FILE 194 - TIME SHARING SUBSYSTEM OPTION - US AIR FORCE     *   FILE 194
//*   K TSO SUBSYSTEM AIR FORCE AIRFORCE V23 TSSO CONSOLE           *   FILE 194
//*   K JIM MARSHALL 2ISG SADSC                                     *   FILE 194
//*                                                                 *   FILE 194
//*      RELATED FILES: 131-133, 192, 194, 216-219, DOC             *   FILE 194
//*      ALL FILES MEMBER $$PROSE                                   *   FILE 194
//*                                                                 *   FILE 194
//*    T I M E   S H A R I N G   S U B S Y S T E M   O P T I O N    *   FILE 194
//*                                                                 *   FILE 194
//*                     (  T   S   S   O  )                         *   FILE 194
//*                                                                 *   FILE 194
//*                    REL  5.0   24 JULY 1984                      *   FILE 194
//*                                                                 *   FILE 194
//*                                                                 *   FILE 194
//*      THIS SET OF PGMS ALLOWS YOU TO BRING UP A TSO LIKE         *   FILE 194
//*      FUNCTION WHEN DISASTER HAS STRUCK,  I/O ERROR IN           *   FILE 194
//*      BROADCAST DATASET.  EVER TRY TO KEYPUNCH AND GET IT        *   FILE 194
//*      CORRECT(WHERE ARE THE KEYPUNCHES ANYMORE) TSSO'            *   FILE 194
//*      ALLOWS YOU TO START A SUBSYSTEM TO DO TSO COMMANDS         *   FILE 194
//*      FROM YOUR OPERATORS CONSOLE.  SEE THE MEMBER TSSODOC       *   FILE 194
//*      FOR MORE INFORMATION.                                      *   FILE 194
//*                                                                 *   FILE 194
//*      WOULD LIKE TO THANK BILL GODFREY OF PLANNING RESEARCH      *   FILE 194
//*      CORP.  (PRC) FOR THE CODE. THIS WAS DEVELOPED AT THE       *   FILE 194
//*      AIR FORCE DATA SERVICES CENTER, PENTAGON, WASHINGTON       *   FILE 194
//*      DC WHEN I WORKED THERE. IT WAS ONLY DEVELOPED BECAUSE      *   FILE 194
//*      BILL IS SUCH AS GENIUS AND DID MORE THAN I COULD EVER      *   FILE 194
//*      DREAM COULD BE DONE.                                       *   FILE 194
//*                                                                 *   FILE 194
//*                             JIM MARSHALL                        *   FILE 194
//*                                                                 *   FILE 194
//*      CHANGE LOG:  18 MAY 81                                     *   FILE 194
//*      STACK - TSO CMD UPDATED. COMMANDS NO LONGER IN             *   FILE 194
//*              PARENTHESIS.  LIST KEYWORD CAN NOT BE              *   FILE 194
//*              SUPPORTED WITH NEW SYNTAX, USE OF STACKL ALIAS     *   FILE 194
//*              PROVIDES EQUAL RESULTS.  DELIMITER PAIRS NO        *   FILE 194
//*              LONGER TREATED AS DELIMITERS BUT AS SINGLE         *   FILE 194
//*              CHARACTER THAT MATCHES THE DELIMITER.  MAX         *   FILE 194
//*              LENGTH INCREASED FROM 256 TO 1024.                 *   FILE 194
//*                                                                 *   FILE 194
//*       10 DEC 81                                                 *   FILE 194
//*                                                                 *   FILE 194
//*       TSSO,TSSOSSM,TSSOWTO - CAN NOW TYPE IN 2ND COMMAND        *   FILE 194
//*            BEFORE THE 1ST ONE HAS COMPLETED. TSSO WILL          *   FILE 194
//*            QUEUE IT UNTIL THE FIRST COMMAND ENDS.               *   FILE 194
//*                                                                 *   FILE 194
//*       10 JAN 82                                                 *   FILE 194
//*                                                                 *   FILE 194
//*       WE ARE UP ON MVS/SP1.1.0 AND TSSO WORKS FINE              *   FILE 194
//*                                                                 *   FILE 194
//*       11 JUN 82                                                 *   FILE 194
//*                                                                 *   FILE 194
//*       NEW WAY TO START TSSO USING NEW PROGRAM TSSOUPSS, SO      *   FILE 194
//*       THAT SYSOUT BANNER PAGES WILL SAY TSSO INSTEAD OF         *   FILE 194
//*       SYSOUT.  TSSO CHANGED TO SUPPORT ENVIRONMENT CREATED      *   FILE 194
//*       BY TSSOUPSS.  TSSOWTO CHANGED TO SUPPORT SKIPPING ON      *   FILE 194
//*       '.L' COMMAND.  TSSODOC REWRITTEN. SAMPLE PROCS IN         *   FILE 194
//*       TSSOPROC AND SSSOPROC.  NEW MEMBER TSSOGIDE IS            *   FILE 194
//*       DOCUMENTATION WITH LOWER CASE LETTERS AND ASA CARRIAGE    *   FILE 194
//*       CONTROL. NEW EF COMMAND SYNTAX.  TSO COMMANDS MAY BE      *   FILE 194
//*       CONTINUED USING HYPHEN AT END OF LINE.  TSSO '.L'         *   FILE 194
//*       COMMAND MAY BE ENTERED AS JUST 'L', NO PERIOD.            *   FILE 194
//*                                                                 *   FILE 194
//*       3 OCT 83                                                  *   FILE 194
//*                                                                 *   FILE 194
//*       MVS/XA SUPPORT FOR TSSO. NO REALLY THAT BIG CHANGE.       *   FILE 194
//*       RIC WALFORD SENT ME THE ONE CHANGE YOU NEED TO MAKE       *   FILE 194
//*       IN THE TSSO MODULE. THE ESTAE FOR MVS/XA HAS CHANGED      *   FILE 194
//*       AND HE FIXED THE CODE SO IT WOULD ASSEMBLE CORRECTLY      *   FILE 194
//*       FOR MVS/XA OR NON MVS/XA. THANKS TO RIC WHO IS FROM       *   FILE 194
//*       SIMPSON-SEARS LIMITED, TORONTO, CANADA.                   *   FILE 194
//*                                                                 *   FILE 194
//*       24 FEB 86                                                 *   FILE 194
//*                                                                 *   FILE 194
//*       WE ARE UP ON MVS/SP1.3.3 AND TSSO WORKS FINE              *   FILE 194
//*                                                                 *   FILE 194
//***FILE 195 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 195
//*           THIS MEANS "SPLA TAPE FILE 095".                      *   FILE 195
//*                                                                 *   FILE 195
//*   H F000195 D=APR83                                             *   FILE 195
//*   T FILE 195 - U.S. SENATE JOB SCHEDULER/REQUEUER -             *   FILE 195
//*                JCL AND DOCUMENTATION                            *   FILE 195
//*   K JOB SCHEDULER REQUEUER ENQ SENATE HALBIG V25                *   FILE 195
//*   K PERFORMANCE SMF EXITS IEFUJV IEFUJI IEFUSI IEFUTL           *   FILE 195
//*   K IEFU83 IEFUSO IEFACTRT BATCH RESOURCE CLASS                 *   FILE 195
//*   K SCHEDULING JOB ROUTING CPU AFFINITY PROGRAM DSN             *   FILE 195
//*   K CONFLICT MANAGEMENT STEP TERMINATION STATISTICS             *   FILE 195
//*                                                                 *   FILE 195
//*    RELATED FILES: 195-196; DOCUMENTATION: FILE 196              *   FILE 195
//*                            MEMBER DOCUMENT.                     *   FILE 195
//*                                                                 *   FILE 195
//*                    RELEASE 5                                    *   FILE 195
//*                    MARCH 1983                                   *   FILE 195
//*                                                                 *   FILE 195
//*                                         DAVE HALBIG             *   FILE 195
//*                                         U.S. SENATE             *   FILE 195
//*                                         COMPUTER CENTER         *   FILE 195
//*                                         400 N. CAPITOL STREET   *   FILE 195
//*                                         GROUND LEVEL            *   FILE 195
//*                                         WASHINGTON, D.C.        *   FILE 195
//*                                                     20510       *   FILE 195
//*                                         (202)224-3902           *   FILE 195
//*    SUMMARY OF CHANGES                                           *   FILE 195
//*    __________________                                           *   FILE 195
//*                                                                 *   FILE 195
//*    RELEASE 5 -                                                  *   FILE 195
//*                                                                 *   FILE 195
//*    . CPU TIME NORMALIZATION - CPU TIME REQUESTS ON THE          *   FILE 195
//*      JOB OR EXEC CARD ARE NORMALIZED TO THE SLOWEST             *   FILE 195
//*      PROCESSOR IN THE COMPLEX AT THE TIME A JOB                 *   FILE 195
//*      INITIATES.   THE FACILITY PERMITS JOBS TO RECEIVE A        *   FILE 195
//*      CONSISTENT LEVEL OF SERVICE REGARDLESS OF THE              *   FILE 195
//*      PROCESSOR ON WHICH THE JOB INITIATES.                      *   FILE 195
//*                                                                 *   FILE 195
//*    . SMF RECORD FILTERING IN EXITS IEFU83/84 - IF SMF           *   FILE 195
//*      RECORD TYPES 14 & 15 ARE COLLECTED, IEFU83 CANCELS         *   FILE 195
//*      THOSE RECORDS FROM TEMPORARY DATA SETS IF SMF              *   FILE 195
//*      INTERVAL ACCOUNTING RECORDS ARE COLLECTED (SMF TYPE        *   FILE 195
//*      30, SUBTYPE 2 & 3), ALL RECORDS ARE CANCELLED EXCEPT       *   FILE 195
//*      THOSE ASSOCIATED WITH PROGRAM NAMES LOADED INTO THE        *   FILE 195
//*      SCEHDULER ACCOUNTING TABLES.  SMF INTERVAL ACCOUNTING      *   FILE 195
//*      IS USEFUL FOR LONG-RUNNING BATCH JOBS, SYSTEM TASKS,       *   FILE 195
//*      OR TSO SESSIONS TO CAPTURE CONSUMPTION INFORMATION UP      *   FILE 195
//*      TO THE TIME OF A SYSTEM FAILURE OR TO CORRECTLY            *   FILE 195
//*      APPORTION CONSUMPTION INFORMATION BY TIME OF DAY           *   FILE 195
//*      (E.G. FOR CICS SYSTEMS).   SINCE THIS ACCOUNTING           *   FILE 195
//*      FEATURE IS NEEDED ONLY FOR SELECTED WORKLOADS,             *   FILE 195
//*      INTERVAL ACCOUNTING RECORDS FOR OTHER WORKLOADS (E.G.      *   FILE 195
//*      INITIATORS, LOW-USE SYSTEM TASKS, SHORT BATCH JOBS)        *   FILE 195
//*      ADD UNNECESSARY OVERHEAD TO SMF RECORDING AND DATA         *   FILE 195
//*      REDUCTION.   THE FILTERING SYSTEM IMPLEMENTED IN THE       *   FILE 195
//*      SCHEDULER PERMITS A SITE TO COLLECT ONLY THOSE             *   FILE 195
//*      INTERVAL ACCOUNTING RECORDS OF VALUE IN ACCOUNTING OR      *   FILE 195
//*      CAPACITY PLANNING.                                         *   FILE 195
//*                                                                 *   FILE 195
//*    . FIXES TO MINOR BUGS AND REWRITE OF CODE TO IMPROVE         *   FILE 195
//*      MAINTAINABILITY.                                           *   FILE 195
//*                                                                 *   FILE 195
//*    INTRODUCTION                                                 *   FILE 195
//*    ____________                                                 *   FILE 195
//*                                                                 *   FILE 195
//*        THE MVS JOB SCHEDULER/REQUEUER IS A GROUP OF SMF         *   FILE 195
//*    EXITS (IEFUJV, IEFUJI, IEFUSI, IEFUTL, IEFU83, IEFUSO,       *   FILE 195
//*    IEFACTRT) AND PROGRAMS (ACCTLOAD, REQUEUER) DESIGNED         *   FILE 195
//*    TO IMPROVE BATCH JOB THROUGHPUT IN AN MVS/JES2               *   FILE 195
//*    ENVIRONMENT.   ALL LEVELS OF MVS ARE SUPPORTED, FROM         *   FILE 195
//*    MVS 3.7 (NON-SE) THROUGH MVS/SE2 TO MVS/SP1.3.   NO          *   FILE 195
//*    MODIFICATIONS TO MVS OR JES ARE REQUIRED.   SEVEN            *   FILE 195
//*    FEATURES ARE SUPPORTED:                                      *   FILE 195
//*                                                                 *   FILE 195
//*            . BATCH JOB ACCOUNT NUMBER VALIDATION;               *   FILE 195
//*                                                                 *   FILE 195
//*            . RESOURCE-SENSITIVE BATCH JOB CLASS SCHEDULING;     *   FILE 195
//*                                                                 *   FILE 195
//*            . JOB ROUTING (CPU AFFINITY ASSIGNMENT) BASED ON     *   FILE 195
//*              PROGRAM NAMES IN JCL EXEC STATEMENTS;              *   FILE 195
//*                                                                 *   FILE 195
//*            . DSNAME CONFLICT MANAGEMENT, OR REQUEUING (BOTH     *   FILE 195
//*              BATCH/BATCH AND BATCH/TSO);                        *   FILE 195
//*                                                                 *   FILE 195
//*            . COMPREHENSIVE STEP TERMINATION STATISTICS          *   FILE 195
//*              DISPLAYS;                                          *   FILE 195
//*                                                                 *   FILE 195
//*            . SMF RECORD FILTERING FOR RECORD TYPES 14, 15,      *   FILE 195
//*              AND 30, SUBTYPE 2 & 3 TO REDUCE SMF DATA           *   FILE 195
//*              VOLUME;                                            *   FILE 195
//*                                                                 *   FILE 195
//*            . CPU TIME NORMALIZATION TO PROVIDE A CONSISTENT     *   FILE 195
//*              LEVEL OF SERVICE REGARDLESS OF PROCESSOR SPEED.    *   FILE 195
//*                                                                 *   FILE 195
//*        MOST OF THE SYSTEM IS TABLE-DRIVEN AND REQUIRES NO       *   FILE 195
//*    CHANGES TO THE ORIGINAL SOURCE.   OTHER FEATURES (E.G.       *   FILE 195
//*    ACCOUNT VALIDATION, SITE DEFINED ESOTERIC UNIT NAMES)        *   FILE 195
//*    WILL REQUIRE MODIFICATION AND REASSEMBLY OF EXIT             *   FILE 195
//*    SOURCE.                                                      *   FILE 195
//*                                                                 *   FILE 195
//*        THE BATCH JOB CLASS SCHEDULING PORTION OF THE            *   FILE 195
//*    SYSTEM REQUIRES SOMETIMES MASSIVE CHANGES TO EXISTING        *   FILE 195
//*    INITIATOR JOB CLASS ASSIGNMENTS.  IF MANAGEMENT              *   FILE 195
//*    SUPPORT IS NOT FORTHCOMING ON THIS POINT, THE CLASS          *   FILE 195
//*    SCHEDULING FEATURE WILL LIKELY BE OF LITTLE BENEFIT.         *   FILE 195
//*                                                                 *   FILE 195
//*        THE JOB ROUTING FACILITY IS USED TO REDUCE THE           *   FILE 195
//*    NUMBER (AND THEREFORE COST) OF PROGRAM PRODUCT               *   FILE 195
//*    LICENSES BY ROUTING JOBS TO SINGLE PROCESSORS WHERE          *   FILE 195
//*    THE LICENSE IS CURRENT.   THIS FACILITY ASSUMES THE          *   FILE 195
//*    PRODUCT CAN BE IDENTIFIED FROM THE PGM= NAME ON THE          *   FILE 195
//*    EXEC STATEMENT.   THE PRODUCT MAY BE INVOKED FROM A          *   FILE 195
//*    PROC, AN INSTREAM PROC, OR WITH NO PROC AT ALL.              *   FILE 195
//*                                                                 *   FILE 195
//*        THE REQUEUER FEATURE IS DESIGNED FOR BOTH THE            *   FILE 195
//*    UNI-PROCESSOR AND LOOSELY-COUPLED MULTI-PROCESSOR            *   FILE 195
//*    ENVIRONMENTS.   IF DSNAME CONFLICT MANAGEMENT IS             *   FILE 195
//*    DESIRED ACROSS ALL SYSTEMS IN A JES SHARED SPOOL             *   FILE 195
//*    COMPLEX THE MSI PRODUCT FROM ALLEN SERVICES MUST BE          *   FILE 195
//*    INSTALLED.   ADDITIONALLY, THE DCM FEATURE OF MSI MUST       *   FILE 195
//*    BE REPLACED WITH A MODIFIED VERSION AVAILABLE FROM           *   FILE 195
//*    ALLEN SERVICES (SEE PAGE 8).                                 *   FILE 195
//*                                                                 *   FILE 195
//*        THE STEP TERMINATION STATISTICS DISPLAY NOMINALLY        *   FILE 195
//*    REQUIRES THAT SMF RECORD TYPES 4, 14, 15, AND 64 BE          *   FILE 195
//*    TURNED ON.   TO SAVE ON OVERHEAD, TYPES 14, 15, AND 64       *   FILE 195
//*    MAY BE TURNED OFF, BUT DISPLAYS BASED ON THE CONTENTS        *   FILE 195
//*    OF THESE RECORDS WILL OF COURSE NOT BE AVAILABLE.            *   FILE 195
//*                                                                 *   FILE 195
//*        KEY TO THE CONCEPT OF RESOURCE-SENSITIVE JOB             *   FILE 195
//*    SCHEDULING IS THE ENFORCEMENT OF THE LIMITS SPECIFIED        *   FILE 195
//*    IN THE USER'S JCL (E.G. CPU TIME EXCESSION IMPLIES A         *   FILE 195
//*    S322 ABEND, LINE EXCESSION IMPLIES A S722 ABEND).  TO        *   FILE 195
//*    REDUCE THE IMPACT ON TRUE PRODUCTION WORK, SMF EXITS         *   FILE 195
//*    IEFUTL AND IEFUSO DISCRIMINATE BETWEEN TEST AND              *   FILE 195
//*    PRODUCTION WORK; PRODUCTION WORK IS EXTENDED WITH A          *   FILE 195
//*    WARNING MESSAGE, TEST JOBS ARE ABENDED WHEN THE              *   FILE 195
//*    EXCESSION IS DETECTED.   OUR SITE USES VALUES IN THE         *   FILE 195
//*    ACCOUNTING FIELD TO MARK THIS ATTRIBUTE.                     *   FILE 195
//*                                                                 *   FILE 195
//***FILE 196 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 196
//*           THIS MEANS "SPLA TAPE FILE 096".                      *   FILE 196
//*                                                                 *   FILE 196
//*   H F000196 D=JUN83                                             *   FILE 196
//*   T FILE 196 - U.S. SENATE JOB SCHEDULER/REQUEUER -             *   FILE 196
//*                SOURCE AND MACROS                                *   FILE 196
//*   K JOB SCHEDULER REQUEUER ENQ SOURCE MACRO MACLIB              *   FILE 196
//*   K SENATE HALBIG V26                                           *   FILE 196
//*                                                                 *   FILE 196
//*      RELATED FILES: 195-196; DOCUMENTATION: FILE 196            *   FILE 196
//*                     MEMBER DOCUMENT.                            *   FILE 196
//*                                                                 *   FILE 196
//*      THIS IS THE SOURCE AND MACRO LIBRARY FOR THE               *   FILE 196
//*      JOB/SCHEDULER REQUEUER SYSTEM                              *   FILE 196
//*                                                                 *   FILE 196
//***FILE 197 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 197
//*           THIS MEANS "SPLA TAPE FILE 097".                      *   FILE 197
//*                                                                 *   FILE 197
//*   H F000197 D=APR84                                             *   FILE 197
//*   T FILE 197 - VS1 MODS TAPE DESCRIPTION                        *   FILE 197
//*   K VISA EARL HARPER SHARE VS1 MODS TAPE V29                    *   FILE 197
//*                                                                 *   FILE 197
//*   THIS FILE CONTAIN THE ABSTRACT FROM THE SHARE VS1 MODS TAPE   *   FILE 197
//*                                                                 *   FILE 197
//*    FOR FURTHER INFORMATION CONTACT:                             *   FILE 197
//*                                                                 *   FILE 197
//*             EARL HARPER                                         *   FILE 197
//*             VISA, USA                                           *   FILE 197
//*             P.O. BOX 8999                                       *   FILE 197
//*             SAN FRANCISCO, CA  94128                            *   FILE 197
//*             PHONE:  415/570-3330                                *   FILE 197
//*                                                                 *   FILE 197
//***FILE 198 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 198
//*           THIS MEANS "SPLA TAPE FILE 098".                      *   FILE 198
//*                                                                 *   FILE 198
//*   H F000198 D=OCT82                                             *   FILE 198
//*   T FILE 198 - INTEL MODS TAPE DESCRIPTION                      *   FILE 198
//*   K INTEL KEN TRUE MODS TAPE FAIRCHILD MSS V23                  *   FILE 198
//*                                                                 *   FILE 198
//*      THIS FILE CONTAIN THE ABSTRACT FROM THE INTEL              *   FILE 198
//*      MODS TAPE (FORMERLY THE FAIRCHILD MSS MODS TAPE).          *   FILE 198
//*                                                                 *   FILE 198
//*      THIS REFLECTS VERSION 1.9.                                 *   FILE 198
//*                                                                 *   FILE 198
//*      FOR FURTHER INFORMATION CONTACT:                           *   FILE 198
//*                                                                 *   FILE 198
//*               KEN M. TRUE                                       *   FILE 198
//*               INTEL CORPORATION                                 *   FILE 198
//*               1766 JUNCTION AVE. (SJ1-442)                      *   FILE 198
//*               SAN JOSE, CA  95112                               *   FILE 198
//*               PHONE:  408 987-5004                              *   FILE 198
//*                                                                 *   FILE 198
//***FILE 199 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 199
//*           THIS MEANS "SPLA TAPE FILE 099".                      *   FILE 199
//*                                                                 *   FILE 199
//*   H F000199 D=JUN83                                             *   FILE 199
//*   T FILE 199 - GENERALIZED DATASET ALLOCATOR TSO COMMAND        *   FILE 199
//*   T            FROM THE U.S. DEPARTMENT OF ENERGY - SOURCE      *   FILE 199
//*   K GENERALIZED DATASET ALLOCATOR ALLOCATE TSO DEPARTMENT       *   FILE 199
//*   K ENERGY GDA AUDET V26 PERFORMANCE SOURCE                     *   FILE 199
//*                                                                 *   FILE 199
//*      RELATED FILES: 199-202; DOCUMENTATION: FILE 202.           *   FILE 199
//*                                                                 *   FILE 199
//*      THIS IS THE SOURCE FOR THE GENERALIZED DATASET ALLOCATOR.  *   FILE 199
//*                                                                 *   FILE 199
//*      CONTRIBUTOR: B. H. AUDET                                   *   FILE 199
//*                   U.S. DEPARTMENT OF ENERGY (URD)               *   FILE 199
//*                   MA-621                                        *   FILE 199
//*                   CA-111, GTN.                                  *   FILE 199
//*                   WASHINGTON, DC  20545                         *   FILE 199
//*                   PHONE: 301/353-4603                           *   FILE 199
//*                                                                 *   FILE 199
//*         GENERALIZED DATASET ALLOCATOR: GDA USER'S GUIDE AND     *   FILE 199
//*                                         INSTALLATION MANUAL     *   FILE 199
//*                                                                 *   FILE 199
//*                                               MAY 5TH, 1983     *   FILE 199
//*                                                 B. H. AUDET     *   FILE 199
//*                                                    MA-251.1     *   FILE 199
//*                                  U. S. DEPARTMENT OF ENERGY     *   FILE 199
//*                                        GERMANTOWN, MARYLAND     *   FILE 199
//*                                              (301)-353-4603     *   FILE 199
//*                                                                 *   FILE 199
//*  ABSTRACT                                                       *   FILE 199
//*  --------                                                       *   FILE 199
//*                                                                 *   FILE 199
//*  THE GENERALIZED DATASET ALLOCATOR IS AN MVS TSO COMMAND PRO-   *   FILE 199
//*  CESSOR DESIGNED TO PRE-ALLOCATE DATASETS TO BE USED BY OTHER   *   FILE 199
//*  COMMAND PROCESSORS AND APPLICATION PROGRAMS.  IT WAS SPECIF-   *   FILE 199
//*  ICALLY DESIGNED  TO ALLOW  CUSTOMIZED PRE-ALLOCATION  OF THE   *   FILE 199
//*  PANEL,  MESSAGES,   SKELETON,  TABLE,   PROFILE  AND   OTHER   *   FILE 199
//*  LIBRARIES REQUIRED  BY THE  DIALOG MANAGER  AND THE  PROGRAM   *   FILE 199
//*  DEVELOPMENT FACILITY (PDF), BUT IS  APPLICABLE TO MANY OTHER   *   FILE 199
//*  APPLICATION PROGRAMMING SYSTEMS AS WELL.                       *   FILE 199
//*                                                                 *   FILE 199
//*  SUMMARY OF CHANGES                                             *   FILE 199
//*  ------------------                                             *   FILE 199
//*                                                                 *   FILE 199
//*  THIS DOCUMENT DESCRIBES VERSION 2 OF THE GDA COMMAND PROCES-   *   FILE 199
//*  SOR.  THE SIGNIFICANT (NON-EDITORIAL)  CHANGES ARE INDICATED   *   FILE 199
//*  IN THIS DOCUMENT BY A VERTICAL  BAR (|) REVISION CODE IN THE   *   FILE 199
//*  LEFT MARGIN.  THE CHANGES MAY BE SUMMARIZED AS FOLLOWS:        *   FILE 199
//*                                                                 *   FILE 199
//*  1.  THE SPECIFICATION OF AN ASTERISK AS THE FIRST POSITIONAL   *   FILE 199
//*      PARAMETER FOLLOWING THE COMMAND NAME:                      *   FILE 199
//*                                                                 *   FILE 199
//*      A.  GDA VERSION 1 WOULD READ SYS1.CNTL(GDATA) AS INPUT.    *   FILE 199
//*                                                                 *   FILE 199
//*      B.  GDA VERSION 2 WILL READ THE USER'S "PREFIX.GDA.DATA"   *   FILE 199
//*          IF IT EXISTS, AND WILL READ SYS1.CNTL(GDATA) ONLY IF   *   FILE 199
//*          NO USER GDA.DATA DATASET CAN BE FOUND.                 *   FILE 199
//*                                                                 *   FILE 199
//*  2.  ALLOCATION OF THE USER'S ISPF.PROFILE DATASET:             *   FILE 199
//*                                                                 *   FILE 199
//*      A.  GDA VERSION 1 DID NOT RECOGNIZE THE ISPPROF DDNAME.    *   FILE 199
//*                                                                 *   FILE 199
//*      B.  GDA VERSION 2 NOT ONLY RECOGNIZES THE ISPPROF DDNAME   *   FILE 199
//*          BUT TREATS  IT AS A  SPECIAL CASE.  WHEN  THE DDNAME   *   FILE 199
//*          ISPPROF IS ENCOUNTERED IN THE CONTROL INPUT DATASET,   *   FILE 199
//*          IF A  DATASET NAME FOLLOWS  THE ISPPROF  DDNAME, THE   *   FILE 199
//*          INPUT  RECORD IS  TREATED LIKE  ANY  OTHER, AND  THE   *   FILE 199
//*          INDICATED DATASET IS ALLOCATED AS WOULD BE ANY OTHER   *   FILE 199
//*          DATASET UNDER ANY OTHER DDNAME.                        *   FILE 199
//*                                                                 *   FILE 199
//*          IF THE  DATASET NAME  IS AN  ASTERISK, HOWEVER,  GDA   *   FILE 199
//*          VERSION   2   SEARCHES   FOR    A   DATASET   CALLED   *   FILE 199
//*          "USERID.ISPF.PROFILE" AND SUBSTITUTES  THAT NAME FOR   *   FILE 199
//*          THE ASTERISK,  JUST AS IT SUBSTITUTES  CERTAIN OTHER   *   FILE 199
//*          "STANDARD" DATASET NAMES FOR ASTERISKS WHEN PROCESS-   *   FILE 199
//*          ING CERTAIN OTHER DDNAMES.                             *   FILE 199
//*                                                                 *   FILE 199
//*          IF THE  USER'S "USERID.ISPF.PROFILE" DATASET  IS NOT   *   FILE 199
//*          FOUND, GDA CREATES ONE ON THE TEMPXX PACK WHICH CUR-   *   FILE 199
//*          RENTLY  HAS THE  LARGEST EXTENT  OF CONTIGUOUS  FREE   *   FILE 199
//*          SPACE.  A PRIMARY ALLOCATION OF ONE TRACK AND A SEC-   *   FILE 199
//*          ONDARY ALLOCATION OF ONE  TRACK ARE SPECIFIED, ALONG   *   FILE 199
//*          WITH FIVE DIRECTORY BLOCKS.   THIS IS GENERALLY SUF-   *   FILE 199
//*          FICIENT SPACE FOR MOST SPF PROFILE SPECIFICATIONS.     *   FILE 199
//*                                                                 *   FILE 199
//*      C.  THE DEFAULT DATASET NAMES RECOGNIZED BY GDA FOR CER-   *   FILE 199
//*          TAIN  DDNAMES HAVE  BEEN  CHANGED.  PREVIOUSLY,  THE   *   FILE 199
//*          DEPARTMENT OF  ENERGY HAD  MAINTAINED THE  "VANILLA"   *   FILE 199
//*          IBM-SUPPLIED    PANEL    LIBRARIES    FOR    SPF/PDF   *   FILE 199
//*          (ISR.V1R1M0.ISRPLIB)   AND   THE    DIALOG   MANAGER   *   FILE 199
//*          (ISP.V1R1M0.ISPPLIB), PLUS A STANDARD DOE-WIDE PANEL   *   FILE 199
//*          LIBRARY (SYS1.SPF.PLIB),  ALL OF WHICH  WERE CONCAT-   *   FILE 199
//*          ENATED  TOGETHER UNDER  THE  NAME ISPPLIB.   SIMILAR   *   FILE 199
//*          GROUPS  OF   LIBRARIES  WERE   MAINTAINED  FOR   THE   *   FILE 199
//*          MESSAGES,  SKELETON AND  TABLE  LIBRARIES, AND  THIS   *   FILE 199
//*          COMPLICATED  CONCATENATION   SCHEME  PROVED   TO  BE   *   FILE 199
//*          TIME-CONSUMING.                                        *   FILE 199
//*                                                                 *   FILE 199
//*          NONE  OF THE  LIBRARIES BEING  CONCATENATED UNDER  A   *   FILE 199
//*          SPECIFIC DDNAME CONTAINED ANY  MEMBER NAME CONFLICTS   *   FILE 199
//*          EXCEPT   FOR  THE   SPF/PDF   PRIMARY  OPTION   MENU   *   FILE 199
//*          (ISR@PRIM).   DOE  HAS   REPLACED  THE  IBM-SUPPLIED   *   FILE 199
//*          ISR@PRIM WITH A SLIGHTLY MODIFIED VERSION WHICH CON-   *   FILE 199
//*          TAINS  TWO ADDITIONAL  OPTIONS, ONE  FROM WHICH  ALL   *   FILE 199
//*          DOE-WIDE STANDARD DIALOGS ARE ANCHORED, AND ONE FROM   *   FILE 199
//*          WHICH EACH USER MAY ANCHOR HIS/HER OWN DIALOGS.        *   FILE 199
//*                                                                 *   FILE 199
//*          THIS ALLOWED DOE  TO MERGE ALL THE  IBM-SUPPLIED AND   *   FILE 199
//*          DOE-SUPPLIED  PANELS INTO  A  SINGLE PANEL  LIBRARY,   *   FILE 199
//*          SYS1.SPF.PLIB, THU  SIMPLIFYING AND SPEEDING  UP THE   *   FILE 199
//*          ALLOCATION PROCESS.   SIMILAR CONSOLIDATIONS  OF THE   *   FILE 199
//*          MESSAGES,  SKELETON AND  TABLE  LIBRARIES WERE  PER-   *   FILE 199
//*          FORMED.                                                *   FILE 199
//*                                                                 *   FILE 199
//*          TWO SPIN-OFF ADVANTAGES TO  THIS TECHNIQUE RESULTED.   *   FILE 199
//*          FIRST,  THE  PROLIFERATION  OF  USER-UNIQUE  PRIMARY   *   FILE 199
//*          OPTION MENUS WAS ELIMINATED,  SINCE ALL USER DIALOGS   *   FILE 199
//*          COULD NOW  THE ANCHORED  FROM THE  USER DIALOGS  (U)   *   FILE 199
//*          OPTION ON THE DOE-SUPPLIED  PRIMARY OPTION MENU, AND   *   FILE 199
//*          ALL  DOE-SUPPLIED DIALOGS  (E.G.,  DIALOGS FOR  ABR,   *   FILE 199
//*          EASYTRIEVE,  GDDM,  PROCMAN,   LIBRARIAN,  PANAUDIT,   *   FILE 199
//*          ETC.) COULD BE ANCHORED FROM  THE SYSTEM DIALOGS (S)   *   FILE 199
//*          OPTION.                                                *   FILE 199
//*                                                                 *   FILE 199
//*          SECONDLY,   APPLICATION   OF  MAINTENANCE   TO   THE   *   FILE 199
//*          IBM-SUPPLIED LIBRARIES  WOULD NOT RESULT  IN ENQUEUE   *   FILE 199
//*          PROBLEMS  OR OVERLAY  OF  LOCALLY DEVELOPED  PANELS.   *   FILE 199
//*          ANY INSTALLATION WHICH HAS SPF AND THE DIALOG MANAG-   *   FILE 199
//*          ER  AND  HAS  NOT   SIMILARLY  GAINED  CONTROL  OVER   *   FILE 199
//*          USER-UNIQUE PRIMARY  OPTION MENUS  SHOULD HEED  THIS   *   FILE 199
//*          EXAMPLE CAREFULLY.  IT  HAS PROVEN TO BE  ONE OF THE   *   FILE 199
//*          BEST DECISIONS THAT DOE HAS EVER MADE.                 *   FILE 199
//*                                                                 *   FILE 199
//*  3.  IF GDA VERSION 2 IS APF  AUTHORIZED, IT WILL ISSUE SYSE-   *   FILE 199
//*      VENT 29 (DONTSWAP)  TO MARK ITSELF NON-SWAPPABLE  AT THE   *   FILE 199
//*      BEGINNING OF EXECUTION AND ISSUE SYSEVENT 2A (OKSWAP) TO   *   FILE 199
//*      MARK ITSELF SWAPPABLE AT THE  END OF EXECUTION.  IN MOST   *   FILE 199
//*      CASES,  THIS WILL  REDUCE  GDA  EXECUTION TIME.   DURING   *   FILE 199
//*      LOGON PROCESSING,  THIS CAN  BE A  SIGNIFICANT CONSIDER-   *   FILE 199
//*      ATION.                                                     *   FILE 199
//*                                                                 *   FILE 199
//*      IT IS RECOGNIZED THAT SOME INSTALLATIONS MAY PREFER THAT   *   FILE 199
//*      THIS NOT  BE DONE.  THERE  IS NO OTHER  REQUIREMENT THAT   *   FILE 199
//*      GDA BE APF  AUTHORIZED.  HENCE, LINK EDITING  IT WITHOUT   *   FILE 199
//*      APF AUTHORIZATION OR OMITTING THE  COMMAND NAME FROM THE   *   FILE 199
//*      AUTHORIZED  COMMAND TABLE  (IKJEFTE2)  IN IKJEFT02  WILL   *   FILE 199
//*      DISABLE THIS FEATURE.                                      *   FILE 199
//*                                                                 *   FILE 199
//*  OVERVIEW                                                       *   FILE 199
//*  --------                                                       *   FILE 199
//*                                                                 *   FILE 199
//*  THE GENERALIZED  DATASET ALLOCATOR  (GDA) DESCRIBED  IN THIS   *   FILE 199
//*  DOCUMENT IS  AN ASSEMBLER LANGUAGE  PROGRAM WHICH RUNS  AS A   *   FILE 199
//*  RE-ENTRANT TSO COMMAND PROCESSOR UNDER  THE IBM OS/VS2 (MVS)   *   FILE 199
//*  OPERATING SYSTEM.  ITS  PURPOSE IS TO ALLOW THE  TSO USER TO   *   FILE 199
//*  ALLOCATE A  LIST OF  DATASETS FOR SUBSEQUENT  USE BY  ONE OR   *   FILE 199
//*  MORE COMMAND PROCESSORS OR APPLICATION PROGRAMS.               *   FILE 199
//*                                                                 *   FILE 199
//*  GDA FUNCTIONS BY READING A SEQUENTIAL DATASET DESCRIBING THE   *   FILE 199
//*  DATASETS  TO BE  ALLOCATED.   THIS  SO-CALLED CONTROL  INPUT   *   FILE 199
//*  DATASET MAY  HAVE ANY  NUMBER OF  RECORDS OF  FOUR DIFFERENT   *   FILE 199
//*  TYPES.  THE RECORD TYPES ARE:                                  *   FILE 199
//*                                                                 *   FILE 199
//*  O   ALLOCATION REQUEST RECORDS                                 *   FILE 199
//*                                                                 *   FILE 199
//*  O   TSO COMMAND RECORDS                                        *   FILE 199
//*                                                                 *   FILE 199
//*  O   COMMENT RECORDS                                            *   FILE 199
//*                                                                 *   FILE 199
//*  O   DISPLAY RECORDS                                            *   FILE 199
//*                                                                 *   FILE 199
//*  THE  RECORD TYPES  WILL  BE  DISCUSSED INDIVIDUALLY  AND  IN   *   FILE 199
//*  DETAIL BELOW.                                                  *   FILE 199
//*                                                                 *   FILE 199
//*  IN A  SENSE, GDA  FUNCTIONS MUCH LIKE  THE TSO  COMMAND LIST   *   FILE 199
//*  (CLIST) INTERPRETER, IN THAT IT  READS A CONTROL INPUT DATA-   *   FILE 199
//*  SET AND INTERPRETS AND ACTS ON EACH RECORD INDIVIDUALLY.  IT   *   FILE 199
//*  DIFFERS  FROM   A  TSO   CLIST,  HOWEVER,   IN  SYNTAX   AND   *   FILE 199
//*  PERFORMANCE, TAKING APPROXIMATELY 10 PER  CENT LESS CPU TIME   *   FILE 199
//*  TO PERFORM EACH GIVEN TASK  THAN DOES THE CLIST INTERPRETER.   *   FILE 199
//*  GDA  ALSO HAS  BUILT INTO  IT  CERTAIN SHORT-HAND  NOTATIONS   *   FILE 199
//*  WHICH ARE NOT AVAILABLE TO  CLIST PROGRAMMERS AND WHICH FORM   *   FILE 199
//*  A LARGE PART OF THE JUSTIFICATION FOR GDA.                     *   FILE 199
//*                                                                 *   FILE 199
//*  REQUIREMENTS                                                   *   FILE 199
//*  ------------                                                   *   FILE 199
//*                                                                 *   FILE 199
//*  ALL TSO SESSIONS REQUIRE THAT  CERTAIN DATASETS BE ALLOCATED   *   FILE 199
//*  TO THE  SESSION FOR  SUBSEQUENT USE  BY COMMAND  PROCESSORS,   *   FILE 199
//*  CLISTS AND APPLICATION PROGRAMS.  THESE DATASETS MAY BE:       *   FILE 199
//*                                                                 *   FILE 199
//*  O   SCRATCH OR WORK DATASETS, WHICH ARE DELETED WHEN NO LON-   *   FILE 199
//*      GER REQUIRED OR AT LOGOFF TIME,                            *   FILE 199
//*                                                                 *   FILE 199
//*  O   NEW PERMANENT  DATASETS WHICH ARE  RETAINED INDEFINITELY   *   FILE 199
//*      BEYOND THE DURATION OF THE TSO SESSION IN WHICH THEY ARE   *   FILE 199
//*      CREATED, AND                                               *   FILE 199
//*                                                                 *   FILE 199
//*  O   PREVIOUSLY CREATED (EXISTING) PERMANENT DATASETS.          *   FILE 199
//*                                                                 *   FILE 199
//*  IT IS THIS  LAST CATEGORY THAT WE ARE  CONCERNED WITH.  MORE   *   FILE 199
//*  SPECIFICALLY, THE  SCOPE OF  THIS DOCUMENT  IS LIMITED  TO A   *   FILE 199
//*  CONSIDERATION OF THE PROBLEMS  ASSOCIATED WITH ALLOCATION OF   *   FILE 199
//*  EXISTING DATASETS  WHICH MUST  BE SHARED  AMONG SEVERAL  TSO   *   FILE 199
//*  SESSIONS.  IN THIS CONTEXT, WE  SHALL REFER TO SUCH DATASETS   *   FILE 199
//*  AS SHARED DATASETS.                                            *   FILE 199
//*                                                                 *   FILE 199
//*  SHARED DATASETS MAY BE ALLOCATED IN ANY OF FOUR WAYS:          *   FILE 199
//*                                                                 *   FILE 199
//*  O   DURING LOGON PROCESSING, VIA INCLUSION IN THE LOGON PRO-   *   FILE 199
//*      CEDURE OF A DD-CARD REFERRING TO THE DATASET,              *   FILE 199
//*                                                                 *   FILE 199
//*  O   DYNAMICALLY, BY THE TSO USER, VIA THE ALLOCATE COMMAND,    *   FILE 199
//*                                                                 *   FILE 199
//*  O   DYNAMICALLY, BY A CLIST, OR                                *   FILE 199
//*                                                                 *   FILE 199
//*  O   DYNAMICALLY, BY A COMMAND PROCESSOR.                       *   FILE 199
//*                                                                 *   FILE 199
//*  EACH OF THESE TECHNIQUES HAS  SOME DRAWBACKS ASSOCIATED WITH   *   FILE 199
//*  IT.  THE ALLOCATION OF DATASETS AT LOGON TIME BY INCLUDING A   *   FILE 199
//*  DD-CARD FOR EACH DATASET IN THE LOGON PROCEDURE IS THE METH-   *   FILE 199
//*  OD MOST PRONE TO DISASTER.  IT FREQUENTLY HAPPENS THAT, WHEN   *   FILE 199
//*  A PARTICULAR USER IS LOGGING ON TO TSO, ONE (OR MORE) OF THE   *   FILE 199
//*  DATASETS REFERRED TO IN THE  LOGON PROCEDURE HE/SHE IS USING   *   FILE 199
//*  IS NOT AVAILABLE AT THAT TIME.   THE REASONS MAY BE THAT THE   *   FILE 199
//*  VOLUME ON WHICH IT RESIDES IS  NOT MOUNTED, THAT THE DATASET   *   FILE 199
//*  IS BEING USED EXCLUSIVELY BY ANOTHER  TSO USER OR BATCH JOB,   *   FILE 199
//*  OR THAT THE DATASET HAS BEEN DELETED, EITHER ACCIDENTALLY OR   *   FILE 199
//*  INTENTIONALLY.  THESE SITUATIONS ARE NOT ALWAYS ERROR CONDI-   *   FILE 199
//*  TIONS.   EVEN THE  DELETION  OF THE  NEEDED  DATASET MAY  BE   *   FILE 199
//*  APPROPRIATE, UNDER  CERTAIN CIRCUMSTANCES SUCH  AS MIGRATION   *   FILE 199
//*  OF DATA, RECREATION OF A VOLUME, ETC.                          *   FILE 199
//*                                                                 *   FILE 199
//*  THE PROBLEM WITH INCLUSION OF THE DATASETS IN THE LOGON PRO-   *   FILE 199
//*  CEDURE IS THAT  WHENEVER ANY DATASET REFERRED TO  IN A LOGON   *   FILE 199
//*  PROCEDURE IS NOT  AVAILABLE, FOR ANY REASON,  ALL TSO LOGONS   *   FILE 199
//*  USING THAT PROCEDURE  WILL FAIL.  IF THE  DATASETS ARE TRULY   *   FILE 199
//*  ESSENTIAL  TO  THE  SESSION, THIS  MAY  BE  THE  APPROPRIATE   *   FILE 199
//*  RESPONSE.  BUT, MORE THAN LIKELY,  SOME TSO PROCESSING COULD   *   FILE 199
//*  BE PERFORMED WITHOUT  ONE OR MORE OF THE  DATASETS.  IN SUCH   *   FILE 199
//*  CASES, THE TSO LOGON PROCESS SHOULD BE ALLOWED TO PROCEED.     *   FILE 199
//*                                                                 *   FILE 199
//*  ANOTHER DIFFICULTY  WITH INCLUSION  OF DATASETS  IN THE  TSO   *   FILE 199
//*  LOGON PROCEDURE  IS THAT  DIFFERENT USERS  REQUIRE DIFFERENT   *   FILE 199
//*  DATASETS.  IT  IS OFTEN DESIRABLE TO  HAVE AS MANY  USERS AS   *   FILE 199
//*  POSSIBLE  USING THE  SAME LOGON  PROCEDURE.  THIS  PRECLUDES   *   FILE 199
//*  ALLOCATION DURING LOGON OF  USER-SPECIFIC DATASETS, THAT IS,   *   FILE 199
//*  DATASETS BELONGING  TO A  SPECIFIC USER,  GROUP OF  USERS OR   *   FILE 199
//*  APPLICATION, SUCH  AS THOSE  THAT BEGIN  WITH THE  USERID OR   *   FILE 199
//*  SOME APPLICATION MODULE IDENTIFICATION CODE.                   *   FILE 199
//*                                                                 *   FILE 199
//*  WHERE DATASET  SECURITY PACKAGES SUCH  AS RACF OR  ACF-2 ARE   *   FILE 199
//*  INVOLVED, INCLUSION  OF USER-SPECIFIC DATASETS IN  THE LOGON   *   FILE 199
//*  PROCEDURE MAY  RESULT IN  SECURITY VIOLATIONS  DURING LOGON,   *   FILE 199
//*  AND SUBSEQUENT  TERMINATION OF THE  LOGON PROCESS.   THIS IS   *   FILE 199
//*  NOT A DESIRABLE SITUATION.                                     *   FILE 199
//*                                                                 *   FILE 199
//*  IT IS CLEAR THAT ALLOCATION  OF SHARED DATASETS BY INCLUSION   *   FILE 199
//*  OF DD-CARDS IN THE LOGON PROCEDURE IS NOT A VIABLE METHOD OF   *   FILE 199
//*  ALLOCATING USER-SPECIFIC DATASETS AND  IS A DANGEROUS METHOD   *   FILE 199
//*  OF ALLOCATING  SHARED DATASETS.  DYNAMIC ALLOCATION  OF SUCH   *   FILE 199
//*  DATASETS IS PREFERRED                                          *   FILE 199
//*                                                                 *   FILE 199
//*  DYNAMIC  ALLOCATION  BY  THE  USER,  VIA  THE  TSO  ALLOCATE   *   FILE 199
//*  COMMAND, HAS THE ADVANTAGE THAT IF ANY PARTICULAR ALLOCATION   *   FILE 199
//*  FAILS, THE USER  IS INFORMED, AND THE SESSION  IS NOT TERMI-   *   FILE 199
//*  NATED.   HOWEVER,  WHERE  A LARGE  NUMBER  OF  DATASETS  ARE   *   FILE 199
//*  INVOLVED, SUCH ALLOCATIONS MAY TAKE A LONG TIME FOR THE USER   *   FILE 199
//*  TO ENTER.                                                      *   FILE 199
//*                                                                 *   FILE 199
//*  THE CLIST  FACILITY IS A MEANS  BY WHICH THE USER  CAN ENTER   *   FILE 199
//*  THE COMMANDS  TO ALLOCATE THE  REQUIRED DATASETS  ONCE, SAVE   *   FILE 199
//*  THESE COMMANDS  IN A  DATASET, AND  SUBSEQUENTLY INVOKE  THE   *   FILE 199
//*  CLIST INTERPRETER TO READ THAT DATASET AND PERFORM THE ALLO-   *   FILE 199
//*  CATE COMMANDS FOR HIM.  THIS  TECHNIQUE HAS ONLY TWO SIGNIF-   *   FILE 199
//*  ICANT DISADVANTAGES.  THE CLIST INTERPRETER IS A SIGNIFICANT   *   FILE 199
//*  CONSUMER OF CPU  RESOURCES.  SECONDLY, THE USER  IS REQUIRED   *   FILE 199
//*  TO KNOW  AND TO ENTER INTO  HIS CLIST THE NAMES  OF STANDARD   *   FILE 199
//*  SYSTEM DATASETS, WHICH MAY NOT BE UNDER HIS CONTROL.           *   FILE 199
//*                                                                 *   FILE 199
//*  FOR EXAMPLE, LET US ASSUME THAT THE USER DEVELOPS A CLIST TO   *   FILE 199
//*  ALLOCATE THE  DATASETS REQUIRED  BY THE  PROGRAM DEVELOPMENT   *   FILE 199
//*  FACILITY (PDF).  PDF MAY REQUIRE  A LARGE NUMBER OF DATASETS   *   FILE 199
//*  FOR EXECUTION,  SOME OF  WHICH ARE  SYSTEM-MAINTAINED SHARED   *   FILE 199
//*  DATASETS, SUCH AS  THE COMMON PDF PANEL  LIBRARY, FROM WHICH   *   FILE 199
//*  PDF FETCHES THE PANELS TO BE  DISPLAYED AT THE USER'S TERMI-   *   FILE 199
//*  NAL.                                                           *   FILE 199
//*                                                                 *   FILE 199
//*  THE USER  MAY KEEP HIS  OWN COMPLETE  COPY OF THE  PDF PANEL   *   FILE 199
//*  LIBRARY, BUT THIS IS NOT  RECOMMENDED, SINCE THERE MORE THAN   *   FILE 199
//*  A HUNDRES  PANELS IN THIS LIBRARY,  AND THERE IS  SELDOM ANY   *   FILE 199
//*  REASON FOR EACH USER OF PDF TO HAVE AND MAINTAIN A COMPLETE,   *   FILE 199
//*  SEPARATE COPY OF SUCH A LARGE DATASET.  MORE OFTEN, THE USER   *   FILE 199
//*  WILL  SIMPLY USE  WHAT PDF  PROVIDES.  IN  EITHER CASE,  THE   *   FILE 199
//*  DATASET MUST BE  ALLOCATED UNDER THE FILE  NAME ISPPLIB.  AT   *   FILE 199
//*  PRESENT, THE PDF PANEL LIBRARY IS CALLED ISR.V1R1M0.ISRPLIB.   *   FILE 199
//*  THUS, THE USER WOULD HAVE TO CODE THE FOLLOWING COMMAND INTO   *   FILE 199
//*  HIS CLIST:                                                     *   FILE 199
//*                                                                 *   FILE 199
//*    ALLOC  FI(ISPPLIB)  DS('ISR.V1R1M0.ISRPLIB') SHR             *   FILE 199
//*                                                                 *   FILE 199
//*  BUT WHY  SHOULD THE  USER HAVE  TO REMEMBER  THIS CUMBERSOME   *   FILE 199
//*  NAME?  SUPPOSE A NEW RELEASE OF PDF WERE INSTALLED, AND THIS   *   FILE 199
//*  NEW  RELEASE  INCORPORATED  NEW DATASET  NAMES  AND/OR  FILE   *   FILE 199
//*  NAMES.  THE USER WOULD HAVE TO CHANGE HIS OWN CLIST IN ORDER   *   FILE 199
//*  TO KEEP UP  WITH SYSTEM MAINTENANCE.  IF THERE  WERE A LARGE   *   FILE 199
//*  COMMUNITY  OF  PDF USERS,  EACH  WITH  THEIR OWN  CLISTS  TO   *   FILE 199
//*  PRE-ALLOCATE  THE  REQUIRED DATASETS,  HOW  MUCH  CONVERSION   *   FILE 199
//*  WOULD BE REQUIRED IN ORDER TO  INSTALL A NEW RELEASE OF PDF,   *   FILE 199
//*  OR SIMPLY TO RENAME ONE OF ITS DATASETS?  THIS IS INCONSIST-   *   FILE 199
//*  ENT WITH  THE PHILOSOPHY OF  ISOLATING THE USER  FROM SYSTEM   *   FILE 199
//*  MAINTENANCE ACTIVITIES.                                        *   FILE 199
//*                                                                 *   FILE 199
//*  MULTIPLY THIS BY THE MYRIAD NUMBER OF OTHER, SIMILAR COMMAND   *   FILE 199
//*  PROCESSORS WHICH REQUIRE SHARED  DATASETS, AND THE DISADVAN-   *   FILE 199
//*  TAGE  OF HAVING  USERS CODE  CLISTS TO  PERFORM THESE  ALLO-   *   FILE 199
//*  CATIONS BECOMES CLEAR.                                         *   FILE 199
//*                                                                 *   FILE 199
//*  A SINGLE, COMMON  CLIST WHICH ALL USERS COULD USE  IS A MORE   *   FILE 199
//*  ATTRACTIVE  ALTERNATIVE.   INDEED, FOR  SIMPLE  ALLOCATIONS,   *   FILE 199
//*  SUCH A  CLIST WOULD SUFFICE.  BUT  THERE IS OFTEN A  NEED TO   *   FILE 199
//*  INCLUDE    SOME    USER-SPECIFIC   DATASETS    ALONG    WITH   *   FILE 199
//*  SYSTEM-MAINTAINED  DATASETS.  USING  THE  PDF PANEL  LIBRARY   *   FILE 199
//*  EXAMPLE AGAIN,  SUPPOSE A USER  REQUIRES THAT HIS  OWN PANEL   *   FILE 199
//*  LIBRARY, CALLED  U9999XX.PANELLIB, BE ALLOCATED TO  THE ISP-   *   FILE 199
//*  PLIB FILE  NAME, AND  THAT THE  STANDARD PDF  PANEL LIBRARY,   *   FILE 199
//*  ISR.V1R1M0.ISRPLIB, BE CONCATENATED TO IT.  THIS IS A COMMON   *   FILE 199
//*  PRACTICE FOR  PDF, AND EVEN MORE  COMMON IN THE CASE  OF THE   *   FILE 199
//*  DIALOG MANAGER,  WHERE USERS ARE  ALLOWED TO HAVE  THEIR OWN   *   FILE 199
//*  PANELS FOR USE BY THE DIALOG MANAGER.                          *   FILE 199
//*                                                                 *   FILE 199
//*  THE REQUIRED TSO ALLOCATE COMMAND WOULD BE:                    *   FILE 199
//*                                                                 *   FILE 199
//*    ALLOC FI(ISPPLIB) DS(PANELLIB 'ISR.V1R1M0.ISRPLIB') SHR      *   FILE 199
//*                                                                 *   FILE 199
//*  IT WOULD BE  POSSIBLE, IF NOT EASY, TO CODE  SUCH A FACILITY   *   FILE 199
//*  INTO A COMMON CLIST.  BUT IF  THE CLIST WERE RESPONSIBLE FOR   *   FILE 199
//*  A LARGE NUMBER OF PRE-ALLOCATIONS,  AND EACH ALLOWED FOR ONE   *   FILE 199
//*  OR  MORE  CONCATENATIONS,  EITHER AHEAD  OF  OR  BEHIND  THE   *   FILE 199
//*  SYSTEM-MAINTAINED DATASETS, THE CLIST WOULD BECOME EXTREMELY   *   FILE 199
//*  CUMBERSOME   AND   USING   IT   WOULD   BE   DIFFICULT   AND   *   FILE 199
//*  TIME-CONSUMING.                                                *   FILE 199
//*                                                                 *   FILE 199
//*  HAVING  EACH  COMMAND  PROCESSOR ALLOCATE  THE  DATASETS  IT   *   FILE 199
//*  REQUIRES IS UNACCEPTABLE, SINCE SUCH  ALLOCATIONS HAVE TO BE   *   FILE 199
//*  HARD-CODED INTO  THE COMMAND PROCESSOR,  AND THIS  LEAVES NO   *   FILE 199
//*  FACILITY FOR  INCLUSION OF USER-SPECIFIC  ALLOCATIONS AND/OR   *   FILE 199
//*  CONCATENATIONS.   EVERYBODY GETS  THE  SAME  SET OF  DATASET   *   FILE 199
//*  ALLOCATIONS, REGARDLESS OF REQUIREMENTS.                       *   FILE 199
//*                                                                 *   FILE 199
//*  THUS, OF THE FOUR METHODS  LISTED ABOVE FOR ALLOCATING DATA-   *   FILE 199
//*  SETS, NONE IS FREE OF PROBLEMS.   A BETTER METHOD IS NEEDED,   *   FILE 199
//*  ONE WHICH  IS NOT CONSTRAINED  BY THE  LIMITATIONS MENTIONED   *   FILE 199
//*  ABOVE.                                                         *   FILE 199
//*                                                                 *   FILE 199
//*  OBJECTIVES                                                     *   FILE 199
//*  ----------                                                     *   FILE 199
//*                                                                 *   FILE 199
//*  GDA WAS DEVELOPED TO MEET THE  NEEDS DESCRIBED IN THE PREVI-   *   FILE 199
//*  OUS SECTION.   SPECIFICALLY, GDA WAS  DEVELOPED IN  ORDER TO   *   FILE 199
//*  PROVIDE A MEANS TO ALLOW  THE PRE-ALLOCATION OF DATASETS FOR   *   FILE 199
//*  THE DIALOG MANAGER AND PDF.  IT  WAS DECIDED THAT GDA SHOULD   *   FILE 199
//*  PERMIT  THE ALLOCATION  OF USER-SPECIFIC  DATASETS AHEAD  OF   *   FILE 199
//*  AND/OR  BEHIND   THE  "STANDARD"  DIALOG  MANAGER   AND  PDF   *   FILE 199
//*  DATASETS, AT THE USER'S OPTION.  SINCE THERE ARE A NUMBER OF   *   FILE 199
//*  OTHER  COMMAND  PROCESSORS AND  APPLICATION  PROGRAMS  WHICH   *   FILE 199
//*  REQUIRE SIMILAR DATASET ALLOCATIONS (AND THERE ARE LIKELY TO   *   FILE 199
//*  BE EVEN MORE IN THE FUTURE),  THE DESIGN OF GDA WAS GENERAL-   *   FILE 199
//*  IZED SO AS TO ALLOW ALLOCATION  OF DATASETS OTHER THAN THOSE   *   FILE 199
//*  REQUIRED FOR DIALOG MANAGER AND/OR PDF EXECUTION.              *   FILE 199
//*                                                                 *   FILE 199
//*  THE RESULTING DESIGN OBJECTIVES OF  GDA CAN BE SUMMARIZED AS   *   FILE 199
//*  FOLLOWS:                                                       *   FILE 199
//*                                                                 *   FILE 199
//*  O   GDA SHALL  RUN AS A  RE-ENTRANT COMMAND  PROCESSOR UNDER   *   FILE 199
//*      THE MVS TSO SYSTEM.                                        *   FILE 199
//*                                                                 *   FILE 199
//*  O   IT SHALL  ACCEPT AS CONTROL  INPUT A  SEQUENTIAL DATASET   *   FILE 199
//*      WITH EITHER FIXED OR VARIABLE LENGTH RECORDS.              *   FILE 199
//*                                                                 *   FILE 199
//*| O   THE GDA COMMAND SYNTAX SHALL PERMIT THE SPECIFICATION OF   *   FILE 199
//*|     A DATASET NAME AS THE FIRST POSITIONAL PARAMETER FOLLOW-   *   FILE 199
//*|     ING THE  COMMAND NAME.  IF  SUPPLIED, THIS  DATASET NAME   *   FILE 199
//*|     SHALL  BE THE  NAME OF  THE CONTROL  INPUT DATASET,  AND   *   FILE 199
//*|     SHALL BE DYNAMICALLY  ALLOCATED BY GDA.  IF  THE DATASET   *   FILE 199
//*|     NAME IS AN ASTERISK (*), THAT NOTATION SHALL BE TAKEN AS   *   FILE 199
//*|     A SHORT-HAND REFERENCE TO  A USER-PROVIDED CONTROL INPUT   *   FILE 199
//*|     DATASET, IF  ONE EXISTS, OR A  SYSTEM-MAINTAINED CONTROL   *   FILE 199
//*|     INPUT ("COMMON")  DATASET FOR  USE BY  ALL USERS,  IF NO   *   FILE 199
//*|     USER-PROVIDED DATASET IS  FOUND.  IF NO DATASET  NAME IS   *   FILE 199
//*|     SPECIFIED ON THE COMMAND LINE, GDA SHALL SEARCH AUTOMAT-   *   FILE 199
//*|     ICALLY FOR A  CONTROL INPUT DATASET CATALOGED  UNDER THE   *   FILE 199
//*|     USER'S DATASET NAME PREFIX.                                *   FILE 199
//*                                                                 *   FILE 199
//*  O   THE CONTROL  INPUT DATASET  SHALL SPECIFY  WHAT DATASETS   *   FILE 199
//*      ARE TO BE ALLOCATED UNDER WHAT FILE NAMES.                 *   FILE 199
//*                                                                 *   FILE 199
//*  O   GDA SHALL  ALLOW UP  TO SIXTEEN  DATASETS TO  BE CONCAT-   *   FILE 199
//*      ENATED TOGETHER UNDER A SINGLE FILE NAME.                  *   FILE 199
//*                                                                 *   FILE 199
//*  O   THE SPECIFICATION OF EACH DATASET NAME SHALL FOLLOW NOR-   *   FILE 199
//*      MAL TSO DATASET NAMING SPECIFICATIONS, INCLUDING PREPEN-   *   FILE 199
//*      SION  OF THE  USER'S  DATASET  NAME PREFIX,  UNLESS  THE   *   FILE 199
//*      DATASET NAME IS ENCLOSED IN APOSTROPHES.                   *   FILE 199
//*                                                                 *   FILE 199
//*  O   THE  CONTROL  INPUT  DATASET   SYNTAX  SHALL  ALLOW  THE   *   FILE 199
//*      OPTIONAL SPECIFICATION  OF MEMBER NAMES  FOR PARTITIONED   *   FILE 199
//*      DATASETS.                                                  *   FILE 199
//*                                                                 *   FILE 199
//*  O   THE  CONTROL  INPUT  DATASET   SYNTAX  SHALL  ALLOW  THE   *   FILE 199
//*      OPTIONAL SPECIFICATION OF A  DIRECT ACCESS VOLUME SERIAL   *   FILE 199
//*      NUMBER FOR EACH  DATASET.  IF A VOLUME  SERIAL NUMBER IS   *   FILE 199
//*      PROVIDED, THE SEARCH FOR THE DATASET SHALL BE LIMITED TO   *   FILE 199
//*      THAT VOLUME  ONLY.  IF NO  VOLUME SERIAL NUMBER  IS PRO-   *   FILE 199
//*      VIDED,  THE DATASET  SHALL  BE  LOCATED VIA  THE  SYSTEM   *   FILE 199
//*      CATALOG.                                                   *   FILE 199
//*                                                                 *   FILE 199
//*  O   THE  CONTROL  INPUT  DATASET   SYNTAX  SHALL  PROVIDE  A   *   FILE 199
//*      SHORT-HAND  METHOD  FOR   REFERENCING  SYSTEM-MAINTAINED   *   FILE 199
//*      DATASETS, SUCH THAT THE USER NEED NOT REMEMBER THE NAMES   *   FILE 199
//*      OF THESE DATASETS,  OR WHAT VOLUMES THEY  ARE LOCATED ON   *   FILE 199
//*      IF  NOT  CATALOGED.   THIS SHORT-HAND  SYNTAX  SHALL  BE   *   FILE 199
//*      ORGANIZED  BY FILE  NAME,  SO THAT  THE  USER NEED  ONLY   *   FILE 199
//*      REQUEST THE  "DEFAULT" SYSTEM-MAINTAINED DATASETS  FOR A   *   FILE 199
//*      PARTICULAR FILE  NAME, AND THOSE  DATASET NAMES  WILL BE   *   FILE 199
//*      INSERTED INTO THE LIST AUTOMATICALLY.                      *   FILE 199
//*                                                                 *   FILE 199
//*  O   GDA SHALL  ALLOW USER-SPECIFIED  DATASETS TO  BE CONCAT-   *   FILE 199
//*      ENATED   AHEAD   OF   AND/OR    BEHIND   THE   "DEFAULT"   *   FILE 199
//*      SYSTEM-MAINTAINED DATASETS.                                *   FILE 199
//*                                                                 *   FILE 199
//*  O   GDA SHALL PROVIDE  A FACILITY FOR STACKING  TSO COMMANDS   *   FILE 199
//*      FOR EXECUTION AFTER GDA EXECUTION TERMINATES.              *   FILE 199
//*                                                                 *   FILE 199
//*  O   GDA SHALL  ALLOW INCLUSION  OF COMMENTS  IN THE  CONTROL   *   FILE 199
//*      INPUT DATASET.                                             *   FILE 199
//*                                                                 *   FILE 199
//*  O   GDA SHALL  ALLOW INCLUSION  OF MESSAGES  IN THE  CONTROL   *   FILE 199
//*      INPUT DATASET,  WHICH SHALL BE  DISPLAYED AT  THE USER'S   *   FILE 199
//*      TERMINAL AS THEY ARE PROCESSED.                            *   FILE 199
//*                                                                 *   FILE 199
//*| O   GDA  SHALL RECOGNIZE  THE DDNAME  ISPPROF  AS A  SPECIAL   *   FILE 199
//*|     DDNAME.  IF  A DATASET NAME  IS SUPPLIED  FOR ALLOCATION   *   FILE 199
//*|     UNDER THIS  DDNAME, THAT DATASET  SHALL BE  ALLOCATED AS   *   FILE 199
//*|     USUAL.  IF AN ASTERISK IS SPECIFIED, THAT ASTERISK SHALL   *   FILE 199
//*|     BE INTERPRETED AS  A SHORT-HAND NOTATION FOR  THE USER'S   *   FILE 199
//*|     ISPF.PROFILE DATASET.  IF THIS  DATASET EXISTS, IT SHALL   *   FILE 199
//*|     BE ALLOCATED  AS SPECIFIED.   IF IT  DOES NOT  EXIST, IT   *   FILE 199
//*|     SHALL BE CREATED AND CATALOGED BY GDA BEFORE BEING ALLO-   *   FILE 199
//*|     CATED AS SPECIFIED.                                        *   FILE 199
//*                                                                 *   FILE 199
//*  SCOPE                                                          *   FILE 199
//*  -----                                                          *   FILE 199
//*                                                                 *   FILE 199
//*  GDA INCORPORATES  ALL OF THE  ABOVE FEATURES.  SINCE  IT WAS   *   FILE 199
//*  DEVELOPED SPECIFICALLY BECAUSE OF THE DIFFICULTIES DESCRIBED   *   FILE 199
//*  ABOVE IN  ALLOCATING SHARED DATASETS,  NO FACILITY  HAS BEEN   *   FILE 199
//*  INCLUDED FOR ALLOCATION OF SCRATCH DATASETS OR NEW DATASETS.   *   FILE 199
//*  THAT IS, THE  SCOPE OF GDA DATASET ALLOCATION  IS LIMITED TO   *   FILE 199
//*  EXISTING DATASETS  WHICH CAN BE ALLOCATED  SHARED.  HOWEVER,   *   FILE 199
//*  THERE IS  NOTHING TO  PRECLUDE THE USER  FROM USING  THE TSO   *   FILE 199
//*  COMMAND  STACKING FACILITY  OF GDA  TO  ALLOCATE NEW  AND/OR   *   FILE 199
//*  SCRATCH DATASETS, PROVIDED ALL  OF THE REQUISITE INFORMATION   *   FILE 199
//*  CAN BE INCLUDED ON A  SINGLE RECORD, ALTHOUGH THIS TECHNIQUE   *   FILE 199
//*  IS NOT RECOMMENDED.                                            *   FILE 199
//*                                                                 *   FILE 199
//***FILE 200 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 200
//*           THIS MEANS "SPLA TAPE FILE 100".                      *   FILE 200
//*                                                                 *   FILE 200
//*   H F000200 D=JUN83                                             *   FILE 200
//*   T FILE 200 - GENERALIZED DATASET ALLOCATOR TSO COMMAND        *   FILE 200
//*   T            FROM THE U.S. DEPARTMENT OF ENERGY - OBJECT      *   FILE 200
//*   K GENERALIZED DATASET ALLOCATOR ALLOCATE TSO DEPARTMENT       *   FILE 200
//*   K ENERGY GDA AUDET V26 PERFORMANCE OBJECT                     *   FILE 200
//*                                                                 *   FILE 200
//*      RELATED FILES: 199-202; DOCUMENTATION: FILE 202.           *   FILE 200
//*                                                                 *   FILE 200
//*      THIS IS THE OBJECT FOR THE GENERALIZED DATASET ALLOCATOR.  *   FILE 200
//*      SEE FILE 199 FOR A COMPLETE ABSTRACT.                      *   FILE 200
//*                                                                 *   FILE 200
//***FILE 201 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 201
//*           THIS MEANS "SPLA TAPE FILE 101".                      *   FILE 201
//*                                                                 *   FILE 201
//*   H F000201 D=JUN83                                             *   FILE 201
//*   T FILE 201 - GENERALIZED DATASET ALLOCATOR TSO COMMAND        *   FILE 201
//*   T            FROM THE U.S. DEPARTMENT OF ENERGY - LOAD        *   FILE 201
//*   K GENERALIZED DATASET ALLOCATOR ALLOCATE TSO DEPARTMENT       *   FILE 201
//*   K ENERGY GDA AUDET V26 PERFORMANCE LOAD                       *   FILE 201
//*                                                                 *   FILE 201
//*      RELATED FILES: 199-202; DOCUMENTATION: FILE 202.           *   FILE 201
//*                                                                 *   FILE 201
//*      THIS IS THE LOAD FOR THE GENERALIZED DATASET ALLOCATOR.    *   FILE 201
//*      SEE FILE 199 FOR A COMPLETE ABSTRACT.                      *   FILE 201
//*                                                                 *   FILE 201
//***FILE 202 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 202
//*           THIS MEANS "SPLA TAPE FILE 102".                      *   FILE 202
//*                                                                 *   FILE 202
//*   H F000202 D=JUN83                                             *   FILE 202
//*   T FILE 202 - GENERALIZED DATASET ALLOCATOR TSO COMMAND        *   FILE 202
//*   T            FROM THE U.S. DEPARTMENT OF ENERGY -             *   FILE 202
//*   T            DOCUMENTATION                                    *   FILE 202
//*   K GENERALIZED DATASET ALLOCATOR ALLOCATE TSO                  *   FILE 202
//*   K DEPARTMENT ENERGY GDA AUDET V26 PERFORMANCE TEXT            *   FILE 202
//*                                                                 *   FILE 202
//*      RELATED FILES: 199-202; DOCUMENTATION: FILE 202.           *   FILE 202
//*                                                                 *   FILE 202
//*      THIS IS THE DOCUMENTATION FOR THE GENERALIZED DATASET      *   FILE 202
//*      ALLOCATOR.  SEE FILE 199 FOR A COMPLETE ABSTRACT.          *   FILE 202
//*                                                                 *   FILE 202
//***FILE 203 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 203
//*           THIS MEANS "SPLA TAPE FILE 103".                      *   FILE 203
//*                                                                 *   FILE 203
//*   H F000203 D=APR84                                             *   FILE 203
//*   T FILE 203 - MISCELLANEOUS PROGRAMS AND EXITS FROM            *   FILE 203
//*   T            DELUXE CHECK PRINTERS                            *   FILE 203
//*   K V29 DELUXE CHECK LOOS EXIMPORT IGGPRE00 INMRZ01             *   FILE 203
//*   K            INMRZ11                                          *   FILE 203
//*                                                                 *   FILE 203
//*      THIS FILE CONTAINS SEVERAL PROGRAMS AND EXITS              *   FILE 203
//*      CONTRIBUTED BY DELUXE CHECK PRINTERS.                      *   FILE 203
//*                                                                 *   FILE 203
//*            Mike Loos                                            *   FILE 203
//*            VP of Ops and Tech Support                           *   FILE 203
//*            Fair, Isaac and Company, Inc.                        *   FILE 203
//*            4295 Lexington Avenue North                          *   FILE 203
//*            St. Paul, MN  55126                                  *   FILE 203
//*            mikeloos@fairisaac.com                               *   FILE 203
//*                                                                 *   FILE 203
//*      EXIMPORT  PROGRAM FOR GENERATING THE JCL NECESSARY FOR     *   FILE 203
//*                EXPORTING AND IMPORTING THE DATA SETS ON A       *   FILE 203
//*                SPECIFIED VOLUME.                                *   FILE 203
//*                                                                 *   FILE 203
//*      IGGPRE00  DF/DS ALLOCATE PRE-PROCESSING EXIT TESTER.       *   FILE 203
//*                                                                 *   FILE 203
//*      INMRZ01   RECEIVE INITIALIZATION EXIT ALLOWS               *   FILE 203
//*                AUTHORIZATION CHECKING FOR USERIDS EXECUTING     *   FILE 203
//*                RECEIVE IN BACKGROUND.                           *   FILE 203
//*                                                                 *   FILE 203
//*      INMRZ11   RECEIVE PRE-PROCESSINE EXIT ALLOWS RECEIVE       *   FILE 203
//*                TO RUN IN BACKGROUND WITH THE EXIT REPLACING     *   FILE 203
//*                THE USER INTERACTION IN DETERMINING THE          *   FILE 203
//*                RECEIVING DATA SET NAME.                         *   FILE 203
//*                                                                 *   FILE 203
//***FILE 204 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 204
//*           THIS MEANS "SPLA TAPE FILE 104".                      *   FILE 204
//*                                                                 *   FILE 204
//*   H F000204 D=APR81                                             *   FILE 204
//*   T FILE 204 - DEAN WITTER REYNOLDS -                           *   FILE 204
//*   T            CLISTS AND PROGRAMS                              *   FILE 204
//*   K TSO CLISTS PROGRAMS RACF JCL PRODUCTION PROD                *   FILE 204
//*   K DEAN WITTER KEVEN MUZIN                                     *   FILE 204
//*   L PRODOPR PRODTEST RACFD RACFLIST RACFNONE                    *   FILE 204
//*   L PRODDOC PROD PRODPROC PSWDTABL JESOPER                      *   FILE 204
//*                                                                 *   FILE 204
//*    THIS FILE CONTAINS SEVERAL CLISTS AND PROGRAMS FROM          *   FILE 204
//*    DEAN WITTER REYNOLDS.                                        *   FILE 204
//*                                                                 *   FILE 204
//*    CONTRIBUTOR: KEVEN MUZIN                                     *   FILE 204
//*                 DEAN WITTER REYNOLDS                            *   FILE 204
//*                 17TH FLOOR, TECHNICAL SYSTEMS                   *   FILE 204
//*                 2 BROADWAY                                      *   FILE 204
//*                 NEW YORK, NY 10004                              *   FILE 204
//*                 PHONE: 212-524-4101                             *   FILE 204
//*                                                                 *   FILE 204
//*    THIS FILE CONTAINS SEVERAL CLISTS AND PROGRAMS AS FOLLOWS:   *   FILE 204
//*                                                                 *   FILE 204
//*       PRODOPR  - CLIST TO PERFORM PSEUDO OPERATOR               *   FILE 204
//*                  INTERACTION AS IT WOULD BE DONE BY             *   FILE 204
//*                  PROD.                                          *   FILE 204
//*       PRODTEST - CLIST TO PERFORM PSEUDO OPERATOR               *   FILE 204
//*                  INTERACTION AND DISPLAY JCL AS IT WOULD        *   FILE 204
//*                  BE SUBMITTED BY PROD (PRODUCTION JCL           *   FILE 204
//*                  SUBMISSION PROGRAM).                           *   FILE 204
//*       RACFD    - CLIST TO RACF DELETE ALL DATASETS ON A         *   FILE 204
//*                  SPECIFIC VOLUME.                               *   FILE 204
//*       RACFLIST - CLIST TO RACF DISPLAY ALL DATASETS ON A        *   FILE 204
//*                  SPECIFIC VOLUME.                               *   FILE 204
//*       RACFNONE - CLIST TO DISPLAY ALL DATASETS ON A             *   FILE 204
//*                  VOLUME NOT DEFINED TO RACF.                    *   FILE 204
//*       PRODDOC  - DOCUMENTATION FOR PROD (PRODUCTION JCL         *   FILE 204
//*                  SUBMISSION PROGRAM).                           *   FILE 204
//*       PROD     - A PRODUCTION JCL SUBMISSION PROGRAM.           *   FILE 204
//*       PRODPROC - PROC TO EXECUTE PROD.                          *   FILE 204
//*       PRODACCT - MACRO TO ASSEMBLE PASSWORD TABLE.              *   FILE 204
//*       PSWDTABL - SAMPLE PASSWORD TABLE.                         *   FILE 204
//*       JESOPER - COMMAND PROCESSOR TO ALLOW A TSO USER TO        *   FILE 204
//*                 ISSUE MVS AND JES2 COMMANDS.                    *   FILE 204
//*                                                                 *   FILE 204
//***FILE 205 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 205
//*           THIS MEANS "SPLA TAPE FILE 105".                      *   FILE 205
//*                                                                 *   FILE 205
//*   H F000205 D=APR81                                             *   FILE 205
//*   T FILE 205 - COMPRESSED SOURCE LIBRARY SYSTEM                 *   FILE 205
//*   K SOURCE LIBRARY TREUBIG                                      *   FILE 205
//*   K MIDDLE SOUTH                                                *   FILE 205
//*                                                                 *   FILE 205
//*      THIS FILE CONTAINS THE COMPRESSED SOURCE LIBRARY           *   FILE 205
//*      SYSTEM FROM MIDDLE SOUTH SERVICES.  DOCUMENTATION CAN      *   FILE 205
//*      BE PURCHASED FROM THE SHARE PROGRAM LIBRARY AGENCY BY      *   FILE 205
//*      REQUESTING DOCUMENTATION FOR PROGRAM 360D.00.0.024.        *   FILE 205
//*                                                                 *   FILE 205
//*      CONTRIBUTOR: AUGUST TREUBIG                                *   FILE 205
//*                   MIDDLE SOUTH SERVICES, INC.                   *   FILE 205
//*                   200 WESTBANK EXPRESSWAY                       *   FILE 205
//*                   GRETNA, LOUISIANA 70053                       *   FILE 205
//*                   PHONE: 504-362-9500                           *   FILE 205
//*                                                                 *   FILE 205
//***FILE 206 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 206
//*           THIS MEANS "SPLA TAPE FILE 106".                      *   FILE 206
//*                                                                 *   FILE 206
//*   H F000206 D=OCT84                                             *   FILE 206
//*   T FILE 206 - FEDERAL EXPRESS CORPORATION STUFF                *   FILE 206
//*   K COMPRESS UNLOAD RELOAD FEDERAL EXPRESS V30 TEC012           *   FILE 206
//*   K CLRSCRN DASD FOOTBALL GAME GAMES INTRDR LOGCLOSE IMS        *   FILE 206
//*   K MICSRPT MICS PERFORMANCE SHOW SPY CONSOLE WHOAMI            *   FILE 206
//*   K COMMAND LOGONXIT MAPVTOC VTOC LOGSCAN SCAN SYSLOG           *   FILE 206
//*   K TERME                                                       *   FILE 206
//*                                                                 *   FILE 206
//*      THIS FILE CONTAINS MISCELLANEOUS PROGRAMS AND COMMANDS     *   FILE 206
//*      FROM FEDERAL EXPRESS CORPORATION:                          *   FILE 206
//*                                                                 *   FILE 206
//*       CLRSCRN   -  SUBROUTINE TO CLEAR SCREEN USED BY SHOW      *   FILE 206
//*                                                                 *   FILE 206
//*       DASD      -  A TSO COMMAND PROCESSOR THAT DOES AN         *   FILE 206
//*                    LSPACE ON ALL THE ONLINE DISK VOLUMES        *   FILE 206
//*                                                                 *   FILE 206
//*       FOOTBALL  -  WHAT ELSE, A PL/1 PROGRAM                    *   FILE 206
//*                                                                 *   FILE 206
//*       IGC0024B  -  SVC USED BY SHOW                             *   FILE 206
//*                                                                 *   FILE 206
//*       INTRDR    -  PROGRAM TO ENFORCE SOME SHOP STANDARDS.      *   FILE 206
//*                    ALSO RESOLVES D=DSNAME PARAMETER ON          *   FILE 206
//*                    /*MESSAGE AND /*SETUP CARDS TO THE VOLSER    *   FILE 206
//*                    FROM THE CATALOG                             *   FILE 206
//*                                                                 *   FILE 206
//*       LOGCLOSE  -  A PROGRAM THAT TERMINATES BAD IMS LOG        *   FILE 206
//*                    TAPES.  SIMILAR TO THE IBM PROGRAM           *   FILE 206
//*                    PRODUCT, BUT THE PRICE IS RIGHT.             *   FILE 206
//*                                                                 *   FILE 206
//*       LOGSCAN   -  PROGRAM TO SCAN SYSLOGS                      *   FILE 206
//*                                                                 *   FILE 206
//*       MAPVTOC   -  PROVIDES INFORMATION ABOUT THE VTOC OF A     *   FILE 206
//*                    VOLUME, SUPPORTS INDEXED VTOCS.  BESIDES     *   FILE 206
//*                    NORMAL STUFF LIKE FREE SPACE IT GIVES THE    *   FILE 206
//*                    FIVE LARGEST EXTENTS, NUMBER OF              *   FILE 206
//*                    ALTERNATES, VSAM AND CVOL INDICATORS,        *   FILE 206
//*                    VTOC AND INDEXED VTOC EXTENTS, AND           *   FILE 206
//*                    INDEXED VTOC LEVELS.                         *   FILE 206
//*                                                                 *   FILE 206
//*       MICSRPT   -  A SAS PROGRAM THAT PRODUCES A ONE PAGE       *   FILE 206
//*                    REPORT SHOWING STATISTICS ABOUT THE IMS /    *   FILE 206
//*                    TSO SYSTEMS.  OUR MANAGEMENT LIKES IT.       *   FILE 206
//*                                                                 *   FILE 206
//*       SHOW      -  GIVE A TSO USER THE MASTER CONSOLE (WORKS    *   FILE 206
//*                    ON SP3)                                      *   FILE 206
//*                                                                 *   FILE 206
//*       TEC012    -  THE PROGRAM THAT CREATED ALL THE             *   FILE 206
//*                    COMPRESSED FILES ON THIS TAPE.  IT WILL      *   FILE 206
//*                    TAKE AN FIXED OR VARIABLE, PO OR PS FILE     *   FILE 206
//*                    (LRECL<=255) TO TAPE IN A COMPRESSED         *   FILE 206
//*                    FORMAT AND RETURN IT BACK AGAIN.             *   FILE 206
//*                                                                 *   FILE 206
//*       TERME     -  MACRO USED BY LOGCLOSE                       *   FILE 206
//*                                                                 *   FILE 206
//*       WHOAMI    -  TELL A TSO USER SOME GOOD STUFF ABOUT THE    *   FILE 206
//*                    TERMINAL AND SESSION CURRENTLY BEING         *   FILE 206
//*                    USED.                                        *   FILE 206
//*                                                                 *   FILE 206
//***FILE 207 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 207
//*           THIS MEANS "SPLA TAPE FILE 107".                      *   FILE 207
//*                                                                 *   FILE 207
//*   H F000207 D=SEP83                                             *   FILE 207
//*   T FILE 207 - SUPRTREK - STAR TREK FOR 3279S                   *   FILE 207
//*   K SUPRTREK STAR TREK 3279 FEDERAL EXPRESS V27                 *   FILE 207
//*                                                                 *   FILE 207
//*      RELATED FILES:  208; DOCUMENTATION:  MEMBER ST79INST       *   FILE 207
//*                                                                 *   FILE 207
//*      THIS FILE CONTAINS A STAR TREK GAME DESIGNED FOR           *   FILE 207
//*      3279S.  IT IS USES GDDM.  THIS IS FROM FEDERAL             *   FILE 207
//*      EXPRESS.  SEE MEMBER ST79INST FOR INSTALLATION             *   FILE 207
//*      INSTRUCTIONS.                                              *   FILE 207
//*                                                                 *   FILE 207
//***FILE 208 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 208
//*           THIS MEANS "SPLA TAPE FILE 108".                      *   FILE 208
//*                                                                 *   FILE 208
//*   H F000208 D=APR83                                             *   FILE 208
//*   T FILE 208 - SUPRTREK - STAR TREK FOR 3279S -                 *   FILE 208
//*   T GDDM SYMBOLS                                                *   FILE 208
//*   K SUPRTREK STAR TREK 3279 FEDERAL EXPRESS V25                 *   FILE 208
//*                                                                 *   FILE 208
//*      RELATED FILES:  207                                        *   FILE 208
//*                                                                 *   FILE 208
//*      THIS FILE CONTAINS THE GDDM SYMBOLS NEED BY THE STAR       *   FILE 208
//*      TREK GAME IN FILE 207.                                     *   FILE 208
//*                                                                 *   FILE 208
//***FILE 209 IS CURRENTLY EMPTY                                    *   FILE 209
//*                                                                 *   FILE 209
//***FILE 210 IS CURRENTLY EMPTY                                    *   FILE 210
//*                                                                 *   FILE 210
//***FILE 211 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 211
//*           THIS MEANS "SPLA TAPE FILE 111".                      *   FILE 211
//*                                                                 *   FILE 211
//*   H F000211 D=APR84                                             *   FILE 211
//*   T FILE 211 - INFO/SYS, VM/CMS, AND ISPF UTILITIES FROM        *   FILE 211
//*   T            TENNESSEE EASTMAN                                *   FILE 211
//*   K TENNESSEE EASTMAN V29 BILL HORTON INFOCAT INFOSMP           *   FILE 211
//*   K PL/I IDCAMS LISTCAT HMASMP LIST CDS XREF ISPF PDF           *   FILE 211
//*   K VMDUMP VM CMS DISK DUMP JES2 NJE RSCS GRS ENQ ENQUEUE       *   FILE 211
//*   K QCB                                                         *   FILE 211
//*                                                                 *   FILE 211
//*      DOCUMENTATION: MEMBER $$DOC                                *   FILE 211
//*                                                                 *   FILE 211
//*      THIS DATA SET CONTAINS 3 "MODS":                           *   FILE 211
//*                                                                 *   FILE 211
//*      1.  INFOCAT AND INFOSMP                                    *   FILE 211
//*          ------- --- -------                                    *   FILE 211
//*          THESE TWO PL/I  PROGRAMS MAY BE USED  TO CREATE AN     *   FILE 211
//*          INFO/SYS -SEARCHABLE DATA BASE  FROM THE OUTPUT OF     *   FILE 211
//*          IDCAMS "LISTCAT  ALL" AND HMASMP "LIST  CDS XREF",     *   FILE 211
//*          RESPECTIVELY.  MEMBERS SAMPCAT AND SAMPSMP CONTAIN     *   FILE 211
//*          SAMPLE OUTPUT FROM SEARCHES  DONE AGAINST OUR DATA     *   FILE 211
//*          BASE CREATED BY THESE  TWO PROGRAMS;  THE COMMANDS     *   FILE 211
//*          USED WERE  "KWS SYS1.VTAMLST" AND  "KWS HASPPRPU".     *   FILE 211
//*          AN ISPF/PDF DIALOG TO  SEARCH THE REGULAR INFO/MVS     *   FILE 211
//*          DATA BASES,  THE CBT MODS TAPE DATA BASE,  AND THE     *   FILE 211
//*          DATA BASE CREATED BY THESE PROGRAMS,  IS ALSO PRO-     *   FILE 211
//*          VIDED.                                                 *   FILE 211
//*                                                                 *   FILE 211
//*      2.  VMDUMP                                                 *   FILE 211
//*          ------                                                 *   FILE 211
//*          THIS IS A PROGRAM WHICH MAY  BE USED TO TRANSMIT A     *   FILE 211
//*          SEQUENTIAL MVS DATA  SET TO A VM/CMS  USER IN DISK     *   FILE 211
//*          DUMP FORMAT.  THE DATA IS SENT VIA THE JES2 SPOOL,     *   FILE 211
//*          ACROSS AN NJE  LINK,  TO RSCS NETWORKING,   TO THE     *   FILE 211
//*          VM/CMS USER'S  VIRTUAL CARD  READER.   THE  VM/CMS     *   FILE 211
//*          USER MAY  LOAD THE DATA ONTO  HIS A DISK  BY USING     *   FILE 211
//*          THE  RECEIVE,  DISK  LOAD,   OR RDRLIST  COMMANDS.     *   FILE 211
//*          (THIS  IS  A  ONE-WAY,   POOR  MAN'S  TSO/E  TRAN-     *   FILE 211
//*          SMIT/RECEIVE  FACILITY).    I   HAVE  INCLUDED  AN     *   FILE 211
//*          ISPF/PDF DIALOG  TO GENERATE  THE REQUIRED  JCL TO     *   FILE 211
//*          TRANSMIT THE DATA,  ALTHOUGH  ISPF IS NOT REQUIRED     *   FILE 211
//*          TO USE  THIS PROGRAM (YOU  COULD USE  STRAIGHT JCL     *   FILE 211
//*          USING MEMBER SVUTL13 AS A GUIDE).                      *   FILE 211
//*                                                                 *   FILE 211
//*      3.  VUTL16                                                 *   FILE 211
//*          ------                                                 *   FILE 211
//*          THIS IS AN  ISPF/PDF DIALOG TO DISPLAY  MVS SP 1.3     *   FILE 211
//*          GRS/ENQ INFORMATION.  IT WILL DISPLAY CURRENT CON-     *   FILE 211
//*          TENTION IF NO  ENTRIES ARE MADE ON  THE PROCESSING     *   FILE 211
//*          PANEL,  ELSE IT WILL  DISPLAY WHATEVER COMBINATION     *   FILE 211
//*          OF JOBNAME, MAJOR, AND/OR MINOR QCB INFORMATION IS     *   FILE 211
//*          REQUESTED.                                             *   FILE 211
//*                                                                 *   FILE 211
//*   THE FOLLOWING ARE THE MEMBERS OF THIS DATA SET:               *   FILE 211
//*                                                                 *   FILE 211
//*      . CINFO ISPF/PDF DIALOG CLIST FOR INVOKING INFO/SYS.       *   FILE 211
//*                                                                 *   FILE 211
//*      . CUTL13 ISPF/PDF DIALOG CLIST  FOR TRANSMITTING A SE-     *   FILE 211
//*        QUENTIAL DATA SET TO A VM/CMS USER VIA NJE/RSCS NET-     *   FILE 211
//*        WORKING.                                                 *   FILE 211
//*                                                                 *   FILE 211
//*      . INFOCAT PL/I SOURCE FOR  THE INFOCAT PROGRAM.   THIS     *   FILE 211
//*        PROGRAM READS  THE OUTPUT  FROM IDCAMS  LISTCAT COM-     *   FILE 211
//*        MANDS AND CREATES INPUT FOR INFO/SYS PROGRAM BLGOZB.     *   FILE 211
//*        SEE  MEMBER  SAMPCAT  FOR   SAMPLE  OUTPUT  FROM  AN     *   FILE 211
//*        INFO/SYS SEARCH ENTRY GENERATED BY THIS PROGRAM.         *   FILE 211
//*                                                                 *   FILE 211
//*      . INFOJCL  SAMPLE  JCL  FOR  RUNNING  IDCAMS  LISTCAT,     *   FILE 211
//*        HMASMP LIST  CDS XREF,  INFOSMP,  INFOCAT,   AND THE     *   FILE 211
//*        INFO/SYS PROGRAMS  TO CREATE  AN INFO/SYS-SEARCHABLE     *   FILE 211
//*        VSAM DATA BASE.  WE RUN SIMILAR JCL WEEKLY.              *   FILE 211
//*                                                                 *   FILE 211
//*      . INFOSMP PL/I SOURCE FOR  THE INFOSMP PROGRAM.   THIS     *   FILE 211
//*        PROGRAM READS THE  OUTPUT FROM HMASMP LIST  CDS XREF     *   FILE 211
//*        AND CREATES INPUT FOR INFO/SYS PROGRAM BLGOZB.   SEE     *   FILE 211
//*        MEMBER SAMPSMP  FOR SAMPLE  OUTPUT FROM  AN INFO/SYS     *   FILE 211
//*        SEARCH ENTRY GENERATED BY THIS PROGRAM.                  *   FILE 211
//*                                                                 *   FILE 211
//*      . SUTL13  ISPF/PDF  DIALOG SKELETON  FOR  TRANSMITTING     *   FILE 211
//*        DATA TO A  VM/CMS USER.   THIS MEMBER  GENERATES JCL     *   FILE 211
//*        WITH THE  PROPER JECL CARDS TO  PUT THE DATA  ON THE     *   FILE 211
//*        QUEUE SO  THAT IT WILL GET  TO THE VM USER  VIA RSCS     *   FILE 211
//*        NETWORKING.   SIMILAR  JCL COULD  BE SUBMITTED  AS A     *   FILE 211
//*        BATCH JOB INDEPENDENT OF ISPF.                           *   FILE 211
//*                                                                 *   FILE 211
//*      . TECA00 ISPF/PDF DIALOG MESSAGES.    THIS MEMBER CON-     *   FILE 211
//*        TAINS ALL MESSAGES REFERRED TO  IN ALL SUPPLIED DIA-     *   FILE 211
//*        LOGS.                                                    *   FILE 211
//*                                                                 *   FILE 211
//*      . TVENQ1 TUTORIAL PANEL FOR INITIAL ENQ DISPLAY DIALOG     *   FILE 211
//*        PANEL.                                                   *   FILE 211
//*                                                                 *   FILE 211
//*      . TVENQ11 TUTORIAL PANEL FOR  ENQ DISPLAY DIALOG PANEL     *   FILE 211
//*        LISTING ENQ MAJOR NAMES.                                 *   FILE 211
//*                                                                 *   FILE 211
//*      . TVENQ2 TUTORIAL  PANEL FOR ENQ DISPLAY  DIALOG PANEL     *   FILE 211
//*        DESCRIBING DIALOG OUTPUT.                                *   FILE 211
//*                                                                 *   FILE 211
//*      . TVINFO1 TUTORIAL PANEL FOR  ISPF/PDF INFO/SYS DIALOG     *   FILE 211
//*        PANEL.                                                   *   FILE 211
//*                                                                 *   FILE 211
//*      . TVINFO11 TUTORIAL  PANEL FOR ISPF/PDF  INFO/SYS DIA-     *   FILE 211
//*        LOG.                                                     *   FILE 211
//*                                                                 *   FILE 211
//*      . TVINFO12 TUTORIAL  PANEL FOR ISPF/PDF  INFO/SYS DIA-     *   FILE 211
//*        LOG.                                                     *   FILE 211
//*                                                                 *   FILE 211
//*      . TVINFO2 TUTORIAL PANEL FOR ISPF/PDF INFO/SYS DIALOG.     *   FILE 211
//*                                                                 *   FILE 211
//*      . TVUTL13 TUTORIAL PANEL FOR  ISPF/PDF VM TRANSMISSION     *   FILE 211
//*        DIALOG.                                                  *   FILE 211
//*                                                                 *   FILE 211
//*      . TVUTL131 TUTORIAL PANEL FOR ISPF/PDF VM TRANSMISSION     *   FILE 211
//*        DIALOG.                                                  *   FILE 211
//*                                                                 *   FILE 211
//*      . TVUTL132 TUTORIAL PANEL FOR ISPF/PDF VM TRANSMISSION     *   FILE 211
//*        DIALOG.                                                  *   FILE 211
//*                                                                 *   FILE 211
//*      . TVUTL134 TUTORIAL PANEL FOR ISPF/PDF VM TRANSMISSION     *   FILE 211
//*        DIALOG.                                                  *   FILE 211
//*                                                                 *   FILE 211
//*      . VENQ1  ISPF/PDF DIALOG  PANEL  FOR GRS/ENQ  DISPLAY.     *   FILE 211
//*        THE DATA TO BE DISPLAYED IS ENTERED ON THIS PANEL.       *   FILE 211
//*                                                                 *   FILE 211
//*      . VENQ2  ISPF/PDF DIALOG  PANEL  FOR GRS/ENQ  DISPLAY.     *   FILE 211
//*        THE REQUESTED DATA IS DISPLAYED ON THIS PANEL.           *   FILE 211
//*                                                                 *   FILE 211
//*      . VINFO1 ISPF/PDF  DIALOG PANEL  FOR INFO/MVS.    DATA     *   FILE 211
//*        BASES TO BE SEARCHED ARE SPECIFIED ON THIS PANEL.        *   FILE 211
//*                                                                 *   FILE 211
//*      . VINFO2 ISPF/PDF DIALOG PANEL FOR INFO/MVS.  THIS PA-     *   FILE 211
//*        NEL ALLOCATES THE  OZPRINT DATA SET IN  A VARIETY OF     *   FILE 211
//*        WAYS BEFORE INFO/SYS IS INVOKED.                         *   FILE 211
//*                                                                 *   FILE 211
//*      . VMDUMP  PL/I SOURCE  FOR  THE  VM DATA  TRANSMISSION     *   FILE 211
//*        UTILITY.   THIS PROGRAM READS  A SEQUENTIAL DATA SET     *   FILE 211
//*        ON  DD NAME  SYSUT1 AND  WRITES  THE DATA  SET AS  A     *   FILE 211
//*        VM/CMS DISK DUMP FILE ON  DD NAME SYSUT2.   THE DATA     *   FILE 211
//*        SET IS GIVEN A CMS FILE NAME BASED ON THE PARM FIELD     *   FILE 211
//*        (IF PRESENT), OR THE INPUT DATA SET NAME.  THIS PRO-     *   FILE 211
//*        GRAM WORKS  FOR ANY  TYPE OF  SEQUENTIAL DATA  SET I     *   FILE 211
//*        HAVE TRIED,   FIXED OR VARIABLE.    (REQUIRES DSINFO     *   FILE 211
//*        (FROM INTEL  MODS TAPE),  SUPPLIED IN  OBJECT MODULE     *   FILE 211
//*        FORMAT IN MEMBER PLI).                                   *   FILE 211
//*                                                                 *   FILE 211
//*      . VUTL13 ISPF/PDF  DIALOG PANEL FOR VM  DATA TRANSMIS-     *   FILE 211
//*        SION.   THE TYPE OF DATA SET TO BE TRANSMITTED, OUT-     *   FILE 211
//*        PUT CMS FILE NAME, VM USER TO RECEIVE THE DATA,  AND     *   FILE 211
//*        AN ACCOUNTING  CODE FOR  THE JOB  CARD GENERATED  BY     *   FILE 211
//*        THIS DIALOG, ARE SPECIFIED ON THIS PANEL.                *   FILE 211
//*                                                                 *   FILE 211
//*      . VUTL131 ISPF/PDF DIALOG PANEL  FOR VM TRANSMITTING A     *   FILE 211
//*        SEQUENTIAL DATA SET.   THE NAME  OF THE DATA SET (OR     *   FILE 211
//*        PDS NAME AND  MEMBER),  AND THE VOLUME  ON WHICH THE     *   FILE 211
//*        DATA SET RESIDES (IF NOT CATALOGED) ARE SPECIFIED ON     *   FILE 211
//*        THIS PANEL.                                              *   FILE 211
//*                                                                 *   FILE 211
//*      . VUTL132 ISPF/PDF DIALOG PANEL  FOR VM TRANSMITTING A     *   FILE 211
//*        PANVALET MEMBER.    THE DSN OF THE  PANVALET LIBRARY     *   FILE 211
//*        AND THE NAME OF THE PANVALET MEMBER ARE SPECIFIED ON     *   FILE 211
//*        THIS PANEL.                                              *   FILE 211
//*                                                                 *   FILE 211
//*      . VUTL134 ISPF/PDF DIALOG PANEL  FOR VM TRANSMITTING A     *   FILE 211
//*        MESSAGE.  THE MESSAGE IS SPECIFIED ON THIS PANEL.        *   FILE 211
//*                                                                 *   FILE 211
//*      . VUTL16 ISPF/PDF ASSEMBLER SOURCE FOR GRS/ENQ DISPLAY     *   FILE 211
//*        DIALOG.  THE GRS/ENQ SCANNING LOGIC FOR THIS PROGRAM     *   FILE 211
//*        IS BASED ON ENQ,  A TSO COMMAND PROCESSOR WRITTEN BY     *   FILE 211
//*        GERALD BOROUGH OF UNION OIL  AND GOTTEN FROM THE CBT     *   FILE 211
//*        MODS TAPE.                                               *   FILE 211
//*                                                                 *   FILE 211
//*   INSTALLATION INSTRUCTIONS                                     *   FILE 211
//*   ------------ ------------                                     *   FILE 211
//*      1   UNLOAD THIS PDS VIA IEBCOPY (YOU'VE OBVIOUSLY DONE     *   FILE 211
//*          THAT).                                                 *   FILE 211
//*      2   COPY THE FOLLOWING MEMBERS  TO YOUR ISPF/PDF PANEL     *   FILE 211
//*          LIBRARY:  VENQ1, VENQ2, VINFO1,  VINFO2,  TVINFO1,     *   FILE 211
//*          TVINFO11,  TVINFO12,   TVINFO2,  VUTL13,   VUTL131     *   FILE 211
//*          VUTL132,  VUTL134,  TVUTL13,  TVUTL131,  TVUTL132,     *   FILE 211
//*          TVUTL134.                                              *   FILE 211
//*      3   COPY THE FOLLOWING MEMBERS  TO YOUR ISPF/PDF CLIST     *   FILE 211
//*          LIBRARY: CINFO, CUTL13.                                *   FILE 211
//*      4   COPY THE FOLLOWING MEMBER  TO YOUR ISPF/PDF SKELE-     *   FILE 211
//*          TON LIBRARY: SUTL13, RENAME IT VUTL13.                 *   FILE 211
//*      5   COPY THE FOLLOWING MEMBER TO YOUR ISPF/PDF MESSAGE     *   FILE 211
//*          LIBRARY: TECA00.                                       *   FILE 211
//*      6   ASSEMBLE VUTL16  USING THE JCL PROVIDED  IN MEMBER     *   FILE 211
//*          ASSEMBLE AS  A BASE.    PUT THE  LOAD MODULE  IN A     *   FILE 211
//*          LNKLST OR TSO STEPLIB LIBRARY.                         *   FILE 211
//*      7   COMPILE INFOCAT, INFOSMP, AND VMDUMP USING THE JCL     *   FILE 211
//*          PROVIDED IN MEMBER PLI AS A BASE.   MODIFY INFOJCL     *   FILE 211
//*          AND MEMBER  VUTL13 OF  YOUR ISPF/PDF  SKELETON LI-     *   FILE 211
//*          BRARY  TO REFER  TO  THE  DATASET INTO  WHICH  YOU     *   FILE 211
//*          LINKED THESE MODULES.                                  *   FILE 211
//*      8   MODIFY VUTL13 IN YOUR ISPF/PDF SKELETON LIBRARY TO     *   FILE 211
//*          CHANGE  THE NAME  OF NJE  NODES  FROM MVSNODE  AND     *   FILE 211
//*          VMNODE  TO YOUR  NODE  NAMES.    THE DIALOG  COULD     *   FILE 211
//*          EASILY BE CHANGED TO ALLOW THE USER TO SPECIFY THE     *   FILE 211
//*          DESTINATION VM NODE NAME ON THE FIRST ENTRY PANEL.     *   FILE 211
//*      9   MODIFY  CINFO IN  YOUR ISPF/PDF  CLIST LIBRARY  TO     *   FILE 211
//*          SPECIFY YOUR DATA SET NAMES FOR THE VSAM DATA SETS     *   FILE 211
//*          CONTAINING THE INFO/SYS -SEARCHABLE DATA.              *   FILE 211
//*      10  MODIFY INFOJCL AND  SUBMIT THE JOB TO  CREATE YOUR     *   FILE 211
//*          INFO/SYS -SEARCHABLE  DATA BASE  FROM LISTCAT  AND     *   FILE 211
//*          LIST CDS OUTPUT.                                       *   FILE 211
//*      11  MODIFY ONE  OF YOUR  ISPF/PDF SELECTION  PANELS TO     *   FILE 211
//*          INCLUDE SELECTIONS  FOR THE VM  TRANSMISSION UTIL-     *   FILE 211
//*          ITY, INFO/MVS, AND GRS/ENQ.  FOR EXAMPLE,              *   FILE 211
//*          %-------------------------------  UTILITIES  --------  *   FILE 211
//*          %OPTION ===>-ZCMD                                      *   FILE 211
//*          %                                                      *   FILE 211
//*          %                  12+-INFO/SYS                        *   FILE 211
//*          %                  13+-VM DATA TRANSMISSION UTILITY    *   FILE 211
//*          %                  16+-GRS/ENQ DISPLAY                 *   FILE 211
//*          )INIT                                                  *   FILE 211
//*           .HELP = TVUTL00                                       *   FILE 211
//*          )PROC                                                  *   FILE 211
//*            &SEL = TRANS( TRUNC (&ZCMD,'.')                      *   FILE 211
//*                                           12,'CMD(%CINFO)'      *   FILE 211
//*                                           13,'CMD(%CUTL13)'     *   FILE 211
//*                                           16,'PGM(VUTL16)'      *   FILE 211
//*                                          ' ',' '                *   FILE 211
//*                                            *,?)                 *   FILE 211
//*          )END                                                   *   FILE 211
//*                                                                 *   FILE 211
//***FILE 212 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 212
//*           THIS MEANS "SPLA TAPE FILE 112".                      *   FILE 212
//*                                                                 *   FILE 212
//*   H F000212 D=JAN84                                             *   FILE 212
//*   T FILE 212 - U.S. SENATE DRUM FENCE USING DOMAINS AND         *   FILE 212
//*   T OTHER PROGRAMS                                              *   FILE 212
//*   K SENATE HALBIG JOHNSON V28 DRUM FENCE TSO ONLINE PAGES       *   FILE 212
//*   K DOMAIN SAS ASMTOZAP CPUCHECK CPWTOCMD GACCTPGM PCCW         *   FILE 212
//*                                                                 *   FILE 212
//*      DRUMWALL FENCES DRUMS FOR TSO AND ONLINE SYSTEM PAGES      *   FILE 212
//*      ONLY.  PAGE OUTS FOR TSO SESSIONS ARE PASSED THRU TO       *   FILE 212
//*      DRUM UNCONDITIONALLY.  PAGE OUTS FOR OTHER WORKLOADS       *   FILE 212
//*      ARE ACCOMODATED BY CHECKING DOMAIN NUMBERS.                *   FILE 212
//*                                                                 *   FILE 212
//*      ASMTOZAP IS A NEAT SAS VERSION OF THE FAMILIAR             *   FILE 212
//*      ASMTOZAP PROGRAM.  CPWTOCMD IS USED TO SIGNAL THE          *   FILE 212
//*      OPERATOR WITH A CANNED MESSAGE.  ADDITIONALLY, IT WILL     *   FILE 212
//*      ALLOW OPERATOR COMMANDS.  IF THE FIRST 5 POSITIONS ARE     *   FILE 212
//*      '-OCMD' THEN THE FOLLOWING TEXT WILL BE TREATED AS A       *   FILE 212
//*      COMMAND.                                                   *   FILE 212
//*                                                                 *   FILE 212
//*      CPUCHECK USES PARM FIELD VALUE TO CHECK FOR THE            *   FILE 212
//*      PROCESSOR THAT THIS JOB WAS INTENDED TO RUN ON; IF         *   FILE 212
//*      PROCESSOR ID MATCHES PARM, END QUIETLY; IF PROCESSOR ID    *   FILE 212
//*      DOESN'T MATCH, ISSUE MSG TO OPERATOR TELLING HIM OF HIS    *   FILE 212
//*      SCREW-UP, ISSUE '$TJXXX,S=BBBB' COMMAND TO RESET JOB'S     *   FILE 212
//*      JES PROCESSOR AFFINITY, THEN RESET & CANCEL JOB TO         *   FILE 212
//*      PERMIT IT TO RUN ON CORRECT PROCESSOR.  THIS PROGRAM IS    *   FILE 212
//*      INTENDED TO BE FIRST PGM EXECUTED IN A JOB IF A JOB        *   FILE 212
//*      NEEDS THIS KIND OF PROTECTION.                             *   FILE 212
//*                                                                 *   FILE 212
//*      GACCTPGM EXTRACTS THE FOLLOWING INFORMATION ON A           *   FILE 212
//*      CURRENTLY-EXECUTING JOB & MAKE THE INFORMATION             *   FILE 212
//*      AVAILABLE TO A USER'S PROGRAM.                             *   FILE 212
//*                                                                 *   FILE 212
//*            .SYSTEM ID (TAKEN FROM SID PARAMETER)                *   FILE 212
//*            .JOB NAME                                            *   FILE 212
//*            .READER START TIME FOR THIS JOB                      *   FILE 212
//*            .READER START DATE FOR THIS JOB                      *   FILE 212
//*            .JES JOB NUMBER INFORMATION                          *   FILE 212
//*            .ACCOUNT # INFORMATION FROM JOB CARD OF THIS JOB     *   FILE 212
//*                                                                 *   FILE 212
//*      THE CALLING PROGRAM MUST PASS THE ADDRESS OF A WORK        *   FILE 212
//*      AREA TO THIS SUBROUTINE.  THE SUBROUTINE FILLS IN THE      *   FILE 212
//*      WORK AREA USING THE FORMAT GIVEN IN MACRO 'GACCTMAC'.      *   FILE 212
//*                                                                 *   FILE 212
//*      CAUTION: SINCE THIS SUBROUTINE USES 'MODESET' TO PUT       *   FILE 212
//*      ITSELF INTO PROTECT KEY ZERO, THE CALLING PROGRAM &        *   FILE 212
//*      LIBRARY FROM WHICH IT EXECUTES MUST BE AUTHORIZED.         *   FILE 212
//*                                                                 *   FILE 212
//*      NOTES: IF SMF IS NOT IN SYSTEM (TCBTCT = 0), THEN RC=4     *   FILE 212
//*                                                                 *   FILE 212
//*      LC030ZAP CONTAINS A BRIEF DISSERTATION ON PCCWS AND        *   FILE 212
//*      HOW TO ZAP THEM.                                           *   FILE 212
//*                                                                 *   FILE 212
//*      SUBMITTED BY:                                              *   FILE 212
//*      DAVE HALBIG                                                *   FILE 212
//*      U.S. SENATE COMPUTER CENTER                                *   FILE 212
//*      400 N. CAPITOL STREET                                      *   FILE 212
//*      GROUND LEVEL                                               *   FILE 212
//*      WASHINGTON, D.C.  20510                                    *   FILE 212
//*      (202)224-3902                                              *   FILE 212
//*                                                                 *   FILE 212
//***FILE 213 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 213
//*           THIS MEANS "SPLA TAPE FILE 113".                      *   FILE 213
//*                                                                 *   FILE 213
//*   H F000213 D=SEP88                                             *   FILE 213
//*   T FILE 213 - H. E. BUTT GROCERY MODIFICATION TO CAUSE         *   FILE 213
//*   T            ABEND999 IF JOB GETS 'NOT CATLGD X' OR           *   FILE 213
//*   T            'NOT DELETED X'                                  *   FILE 213
//*   K BUTT GROCERY DIETES V44                                     *   FILE 213
//*   K NOT CATALOGED DELETED IEFAB4FD MSGIEF283I MSGIEF287I        *   FILE 213
//*                                                                 *   FILE 213
//* DOCUMENTATION: MEMBER HEB0020.                                  *   FILE 213
//*                                                                 *   FILE 213
//*    MVS 'NOT CATLGD X' AND 'NOT DELETED X' MODIFICATION.         *   FILE 213
//*    MODULE 'IEFAB4FD' IS THE MODIFIED MODULE.  SOURCE            *   FILE 213
//*    CODE FOR FOR THIS MODULE WAS OBTAINED FROM THE               *   FILE 213
//*    MICROFICHE PLS LISTING.                                      *   FILE 213
//*                                                                 *   FILE 213
//* I - INTERNAL PROCESSING                                         *   FILE 213
//*                                                                 *   FILE 213
//*    THIS MODIFICATION DOES THE FOLLOWING (IN RC00029 ROUTINE)    *   FILE 213
//*                                                                 *   FILE 213
//*    A) EXAMINES THE FIRST SEVEN CHARACTERS OF THE MESSAGE TO     *   FILE 213
//*       DETERMINE IF IT IS EITHER 'IEF283I' OR 'IEF287I'.         *   FILE 213
//*    B) IF NEITHER, EXIT IS MADE TO REGULAR PROCESSING.           *   FILE 213
//*    C) IF IT IS ONE OF THE DESIRED MESSAGES, THE ADDRESS OF THE  *   FILE 213
//*       LINKAGE CONTROL TABLE (LCT) IS CALCULATED FROM THE FIFTH  *   FILE 213
//*       PARAMETER PASSED TO IEFAB4FD (LCTJSCB).                   *   FILE 213
//*    D) THE ADDRESS OF THE PROBLEM PROGRAM CSCB (LCT+0) AND THE   *   FILE 213
//*       DUMMY TCB (LCT+8) ARE PICKED UP.  (THESE ARE FILLED-IN    *   FILE 213
//*       BY 'IEFBB410'.)                                           *   FILE 213
//*    E) THE DUMMY TCB IS CHECKED TO DETERMINE IS AN ABEND HAS     *   FILE 213
//*       ALREADY OCCURRED.                                         *   FILE 213
//*    F) IF AN ABEND HAS OCCURRED, EXIT IS MADE TO REGULAR         *   FILE 213
//*       PROCESSING.                                               *   FILE 213
//*    G) IF AN ABEND HAS NOT OCCURRED, TURN ON THE ABEND BIT IN    *   FILE 213
//*       THE DUMMY TCB (TCBFA AT TCB+1D) AND MOVE A SYSTEM '999'   *   FILE 213
//*       ABEND CODE TO THE DUMMY TCB (TCB+11) AND THEN TURN ON     *   FILE 213
//*       THE CANCELLED BIT IN THE PROBLEM PROGRAM CSCB             *   FILE 213
//*       (CHCLD AT CSCB+7).                                        *   FILE 213
//*    H) CONTINUE WITH NORMAL DE-ALLOCATION PROCESSING AS WE ARE   *   FILE 213
//*       NOW AT LABEL 'XIT'.                                       *   FILE 213
//*                                                                 *   FILE 213
//* II - EXTERNAL PROCESSING                                        *   FILE 213
//*                                                                 *   FILE 213
//*    WHEN MODULE 'IEFBB410' REGAINS CONTROL, THE TCB AND CSCB     *   FILE 213
//*    FLAGS ARE INTERROGATED.  IF THEY ARE ON, FURTHER             *   FILE 213
//*    PROCESSING (DE-ALLOCATION) OF THE JOB (AND THE JOB) ARE      *   FILE 213
//*    CANCELLED.                                                   *   FILE 213
//*                                                                 *   FILE 213
//* III - IPL WITH A CLPA IS REQUIRED TO IMPLEMENT THIS USERMOD.    *   FILE 213
//*                                                                 *   FILE 213
//*   SUBMITTED BY:                                                 *   FILE 213
//*   RON DIETES                                                    *   FILE 213
//*   H. E. BUTT GROCERY COMPANY                                    *   FILE 213
//*   P.O. BOX 9999                                                 *   FILE 213
//*   646 SOUTH MAIN AVENUE                                         *   FILE 213
//*   SAN ANTONIO, TEXAS  78204                                     *   FILE 213
//*   512/270-8432                                                  *   FILE 213
//*                                                                 *   FILE 213
//***FILE 214 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 214
//*           THIS MEANS "SPLA TAPE FILE 114".                      *   FILE 214
//*                                                                 *   FILE 214
//*   H F000214 D=JAN84                                             *   FILE 214
//*   T FILE 214 - SYNTEX (USA) BLOCK PAGE HEADER ROUTINE           *   FILE 214
//*   T            AND USER EXIT TO SDSF FOR TOP SECRET             *   FILE 214
//*   K SYNTEX SMITH V28                                            *   FILE 214
//*   K BLOCK PAGE HEADER BLOKHEAD IEFSD095 GSFSD095                *   FILE 214
//*   K SDSF USER EXIT TOP SECRET ISFPARMS                          *   FILE 214
//*                                                                 *   FILE 214
//*      "BLOKHEAD" IS A SHORT PROGRAM WHICH WILL PROVIDE BLOCK     *   FILE 214
//*      LETTER HEADINGS ON A DATA SET USING THE MODIFIED           *   FILE 214
//*      "IEFSD095"* ROUTINE TO GENERATE THE LETTERS.  IT IS        *   FILE 214
//*      PARTICULARLY USEFUL FOR HEADING MICROFILM WITH             *   FILE 214
//*      IDENTIFYING FRAMES WHICH ARE READABLE WITHOUT INSERTION    *   FILE 214
//*      INTO A VIEWER.                                             *   FILE 214
//*                                                                 *   FILE 214
//*      "BLOKHEAD" MAY BE INVOKED EITHER BY EXECUTE CARD OR IT     *   FILE 214
//*      MAY BE LINKED TO DIRECTLY.  THE INFORMATION TO BE          *   FILE 214
//*      PRINTED IS PASSED IN THE PARAMETER OF THE EXECUTE CARD     *   FILE 214
//*      IN THE FORM:                                               *   FILE 214
//*                                                                 *   FILE 214
//*            PARM='(DDNAME),AAA...AA,BBB...BB,CCC...CC,'          *   FILE 214
//*                                                                 *   FILE 214
//*      THE FIRST PARAMETER IS THE DDNAME OF THE DATA SET TO       *   FILE 214
//*      RECEIVE THE HEADING.  IF PRESENT, IT MUST BE INCLOSED      *   FILE 214
//*      IN PARENTHESES.  IF OMITTED, "SYSPRINT" WILL BE            *   FILE 214
//*      ASSUMED.  THE REMAINING PARAMETERS ARE THE LINES TO BE     *   FILE 214
//*      PRINTED.  "BLOKHEAD" WILL ATTEMPT TO PUT EACH PARAMETER    *   FILE 214
//*      ON A LINE BY ITSELF, BUT IF THE LINE WILL NOT HOLD THE     *   FILE 214
//*      FULL PARAMETER, IT WILL BE SPLIT UP.  EACH LINE WILL BE    *   FILE 214
//*      CENTERED ON THE PAGE.  THE PARAMETERS MAY CONTAIN ANY      *   FILE 214
//*      VALID PN/QN CHAIN CHARACTER PLUS THE EXCLAMATION POINT     *   FILE 214
//*      AND CENT SIGN.  SINCE THE COMMA WAS USED ABOVE TO          *   FILE 214
//*      DELIMIT THE PARAMETERS, IT MAY NOT BE A PART OF A          *   FILE 214
//*      PARAMETER;  HOWEVER, ANY CHARACTER (EXCEPT AN OPEN         *   FILE 214
//*      PARENTHESIS) MAY BE USED TO DELIMIT THE PARAMETER          *   FILE 214
//*      STRING.  FOR EXAMPLE:                                      *   FILE 214
//*                                                                 *   FILE 214
//*            PARM='(SYSUT1)/A,B,C/D,E,F/'                         *   FILE 214
//*                                                                 *   FILE 214
//*      COULD BE USED TO PRINT THE TWO LINES "A,B,C" AND           *   FILE 214
//*      "D,E,F".  TWO CONSECUTIVE DELIMITERS WILL CAUSE A PAGE     *   FILE 214
//*      EJECT.  IF A LINE CONSISTS ONLY OF THE CENT SIGN           *   FILE 214
//*      CHARACTER, A FULL PAGE OF ASTERISKS WILL BE PRINTED.       *   FILE 214
//*      THE FINAL DELIMITER IS OPTIONAL.                           *   FILE 214
//*                                                                 *   FILE 214
//*      IF "BLOKHEAD" IS LINKED TO, THE SAME PARAMETER SHOULD      *   FILE 214
//*      BE PROVIDED IN A FORMAT COMPATABLE TO THE EXEC             *   FILE 214
//*      CARD---THAT IS, REGISTER 1 SHOULD POINT TO A HALF-WORD     *   FILE 214
//*      CHARACTER COUNT FOLLOWED BY THE PARAMETER PROPER.          *   FILE 214
//*                                                                 *   FILE 214
//*            EXAMPLES:                                            *   FILE 214
//*                                                                 *   FILE 214
//*            PARM='(DD1),NOW,IS,THE TIME,,FOR,ALL,GOOD,MEN...'    *   FILE 214
//*                                                                 *   FILE 214
//*      WOULD GIVE ON DD1...           NOW            FOR          *   FILE 214
//*                                      IS            ALL          *   FILE 214
//*                                  THE TIME         GOOD          *   FILE 214
//*                                                   MEN...        *   FILE 214
//*                                                                 *   FILE 214
//*            PARM='/1234567890/0987654321/C/'                     *   FILE 214
//*                                         |                       *   FILE 214
//*                                         CENT SIGN               *   FILE 214
//*                                                                 *   FILE 214
//*      WOULD GIVE ON SYSPRINT...   1234567890      **********     *   FILE 214
//*                                  0987654321      **********     *   FILE 214
//*                                                  **********     *   FILE 214
//*                                                  **********     *   FILE 214
//*                                                                 *   FILE 214
//*      FOR REGULAR PRINTOUT, THE MAXIMUM NUMBER OF CHARACTERS     *   FILE 214
//*      PER LINE IS 9 (132 CHARACTER LINE).  THE MAXIMUM NUMBER    *   FILE 214
//*      OF LINES PER PAGE IS 4 (66 LINE PAGE).                     *   FILE 214
//*                                                                 *   FILE 214
//*      "BLOKHEAD" IS REUSABLE.                                    *   FILE 214
//*                                                        -CWB-    *   FILE 214
//*                                                                 *   FILE 214
//*      THE UNMODIFIED "IEFSD095" MAY BE USED, BUT IT ONLY         *   FILE 214
//*      HANDLES LETTERS AND NUMBERS;  THE GODDARD MODIFIED         *   FILE 214
//*      VERSION ALSO OUTPUTS ALL PN/QN CHARACTERS AND THE          *   FILE 214
//*      EXCLAMATION POINT AND CENT SIGN.                           *   FILE 214
//*                                                                 *   FILE 214
//*      UPDATED 19SEP83, WILLIAM SMITH, SYNTEX CORPORATION,        *   FILE 214
//*      PALO ALTO, CALIFORNIA 94304 - (415) 852-1638               *   FILE 214
//*                                                                 *   FILE 214
//*      THIS UTILITY HAS BEEN SUCCESSFULLY TESTED ON A MVS/SP      *   FILE 214
//*      1.3.3 JES2 SYSTEM USING BOTH THE MODIFIED AND              *   FILE 214
//*      UNMODIFIED VERSIONS OF IEFSD095.  FOR MORE INFORMATION     *   FILE 214
//*      CONSULT "OS/VS2 MVS SYSTEM PROGRAMMING LIBRARY:  JOB       *   FILE 214
//*      MANAGEMENT", PUBLICATION NO. GC28-0627-2, CHAPTER 10:      *   FILE 214
//*      EXTERNAL WRITERS.  NOTE THAT THE "VANILLA" VERSION OF      *   FILE 214
//*      IEFSD095 CONTINUES TO ONLY SUPPORT BLOCK LETTERS (A TO     *   FILE 214
//*      Z), BLOCK NUMBERS (0 TO 9), A BLANK, AND THE NATIONAL      *   FILE 214
//*      CHARACTERS (#,@,$).                                        *   FILE 214
//*                                                                 *   FILE 214
//*      THE IBM ROUTINE IEFSD095 IS REENTERABLE AND RESIDES IN     *   FILE 214
//*      THE MODULE LIBRARY SYS1.AOSB0.                             *   FILE 214
//*                                                                 *   FILE 214
//*      "ISFPARMS" HAS BEEN CUSTOMIZED FOR USE WITH THE            *   FILE 214
//*      "TOP-SECRET SECURITY" SOFTWARE PACKAGE (CGA/ALLEN,         *   FILE 214
//*      INC.) IN CONJUNCTION WITH THE ISFUSER EXIT ROUTINE         *   FILE 214
//*      (UM00099) AS IMPLEMENTED AT SYNTEX (USA), INC.             *   FILE 214
//*                                                                 *   FILE 214
//*      THE CONCEPT AS IMPLEMENTED HEREIN PERMITS ALL USERS TO     *   FILE 214
//*      FREELY VIEW THE JES2 QUEUES AND EFFECT CHANGES TO JOBS     *   FILE 214
//*      FOR WHICH THE USER IS AUTHORIZED TO THE "TOP SECRET"       *   FILE 214
//*      SECURITY SYSTEM (IBM-DEFINED RACF INTERFACES ARE           *   FILE 214
//*      EXPLOITED BY THE PRODUCT).  ACCESS IS CONTROLLED BY        *   FILE 214
//*      MEANS OF THE USER'S "ACID" (ACCESSOR ID) ENTRY IN THE      *   FILE 214
//*      SECURITY FILE TO VARIOUS RESOURCES; COMMAND PARSING AND    *   FILE 214
//*      VALIDATION IS CON- TROLLED IN THE TEXT OF THE ISFUSER      *   FILE 214
//*      EXIT ITSELF.  THIS ELIMINATES EXTENSIVE CUSTOMIZATION      *   FILE 214
//*      OF ISFPARMS, WHICH BY ITS VERY STRUCTURE AND               *   FILE 214
//*      ORGANIZATION, IS SOMEWHAT SENSITIVE TO THE CHANGING TSO    *   FILE 214
//*      ONLINE ENVIRONMENT.                                        *   FILE 214
//*                                                                 *   FILE 214
//*      WE GENERALLY DISCOURAGE USE OF "HELD" SYSOUT.              *   FILE 214
//*      CROSS-ACCESS TO TSO AND INTERACT (WYLBUR) JOBS IS          *   FILE 214
//*      IMPAIRED BY ITS USE.  CONSEQUENTLY, USERS ROUTE ALL        *   FILE 214
//*      BATCH JOBS TO FETCH (RMT99) FOR LATER BROWSING.            *   FILE 214
//*                                                                 *   FILE 214
//*      UPDATED 07OCT83, WILLIAM SMITH, SYNTEX TECHNICAL SUPPORT   *   FILE 214
//*      - MVS/SP 1.3.3 JES2, PUT 8304; ALL SECOM ENTRIES           *   FILE 214
//*        THROUGH SL00196 ALONG WITH UM00001, UM00003, UM00005     *   FILE 214
//*      - PERMIT OPERATIONS, PRODUCTION CONTROL, AND HELP DESK     *   FILE 214
//*        PERSONNEL TO USE AUTOMATIC UPDATE WITH AN UPDATE-TIME    *   FILE 214
//*        MINIMUM OF 3 SECONDS                                     *   FILE 214
//*                                                                 *   FILE 214
//*      SUBMITTED BY:                                              *   FILE 214
//*      WILLIAM SMITH                                              *   FILE 214
//*      SYNTEX CORPORATION                                         *   FILE 214
//*      3401 HILLVIEW AVE.                                         *   FILE 214
//*      PALO ALTO, CA  94304                                       *   FILE 214
//*      415/852-1638                                               *   FILE 214
//*                                                                 *   FILE 214
//***FILE 215 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 215
//*           THIS MEANS "SPLA TAPE FILE 115".                      *   FILE 215
//*                                                                 *   FILE 215
//*   H F000215 D=APR84                                             *   FILE 215
//*   T FILE 215 - MISCELLANEOUS PROGRAMS AND EXITS FROM            *   FILE 215
//*   T            AMERICAN HOSPITAL SUPPLY                         *   FILE 215
//*   K V29 AMERICAN HOSPITAL SUPPLY FRANK JUZWIK                   *   FILE 215
//*   K ERBTSOCK ERB3SOCK IGGPRE00 IFG0EX0B SP13 XA                 *   FILE 215
//*   K RMF MONITOR II III DASD OPEN EXIT                           *   FILE 215
//*                                                                 *   FILE 215
//*      DOCUMENTATION IS IN MEMBER @INDEX.                         *   FILE 215
//*                                                                 *   FILE 215
//*      THIS FILE CONTAINS SEVERAL AND EXITS CONTRIBUTED BY        *   FILE 215
//*      AMERICAN HOSPITAL SUPPLY CORPORATION.                      *   FILE 215
//*                                                                 *   FILE 215
//*            FRANK JUZWIK                                         *   FILE 215
//*            AMERICAN HOSPITAL SUPPLY CORPORATION                 *   FILE 215
//*            INFORMATION SERVICES                                 *   FILE 215
//*            1400 WAUKEGAN RD                                     *   FILE 215
//*            MCGAW PARK, ILL 60085                                *   FILE 215
//*            (312) - 473-1400                                     *   FILE 215
//*                                                                 *   FILE 215
//*      THESE PROGRAMS HAVE BEEN TESTED IN BOTH AN MVS SP1.3       *   FILE 215
//*      AND MVS X/A 1.2 ENVIORNMENT.  NO WARRANTY IS MADE TO       *   FILE 215
//*      THE ACCURACY OF THESE PROGRAMS.                            *   FILE 215
//*                                                                 *   FILE 215
//*      ERBTSOCK -    RMF MONITOR II AUTHORIZATION EXIT            *   FILE 215
//*      ERB3SOCK -    RMF MONITOR III AUTHORIZATION EXIT           *   FILE 215
//*      IGGPRE00 -    DASD PRE-ALLOCATION EXIT                     *   FILE 215
//*      IFG0EX0B -    PRE- OPEN EXIT                               *   FILE 215
//*                                                                 *   FILE 215
//***FILE 216 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 216
//*           THIS MEANS "SPLA TAPE FILE 116".                      *   FILE 216
//*                                                                 *   FILE 216
//*   H F000216 D=APR89                                             *   FILE 216
//*   T FILE 216 - ISPF-PDF PANELS, ETC  FROM THE US AIR FORCE      *   FILE 216
//*   K ISPF PDF AIR FORCE AIRFORCE V1 SADSC 2ISG V2                *   FILE 216
//*   K JIM MARSHALL PANELS MESSAGES SKELETIONS                     *   FILE 216
//*   K $DI ACCOUNT ALIAS ASMH BROWSE                               *   FILE 216
//*   K CALC CMD1 COBOLCHK COMPARE COPYSDS  COUNT                   *   FILE 216
//*   K DUTAPE DLINK DAPF DA DATE DEFINE DELETE                     *   FILE 216
//*   K DUDASD DUSER FORT FORTX FORTRAN GDDM FA                     *   FILE 216
//*   K FREEALL INFOSYS JULIAN LASTIPL LISTAX                       *   FILE 216
//*   K LISTCAT LISTC LM MEMBER LISTSU POF PRINTOFF                 *   FILE 216
//*   K QUEUE RMFMON  OBSWYLBUR  OMEGAMON RECEIVE                   *   FILE 216
//*   K PHOENIX SLSS  TSOE SLSSPRT SEND SORT ST                     *   FILE 216
//*   K STATUS SHOWSS TIME TMS TRANSMIT WYLBUR VPS                  *   FILE 216
//*   K VSFORT VSFORTRAN VTOC UCCEL UCC1 XMIT                       *   FILE 216
//*                                                                 *   FILE 216
//*    RELATED FILES: 131-133, 192, 194, 216-219, DOC               *   FILE 216
//*               ALL FILES MEMBER $$PROSE                          *   FILE 216
//*                                                                 *   FILE 216
//*              I S P F  /  P D F                                  *   FILE 216
//*                                                                 *   FILE 216
//*         RELEASE 12.0    1  APRIL   1989                         *   FILE 216
//*                                                                 *   FILE 216
//*     COURTESY     JIM MARSHALL, CAPT, USAF (RETIRED)             *   FILE 216
//*                                                                 *   FILE 216
//*     -------------------------------------------------------     *   FILE 216
//*     THIS FILE IS A GOOD EXAMPLE OF A PERSON WHO IS WRITING      *   FILE 216
//*     ISPF/ PDF PANELS, ETC AND DOESN'T KNOW WHAT IT IS ALL       *   FILE 216
//*     ABOUT. BUT IT WORKS !!!!!! SO IS IT THAT BAD? (IT MIGHT     *   FILE 216
//*     INSPIRE SOMEONE TO WRITE MORE). MOST OF THIS FILE ARE       *   FILE 216
//*     ISPF/PDF GOODIES FOR STRAIGHT TSO TYPE FUNCTIONS. NOW       *   FILE 216
//*     THAT WE HAVE ISPF/PDF, OUR USERS (AND SOME SYSTEMS          *   FILE 216
//*     TYPES) ARE LOST IF IT ISN'T SITTING ON A MENU, ETC.  SO     *   FILE 216
//*     AFTER TRYING TO GET THEM TO USE TSO AS TSO, I STARTED TO    *   FILE 216
//*     PUT SOME THINGS INTO MENUS, PANELS, ETC.  THEY LOVE IT.     *   FILE 216
//*     SO WHO CAN ARGUE WITH SUCCESS. AS I SAID, THIS IS MY        *   FILE 216
//*     FIRST ATTEMPT AT CODING THIS STUFF, SO I WILL BE ADDING     *   FILE 216
//*     , SUBTRACTING, REFINING, ETC AS TIME GOES BY.               *   FILE 216
//*                                                                 *   FILE 216
//*     MY GOAL IS TO WRITE ISPF/PDF MENUS, ECT AND MODIFY AS       *   FILE 216
//*     LITTLE IBM LIBRARIES AS POSSIBLE. SO TO UNDERSTAND HOW      *   FILE 216
//*     TO DO THIS YOU MUST COMPREHEND THE FILES YOU CAN            *   FILE 216
//*     ALLOCATE IN LOGON PROCEDURE OF A TSO USER THAT HAVE TO      *   FILE 216
//*     DO WITH ISPF/PDF PANELS, ETC.                               *   FILE 216
//*                                                                 *   FILE 216
//*     //USERPROC EXEC PGM=IKJEFT01,DYNAMNBR=40,TIME=1439          *   FILE 216
//*     ..............                                              *   FILE 216
//*     //*------- PANEL LIBRARIES                                  *   FILE 216
//*     //ISPPLIB  DD DISP=SHR,DSN=USER.PANEL.LIB                   *   FILE 216
//*     //         DD DISP=SHR,DSN=ISR.V2R3M0.ISRPLIB               *   FILE 216
//*     //         DD DISP=SHR,DSN=ISP.V2R3M0.ISPPLIB               *   FILE 216
//*     //*------- MSG   LIBRARIES                                  *   FILE 216
//*     //ISPMLIB  DD DISP=SHR,DSN=ISR.V2R3M0.ISRMLIB               *   FILE 216
//*     //         DD DISP=SHR,DSN=ISP.V2R3M0.ISPMLIB               *   FILE 216
//*     //         DD DISP=SHR,DSN=USER.MSG.LIB                     *   FILE 216
//*     //*------- SKELETON LIBRARIES                               *   FILE 216
//*     //ISPSLIB  DD DISP=SHR,DSN=ISR.V2R3M0.ISRSLIB               *   FILE 216
//*     //         DD DISP=SHR,DSN=ISP.V2R3M0.ISPSLIB               *   FILE 216
//*     //         DD DISP=SHR,DSN=USER.SKELETON.LIB                *   FILE 216
//*     //*------- TABLE  LIBRARIES                                 *   FILE 216
//*     //ISPTLIB  DD DISP=SHR,DSN=USERID.ISPF.PROFILE              *   FILE 216
//*     //         DD DISP=SHR,DSN=ISR.V2R3M0.ISRTLIB               *   FILE 216
//*     //         DD DISP=SHR,DSN=ISP.V2R3M0.ISPTLIB               *   FILE 216
//*     //         DD DISP=SHR,DSN=USER.TABLES                      *   FILE 216
//*     ..............                                              *   FILE 216
//*     //*------- CLIST    LIBRARIES                               *   FILE 216
//*     //SYSPROC  DD DISP=SHR,DSN=ISR.V2R3M0.ISRCLIB               *   FILE 216
//*     //         DD DISP=SHR,DSN=USER.CLIST.LIB                   *   FILE 216
//*                                                                 *   FILE 216
//*     THERE ARE MORE DD CARDS IN THE LOGON PROC BUT THESE ARE     *   FILE 216
//*     THE ONES  HAVE BEARING HERE. THE ONLY MODIFICATION I        *   FILE 216
//*     WILL MAKE IS TO 'ISR@PRIM' IN IBM'S PANEL LIBRARY (THIS     *   FILE 216
//*     IS THE MASTER PANEL). COPY THIS ONE TO OUR PANEL LIBRARY    *   FILE 216
//*     WHICH IS CONCATENATED  AHEAD OF IBM'S. ALL OTHER            *   FILE 216
//*     LIBRARIES ARE JUST CONCATENTATED WITH IBM'S. SINCE MY       *   FILE 216
//*     GOAL IS NOT TO CHANGEIBM SCREENS ETC, WE WILL HAVE NO       *   FILE 216
//*     PROBLEM. NOW ALL WE DO IS PLACE PANELS IN 'PANEL'           *   FILE 216
//*     LIBRARIES, MSGS IN 'MSG' LIBRARIES, ETC.                    *   FILE 216
//*     --------------------------------------------------------    *   FILE 216
//*                                                                 *   FILE 216
//*              D I S C L A I M E R     !!!!!                      *   FILE 216
//*          *************************************                  *   FILE 216
//*        USE ALL OF THESE AT YOUR OWN RISK, NATURALLY!            *   FILE 216
//*          *************************************                  *   FILE 216
//*                                                                 *   FILE 216
//*    ---------------------------------------------------------    *   FILE 216
//*    THE FILE IS CONSTRUCTED OF MEMBERS AS FOLLOWS: THE PANEL     *   FILE 216
//*    IS PUT IN AS A NAME TRAILED WITH A #PN (N IF MORE THAN       *   FILE 216
//*    1), THE SKELETON IS THE NAME TRAILED WITH A #SN (N IF        *   FILE 216
//*    MORE THAN 1), AND THE CLIST IS THE NAME TRAILED WITH A       *   FILE 216
//*    #CN (N IF MORE THAN 1).                                      *   FILE 216
//*                                                                 *   FILE 216
//*    NOTE1: HAVE YET TO INCORPORATE SOME TUTORIALS, MSGS, ETC.    *   FILE 216
//*           WHEN I DO, THE PHILOSOPHY IS THAT ALL ITEMS WILL      *   FILE 216
//*           FALL TOGETHER.                                        *   FILE 216
//*    NOTE2: SOME OF THE TUTORIAL MATERIAL IS REALLY TUTORIALS     *   FILE 216
//*           IN THE PUREST SENSE, THEY ARE PANELS, SO THEY         *   FILE 216
//*           BELONG IN THE PANEL LIBRARY.                          *   FILE 216
//*    NOTE3: SOME OF MY CLISTS ARE NOT TOO ELEGANT, THIS IS MY     *   FILE 216
//*           1ST CHANCE TO CODE THEM.                              *   FILE 216
//*                                                                 *   FILE 216
//*    FOR EXAMPLE:   CMD#P   - PANEL FOR THE COMMAND               *   FILE 216
//*                   CMD#S   - SKELETON FOR THE COMMAND            *   FILE 216
//*                   CMD#C   - CLIST FOR THE COMMAND               *   FILE 216
//*                   CMDNN   - MSGS FOR THE COMMAND                *   FILE 216
//*                                                                 *   FILE 216
//*    -------------------------------------------------------      *   FILE 216
//*    NOTE: I GOT INSPIRATION FROM THE PRINTOFF AND VTOC PANELS    *   FILE 216
//*          FOUND ON THE MODS TAPES. BUT I MODIFIDED A LITTLE      *   FILE 216
//*          AND REPACKAGED. IF BY CHANCE I HAVE LEFT ANYTHING      *   FILE 216
//*          OUT, PLEASE LET ME KNOW, THE FIRST CRACK AT PUTTING    *   FILE 216
//*          A FILE TOGETHER IS HARD TRYING TO INCLUDE ALL THE      *   FILE 216
//*          PIECES.                                                *   FILE 216
//*    -------------------------------------------------------      *   FILE 216
//*    RELEASE 12    JUST CLEANED SOME THINGS, NOTHING MAJOR        *   FILE 216
//*    -------------------------------------------------------      *   FILE 216
//*    RELEASE 11                                                   *   FILE 216
//*    @PNL#    - ADDED. MY CURRENT SELECTION MENUS.                *   FILE 216
//*    DAPF#    - ADDED.                                            *   FILE 216
//*    DLINK#   - ADDED.                                            *   FILE 216
//*    IDT#     - ADDED.                                            *   FILE 216
//*    LSTSU#   - ADDED.                                            *   FILE 216
//*    POF#     - ADDED.                                            *   FILE 216
//*    TRC#     - DELETED AND REPLACED BY IDT#                      *   FILE 216
//*    -------------------------------------------------------      *   FILE 216
//*    RELEASE 10                                                   *   FILE 216
//*    TMS#     - UPDATE SOME OF THE VERBAGE TO CLARIFY             *   FILE 216
//*    -------------------------------------------------------      *   FILE 216
//*    RELEASE 9  HAVE GONE TO ISPF/PDF V2                          *   FILE 216
//*    DUDASD#  - ADDED.                                            *   FILE 216
//*    DUSER#   - MISSING CLIST ADDED                               *   FILE 216
//*    DUTAPE#  - ADDED.                                            *   FILE 216
//*    LM#      - ADDED.                                            *   FILE 216
//*    MEMB#    - ADDED.                                            *   FILE 216
//*    SHOWSS#  - ADDED.                                            *   FILE 216
//*    SLSS#    - SLSS APPLICATION COMPLETELY RE-WRITTEN AND NOW    *   FILE 216
//*               WORKS AS DOCUMENTED. ALSO ALL PIECES ARE HERE     *   FILE 216
//*               INCLUDING COBOL PGM.                              *   FILE 216
//*    SLSSPRT  - SLSS PRINT PROGRAM IN THIS FILE ALONG WITH JCL.   *   FILE 216
//*    ZAP#     - ADDED.                                            *   FILE 216
//*    -------------------------------------------------------      *   FILE 216
//*    RELEASE 8                                                    *   FILE 216
//*    ISG@MSTR - INSTALLED TSO/E WITH NEW MASTER PANEL.            *   FILE 216
//*    NFLE#    - ADDED.                                            *   FILE 216
//*    NPRT#    - ADDED.                                            *   FILE 216
//*    NPUN#    - ADDED.                                            *   FILE 216
//*    SLSS#    - REDESIGNED TOTALLY.                               *   FILE 216
//*    SORT#    - FIXED BUG IN SKELETON.                            *   FILE 216
//*    -------------------------------------------------------      *   FILE 216
//*                                                                 *   FILE 216
//*   SUMMARY OF THE MODULES CONTAINED. HINT: MEMB. MEANS ALL       *   FILE 216
//*   MEMBERS NEEDED FOR PANELS, SKELS, ETC TO USE A PARTICULAR     *   FILE 216
//*   FUNCTION.                                                     *   FILE 216
//*                                                                 *   FILE 216
//*   MEMBER   REL              DESCRIPTION                         *   FILE 216
//*   PREFIX                                                        *   FILE 216
//*                                                                 *   FILE 216
//*   @PNL#CI   1  CLIST USED TO DETERMINE IF YOU ARE A SYSTEM      *   FILE 216
//*                PROG SO YOU CAN GET THE 'TOOL BOX' PANEL. YOU    *   FILE 216
//*                NEVER TELL A USER THEY CAN NOT HAVE SOMETHING    *   FILE 216
//*                BECAUSE THEY MAY COMPLAIN AND YOUR BOSS BOWS     *   FILE 216
//*                TO PRESSURE (THE WHIMP). SO IF THEY ARE NOT      *   FILE 216
//*                TO SEE THE PANEL YOU GIVE THEM SOMETHING OF      *   FILE 216
//*                LITTLE VAULE (LIKE PANEL '@PNL#PI')              *   FILE 216
//*                                                                 *   FILE 216
//*   @PNL#PI   1  THE WORTHLESS PANEL SPECIFIED ABOVE.             *   FILE 216
//*                                                                 *   FILE 216
//*   @PNL#PK   1  PANEL OF TSO COMMANDS FOR USERS.                 *   FILE 216
//*                                                                 *   FILE 216
//*   @PNL#PM   1  MY CURRENT MASTER MENU.                          *   FILE 216
//*                                                                 *   FILE 216
//*   @PNL#PX   1  THE SYSTEM PROGRAMMER'S 'TOOL BOX'               *   FILE 216
//*                                                                 *   FILE 216
//*   ABND#     1  MEMBERS FOR USING THE ABEND TSO COMMAND. THIS    *   FILE 216
//*                WILL PROVIDE A FURTHER EXPLANATION OF SOME OF    *   FILE 216
//*                THE MORE COMMON ABEND.                           *   FILE 216
//*                                                                 *   FILE 216
//*   ACCT#     2  MEMBERS FOR USING THE TSO ACCOUNT CMD. 2ISG      *   FILE 216
//*                FREE VERSION OF IBM'S OFFERING.                  *   FILE 216
//*                                                                 *   FILE 216
//*   ADM#      1  TOOK SOME INSPIRATION FROM BILL SMITH, SYNTEX    *   FILE 216
//*                TO MAKE A PANEL FOR GDDM PRESENTATION            *   FILE 216
//*                GRAPHICS. GOT AN IBM 3279 AND WANTED TO DO       *   FILE 216
//*                SOME PGF. SO BILL MADE IT EASY BY MAKING         *   FILE 216
//*                PANELS (LOVE IT).                                *   FILE 216
//*                                                                 *   FILE 216
//*   ASMH#     1  MEMBERS FOR USING THE TSO ASMH CMD. ASMH IS TO   *   FILE 216
//*                INTERACTIVE COMPILES. THESE SERIES OF SCREENS,   *   FILE 216
//*                ETC, ACTUALLY LIMITS THE USER TO ONLY RECEIVE    *   FILE 216
//*                THEIR ERRORS TO A SYSTERM DD CARD. SINCE NO      *   FILE 216
//*                LISTINGS, OBJ MODULES, ETC CAN BE GENERATED,     *   FILE 216
//*                I CALL IT A 'CHEAP CHECKER'.                     *   FILE 216
//*                                                                 *   FILE 216
//*   CALC#     1  MEMBERS FOR USING CALC CMD.                      *   FILE 216
//*                CALC IS A TSO CALCULATOR.                        *   FILE 216
//*                                                                 *   FILE 216
//*   COBOL#    1  MEMBERS FOR USING COBOLCHK CMD. COBOLCHK IS TO   *   FILE 216
//*                INTERACTIVE COMPILES. THESE SERIES OF SCREENS,   *   FILE 216
//*                ETC, ACTUALLY LIMITS THE USER TO ONLY RECEIVE    *   FILE 216
//*                THEIR ERRORS TO A SYSTERM DD CARD. SINCE NO      *   FILE 216
//*                LISTINGS, OBJ MODULES, ETC CAN BE GENERATED,     *   FILE 216
//*                I CALL IT A 'CHEAP CHECKER'.                     *   FILE 216
//*                                                                 *   FILE 216
//*   COMPR#    1  MEMBERS FOR USING THE TSO COMPARE CMD.           *   FILE 216
//*                                                                 *   FILE 216
//*   COPYS#    1  MEMBERS FOR USING THE TSO COPYSDS CMD. COPYSDS   *   FILE 216
//*                IS A SEQUENTIAL DATASET COPY.                    *   FILE 216
//*                                                                 *   FILE 216
//*   COUNT#    1  MEMBERS FOR USING THE TSO COUNT COMMAND.         *   FILE 216
//*                COUNT THE NUMBER OF RECORDS IN A FILE.           *   FILE 216
//*                                                                 *   FILE 216
//*   DA#       1  MEMBERS FOR 'DA' CMD. DA IS 'DISPLAY ACTIVE'     *   FILE 216
//*                                                                 *   FILE 216
//*   DAPF#     1  MEMBERS FOR 'DAPF'. DAPF IS 'DISPLAY APF LIBS'   *   FILE 216
//*                                                                 *   FILE 216
//*   DATE#     1  MEMBERS FOR USING DATE CMD. DATE GETS            *   FILE 216
//*                TODAYS DATE.                                     *   FILE 216
//*                                                                 *   FILE 216
//*   DEFA#     1  MEMBERS FOR USING DEFINING AN ALIAS IN YOUR      *   FILE 216
//*                MASTER CATALOG.                                  *   FILE 216
//*                                                                 *   FILE 216
//*   DELA#     2  MEMBERS FOR USING DELETING AN ALIAS FROM THE     *   FILE 216
//*                MASTER  CATALOG.                                 *   FILE 216
//*                                                                 *   FILE 216
//*   DLINK#    1  MEMBERS FOR 'DLINK' OR 'DISPLAY LINKLIST LIBS'   *   FILE 216
//*                                                                 *   FILE 216
//*   DUDASD#   1  MEMBER  FOR USING DUDASD CMD.  OPERATOR LIKE     *   FILE 216
//*                CMD SIMILAR TO  D U,DASD                         *   FILE 216
//*                                                                 *   FILE 216
//*   DUSER#    1  MEMBERS FOR USING DUSER CMD. DUSER DISPLAYS      *   FILE 216
//*                THE NUMBER AND USERIDS OF THOSE ON TSO.          *   FILE 216
//*                                                                 *   FILE 216
//*   DUTAPE#   1  MEMBER  FOR USING DUTAPE CMD. OPERATOR LIKE      *   FILE 216
//*                CMD SIMILAR TO  D U,TAPE                         *   FILE 216
//*                                                                 *   FILE 216
//*   FORT#     1  MEMBERS FOR USING THE FORT   CMD. FORT   IS TO   *   FILE 216
//*                DO INTERACTIVE COMPILES WITH FORTRAN G1. THESE   *   FILE 216
//*                SERIES OF SCREENS, ETC, ACTUALLY LIMITS THE      *   FILE 216
//*                THE USER TO ONLY RECEIVE THEIR ERRORS TO A       *   FILE 216
//*                SYSTERM DD CARD. SINCE NO LISTINGS, OBJ MODULES  *   FILE 216
//*                CAN BE GENERATED, I CALL IT A 'CHEAP CHECKER'.   *   FILE 216
//*                                                                 *   FILE 216
//*   FORTX#    1  MEMBERS FOR USING THE FORTX  CMD. FORTX  IS TO   *   FILE 216
//*                DO INTERACTIVE COMPILES WITH FORTRAN HX. THESE   *   FILE 216
//*                SERIES OF SCREENS, ETC, ACTUALLY LIMITS THE      *   FILE 216
//*                THE USER TO ONLY RECEIVE THEIR ERRORS TO A       *   FILE 216
//*                SYSTERM DD CARD. SINCE NO LISTINGS, OBJ MODULES  *   FILE 216
//*                CAN BE GENERATED, I CALL IT A 'CHEAP CHECKER'.   *   FILE 216
//*                                                                 *   FILE 216
//*   FREEA#    1  MEMBERS FOR USING FREEALL CMD.                   *   FILE 216
//*                                                                 *   FILE 216
//*   HELP#     1  MEMBERS FOR USING HELP COMMANDS.                 *   FILE 216
//*                ISSUES HELP COMMANDS.                            *   FILE 216
//*                                                                 *   FILE 216
//*   IDT#      1  THESE PANELS SUPPORT TSO/E TRANSMIT-RECEIVE.     *   FILE 216
//*                OUR USERS ARE NOVICES AND NEEDED A WAY OF        *   FILE 216
//*                USING THESE FUNCTIONS. SEE THE TSO FILE FOR      *   FILE 216
//*                THE RELATED MODULES CALLED 'INMXPARM' AND        *   FILE 216
//*                'INMXZ02' EXIT.  THIS CONTAINS AN UPDATED        *   FILE 216
//*                VERSION OF WHAT WAS CONTAINED IN THE MEMBERS     *   FILE 216
//*                TRC#.                                            *   FILE 216
//*                                                                 *   FILE 216
//*   INFOS#    1  MEMBERS FOR USING INFOSYS TSO CMD.               *   FILE 216
//*                                                                 *   FILE 216
//*   ISG@MSTR  2  THIS IS THE PRIMARY PANEL THAT YOUR GET WITH     *   FILE 216
//*                YOU GET INTO ISPF/PDF FOR 2ISG SYSTEM            *   FILE 216
//*                PROGRAMMERS.  BE CONCATENATED AHEAD OF IBM'S     *   FILE 216
//*                (ISPPLIB).                                       *   FILE 216
//*                                                                 *   FILE 216
//*   ISR@PRIM  2  THIS IS THE PRIMARY PANEL THAT YOUR GET WITH     *   FILE 216
//*                YOU GET INTO ISPF/PDF. PANEL LIBRARY YOU USE     *   FILE 216
//*                SHOULD BE CONCATENATED AHEAD OF IBM'S            *   FILE 216
//*                (ISPPLIB).                                       *   FILE 216
//*                                                                 *   FILE 216
//*   JUL#      1  MEMBERS FOR USING JULIAN  TSO CMD.               *   FILE 216
//*                                                                 *   FILE 216
//*   LASTI#    1  MEMBERS FOR USING LASTIPL  TSO CMD.              *   FILE 216
//*                                                                 *   FILE 216
//*   LISTA#    1  MEMBERS FOR USING LISTAX TSO CMD.                *   FILE 216
//*                                                                 *   FILE 216
//*   LISTC#    1  MEMBERS FOR USING LISTCAT CMD.                   *   FILE 216
//*                                                                 *   FILE 216
//*   LSTSU#    1  MEMBERS FOR 'LISTSU' TSO CMD                     *   FILE 216
//*                                                                 *   FILE 216
//*   MEMB#     1  MEMBERS FOR USING MEMBER  CMD.                   *   FILE 216
//*                                                                 *   FILE 216
//*   NEWS#     1  MEMBERS FOR USING 2ISG NEWS FACILITY.            *   FILE 216
//*                NOT TOO APPLICABLE TO OTHER INSTALLATIONS        *   FILE 216
//*                BUT IT SHOWS ONE HOW TO SELECTIVELY INVOKE       *   FILE 216
//*                'BROWSE' SERVICE FROM YOUR  OWN PANELS, ETC.     *   FILE 216
//*                                                                 *   FILE 216
//*   NFLE#     1  EL-CHEAPO FILE TRANSFER TO VM VIA NJE.           *   FILE 216
//*                                                                 *   FILE 216
//*   NPRT#     1  EL-CHEAPO FILE TRANSFER TO VM VIA NJE.           *   FILE 216
//*                                                                 *   FILE 216
//*   NPUN#     1  EL-CHEAPO FILE TRANSFER TO VM VIA NJE.           *   FILE 216
//*                                                                 *   FILE 216
//*   OBSL#     1  MEMBER FOR INVOKING 'OBS' WYLBUR PROGRAM TO      *   FILE 216
//*                DECOMPRESS A WYLBUR FILE, THEN INVOKE            *   FILE 216
//*                ISPF/PDF BROWSE SERVICE TO BROWSE IT.            *   FILE 216
//*                                                                 *   FILE 216
//*   OMEG#     1  MEMBERS FOR INVOKING OMEGAMON IN TSO.            *   FILE 216
//*                                                                 *   FILE 216
//*   LSTSU#    1  MEMBERS FOR 'LISTSU' TSO CMD                     *   FILE 216
//*                                                                 *   FILE 216
//*   PHIX#     1  CLIST FOR INVOKING PHOENIX COMPUTER BASE         *   FILE 216
//*                TRAINING SYSTEM. INVOKES A FRONT-END TSO CP      *   FILE 216
//*                TO THE PHOENIX TSO CP (LIMITS WHO CAN GET        *   FILE 216
//*                INTO PHOENIX AND WHO CAN NOT).                   *   FILE 216
//*                                                                 *   FILE 216
//*   POF#      1  MEMBERS FOR 'POF' TSO CMD                        *   FILE 216
//*                                                                 *   FILE 216
//*   PRINT#    1  MEMBERS FOR USING PRINTOFF CMD.  THIS IS         *   FILE 216
//*                THE FAMOUS 'PRINTOFF' FROM MY TSO FILE.          *   FILE 216
//*                                                                 *   FILE 216
//*   QUEUE#    1  MEMBERS FOR USING QUEUE   TSO CMD.               *   FILE 216
//*                                                                 *   FILE 216
//*   RMFMON#   1  MEMBERS FOR USING RMFMON  TSO CMD.               *   FILE 216
//*                                                                 *   FILE 216
//*   SADSYSP   2  THIS IS THE '2ISG'  PANEL MEMBER THAT GOES       *   FILE 216
//*                IN YOUR PANEL LIBRARY FOR PROGRAM PRODUCTS.      *   FILE 216
//*                NEEDED ANOTHER PANEL TO ADD THINGS. LOOK         *   FILE 216
//*                AT ISR@PRIM  AND THIS MEMBER AND IT WILL         *   FILE 216
//*                WILL MAKE MORE SENSE.                            *   FILE 216
//*                                                                 *   FILE 216
//*   SADTSOP   2  THIS IS THE '2ISG'  PANEL MEMBER THAT            *   FILE 216
//*                GOES IN YOUR PANEL LIBRARY FOR TSO COMMANDS.     *   FILE 216
//*                LOOK AT ISR@PRIM  AND THIS MEMBER AND IT         *   FILE 216
//*                IT WILL MAKE MORE SENSE.                         *   FILE 216
//*                                                                 *   FILE 216
//*   SADUTLP   2  THIS IS THE '2ISG'  PANEL MEMBER THAT GOES IN    *   FILE 216
//*                YOUR PANEL LIBRARY FOR UTILITY FUNCTIONS AND     *   FILE 216
//*                'CHEAP CHECKERS'. LOOK AT ISR@PRIM AND THIS      *   FILE 216
//*                MEMBER AND IT WILL MAKE MORE SENSE.              *   FILE 216
//*                                                                 *   FILE 216
//*   SEND#     1  MEMBERS FOR USING SEND TSO CMD.  'SEND'          *   FILE 216
//*                A MSG TO ANOTHER USER.                           *   FILE 216
//*                                                                 *   FILE 216
//*   SHOWSS#   1  MEMBERS FOR USING SHOWSS  CMD.                   *   FILE 216
//*                                                                 *   FILE 216
//*   SLSS#     2  A MODIFICATION OF THE SLSS ISPF/PDF PANELS ON    *   FILE 216
//*                THE MODS TAPE. EXCEPT THIS ONE HAS A COBOL       *   FILE 216
//*                PGM AS THE DRIVER. JIM PETERSON REWROTE THE      *   FILE 216
//*                ISPF APPLICATION MAKING IT MORE EFFICIENT        *   FILE 216
//*                (I'M IMPRESSED. I TOOK ALL THE CODE AND          *   FILE 216
//*                REWROTE IT MYSELF WHEN I TRIED TO IMPLEMENT      *   FILE 216
//*                IT. SO IT ALL WORKS NOW. SEE MEMBER SLSS##PR     *   FILE 216
//*                FOR DOC.                                         *   FILE 216
//*                                                                 *   FILE 216
//*   SORT#     2  DO A SMALL SORT INACTIVELY.                      *   FILE 216
//*                                                                 *   FILE 216
//*   ST#       1  MEMBERS FOR USING STATUS CMD.                    *   FILE 216
//*                                                                 *   FILE 216
//*   SYSLG#    1  MEMBERS FOR USING BROWSING THE SPOOLED TO        *   FILE 216
//*                DISK, OPERATOR CONSOLE LOGS. WE PUT IT INTO      *   FILE 216
//*                DISK FILES FOR THE PAST 3 WEEKS FOR BROWSING.    *   FILE 216
//*                                                                 *   FILE 216
//*   SYSPR#P   1  SECONDAY PANEL FOR GETTING INTO 2ISG SYSTEM      *   FILE 216
//*                PROG  FUNCTIONS. LOOK AT CLIST THAT IS           *   FILE 216
//*                INVOKED OUT OF ISR@PRIM WHEN YOU ENTER 'S'.      *   FILE 216
//*                CLIST INVOKED CHECKS TO SEE IF 1ST CHARACTER     *   FILE 216
//*                OF USERID BEGINS WITH 'S'. IF SO YOU ARE ONE     *   FILE 216
//*                OF SYSTEMS, IF NOT, YOU ARE A BAD GUY AND        *   FILE 216
//*                RETURNED TO ISR@PRIM.                            *   FILE 216
//*                                                                 *   FILE 216
//*   TIME#     1  MEMBERS FOR USING TIME  CMD.                     *   FILE 216
//*                                                                 *   FILE 216
//*   TMS#      1  MEMBERS FOR USING TMS CMD (INVOKE UCC1 PGM       *   FILE 216
//*                FOR INTERACTIVE TMS ACCESS). SEE DOC MEMBER      *   FILE 216
//*                CALLED  TMS##PR.                                 *   FILE 216
//*                                                                 *   FILE 216
//*   VFORT#    1  MEMBERS FOR USING THE VSFORT CMD. VSFORT IS TO   *   FILE 216
//*                DO INTERACTIVE COMPILES WITH VS FORTRAN. THESE   *   FILE 216
//*                SERIES OF SCREENS, ETC, ACTUALLY LIMITS THE      *   FILE 216
//*                THE USER TO ONLY RECEIVE THEIR ERRORS TO A       *   FILE 216
//*                SYSTERM DD CARD. SINCE NO LISTINGS, OBJ MODULES  *   FILE 216
//*                CAN BE GENERATED, I CALL IT A 'CHEAP CHECKER'.   *   FILE 216
//*                                                                 *   FILE 216
//*   VTOC#     1  MEMBERS FOR USING VTOC  CMD.                     *   FILE 216
//*                                                                 *   FILE 216
//*   ZAP#      1  MEMBERS FOR USING ZAP CMD.                       *   FILE 216
//*                                                                 *   FILE 216
//***FILE 217 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 217
//*           THIS MEANS "SPLA TAPE FILE 117".                      *   FILE 217
//*                                                                 *   FILE 217
//*   H F000217 D=APR89                                             *   FILE 217
//*   T FILE 217 - JCL PROCS FOR FORTRAN AND PL1F FROM              *   FILE 217
//*   T            US AIR FORCE                                     *   FILE 217
//*   K OS MVT PL1F FORTH FORTG FORTRANH FORTRANG FREE RPG          *   FILE 217
//*   K JIM MARSHALL RPG                                            *   FILE 217
//*                                                                 *   FILE 217
//*     RELATED FILES: 131-133, 192, 194, 216-219, DOC              *   FILE 217
//*                    ALL FILES MEMBER $$PROSE                     *   FILE 217
//*                                                                 *   FILE 217
//*               FORTRAN G & H - PL1-F  - RPG                      *   FILE 217
//*                                                                 *   FILE 217
//*                    1  APRIL   1989                              *   FILE 217
//*                                                                 *   FILE 217
//*       COURTESY     JIM MARSHALL, CAPT, USAF                     *   FILE 217
//*                    1-301-688-6829                               *   FILE 217
//*                                                                 *   FILE 217
//*    ---------------------------------------------------------    *   FILE 217
//*                                                                 *   FILE 217
//*              D I S C L A I M E R     !!!!!                      *   FILE 217
//*          *************************************                  *   FILE 217
//*        USE ALL OF THESE AT YOUR OWN RISK, NATURALLY!            *   FILE 217
//*          *************************************                  *   FILE 217
//*                                                                 *   FILE 217
//*     THIS IS A FILE OF THE JCL PROCEDURES FOR USE WITH 3 OTHER   *   FILE 217
//*    FILES I HAVE DONATED. BEING AN OS/MVT PERSON (WHEN THINGS    *   FILE 217
//*    WERE FREE) I SAVED THE 360 VERSION OF FORTRAN-G AND PL1-F.   *   FILE 217
//*    THEN ALONG WITH FORTRAN G IS THE GODDARD SPACE FLIGHT CENTER *   FILE 217
//*    VERSION OF FORTRAN-H (THIS IS NOT FORTRAN-H-EXTENDED). THIS  *   FILE 217
//*    IS ALL FREE SOFTWARE AND WORKS FINE IN THE MVS WORLD. I HAVE *   FILE 217
//*    BEEN TOLD THAT PL1F DOESN'T FUNCTION IN THE MVS-XA WORLD     *   FILE 217
//*    (IF YOU CAN AFFORD MVS-XA, YOU COULD BUY EVERYTHING). ALSO   *   FILE 217
//*    I EXTRACTED RPG FROM THE FINAL RELEASE OF OS/MVT AND PUT     *   FILE 217
//*    IT INTO A FILE.                                              *   FILE 217
//*                                                                 *   FILE 217
//*    THE 3 FILES ARE BUILT AS FOLLOWS:                            *   FILE 217
//*                                                                 *   FILE 217
//*    PL1FLOAD - THIS CONTAINS THE COMPILER AND LIBRARY FOR PL1F.  *   FILE 217
//*               IT HAS BEEN TOLD TO ME THAT MAYBE THIS WILL       *   FILE 217
//*               WORK IN MVS/XA. BUT IT PREMISES YOU HAVE NO       *   FILE 217
//*               ERRORS IN THE CODE AT EXECUTION TIME. TRY IT.     *   FILE 217
//*                                                                 *   FILE 217
//*               5 AUG 88 - IT HAS BEEN REPORTED THAT PL1F WORKS   *   FILE 217
//*               FINE IN MVS/XA 2.2.0; THIS IS PREDICATED ON YOU   *   FILE 217
//*               RE-LINKING THE ENTIRE LIBRARY (LOOK TO THE        *   FILE 217
//*               PDS TSO COMMAND) LEAVING OFF THE "DC" OPTION.     *   FILE 217
//*               WILL BE ADDING THE JCL STREAM TO CREATE THE       *   FILE 217
//*               XA LIBRARY IN THE FUTURE. GOT THE STREAM FROM     *   FILE 217
//*               SAM GOLOB OF NEWSWEEK.                            *   FILE 217
//*                                                                 *   FILE 217
//*                                                                 *   FILE 217
//*    FORTLOAD - THIS CONTAINS THE COMPILERS FOR FORTRAN G & H.    *   FILE 217
//*               ALSO THERE IS THE FORTRAN LIBRARY FOR BOTH OF     *   FILE 217
//*               THEM (SYS1.FORTLIB).                              *   FILE 217
//*                                                                 *   FILE 217
//*               REGULAR FORTRAN HAS THE 'STAE' ROUTINE CALLED     *   FILE 217
//*               IHOSTAE. WELL GODDARD'S VERSION HAS GSFSTAE       *   FILE 217
//*               WHICH MUST BE AVAILABLE AT RUNTIME. MY ADVICE     *   FILE 217
//*               IS TO STEPLIB TO THE ENTIRE LIBRARY AT RUN        *   FILE 217
//*               TIME.                                             *   FILE 217
//*                                                                 *   FILE 217
//*               SCOTT VETTERS (MICHIGAN MUTAL) SAYS THE FORTG     *   FILE 217
//*               COMPILER IS RUNNING ON HIS MVS/XA 2.1.2 SYSTEM.   *   FILE 217
//*               (313) 827-7400 EXT 336                            *   FILE 217
//*                                                                 *   FILE 217
//*               I HAVE FORTG RUNNING ON MVS/XA 2.2.0 WITH NO      *   FILE 217
//*               PROBLEMS.                                         *   FILE 217
//*                                                                 *   FILE 217
//*                                                                 *   FILE 217
//*    RPGLOAD  - THIS CONTAINS THE DLIB AND COMPILER LIBRARY FOR   *   FILE 217
//*               THE OS/MVT VERSION OF RPG. THE JOB CALLED         *   FILE 217
//*               'RPG$GEN' IS THE EXTRACTED LINKEDIT CARDS FROM    *   FILE 217
//*               AN OS/MVT SYSGEN FOR LINKING ALL THE RPG          *   FILE 217
//*               COMPILER MODULES (FOR YOU INFO). INCLUDED IS      *   FILE 217
//*               A SAMPLE JOB TO TEST IT ( IT WORKS ON AN          *   FILE 217
//*               MVS/SP1.3.3 AND MVS/XA.                           *   FILE 217
//*                                                                 *   FILE 217
//*     NOTES: YOU CAN FIND OUT ALL THE DEFAULTS BY EXECUTING       *   FILE 217
//*            THE COMPILERS WITH A PARM=   AND LOOK AT WHAT        *   FILE 217
//*            IS SET. HAVE FUN, SO NOW YOU HAVE NO EXCUSE TO       *   FILE 217
//*            IGNORE SOME OF THE MORE INTERESTING (IF YOU KNOW     *   FILE 217
//*            WHAT I MEAN) PROGRAMS ON THE MODS TAPES WRITTEN      *   FILE 217
//*            IN PL1F OR FORTRAN!! (LOOK TO THE HEAVENS)           *   FILE 217
//*                                                                 *   FILE 217
//***FILE 218 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 218
//*           THIS MEANS "SPLA TAPE FILE 118".                      *   FILE 218
//*                                                                 *   FILE 218
//*   H F000218 D=FEB85                                             *   FILE 218
//*   T FILE 218 - FORTRAN G & H COMPILER AND LIBRARY               *   FILE 218
//*   T            LOAD MODULES FROM US AIR FORCE                   *   FILE 218
//*   K OS MVT FORTH FORTG FORTRANH FORTRANG FREE AIR FORCE         *   FILE 218
//*   K JIM MARSHALL V31                                            *   FILE 218
//*                                                                 *   FILE 218
//*   RELATED FILES: 217 & 219; DOCUMENTATION ALL FILES MEMBER      *   FILE 218
//*                  $$PROSE IN FILE 217                            *   FILE 218
//*                                                                 *   FILE 218
//***FILE 219 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 219
//*           THIS MEANS "SPLA TAPE FILE 119".                      *   FILE 219
//*                                                                 *   FILE 219
//*   H F000219 D=FEB85                                             *   FILE 219
//*   T FILE 219 - PL1F COMPILER AND LIBRARY LOAD MODULES           *   FILE 219
//*   T            FROM US AIR FORCE                                *   FILE 219
//*   K OS MVT PL1F FREE AIR FORCE                                  *   FILE 219
//*   K JIM MARSHALL V31                                            *   FILE 219
//*                                                                 *   FILE 219
//*     RELATED FILES: 217 & 218; DOCUMENTATION ALL FILES MEMBER    *   FILE 219
//*                    $$PROSE IN FILE 217                          *   FILE 219
//*                                                                 *   FILE 219
//***FILE 220 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 220
//*           THIS MEANS "SPLA TAPE FILE 120".                      *   FILE 220
//*                                                                 *   FILE 220
//*   H F000220 D=FEB85                                             *   FILE 220
//*   T FILE 220 - DYNAMASK AND RELATED PROGRAMS                    *   FILE 220
//*   T            FROM SECURITY PACIFIC BANK                       *   FILE 220
//*   K DYNAMASK GENERIC VATUCB EDT IEFEDTTB XA SP STEVEN           *   FILE 220
//*   K SMITH V31                                                   *   FILE 220
//*                                                                 *   FILE 220
//*      DYNAMASK PROVIDES THE ABILITY TO DYNAMICALLY CHANGE        *   FILE 220
//*      AND ADD TO THE UNIT NAMES DEFINED AT SYSGEN.               *   FILE 220
//*                                                                 *   FILE 220
//*              SECURITY PACIFIC NATIONAL BANK                     *   FILE 220
//*                                                                 *   FILE 220
//*           TO:      DYNAMASK USERS                               *   FILE 220
//*                    SHARE                                        *   FILE 220
//*                                                                 *   FILE 220
//*           FROM:    STEVEN SMITH                                 *   FILE 220
//*                                                                 *   FILE 220
//*           DATE:    SEPTEMBER 13, 1984                           *   FILE 220
//*                                                                 *   FILE 220
//*           SUBJECT: NEW DYNAMASK FOR XA                          *   FILE 220
//*                                                                 *   FILE 220
//*           SEND INQUIRES TO:                                     *   FILE 220
//*                                                                 *   FILE 220
//*                  STEVEN D. SMITH                                *   FILE 220
//*                  SERENA INTERNATIONAL                           *   FILE 220
//*                  500 AIRPORT BOULEVARD, 2ND FLOOR               *   FILE 220
//*                  BURLINGAME, CA  94010                          *   FILE 220
//*                  415-696-1800                                   *   FILE 220
//*                                                                 *   FILE 220
//*            EMAIL:   SSMITH@SERENA.COM                           *   FILE 220
//*                                                                 *   FILE 220
//*    THE ENCLOSED TAPE IS A IEBCOPY UNLOAD OF THE NEW             *   FILE 220
//*    DYNAMASK AND RELATED PROGRAMS.                               *   FILE 220
//*                                                                 *   FILE 220
//*    THE TAPE IS NONLABELED AND HAS TWO FILES, BOTH IEBCOPY       *   FILE 220
//*    UNLOADS OF THE SAME MEMBERS.  NO ADDITIONAL USER MACROS      *   FILE 220
//*    ARE REQUIRED FOR THESE PROGRAMS.                             *   FILE 220
//*                                                                 *   FILE 220
//*    MEMBERS:                                                     *   FILE 220
//*                                                                 *   FILE 220
//*     $$DYNDOC     THIS MEMBER                                    *   FILE 220
//*                                                                 *   FILE 220
//*     DYNAMASK                                                    *   FILE 220
//*       DYNAMASK PROVIDES THE ABILITY TO DYNAMICALLY CHANGE       *   FILE 220
//*       AND ADD TO THE UNIT NAMES DEFINED AT SYSGEN.              *   FILE 220
//*       DYNAMASK OPTIONALLY CAN BE GIVEN UNIT ADDRESSES OR        *   FILE 220
//*       VOLUMES AND THE UNIT NAMES WILL BE ASSIGNED TO THE        *   FILE 220
//*       UNIT ADDRESSES THAT THE VOLUMES ARE CURRENTLY             *   FILE 220
//*       MOUNTED.  IT CAN BE RUN AT ANY TIME THE SYSTEM IS         *   FILE 220
//*       DAINED OF ALL ACTIVITY.  DYNAMASK RUNS AS AN              *   FILE 220
//*       OPERATOR REQUESTED OR BATCH SUBMITTED UTILITY WHICH       *   FILE 220
//*       MAKES THE NECESSARY CONTROL BLOCK CHANGES AND EXITS.      *   FILE 220
//*       IT REQUIRES MINIMUM RESOURCES AND EXECUTES IN A FEW       *   FILE 220
//*       SECONDS.  DYNAMASK SUPPORTS THE FOLLOWING RELEASES:       *   FILE 220
//*       MVS3.8 - MVS/SP1.3, MVS/XA2.0 - 2.1.1 COMPLETE            *   FILE 220
//*       DOCUMENTATION IS CONTAINED IN THE COMMENTS AT THE         *   FILE 220
//*       FRONT OF THE SOURCE                                       *   FILE 220
//*                                                                 *   FILE 220
//*     GENERIC                                                     *   FILE 220
//*       THIS IS A MVS/370 PROGRAM TO UPDATE THE DEVTMASK AND      *   FILE 220
//*       DEVTNAME TABLES.  IT WILL BE CALLED BY DYNAMASK IF        *   FILE 220
//*       INCLUDED IN THE LKED AND WILL BE BYPASSED IF IN A XA      *   FILE 220
//*       SYSTEM.  THIS PROGRAM WAS WRITTEN BY LOCKHEED             *   FILE 220
//*       CALIFORNIA.                                               *   FILE 220
//*                                                                 *   FILE 220
//*     VATUCB                                                      *   FILE 220
//*       THIS IS A PROGRAM TO UPDATE THE UCB'S FROM                *   FILE 220
//*       INFORMATION IN A USER SUPPLIED VATLST.  THIS WILL         *   FILE 220
//*       RUN IN XA AND MVS/370 MODE.  IT WILL BE CALLED BY         *   FILE 220
//*       DYNAMASK IF INCLUDED IN THE LKED THIS PROGRAM WAS         *   FILE 220
//*       WRITTEN BY LOCKHEED CALIFORNIA.                           *   FILE 220
//*                                                                 *   FILE 220
//***FILE 221 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 221
//*           THIS MEANS "SPLA TAPE FILE 121".                      *   FILE 221
//*                                                                 *   FILE 221
//*   H F000221 D=JUN85                                             *   FILE 221
//*   T FILE 221 - UPDATED PDSCLEAR AND TSOCMD FROM GESCO CORP.     *   FILE 221
//*   K PDSCLEAR TSOCMD V33 TSO                                     *   FILE 221
//*                                                                 *   FILE 221
//*  RELATED FILES:  151 AND 153                                    *   FILE 221
//*                                                                 *   FILE 221
//*  PDSCLEAR:                                                      *   FILE 221
//*                                                                 *   FILE 221
//*       THIS IS AN UPDATED VERSION OF THE PDSCLEAR PROGRAM        *   FILE 221
//*       ORIGINALLY SHIPPED ON THE LA USER GROUP MODS TAPE (SEE    *   FILE 221
//*       FILE 53 - LAST UPDATED ON SHARE TAPE VERSION 26).         *   FILE 221
//*       THAT VERSION DOES NOT SUPPORT 3380S.  ALL DEVICE          *   FILE 221
//*       DEPENDENCIES HAVE BEEN REMOVED.  THE DEVTYPE AND          *   FILE 221
//*       TRKCALC MACROS ARE USED TO DO ALL DEVICE AND TRACK        *   FILE 221
//*       CALCULATIONS.  NO SPECIAL MACROS ARE REQUIRED OTHER       *   FILE 221
//*       THAN THOSE IN AMODGEN.                                    *   FILE 221
//*                                                                 *   FILE 221
//*   TSOCMD: (APPLICABLE TO NON-TSO/E R2 ENVIRONMENTS)             *   FILE 221
//*                                                                 *   FILE 221
//*       THIS IS A COMMAND PROCESSOR WHICH ALLOWS YOU TO           *   FILE 221
//*       EXECUTE AUTHORIZED TSO COMMANDS (E.G. RACF COMMANDS)      *   FILE 221
//*       FROM A NON- AUTHORIZED ENVIRONMENT (E.G. ISPF).  THE      *   FILE 221
//*       DESIRED COMMAND CAN BE EXECUTED BY PREFIXING IT WITH      *   FILE 221
//*       "TSOCMD" OR "TC".  THERE IS A MACRO IN THE SOURCE         *   FILE 221
//*       CALLED "SETAUTH".  THE USER MUST SUBSTITUTE A MACRO       *   FILE 221
//*       (OR CODE) OF HIS OWN WHICH DOES THE CALL TO THE USER      *   FILE 221
//*       AUTHORIZATION SVC.  ASSEMBLY REQUIRES MACROS WHICH CAN    *   FILE 221
//*       BE FOUND IN FILE 51.  TSOCMD ALSO HAS AN ATTENTION        *   FILE 221
//*       EXIT TO REMOVE AUTHORIZATION IF THE USER ATTENTIONS       *   FILE 221
//*       OUT OF THE COMMAND.                                       *   FILE 221
//*                                                                 *   FILE 221
//***FILE 222 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 222
//*           THIS MEANS "SPLA TAPE FILE 122".                      *   FILE 222
//*                                                                 *   FILE 222
//*   H F000222 D=JUN85                                             *   FILE 222
//*   T FILE 222 - DATA LIBRARY FOR SAS INSTITUTE CONTRIBUTIONS     *   FILE 222
//*   K ICF CATALOG ICFLIST ICFDUMP                                 *   FILE 222
//*                                                                 *   FILE 222
//*      RELATED FILES:  223                                        *   FILE 222
//*                                                                 *   FILE 222
//*      ICFLIST:                                                   *   FILE 222
//*                                                                 *   FILE 222
//*         THIS SAS PROGRAM WILL LIST THE NONVSAM AND GDGBASE      *   FILE 222
//*         ENTRIES FROM AN ICF CATALOG.  IT IS INTENDED FOR        *   FILE 222
//*         USE WITH CATALOGS WHICH ARE CONVERTED OS CVOLS.         *   FILE 222
//*                                                                 *   FILE 222
//***FILE 223 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 223
//*           THIS MEANS "SPLA TAPE FILE 123".                      *   FILE 223
//*                                                                 *   FILE 223
//*   H F000223 D=JUN85                                             *   FILE 223
//*   T FILE 223 - LOAD MODULE LIBRARY FOR                          *   FILE 223
//*   T            SAS INSTITUTE CONTRIBUTIONS                      *   FILE 223
//*   K ICF CATALOG ICFLIST ICFDUMP                                 *   FILE 223
//*   K ISPF FSLISTC FSLISTA SCANPDS V35 SAS INSTITUTE              *   FILE 223
//*                                                                 *   FILE 223
//*      RELATED FILES:  222, 161-164, 227, 228                     *   FILE 223
//*                                                                 *   FILE 223
//*      ICFDUMP:                                                   *   FILE 223
//*                                                                 *   FILE 223
//*           AN APF-AUTHORIZED PROGRAM FOR DUMPING AN ICF          *   FILE 223
//*           CATALOG TO A VBS FILE.  SAMPLE JCL IS IN FILE 222.    *   FILE 223
//*                                                                 *   FILE 223
//*      ISPF UTILITIES:                                            *   FILE 223
//*                                                                 *   FILE 223
//*           LOAD MODULES FOR UTILITIES DESCRIBED IN FILE 161.     *   FILE 223
//*                                                                 *   FILE 223
//***FILE 224 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 224
//*           THIS MEANS "SPLA TAPE FILE 124".                      *   FILE 224
//*                                                                 *   FILE 224
//*   H F000224 D=OCT85                                             *   FILE 224
//*   T FILE 224 - JCL USED TO CREATE THIS TAPE                     *   FILE 224
//*   K JCL UNLOAD CREATE V34 TEC012                                *   FILE 224
//*                                                                 *   FILE 224
//*      THIS IS THE JCL USED TO CREATE THE MASTER TAPE.            *   FILE 224
//*                                                                 *   FILE 224
//***FILE 225 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 225
//*           THIS MEANS "SPLA TAPE FILE 125".                      *   FILE 225
//*                                                                 *   FILE 225
//*   H F000225 D=OCT85                                             *   FILE 225
//*   T FILE 225 - MVS DUMP ANALYSIS EXITS FROM AMDAHL CORP.        *   FILE 225
//*   K DUMP ANALYSIS AMDPRDMP EXITS AMDAHL                         *   FILE 225
//*                                                                 *   FILE 225
//*      RELATED FILES: 226                                         *   FILE 225
//*                                                                 *   FILE 225
//*      THIS FILE CONTAINS DOCUMENTATION FOR THE AMDAHL MVS        *   FILE 225
//*      DUMP ANALYSIS EXITS.  NOTE IT CONTAINS LOWER CASE          *   FILE 225
//*      CHARACTERS.                                                *   FILE 225
//*                                                                 *   FILE 225
//***FILE 226 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 226
//*           THIS MEANS "SPLA TAPE FILE 126".                      *   FILE 226
//*                                                                 *   FILE 226
//*   H F000226 D=OCT85                                             *   FILE 226
//*   T FILE 226 - MVS DUMP ANALYSIS EXITS FROM AMDAHL CORP.        *   FILE 226
//*   K DUMP ANALYSIS AMDPRDMP EXITS AMDAHL                         *   FILE 226
//*                                                                 *   FILE 226
//*      RELATED FILES: 225                                         *   FILE 226
//*                                                                 *   FILE 226
//*      THIS FILE CONTAINS THE SOURCE CODE FOR THE AMDAHL DUMP     *   FILE 226
//*      ANALYSIS EXITS.                                            *   FILE 226
//*                                                                 *   FILE 226
//***FILE 227 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 227
//*           THIS MEANS "SPLA TAPE FILE 127".                      *   FILE 227
//*                                                                 *   FILE 227
//*   H F000227 D=FEB86                                             *   FILE 227
//*   T FILE 227 - MACRO LIBRARY FOR SAS INSTITUTE CONTRIBUTIONS    *   FILE 227
//*   K ISPF MACROS FSLISTC FSLISTA SCANPDS V35 SAS INSTITUTE       *   FILE 227
//*                                                                 *   FILE 227
//*      RELATED FILES  161, 162, 163, 164, 223, 228                *   FILE 227
//*                                                                 *   FILE 227
//*      MACROS REQUIRED TO ASSEMBLE THE SOURCE IN FILE 164         *   FILE 227
//*                                                                 *   FILE 227
//***FILE 228 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 228
//*           THIS MEANS "SPLA TAPE FILE 128".                      *   FILE 228
//*                                                                 *   FILE 228
//*   H F000228 D=FEB86                                             *   FILE 228
//*   T FILE 228 - TABLE LIBRARY FOR SAS INSTITUTE CONTRIBUTIONS    *   FILE 228
//*   K ISPF TABLES FSLISTC FSLISTA SCANPDS V35 SAS INSTITUTE       *   FILE 228
//*                                                                 *   FILE 228
//*      RELATED FILES  161, 162, 163, 164, 223, 227                *   FILE 228
//*                                                                 *   FILE 228
//*      ISPF TABLES FOR USE WITH SAS INSTITUTE CONTRIBUTIONS       *   FILE 228
//*                                                                 *   FILE 228
//***FILE 229 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 229
//*           THIS MEANS "SPLA TAPE FILE 129".                      *   FILE 229
//*                                                                 *   FILE 229
//*   H F000229 D=APR86                                             *   FILE 229
//*   T FILE 229 - HEL AND TSOHELP FULL-SCREEN HELP                 *   FILE 229
//*   T            TOOLS FROM ROCKWELL                              *   FILE 229
//*   K ISPF HEL TSOHELP HELP TSO V36 ROCKWELL COMMAND              *   FILE 229
//*                                                                 *   FILE 229
//*      RELATED FILES 230                                          *   FILE 229
//*                                                                 *   FILE 229
//*      THIS PDS CONTAINS THE FOLLOWING MEMBERS:                   *   FILE 229
//*                                                                 *   FILE 229
//*      $$$DOC                                                     *   FILE 229
//*      MACROS    MACROS NEEDED TO ASSEMBLE HEL AND TSOHELP        *   FILE 229
//*                NOTE: YOU ALSO NEEDED THE MACROS CONTAINED       *   FILE 229
//*                IN FILE 130 ON THIS TAPE TO ASSEMBLE             *   FILE 229
//*                TSOHELP.                                         *   FILE 229
//*                                                                 *   FILE 229
//*      MSGS      ISPF MESSAGES                                    *   FILE 229
//*      PANELS    ISPF PANELS                                      *   FILE 229
//*      SOURCE    ASSEMBLER SOURCE FOR PROGRAMS HEL AND TSOHELP    *   FILE 229
//*                                                                 *   FILE 229
//*          SUBMITTED BY:                                          *   FILE 229
//*                                                                 *   FILE 229
//*               LIONEL B. DYCK                                    *   FILE 229
//*               KAISER PERMANENTE                                 *   FILE 229
//*               25 NORTH VIA MONTE                                *   FILE 229
//*               WALNUT CREEK, CALIFORNIA 94598                    *   FILE 229
//*                                                                 *   FILE 229
//*               IBMMAIL:  USKFHEFH                                *   FILE 229
//*               INTERNET: SYSLBD@NCAL.KAIPERM.ORG                 *   FILE 229
//*               IBMLINK:  SYSLBD                                  *   FILE 229
//*               PHONE:    (510) 926-5332                          *   FILE 229
//*                                                                 *   FILE 229
//***FILE 230 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 230
//*           THIS MEANS "SPLA TAPE FILE 130".                      *   FILE 230
//*                                                                 *   FILE 230
//*   H F000230 D=APR86                                             *   FILE 230
//*   T FILE 230 - GUIDE ISPF MODS TAPE ISPF MACRO LIBRARY          *   FILE 230
//*   K ISPF MACRO GUIDE V36 ROCKWELL                               *   FILE 230
//*                                                                 *   FILE 230
//*      RELATED FILES 229                                          *   FILE 230
//*                                                                 *   FILE 230
//*      THIS PDS CONTAINS THE MACRO LIBRARY FROM THE GUIDE ISPF    *   FILE 230
//*      MODS TAPE.  THESE MACROS ARE NEEDED TO ASSEMBLE TSOHELP    *   FILE 230
//*      ON FILE 229.                                               *   FILE 230
//*                                                                 *   FILE 230
//***FILE 231 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 231
//*           THIS MEANS "SPLA TAPE FILE 131".                      *   FILE 231
//*                                                                 *   FILE 231
//*   H F000231 D=AUG86                                             *   FILE 231
//*   T FILE 231 - OS/MVT RPG COMPILER LOAD MODULES                 *   FILE 231
//*   T            FROM US AIR FORCE                                *   FILE 231
//*   K OS MVT RPG FREE AIR FORCE                                   *   FILE 231
//*   K JIM MARSHALL V37                                            *   FILE 231
//*                                                                 *   FILE 231
//*      OS/MVT RPG COMPILER                                        *   FILE 231
//*      RELATED FILES: 117   DOCUMENTATION FOR ALL FILES IN        *   FILE 231
//*                           MEMBER $$PROSE IN FILE 117            *   FILE 231
//*                                                                 *   FILE 231
//***FILE 232 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 232
//*           THIS MEANS "SPLA TAPE FILE 132".                      *   FILE 232
//*                                                                 *   FILE 232
//*   H F000232 D=AUG86                                             *   FILE 232
//*   T FILE 232 - VANILLA OS/360 FORTRAN H                         *   FILE 232
//*   T            COMPILER AND LIBRARY USAF                        *   FILE 232
//*   K OS MVT FORTRAN 360 FREE AIR FORCE                           *   FILE 232
//*   K JIM MARSHALL V37                                            *   FILE 232
//*                                                                 *   FILE 232
//*      VANILLA OS/360 FORTRAN H COMPILER AND LIBRARY              *   FILE 232
//*      RELATED FILES: 217   DOCUMENTATION FOR ALL FILES IN        *   FILE 232
//*                           MEMBER $$PROSE IN FILE 217            *   FILE 232
//*                                                                 *   FILE 232
//***FILE 233 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 233
//*           THIS MEANS "SPLA TAPE FILE 133".                      *   FILE 233
//*                                                                 *   FILE 233
//*   H F000233 D=MAY87                                             *   FILE 233
//*   T FILE 233 - SHARE RACF MODS TAPE FROM                        *   FILE 233
//*   T            THE SHARE RACF COMMITTED                         *   FILE 233
//*   K RACF V39 SHARE                                              *   FILE 233
//*                                                                 *   FILE 233
//*      SOURCE: SHARE RACF MODS TAPE VERSION 001                   *   FILE 233
//*                                                                 *   FILE 233
//***FILE 234 IS THE CORRESPONDING SPLA TAPE FILE PLUS 100.         *   FILE 234
//*           THIS MEANS "SPLA TAPE FILE 134".                      *   FILE 234
//*                                                                 *   FILE 234
//*   H F000234 D=OCT89                                             *   FILE 234
//*   T FILE 234 - UTILITIES FROM FIRST NATIONAL BANK,              *   FILE 234
//*   T            DALY CITY, CA.                                   *   FILE 234
//*   K RACF V39 SHARE                                              *   FILE 234
//*                                                                 *   FILE 234
//*      UTILITIES: DAYTIMER - A CLIST WHICH NOTIFIES YOU OF        *   FILE 234
//*                            APPOINTMENTS                         *   FILE 234
//*                 PSUTDUMP - A SUPER-GENER UTILITY                *   FILE 234
//*                 PSUTEOF  - PUTS EOF IN A NEWLY-ALLOCATED        *   FILE 234
//*                            DATASET                              *   FILE 234
//*                 PSUTEOF  - PUTS EOF IN A NEWLY-ALLOCATED        *   FILE 234
//*                            DATASET                              *   FILE 234
//*                 PSUTGDG  - PRINTS GDG INFORMATION FROM A        *   FILE 234
//*                            IDCAMS LISTING                       *   FILE 234
//*                                                                 *   FILE 234
//***FILE 235 IS CURRENTLY EMPTY                                    *   FILE 235
//*                                                                 *   FILE 235
//***FILE 236 IS CURRENTLY EMPTY                                    *   FILE 236
//*                                                                 *   FILE 236
//***FILE 237 IS CURRENTLY EMPTY                                    *   FILE 237
//*                                                                 *   FILE 237
//***FILE 238 IS CURRENTLY EMPTY                                    *   FILE 238
//*                                                                 *   FILE 238
//***FILE 239 IS CURRENTLY EMPTY                                    *   FILE 239
//*                                                                 *   FILE 239
//***FILE 240 IS THE MACHINE-READABLE SOURCE FOR 'MVS IS BREAKING   *   FILE 240
//*           MY HEART' SINCE ITS ORIGINAL RELEASE IN 1975,  THE    *   FILE 240
//*           PRODUCT HAS HAD ONLY ONE SERVICE UPDATE  AND THAT     *   FILE 240
//*           WAS AN RPQ RATHER THAN A BUG (IDENTIFIED IN THE       *   FILE 240
//*           TEXT AS BWM78311).  THIS FILE ALSO CONTAINS A COPY    *   FILE 240
//*           OF THE ACRONYM AND ABBREVIATION QUIZ THAT WAS         *   FILE 240
//*           CREATED FOR THE 30TH ANNIVERSARY MEETING OF SHARE IN  *   FILE 240
//*           AUGUST 1985 IN NEW ORLEANS                            *   FILE 240
//*                                                                 *   FILE 240
//*           (FOR THE UNINITIATED, THIS IS NOT A PROGRAM, BUT A    *   FILE 240
//*            POEM.  NOT MUCH DIFFERENCE.  VAGUELY CREATIVE...     *   FILE 240
//*            IT COMES FROM THE TIME WHEN MVS WAS FIRST RELEASED   *   FILE 240
//*            AND IT HAD --- SHALL WE SAY --- CERTAIN PROBLEMS.)   *   FILE 240
//*                                                            SG   *   FILE 240
//*                                                                 *   FILE 240
//***FILE 241 CONTAINS A COPY OF SPY AND CONSOLE FOR MVS XA 2.2.0   *   FILE 241
//*           FROM MR SAM THEIS OF CHEVRON GEOSCIENCES COMPANY      *   FILE 241
//*           OF HOUSTON,  TEXAS.  THIS CODE IS ALSO KNOWN AS       *   FILE 241
//*           DIDOCS.                                               *   FILE 241
//*                                                                 *   FILE 241
//***FILE 242 IS FROM MR DAN F. GREINER OF AMDAHL AND CONTAINS      *   FILE 242
//*           A COPY OF THEIR MVS DUMP ANALYSIS EXITS.  THIS FILE   *   FILE 242
//*           IS IN IEBDUPTE SYSIN FORMAT, FOR ADDITIONAL           *   FILE 242
//*           INFORMATION SEE THE MEMBER CALLED $$DOC.  I QUOTE     *   FILE 242
//*           FROM THE LETTER WHICH ACCOMPANIED THE CONTRIBUTION:   *   FILE 242
//*           "THE MACHINE READABLE DOCUMENTATION ON THE FIRST      *   FILE 242
//*           FILE (CALLED $$DOC IN THIS PDS) SPECIFIES SLIGHTLY    *   FILE 242
//*           MORE RESTRICTIVE TERMS OF DISTRIBUTION THAN THOSE     *   FILE 242
//*           IN THE "SHARE MVS GROUP MODS TAPE" SUBMITTAL FORM.    *   FILE 242
//*           OBVIOUSLY, IN MAKING THIS SOFTWARE AVAILABLE TO THE   *   FILE 242
//*           PUBLIC, WE HAVE NO MEANS OF ENFORCING THIS            *   FILE 242
//*           RESTRICTION.  HOWEVER, WE WOULD APPRECIATE IT IF THE  *   FILE 242
//*           DISCLAIMER REMAINS IN THE DOCUMENTATION".             *   FILE 242
//*                                                                 *   FILE 242
//*           THE FOLLOWING IS A LIST OF MEMBERS IN THIS FILE :     *   FILE 242
//*                                                                 *   FILE 242
//*           AMDECODE - EXIT TO DECODE INSTRUCTIONS FROM AREAS     *   FILE 242
//*                      WITHIN THE DUMP                            *   FILE 242
//*           AMDMAC   - EXIT TO MAP AN AREA OF DUMPED MEMORY       *   FILE 242
//*                      ACCORDING TO A DSECT                       *   FILE 242
//*           AMDMTRC  - EXIT TO FORMAT THE IN-CORE TRACE TABLE     *   FILE 242
//*                      OF CONSOLE BUFFERS                         *   FILE 242
//*           AMDPRCSA - EXIT TO FORMAT CSA RELATED CONTROL BLOCKS  *   FILE 242
//*           AMDPRECT - SAMPLE EXIT CONTROL TABLE                  *   FILE 242
//*           AMDPRSCD - EXIT TO FORMAT SCD CONTROL BLOCKS USED     *   FILE 242
//*                      IN HOT I/O DETECTION                       *   FILE 242
//*           AMDPRSQA - EXIT TO FORMAT SQA RELATED CONTROL BLOCKS  *   FILE 242
//*           AMDPRTTE - EXIT TO FORMAT MVS/SP 1.3 TRACE TABLES     *   FILE 242
//*           AMDPRUCB - EXIT TO FORMAT UCBS                        *   FILE 242
//*           AMD3270 -  EXIT TO PROVIDE 31-BIT FULL-SCREEN         *   FILE 242
//*                      DISPLAY OF DUMPED MEMORY                   *   FILE 242
//*           AMXPRSCD - MVS/XA VERSION OF AMDPRSCD                 *   FILE 242
//*           ASMEXITS - JCL REQUIRED TO ASSEMBLE AND LINK THE      *   FILE 242
//*                      EXITS INTO A LOAD LIBRARY                  *   FILE 242
//*                                                                 *   FILE 242
//***FILE 243 IS VERSION 5 OF THE MVS TUNING REPORT, JULY 1983      *   FILE 243
//*           FROM THE SHARE MVS TUNING PROJECT.  THIS FILE         *   FILE 243
//*           CONTAINS UPPER AND LOWER CASE CHARACTERS AND IS FBM   *   FILE 243
//*           FORMAT, THIS IS THE LATEST VERSION OF THIS REPORT.    *   FILE 243
//*                                                                 *   FILE 243
//***FILE 244 IS JES2 4.2.0 AND 4.3.0 VERSION OF QUEUE FROM         *   FILE 244
//*           WILLIAM HECOX OF MARYLAND, FORMERLY OF NASA/GSFC.     *   FILE 244
//*           THIS VERSION OF QUEUE IS VERY SIMILAR TO JACK         *   FILE 244
//*           SCHUDEL'S OLDER VERSIONS OF QUEUE.  SEVERAL NEW       *   FILE 244
//*           FEATURES HAVE BEEN ADDED.  QUEUE IS A TSO COMMAND     *   FILE 244
//*           TO LOOK AT JES2 SPOOL DATASETS.                       *   FILE 244
//*                                                                 *   FILE 244
//*           QUEUE CAN DO SEVERAL THINGS THAT SDSF CAN'T DO.       *   FILE 244
//*           AMONG THESE ARE THE ABILITY TO LOOK AT JES2           *   FILE 244
//*           CONTROL BLOCKS, AND AT LIVE CHECKPOINT DATA.          *   FILE 244
//*           ALSO, THE ORIGINAL JCL CAN BE SEEN (AS WELL AS        *   FILE 244
//*           THE JCL THAT HAS BEEN DIGESTED BY JES2).  MVS         *   FILE 244
//*           CONVERTER TEXT IS ALSO DISPLAYABLE AND COPYABLE       *   FILE 244
//*           TO A DATASET, AS WELL AS JES2 JOURNAL DATA FOR        *   FILE 244
//*           A JOB.                                                *   FILE 244
//*                                                                 *   FILE 244
//*           ALL THIS STUFF HELPS YOU IF YOU'RE TRYING TO          *   FILE 244
//*           WRITE A JES2 EXIT, OR ANOTHER RELATED PROGRAM,        *   FILE 244
//*           AND YOU ACTUALLY WANT TO LOOK AT A "LIVE" JCT,        *   FILE 244
//*           OR A CHECKPOINT RECORD, AND THE LIKE.                 *   FILE 244
//*                                                                 *   FILE 244
//*           A NEW MEMBER WAS ADDED CALLED $$$FOR43, THAT HAS      *   FILE 244
//*           VERSIONS OF WHATEVER MEMBERS ARE NECESSARY SO THAT    *   FILE 244
//*           QUEUE CAN BE RUN ON JES2 4.3.0.                       *   FILE 244
//*                                                                 *   FILE 244
//*           VINH VU FIX IF SPOOL VOLUMES HAVE SHORT NAMES (8/95)  *   FILE 244
//*                                                                 *   FILE 244
//***FILE 245 IS CURRENTLY EMPTY                                    *   FILE 245
//*                                                                 *   FILE 245
//***FILE 246 IS CURRENTLY EMPTY                                    *   FILE 246
//*                                                                 *   FILE 246
//***FILE 401 IS FROM BELLCORE AND CONTAINS THE SOURCE CODE,        *   FILE 401
//*           MACROS AND TSO COMMAND PROCESSORS REQUIRED TO RUN     *   FILE 401
//*           VERSION 4.3 OF THE TSSO SUBSYSTEM.                    *   FILE 401
//*                                                                 *   FILE 401
//*   >>>>>   PLEASE SEE DOCUMENTATION IN FILE 403.  IT IS          *   FILE 401
//*   >>>>>   PREFERRED TO INSTALL TSSO FROM FILE 403 INSTEAD OF    *   FILE 401
//*   >>>>>   FROM THIS FILE, ESPECIALLY FOR NEWER MVS SYSTEMS.     *   FILE 401
//*   >>>>>   HOWEVER, THIS DOCUMENTATION ABOUT FILES 401 AND 402   *   FILE 401
//*   >>>>>   APPLIES TO FILE 403.                                  *   FILE 401
//*                                                                 *   FILE 401
//*           THE TIME SHARING SUBSYSTEM OPTION (TSSO) IS A         *   FILE 401
//*           PACKAGE DESIGNED TO INCREASE OPERATOR PRODUCTIVITY    *   FILE 401
//*           BY AUTOMATING TASKS WHICH NEED NOT BE PERFORMED       *   FILE 401
//*           MANUALLY.  TSSO PERFORMS ITS FUNCTION THROUGH THREE   *   FILE 401
//*           INTEGRATED COMPONENTS.  THE OPERATOR PRODUCTIVITY     *   FILE 401
//*           FACILITY (OPF) EXTENDS THE POWER OF TSO TO THE        *   FILE 401
//*           MVS OPERATOR'S CONSOLE.  THE AUTOMATED OPERATIONS     *   FILE 401
//*           FACILITY (AOF) ENHANCES AN INSTALLATION'S             *   FILE 401
//*           ABILITY TO CONTROL SYSTEM EVENTS BASED ON CONSOLE     *   FILE 401
//*           MESSAGE TRAFFIC.  AN INTERFACE TO THE NETWORK         *   FILE 401
//*           COMMUNICATION CONTROL FACILITY (NCCF) ALLOWS THE      *   FILE 401
//*           NETWORK OPERATOR TO USE TSSO AS A COMMAND PROCESSOR,  *   FILE 401
//*           ISSUING AND RECEIVING OPERATING SYSTEM COMMANDS AT    *   FILE 401
//*           THE NCCF TERMINAL.  TSSO ALSO ENHANCES END-USER       *   FILE 401
//*           PRODUCTIVITY BY ALLOWING END-USER ACCESS TO THE MVS   *   FILE 401
//*           COMMAND SUBSYSTEM.  A COMPLETE USERS GUIDE,           *   FILE 401
//*           INCLUDING DETAILED INSTALLATION INSTRUCTIONS EXISTS   *   FILE 401
//*           IN MEMBER UG43TERM IN THIS FILE.                      *   FILE 401
//*                                                                 *   FILE 401
//*           A GUIDE TO THE NEW FEATURES OF TSSO VERSION 4,        *   FILE 401
//*           RELEASE 3 IS IN THE MEMBER RELGDE43 IN THIS FILE.     *   FILE 401
//*                                                                 *   FILE 401
//*           ANYONE WITH AN INTEREST IN AUTOMATED OPERATIONS IS    *   FILE 401
//*           INVITED TO LOOK AT TSSO AS A SOFTWARE TOOL PROVIDING  *   FILE 401
//*           MANY OF THE PRIMITIVES REQUIRED FOR COMMON AUTOMATED  *   FILE 401
//*           OPERATIONS TASKS.  THESE PRIMITIVES INCLUDE THE       *   FILE 401
//*           HILIGHTING, LOWLIGHTING, REPLYING AND REACTING TO     *   FILE 401
//*           OPERATING SYSTEM MESSAGES.  THIS IS IN ADDITION TO    *   FILE 401
//*           THE ABILITY TO ISSUE A COMMAND AND RETRIEVE THE       *   FILE 401
//*           RESPONSE IN CLIST VARIABLES.                          *   FILE 401
//*                                                                 *   FILE 401
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT.                *   FILE 401
//*                                                                 *   FILE 401
//***FILE 402 IS FROM DAVID CARTWRIGHT OF SPRECHER ENERGIE OF       *   FILE 402
//*           OBERENTFELDEN, SWITZERLAND.  THIS FILE CONTAINS HIS   *   FILE 402
//*           MODIFICATIONS TO TSSO 4.3 WHICH IS ON FILE 401.       *   FILE 402
//*           THIS FILE IS INCLUDED ON THIS TAPE MAINLY FOR         *   FILE 402
//*           REFERENCE.  THE ENHANCEMENTS TO TSSO FROM THIS FILE   *   FILE 402
//*           ARE INCORPORATED IN TSSO FILE 403.  IF YOU WANT THE   *   FILE 402
//*           FEATURES OF THIS FILE, YOU SHOULD INSTALL TSSO FROM   *   FILE 402
//*           FILE 403 ONLY ....                                    *   FILE 402
//*                                                                 *   FILE 402
//*         THE PURPOSE OF THESE MODIFICATIONS IS TO ALLOW TSSO     *   FILE 402
//*         TO HANDLE AUTOMATED MESSAGE PROCESSING WITH MULTI-      *   FILE 402
//*         LINE WTO'S AND TO DO OTHER NEW FUNCTIONS.  BECAUSE      *   FILE 402
//*         WE DID NOT HAVE A CHANCE TO TEST ALL FUNCTION CHANGES   *   FILE 402
//*         FROM TSSO ON FILE 401, WE ARE KEEPING THIS FILE         *   FILE 402
//*         SEPARATE SO THAT ITS MERITS CAN BE EVALUATED BY         *   FILE 402
//*         EACH INSTALLATION USING IT.  THIS FILE HAS BEEN         *   FILE 402
//*         MERGED INTO TSSO 4.3 BY GUY ALBERTELLI.  SO IT'S        *   FILE 402
//*         PROBABLY BEST TO IGNORE THIS FILE AND INSTALL FILE      *   FILE 402
//*         403 INSTEAD.                                            *   FILE 402
//*                                                                 *   FILE 402
//*      SPRECHER ENERGIE AG NEITHER EXPRESS NOR IMPLY ANY          *   FILE 402
//*      WARRANTY AS TO THE FITNESS OF THESE COMPUTER PROGRAMS      *   FILE 402
//*      FOR ANY FUNCTION.  THE USE OF THESE PROGRAMS OR THE        *   FILE 402
//*      RESULTS THEREOF IS ENTIRELY AT THE RISK OF THE USER.       *   FILE 402
//*                                                                 *   FILE 402
//*      THESE PROGRAMS HAD BEEN CONTRIBUTED TO THE CBT TAPE BY:    *   FILE 402
//*                                                                 *   FILE 402
//*         MARC SCHARE   (FORMERLY OF)                             *   FILE 402
//*         BELL COMMUNICATIONS RESEARCH, INC.                      *   FILE 402
//*         PISCATAWAY, NJ 08854                                    *   FILE 402
//*                                                                 *   FILE 402
//*         CURRENT ADDRESS:  LEGENT CORP.                          *   FILE 402
//*                           7965 N. HIGH STREET                   *   FILE 402
//*                           COLUMBUS, OHIO                        *   FILE 402
//*                                                                 *   FILE 402
//*         TELEPHONE:  800-829-9000                                *   FILE 402
//*                OR:  614-888-1775                                *   FILE 402
//*                                                                 *   FILE 402
//*      I THINK BILL GODFREY HAD A HAND IN IT SOMEWHERE.           *   FILE 402
//*      (HE CERTAINLY DID.  HE WROTE THE ORIGINAL TSSO WHICH IS    *   FILE 402
//*      ON FILE 306 OF THIS TAPE.)                                 *   FILE 402
//*                                                                 *   FILE 402
//*      A BIG VOTE OF THANKS IS DUE TO MARC AND TO SAM GOLOB FOR   *   FILE 402
//*      DISTRIBUTING TSSO ON THE CBT TAPE.                         *   FILE 402
//*                                                                 *   FILE 402
//*      THESE PROGRAMS HAVE BEEN MODIFIED BY:                      *   FILE 402
//*                                                                 *   FILE 402
//*               DAVID CARTWRIGHT                                  *   FILE 402
//*                                                                 *   FILE 402
//*                     >>>>  DAVE'S CURRENT ADDRESS:  >>>          *   FILE 402
//*                                                                 *   FILE 402
//*       (COMPANY ADDRESS)                                         *   FILE 402
//*                                     DAVID CARTWRIGHT            *   FILE 402
//*          SPRECHER ENERGIE AG        103 DARNICK ROAD            *   FILE 402
//*          CH-5036 OBERENTFELDEN      SUTTON COLDFIELD,           *   FILE 402
//*          SWITZERLAND                WEST MIDLANDS B73 6PF       *   FILE 402
//*          TEL.  064/45 33 88         ENGLAND                     *   FILE 402
//*          FAX   064/45 33 71         TEL.  44-1-21-355-3190      *   FILE 402
//*                                                                 *   FILE 402
//*   -----------------------------------------------------------   *   FILE 402
//*                                                                 *   FILE 402
//*                   TSSO RELEASE 4.3SE                            *   FILE 402
//*                                                                 *   FILE 402
//*    WE HAVE MODIFIED TSSO TO REDUCE TO OVERHEAD OF RUNNING IT    *   FILE 402
//*    AND TO HANDLE MULTI LINE WTO'S.  NOW YOU CAN AUTOMATE YOUR   *   FILE 402
//*    NETWORK.  UPDATED NOVEMBER 1992 WITH MPF SUPPRESSION.        *   FILE 402
//*                                                                 *   FILE 402
//*     $DOC     DOCUMENTATION OF PUBLIC DOMAIN OFFERING            *   FILE 402
//*     $INSTALL ASSEMBLE SPECIFIC MODULES FROM SEAG                *   FILE 402
//*     @INDEX   LIST OF CONTENTS OF MEMBERS                        *   FILE 402
//*     AOFSEAG  SPRECHER AUTOMATION TABLE USES MLWTO SUPPORT       *   FILE 402
//*     CLISTS   CONTAINS SPRECHER DEVELOPED CLISTS                 *   FILE 402
//*      NOPAPER DISABLES JES328X PRINTERS WITH INTVN REQD          *   FILE 402
//*      PRIME   TEST FOR PRIME SHIFT AND GIVE RC(0)                *   FILE 402
//*      RMTGO   AUTOMATICALLY START RMT PRINTER ON FORM CHANGE     *   FILE 402
//*     SEAGUGIP UOW SCRIPT INPUT OF DOCUMENTATION FOR SEAG MODS    *   FILE 402
//*     SEAGUGOP DOCUMENTATION ON SPRECHER MODS (ASA)               *   FILE 402
//*     SESS09   SPRECHER ENERGIE VERSION OF TSSOSS09               *   FILE 402
//*                                                                 *   FILE 402
//***FILE 403 IS FROM GUY ALBERTELLI OF B.F. GOODRICH IN            *   FILE 403
//*           BRECKSVILLE OHIO.  THIS FILE CONTAINS A MERGE OF      *   FILE 403
//*           FILE 402 INTO FILE 401, WHICH WAS TESTED, RUN, AND    *   FILE 403
//*           SOMEWHAT REDESIGNED.  THIS IS THE LATEST VERSION      *   FILE 403
//*           OF TSSO THAT IS ON THIS TAPE.                         *   FILE 403
//*                                                                 *   FILE 403
//*           THIS VERSION OF TSSO HAS BEEN TESTED TO RUN ON        *   FILE 403
//*           MVS/ESA 4.2.                                          *   FILE 403
//*                                                                 *   FILE 403
//*           THIS FILE CONTAINS TSSO VERSION 4.3 PLUS, WHICH IS    *   FILE 403
//*           A VERSION OF TSSO THAT RUNS ON MVS/ESA 4.2 AND        *   FILE 403
//*           WHICH HANDLES MULTI-LINE WTO'S TOO.  THIS FILE IS     *   FILE 403
//*           PREFERRED TO BE INSTALLED OVER FILE 401.  SEE DOC     *   FILE 403
//*           ON FILE 401.                                          *   FILE 403
//*                                                                 *   FILE 403
//*           ABOVE DOCUMENTATION FROM FILES 401 AND 402 APPLIES TO *   FILE 403
//*           THIS FILE.  INTERNAL DOCUMENTATION IS SUPPLIED ON     *   FILE 403
//*           THE FILE ITSELF.                                      *   FILE 403
//*                                                                 *   FILE 403
//*           SEE FILE 404 FOR THE LATEST VERSION OF TSSO.          *   FILE 403
//*           (SG 09/97)                                            *   FILE 403
//*                                                                 *   FILE 403
//***FILE 250 IS CURRENTLY EMPTY                                    *   FILE 250
//*                                                                 *   FILE 250
//***FILE 251 IS CURRENTLY EMPTY                                    *   FILE 251
//*                                                                 *   FILE 251
//***FILE 252 IS CURRENTLY EMPTY                                    *   FILE 252
//*                                                                 *   FILE 252
//***FILE 253 IS CURRENTLY EMPTY                                    *   FILE 253
//*                                                                 *   FILE 253
//***FILE 254 IS CURRENTLY EMPTY                                    *   FILE 254
//*                                                                 *   FILE 254
//***FILE 255 IS CURRENTLY EMPTY                                    *   FILE 255
//*                                                                 *   FILE 255
//***FILE 256 IS CURRENTLY EMPTY                                    *   FILE 256
//*                                                                 *   FILE 256
//***FILE 257 IS CURRENTLY EMPTY                                    *   FILE 257
//*                                                                 *   FILE 257
//***FILE 258 IS CURRENTLY EMPTY                                    *   FILE 258
//*                                                                 *   FILE 258
//***FILE 259 IS CURRENTLY EMPTY                                    *   FILE 259
//*                                                                 *   FILE 259
//***FILE 260 is the documentation for the SHARE PL/1 Tape, which   *   FILE 260
//*           is no longer being supported by SHARE, so it has      *   FILE 260
//*           been transplanted here.  This file is an IEBUPDTE     *   FILE 260
//*           SYSIN-format pds (compressed), and it contains the    *   FILE 260
//*           contents of the first ten files of the SHARE PL/1     *   FILE 260
//*           Tape, which are mostly documentation.  Since these    *   FILE 260
//*           same materials, on the CBT Overflow Tape, occupy      *   FILE 260
//*           different file slots than they did on the original    *   FILE 260
//*           SHARE PL/1 Tape, a mapping follows, so you can see    *   FILE 260
//*           where the same files have been rearranged here.       *   FILE 260
//*                                                                 *   FILE 260
//*           Files 260 through 295 are devoted to the materials    *   FILE 260
//*           from the SHARE PL/1 Tape.  I've left File 270 empty,  *   FILE 260
//*           for expansion, if needed.  All the materials from     *   FILE 260
//*           the PL/1 tape have been moved to here.                *   FILE 260
//*                                                                 *   FILE 260
//*           Some of the files have been regrouped according to    *   FILE 260
//*           a logical plan.  The ABE Editor files, originally     *   FILE 260
//*           9 files on a tape, have been put together again.      *   FILE 260
//*           Separate files from other packages have been grouped  *   FILE 260
//*           together as pds members in one file, if this seemed   *   FILE 260
//*           logically like a good arrangement.                    *   FILE 260
//*                                                                 *   FILE 260
//*           These materials are now being supported by Sam        *   FILE 260
//*           Golob, so all the contributor information is now      *   FILE 260
//*           superseded.  Contributors should send contributions   *   FILE 260
//*           to Sam Golob at  sbgolob@attglobal.net    and/or      *   FILE 260
//*           sbgolob@aol.com .                                     *   FILE 260
//*                                                                 *   FILE 260
//*           CBT Tape Web Site:  http://www.cbttape.org            *   FILE 260
//*                                                                 *   FILE 260
//*           Sam Golob,  P.O. Box 906,  Tallman, NY 10982-0906     *   FILE 260
//*                       phone:   845-362-1996                     *   FILE 260
//*                                                                 *   FILE 260
//*   Mapping of Files from the SHARE PL/1 Tape to this tape:       *   FILE 260
//*                                                                 *   FILE 260
//*   PL/1 SHARE Tape    CBT Overflow Tape   Short Description      *   FILE 260
//*   ---- ----- ----    --- -------- ----   ----- -----------      *   FILE 260
//*   Files 01 - 10 :    File  260  (members FILE01 thru FILE10)    *   FILE 260
//*   Files 11 - 14 :    Files 261 - 264   /  ABE                   *   FILE 260
//*   Files 17 - 18 :    Files 265 - 266  <    Editor               *   FILE 260
//*   Files 47 - 49 :    Files 267 - 269   \    (Tom Smith)         *   FILE 260
//*   Files 24 - 27 :    Files 271 - 274    /                       *   FILE 260
//*   File  28 :         File  274         /  QUANDRY               *   FILE 260
//*   Files 29 - 31 :    Files 275 - 277   \    System              *   FILE 260
//*   File  32 :         File  277          \                       *   FILE 260
//*   Files 15 - 17 :    Files 278 - 280   Teledyne Script System   *   FILE 260
//*   File  20 - 22 :    File  281         PL1 Execution Analyzer   *   FILE 260
//*   File  23 :         File  282         PL1 SORT Interface       *   FILE 260
//*   File  33 :         File  283         Load Lib Analysis Pgms   *   FILE 260
//*   File  34 :         File  284         Statistical Subrtns      *   FILE 260
//*   Files 35 , 37      File  285         Mike Robinson Pgms       *   FILE 260
//*   File  36 :         File  286         Mike Robinson Pgms       *   FILE 260
//*   File  38 :         File  287         PLEA for VM              *   FILE 260
//*   File  39 - 40 :    File  288         PL1 3270 Interface       *   FILE 260
//*   File  41 :         File  289         PL1 IMS Interface        *   FILE 260
//*   File  42 :         File  290         Display DS as Dump       *   FILE 260
//*   File  43 :         File  291         PL1 3270 Interface       *   FILE 260
//*   File  44 :         File  292         Chart of Subrtn calls    *   FILE 260
//*   File  45 :         File  293         PL1 CMS Enhancer         *   FILE 260
//*   File  46 :         File  294         Complex PDS search pgm   *   FILE 260
//*   File  50 :         File  295         REXX Functions in PL1    *   FILE 260
//*                                                                 *   FILE 260
//***FILE 261 is the ABE File Editor from Thomas G. Smith of        *   FILE 261
//*           Kimberly-Clark in Neenah, Wisconsin.  This editor     *   FILE 261
//*           is written primarily in PL/1 with Assembler           *   FILE 261
//*           subroutines.  The entire package consists of 9 files, *   FILE 261
//*           which map into this tape as mentioned below.          *   FILE 261
//*                                                                 *   FILE 261
//*           Files for the ABE Editor are Files 261 - 269 of       *   FILE 261
//*           the CBT Overflow Tape.                                *   FILE 261
//*                                                                 *   FILE 261
//*         author:           Tom Smith - TCC                       *   FILE 261
//*                           Kimberly-Clark Corp.                  *   FILE 261
//*                           401 North Lake Street                 *   FILE 261
//*                           Neenah, Wisconsin 54956               *   FILE 261
//*                                                                 *   FILE 261
//*         personal phone:   (920) 721-2174                        *   FILE 261
//*         main number:      (920) 721-2000                        *   FILE 261
//*                                                                 *   FILE 261
//*         email:            "Tom G. Smith" <smitty@kcc.com>       *   FILE 261
//*                                                                 *   FILE 261
//*           This file contains executable load modules for        *   FILE 261
//*           the ABE Editor.                                       *   FILE 261
//*                                                                 *   FILE 261
//*           The ABE (A Better Editor) editor contains enormous    *   FILE 261
//*           capability.  With the ABE Editor, you can even edit   *   FILE 261
//*           load modules.  I believe that ABE has about 200       *   FILE 261
//*           separate subcommands.                                 *   FILE 261
//*                                                                 *   FILE 261
//*           The ABE editor has the look and feel of old FSE       *   FILE 261
//*           (Full Screen Edit) that we used to use on the MVT     *   FILE 261
//*           TSO systems.  But don't let that fool you.  ABE is    *   FILE 261
//*           EXTREMELY robust.  See File 263 for full ABE          *   FILE 261
//*           documentation.                                        *   FILE 261
//*                                                                 *   FILE 261
//*           The nine files are as follows:                        *   FILE 261
//*                                                                 *   FILE 261
//*           File 1 - COV Tape File 261 - ABE Load Modules         *   FILE 261
//*           File 2 - COV Tape File 262 - ABE Help for AID command *   FILE 261
//*           File 3 - COV Tape File 263 - ABE Documentation        *   FILE 261
//*           File 4 - COV Tape File 264 - ABE Source Code          *   FILE 261
//*           File 5 - COV Tape File 265 - ABE Subroutine Doc       *   FILE 261
//*           File 6 - COV Tape File 266 - ABE Subroutine Loadlib   *   FILE 261
//*           File 7 - COV Tape File 267 - ABE Lked control stmts   *   FILE 261
//*           File 8 - COV Tape File 268 - ABE Fortran routines     *   FILE 261
//*           File 9 - COV Tape File 269 - ABE Fortran obj decks    *   FILE 261
//*                                                                 *   FILE 261
//*                  TOM G. SMITH - TCC                             *   FILE 261
//*                  KIMBERLY-CLARK                                 *   FILE 261
//*                  401 NORTH LAKE STREET                          *   FILE 261
//*                  NEENAH, WISCONSIN 54956                        *   FILE 261
//*                  (920) 721-2174                                 *   FILE 261
//*                                                                 *   FILE 261
//*           email:   "Tom G. Smith" <smitty@kcc.com>              *   FILE 261
//*                                                                 *   FILE 261
//***FILE 262 is the ABE File Editor from Thomas G. Smith of        *   FILE 262
//*           Kimberly-Clark in Neenah, Wisconsin.  This editor     *   FILE 262
//*           is written primarily in PL/1 with assembler           *   FILE 262
//*           subroutines.  The entire package consists of 9 files. *   FILE 262
//*                                                                 *   FILE 262
//*           Files for the ABE Editor are Files 261 - 269 of       *   FILE 262
//*           the CBT Overflow Tape.                                *   FILE 262
//*                                                                 *   FILE 262
//*           This file contains executable help members which      *   FILE 262
//*           are used by the AID subcommand of the ABE editor.     *   FILE 262
//*                                                                 *   FILE 262
//*           The ABE (A Better Editor) editor contains enormous    *   FILE 262
//*           capability.                                           *   FILE 262
//*                                                                 *   FILE 262
//***FILE 263 is the ABE File Editor from Thomas G. Smith of        *   FILE 263
//*           Kimberly-Clark in Neenah, Wisconsin.  This editor     *   FILE 263
//*           is written primarily in PL/1 with Assembler           *   FILE 263
//*           subroutines.  The entire package consists of 9 files. *   FILE 263
//*                                                                 *   FILE 263
//*           Files for the ABE Editor are Files 261 - 269 of       *   FILE 263
//*           the CBT Overflow Tape.                                *   FILE 263
//*                                                                 *   FILE 263
//*           This file contains documentation members for the      *   FILE 263
//*           ABE Editor.  The documentation is very extensive.     *   FILE 263
//*                                                                 *   FILE 263
//*           The ABE (A Better Editor) editor contains enormous    *   FILE 263
//*           capability.                                           *   FILE 263
//*                                                                 *   FILE 263
//***FILE 264 is the ABE File Editor from Thomas G. Smith of        *   FILE 264
//*           Kimberly-Clark in Neenah, Wisconsin.  This editor     *   FILE 264
//*           is written primarily in PL/1 with Assembler           *   FILE 264
//*           subroutines.  The entire package consists of 9 files. *   FILE 264
//*                                                                 *   FILE 264
//*           Files for the ABE Editor are Files 261 - 269 of       *   FILE 264
//*           the CBT Overflow Tape.                                *   FILE 264
//*                                                                 *   FILE 264
//*           This file contains the source code for the ABE        *   FILE 264
//*           Editor.                                               *   FILE 264
//*                                                                 *   FILE 264
//*           The ABE (A Better Editor) editor contains enormous    *   FILE 264
//*           capability.                                           *   FILE 264
//*                                                                 *   FILE 264
//***FILE 265 is the ABE File Editor from Thomas G. Smith of        *   FILE 265
//*           Kimberly-Clark in Neenah, Wisconsin.  This editor     *   FILE 265
//*           is written primarily in PL/1 with Assembler           *   FILE 265
//*           subroutines.  The entire package consists of 9 files. *   FILE 265
//*                                                                 *   FILE 265
//*           Files for the ABE Editor are Files 261 - 269 of       *   FILE 265
//*           the CBT Overflow Tape.                                *   FILE 265
//*                                                                 *   FILE 265
//*           This file contains the documentation for the          *   FILE 265
//*           subroutines that are linkedited into the ABE          *   FILE 265
//*           modules.                                              *   FILE 265
//*                                                                 *   FILE 265
//*           The ABE (A Better Editor) editor contains enormous    *   FILE 265
//*           capability.                                           *   FILE 265
//*                                                                 *   FILE 265
//***FILE 266 is the ABE File Editor from Thomas G. Smith of        *   FILE 266
//*           Kimberly-Clark in Neenah, Wisconsin.  This editor     *   FILE 266
//*           is written primarily in PL/1 with Assembler           *   FILE 266
//*           subroutines.  The entire package consists of 9 files. *   FILE 266
//*                                                                 *   FILE 266
//*           Files for the ABE Editor are Files 261 - 269 of       *   FILE 266
//*           the CBT Overflow Tape.                                *   FILE 266
//*                                                                 *   FILE 266
//*           This file contains the load library of subroutines    *   FILE 266
//*           that are linkedited into the load modules of the      *   FILE 266
//*           ABE Editor.                                           *   FILE 266
//*                                                                 *   FILE 266
//*           The ABE (A Better Editor) editor contains enormous    *   FILE 266
//*           capability.                                           *   FILE 266
//*                                                                 *   FILE 266
//***FILE 267 is the ABE File Editor from Thomas G. Smith of        *   FILE 267
//*           Kimberly-Clark in Neenah, Wisconsin.  This editor     *   FILE 267
//*           is written primarily in PL/1 with Assembler           *   FILE 267
//*           subroutines.  The entire package consists of 9 files. *   FILE 267
//*                                                                 *   FILE 267
//*           Files for the ABE Editor are Files 261 - 269 of       *   FILE 267
//*           the CBT Overflow Tape.                                *   FILE 267
//*                                                                 *   FILE 267
//*           This file contains the linkedit control statements    *   FILE 267
//*           necessary to install the load modules of the          *   FILE 267
//*           ABE Editor.                                           *   FILE 267
//*                                                                 *   FILE 267
//*           The ABE (A Better Editor) editor contains enormous    *   FILE 267
//*           capability.                                           *   FILE 267
//*                                                                 *   FILE 267
//***FILE 268 is the ABE File Editor from Thomas G. Smith of        *   FILE 268
//*           Kimberly-Clark in Neenah, Wisconsin.  This editor     *   FILE 268
//*           is written primarily in PL/1 with Assembler           *   FILE 268
//*           subroutines.  The entire package consists of 9 files. *   FILE 268
//*                                                                 *   FILE 268
//*           Files for the ABE Editor are Files 261 - 269 of       *   FILE 268
//*           the CBT Overflow Tape.                                *   FILE 268
//*                                                                 *   FILE 268
//*           This file contains source code for the Fortran        *   FILE 268
//*           graphic routines used by the ABE Editor.              *   FILE 268
//*                                                                 *   FILE 268
//*           The ABE (A Better Editor) editor contains enormous    *   FILE 268
//*           capability.                                           *   FILE 268
//*                                                                 *   FILE 268
//***FILE 269 is the ABE File Editor from Thomas G. Smith of        *   FILE 269
//*           Kimberly-Clark in Neenah, Wisconsin.  This editor     *   FILE 269
//*           is written primarily in PL/1 with Assembler           *   FILE 269
//*           subroutines.  The entire package consists of 9 files. *   FILE 269
//*                                                                 *   FILE 269
//*           Files for the ABE Editor are Files 261 - 269 of       *   FILE 269
//*           the CBT Overflow Tape.                                *   FILE 269
//*                                                                 *   FILE 269
//*           This file contains the object decks for the Fortran   *   FILE 269
//*           graphic subroutines that are used by the ABE          *   FILE 269
//*           Editor.                                               *   FILE 269
//*                                                                 *   FILE 269
//*           The ABE (A Better Editor) editor contains enormous    *   FILE 269
//*           capability.                                           *   FILE 269
//*                                                                 *   FILE 269
//***FILE 270 IS CURRENTLY EMPTY                                    *   FILE 270
//*                                                                 *   FILE 270
//***FILE 271 is the QUANDARY system from Don Hudson of Auburn      *   FILE 271
//*           University in Auburn, Alabama.  This system is        *   FILE 271
//*           used for examining some Department of Education       *   FILE 271
//*           databases that are still available, but for more      *   FILE 271
//*           modern computing systems, these Dept of Education     *   FILE 271
//*           files are also available in different formats.        *   FILE 271
//*                                                                 *   FILE 271
//*           The Dept of Education databases are called CIJE       *   FILE 271
//*           and RIE.  File 277 contains samples of them.          *   FILE 271
//*                                                                 *   FILE 271
//*           The entire package is contained on Files 271          *   FILE 271
//*           through 277 of the CBT Overflow Tape.                 *   FILE 271
//*                                                                 *   FILE 271
//*           This file is the documentation for the                *   FILE 271
//*           installation of the QUANDARY system.                  *   FILE 271
//*                                                                 *   FILE 271
//*               Don M. Hudson                                     *   FILE 271
//*               Information Technology, Master Specialist         *   FILE 271
//*               DUC Technical Support                             *   FILE 271
//*               144 Parker Hall                                   *   FILE 271
//*               Auburn University, AL 36849                       *   FILE 271
//*                                                                 *   FILE 271
//*               email:    hudsodm@auburn.edu                      *   FILE 271
//*               phone:    334-844-4512                            *   FILE 271
//*                                                                 *   FILE 271
//*           The author says that the system still should work,    *   FILE 271
//*           although Auburn University stopped using it several   *   FILE 271
//*           years ago.  In any case, it is available as a nice    *   FILE 271
//*           coding example, and I hope that somebody can profit   *   FILE 271
//*           from it.                                              *   FILE 271
//*                                                                 *   FILE 271
//***FILE 272 is the QUANDARY system from Don Hudson of Auburn      *   FILE 272
//*           University in Auburn, Alabama.  This system is        *   FILE 272
//*           used for examining some Department of Education       *   FILE 272
//*           databases that are still available, but for more      *   FILE 272
//*           modern computing systems, these Dept of Education     *   FILE 272
//*           files are also available in different formats.        *   FILE 272
//*                                                                 *   FILE 272
//*           The Dept of Education databases are called CIJE       *   FILE 272
//*           and RIE.  File 277 contains samples of them.          *   FILE 272
//*                                                                 *   FILE 272
//*           The entire package is contained on Files 271          *   FILE 272
//*           through 277 of the CBT Overflow Tape.                 *   FILE 272
//*                                                                 *   FILE 272
//*           This file contains the assembler source code for      *   FILE 272
//*           the QUANDARY system described in File 271.            *   FILE 272
//*                                                                 *   FILE 272
//***FILE 273 is the QUANDARY system from Don Hudson of Auburn      *   FILE 273
//*           University in Auburn, Alabama.  This system is        *   FILE 273
//*           used for examining some Department of Education       *   FILE 273
//*           databases that are still available, but for more      *   FILE 273
//*           modern computing systems, these Dept of Education     *   FILE 273
//*           files are also available in different formats.        *   FILE 273
//*                                                                 *   FILE 273
//*           The Dept of Education databases are called CIJE       *   FILE 273
//*           and RIE.  File 277 contains samples of them.          *   FILE 273
//*                                                                 *   FILE 273
//*           The entire package is contained on Files 271          *   FILE 273
//*           through 277 of the CBT Overflow Tape.                 *   FILE 273
//*                                                                 *   FILE 273
//*           This file contains a set of TSO CLIST's for           *   FILE 273
//*           assembling, compiling and using the QUANDARY          *   FILE 273
//*           system described in File 271.                         *   FILE 273
//*                                                                 *   FILE 273
//***FILE 274 is the QUANDARY system from Don Hudson of Auburn      *   FILE 274
//*           University in Auburn, Alabama.  This system is        *   FILE 274
//*           used for examining some Department of Education       *   FILE 274
//*           databases that are still available, but for more      *   FILE 274
//*           modern computing systems, these Dept of Education     *   FILE 274
//*           files are also available in different formats.        *   FILE 274
//*                                                                 *   FILE 274
//*           The Dept of Education databases are called CIJE       *   FILE 274
//*           and RIE.  File 277 contains samples of them.          *   FILE 274
//*                                                                 *   FILE 274
//*           The entire package is contained on Files 271          *   FILE 274
//*           through 277 of the CBT Overflow Tape.                 *   FILE 274
//*                                                                 *   FILE 274
//*           This file contains sample job streams for the         *   FILE 274
//*           batch program portion of the QUANDARY system.         *   FILE 274
//*                                                                 *   FILE 274
//***FILE 275 is the QUANDARY system from Don Hudson of Auburn      *   FILE 275
//*           University in Auburn, Alabama.  This system is        *   FILE 275
//*           used for examining some Department of Education       *   FILE 275
//*           databases that are still available, but for more      *   FILE 275
//*           modern computing systems, these Dept of Education     *   FILE 275
//*           files are also available in different formats.        *   FILE 275
//*                                                                 *   FILE 275
//*           The Dept of Education databases are called CIJE       *   FILE 275
//*           and RIE.  File 277 contains samples of them.          *   FILE 275
//*                                                                 *   FILE 275
//*           The entire package is contained on Files 271          *   FILE 275
//*           through 277 of the CBT Overflow Tape.                 *   FILE 275
//*                                                                 *   FILE 275
//*           This file contains compiler listings and other        *   FILE 275
//*           documentation for the programs in the QUANDARY        *   FILE 275
//*           system.                                               *   FILE 275
//*                                                                 *   FILE 275
//***FILE 276 is the QUANDARY system from Don Hudson of Auburn      *   FILE 276
//*           University in Auburn, Alabama.  This system is        *   FILE 276
//*           used for examining some Department of Education       *   FILE 276
//*           databases that are still available, but for more      *   FILE 276
//*           modern computing systems, these Dept of Education     *   FILE 276
//*           files are also available in different formats.        *   FILE 276
//*                                                                 *   FILE 276
//*           The Dept of Education databases are called CIJE       *   FILE 276
//*           and RIE.  File 277 contains samples of them.          *   FILE 276
//*                                                                 *   FILE 276
//*           The entire package is contained on Files 271          *   FILE 276
//*           through 277 of the CBT Overflow Tape.                 *   FILE 276
//*                                                                 *   FILE 276
//*           This file contains PL/1 Source Code for the           *   FILE 276
//*           programs in the QUANDARY system.                      *   FILE 276
//*                                                                 *   FILE 276
//***FILE 277 is the QUANDARY system from Don Hudson of Auburn      *   FILE 277
//*           University in Auburn, Alabama.  This system is        *   FILE 277
//*           used for examining some Department of Education       *   FILE 277
//*           databases that are still available, but for more      *   FILE 277
//*           modern computing systems, these Dept of Education     *   FILE 277
//*           files are also available in different formats.        *   FILE 277
//*                                                                 *   FILE 277
//*           The Dept of Education databases are called CIJE       *   FILE 277
//*           and RIE.  File 277 contains samples of them.          *   FILE 277
//*                                                                 *   FILE 277
//*           The entire package is contained on Files 271          *   FILE 277
//*           through 277 of the CBT Overflow Tape.                 *   FILE 277
//*                                                                 *   FILE 277
//*           This file contains a sample CIJE file and a           *   FILE 277
//*           sample RIE file, that can be used to test the         *   FILE 277
//*           QUANDARY system.  These files have been packaged      *   FILE 277
//*           here as a pds, but they should be separated out       *   FILE 277
//*           as sequential files before they are used.             *   FILE 277
//*                                                                 *   FILE 277
//***FILE 278 is from Ron Dickie of Teledyne-Ryan and contains      *   FILE 278
//*           their SCRIPT system.  This system occupies 3 files:   *   FILE 278
//*           File 278, 279, and 280.  This system came from the    *   FILE 278
//*           PL1 SHARE Tape, Files 15 thru 17.                     *   FILE 278
//*                                                                 *   FILE 278
//*       Summary:   A set of programs, in PL/I, implementing a     *   FILE 278
//*       very large SCRIPT system, including multiple column,      *   FILE 278
//*       boxing, automatic indexing and much more.                 *   FILE 278
//*                                                                 *   FILE 278
//*       This file contains PL/1 program source for the system.    *   FILE 278
//*       The file is in RECFM=VB, LRECL=104 format.                *   FILE 278
//*                                                                 *   FILE 278
//***FILE 279 is from Ron Dickie of Teledyne-Ryan and contains      *   FILE 279
//*           their SCRIPT system.  This system occupies 3 files:   *   FILE 279
//*           File 278, 279, and 280.  This system came from the    *   FILE 279
//*           PL1 SHARE Tape, Files 15 thru 17.                     *   FILE 279
//*                                                                 *   FILE 279
//*       Summary:   A set of programs, in PL/I, implementing a     *   FILE 279
//*       very large SCRIPT system, including multiple column,      *   FILE 279
//*       boxing, automatic indexing and much more.                 *   FILE 279
//*                                                                 *   FILE 279
//*       This file contains documentation for the Teledyne-Ryan    *   FILE 279
//*       SCRIPT system, written in Teledyne-Ryan SCRIPT format.    *   FILE 279
//*       This file is RECFM=VB, LRECL=255.                         *   FILE 279
//*                                                                 *   FILE 279
//***FILE 280 is from Ron Dickie of Teledyne-Ryan and contains      *   FILE 280
//*           their SCRIPT system.  This system occupies 3 files:   *   FILE 280
//*           File 278, 279, and 280.  This system came from the    *   FILE 280
//*           PL1 SHARE Tape, Files 15 thru 17.                     *   FILE 280
//*                                                                 *   FILE 280
//*       Summary:   A set of programs, in PL/I, implementing a     *   FILE 280
//*       very large SCRIPT system, including multiple column,      *   FILE 280
//*       boxing, automatic indexing and much more.                 *   FILE 280
//*                                                                 *   FILE 280
//*       This file contains printable documentation for the        *   FILE 280
//*       Teledyne-Ryan SCRIPT system, in ANSI control characters.  *   FILE 280
//*       This file is RECFM=VBA, LRECL=137.                        *   FILE 280
//*                                                                 *   FILE 280
//***FILE 281 contains source code for PLEA, the Programming        *   FILE 281
//*           Language Execution Analyzer from David Doucette       *   FILE 281
//*           of Grumman Aerospace.                                 *   FILE 281
//*                                                                 *   FILE 281
//*    Summary:  This file contains the files necessary to          *   FILE 281
//*     implement PLEA, the Programming Language Execution          *   FILE 281
//*     Analyzer in either SVS or MVS. Included are members for     *   FILE 281
//*     the data gathering(PLEATRAP), data analysis(PLOTAB),        *   FILE 281
//*     and procedures for execution(PLEAPROC).                     *   FILE 281
//*                                                                 *   FILE 281
//*     This file also contains printable doc for the PLEA          *   FILE 281
//*     package (member $PLEADOC) and SCRIPT-format documentation   *   FILE 281
//*     (member #PLEADOC).                                          *   FILE 281
//*                                                                 *   FILE 281
//*     PLEA - Programming Language Execution Analyzer              *   FILE 281
//*                                                                 *   FILE 281
//*     1. INTRODUCTION                                             *   FILE 281
//*                                                                 *   FILE 281
//*          PLEA is a set of programs designed to provide          *   FILE 281
//*     information to a user about a program's performance         *   FILE 281
//*     and, for a  PL/I program, can be used as a debugging        *   FILE 281
//*     tool to show which parts of the program's procedures        *   FILE 281
//*     were executed.  It acts in a manner which is almost         *   FILE 281
//*     totally transparent to the user.                            *   FILE 281
//*                                                                 *   FILE 281
//*          PLEA provides a statistical analysis of where CPU      *   FILE 281
//*     time is being spent during the execution of a PL/I (for     *   FILE 281
//*     Optimizing Compiler) or FORTRAN program.  It operates       *   FILE 281
//*     under OS/VS2 in the 370/168.  It consists of two parts:     *   FILE 281
//*     a monitor and an analyzer.  The monitor samples             *   FILE 281
//*     execution of the program at regular preset intervals        *   FILE 281
//*     until the program terminates.  During the monitoring run    *   FILE 281
//*     (when the program is executing) Monitor Data is spooled     *   FILE 281
//*     off into a dataset which is used by the analyzer to         *   FILE 281
//*     provide an analysis of the program's execution.             *   FILE 281
//*                                                                 *   FILE 281
//*     The analyzer report provides the following data:            *   FILE 281
//*                                                                 *   FILE 281
//*      1. Statement number in the main routine with               *   FILE 281
//*          frequency count and percent of total samples           *   FILE 281
//*          (PL/I only).                                           *   FILE 281
//*      2. Statement number in subroutine with frequency           *   FILE 281
//*          count and percent of total samples (PL/I               *   FILE 281
//*          only).                                                 *   FILE 281
//*      3. Percentage of CPU time consumed on a procedure          *   FILE 281
//*          by procedure (subroutine by subroutine for             *   FILE 281
//*          FORTRAN) basis.                                        *   FILE 281
//*      4. Load module list with frequency count and               *   FILE 281
//*          percentage.                                            *   FILE 281
//*      5. Listing of interrupt codes from the PL/I load           *   FILE 281
//*          module PSW and a frequency count for each.             *   FILE 281
//*      6. The sampling interval.                                  *   FILE 281
//*      7. Total number of samples by the monitor.                 *   FILE 281
//*      8. Elapsed time of the monitoring run.                     *   FILE 281
//*                                                                 *   FILE 281
//*     2. USAGE                                                    *   FILE 281
//*                                                                 *   FILE 281
//*          PLEA can be used to monitor existing production        *   FILE 281
//*     programs or programs in a development stage.  For all       *   FILE 281
//*     program executions, the GO step of the appropriate          *   FILE 281
//*     catalogued procedure may have a parameter which is used     *   FILE 281
//*     to affect the monitoring environment and/or pass a          *   FILE 281
//*     character string to the user program.                       *   FILE 281
//*                                                                 *   FILE 281
//*          Normally the second function would be accomplished     *   FILE 281
//*     by coding:                                                  *   FILE 281
//*                                                                 *   FILE 281
//*               PARM.GO='program data'.                           *   FILE 281
//*                                                                 *   FILE 281
//*          In the JCL EXEC statement with PLEA, this has been     *   FILE 281
//*     expanded to:                                                *   FILE 281
//*                                                                 *   FILE 281
//*             PARM.GO='monitor data/program data'.                *   FILE 281
//*                                                                 *   FILE 281
//***FILE 282 is from Amdahl and contains a simplified interface    *   FILE 282
//*           between PL/1 programs and the installed operating     *   FILE 282
//*           system's SORT program.                                *   FILE 282
//*                                                                 *   FILE 282
//*           This file comes from File 23 of the SHARE PL/1 Tape.  *   FILE 282
//*                                                                 *   FILE 282
//*      Summary:  A simplified interface for SORTing, allowing     *   FILE 282
//*       the use of any PL/I structure for sorting rather than     *   FILE 282
//*       limiting sorting to just character strings.  The          *   FILE 282
//*       members of the PDS are:  SORTASM, the sort interface      *   FILE 282
//*       module written in assembler; SORTPLI, the declaration     *   FILE 282
//*       of SORTASM used in an invoking PL/I module; and           *   FILE 282
//*       SORTDOC, a printable file of documentation for the        *   FILE 282
//*       interface.                                                *   FILE 282
//*                                                                 *   FILE 282
//***FILE 283 is from Ron Dickie of Teledyne-Ryan and contains      *   FILE 283
//*           two programs, each with sample compile and            *   FILE 283
//*           execute JCL.  The first program, LOG1512,             *   FILE 283
//*           creates a CSECT cross reference from a load           *   FILE 283
//*           library.  The second program, LOG1764, creates        *   FILE 283
//*           graphic overlay maps from a load library.             *   FILE 283
//*                                                                 *   FILE 283
//*           This file comes from File 33 of the SHARE PL/1 Tape.  *   FILE 283
//*                                                                 *   FILE 283
//***FILE 284 is from L. David Jones of Teledyne Exploration        *   FILE 284
//*           and contains a PDS with three subroutines for         *   FILE 284
//*           statistical operations, two for spline-under-tension  *   FILE 284
//*           curve fitting, and one to do least squares curve      *   FILE 284
//*           fitting.  Documentation is included as comments in    *   FILE 284
//*           the beginning of each program.                        *   FILE 284
//*                                                                 *   FILE 284
//*           This file comes from File 34 of the SHARE PL/1 Tape.  *   FILE 284
//*                                                                 *   FILE 284
//***FILE 285 is from Mike Robinson of British Airways, and is a    *   FILE 285
//*           PDS containing several subroutines, in both PL/I      *   FILE 285
//*           and ASM to interface with various system functions.   *   FILE 285
//*           Of special interest is a program to check PLI/F       *   FILE 285
//*           source programs for possible incompatibilities with   *   FILE 285
//*           PLI/X programs and create updates where possible.     *   FILE 285
//*           A program to create a CSECT cross reference from a    *   FILE 285
//*           load library is also included.  The modules are       *   FILE 285
//*           documented at the beginning of each member.           *   FILE 285
//*                                                                 *   FILE 285
//*           Documentation for both Files 285 and 286 is           *   FILE 285
//*           included in this file.                                *   FILE 285
//*                                                                 *   FILE 285
//*           This file comes from Files 35 and 37 of the SHARE     *   FILE 285
//*           PL/1 Tape.                                            *   FILE 285
//*                                                                 *   FILE 285
//***FILE 286 is from Mike Robinson of British Airways, and is a    *   FILE 286
//*           PDS containing several subroutines, in both PL/I      *   FILE 286
//*           and ASM.  There are routines to assist in debugging   *   FILE 286
//*           IMS, to ease date handling and conversion, and to     *   FILE 286
//*           interface with several operating system functions.    *   FILE 286
//*                                                                 *   FILE 286
//*           This file comes from File 36 of the SHARE PL/1 Tape.  *   FILE 286
//*                                                                 *   FILE 286
//***FILE 287 is from Tom Dimock of Cornell University and          *   FILE 287
//*           contains a PL/I Usage Monitor for VM.  This           *   FILE 287
//*           corresponds to the PLEA Monitor (Program Language     *   FILE 287
//*           Execution Analyzer) that is on File 281 of this       *   FILE 287
//*           tape.                                                 *   FILE 287
//*                                                                 *   FILE 287
//*           The file is in VM format, and should be directly      *   FILE 287
//*           usable by VM shops.                                   *   FILE 287
//*                                                                 *   FILE 287
//*           Attributes:  BLKSIZE=805, LRECL=805, RECFM=U          *   FILE 287
//*                                                                 *   FILE 287
//*           This file is from File 38 of the SHARE PL/1 Tape.     *   FILE 287
//*                                                                 *   FILE 287
//***FILE 288 is from Bob Styma of Phoenix, Arizona, and contains   *   FILE 288
//*           an interface to allow a PL/I program to control a     *   FILE 288
//*           3270 type terminal from a TSO environment.  Also      *   FILE 288
//*           includes the SCRIPT source for the documentation      *   FILE 288
//*           of this package, and a TSO XMIT-format member         *   FILE 288
//*           which contains printable documentation for this       *   FILE 288
//*           package.                                              *   FILE 288
//*                                                                 *   FILE 288
//*           This file comes from Files 39 and 40 of the SHARE     *   FILE 288
//*           PL/1 Tape.                                            *   FILE 288
//*                                                                 *   FILE 288
//***FILE 289 is a utility to allow PL/1 users to issue requests    *   FILE 289
//*           to an IMS database, using data directed I/O.  The     *   FILE 289
//*           file includes instream documentation and JCL to       *   FILE 289
//*           compile and run the program.                          *   FILE 289
//*                                                                 *   FILE 289
//*                G. Kunz                                          *   FILE 289
//*                The B.F.Goodrich Co.                             *   FILE 289
//*                500 South Main Street                            *   FILE 289
//*                Akron, Ohio 44318                                *   FILE 289
//*                Phone:  (216) 374-3978    (outdated phone no.)   *   FILE 289
//*                                                                 *   FILE 289
//*           This file comes from File 41 of the SHARE PL1 Tape.   *   FILE 289
//*                                                                 *   FILE 289
//*   -----------------------------------------------------------   *   FILE 289
//*                                                                 *   FILE 289
//*                        I M S D B U T                            *   FILE 289
//*                                                                 *   FILE 289
//*        AN IMS DATABASE UTILITY FOR USE BY PL/I PROGRAMMERS      *   FILE 289
//*                                                                 *   FILE 289
//*                        P R E F A C E                            *   FILE 289
//*                                                                 *   FILE 289
//*        THIS PROGRAM WAS WRITTEN DURING THE DEVELOPMENT OF A     *   FILE 289
//*        LARGE BATCH-MODE IMS SYSTEM TO PERMIT MAINTENANCE OF     *   FILE 289
//*        DATABASES PRIOR TO THE EXISTENCE OF UPDATE PROGRAMS.     *   FILE 289
//*        IT IS ALSO USED TO TEST CALLS TO THE DATABASE.           *   FILE 289
//*                                                                 *   FILE 289
//*        ITS USE PRESUPPOSES A KNOWLEDGE OF PL/I DATA-DIRECTED    *   FILE 289
//*        INPUT, AND OF THE CODING OF IMS SEGMENT SEARCH           *   FILE 289
//*        ARGUMENTS WHICH, IN TURN, REQUIRES AN AWARENESS OF       *   FILE 289
//*        THE CAPABILITIES AND LIMITATIONS OF THE DBD'S AND THE    *   FILE 289
//*        PSB USED.                                                *   FILE 289
//*                                                                 *   FILE 289
//*        THIS PROGRAM HAS BEEN RENDERED INDEPENDENT OF ANY        *   FILE 289
//*        PARTICULAR PSBGEN BY USE OF THE ACCOMPANYING             *   FILE 289
//*        ASSEMBLER ROUTINE, ARG@ WHICH IDENTIFIES TO THIS         *   FILE 289
//*        MODULE THE ADDRESS OF THE PROGRAM SPECIFICATION BLOCK    *   FILE 289
//*        PROVIDED BY DFSRRC00.                                    *   FILE 289
//*                                                                 *   FILE 289
//*        THIS PROGRAMMING HAS BEEN COMPILED ON THE OPTIMIZING     *   FILE 289
//*        COMPILER VERSION 1 RELEASE 3.1 PTF 70, LINK EDITED       *   FILE 289
//*        USING DFSILNK0 WITH ENTRY PLICALLA, AND RUN UNDER        *   FILE 289
//*        DFSRRC00, IMS RELEASE 1.1.5 ON S/370 OS/MVS.             *   FILE 289
//*                                                                 *   FILE 289
//***FILE 290 is from B.P. Cassidy of the University of New         *   FILE 290
//*           Brunswick in Canada, and contains PDUMP, a general    *   FILE 290
//*           purpose print utility for datasets.  PDUMP also       *   FILE 290
//*           has a TSO interface, which is packaged together       *   FILE 290
//*           with this file.                                       *   FILE 290
//*                                                                 *   FILE 290
//*      This file is from File 42 of the SHARE PL/1 Tape.          *   FILE 290
//*                                                                 *   FILE 290
//*      Summary:   PDUMP is a PL/I and BAL utility program to      *   FILE 290
//*      display a dataset at a terminal in dump format.  Source,   *   FILE 290
//*      sample JCL, documentation are provided.  This program      *   FILE 290
//*      requires access to supervisor state.  Also included is     *   FILE 290
//*      a TSO to 3270 interface.                                   *   FILE 290
//*                                                                 *   FILE 290
//*  -------------------------------------------------------------  *   FILE 290
//*                                                                 *   FILE 290
//*                    UNIVERSITY OF NEW BRUNSWICK                  *   FILE 290
//*                  COMPUTING CENTRE LIBRARY PROGRAM               *   FILE 290
//*                                                                 *   FILE 290
//*    AUTHOR:  B.P. CASSIDY          PROG. NAME:  PDUMP            *   FILE 290
//*    DEPT.:   COMPUTING CENTRE      PROG. LANG:  PL/I (OPT.)      *   FILE 290
//*    DATE:    JANUARY 1982          PROG. TYPE:  MAIN             *   FILE 290
//*                                                                 *   FILE 290
//*    PURPOSE:   PDUMP IS A GENERAL PURPOSE PRINT UTILITY.  THE    *   FILE 290
//*    INPUT DATA SET TO BE LISTED MAY BE SEQUENTIAL, INDEXED,      *   FILE 290
//*    REGIONAL OR VSAM (KEY SEQUENCED, ENTRY SEQUENCED OR RELATIVE *   FILE 290
//*    RECORD).  THERE ARE NO RESTRICTIONS ON RECORD FORMAT (RECFM) *   FILE 290
//*    OR RECORD LENGTH.  THE PROGRAM IS INVOKED USING THE          *   FILE 290
//*    PROCEDURE PDUMP.                                             *   FILE 290
//*                                                                 *   FILE 290
//*    USAGE:     THE FOLLOWING JOB CONTROL LANGUAGE IS USED TO     *   FILE 290
//*    EXECUTE THE UTILITY.  SYMBOLIC PARAMETER OP IS OPTIONAL.     *   FILE 290
//*                                                                 *   FILE 290
//*              //PDUMP JOB ACCOUNTING....                         *   FILE 290
//*              //    EXEC PDUMP,OP='OPTIONS LIST'                 *   FILE 290
//*              //SYSIN DD JCL DESCRIBING INPUT DATA SET           *   FILE 290
//*                                                                 *   FILE 290
//*    THE KEYWORDS IN THE FOLLOWING SUMMARY OF AVAILABLE OPTIONS   *   FILE 290
//*    ARE NON-POSITIONAL, I.E. THEY MAY OCCUR IN ANY ORDER WITHIN  *   FILE 290
//*    THE OPTIONS LIST AND SHOULD BE SEPARATED BY COMMAS.          *   FILE 290
//*                                                                 *   FILE 290
//*  -------------------------------------------------------------  *   FILE 290
//*                                                                 *   FILE 290
//*     THIS PACKAGE IS A JOINT EFFORT OF BRIAN CASSIDY AND         *   FILE 290
//*     BRIAN LESSER OF THE UNIVERSITY OF NEW BRUNSWICK.  DIRECT    *   FILE 290
//*     ENQUIRIES TO EITHER INDIVIDUAL AT THE FOLLOWING ADDRESS:    *   FILE 290
//*                                                                 *   FILE 290
//*     COMPUTING CENTRE                                            *   FILE 290
//*     UNIVERSITY OF NEW BRUNSWICK                                 *   FILE 290
//*     BOX 4400 / FREDERICTON, N.B.                                *   FILE 290
//*     CANADA  E3B 5A3                     PHONE (506) 453-4573    *   FILE 290
//*                                                                 *   FILE 290
//*  Contents of this file is as follows:                           *   FILE 290
//*                                                                 *   FILE 290
//*      MEMBER   DESCRIPTION                                       *   FILE 290
//*      ------   -------------------------------                   *   FILE 290
//*      ATTR     SET 3270 ATTRIBUTE BYTE                           *   FILE 290
//*      BATCH    MAIN PL/1 PROGRAM FOR BATCH VERSION               *   FILE 290
//*      BUFADD   ENCODE/DECODE 3270 CURSOR ADDRESS                 *   FILE 290
//*      CPPL     FINDS CPPL ADDR AND RETURNS ADDR OF               *   FILE 290
//*               CBUF,UPT,PSCB AND ECT                             *   FILE 290
//*      DSCBF1   ASSEMBLER ROUTINE TO READ A FORMAT1 DSCB          *   FILE 290
//*      EQUREGS  MACRO REQUIRED FOR ASSEMBLER ROUTINES             *   FILE 290
//*      FCBLOC   ASSEMBLER ROUTINE TO FIND THE FILE CONTROL        *   FILE 290
//*               BLOCK (FCB) FOR A GIVEN FILE                      *   FILE 290
//*      FULLSCR  TSO/VTAM ROUTINE TO SWITCH FULLSCR MODE (3270)    *   FILE 290
//*      HELP     HELP INFO FOR TSO HELP DATASET                    *   FILE 290
//*      HEXOUT   ASSEMBLER ROUTINE TO CONVERT A GIVEN CHARACTER    *   FILE 290
//*               STRING TO PRINTABLE HEX CHARACTERS                *   FILE 290
//*      INSTALL  SAMPLE INSTALLATION JCL                           *   FILE 290
//*      IO3270   3270 FULLSCREEN SUPPORT PACKAGE.  THIS ROUTINE    *   FILE 290
//*               CAN BE USED WITH BOTH TCAM AND VTAM BUT WHEN      *   FILE 290
//*               RUNNING UNDER TSO/TCAM THE TCAM FULLSCREEN MODS   *   FILE 290
//*               MUST BE INSTALLED.  IN ORDER FOR THE PAGING       *   FILE 290
//*               FEATURE TO BE ACTIVE, A TEMPORARY FILE MUST BE    *   FILE 290
//*               ALLOCATED TO FILE SYSPAGE BEFORE IO3270 IS        *   FILE 290
//*               INVOKED FOR THE FIRST TIME.                       *   FILE 290
//*               FOR MORE INFORMATION SEE MEMBER IODOC.            *   FILE 290
//*      PDUMP    CATALOGUED PROCEDURE FOR BATCH VERSION            *   FILE 290
//*      PDUMVS   MAIN PL/1 PROGRAM FOR TSO VERSION (COMMAND        *   FILE 290
//*               PROCESSOR) WHEN COMPILING THIS MODULE BE SURE     *   FILE 290
//*               TO INCLUDE THE OPTION INT.  ALSO THE TASKING      *   FILE 290
//*               LIBRARY IS REQUIRED DURING LINK EDIT.  THE        *   FILE 290
//*               NORMAL MODE OF OPERATION IS AS A TSO COMMAND      *   FILE 290
//*               PROCESSOR BUT IT IS ALSO EXECUTABLE IN A BATCH    *   FILE 290
//*               ENVIRONMENT.                                      *   FILE 290
//*      PRIME    MACRO REQUIRED FOR ASSEMBLER ROUTINES             *   FILE 290
//*      PROFILE  ASSEMBLER ROUTINE TO ISSUE GTSIZE MACRO TO        *   FILE 290
//*               DETERMINE TERMINAL CHARACTERISTICS. ALSO          *   FILE 290
//*               RETURNS THE OPERATING MODE (BATCH OR TSO).        *   FILE 290
//*      RDDSCB   ASSEMBLER ROUTINE TO READ A DSCB BY CCHHR         *   FILE 290
//*      RESTORE  SAMPLE JCL TO RESTORE DISTRIBUTION TAPE           *   FILE 290
//*      SCANNER  GENERAL PURPOSE COMMAND SCANNER.  IT IS USED      *   FILE 290
//*               EXTENSIVELY BY PDUMP TO DECODE USER COMMANDS      *   FILE 290
//*               AND BY THE DYNAMIC ALLOCATION ROUTINE S99VAL      *   FILE 290
//*               TO DECODE THE USERS ALLOCATE COMMAND.  SYNTAX     *   FILE 290
//*               ACCEPTED BY THE SCANNER IS ESSENTIALLY THAT OF    *   FILE 290
//*               THE TSO COMMAND LANGUAGE.                         *   FILE 290
//*      SVC99    ASSEMBLER ROUTINE TO CALL DYNAMIC                 *   FILE 290
//*               ALLOCATION SVC 99                                 *   FILE 290
//*      S99FREE  PL/1 SUBROUTINE FOR DYNAMIC UNALLOCATION          *   FILE 290
//*      S99VAL   PL/1 SUBROUTINE FOR DYNAMIC ALLOCATION.           *   FILE 290
//*      S99VCC   PL/1 SUBROUTINE FOR DYNAMIC CONCATENATION         *   FILE 290
//*      S99VDC   PL/1 SUBROUTINE FOR DYNAMIC DECONCATENATION       *   FILE 290
//*      S99VIN   PL/1 SUBROUTINE FOR DYNAMIC INFORMATION           *   FILE 290
//*               RETRIEVAL                                         *   FILE 290
//*      S99VUN   PL/1 SUBROUTINE FOR DYNAMIC UNALLOCATION BY       *   FILE 290
//*               DDNAME                                            *   FILE 290
//*      TERME    MACRO REQUIRED FOR ASSEMBLER ROUTINES             *   FILE 290
//*      TEST     PDUMP TESTING INSTRUCTIONS AND SAMPLE BATCH       *   FILE 290
//*               TEST JOBSTREAM                                    *   FILE 290
//*      TPUT     ASSEMBLER TPUT/TGET ROUTINE FOR IO3270            *   FILE 290
//*      TRANS32  ASSEMBLER ROUTINE USED BY BATCH VERSION ONLY.     *   FILE 290
//*               TRANSLATES OUTPUT LINES WHEN PRINTING IN ABEND    *   FILE 290
//*               DUMP FORMAT                                       *   FILE 290
//*      TSOCP    PL/1 INTERFACE TO CALL A TSO COMMAND PROCESSOR    *   FILE 290
//*      ZAP      SYSIN INPUT FOR ZAP TO PDUMP TSO COMMAND          *   FILE 290
//*               PROCESSOR.  THIS ZAP SAVES CPPL ADDRESS AND       *   FILE 290
//*               PASSES A PROPER OS PARM TO THE MAIN PL/1          *   FILE 290
//*               PROGRAM.                                          *   FILE 290
//*                                                                 *   FILE 290
//***FILE 291 is from Wilbur C. Hadden of the Department of Health  *   FILE 291
//*           and Human Services in Washington, D.C. and contains   *   FILE 291
//*           an interface to allow a PL/1 program to control a     *   FILE 291
//*           3270 type terminal from a TSO environment.            *   FILE 291
//*                                                                 *   FILE 291
//*              Formatted Displays on 3270 Terminals               *   FILE 291
//*                                                                 *   FILE 291
//*      With 3270 terminals it is possible to format displays      *   FILE 291
//*      so that certain portions of the screen are used for the    *   FILE 291
//*      operator's response and other portions are reserved for    *   FILE 291
//*      use by the program controlling the display.                *   FILE 291
//*                                                                 *   FILE 291
//*      The advantage of using formatted communications over       *   FILE 291
//*      unformatted is that a formatted display may present the    *   FILE 291
//*      operator with more than one request for information at     *   FILE 291
//*      one time.  This lengthens messages between computer and    *   FILE 291
//*      operator; each message contains more information and       *   FILE 291
//*      the rhythm of the communication is more natural.  By       *   FILE 291
//*      grouping related items together in a formatted display     *   FILE 291
//*      each request for information is embedded in a broader      *   FILE 291
//*      context.  From this broader context the operator is able   *   FILE 291
//*      to find a better understanding of the meaning or           *   FILE 291
//*      purpose of information requests and can thus respond       *   FILE 291
//*      with better answers.  The fact that the operator's         *   FILE 291
//*      responses are not transmitted until all requests are       *   FILE 291
//*      satisfied means that the operator has more opportunity     *   FILE 291
//*      to review and revise responses before they are entered.    *   FILE 291
//*      These characteristics of formatted communications mean     *   FILE 291
//*      that the operator has more control over responses and      *   FILE 291
//*      can respond with greater accuracy.                         *   FILE 291
//*                                                                 *   FILE 291
//***FILE 292 is from Bob Peyser of Bell Labs in Piscataway, New    *   FILE 292
//*           Jersey, and contains a program to build a structure   *   FILE 292
//*           chart of subroutine calls in a PL/1 program.          *   FILE 292
//*                                                                 *   FILE 292
//*           This program takes a PL/1 compiler listing as its     *   FILE 292
//*           input.  This program has been taken from File 44      *   FILE 292
//*           of the SHARE PL/1 Tape.                               *   FILE 292
//*                                                                 *   FILE 292
//***FILE 293 is from Steve M. Beasley of Southern Company          *   FILE 293
//*           Services, and is really a VM file in MVS (pds)        *   FILE 293
//*           format.                                               *   FILE 293
//*                                                                 *   FILE 293
//*           This file contains programs and PL/1 callable         *   FILE 293
//*           subroutines to enhance the use of PL/1 in the         *   FILE 293
//*           CMS environment.                                      *   FILE 293
//*                                                                 *   FILE 293
//*           This file was taken from File 45 of the SHARE         *   FILE 293
//*           PL/1 Tape.                                            *   FILE 293
//*                                                                 *   FILE 293
//***FILE 294 is from Hans J. Becker of the Energy Information      *   FILE 294
//*           Administration, and contains a very useful program    *   FILE 294
//*           called MACROS.  This program allows complex           *   FILE 294
//*           searching, modification, and combination of pds       *   FILE 294
//*           members, to allow source and macro inclusion in       *   FILE 294
//*           another program.  Operation is controlled through     *   FILE 294
//*           parameter options and control statements.             *   FILE 294
//*                                                                 *   FILE 294
//*           This program was taken from File 46 of the SHARE      *   FILE 294
//*           PL/1 Tape.                                            *   FILE 294
//*                                                                 *   FILE 294
//*                          INTRODUCTION                           *   FILE 294
//*                                                                 *   FILE 294
//*           It seems that all of the ad hoc requests that I       *   FILE 294
//*      have written were sufficiently different that I could      *   FILE 294
//*      not simply reuse old ones.  Yet all seemed to have had     *   FILE 294
//*      some things in common.  It became clear that a mechanism   *   FILE 294
//*      was required that could pull bits and pieces from          *   FILE 294
//*      various sources together to satisfy a particular           *   FILE 294
//*      request.  This mechanism had to be very general and        *   FILE 294
//*      flexible in nature since it could potentially accomodate   *   FILE 294
//*      a number of different languages or program products.       *   FILE 294
//*                                                                 *   FILE 294
//*           Basically what was needed was a program that could    *   FILE 294
//*      dynamically include source code or data into a data set    *   FILE 294
//*      or job stream.  Furthermore, it was desirable to change    *   FILE 294
//*      this included code or place some conditions on it.         *   FILE 294
//*                                                                 *   FILE 294
//*           As it turned out, this program immediately showed     *   FILE 294
//*      promise in providing a very general tool with very broad   *   FILE 294
//*      applications.  Many features were suggested by Dick        *   FILE 294
//*      Heddinger, and I would like to express my appreciation.    *   FILE 294
//*                                                                 *   FILE 294
//***FILE 295 is from Dave Jones, formerly of the Swift Energy      *   FILE 295
//*           Company of Houston, Texas.  This file was taken       *   FILE 295
//*           from File 50 of the SHARE PL/1 Tape.                  *   FILE 295
//*                                                                 *   FILE 295
//*      This file contains the source for a package call PCR;      *   FILE 295
//*      developed jointly by Swift Energy Company, and SIDNEY,     *   FILE 295
//*      a software consulting firm.  It provides all the tools     *   FILE 295
//*      and features necessary to write and develop:  REXX         *   FILE 295
//*      Functions/Subroutines, Subcommand Environments,            *   FILE 295
//*      Immediate Commands, and CMS commands in PL/1.              *   FILE 295
//*                                                                 *   FILE 295
//*      This package has been tested on VM/SP Release 6 at the     *   FILE 295
//*      610 level, PL/I Compiler and Library V2.3, HLASM (the      *   FILE 295
//*      High Level Assembler), and HASM.                           *   FILE 295
//*                                                                 *   FILE 295
//***FILE 296 IS CURRENTLY EMPTY                                    *   FILE 296
//*                                                                 *   FILE 296
//***FILE 297 IS CURRENTLY EMPTY                                    *   FILE 297
//*                                                                 *   FILE 297
//***FILE 298 IS CURRENTLY EMPTY                                    *   FILE 298
//*                                                                 *   FILE 298
//***FILE 299 IS CURRENTLY EMPTY                                    *   FILE 299
//*                                                                 *   FILE 299
//***FILE 300 IS CURRENTLY EMPTY                                    *   FILE 300
//*                                                                 *   FILE 300
//***FILE 301 IS CURRENTLY EMPTY                                    *   FILE 301
//*                                                                 *   FILE 301
//***FILE 302 IS CURRENTLY EMPTY                                    *   FILE 302
//*                                                                 *   FILE 302
//***FILE 303 IS CURRENTLY EMPTY                                    *   FILE 303
//*                                                                 *   FILE 303
//***FILE 304 IS CURRENTLY EMPTY                                    *   FILE 304
//*                                                                 *   FILE 304
//***FILE 305 IS CURRENTLY EMPTY                                    *   FILE 305
//*                                                                 *   FILE 305
//***FILE 306 IS CURRENTLY EMPTY                                    *   FILE 306
//*                                                                 *   FILE 306
//***FILE 307 IS CURRENTLY EMPTY                                    *   FILE 307
//*                                                                 *   FILE 307
//***FILE 308 IS CURRENTLY EMPTY                                    *   FILE 308
//*                                                                 *   FILE 308
//***FILE 309 IS CURRENTLY EMPTY                                    *   FILE 309
//*                                                                 *   FILE 309
//***FILE 310 IS CURRENTLY EMPTY                                    *   FILE 310
//*                                                                 *   FILE 310
//***FILE 311 IS CURRENTLY EMPTY                                    *   FILE 311
//*                                                                 *   FILE 311
//***FILE 312 IS CURRENTLY EMPTY                                    *   FILE 312
//*                                                                 *   FILE 312
//***FILE 313 IS CURRENTLY EMPTY                                    *   FILE 313
//*                                                                 *   FILE 313
//***FILE 314 IS CURRENTLY EMPTY                                    *   FILE 314
//*                                                                 *   FILE 314
//***FILE 315 IS CURRENTLY EMPTY                                    *   FILE 315
//*                                                                 *   FILE 315
//***FILE 316 IS CURRENTLY EMPTY                                    *   FILE 316
//*                                                                 *   FILE 316
//***FILE 317 IS CURRENTLY EMPTY                                    *   FILE 317
//*                                                                 *   FILE 317
//***FILE 318 IS CURRENTLY EMPTY                                    *   FILE 318
//*                                                                 *   FILE 318
//***FILE 319 IS CURRENTLY EMPTY                                    *   FILE 319
//*                                                                 *   FILE 319
//***FILE 320 IS CURRENTLY EMPTY                                    *   FILE 320
//*                                                                 *   FILE 320
//***FILE 321 IS CURRENTLY EMPTY                                    *   FILE 321
//*                                                                 *   FILE 321
//***FILE 322 IS CURRENTLY EMPTY                                    *   FILE 322
//*                                                                 *   FILE 322
//***FILE 323 IS CURRENTLY EMPTY                                    *   FILE 323
//*                                                                 *   FILE 323
//***FILE 324 IS CURRENTLY EMPTY                                    *   FILE 324
//*                                                                 *   FILE 324
//***FILE 325 IS CURRENTLY EMPTY                                    *   FILE 325
//*                                                                 *   FILE 325
//***FILE 326 IS CURRENTLY EMPTY                                    *   FILE 326
//*                                                                 *   FILE 326
//***FILE 327 IS CURRENTLY EMPTY                                    *   FILE 327
//*                                                                 *   FILE 327
//***FILE 328 IS CURRENTLY EMPTY                                    *   FILE 328
//*                                                                 *   FILE 328
//***FILE 329 IS CURRENTLY EMPTY                                    *   FILE 329
//*                                                                 *   FILE 329
//***FILE 330 IS CURRENTLY EMPTY                                    *   FILE 330
//*                                                                 *   FILE 330
//***FILE 331 IS CURRENTLY EMPTY                                    *   FILE 331
//*                                                                 *   FILE 331
//***FILE 332 IS CURRENTLY EMPTY                                    *   FILE 332
//*                                                                 *   FILE 332
//***FILE 333 IS CURRENTLY EMPTY                                    *   FILE 333
//*                                                                 *   FILE 333
//***FILE 334 IS CURRENTLY EMPTY                                    *   FILE 334
//*                                                                 *   FILE 334
//***FILE 335 IS CURRENTLY EMPTY                                    *   FILE 335
//*                                                                 *   FILE 335
//***FILE 336 IS CURRENTLY EMPTY                                    *   FILE 336
//*                                                                 *   FILE 336
//***FILE 337 IS CURRENTLY EMPTY                                    *   FILE 337
//*                                                                 *   FILE 337
//***FILE 338 IS CURRENTLY EMPTY                                    *   FILE 338
//*                                                                 *   FILE 338
//***FILE 339 IS CURRENTLY EMPTY                                    *   FILE 339
//*                                                                 *   FILE 339
//***FILE 340 IS CURRENTLY EMPTY                                    *   FILE 340
//*                                                                 *   FILE 340
//***FILE 341 IS CURRENTLY EMPTY                                    *   FILE 341
//*                                                                 *   FILE 341
//***FILE 342 IS CURRENTLY EMPTY                                    *   FILE 342
//*                                                                 *   FILE 342
//***FILE 343 IS CURRENTLY EMPTY                                    *   FILE 343
//*                                                                 *   FILE 343
//***FILE 344 IS CURRENTLY EMPTY                                    *   FILE 344
//*                                                                 *   FILE 344
//***FILE 345 IS CURRENTLY EMPTY                                    *   FILE 345
//*                                                                 *   FILE 345
//***FILE 346 IS CURRENTLY EMPTY                                    *   FILE 346
//*                                                                 *   FILE 346
//***FILE 347 IS CURRENTLY EMPTY                                    *   FILE 347
//*                                                                 *   FILE 347
//***FILE 348 IS CURRENTLY EMPTY                                    *   FILE 348
//*                                                                 *   FILE 348
//***FILE 349 IS CURRENTLY EMPTY                                    *   FILE 349
//*                                                                 *   FILE 349
//***FILE 350 IS CURRENTLY EMPTY                                    *   FILE 350
//*                                                                 *   FILE 350
//***FILE 351 IS CURRENTLY EMPTY                                    *   FILE 351
//*                                                                 *   FILE 351
//***FILE 352 IS CURRENTLY EMPTY                                    *   FILE 352
//*                                                                 *   FILE 352
//***FILE 353 IS CURRENTLY EMPTY                                    *   FILE 353
//*                                                                 *   FILE 353
//***FILE 354 IS CURRENTLY EMPTY                                    *   FILE 354
//*                                                                 *   FILE 354
//***FILE 355 IS CURRENTLY EMPTY                                    *   FILE 355
//*                                                                 *   FILE 355
//***FILE 356 IS CURRENTLY EMPTY                                    *   FILE 356
//*                                                                 *   FILE 356
//***FILE 357 IS CURRENTLY EMPTY                                    *   FILE 357
//*                                                                 *   FILE 357
//***FILE 358 IS CURRENTLY EMPTY                                    *   FILE 358
//*                                                                 *   FILE 358
//***FILE 359 IS CURRENTLY EMPTY                                    *   FILE 359
//*                                                                 *   FILE 359
//***FILE 360 IS CURRENTLY EMPTY                                    *   FILE 360
//*                                                                 *   FILE 360
//***FILE 361 IS CURRENTLY EMPTY                                    *   FILE 361
//*                                                                 *   FILE 361
//***FILE 362 IS CURRENTLY EMPTY                                    *   FILE 362
//*                                                                 *   FILE 362
//***FILE 363 IS CURRENTLY EMPTY                                    *   FILE 363
//*                                                                 *   FILE 363
//***FILE 364 IS CURRENTLY EMPTY                                    *   FILE 364
//*                                                                 *   FILE 364
//***FILE 365 IS CURRENTLY EMPTY                                    *   FILE 365
//*                                                                 *   FILE 365
//***FILE 366 IS CURRENTLY EMPTY                                    *   FILE 366
//*                                                                 *   FILE 366
//***FILE 367 IS CURRENTLY EMPTY                                    *   FILE 367
//*                                                                 *   FILE 367
//***FILE 368 IS CURRENTLY EMPTY                                    *   FILE 368
//*                                                                 *   FILE 368
//***FILE 369 IS CURRENTLY EMPTY                                    *   FILE 369
//*                                                                 *   FILE 369
//***FILE 370 IS CURRENTLY EMPTY                                    *   FILE 370
//*                                                                 *   FILE 370
//***FILE 371 IS CURRENTLY EMPTY                                    *   FILE 371
//*                                                                 *   FILE 371
//***FILE 372 IS CURRENTLY EMPTY                                    *   FILE 372
//*                                                                 *   FILE 372
//***FILE 373 IS CURRENTLY EMPTY                                    *   FILE 373
//*                                                                 *   FILE 373
//***FILE 374 IS CURRENTLY EMPTY                                    *   FILE 374
//*                                                                 *   FILE 374
//***FILE 375 IS CURRENTLY EMPTY                                    *   FILE 375
//*                                                                 *   FILE 375
//***FILE 376 IS CURRENTLY EMPTY                                    *   FILE 376
//*                                                                 *   FILE 376
//***FILE 377 IS CURRENTLY EMPTY                                    *   FILE 377
//*                                                                 *   FILE 377
//***FILE 378 IS CURRENTLY EMPTY                                    *   FILE 378
//*                                                                 *   FILE 378
//***FILE 379 IS CURRENTLY EMPTY                                    *   FILE 379
//*                                                                 *   FILE 379
//***FILE 380 IS CURRENTLY EMPTY                                    *   FILE 380
//*                                                                 *   FILE 380
//***FILE 381 IS CURRENTLY EMPTY                                    *   FILE 381
//*                                                                 *   FILE 381
//***FILE 382 IS CURRENTLY EMPTY                                    *   FILE 382
//*                                                                 *   FILE 382
//***FILE 383 IS CURRENTLY EMPTY                                    *   FILE 383
//*                                                                 *   FILE 383
//***FILE 384 IS CURRENTLY EMPTY                                    *   FILE 384
//*                                                                 *   FILE 384
//***FILE 385 IS CURRENTLY EMPTY                                    *   FILE 385
//*                                                                 *   FILE 385
//***FILE 386 IS CURRENTLY EMPTY                                    *   FILE 386
//*                                                                 *   FILE 386
//***FILE 387 IS CURRENTLY EMPTY                                    *   FILE 387
//*                                                                 *   FILE 387
//***FILE 388 IS CURRENTLY EMPTY                                    *   FILE 388
//*                                                                 *   FILE 388
//***FILE 389 IS CURRENTLY EMPTY                                    *   FILE 389
//*                                                                 *   FILE 389
//***FILE 390 IS CURRENTLY EMPTY                                    *   FILE 390
//*                                                                 *   FILE 390
//***FILE 391 IS CURRENTLY EMPTY                                    *   FILE 391
//*                                                                 *   FILE 391
//***FILE 392 IS CURRENTLY EMPTY                                    *   FILE 392
//*                                                                 *   FILE 392
//***FILE 393 IS CURRENTLY EMPTY                                    *   FILE 393
//*                                                                 *   FILE 393
//***FILE 394 IS CURRENTLY EMPTY                                    *   FILE 394
//*                                                                 *   FILE 394
//***FILE 395 IS CURRENTLY EMPTY                                    *   FILE 395
//*                                                                 *   FILE 395
//***FILE 396 IS CURRENTLY EMPTY                                    *   FILE 396
//*                                                                 *   FILE 396
//***FILE 397 IS CURRENTLY EMPTY                                    *   FILE 397
//*                                                                 *   FILE 397
//***FILE 398 IS CURRENTLY EMPTY                                    *   FILE 398
//*                                                                 *   FILE 398
//***FILE 399 IS CURRENTLY EMPTY                                    *   FILE 399
//*                                                                 *   FILE 399
//***FILE 400 IS CURRENTLY EMPTY                                    *   FILE 400
//*                                                                 *   FILE 400
//***FILE 401 IS CURRENTLY EMPTY                                    *   FILE 401
//*                                                                 *   FILE 401
//***FILE 402 IS CURRENTLY EMPTY                                    *   FILE 402
//*                                                                 *   FILE 402
//***FILE 403 IS CURRENTLY EMPTY                                    *   FILE 403
//*                                                                 *   FILE 403
//***FILE 404 IS CURRENTLY EMPTY                                    *   FILE 404
//*                                                                 *   FILE 404
//***FILE 405 IS CURRENTLY EMPTY                                    *   FILE 405
//*                                                                 *   FILE 405
//***FILE 406 IS CURRENTLY EMPTY                                    *   FILE 406
//*                                                                 *   FILE 406
//***FILE 407 IS CURRENTLY EMPTY                                    *   FILE 407
//*                                                                 *   FILE 407
//***FILE 408 IS CURRENTLY EMPTY                                    *   FILE 408
//*                                                                 *   FILE 408
//***FILE 409 IS CURRENTLY EMPTY                                    *   FILE 409
//*                                                                 *   FILE 409
//***FILE 410 IS CURRENTLY EMPTY                                    *   FILE 410
//*                                                                 *   FILE 410
//***FILE 411 IS CURRENTLY EMPTY                                    *   FILE 411
//*                                                                 *   FILE 411
//***FILE 412 IS CURRENTLY EMPTY                                    *   FILE 412
//*                                                                 *   FILE 412
//***FILE 413 IS CURRENTLY EMPTY                                    *   FILE 413
//*                                                                 *   FILE 413
//***FILE 414 IS CURRENTLY EMPTY                                    *   FILE 414
//*                                                                 *   FILE 414
//***FILE 415 IS CURRENTLY EMPTY                                    *   FILE 415
//*                                                                 *   FILE 415
//***FILE 416 IS CURRENTLY EMPTY                                    *   FILE 416
//*                                                                 *   FILE 416
//***FILE 417 IS CURRENTLY EMPTY                                    *   FILE 417
//*                                                                 *   FILE 417
//***FILE 418 IS CURRENTLY EMPTY                                    *   FILE 418
//*                                                                 *   FILE 418
//***FILE 419 IS CURRENTLY EMPTY                                    *   FILE 419
//*                                                                 *   FILE 419
//***FILE 420 IS CURRENTLY EMPTY                                    *   FILE 420
//*                                                                 *   FILE 420
//***FILE 421 IS CURRENTLY EMPTY                                    *   FILE 421
//*                                                                 *   FILE 421
//***FILE 422 IS CURRENTLY EMPTY                                    *   FILE 422
//*                                                                 *   FILE 422
//***FILE 423 IS CURRENTLY EMPTY                                    *   FILE 423
//*                                                                 *   FILE 423
//***FILE 424 IS CURRENTLY EMPTY                                    *   FILE 424
//*                                                                 *   FILE 424
//***FILE 425 IS CURRENTLY EMPTY                                    *   FILE 425
//*                                                                 *   FILE 425
//***FILE 426 IS CURRENTLY EMPTY                                    *   FILE 426
//*                                                                 *   FILE 426
//***FILE 427 IS CURRENTLY EMPTY                                    *   FILE 427
//*                                                                 *   FILE 427
//***FILE 428 IS CURRENTLY EMPTY                                    *   FILE 428
//*                                                                 *   FILE 428
//***FILE 429 IS CURRENTLY EMPTY                                    *   FILE 429
//*                                                                 *   FILE 429
//***FILE 430 IS CURRENTLY EMPTY                                    *   FILE 430
//*                                                                 *   FILE 430
//***FILE 431 IS CURRENTLY EMPTY                                    *   FILE 431
//*                                                                 *   FILE 431
//***FILE 432 IS CURRENTLY EMPTY                                    *   FILE 432
//*                                                                 *   FILE 432
//***FILE 433 IS CURRENTLY EMPTY                                    *   FILE 433
//*                                                                 *   FILE 433
//***FILE 434 IS CURRENTLY EMPTY                                    *   FILE 434
//*                                                                 *   FILE 434
//***FILE 435 IS CURRENTLY EMPTY                                    *   FILE 435
//*                                                                 *   FILE 435
//***FILE 436 IS CURRENTLY EMPTY                                    *   FILE 436
//*                                                                 *   FILE 436
//***FILE 437 IS CURRENTLY EMPTY                                    *   FILE 437
//*                                                                 *   FILE 437
//***FILE 438 IS CURRENTLY EMPTY                                    *   FILE 438
//*                                                                 *   FILE 438
//***FILE 439 IS CURRENTLY EMPTY                                    *   FILE 439
//*                                                                 *   FILE 439
//***FILE 440 IS CURRENTLY EMPTY                                    *   FILE 440
//*                                                                 *   FILE 440
//***FILE 441 IS CURRENTLY EMPTY                                    *   FILE 441
//*                                                                 *   FILE 441
//***FILE 442 IS CURRENTLY EMPTY                                    *   FILE 442
//*                                                                 *   FILE 442
//***FILE 443 IS CURRENTLY EMPTY                                    *   FILE 443
//*                                                                 *   FILE 443
//***FILE 444 IS CURRENTLY EMPTY                                    *   FILE 444
//*                                                                 *   FILE 444
//***FILE 445 IS CURRENTLY EMPTY                                    *   FILE 445
//*                                                                 *   FILE 445
//***FILE 446 IS CURRENTLY EMPTY                                    *   FILE 446
//*                                                                 *   FILE 446
//***FILE 447 IS CURRENTLY EMPTY                                    *   FILE 447
//*                                                                 *   FILE 447
//***FILE 448 IS CURRENTLY EMPTY                                    *   FILE 448
//*                                                                 *   FILE 448
//***FILE 449 IS CURRENTLY EMPTY                                    *   FILE 449
//*                                                                 *   FILE 449
//***FILE 450 IS CURRENTLY EMPTY                                    *   FILE 450
//*                                                                 *   FILE 450
//***FILE 451 IS CURRENTLY EMPTY                                    *   FILE 451
//*                                                                 *   FILE 451
//***FILE 452 IS CURRENTLY EMPTY                                    *   FILE 452
//*                                                                 *   FILE 452
//***FILE 453 IS CURRENTLY EMPTY                                    *   FILE 453
//*                                                                 *   FILE 453
//***FILE 454 IS CURRENTLY EMPTY                                    *   FILE 454
//*                                                                 *   FILE 454
//***FILE 455 IS CURRENTLY EMPTY                                    *   FILE 455
//*                                                                 *   FILE 455
//***FILE 456 IS CURRENTLY EMPTY                                    *   FILE 456
//*                                                                 *   FILE 456
//***FILE 457 IS CURRENTLY EMPTY                                    *   FILE 457
//*                                                                 *   FILE 457
//***FILE 458 IS CURRENTLY EMPTY                                    *   FILE 458
//*                                                                 *   FILE 458
//***FILE 459 IS CURRENTLY EMPTY                                    *   FILE 459
//*                                                                 *   FILE 459
//***FILE 460 IS CURRENTLY EMPTY                                    *   FILE 460
//*                                                                 *   FILE 460
//***FILE 461 IS CURRENTLY EMPTY                                    *   FILE 461
//*                                                                 *   FILE 461
//***FILE 462 IS CURRENTLY EMPTY                                    *   FILE 462
//*                                                                 *   FILE 462
//***FILE 463 IS CURRENTLY EMPTY                                    *   FILE 463
//*                                                                 *   FILE 463
//***FILE 464 IS CURRENTLY EMPTY                                    *   FILE 464
//*                                                                 *   FILE 464
//***FILE 465 IS CURRENTLY EMPTY                                    *   FILE 465
//*                                                                 *   FILE 465
//***FILE 466 IS CURRENTLY EMPTY                                    *   FILE 466
//*                                                                 *   FILE 466
//***FILE 467 IS CURRENTLY EMPTY                                    *   FILE 467
//*                                                                 *   FILE 467
//***FILE 468 IS CURRENTLY EMPTY                                    *   FILE 468
//*                                                                 *   FILE 468
//***FILE 469 IS CURRENTLY EMPTY                                    *   FILE 469
//*                                                                 *   FILE 469
//***FILE 470 IS CURRENTLY EMPTY                                    *   FILE 470
//*                                                                 *   FILE 470
//***FILE 471 IS CURRENTLY EMPTY                                    *   FILE 471
//*                                                                 *   FILE 471
//***FILE 472 IS CURRENTLY EMPTY                                    *   FILE 472
//*                                                                 *   FILE 472
//***FILE 473 IS CURRENTLY EMPTY                                    *   FILE 473
//*                                                                 *   FILE 473
//***FILE 474 IS CURRENTLY EMPTY                                    *   FILE 474
//*                                                                 *   FILE 474
//***FILE 475 IS CURRENTLY EMPTY                                    *   FILE 475
//*                                                                 *   FILE 475
//***FILE 476 IS CURRENTLY EMPTY                                    *   FILE 476
//*                                                                 *   FILE 476
//***FILE 477 IS CURRENTLY EMPTY                                    *   FILE 477
//*                                                                 *   FILE 477
//***FILE 478 IS CURRENTLY EMPTY                                    *   FILE 478
//*                                                                 *   FILE 478
//***FILE 479 IS CURRENTLY EMPTY                                    *   FILE 479
//*                                                                 *   FILE 479
//***FILE 480 IS CURRENTLY EMPTY                                    *   FILE 480
//*                                                                 *   FILE 480
//***FILE 481 IS CURRENTLY EMPTY                                    *   FILE 481
//*                                                                 *   FILE 481
//***FILE 482 IS CURRENTLY EMPTY                                    *   FILE 482
//*                                                                 *   FILE 482
//***FILE 483 IS CURRENTLY EMPTY                                    *   FILE 483
//*                                                                 *   FILE 483
//***FILE 484 IS CURRENTLY EMPTY                                    *   FILE 484
//*                                                                 *   FILE 484
//***FILE 485 IS CURRENTLY EMPTY                                    *   FILE 485
//*                                                                 *   FILE 485
//***FILE 486 IS CURRENTLY EMPTY                                    *   FILE 486
//*                                                                 *   FILE 486
//***FILE 487 IS CURRENTLY EMPTY                                    *   FILE 487
//*                                                                 *   FILE 487
//***FILE 488 IS CURRENTLY EMPTY                                    *   FILE 488
//*                                                                 *   FILE 488
//***FILE 489 IS CURRENTLY EMPTY                                    *   FILE 489
//*                                                                 *   FILE 489
//***FILE 490 IS CURRENTLY EMPTY                                    *   FILE 490
//*                                                                 *   FILE 490
//***FILE 491 IS CURRENTLY EMPTY                                    *   FILE 491
//*                                                                 *   FILE 491
//***FILE 492 IS CURRENTLY EMPTY                                    *   FILE 492
//*                                                                 *   FILE 492
//***FILE 493 IS CURRENTLY EMPTY                                    *   FILE 493
//*                                                                 *   FILE 493
//***FILE 494 IS CURRENTLY EMPTY                                    *   FILE 494
//*                                                                 *   FILE 494
//***FILE 495 IS CURRENTLY EMPTY                                    *   FILE 495
//*                                                                 *   FILE 495
//***FILE 496 IS CURRENTLY EMPTY                                    *   FILE 496
//*                                                                 *   FILE 496
//***FILE 497 IS CURRENTLY EMPTY                                    *   FILE 497
//*                                                                 *   FILE 497
//***FILE 498 IS CURRENTLY EMPTY                                    *   FILE 498
//*                                                                 *   FILE 498
//***FILE 499 IS CURRENTLY EMPTY                                    *   FILE 499
//*                                                                 *   FILE 499
//***FILE 500 IS CURRENTLY EMPTY                                    *   FILE 500
//*                                                                 *   FILE 500
//*                                                                 *   FILE 500
//***SECTION JCL SECTION                                            *   FILE 500
//*                                                                 *   FILE 500
//*   THE FOLLOWING IS THE JCL THAT I USED TO BUILD THE TAPE        *   FILE 500
//*   IF YOU ARE LOOKING DOWN HERE FOR HOW TO DROP THE TAPE         *   FILE 500
//*   YOU SHOULD LOOK AT FILE 003 OF THE TAPE WHICH IS THE JCL      *   FILE 500
//*   TO DROP DOWN ALL THE DATA ON THE TAPE                         *   FILE 500
//*                                                ARNIE            *   FILE 500
//*                                                                 *   FILE 500
//* ^ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *   FILE 500
//*                                                                 *   FILE 500
//*   JCL SECTION IS BEING DROPPED FOR LACK OF SPACE - S.GOLOB      *   FILE 500
//*    WITH VERSION 327.                 MAY 16, 1991               *   FILE 500
//*                                                                 *   FILE 500
//* ^ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *   FILE 500
//PANPAN   PROC   (ARNIE'S GOOD-BYE MESSAGE RESTORED 01/05/94.)     *   JCL FILE
//*  FINIS, BYE.  ARNIE 9/18/90                                     *   JCL FILE
