//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 07-25-04 * * DOC FILE //* ******************** * DOC FILE //* * VERSION # 466V * * 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 -- * DOC FILE //* -- -- * DOC FILE //* --------------------------------------------------------------- * DOC FILE //* -- -- * DOC FILE //* -- ANNOUNCEMENT - (FROM SAM GOLOB) (03/03) -- * DOC FILE //* -- -- * DOC FILE //* -- My email addresses: sbgolob@attglobal.net -- * DOC FILE //* -- sbgolob@aol.com -- * DOC FILE //* -- sbgolob@cbttape.org -- * 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, AS WELL AS TO ALL AUTHORS AND CONTRIBUTORS OF * DOC FILE //* MATERIAL TO THIS TAPE. NO RESPONSIBILITIES ARE ASSUMED * DOC FILE //* BY ANY OF THESE PERSONS, INSTALLATIONS, CORPORATIONS, * DOC FILE //* ENTITIES, INSTITUTIONS, OR ORGANIZATIONS. * DOC FILE //* * DOC FILE //* No warranty, expressed or implied, is provided by any or * DOC FILE //* all of the persons and/or installations editing, * DOC FILE //* duplicating, or otherwise handling this tape, as well as * DOC FILE //* by all authors and contributors of material to this tape. * DOC FILE //* Persons and/or installations using any of the programs or * DOC FILE //* materials on this tape, do so 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 * DOC FILE //* ALL OF THE PERSONS AND/OR INSTALLATIONS EDITING, * DOC FILE //* DUPLICATING, OR OTHERWISE HANDLING THIS TAPE, AS WELL AS * DOC FILE //* BY ALL AUTHORS AND CONTRIBUTORS OF MATERIAL TO THIS TAPE. * DOC FILE //* PERSONS AND/OR INSTALLATIONS USING ANY OF THE PROGRAMS OR * DOC FILE //* MATERIALS ON THIS TAPE, DO SO 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, AS * DOC FILE //* WELL AS ANY AUTHORS OR CONTRIBUTORS OF MATERIAL TO THIS * DOC FILE //* TAPE, DO NOT ASSUME ANY RESPONSIBILITY, EXPRESS, IMPLIED, * DOC FILE //* OR TO BE CONSTRUED IN ANY WAY, TO UPDATE THIS TAPE AT * DOC FILE //* ALL. ANY STATEMENTS TO THE CONTRARY, ANYWHERE ON THIS * DOC FILE //* TAPE, ARE HEREBY OVERRIDDEN BY THIS STATEMENT. * DOC FILE //* * DOC FILE //* Specifically, but not limited thereto, no responsibility * DOC FILE //* is assumed, in any way, by anyone handling this tape, or * DOC FILE //* by any author or contributor of material to this tape, to * DOC FILE //* ensure YEAR 2000 compliance of any materials on this * DOC FILE //* tape, at all. * DOC FILE //* * DOC FILE //* THESE STATEMENTS, IN THEIR GENERAL APPLICATION, AND NOT * DOC FILE //* LIMITED TO YEAR 2000 CONSIDERATIONS, APPLY TO ALL * DOC FILE //* MATERIALS CONTAINED ON THIS 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@attglobal.net * DOC FILE //* sbgolob@aol.com * 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... ) The COPYMODS * DOC FILE //* program has now been fixed, to copy tapes with * DOC FILE //* null SL files (two consecutive tape marks between * DOC FILE //* header and trailer labels) properly. * DOC FILE //* * DOC FILE //* You might also 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 //* * DOC FILE //* -- email: sbgolob@attglobal.net OR -- * DOC FILE //* -- sbgolob@aol.com -- * 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 //* Please write to me about these or any other errors. Thanks. * 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 //* * DOC FILE //* email addresses: sbgolob@attglobal.net * DOC FILE //* sbgolob@aol.com * 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-other tape copy programs * DOC FILE //*+File 007: UCLA Tapemap Program - other Tape Mapping Programs * DOC FILE //*+File 008: Load Module Library - similar to File 035 of CBT * DOC FILE //*+File 009: AWS Tape <---> Real Tape Conversion Utilities on MVS * 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 * DOC FILE //*+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: LISP for MVS - moved from CBT File 476 * DOC FILE //*+File 084: PDS Version 8.4 * DOC FILE //*+File 085: ASSIST Assembler - used to teach BAL Assembler * DOC FILE //*+File 086: MVS 3.8J SYS1.MACLIB w/3375, 3380, 3390 support * DOC FILE //*+File 087: MVS 3.8J SYS1.AMODGEN w/3375, 3380, 3390 support * DOC FILE //*+File 088: MVS 3.8J SYS1.AGENLIB w/3375, 3380, 3390 support * DOC FILE //*+File 089: ALGOL Compiler and Library *# DOC FILE //*+File 090: Free FORTRAN G & H Compiler and Library *# DOC FILE //*+File 091: Free RPG/F Compiler and Library-tutorial CBT File 667*# DOC FILE //*+File 092: PL1/F Compiler and Library *# 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: TSSO 4.3B from File 404 before Ed Jaffe's updates * 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: CMD1 subsystem for XA/ESA * DOC FILE //*+File 297: Programs from Computer Data Systems * DOC FILE //*+File 298: TCAM 10 source, and free BTAM libraries * DOC FILE //*+File 299: EMPTY * DOC FILE //*+File 300: HSM/SMS front-end and DCOLLECT tool - from F. Alber * DOC FILE //*+File 301: INTEL large collection of utilities * 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: CICS Version of Cross System by Ken Tomiak * DOC FILE //*+File 311: CICS XSYS Documentation in SCRIPT format * DOC FILE //*+File 312: DB2 CROSS SYSTEM by Ken Tomiak * DOC FILE //*+File 313: DB2 XSYS Documentation in SCRIPT format * 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 //* The best way to get CBT Tape and CBT Overflow Tape materials * DOC FILE //* is on the Internet. Go to: * DOC FILE //* * DOC FILE //* http://www.cbttape.org * DOC FILE //* * DOC FILE //* This site is open to everyone. You do not have to be a * DOC FILE //* member of anything, or to have a password, to download any * DOC FILE //* of the files from this site..... * DOC FILE //* * DOC FILE //* Like the CBT Tapes themselves, this web site is open to the * DOC FILE //* public, and is a public service. * 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: * 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 //* CONTRIBUTIONS TO THIS TAPE CAN NOW BE MADE THROUGH THE * DOC FILE //* INTERNET, BY EMAIL. MY EMAIL ADDRESSES ARE: * DOC FILE //* * DOC FILE //* sbgolob@attglobal.net or sbgolob@aol.com * 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 downloaded * DOC FILE //* to a PC (optionally zipped first) and attached as a file * DOC FILE //* to an email message to: * DOC FILE //* * DOC FILE //* sbgolob@attglobal.net * DOC FILE //* * DOC FILE //* Alternatively, you may go to our web site: * DOC FILE //* * DOC FILE //* www.cbttape.org * DOC FILE //* * DOC FILE //* and click on the area of the home page which says: * DOC FILE //* * DOC FILE //* "how to contribut to the tape" . * 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 //* Sam Knutson * DOC FILE //* * DOC FILE //* Or go to: * DOC FILE //* * DOC FILE //* www.cbttape.org * DOC FILE //* * DOC FILE //* and click on "Order cd-roms". Or click on Sam Knutson's * DOC FILE //* email button, and write an order request to him. * DOC FILE //* * DOC FILE //* You can cut your own tape from an AWS-format CBT Tape * DOC FILE //* which is on a cd-rom. You will need the VTT2TAPE program * DOC FILE //* from File 533 of the regular CBT Tape, to do this. * DOC FILE //* * DOC FILE //* This can be done on any MVS system with a tape drive. * DOC FILE //* * DOC FILE //* The procedure consists of uploading the AWS-format tape * DOC FILE //* file to MVS, folding it over into an FB-80 file on MVS, * DOC FILE //* and then running the VTT2TAPE program against that FB-80 * DOC FILE //* folded AWS file, to cut a real tape. * 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 CONTACT INFORMATION: * DOC FILE //* * DOC FILE //* ADDRESS: (USE THE FOLLOWING ADDRESS UNTIL FURTHER NOTICE) * DOC FILE //* * DOC FILE //* SAM GOLOB * DOC FILE //* P.O. BOX 906 * DOC FILE //* TALLMAN, NY 10982-0906 * DOC FILE //* * DOC FILE //* email: sbgolob@attglobal.net or sbgolob@aol.com * 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-466 SECTION * DOC FILE //* V-466 CHANGES FOR VERSION 466 JUL 25, 2004 * DOC FILE //* * DOC FILE //* 01 Addition of File 089 which is the ALGOL compiler * DOC FILE //* for MVT, that had been moved from CBT Tape File * DOC FILE //* 176. * DOC FILE //* * DOC FILE //* 02 Addition of File 090 which is the FORTRAN compiler * DOC FILE //* for MVT, that had been moved from CBT Tape File * DOC FILE //* 326. * DOC FILE //* * DOC FILE //* 03 Addition of File 091 which is the RPG-F compiler * DOC FILE //* for MVT, that had been moved from CBT Tape File * DOC FILE //* 327. * DOC FILE //* * DOC FILE //* 03 Addition of File 092 which is the PL/I-F compiler * DOC FILE //* for MVT, that had been moved from CBT Tape File * DOC FILE //* 092. * DOC FILE //* * DOC FILE //***SECTION V-464 SECTION * DOC FILE //* V-464 CHANGES FOR VERSION 464 FEB 05, 2004 * DOC FILE //* * DOC FILE //* 01 Update to File 103 to add File 001 for CBT Version * DOC FILE //* 464. * DOC FILE //* * DOC FILE //* 02 Addition of File 301, which is the INTEL programs * DOC FILE //* taken from File 352 of the regular CBT Tape. * DOC FILE //* * DOC FILE //* 03 Addition of File 310, which is the XSYS Cross * DOC FILE //* System Maintenance system for CICS by Ken Tomiak. * DOC FILE //* This file was taken from the regular CBT Tape, * DOC FILE //* File 210. * DOC FILE //* * DOC FILE //* 04 Addition of File 311, which contains documentation * DOC FILE //* for the XSYS Cross System Maintenance system for * DOC FILE //* CICS, which is on File 310. This file was taken * DOC FILE //* from the regular CBT Tape, File 211. * DOC FILE //* * DOC FILE //* 05 Addition of File 312, which is the XSYS Cross * DOC FILE //* System Maintenance system for DB2 by Ken Tomiak. * DOC FILE //* This file was taken from the regular CBT Tape, * DOC FILE //* File 212. * DOC FILE //* * DOC FILE //* 06 Addition of File 313, which contains documentation * DOC FILE //* for the XSYS Cross System Maintenance system for * DOC FILE //* DB2, which is on File 312. This file was taken * DOC FILE //* from the regular CBT Tape, File 213. * DOC FILE //* * DOC FILE //***SECTION V-461 SECTION * DOC FILE //* V-461 CHANGES FOR VERSION 461 JUL 15, 2003 * DOC FILE //* * DOC FILE //* 01 Update to File 103 to add File 001 for CBT Version * DOC FILE //* 461. * DOC FILE //* * DOC FILE //* 02 Addition of File 296, which is the CMD1 subsystem * DOC FILE //* taken from File 261 of the regular CBT Tape. * DOC FILE //* * DOC FILE //* 03 Addition of File 297, which has programs from * DOC FILE //* Computer Data Systems. This file was taken from * DOC FILE //* the regular CBT Tape, File 384. * DOC FILE //* * DOC FILE //* 04 Addition of File 298, which contains TCAM 10 source * DOC FILE //* code, and the free BTAM libraries. * DOC FILE //* * DOC FILE //* 05 Update to File 300, which is the HICS system from * DOC FILE //* Fritz Alber. This is a multi-purpose storage * DOC FILE //* administrator tool, which is a front-end to help * DOC FILE //* administer HSM, and SMF, with ISMF. This is a very * DOC FILE //* large file (over 500000 records). * DOC FILE //* * DOC FILE //***SECTION V-459 SECTION * DOC FILE //* V-459 CHANGES FOR VERSION 459 MAR 19, 2003 * DOC FILE //* * DOC FILE //* 01 Update to File 103 to add File 001 for CBT Version * DOC FILE //* 458. * DOC FILE //* * DOC FILE //* 02 Addition of File 300, which is the HICS system from * DOC FILE //* Fritz Alber. This is a multi-purpose storage * DOC FILE //* administrator tool, which is a front-end to help * DOC FILE //* administer HSM, and SMF, with ISMF. This is a very * DOC FILE //* large file (over 500000 records). * DOC FILE //* * DOC FILE //***SECTION V-458 SECTION * DOC FILE //* V-458 CHANGES FOR VERSION 458 MAR 02, 2003 * DOC FILE //* * DOC FILE //* 01 Update to File 004 to add a few utilities for * DOC FILE //* keeping track of CBT Overflow tape files. Also, * DOC FILE //* GENCOV and DOCCOV were updated for version 458. * DOC FILE //* * DOC FILE //* 02 Addition of File 083 which is the LISP compiler * DOC FILE //* and execution library for MVS. This file was moved * DOC FILE //* from File 476 of the regular CBT Tape, because of * DOC FILE //* space considerations on the regular CBT Tape. * DOC FILE //* * DOC FILE //* 03 Addition of File 085 which is the ASSIST Assembler * DOC FILE //* that was used on OS/360, to teach BAL Assembler * DOC FILE //* language. This file was moved from File 505 of the * DOC FILE //* regular CBT Tape. * DOC FILE //* * DOC FILE //* 04 Addition of File 086 which is the MVS 3.8 * DOC FILE //* SYS1.MACLIB macro library, modified for 3375, 3380, * DOC FILE //* and 3390 device support. * DOC FILE //* * DOC FILE //* 05 Addition of File 087 which is the MVS 3.8 * DOC FILE //* SYS1.AMODGEN macro library, modified for 3375, 3380, * DOC FILE //* and 3390 device support. * DOC FILE //* * DOC FILE //* 06 Addition of File 088 which is the MVS 3.8 * DOC FILE //* SYS1.AGENLIB macro library, modified for 3375, 3380, * DOC FILE //* and 3390 device support. * DOC FILE //* * DOC FILE //* 07 Update to File 103 to add File 001 for CBT Version * DOC FILE //* 457. * DOC FILE //* * DOC FILE //* 08 Addition of File 250, which is the version of TSSO * DOC FILE //* 4.3, before Ed Jaffe's updates. If you are using * DOC FILE //* ESA 3 or earlier as your MVS system, the latest TSSO * DOC FILE //* will not work, so you need this version. * DOC FILE //* * DOC FILE //***SECTION V-455 SECTION * DOC FILE //* V-455 CHANGES FOR VERSION 455 NOV 21, 2002 * DOC FILE //* * DOC FILE //* 01 Addition of File 250, which is the previous version * DOC FILE //* of TSSO 4.3 that was found on File 404 of the CBT * DOC FILE //* Tape before Ed Jaffe made his updates. If you have * DOC FILE //* an MVS system from before ESA 4.1, you'll need this * DOC FILE //* version. * DOC FILE //* * DOC FILE //***SECTION V-448 SECTION * DOC FILE //* V-448 CHANGES FOR VERSION 448 JUL 14, 2002 * DOC FILE //* * DOC FILE //* 01 Added second job to the JCL in File 003, because * DOC FILE //* there were too many EXEC cards in the old JCL, for * DOC FILE //* the job that loads all the tape files to DASD. * DOC FILE //* * DOC FILE //* 02 Update to File 004, to include the GENCOV and * DOC FILE //* GENDAT and GENDATE clists. * DOC FILE //* * DOC FILE //* 03 Update to File 103, to reflect the CBT Tape * DOC FILE //* documentation file, File 001, for CBT Tape Version * DOC FILE //* 448. * DOC FILE //* * DOC FILE //***SECTION V-447 SECTION * DOC FILE //* V-447 CHANGES FOR VERSION 447 MAY 21, 2002 * DOC FILE //* * DOC FILE //* 00 Thanks to Gilbert Saint-flour for hosting the * DOC FILE //* creation of this tape, again. * DOC FILE //* * DOC FILE //* 01 Update to File 006, which is source for tape * DOC FILE //* copying programs. This brings COPYMODS source * DOC FILE //* to Level 049, and we are adding source for * DOC FILE //* programs: COPYFILE, COPYSLNL, and COPYNLNL, * DOC FILE //* together with source code for whatever extra * DOC FILE //* materials that those three programs need. * DOC FILE //* * DOC FILE //* 02 Update to File 007, to combine the contents of * DOC FILE //* the former File 009 into here. These are tape * DOC FILE //* mapping programs: TAPEMAP, TAPESCAN, and * DOC FILE //* SS0104. Also, these programs have been brought * DOC FILE //* up to date, with the latest versions as of the * DOC FILE //* date of this writing. * DOC FILE //* * DOC FILE //* 03 Update to File 008, which is a load module file * DOC FILE //* that contains (pretty much) whatever programs * DOC FILE //* that PDS 8.5 needs, plus whatever was in File 035 * DOC FILE //* of the regular CBT Tape. Also, SHOWMVS V7.04 is * DOC FILE //* here, too. * DOC FILE //* * DOC FILE //* 04 Update to File 009. This is a new file, and it * DOC FILE //* contains the same materials that are currently in * DOC FILE //* File 533 of the regular CBT Tape. These are tape * DOC FILE //* conversion utilities which run on MVS, which * DOC FILE //* convert a real tape into an AWS-format tape, and * DOC FILE //* vice-versa. * DOC FILE //* * DOC FILE //* 05 Update to File 040, which is PDS 8.5 that is * DOC FILE //* currently supported by John Kalinich. This file * DOC FILE //* now contains current source for PDS 8.5 Update 21. * DOC FILE //* * DOC FILE //* 06 Update to File 042, which contains all source * DOC FILE //* for the auxiliary utilities (called programs) * DOC FILE //* which PDS 8.5 needs, except for the VTOC command. * DOC FILE //* * DOC FILE //* 07 Update to File 103, which is doc for other tapes. * DOC FILE //* Doc for the regular CBT Tape has been brought up * DOC FILE //* to date. * DOC FILE //* * 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 //* 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 //* GSF = Tested at Convtek * DOC FILE //* CBT = TESTED AT CBT * DOC FILE //* NWK = TESTED AT NEWSWEEK * DOC FILE //* CSC = TESTED AT CSC * DOC FILE //* SBG = TESTED AT some SBG site * DOC FILE //* UNKCBT = NOT TESTED AT CBT * DOC FILE //* UNKNWK = NOT TESTED AT NEWSWEEK * DOC FILE //* UNKCSC = NOT TESTED AT CSC * DOC FILE //* UNKGSF = NOT TESTED AT Convtek * DOC FILE //* UNKSBG = NOT TESTED AT any SBG site * 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 14353 16.7 07-25-04 080 NO* % DOC FILE //* COMPRESS PGM 002 CBT 263 .3 04-01-79 080 NO* DOC FILE //* JCL - DROP TAPE 003 GSF 868 1.4 07-25-04 080 NO* DOC FILE //* File 1 Utilities 004 GSF 2630 S 1.9 03-02-03 080 YES * DOC FILE //* VMREXX-DROP TAPE 005 N/A 1099 1.4 08-24-00 080 NO* DOC FILE //* TAPE COPY Progms 006 CBT 8606 S 5.6 05-21-02 080 YES * DOC FILE //* TAPE Mappng Pgms 007 CBT 18276 S 12.5 05-21-02 080 YES * DOC FILE //* LOAD MODS 008 CSC 224 63.0 05-21-02 IEBCOPY NO* DOC FILE //* TAPE to AWS Conv 009 GSF 5477 S 3.7 05-21-02 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 * DOC FILE //* PDS VERSION 7.3 039 NWK 52431 S 35.6 01-20-98 080 YES * DOC FILE //* PDS VERSION 8.5 040 NWK 92220 S 62.9 05-21-02 080 YES * DOC FILE //* VTOC TSO COMMAND 041 UNKTCN 13792 S 9.3 01-20-98 080 YES * DOC FILE //* UTILTIES FOR PDS 042 GSF 45321 S 27.8 05-21-02 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 UNKGSF118119 S 80.5 10-27-98 080 YES * DOC FILE //* LISP for MVS 083 UNKGSF112363 S100.4 03-02-03 080 YES * DOC FILE //* PDS PREVIOUS 084 CBT 86517 S 59.2 05-20-98 080 YES * DOC FILE //* ASSIST-teach BAL 085 UNKGSF 96856 S 70.4 03-02-03 080 YES * DOC FILE //* MVS38J MACLIB 086 GSF 103452 S 73.1 03-02-03 080 YES * DOC FILE //* MVS38J AMODGEN 087 GSF 69999 S 50.4 03-02-03 080 YES * DOC FILE //* MVS38J AGENLIB 088 GSF 40041 S 29.6 03-02-03 080 YES * DOC FILE //* ALGOL COMP & LIB 089 UNKSBG 52 19.9 07-25-04 IEBCOPY NO* DOC FILE //* FORTRAN H 090 UNKCBT 204 22.2 07-25-04 IEBCOPY NO* DOC FILE //* RPG COMPLR & LIB 091 UNKCSC 84 12.9 07-25-04 IEBCOPY NO* DOC FILE //* PL1/F COMP & LIB 092 UNKCBT 748 81.4 07-25-04 IEBCOPY NO* 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 GSF 105121 S 75.0 02-05-04 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 //* TSSO 4.3 oldvers 250 UNKGSF 48147 S 29.2 03-02-03 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 UNKGSF 1692 S 1.4 12-16-99 080 YES * DOC FILE //* ABE Editor Load 261 UNKGSF 781 219.6 12-16-99 IEBCOPY NO* DOC FILE //* ABE AID Library 262 UNKGSF 7743 S 5.1 12-16-99 080 YES * DOC FILE //* ABE Documentaton 263 UNKGSF 24321 S 14.3 12-16-99 080 YES * DOC FILE //* ABE Source Code 264 UNKGSF211285 S135.6 12-16-99 080 YES * DOC FILE //* ABE Subrtn Doc 265 UNKGSF 16665 S 26.1 12-16-99 IEBCOPY NO* DOC FILE //* ABE Include Libr 266 UNKGSF 209 56.6 12-16-99 IEBCOPY NO* DOC FILE //* ABE LKED Stmts 267 UNKGSF 412 S .4 12-16-99 080 YES * DOC FILE //* ABE Fortran subr 268 UNKGSF 923 S .9 12-16-99 080 YES * DOC FILE //* ABE Fortran Obj 269 UNKGSF 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 UNKGSF 1255 S .9 12-16-99 080 YES * DOC FILE //* QUANDRY Asm Srce 272 UNKGSF 979 S .9 12-16-99 080 YES * DOC FILE //* QUANDRY Clists 273 UNKGSF 218 S .2 12-16-99 080 YES * DOC FILE //* QUANDRY Jobstrms 274 UNKGSF 561 S .4 12-16-99 080 YES * DOC FILE //* QUANDRY Listings 275 UNKGSF 8786 S 20.5 12-16-99 IEBCOPY NO* DOC FILE //* QUANDRY PL1 Srce 276 UNKGSF 4736 S 3.7 12-16-99 080 YES * DOC FILE //* QUANDRY Data Fil 277 UNKGSF 1000 S 24.8 12-16-99 IEBCOPY NO* DOC FILE //* Teledyne Script 278 UNKGSF 13430 S 21.5 12-16-99 IEBCOPY NO* DOC FILE //* Teledyne Script 279 UNKGSF 6277 S 8.4 12-16-99 IEBCOPY NO* DOC FILE //* Teledyne Scr Doc 280 UNKGSF 8001 S 9.8 12-16-99 IEBCOPY NO* DOC FILE //* PL1 Exec Analyzr 281 UNKGSF 2291 S 1.8 12-16-99 080 YES * DOC FILE //* SORTPLI 282 UNKGSF 548 S .4 12-16-99 080 YES * DOC FILE //* Dickie Llib Pgms 283 UNKGSF 1523 S 1.4 12-16-99 080 YES * DOC FILE //* Curv Fitting Pgs 284 UNKGSF 610 S .3 12-16-99 080 YES * DOC FILE //* M.Robinson Prgms 285 UNKGSF 3331 S 1.9 12-16-99 080 YES * DOC FILE //* M.Robinson Prgms 286 UNKGSF 3879 S 2.3 12-16-99 080 YES * DOC FILE //* VM PL1 Monitor 287 UNKGSF 233 8.7 12-16-99 805 NO* DOC FILE //* PL1 3270 Styma 288 UNKGSF 5633 S 4.2 12-16-99 080 YES * DOC FILE //* PL1 IMS Interfac 289 UNKGSF 633 S .4 12-16-99 080 YES * DOC FILE //* Display Dataset 290 UNKGSF 6210 S 4.2 12-16-99 080 YES * DOC FILE //* PL1 3270 Hadden 291 UNKGSF 1392 S .9 12-16-99 080 YES * DOC FILE //* PL1 Struc Chart 292 UNKGSF 884 S .9 12-16-99 080 YES * DOC FILE //* PL1 CMS Interfac 293 UNKGSF 3291 S 2.3 12-16-99 080 YES * DOC FILE //* MACROS Program 294 UNKGSF 5035 S 2.8 12-16-99 080 YES * DOC FILE //* PL1 Function Pkg 295 UNKGSF 2247 S 1.4 12-16-99 080 YES * DOC FILE //* CMD1 Subsystem 296 UNKGSF 82445 S 49.5 07-15-03 080 YES * DOC FILE //* CDS Programs 297 UNKGSF 86207 S 55.5 07-15-03 080 YES * DOC FILE //* TCAM10 src, BTAM 298 UNKGSF296146 S199.9 07-15-03 080 YES * DOC FILE //* EMPTY 299 N/A 1 .0 05-06-96 080 YES * DOC FILE //* HICS Admin Tool 300 UNKGSF536872 S272.1 07-15-03 080 YES * DOC FILE //* INTEL mods, pgms 301 UNKGSF105263 S 63.4 02-05-04 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 //* CICS CROSS SYSTM 310 CSC 6001 S 3.7 02-05-04 080 YES * DOC FILE //* CICS XSYS SCRIPT 311 CSC 16556 S 18.4 02-05-04 IEBCOPY NO* DOC FILE //* DB2 CROSS SYSTEM 312 CSC 68989 S 44.4 02-05-04 080 YES * DOC FILE //* DB2 XSYS SCRIPT 313 CSC 51568 S 37.0 02-05-04 IEBCOPY NO* 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 4831.2 * 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 //* 099 - 101 * DOC FILE //* 139 * DOC FILE //* 148 - 154 * DOC FILE //* 209 - 210 * DOC FILE //* 235 - 239 * DOC FILE //* 245 - 246 * DOC FILE //* 251 - 259 * DOC FILE //* 270 * DOC FILE //* 299 * DOC FILE //* 302 - 309 * DOC FILE //* 314 - 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 //* * DOC FILE //* 001 - TOTAL VERSIONS FOR 2000 * DOC FILE //* * DOC FILE //* 000 - TOTAL VERSIONS FOR 2001 * DOC FILE //* FT(6250) BYTE COUNT * DOC FILE //*-- ------ ----------- * DOC FILE //* 3603.5 VERSION 447V MAY 21, 2002 - 214,644,401 500 * DOC FILE //* 3604.8 VERSION 448V JUL 14, 2002 - 214,751,354 500 * DOC FILE //* not produced VERSION 455V NOV 21, 2002 - , , 500 * DOC FILE //* * DOC FILE //* 003 - TOTAL VERSIONS FOR 2002 * DOC FILE //* FT(6250) BYTE COUNT * DOC FILE //*-- ------ ----------- * DOC FILE //* 3966.2 VERSION 458V MAR 02, 2003 - 239,804,653 500 * DOC FILE //* 4238.3 VERSION 459V MAR 19, 2003 - 258,973,912 500 * DOC FILE //* 4545.1 VERSION 461V JUL 15, 2003 - 280,610,284 500 * DOC FILE //* * DOC FILE //* 003 - TOTAL VERSIONS FOR 2003 * DOC FILE //* FT(6250) BYTE COUNT * DOC FILE //*-- ------ ----------- * DOC FILE //* 4713.3 VERSION 464V FEB 05, 2004 - 291,034,625 500 * DOC FILE //* 4831.2 VERSION 466V JUL 25, 2004 - 294,863,642 500 * DOC FILE //* VERSION 467V ? - , , 500 * 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 //* >> This file now contains source code for other tape * FILE 006 //* >> copying programs: COPYFILE, COPYSLNL, and COPYNLNL. * FILE 006 //* >> Those programs can also be found on Files 229 and * FILE 006 //* >> 316 of the regular CBT Tape. * 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 file now also contains the source code for two * FILE 007 //* versions of the TAPESCAN program (from File 102 of * FILE 007 //* the regular CBT Tape). * FILE 007 //* * FILE 007 //* This file now contains the source code for the * FILE 007 //* SS0104 program, which is a tape mapping program, * FILE 007 //* and while it is admittedly not perfect, it is the * FILE 007 //* program that I use to measure the footages on the * FILE 007 //* CBT Tapes. (SG - 05/02) * FILE 007 //* * FILE 007 //* TAPEMAP 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 is from Sam Golob, and contains the VTT2TAPE and * FILE 009 //* VTT2DISK programs, in their "free versions". * FILE 009 //* * FILE 009 //* These programs run on an MVS system, and allow * FILE 009 //* tape files to be converted to disk files, and * FILE 009 //* these disk files, back to tape files. * FILE 009 //* * FILE 009 //* The disk files are in FB-80 "folded AWS Tape * FILE 009 //* format". See member $VTT2DOC for details. * FILE 009 //* These disk files can be FTP'ed back to the PC * FILE 009 //* or an OS/2 system, and can be read by a P390 or * FILE 009 //* Hercules MVS system as a "virtual tape". * FILE 009 //* * FILE 009 //* These programs can now be run with PARM=READ in * FILE 009 //* the EXEC card, which is a "READ ONLY" execution. * FILE 009 //* * FILE 009 //* PARM=READ will read the AWS or tape inputs, and * FILE 009 //* produce these programs' abundant stats. If you * FILE 009 //* want to "measure a tape" or an AWS-format tape file * FILE 009 //* on disk, you can use the PARM=READ facility, which * FILE 009 //* doesn't open the output file. * FILE 009 //* * FILE 009 //* Extensions to these programs are part of VTTS * FILE 009 //* (Virtual Tape Transportation System). * FILE 009 //* * FILE 009 //* VTTS is copyrighted by Sam Golob, but the versions * FILE 009 //* of the VTT2TAPE and VTT2DISK programs which are in * FILE 009 //* the CBT Tape collection, may be used without charge * FILE 009 //* by anyone, and the owner grants permission. * FILE 009 //* * FILE 009 //* Sam Golob - email: sbgolob@attglobal.net * FILE 009 //* sbgolob@aol.com * FILE 009 //* * FILE 009 //* I've included a free C program from Leland Lucius, * FILE 009 //* called strippad.c (member STRIPPAD), which strips * FILE 009 //* off the padding bytes that VTT2DISK adds to the * FILE 009 //* last FB-80 record on MVS, if it is short. It seems * FILE 009 //* that when you copy the FB-80 AWS-format disk file * FILE 009 //* back to the PC, Hercules has some problems handling * FILE 009 //* the padding bytes. The P/390 doesn't. * FILE 009 //* * FILE 009 //* Leland Lucius email: llucius@visi.com * FILE 009 //* hackules@digicron.com * FILE 009 //* * FILE 009 //* web site: http://www.geocities.com/hackules390 * 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, NOW OF KAISER PERMANENTE, * 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 //* LIONEL B. DYCK * FILE 016 //* KAISER PERMANENTE * FILE 016 //* 25 NORTH VIA MONTE * FILE 016 //* WALNUT CREEK, CALIFORNIA 94598 * FILE 016 //* * FILE 016 //* INTERNET: lionel.b.dyck@kp.org * FILE 016 //* PHONE: (925) 926-5332 * 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, NOW OF KAISER PERMANENTE * 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, NOW OF KAISER PERMANENTE * 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, NOW OF KAISER PERMANENTE * 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, NOW OF KAISER PERMANENTE * 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, NOW OF KAISER PERMANENTE * 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, NOW OF KAISER PERMANENTE * 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, NOW OF KAISER PERMANENTE * 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, NOW OF KAISER PERMANENTE * 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, NOW OF KAISER PERMANENTE * 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, NOW OF KAISER PERMANENTE * 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, NOW OF KAISER PERMANENTE * 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, NOW OF KAISER PERMANENTE * 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, NOW OF KAISER PERMANENTE * 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, NOW OF KAISER PERMANENTE * 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, NOW OF KAISER PERMANENTE * 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, NOW OF KAISER PERMANENTE * 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, NOW OF KAISER PERMANENTE * 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, NOW OF KAISER PERMANENTE * 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, NOW OF KAISER PERMANENTE * 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, NOW OF KAISER PERMANENTE * 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, NOW OF KAISER PERMANENTE * 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 * FILE 043 //* Office of Personnel Management * FILE 043 //* CIO/WTC - Room BH04 * FILE 043 //* 1900 E Street NW * FILE 043 //* Washington DC 20415-0001 * FILE 043 //* w - 202-606-1261 * FILE 043 //* f - 202-606-2092 * FILE 043 //* jdmarsha@opm.gov * 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 //* Now, with Hercules users, running MVS 3.8 on their * FILE 058 //* own private systems, this material is now back in * FILE 058 //* fashion, and usable once again. (SG - 05/02) * FILE 058 //* Go figure...... * 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 an implementation of the LISP Language on MVS, * FILE 083 //* from Steve Bacher of Draper Laboratory in Cambridge, * FILE 083 //* Massachusetts. This package includes a compiler, * FILE 083 //* an interpreter, and an ISPF interface for the LISP * FILE 083 //* language. This is "industrial strength" LISP for * FILE 083 //* MVS. * FILE 083 //* * FILE 083 //* Steve Bacher * FILE 083 //* * FILE 083 //* Charles Stark Draper Laboratory * FILE 083 //* 555 Technology Square * FILE 083 //* Cambridge, MA 02139 * FILE 083 //* (617) 258-1525 * FILE 083 //* * FILE 083 //* Kjeld "Sandy" Hvatum * FILE 083 //* * FILE 083 //* Most members of this pds are in TSO XMIT format, and * FILE 083 //* a batch job called $RECEIVE has been included here, * FILE 083 //* to quckly create separate pds'es out of them. * FILE 083 //* * FILE 083 //* Second shipment: CBT Version 430 (rebuild 09/26/00) * FILE 083 //* * FILE 083 //* Full screen ISPF interface to the interpreter has * FILE 083 //* been added, among other changes. * FILE 083 //* * FILE 083 //*  * FILE 083 //* ZZZZZZZZZZZZZZZZZ IIIII LLLLL  * FILE 083 //* ZZZZZZZZZZZZZZZZZ III LLL  L I S P * FILE 083 //* Z ZZZ III LLL  * FILE 083 //* ZZZ III LLL  * FILE 083 //* ZZZ III LLL  ON * FILE 083 //* ZZZ III LLL  * FILE 083 //* ZZZ III LLL  * FILE 083 //* ZZZ III LLL  M V S * FILE 083 //* ZZZ III LLL  * FILE 083 //* ZZZ III LLL  _____ * FILE 083 //* ZZZ III LLL    \ * FILE 083 //* ZZZ III LLL   ___ \ * FILE 083 //* ZZZ III LLL   /...\ \ * FILE 083 //* ZZZ III LLL   .o.  * FILE 083 //* ZZZ III LLL  _...- * FILE 083 //* ZZZ Z III LLL L   \___/ / * FILE 083 //* ZZZZZZZZZZZZZZZZ III LLLLLLLLLLLLLLLL    / * FILE 083 //* ZZZZZZZZZZZZZZZZ IIIII LLLLLLLLLLLLLLLLL  _____/ * FILE 083 //*  * FILE 083 //* * FILE 083 //* ZIL - LISP for MVS - Version 1.3 * FILE 083 //* Copyright 1989 The Charles Stark Draper Laboratory Inc. * FILE 083 //* All Rights Reserved * FILE 083 //* * FILE 083 //* Permission has been granted to include this package on * FILE 083 //* the CBT MVS Utilities Tape. * FILE 083 //* * FILE 083 //* ZIL is the creation of: * FILE 083 //* * FILE 083 //* Steve "Batchman" Bacher - the original * FILE 083 //* conception, the compiler, the interpreter, and the bulk * FILE 083 //* of the runtime, including the interfaces to TSO and ISPF * FILE 083 //* and the Flavors object system. * FILE 083 //* * FILE 083 //* Kjeld "Sandy" Hvatum - the runtime * FILE 083 //* code that implements "bignum" arithmetic, symbol hashing * FILE 083 //* and interning, the vectorizing garbage collector * FILE 083 //* (available only if you have the 370 Vector Facility), * FILE 083 //* and thorough, exhaustive testing. * FILE 083 //* * FILE 083 //* ZIL was developed at the Charles Stark Draper * FILE 083 //* Laboratory (formerly the MIT Instrumentation * FILE 083 //* Laboratory) in Cambridge, Massachusetts, starting in * FILE 083 //* 1983. Steve and Sandy have successfully ported a * FILE 083 //* number of AI applications to it, notably OPS5 (an * FILE 083 //* expert system builder) and DOE Macsyma (a symbolic * FILE 083 //* algebra powerhouse). In addition, some local * FILE 083 //* applications were developed using ZIL, including an * FILE 083 //* expert system (under OPS5) to analyze and unload tapes * FILE 083 //* on the mainframe. * 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 contains the ASSIST Assembler, which is used for * FILE 085 //* teaching Assembler Language. This program dates * FILE 085 //* from the OS/360 days. * FILE 085 //* * FILE 085 //* Source was submitted by Sam Knutson: * FILE 085 //* * FILE 085 //* email: sam@knutson.org * FILE 085 //* * FILE 085 //***FILE 086 is the MVS 3.8J SYS1.MACLIB from the Hercules * FILE 086 //* Turnkey system, which includes Device Type 3375, * FILE 086 //* 3380, and 3390 support. To our knowledge, there is * FILE 086 //* no IBM copyrighted material on this file. * FILE 086 //* * FILE 086 //***FILE 087 is the MVS 3.8J SYS1.AMODGEN from the Hercules * FILE 087 //* Turnkey system, which includes Device Type 3375, * FILE 087 //* 3380, and 3390 support. To our knowledge, there is * FILE 087 //* no IBM copyrighted material on this file. * FILE 087 //* * FILE 087 //***FILE 088 is the MVS 3.8J SYS1.AGENLIB from the Hercules * FILE 088 //* Turnkey system, which includes Device Type 3375, * FILE 088 //* 3380, and 3390 support. To our knowledge, there is * FILE 088 //* no IBM copyrighted material on this file. * FILE 088 //* * FILE 088 //***FILE 089 IS FROM SAM GOLOB AND IS THE OLD IBM ALGOL COMPILER * FILE 089 //* AND LIBRARY. PROCEDURES TO RUN THE ALGOL COMPILER * FILE 089 //* ARE ON FILE 091, TOGETHER WITH FORTRAN, PL/I, AND * FILE 089 //* RPG. THESE CAME FROM OS/MVT RELEASE 21.8. SEE * FILE 089 //* IF YOU CAN GET THIS STUFF TO RUN ON MVS/ESA. I WILL * FILE 089 //* BE GLAD TO ADD ANY ADDITIONAL MATERIAL THAT AN * FILE 089 //* ENTERPRISING PERSON CAN SUPPLY ME WITH, TO MAKE THIS * FILE 089 //* A BETTER, AND WORKABLE PRODUCT. * FILE 089 //* * FILE 089 //* THESE LOAD MODULES HAVE NOW BEEN RE-LINKEDITED * FILE 089 //* WITH THE DFSMS BINDER, HOPEFULLY TO MAKE SURE * FILE 089 //* THAT THEY ARE PALATABLE TO MVS/ESA'S FETCH. * FILE 089 //* * FILE 089 //* The MVT Compilers have now been moved to the CBT * FILE 089 //* Overflow Tape. The following compilers have been * FILE 089 //* moved: * FILE 089 //* * FILE 089 //* ALGOL - from File 176 to CBT Overflow File 089 * FILE 089 //* FORTRAN G/H - from File 326 to CBT Overflow File 090 * FILE 089 //* RPG/F - from File 327 to CBT Overflow File 091 * FILE 089 //* PL/I-F - from File 092 to CBT Overflow File 092 * FILE 089 //* * FILE 089 //* SAM GOLOB Address: * FILE 089 //* P.O. BOX 906 * FILE 089 //* TALLMAN, NY 10982 Email: sbgolob@aol.com * FILE 089 //* sbgolob@attglobal.net * FILE 089 //* sbgolob@cbttape.org * FILE 089 //* * FILE 089 //***FILE 090 IS FROM JIM MARSHALL OF THE U.S. AIR FORCE, RETIRED. * FILE 090 //* THIS FILE CONTAINS THE COMPILER AND LIBRARY FOR * FILE 090 //* THE VANILLA OS/MVS FORTRAN H COMPILER AND LIBRARY * FILE 090 //* * FILE 090 //* The MVT Compilers have now been moved to the CBT * FILE 090 //* Overflow Tape. The following compilers have been * FILE 090 //* moved: * FILE 090 //* * FILE 090 //* ALGOL - from File 176 to CBT Overflow File 089 * FILE 090 //* FORTRAN G/H - from File 326 to CBT Overflow File 090 * FILE 090 //* RPG/F - from File 327 to CBT Overflow File 091 * FILE 090 //* PL/I-F - from File 092 to CBT Overflow File 092 * FILE 090 //* * FILE 090 //* JIM HAS RETIRED FROM THE AIR FORCE. HIS ADDRESS IS: * FILE 090 //* * FILE 090 //* Jim Marshall * FILE 090 //* Office of Personnel Management * FILE 090 //* CIO/WTC - Room BH04 * FILE 090 //* 1900 E Street NW * FILE 090 //* Washington DC 20415-0001 * FILE 090 //* w - 202-606-1261 * FILE 090 //* f - 202-606-2092 * FILE 090 //* jdmarsha@opm.gov * FILE 090 //* * FILE 090 //* THIS FILE HAS BEEN UPDATED BY RICK FOCHTMAN. * FILE 090 //* 630-719-1545 rfochtman@ync.net * FILE 090 //* * FILE 090 //* THIS FILE HAS BEEN UPDATED TO INCLUDE A RE-LINKEDIT * FILE 090 //* OF ALL FORTRAN MODULES, USING THE DFP 3.1 LINKAGE * FILE 090 //* EDITOR. * FILE 090 //* * FILE 090 //* THESE MODULES HAVE BEEN RUN ON MVS/XA 2.2.3. * FILE 090 //* HOPEFULLY THEY SHOULD BE GOOD ON MVS/ESA RELEASES. * FILE 090 //* * FILE 090 //* RICK HAS BEEN VERY HELPFUL TO USERS OF FORTRAN, IN * FILE 090 //* THAT HE HAS MARKED ALL THE MODULES IN THEIR IDR * FILE 090 //* RECORDS, TO SAY WHETHER THEY BELONG TO FORTRAN G OR * FILE 090 //* FORTRAN H, COMPILER OR LIBRARY MODULE. YOU CAN * FILE 090 //* BROWSE THESE LOAD MODULES, AND SEE WHICH COMPONENT * FILE 090 //* THEY BELONG TO. * FILE 090 //* * FILE 090 //***FILE 091 IS FROM JIM MARSHALL OF THE U.S. TREASURY, FINANCIAL * FILE 091 //* MANAGEMENT SERVICE IN HYATTSVILLE, MARYLAND, AND * FILE 091 //* CONTAINS THE OLD OS/MVT RPG COMPILER AND LIBRARY, * FILE 091 //* WHICH USED TO BE ON THIS TAPE. THESE MODULES WERE * FILE 091 //* BROUGHT BACK FROM THE SPLA MVS TAPE, AND WERE * FILE 091 //* RE-LINKEDITED WITH THE DFSMS BINDER. * FILE 091 //* * FILE 091 //* PROCEDURES TO RUN THE RPG COMPILER, AND A SAMPLE * FILE 091 //* PROGRAM, CAN BE FOUND ON FILE 091 OF THIS TAPE. * FILE 091 //* * FILE 091 //* The MVT Compilers have now been moved to the CBT * FILE 091 //* Overflow Tape. The following compilers have been * FILE 091 //* moved: * FILE 091 //* * FILE 091 //* ALGOL - from File 176 to CBT Overflow File 089 * FILE 091 //* FORTRAN G/H - from File 326 to CBT Overflow File 090 * FILE 091 //* RPG/F - from File 327 to CBT Overflow File 091 * FILE 091 //* PL/I-F - from File 092 to CBT Overflow File 092 * FILE 091 //* * FILE 091 //* ************************************************************ * FILE 091 //* * Please see File 667, which contains an extensive * * FILE 091 //* * tutorial by Jay Moseley, to teach you how to program * * FILE 091 //* * with this version of the RPG language. * * FILE 091 //* ************************************************************ * FILE 091 //* * FILE 091 //* Jim Marshall * FILE 091 //* Office of Personnel Management * FILE 091 //* CIO/WTC - Room BH04 * FILE 091 //* 1900 E Street NW * FILE 091 //* Washington DC 20415-0001 * FILE 091 //* w - 202-606-1261 * FILE 091 //* f - 202-606-2092 * FILE 091 //* jdmarsha@opm.gov * FILE 091 //* * FILE 091 //***FILE 092 IS FROM JIM MARSHALL, FORMERLY OF THE US AIR FORCE. * FILE 092 //* * FILE 092 //* The MVT Compilers have now been moved to the CBT * FILE 092 //* Overflow Tape. The following compilers have been * FILE 092 //* moved: * FILE 092 //* * FILE 092 //* ALGOL - from File 176 to CBT Overflow File 089 * FILE 092 //* FORTRAN G/H - from File 326 to CBT Overflow File 090 * FILE 092 //* RPG/F - from File 327 to CBT Overflow File 091 * FILE 092 //* PL/I-F - from File 092 to CBT Overflow File 092 * FILE 092 //* * FILE 092 //* James D. Marshall * FILE 092 //* Office of Personnel Management * FILE 092 //* OCIO/WTC-BH04 * FILE 092 //* 1900 E Street NW * FILE 092 //* Washington, DC 20415 * FILE 092 //* (202) 606-1261 * FILE 092 //* (202) 606-2092 fax * FILE 092 //* jdmarsha@opm.gov * FILE 092 //* * FILE 092 //* THIS FILE CONTAINS THE COMPILER AND LIBRARY FOR * FILE 092 //* PL1/F. * FILE 092 //* * FILE 092 //* THIS COPY OF THE PLI/F COMPILER AND LIBRARY WAS * FILE 092 //* RE-LINKEDITED BY LARRY WILLIAMS, TO ALLOW IT TO * FILE 092 //* RUN ON AN MVS/XA OR MVS/ESA SYSTEM, HOPEFULLY * FILE 092 //* WITHOUT THE ABENDS EXPERIENCED WHEN THE ORIGINAL * FILE 092 //* LOAD MODULES WERE RUN ON XA. * 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 461. * 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 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 //* email: sbgolob@attglobal.net or * FILE 130 //* sbgolob@aol.com * 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 //* email: sbgolob@attglobal.net or sbgolob@aol.com * 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 FROM A COMPANY IN NEW ENGLAND, AND IS SOURCE FOR * FILE 250 //* TSSO TO BE RUN UNDER OS/390. THIS SOURCE WAS TAKEN * FILE 250 //* FROM THE VERSION OF TSSO ON FILE 403 AND MODIFIED. * FILE 250 //* AT THIS TIME, I GUESS YOU CAN CONSIDER THIS FILE TO * FILE 250 //* BE THE LATEST VERSION OF FREE TSSO. * FILE 250 //* * FILE 250 //* A later version can be found on the regular CBT * FILE 250 //* Tape, on File 404. * FILE 250 //* * FILE 250 //* Note. For older versions of TSSO (Bellcore version), * FILE 250 //* please see Files 247, 248, 249 of the CBT Overflow * FILE 250 //* Tape. The mapping from the former files on this * FILE 250 //* tape is as follows: * FILE 250 //* * FILE 250 //* File 401 - Original Bellcore version ---> File 247 (Ovrflow) * FILE 250 //* File 402 - Dave Cartwright's updates ---> File 248 (Ovrflow) * FILE 250 //* File 403 - DC updates fitted to F401 ---> File 249 (Ovrflow) * FILE 250 //* File 404 - (This file) - File 403 updated to run on OS/390. * FILE 250 //* * FILE 250 //* Bill Godfrey's original version of TSSO is still * FILE 250 //* on File 306 of the CBT MVS Utilities Tape. * FILE 250 //* * FILE 250 //* The Time Sharing Subsystem Option (TSSO) is a * FILE 250 //* package designed to increase operator productivity * FILE 250 //* by automating tasks which need not be performed * FILE 250 //* manually. TSSO performs its function through three * FILE 250 //* integrated components. The Operator Productivity * FILE 250 //* Facility (OPF) extends the power of TSO to the * FILE 250 //* MVS operator's console. The Automated Operations * FILE 250 //* Facility (AOF) enhances an installation's * FILE 250 //* ability to control system events based on console * FILE 250 //* message traffic. An interface to the Network * FILE 250 //* Communication Control Facility (NCCF) allows the * FILE 250 //* network operator to use TSSO as a command processor, * FILE 250 //* issuing and receiving operating system commands at * FILE 250 //* the NCCF terminal. Note that NCCF is now an inte- * FILE 250 //* grated part of Netview. TSSO also enhances end-user * FILE 250 //* productivity by allowing end-user access to the MVS * FILE 250 //* Command Subsystem. A complete User's Guide, * FILE 250 //* including detailed installation instructions exists * FILE 250 //* in member UG43TERM in this file. * FILE 250 //* * FILE 250 //* A guide to the new features of TSSO Version 4, * FILE 250 //* Release 3 is in the member RELGDE43 in this file. * FILE 250 //* * FILE 250 //* Anyone with an interest in automated operations is * FILE 250 //* invited to look at TSSO as a software tool providing * FILE 250 //* many of the primitives required for common automated * FILE 250 //* operations tasks. These primitives include the * FILE 250 //* hilighting, lowlighting, replying and reacting to * FILE 250 //* operating system messages. This is in addition to * FILE 250 //* the ability to issue a command and retrieve the * FILE 250 //* response in CLIST variables. * FILE 250 //* * FILE 250 //* -------------------------------------------------------------- * FILE 250 //* * FILE 250 //* Note on Dave Cartwright's modifications: * FILE 250 //* * FILE 250 //* The purpose of these modifications is to allow TSSO * FILE 250 //* to handle automated message processing with multi- * FILE 250 //* line WTO's and to do other new functions. File 402 * FILE 250 //* has been merged into TSSO 4.3 by Guy Albertelli. So * FILE 250 //* it's probably best to ignore File 402 and install * FILE 250 //* File 250 instead, which is an OS/390 upgrade of the * FILE 250 //* former File 403. As noted above, the former Files * FILE 250 //* 401 thru 403 have been moved to the CBT Overflow Tape. * FILE 250 //* * FILE 250 //* -------------------------------------------------------------- * FILE 250 //* * FILE 250 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT. * FILE 250 //* * FILE 250 //* QUESTIONS, PLEASE CONTACT Sam Golob: * FILE 250 //* NEW PHONE NUMBER: * FILE 250 //* * FILE 250 //* EMAIL: sbgolob@aol.com OR * FILE 250 //* sbgolob@attglobal.net * 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 //* email: sbgolob@attglobal.net * 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" * 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" * 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 contains the # CMD1 Subsystem from Guy Albertelli * FILE 296 //* (and others) which has been moved here from File 261 * FILE 296 //* of the regular CBT Tape, to make room on the * FILE 296 //* regular CBT Tape. All materials for this package * FILE 296 //* can be found here. I have left a small stub on the * FILE 296 //* regular CBT Tape, to make the CMD1 subsystem easier * FILE 296 //* to find, and to point the user to this file here. * FILE 296 //* * FILE 296 //* FILE 296 IS A VERSION OF THE # CMD1 SUBSYSTEM FROM * FILE 296 //* B.F GOODRICH IN AKRON, OHIO FROM MR GUY ALBERTELLI. * FILE 296 //* THIS FILE CONTAINS A COMPLETE # COMMAND SUBSYSTEM, * FILE 296 //* WITH NUMEROUS MEMBERS UPGRADED TO THE XA LEVEL, AND * FILE 296 //* WITH SOME MEMBERS UPGRADED TO THE MVS/ESA 4.2 * FILE 296 //* LEVEL. THE CURRENT MODULE NAMING IS FOR THE XA * FILE 296 //* ENVIRONMENT. MEMBER $MVSXA21 SHOWS THE RENAMES * FILE 296 //* FROM SP3 TO XA. MEMBER $$$BFGXA IS THE * FILE 296 //* DOCUMENTATION OF THE CHANGES AND BUGS FOUND. IT * FILE 296 //* ALSO CONTAINS THE CURRENT STATUS OF THE MODULES IN * FILE 296 //* THE SYSTEM. SEE MEMBER CALLED $$$BFGES FOR THE * FILE 296 //* MVS/ESA STATUS. * FILE 296 //* * FILE 296 //* THE # COMMAND SUBSYSTEM IS A MULTI-FUNCTION * FILE 296 //* SUBSYSTEM THAT CAN BE USED TO PERFORM SYSTEM * FILE 296 //* TASKS TO DISPLAY AND FIX VARIOUS CONDITIONS IN * FILE 296 //* A RUNNING MVS SYSTEM. I CALL IT THE "POOR MAN'S * FILE 296 //* 'RESOLVE'", AFTER THE VENDOR PRODUCT OF THAT NAME. * FILE 296 //* THE CMD1 SUBSYSTEM CAN OPERATE FROM THE SYSTEM * FILE 296 //* CONSOLE OR FROM A SUITABLY AUTHORIZED TSO USERID. * FILE 296 //* * FILE 296 //* IN OLD VERSIONS OF THIS TAPE, DETAILED DOCUMENTATION * FILE 296 //* FOR CMD1 USED TO BE SUPPLIED IN FILE 001 UNDER THIS * FILE 296 //* HEADING IN THIS PLACE. TO SEE MORE, YOU CAN EITHER * FILE 296 //* PRINT OUT THE USER MANUAL CONTAINED IN THIS FILE, * FILE 296 //* OR YOU CAN GET (IN FILE 103) THE DOCUMENTATION OF * FILE 296 //* AND OLD CBT TAPE (VERSION 249) AND SEE HOW THE * FILE 296 //* INFORMATION WAS PRESENTED THERE. * FILE 296 //* * FILE 296 //* CURRENT ADDRESS: * FILE 296 //* * FILE 296 //* "Guy L. Albertelli" * FILE 296 //* * FILE 296 //* If you need help, please contact Sam Golob: * FILE 296 //* * FILE 296 //* sbgolob@cbttape.org * FILE 296 //* sbgolob@attglobal.net * FILE 296 //* sbgolob@aol.com * FILE 296 //* * FILE 296 //***FILE 297 was moved from File 384 of the regular CBT Tape, to * FILE 297 //* make some more room there. The entire original * FILE 297 //* contents of that file may now be found here, in * FILE 297 //* this location. * FILE 297 //* * FILE 297 //* This collection is from Computer Data Systems Inc. * FILE 297 //* of Rockville, Maryland, and contains: * FILE 297 //* * FILE 297 //* 1. ISPF QUEUE FOR 1.3.4 * FILE 297 //* 2. ISPF SPY * FILE 297 //* * FILE 297 //* 3. SEVERAL OTHER PROGRAMS * FILE 297 //* * FILE 297 //* MEMBERS ARE : * FILE 297 //* * FILE 297 //* 1. $$DOC DESCRIBE ALL IN THIS FILE * FILE 297 //* 2. PTFLIB SOURCES AND JCLS TO USE WITH SMPE CSI * FILE 297 //* (FINDFIX, SAS, ETC) * FILE 297 //* 3. QISP136 SRCS, JCLS, FOR ISPF QUEUE OR TSO * FILE 297 //* QUE COMMAND FOR MVS 3.8 SP136 & BEFORE * FILE 297 //* 4. SOURCE MISCELLANEOUS SOURCES FOR SEVERAL * FILE 297 //* PROGRAMS * FILE 297 //* * FILE 297 //***FILE 298 is source for TCAM 10, and the free BTAM libraries. * FILE 298 //* The members BTAMDLIB and BTAMTARG are in IDCAMS * FILE 298 //* EXPORT format, and all the other members are in * FILE 298 //* TSO XMIT format. * FILE 298 //* * FILE 298 //***FILE 299 IS CURRENTLY EMPTY * FILE 299 //* * FILE 299 //***FILE 300 is from Fritz Alber and contains a multi-purpose * FILE 300 //* storage administrator tool. This file is very large, * FILE 300 //* comprising over 536000 card image records. Therefore * FILE 300 //* it is being placed at (or toward) the end of the CBT * FILE 300 //* Overflow Tape, even though it is currently useful * FILE 300 //* material. This system normally requires at least * FILE 300 //* OS/390 R2.10. (See note below.) * FILE 300 //* * FILE 300 //* email: "Fritz Alber" * FILE 300 //* * FILE 300 //* Fritz' description of the package begins below: * FILE 300 //* * FILE 300 //* Attached I've sent you a new File for the CBT tape. * FILE 300 //* * FILE 300 //* It's a storage administrator tool, that I've developed * FILE 300 //* at different small companies where I've worked. * FILE 300 //* * FILE 300 //* There are a lot of wishes and requests from 5 different * FILE 300 //* storage administrators and from myself implemented in * FILE 300 //* the tool. Every availible function in the tool was * FILE 300 //* useful for one or the other of the storage admins. If * FILE 300 //* it's possible you can put it on a new file, because it * FILE 300 //* has nothing to do with my earlier contribution. * FILE 300 //* * FILE 300 //* For the title I've chosen "HSM/SMS front end and * FILE 300 //* DCOLLECT reporting tool". I hope it's a useful tool * FILE 300 //* for other 390 dinos. It's a little bit large, because * FILE 300 //* there are a lot of REXX and panels and other stuff. * FILE 300 //* There is a little installation effort to install the * FILE 300 //* tool. All is described in an installation doc. During * FILE 300 //* the packaging I've taken special care that there are no * FILE 300 //* PDSE datasets. * FILE 300 //* * FILE 300 //* ISPF application * FILE 300 //* * FILE 300 //* HICS This Application is a front end to HSM and * FILE 300 //* SMS and a little supplement to ISMF. * FILE 300 //* * FILE 300 //* HICS stands for * FILE 300 //* * FILE 300 //* H = HSM * FILE 300 //* I = Information * FILE 300 //* C = Control * FILE 300 //* S = System * FILE 300 //* * FILE 300 //* Sounds like CICS * FILE 300 //* * FILE 300 //* The application consists of 4 parts * FILE 300 //* * FILE 300 //* HSM (HICS) * FILE 300 //* SMS (SIS) * FILE 300 //* RACF (SRIS) * FILE 300 //* Cache (CIS) --> no longer maintained with * FILE 300 //* newer devices like RVA and * FILE 300 //* Shark * FILE 300 //* * FILE 300 //* The application consist of 6 datasets. * FILE 300 //* * FILE 300 //* Rexx library (about 1000 members) * FILE 300 //* Load Library (about 50 members) * FILE 300 //* Message Library (about 1700 members) * FILE 300 //* Panel Library (about 960 members) * FILE 300 //* Skeleton Library (about 250 members) * FILE 300 //* Table Libary * FILE 300 //* * FILE 300 //* You have to follow the HICSINST.DOC file * FILE 300 //* * FILE 300 //* If you have any problems, comments or * FILE 300 //* improvements please contact * FILE 300 //* Alber(at)alber-edv.de * FILE 300 //* * FILE 300 //* If case of a problem please send the error * FILE 300 //* message from the ISPF application for further * FILE 300 //* analysis. * FILE 300 //* * FILE 300 //* Installation note: * FILE 300 //* * FILE 300 //* The file (pds) contains the following members: * FILE 300 //* HICSEXEC * FILE 300 //* HICSLOAD * FILE 300 //* HICSMENU * FILE 300 //* HICSPENU * FILE 300 //* HICSSENU * FILE 300 //* HICSTENU * FILE 300 //* * FILE 300 //* Do an additional receive for every member to your * FILE 300 //* target dataset or use the supplied sample job * FILE 300 //* $RECHICS. * FILE 300 //* * FILE 300 //* Further you'll see a member HICSINST. This is a * FILE 300 //* ftped Word document. Download this file to your PC * FILE 300 //* in binary with extension DOC. * FILE 300 //* * FILE 300 //* Follow this documentation to install the HICS dialog. * FILE 300 //* * FILE 300 //* HICSUSER * FILE 300 //* This is a ftped Word document. Download this file to * FILE 300 //* your PC in binary with extension DOC. This is the * FILE 300 //* starting of the User documentation, but its a * FILE 300 //* beginning, still not finished. * FILE 300 //* * FILE 300 //* Disclaimer * FILE 300 //* ========== * FILE 300 //* * FILE 300 //* These stuff is supplied on an as is basis. * FILE 300 //* OS/390 R10 is required. * FILE 300 //* If you run the tool on a lower system you've got to * FILE 300 //* change member SMSV004 and HICSSVOL in the ISPPLIB * FILE 300 //* dataset. Remove the PANEXIT statement. * FILE 300 //* * FILE 300 //* No Guarantee is given or should be assumed. * FILE 300 //* * FILE 300 //* It's the user's responsibility to check the value and * FILE 300 //* correctness of this tool. * FILE 300 //* * FILE 300 //* Therefor the usual disclaimer: Use at your own risk, * FILE 300 //* blah, blah, blah, diddle, daddle, diddle, daddle. * FILE 300 //* * FILE 300 //* Error correction will be supplied from time to time * FILE 300 //* (not guaranteed, of course). * FILE 300 //* * FILE 300 //* Language Problems * FILE 300 //* ================= * FILE 300 //* * FILE 300 //* I've tried to put all comments in English (bad English), * FILE 300 //* but there are still some procedures or places where you * FILE 300 //* can see a German comment. If you are interested in * FILE 300 //* these comments then you can do a little exercise and try * FILE 300 //* to translate them to English. * FILE 300 //* * FILE 300 //* Suggestions and improvements are welcome. * FILE 300 //* * FILE 300 //* Enjoy it ...... Fritz :-) * FILE 300 //* * FILE 300 //***FILE 301 CONTAINS THE INTEL MODS TAPE FROM INTEL SEE THE * FILE 301 //* MEMBER CALLED $$DOC FOR ADDITIONAL INFORMATION THAT * FILE 301 //* IS NOT DOCUMENTED BELOW. * FILE 301 //* * FILE 301 //* MEMBER SV LANG DESCRIPTION * FILE 301 //* ________ __ ____ _______________________ * FILE 301 //* $$DOC N/A THIS FILE * FILE 301 //* $$GENTAP N/A JCL USED TO GENERATE THIS TAPE. * FILE 301 //* $$INDEX N/A THIS MEMBER - TABLE OF CONTENTS * FILE 301 //* $$RELOAD N/A JCL TO LOAD DOWN TAPE TO DISK -- * FILE 301 //* ALSO APPEARS AS FILE 1 ON THE * FILE 301 //* TAPE. * FILE 301 //* ABEND BAL SUBROUTINE-ISSUE USER ABEND WITH * FILE 301 //* CODE OF YOUR CHOICE * FILE 301 //* ABENDPGM BAL PGM TO WTOR FAILURE MESSAGE (VIA * FILE 301 //* PARM FIELD) WHEN YOUR FAVORITE JOB * FILE 301 //* FAILS..REQUIRES OPERS TO ACK- * FILE 301 //* NOWLEDGE MESSAGE WITH JOBNAME. * FILE 301 //* ACFEXITS BAL THIS IS 2 SMP JOBS TO INSTALL OUR * FILE 301 //* EXITS FOR ACF2. ACFVAL AND ACFDSTBL * FILE 301 //* CONSTITUTE OUR NAMING CONVENTIONS * FILE 301 //* SUPPORT AT INTEL. ACFVIOX IS OUR * FILE 301 //* VIOLATION EXIT TO SUPPORT PHASED * FILE 301 //* IMPLEMENTATION OF RULES. * FILE 301 //* ACF2MON SAS THIS SAS 79.3 PROGRAM READS SMF * FILE 301 //* RECORDS FOR ACF2 EVENTS- MATCH * FILE 301 //* MERGES SEVERAL 'WHODAT' FILES AND * FILE 301 //* PRODUCES A COMPOSITE REPORT ON ALL * FILE 301 //* ACF2 ACTIVITY FOR EACH GROUP * FILE 301 //* SECURITY ADMINISTRATOR..(BY HENRY * FILE 301 //* WACKER) * FILE 301 //* ANLZUCB PL/I GEN REPORT ON WORK PACK USAGE/MSS * FILE 301 //* UCB USAGE REQUIRES P051B12L * FILE 301 //* (UCBLOGER) TO GATHER INFO. * FILE 301 //* BKUPUTIL BAL PGM FROM SHARE MODS TAPE (FILE18) TO * FILE 301 //* INVOKE UTILITY TO CREATE STACKED * FILE 301 //* SL TAPE. OUR MODS INCLUDE AUTO * FILE 301 //* SELECT FOR IEBISAM AND PANVALET * FILE 301 //* SUPPORT VIA PAN#2. DYNAMIC ALLOC * FILE 301 //* OF VOLUMES, AND DATASET/TAPE DS * FILE 301 //* STATS ARE ALSO PRINTED. MUST BE * FILE 301 //* LINKED WITH AC=1 TO ALLOW IEBCOPY * FILE 301 //* TO FUNCTION. (SUPPORTS * FILE 301 //* PS/PO/IS/DA/PV * FILE 301 //* COMPMEMB PL/I COMPARE MEMBERS IN PDS OR PANVALET * FILE 301 //* LIBRARIES BY MEMBER NAME AND * FILE 301 //* PRODUCE CNTL CARDS BASED ON * FILE 301 //* EXISTENCE OF MEMBER IN EITHER OR * FILE 301 //* BOTH LIBRARIES. * FILE 301 //* DATTIM BAL SUBROUTINE- RETURNS 'HH:MM:SS' AND * FILE 301 //* 'MM/DD/YY' * FILE 301 //* DELETDS BAL UTILITY- UNCATLG TAPES AND * FILE 301 //* UNCATLG/SCRATCH DATASETS SUPPORTS * FILE 301 //* MSS VIA DYNAMIC ALLOC OF MSS * FILE 301 //* VOLUMES. * FILE 301 //* DIDOCS ** BAL TSO COMMAND TO ALLOW TSO 3270 TO * FILE 301 //* BECOME A OS OPER CONSOLE. FINDS * FILE 301 //* MCS BUFFERS IN CSA AND REDISPLAYS * FILE 301 //* THEM TO TSO TUBE. ACCEPTS * FILE 301 //* COMMANDS AND USES SVC 34 TO ISSUE * FILE 301 //* THEM. FROM SHARE DCMS SYSTEM * FILE 301 //* (CBT). * FILE 301 //* DSINFO BAL PL/I SUBROUTINE- GET DSN INFORMATION * FILE 301 //* VIA RDJFCB (FROM IIH, ISRAEL) * FILE 301 //* ERAS3270 BAL TSO COMMAND- ERASE A 3270 SCREEN * FILE 301 //* (WITH SPF TRIGGERS). * FILE 301 //* FCIMOD07 BAL FROM FLORIDA POWER AND LIGHT- THEIR * FILE 301 //* FULL SCREEN FAC. WITH FCI ADDED * FILE 301 //* SPF FULLSCRN TRIGGERS. * FILE 301 //* FSF BAL FROM FLORIDA POWER AND LIGHT- THE * FILE 301 //* LINKABLE PORTION OF THEIR FULL * FILE 301 //* SCREEN FACILITY-INVOKES FCIMOD07 * FILE 301 //* HEXCONV BAL PL/I SUBROUTINE- CONVERT * FILE 301 //* CHAR/BIT/ETC TO HEX CHAR (FROM * FILE 301 //* IIH, ISRAEL) * FILE 301 //* IEECVXIT BAL OUR MODS TO MSSCVXIT IN * FILE 301 //* SYS1.SAMPLIB.. CAUSE OTHER * FILE 301 //* MESSAGES (IFG...) TO 'HANG' ON * FILE 301 //* SCREENS, SUBMIT JOB TO DUMP TRACE * FILE 301 //* WHEN TRACE SWITCH OCCURS. (ONLY * FILE 301 //* SOURCE SUPPLIED...NO JCL TO * FILE 301 //* INSTALL) * FILE 301 //* IPOUPDTE SZAP SIMPLE ZAP TO LET IPO AID (IPOUPDTE) * FILE 301 //* WORK ON ANY JCL OR SOURCE PDS. * FILE 301 //* CPPUPDTE SZAP SIMPLE ZAP TO LET IPO AID (CPPUPDTE) * FILE 301 //* WORK ON ANY JCL OR SOURCE PDS. * FILE 301 //* JCLFORMT BAL UTILITY TO REFORMAT A JOB OR A PROC * FILE 301 //* INTO SOME KIND OF ORDER. INVOKED * FILE 301 //* BY 'CLEANJCL' CLIST IN JOBS.CNTL * FILE 301 //* MAPDISK BAL GOOD OLD MAPDISK WITH ENHANCEMENTS: * FILE 301 //* 1) DYNAMIC ALLOC FOR MSS VOLUMES * FILE 301 //* (SEE P963P30) 2) CAPABILITY TO LOG * FILE 301 //* VTOC INFO TO DATASET 3) ASM2 OPEN * FILE 301 //* MOD AND RACF SUPPORT * FILE 301 //* MOP BAL ALLOW OPER PRIV TSO USER TO DO * FILE 301 //* MVS/JES2 COMMANDS. THE COMMAND IS * FILE 301 //* LOGGED, ALONG WITH THE ISSUING TSO * FILE 301 //* UID. * FILE 301 //* MSSAMS BAL THE IPO MSSAMS AID, WITH A NOTIFY= * FILE 301 //* AND COND CODE CHK * FILE 301 //* MSSDUMP PL/I PGM TO DUMP MSS TABLES IN A NEAT * FILE 301 //* FORMAT (FROM FVT) * FILE 301 //* MSSPDATE BAL PGM TO WRITE A NICE DATE TO THE MSS * FILE 301 //* LOG CONSOLE INVOKE VIA A JES2 * FILE 301 //* $TA,I=1800,'$VS,''S MSSPDATE''' * FILE 301 //* MSSTSO BAL IPO MSSTSO WITH A FEW CHANGES FOR * FILE 301 //* 3330-1 SUPPORT * FILE 301 //* MSSVOL PL/I INVOKED BY MSVGP CLIST IN JOBS.CNTL- * FILE 301 //* LIST VOLUMES IN MSVI FOR MSVGPS OF * FILE 301 //* YOUR CHOICE. * FILE 301 //* MVSMON BAL FROM FLORIDA POWER AND LIGHT- MVS * FILE 301 //* MONITOR USES TSO FULL SCREEN. WE * FILE 301 //* ADDED DIDOCS INVOKE VIA THE * FILE 301 //* (NOT FOR SE2/SP1) 'CO' COMMAND, DOMAIN NAME DISPLAY, * FILE 301 //* DISP DISK FORMAT IMPROVEMENTS AND * FILE 301 //* ELIM DUP VOLUME REPORTING VIA UCB * FILE 301 //* ALT PATH PLUS OTHER THINGS..... * FILE 301 //* NETINFO JCL/SAS THE JOB IS PART OF THE * FILE 301 //* 'VTAMDOC', 'CICSDOC', 'NETINFO' * FILE 301 //* JOBS WHICH WILL ASSEMBLE THE VTAM * FILE 301 //* NCP AND CICS TCT USING MACROS IN * FILE 301 //* MODS.NETINFO. THE NETINFO JOB * FILE 301 //* USES A SAS PROGRAM (IN MODS.SASLIB) * FILE 301 //* TO READ THE ASSEMBLED VTAM, CICS, * FILE 301 //* ADMPRINT, DSPRINT, AND WHATNOT * FILE 301 //* TABLES TO PRODUCE A DOCUMENT OF THE * FILE 301 //* NETWORK IN INFO/SYSTEM FORMAT. * FILE 301 //* NTLM801 BAL PDS MEMBER LOGICAL READ SUBROUTINE. * FILE 301 //* USED BY PROCXREF PROGRAM. * FILE 301 //* NTLM802 BAL PDS DIRECTORY READ SUBROUTINE. USED * FILE 301 //* BY PROCXREF. * FILE 301 //* OSDEBE ** BAL THE INFAMOUS 'DOES EVERYTHING BUT * FILE 301 //* EAT' UTILITY FOR FIDDLING WITH * FILE 301 //* TAPES AND CARDS. OPERS L O V E * FILE 301 //* IT. WORKS ONLY WITH OFFLINE * FILE 301 //* TAPES................... INVOKE * FILE 301 //* VIA 'DEBE' IN JOBS.CNTL. * FILE 301 //* OZPDSUNL BAL THIS PROGRAM WILL UNLOAD A RECFM=VB * FILE 301 //* PDS AND CONSTRUCT A SEQUENTIAL * FILE 301 //* DATASET FOR USE BY THE BLGOZX * FILE 301 //* (INFO/SYSTEM) PROGRAMS. USED AT * FILE 301 //* INTEL TO GENERATE A USER DATABASE * FILE 301 //* FOR TECHNICAL INFORMATION. SEE * FILE 301 //* JOBS 'TEC.....' IN JOBS.CNTL FOR * FILE 301 //* MORE INFO. * FILE 301 //* PANFETCH BAL USES THE PANVALET ACCESS METHOD * FILE 301 //* (PAM) TO WRITE A MEMBER OF A * FILE 301 //* PANVALET LIBRARY TO A SEQUENTIAL * FILE 301 //* DSN EXPANDING ALL IMBEDDED * FILE 301 //* ++INCLUDE CARDS. USED IN THE * FILE 301 //* 'CICSDOC' JOB. * FILE 301 //* PANSCAN PL/I THIS IS A MORE USEFUL VERSION OF THE * FILE 301 //* 'PAN#8' PROGRAM TO SCAN A PANVALET * FILE 301 //* LIBRARY FOR OCCURRENCES OF PARTICULAR * FILE 301 //* CHARACTER STRINGS. THIS PL/I * FILE 301 //* VERSION IS A BIT SLOWER THAN PAN#8, * FILE 301 //* BUT OPENS THE LIBRARY FOR INPUT ONLY * FILE 301 //* (INSTEAD OF UPDATE), AND ALLOWS * FILE 301 //* MULTIPLE SCAN PASSES AND GENERIC * FILE 301 //* MEMBER SELECTION. * FILE 301 //* PROCXREF BAL READS A JCL PROCLIB AND PRODUCES 3 * FILE 301 //* REPORTS: * FILE 301 //* CROSS REF BY DATASET NAME * FILE 301 //* CROSS REF BY PROGRAM NAME * FILE 301 //* CROSS REF BY SYSOUT CLASS/FORMS * FILE 301 //* PROCXREF ALSO UNLOADS THE LIBRARY TO * FILE 301 //* A SEQUENTIAL FILE FOR FURTHER * FILE 301 //* PROCESSING VIA SAS PGM 'PROCANLZ' * FILE 301 //* (REQUIRES NTLM801,NTLM802 PDS READ * FILE 301 //* ROUTINES). * FILE 301 //* PSN BAL THIS IS OUR JCL STANDARDS CHECKER * FILE 301 //* AND JCL REFORMATTER PROGRAM. * FILE 301 //* OBVIOUSLY YOU WON'T WANT TO USE * FILE 301 //* OUR STDS FOR JCL, BUT THIS PGM IS * FILE 301 //* HIGHLY MODULAR AND INCLUDES A LOT * FILE 301 //* OF NEAT CODE BY MIKE FARMER. IT * FILE 301 //* WILL BE EASY FOR YOU TO INSERT * FILE 301 //* YOUR OWN JCL FOIBLES IN THIS GEM.. * FILE 301 //* P051B10 BAL THE TSO WHOGOT/DSN COMMAND - RUNS AS * FILE 301 //* STC ALSO FINDS USERS/JOBS ENQUEUED * FILE 301 //* ON A DATASET. * FILE 301 //* P051B12 BAL THE TSO DSPACE COMMAND - RUNS AS STC * FILE 301 //* ALSO DOES LSPACE TO PACK(S) OF * FILE 301 //* CHOICE AND FORMATS RESULT. * FILE 301 //* DEFAULT PACKS ARE 'FCITS*'. * FILE 301 //* P051B12L BAL THE UCBLOGER STC - FIRE OFF AT 10 * FILE 301 //* MINUTE INTERVALS VIA JES2 * FILE 301 //* $TA,I=600,'$VS,''S UCBLOG''' AND * FILE 301 //* ONCE A WEEK RUN THE SAVELOG JOB TO * FILE 301 //* PRINT THE REPORT VIA ANLZUCB AND * FILE 301 //* REINITIALZE THE LOG DATASET. * FILE 301 //* P051B15 BAL THE TSO DDSTAR COMMAND- SPOOL LINES * FILE 301 //* FROM A CLIST INTO A DATASET FOR * FILE 301 //* READING BY PGMS/UTILITIES. * FILE 301 //* ARRIVED VIA MISHMODS TAPE FROM * FILE 301 //* UCLA-FCI INTERNALIZE MACROS FROM * FILE 301 //* URMACRO. * FILE 301 //* P051B16 BAL THE TSO LISTSPC COMMAND - REPLACES * FILE 301 //* LISTC USAGE FOR TSO USERS..SHOWS * FILE 301 //* ALLOCATIONS, AND DS ATTRIBS, AND * FILE 301 //* IF YOU HAVE ASM2, ALSO SHOWS WHO * FILE 301 //* LAST MODIFIED DS. * FILE 301 //* P051B19 BAL THE TSO DTAPES COMMAND - RUNS AS STC * FILE 301 //* ALSO SHOWS TAPE DRIVES, VOLSER, * FILE 301 //* JOB USING AND DENSITY, MODEL * FILE 301 //* TYPES. * FILE 301 //* P963P00 PL/I DASD MANAGEMENT SYSTEM- MAINLINE * FILE 301 //* (COMPARE DSN FROM VTOC WITH GRANT * FILE 301 //* LIST) - GENERATE SCRATCH LIST AND * FILE 301 //* MERGED DSNLOG. * FILE 301 //* P963P02 PL/I DASD MANAGEMENT SYSTEM- DATA SET * FILE 301 //* SCRATCH UTILITY * FILE 301 //* P963P10 PL/I DASD MANAGEMENT SYSTEM- GENERATE * FILE 301 //* SCRATCH LOG FROM OUTLOG OF P963P00 * FILE 301 //* (FOR RECOVERY ONLY). * FILE 301 //* P963P20 PL/I DASD MANAGEMENT SYSTEM- PRINT SCRLOG * FILE 301 //* REPORT FOR TSO USERS - USED BY * FILE 301 //* CLIST SHOWSCR. * FILE 301 //* P963P27 PL/I DASD MANAGEMENT SYSTEM- AUTOSCR * FILE 301 //* (EARLY SCR FOR ROLLED OFF GDG * FILE 301 //* DATASETS) + DATASET SIZE HISTORY * FILE 301 //* FILE * FILE 301 //* P963P30 PL/I PGM FROM OUR DASD MGMT * FILE 301 //* SYSTEM..ACCEPTS CONTROL CARDS AND * FILE 301 //* LOOKS UP VOLUMES/MSVGPS FROM THE * FILE 301 //* MSVI DATASET. USE PROC 'MAPMSVGP' * FILE 301 //* TO INVOKE THIS ONE, THEN MAPDISK * FILE 301 //* TO MAP ALL VOLUMES IN AN MSVGP. * FILE 301 //* P963P35 PL/I DASD MANAGEMENT SYSTEM- DUPLICATE * FILE 301 //* VOLUME ELIMINATOR TO ENSURE THAT * FILE 301 //* MAPDISK MAPS EACH VOLUME ONLY * FILE 301 //* ONCE. * FILE 301 //* P963P70 PL/I DASD MANAGEMENT SYSTEM- SUPERMATCH * FILE 301 //* PROGRAM-USED WITH P963P71/SUPERSCR * FILE 301 //* TO EXCLUDE DSNS FROM SUPERSCR * FILE 301 //* P963P71 PL/I DASD MANAGEMENT SYSTEM- GENERATE * FILE 301 //* SUPERSCR EXCLUDE CARDS TO EXEMPT * FILE 301 //* DATASETS FROM SUPERSCR AFTER * FILE 301 //* SYSTEM CRASH - INTERFACES WITH * FILE 301 //* OPERATOR VIA WTOR * FILE 301 //* P963P75 PL/I DASD MANAGEMENT SYSTEM- DATASET SIZE * FILE 301 //* HISTORY FILE MAINT PROGRAM AND * FILE 301 //* AUTOSCR FOR MSVGP=XMIT * FILE 301 //* P963P75A PL/I DASD MANAGEMENT SYSTEM- MAINTAIN * FILE 301 //* MSVGP=XMIT * FILE 301 //* R062A10 BAL DYNAMIC ALLOCATION INTERFACE * FILE 301 //* SUBROUTINE - ALLOWS MOST DA * FILE 301 //* SERVICES FROM A COBOL/PLI/FORT * FILE 301 //* PROGRAM. * FILE 301 //* R941X11 BAL UTILITY JULIAN<->GREGORIAN DATE * FILE 301 //* CONVERTOR-- USED BY SEVERAL PL/I * FILE 301 //* PROGRAMS ON THIS TAPE. * FILE 301 //* R963A30 BAL HANDY SUBROUTINE TO * FILE 301 //* SCRATCH/UNCATALOG DATASET.. DOES * FILE 301 //* DYNAMIC ALLOCATION OF VOLUME, AND * FILE 301 //* REPORTS WITH TEXT MESSAGES TO * FILE 301 //* CALLER * FILE 301 //* SCOMPARE BAL PGM TO COMPARE 2 LRECL=80 DATASETS * FILE 301 //* AND SPOT DIFFERENCES. BASED ON * FILE 301 //* CBT881 WITH MODS TO PRINT WHICH * FILE 301 //* DATASETS ARE BEING COMPARED, AND * FILE 301 //* PAGE CONTROL. * FILE 301 //* SHOWHIST PL/I DASD MANAGEMENT SYSTEM- SHOW TSO * FILE 301 //* USERS THE HISTORY (SIZE, ETC) ON * FILE 301 //* DATASETS OF THEIR CHOICE.. INVOKED * FILE 301 //* BY THE 'SHOWHIST' CLIST IN * FILE 301 //* JOBS.CNTL * FILE 301 //* SHOWSMF BAL TSO CMD OR STC TO DISPLAY * FILE 301 //* ''FULLNESS'' OF MANX/MANY FOR MVS * FILE 301 //* (NOT SE OR SP SYSTEMS) * FILE 301 //* SHOSMFSP BAL TSO CMD OR STD TO DISPLAY SYS1.MAN. * FILE 301 //* DATASETS FOR MVS SE2 OR SP1/SP3. * FILE 301 //* SHOWRAW PL/I PGM TO DISPLAY START/END DATES OF * FILE 301 //* TRACE DUMP DATASETS (USED IN * FILE 301 //* MSSTRACE/TRACESAV JOBSTREAMS). * FILE 301 //* SHOWTRC PL/I PGM TO DYNAM. ALLOC MSS TRACE * FILE 301 //* DATASETS AND READ HDR * FILE 301 //* RECORD/FORMAT TRACE ON DATE/TIME. * FILE 301 //* THIS IS AN EXAMPLE OF USING * FILE 301 //* R062A10 DYNAM ALLOC AND S051B16B * FILE 301 //* (LOCINDEX) SUBROUTINE. ONLY * FILE 301 //* SOURCE IS SUPPLIED- NO JCL TO * FILE 301 //* COMPILE AND LINK. * FILE 301 //* SMFACF2 PL/I SMF PGM- DIGEST ACF2 RECORDS, PRINT * FILE 301 //* ACF2 INFORMATION * FILE 301 //* SMFACFM PL/I SMF PGM- MERGE DIGESTED ACF2 RECORDS * FILE 301 //* AND RESPONSIBILITY LIST. * FILE 301 //* SMFACFPR PL/I SMF PGM- PRINT NICELY FORMATTED ACF2 * FILE 301 //* INFORMATION * FILE 301 //* SMFDSND PL/I SMF PGM- LOOK FOR TYPE 14/15/17 * FILE 301 //* RECORDS FOR UP TO 20 GENERIC * FILE 301 //* DATASETS-SHOW RAW INFO * FILE 301 //* SMFDSNPR PL/I SMF PGM- PRINT SORTED SMFDSND OUTPUT * FILE 301 //* TO SHOW CHRONOLOGICAL HISTORY OF * FILE 301 //* DATASET ACCESS. * FILE 301 //* SMFRACF PL/I SMF PGM- PRINT RACF EVENTS FROM TYPE * FILE 301 //* 0,80 AND 81 RECS PROVIDE LISTING * FILE 301 //* OF EVENTS AND BUILD CLIST TO ALLOW * FILE 301 //* RECONSTRUCTION OF RACF DATASET * FILE 301 //* AFTER CRASH. * FILE 301 //* SMFSEL BAL SMF PGM- RECORD SELECTION UTILITY * FILE 301 //* SMFTERM PL/I SMF PGM- ANALYZE TYPE 34 RECORDS AND * FILE 301 //* PRODUCE TSO USAGE SUMMARY. * FILE 301 //* REQUIRES IEFUJI TO PUT TERMINAL * FILE 301 //* UCB ADDR IN LAST HALFWORD OF * FILE 301 //* SMFUSER FIELD IN ORDER TO PROVIDE * FILE 301 //* TERMINAL USAGE STATS BY TERMINAL * FILE 301 //* ADDRESS * FILE 301 //* SPACEZAP PL/I PGM TO DYNAM. ALLOC MSS VOLUMES * FILE 301 //* WHICH ARE NOT MOUNTED BUT HAVE * FILE 301 //* DOWN LEVEL SPACE FLAG SET ON IN * FILE 301 //* MSVI. MSVGPS SCANNED CONTROLLED * FILE 301 //* BY SYSIN PARM CARDS. (STC JCL IN * FILE 301 //* MSSMODS.JOBS.CNTL + SAMPLE CNTL * FILE 301 //* DS) * FILE 301 //* SUPERSCR ** BAL SUPER SCRATCH FOR REAL/VIRTUAL * FILE 301 //* DISKS.. * FILE 301 //* SUPERSPY ** BAL THE THING TO RUN TO HELP DIAGNOSE * FILE 301 //* PROBLEMS WITH MVS/ MSS..REQUIRES * FILE 301 //* MSC TABLES MAINT. IUP IN SECOND * FILE 301 //* STEP. * FILE 301 //* S051B22 BAL THE FIND SUBROUTINE..USED BY * FILE 301 //* TSO044(UCBUNLD) TO FIND 'VOL=(SL,' * FILE 301 //* ON PARM CARD. * FILE 301 //* TECHINFO JCL JOB TO UPDATE YOUR VERY OWN INFO/MVS * FILE 301 //* FORMATTED DATABASE. USES UTILITY * FILE 301 //* 'OZPDSUNL'. SEE JOBS.CNTL FOR THE * FILE 301 //* FOLLOWING MEMBERS: * FILE 301 //* TECINFOC - CLIST TO RUN TECHINFO UNDER TSO * FILE 301 //* TECHINFO - JOB TO RELOAD TECHINFO DATABASE * FILE 301 //* TECINFO1 - USES IDCAMS TO DEFINE VSAM CLUSTER FOR DB * FILE 301 //* TECINFO2 - USES BLG... UTILITIES TO CREATE UNLOADED * FILE 301 //* HELP, CICS, VTAM, VSAM FILES FROM THE * FILE 301 //* INFO/MVS MONTHLY UPDATE TAPE. * FILE 301 //* TRAC3850 BAL IPO TRAC3850 WITH MODS..ANLZ * FILE 301 //* IGCTRINT OUTPUT * FILE 301 //* TSO020SU BAL TSO DJOBS COMMAND - STC USAGE ALSO. * FILE 301 //* LIKE 'D J,L' WITH SWAP STATUS,CPU * FILE 301 //* TIME,XACT TIME * FILE 301 //* TSO025AS ** BAL TSO DTSO COMMAND - STC USAGE ALSO. * FILE 301 //* LIKE DJOBS ABOVE, BUT FOR TSO; * FILE 301 //* SHOWS LINE ADDR TOO. * FILE 301 //* TSO032 BAL TSO DDMN COMMAND - STC USAGE ALSO. * FILE 301 //* LIKE 'D DMN' BUT NEATER, SHOWS IPS * FILE 301 //* IN EFFECT TOO. * FILE 301 //* TSO033 BAL TSO DUPTIME COMMAND - STC USAGE * FILE 301 //* ALSO. SHOWS HOW LONG SYSTEM HAS * FILE 301 //* BEEN UP (FROM LAST IPL) * FILE 301 //* TSO034 ** BAL TSO SYSMAINT COMMAND - STC USAGE * FILE 301 //* ALSO. WRITTEN BEFORE THE DAYS OF * FILE 301 //* 'FORCE', ALLOWS A CALLRTM MEMTERM * FILE 301 //* TO BE ISSUED TO AN ADDRESS SPACE * FILE 301 //* HANDLES 'STARTING' TSO USERS TOO. * FILE 301 //* TSO036 BAL TSO SHOWASM COMMAND - STC USAGE * FILE 301 //* ALSO. DISPLAYS AUXSTM STATS, RSM * FILE 301 //* PAGE USAGES, AND PAGE/SWAP DATASET * FILE 301 //* STATUS/STATS. * FILE 301 //* TSO041 BAL TSO LPDS COMMAND. THE EVER POPULAR * FILE 301 //* PDS MANIPUATOR COMMAND, DOES * FILE 301 //* EVERYTHING BUT DRY-CLEAN A PDS * FILE 301 //* OF YOUR CHOICE. (SEE FILE 182 FOR NEW.) * FILE 301 //* TSO042 BAL TSO DUNITS COMMAND - STC USAGE * FILE 301 //* ALSO. LIKE 'D U,...' BUT MORE * FILE 301 //* INFORMATIVE WITH USE/OPEN COUNTS. * FILE 301 //* SELECTION IS BY GENERIC VOLSERS. * FILE 301 //* TSO044 ** BAL STARTED TASK..UNLOAD ALL MSS VOLUMES * FILE 301 //* NOT ON A LIST OF VOLSERS IN MEMBER * FILE 301 //* 'MOUNTMSS'. PARSES '$VS,'M * FILE 301 //* XXX,VOL=(SL,VOLSER)'' COMMANDS TO * FILE 301 //* FIND VOLUMES TO EXEMPT... * FILE 301 //* TSO045 BAL THE CHIMP MVS SYSTEM DISPLAY COMMAND * FILE 301 //* FOR 3270 FULLSCR OPERATION. SHOWS * FILE 301 //* JOBS/TSO USER STATS, AND WE ADDED * FILE 301 //* A DYNAMIC DOMAIN DISPLAY (OPTION * FILE 301 //* 'D'). OPERS LOVE IT..SHOWS STEP * FILE 301 //* NAME AND CPU TIME... (ORIG FROM * FILE 301 //* SHARE VIA THE CBT TAPE). * FILE 301 //* TSO048 BAL THE TSO #PANVIEW COMMAND - ALLOW * FILE 301 //* LISTING OF PANVALET LIBRARY * FILE 301 //* MEMBERS AND LIBRARY DIRECTORY ON A * FILE 301 //* 3270 TUBE IN FULL SCREEN MODE. * FILE 301 //* (ORIG FROM SHARE JES2 MODS TAPE * FILE 301 //* (MEMOREX) WITH * FILE 301 //* DIRECTORY LIST MOD BY FAIRCHILD). USES * FILE 301 //* THE 'PANVIEW' CLIST IN MSSMODS.JOB.CNTL * FILE 301 //* TO RUN. * FILE 301 //* TSO050 BAL TSO '$' COMMAND- INVOKE PROGRAM FROM * FILE 301 //* LINKLIST. THIS VERSION ARRIVED * FILE 301 //* FROM SOURCES UNKNOWN, BUT WE * FILE 301 //* INTERNALIZED THE MACROS-(LOOKS * FILE 301 //* LIKE UCLA MACROS...) * FILE 301 //* TSO051 BAL TSO 'GETINFO' COMMAND - ALLOWS YOU * FILE 301 //* TO STUFF GOODIES FROM OS/JCT (OR * FILE 301 //* OTHER CONTROL BLOCKS) INTO CLIST * FILE 301 //* VARIABLES WITHIN A CLIST. * FILE 301 //* (TAILORED FOR ACF2) * FILE 301 //* UCBZAP ** BAL FIX MSS UCBS WITH STATUS 'A' AND * FILE 301 //* USECNT>250. CLEANS 'DIRTY' MSS * FILE 301 //* UCBS LEFT BY SOMEONE IN MVS NOT * FILE 301 //* PLAYING FAIR WITH THE UCB USECOUNT * FILE 301 //* FIELD. ISSUES UNLOADS FOR DIRTY * FILE 301 //* UNITS AFTER FIXING THE 'ALLOC' AND * FILE 301 //* USECOUNT. * FILE 301 //* * FILE 301 //***FILE 302 IS FROM KEN TOMIAK OF DOITT (DEPT OF INFORMATION * FILE 302 //* TECHNOLOGY AND TELECOMMUNIATIONS) OF NEW YORK * FILE 302 //* CITY (FORMERLY CALLED CDCSA). THIS FILE CONTAINS * FILE 302 //* SCRIPT FILES WHICH HELP DOCUMENT THE CICS CROSS * FILE 302 //* SYSTEM FACILITY THAT IS ON FILE 210 OF THIS TAPE. * FILE 302 //* THIS FILE IS IN IEBCOPY FORMAT, AND HAS LRECL=147. * 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 has been moved from File 210 of the regular CBT Tape. * FILE 310 //* Only this documentation remains on the regular CBT * FILE 310 //* Tape, but all the file materials are intact in this * FILE 310 //* new location. * FILE 310 //* * FILE 310 //* Related files that have been moved. * FILE 310 //* * FILE 310 //* File 210 - moved to CBT Overflow Tape, File 310 * FILE 310 //* File 211 - moved to CBT Overflow Tape, File 311 * FILE 310 //* File 212 - moved to CBT Overflow Tape, File 312 * FILE 310 //* File 213 - moved to CBT Overflow Tape, File 313 * FILE 310 //* * FILE 310 //* THIS FILE IS FROM KEN TOMIAK OF DOITT (DEPT OF INFORMATION * FILE 310 //* TECHNOLOGY AND TELECOMMUNIATIONS) OF NEW YORK * FILE 310 //* CITY (FORMERLY CALLED CDCSA). THIS PACKAGE * FILE 310 //* CONTAINS THEIR CICS CROSS SYSTEM FACILITY. THIS * FILE 310 //* IS AN ISPF APPLICATION WHICH ALLOWS ONE MAINTAINED * FILE 310 //* LEVEL OF CICS (AND FIXES) TO BE PROPAGATED ACROSS * FILE 310 //* MANY CICS REGIONS. * FILE 310 //* * FILE 310 //* THIS SYSTEM IS AN ADAPTATION OF THE MVS CROSS * FILE 310 //* SYSTEM FACILITY THAT IS ON FILE 204 OF THE CBT TAPE. * FILE 310 //* * FILE 310 //* SOME OF THIS MATERIAL MAY REFERENCE MATERIALS * FILE 310 //* WHICH ARE FOUND ON FILE 204 OF THE REGULAR CBT TAPE. * FILE 310 //* * FILE 310 //***FILE 311 has been moved from File 211 of the regular CBT Tape. * FILE 311 //* Only this documentation remains on the regular CBT * FILE 311 //* Tape, but all the file materials are intact in this * FILE 311 //* new location. * FILE 311 //* * FILE 311 //* Related files that have been moved. * FILE 311 //* * FILE 311 //* File 210 - moved to CBT Overflow Tape, File 310 * FILE 311 //* File 211 - moved to CBT Overflow Tape, File 311 * FILE 311 //* File 212 - moved to CBT Overflow Tape, File 312 * FILE 311 //* File 213 - moved to CBT Overflow Tape, File 313 * FILE 311 //* * FILE 311 //* THIS FILE IS FROM KEN TOMIAK OF DOITT (DEPT OF INFORMATION * FILE 311 //* TECHNOLOGY AND TELECOMMUNIATIONS) OF NEW YORK * FILE 311 //* CITY (FORMERLY CALLED CDCSA). THIS FILE CONTAINS * FILE 311 //* SCRIPT FILES WHICH HELP DOCUMENT THE CICS CROSS * FILE 311 //* SYSTEM FACILITY THAT IS ON FILE 310 OF THIS TAPE. * FILE 311 //* THIS FILE IS IN IEBCOPY FORMAT, AND HAS LRECL=147. * FILE 311 //* * FILE 311 //***FILE 312 has been moved from File 212 of the regular CBT Tape. * FILE 312 //* Only this documentation remains on the regular CBT * FILE 312 //* Tape, but all the file materials are intact in this * FILE 312 //* new location. * FILE 312 //* * FILE 312 //* Related files that have been moved. * FILE 312 //* * FILE 312 //* File 210 - moved to CBT Overflow Tape, File 310 * FILE 312 //* File 211 - moved to CBT Overflow Tape, File 311 * FILE 312 //* File 212 - moved to CBT Overflow Tape, File 312 * FILE 312 //* File 213 - moved to CBT Overflow Tape, File 313 * FILE 312 //* * FILE 312 //* THIS FILE IS FROM KEN TOMIAK OF DOITT (DEPT OF INFORMATION * FILE 312 //* TECHNOLOGY AND TELECOMMUNIATIONS) OF NEW YORK * FILE 312 //* CITY (FORMERLY CALLED CDCSA). THIS PACKAGE * FILE 312 //* CONTAINS THEIR DB2 CROSS SYSTEM FACILITY. THIS * FILE 312 //* IS AN ISPF APPLICATION WHICH ALLOWS ONE MAINTAINED * FILE 312 //* LEVEL OF DB2 (AND FIXES) TO BE PROPAGATED ACROSS * FILE 312 //* MANY DB2 ADDRESS SPACES. * FILE 312 //* * FILE 312 //* THIS SYSTEM IS AN ADAPTATION OF THE MVS CROSS * FILE 312 //* SYSTEM FACILITY THAT IS ON FILE 204 OF THE CBT TAPE. * FILE 312 //* THERE IS A LOT MORE DB2 MATERIAL HERE THAN CICS * FILE 312 //* MATERIAL, BECAUSE KEN'S CURRENT WORK IS WITH DB2. * FILE 312 //* * FILE 312 //* SOME OF THIS MATERIAL MAY REFERENCE MATERIALS * FILE 312 //* WHICH ARE FOUND ON FILE 204 OF THE REGULAR CBT TAPE. * FILE 312 //* * FILE 312 //***FILE 313 has been moved from File 213 of the regular CBT Tape. * FILE 313 //* Only this documentation remains on the regular CBT * FILE 313 //* Tape, but all the file materials are intact in this * FILE 313 //* new location. * FILE 313 //* * FILE 313 //* Related files that have been moved. * FILE 313 //* * FILE 313 //* File 210 - moved to CBT Overflow Tape, File 310 * FILE 313 //* File 211 - moved to CBT Overflow Tape, File 311 * FILE 313 //* File 212 - moved to CBT Overflow Tape, File 312 * FILE 313 //* File 213 - moved to CBT Overflow Tape, File 313 * FILE 313 //* * FILE 313 //* THIS FILE IS FROM KEN TOMIAK OF DOITT (DEPT OF INFORMATION * FILE 313 //* TECHNOLOGY AND TELECOMMUNIATIONS) OF NEW YORK * FILE 313 //* CITY (FORMERLY CALLED CDCSA). THIS FILE CONTAINS * FILE 313 //* SCRIPT FILES WHICH HELP DOCUMENT THE DB2 CROSS * FILE 313 //* SYSTEM FACILITY THAT IS ON FILE 312 OF THIS TAPE. * FILE 313 //* THIS FILE IS IN IEBCOPY FORMAT, AND HAS LRECL=147. * 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