//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 09-01-00 *                         *   DOC FILE
//*                    ********************                         *   DOC FILE
//*                    *   VERSION # 429  *                         *   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   T A P E           -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  This tape contains more utilities than system mods.      -- *   DOC FILE
//* --  Therefore, this tape shall no longer be called the       -- *   DOC FILE
//* --  CBT MVS Mods Tape, because that is now misleading.       -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  Much of this material is actually external to the MVS    -- *   DOC FILE
//* --  operating system itself.  This tape is huge - vast.      -- *   DOC FILE
//* --  This tape potentially can help an MVS installation       -- *   DOC FILE
//* --  and its programmers in many ways.                        -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- This tape is the CBT MVS Tape.  It is not to be confused  -- *   DOC FILE
//* -- with the "SHARE" MVS Tape (a very very different tape.)   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  (By the way, the contents of the "SHARE MVS Tape" are    -- *   DOC FILE
//* --   now on the CBT Overflow Tape, Files 104 through 234.)   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- PLEASE DO NOT REFER TO THIS TAPE AS THE "SHARE TAPE".  IT -- *   DOC FILE
//* -- IS NOT IN ANY WAY CONNECTED TO THE "SHARE" ORGANIZATION.  -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- THIS TAPE IS NOT CONNECTED IN ANY WAY TO NASPA EITHER,    -- *   DOC FILE
//* -- EXCEPT FOR THE FACT THAT NASPA IS ONE OF ITS VEHICLES     -- *   DOC FILE
//* -- FOR DISTRIBUTION.                                         -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- To clarify:  The CBT Tape is independently produced.      -- *   DOC FILE
//* --              On the other hand, various committees of     -- *   DOC FILE
//* --              the "SHARE" organization produce their own   -- *   DOC FILE
//* --              tapes, including the "SHARE MVS committee".  -- *   DOC FILE
//* --              the SHARE MVS committee's tape is often      -- *   DOC FILE
//* --              conceptually confused with this CBT Tape.    -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --              Nowadays, most of the SHARE committess no    -- *   DOC FILE
//* --              longer produce tapes.  If I understand       -- *   DOC FILE
//* --              correctly, they put their software           -- *   DOC FILE
//* --              contributions on the SHARE web site:         -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --                   http://www.share.org                    -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    Note:     The SHARE MVS committee has officially       -- *   DOC FILE
//* --              "killed" its MVS tape.  The contents of      -- *   DOC FILE
//* --              the last SHARE MVS Tape are now on Files     -- *   DOC FILE
//* --              104 - 234 of the CBT Overflow Tape.          -- *   DOC FILE
//* --              "SHARE" now distributes its software at      -- *   DOC FILE
//* --              the SHARE web site:  www.share.org .         -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --              I have a copy of the last SHARE cd-rom       -- *   DOC FILE
//* --              disk.  If you want to know more about        -- *   DOC FILE
//* --              those materials, please email me at:         -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --       sbgolob@attglobal.net and/or sbgolob@aol.com .      -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --              The Share Program Library Agency has been    -- *   DOC FILE
//* --              discontinued by the SHARE organization.      -- *   DOC FILE
//* --              Please email Sam Golob to find out about     -- *   DOC FILE
//* --              the latest news for obtaining S.P.L.A.       -- *   DOC FILE
//* --              distributed materials.                       -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --              Many of these materials can now be obtained  -- *   DOC FILE
//* --              either at the CBT web site: www.cbttape.org  -- *   DOC FILE
//* --              or on the CBT Overflow Tape.                 -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --     Sam Golob's email:  sbgolob@attglobal.net  and/or     -- *   DOC FILE
//* --                         sbgolob@aol.com                   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --              For your convenience, the addresses for      -- *   DOC FILE
//* --              obtaining various other tapes, are also      -- *   DOC FILE
//* --              listed below.                                -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --              See File 071 on this tape which is a pds     -- *   DOC FILE
//* --              that contains documentation files for the    -- *   DOC FILE
//* --              various public tapes which we know about.    -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//*******************************************************************   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- Announcement -    (lowercase characters in this file)     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    We have started to introduce lowercase characters      -- *   DOC FILE
//* --     into this file, because some of the URL's need        -- *   DOC FILE
//* --     them, and some people who were trying to reach        -- *   DOC FILE
//* --     an address on the Internet, which we have supplied,   -- *   DOC FILE
//* --     weren't able to get there because of that.            -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    If an Internet server is running on a UNIX system,     -- *   DOC FILE
//* --     the file names are case sensitive.  You can usually   -- *   DOC FILE
//* --     recognize this, by the forward slash(es) in the       -- *   DOC FILE
//* --     Internet address.  If you see forward slashes,        -- *   DOC FILE
//* --     then suspect that the file names are case sensitive.  -- *   DOC FILE
//* --     Try lower case first.                                 -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    I'm assuming that nowadays, there aren't too many      -- *   DOC FILE
//* --     printers which can't print these characters.          -- *   DOC FILE
//* --     (Please correct me if I'm wrong.  -  SG  03/99)       -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    Lower case characters are also easier to read on       -- *   DOC FILE
//* --     a terminal.  I made an informal poll on the IBM-MAIN  -- *   DOC FILE
//* --     newsgroup, and the votes came back overwhelmingly     -- *   DOC FILE
//* --     in favor of introducing lower case characters.        -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//*******************************************************************   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- Announcement -    (Breaking this file into a pds)         -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    Note ............                                      -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    The CBTUPDTE edit macro has been superseded by an      -- *   DOC FILE
//* --    assembler program called CBTUPD.                       -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    File 004 of this tape contains source for CBTUPD.      -- *   DOC FILE
//* --    File 006 of this tape contains all of the related      -- *   DOC FILE
//* --    materials, at this time, including a "fixed"           -- *   DOC FILE
//* --    version of the edit macro CBTUPDTE.                    -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    In response to a request that this file is too big     -- *   DOC FILE
//* -- to use easily, we have supplied an assembler program      -- *   DOC FILE
//* -- called CBTUPD in File 004 of this tape.  CBTUPD will      -- *   DOC FILE
//* -- insert ./ ADD NAME=  (IEBUPDTE separator) cards into      -- *   DOC FILE
//* -- this file.  With these cards, you can use IEBUPDTE        -- *   DOC FILE
//* -- PARM=NEW, or the PDSLOAD program from File 093, to load   -- *   DOC FILE
//* -- a partitioned dataset with smaller chunks from this       -- *   DOC FILE
//* -- file, as separate members.  Additional tools to deal      -- *   DOC FILE
//* -- with File 001 have been included in File 006.             -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    I wrote CBTUPD to put the separator cards in the       -- *   DOC FILE
//* -- same places, to generate the same members, that I myself  -- *   DOC FILE
//* -- use to update this file.         (SG - 03/99)             -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    The member names are important, because they are in    -- *   DOC FILE
//* -- collating sequence (EBCDIC - alphabetical) order, so that -- *   DOC FILE
//* -- when you put all the members back together with the       -- *   DOC FILE
//* -- OFFLOAD program (from File 093) or with LISTPDS (from     -- *   DOC FILE
//* -- File 316) or with the REVIEW (File 134) subcommand called -- *   DOC FILE
//* -- =OFFLOAD (which writes the members to a sequential file   -- *   DOC FILE
//* -- previously allocated to the SYSUT2 ddname), or with the   -- *   DOC FILE
//* -- STARTOOL (vendor product from Serena Inc.) command called -- *   DOC FILE
//* -- COMBINE, they will go back together in the proper order.  -- *   DOC FILE
//* -- Then you can re-constitute File 001 from the members of   -- *   DOC FILE
//* -- this partitioned dataset.                                 -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    The CBTUPD assembler program can be run in batch.      -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  Sample JCL to run the CBTUPD program:                    -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  // JOB CARD                                              -- *   DOC FILE
//* --  //*                                                      -- *   DOC FILE
//* --  //INSERT EXEC PGM=CBTUPD                                 -- *   DOC FILE
//* --  //STEPLIB DD DISP=SHR,DSN=yourhlq.LOAD                   -- *   DOC FILE
//* --  //INPUT  DD  DISP=SHR,DSN=yourhlq.CBT.EDIT(FILE001)      -- *   DOC FILE
//* --  //OUTPUT DD  DISP=SHR,DSN=yourhlq.CBTDOC.TEST(FILE001M)  -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   INPUT and OUTPUT files are RECFM=FB, LRECL=80           -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//*******************************************************************   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- Announcement -    (Microsoft Word 97 documentation)       -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  On a few of the files on this tape, I've included        -- *   DOC FILE
//* --  documentation by the authors of the files, that is in    -- *   DOC FILE
//* --  Microsoft WORD 97 format.  I discourage this, because    -- *   DOC FILE
//* --  you need a pc that has WORD 97, or a Microsoft Word 97   -- *   DOC FILE
//* --  reader (downloadable from www.microsoft.com), in order   -- *   DOC FILE
//* --  to read the stuff.  Whenever I could, I have created     -- *   DOC FILE
//* --  plain text files to replace the WORD 97 stuff, but       -- *   DOC FILE
//* --  sometimes I've also included the original doc from       -- *   DOC FILE
//* --  the file's author.                                       -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  To read such files, download them to a pc in "binary"    -- *   DOC FILE
//* --  (i.e. no translation or carriage-return or line feed)    -- *   DOC FILE
//* --  and they should be readable by WORD 97, on the pc.       -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//*******************************************************************   DOC FILE
//***Y2K SECTION                                                    *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*                     Y 2 K    S E C T I O N                      *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  Some files on the CBT Tape and the CBT Overflow Tape     -- *   DOC FILE
//* --  may be marked in their documentation that an attempt     -- *   DOC FILE
//* --  was made to make (all or some of) their software Y2K     -- *   DOC FILE
//* --  compliant.                                               -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  THE DISCLAIMER BELOW (DISCLAIMER SECTION) OVERRIDES      -- *   DOC FILE
//* --  ALL SUCH STATEMENTS.  NO RESPONSIBILITY OR GUARANTEE     -- *   DOC FILE
//* --  OF ANY KIND, IS EXPRESSED OR IMPLIED, OR TO BE CONSTRUED -- *   DOC FILE
//* --  IN ANY STATEMENT ON THESE TAPES, TO THE EFFECT THAT ANY  -- *   DOC FILE
//* --  SOFTWARE OR MATERIALS ARE Y2K COMPLIANT.  ALL SUCH A     -- *   DOC FILE
//* --  STATEMENT MEANS, IS THAT THE AUTHOR OF THE MATERIALS     -- *   DOC FILE
//* --  HAS ATTEMPTED TO ADDRESS YEAR 2000 ISSUES, ETC.  BUT     -- *   DOC FILE
//* --  (AS IT IS FOR ALL THE REST OF THE MATERIALS ON THESE     -- *   DOC FILE
//* --  TAPES) NO RESPONSIBILITIES ARE ASSUMED BY ANY PERSON,    -- *   DOC FILE
//* --  ORGANIZATION, CORPORATION, OR LEGAL ENTITY WHO HANDLES   -- *   DOC FILE
//* --  THESE TAPES, AS TO THE ACCURACY, USABILITY, ETC. OF THE  -- *   DOC FILE
//* --  MATERIALS.  THE USER OF THE MATERIALS DOES SO ENTIRELY   -- *   DOC FILE
//* --  AT HIS/HER OWN RISK.                                     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//*******************************************************************   DOC FILE
//***ANNOUNCEMENT SECTION                                           *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*         A N N O U N C E M E N T    S E C T I O N                *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  DOCUMENTATION FOR CBT TAPE(S) IS NOW AVAILABLE AT A      -- *   DOC FILE
//* --  WEB SITE ON THE INTERNET:                                -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --     http://www.cbttape.org   in ASCII or in EBCDIC        -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  ALL FILES FROM THE CBT TAPE AND CBT OVERFLOW TAPE ARE    -- *   DOC FILE
//* --  AVAILABLE FOR DOWNLOAD AT:                               -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --     http://www.cbttape.org                                -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  ALSO CHECK OUT http://www.cbttape.org FOR OTHER MVS      -- *   DOC FILE
//* --  MATERIALS, AND FOR THE OLD CBT TAPE VERSION 249 (07/85). -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  The SHARE/GUIDE JES3 Tape materials and the SHARE JES2   -- *   DOC FILE
//* --  Tape materials are also available there.                 -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  This site is advertised to be available 24 hours a day,  -- *   DOC FILE
//* --  7 days a week, and usually it is always online, except   -- *   DOC FILE
//* --  once when there was a general power outage in the        -- *   DOC FILE
//* --  entire Washington D.C. area for a big length of time.    -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  We are using this site because Systems Programmers       -- *   DOC FILE
//* --  often need access to CBT Tape materials at odd times,    -- *   DOC FILE
//* --  and the site is very reliable, redundant, and has lots   -- *   DOC FILE
//* --  of fast communication lines.                             -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  I HAVE TRIED TO UPDATE THE ADDRESSES OF CONTRIBUTORS     -- *   DOC FILE
//* --  IN THIS FILE.  IF ONE ADDRESS FOR A GIVEN CONTRIBUTOR    -- *   DOC FILE
//* --  IS MENTIONED IN FILE 001, AND ANOTHER IS EMBEDDED IN     -- *   DOC FILE
//* --  THE ACTUAL PDS THAT COMES FROM THE DATA FILE ON THIS     -- *   DOC FILE
//* --  TAPE, IT IS PROBABLE THAT THE ADDRESS ON THIS FILE IS    -- *   DOC FILE
//* --  THE MOST RECENT.  (ESPECIALLY IF IT INCLUDES AN EMAIL    -- *   DOC FILE
//* --  ADDRESS.)                                                -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  SOMETIMES IT HAPPENS THAT THE CONTRIBUTOR EMBEDS HIS     -- *   DOC FILE
//* --  OWN ADDRESS IN THE DATA FILE, AND THE ADDRESS IN THIS    -- *   DOC FILE
//* --  DOCUMENTATION (FILE 001) WASN'T UPDATED.  SO IN THAT     -- *   DOC FILE
//* --  CASE, THE DATA FILE HAS THE MORE RECENT ADDRESS.  I'D    -- *   DOC FILE
//* --  SUGGEST TO TRY THE FILE 001 ADDRESS FIRST, AND THEN      -- *   DOC FILE
//* --  TRY THE ONE IN THE DATA FILE.                            -- *   DOC FILE
//* --                                      (S.GOLOB  05/98)     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//* -- ADVICE ....                                               -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --     FOR INFO ON USING THIS TAPE, SEE:                     -- *   DOC FILE
//* --       "USING THIS TAPE" SECTION, BELOW IN THIS DOC.       -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --     FOR MORE ADVICE, SEE:                                 -- *   DOC FILE
//* --       "WHAT TO DO WITH THIS TAPE FIRST" SECTION, BELOW.   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --------------------------------------------------------------- *   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)               (09/97)     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   I HAVE ENTERED THE ELECTRONIC INFORMATION AGE (FINALLY) -- *   DOC FILE
//* --   AND HAVE TWO EMAIL ADDRESSES.  THEY ARE:                -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --          sbgolob@aol.com                                  -- *   DOC FILE
//* --          sbgolob@attglobal.net                            -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   THESE MAY BE USED FOR CORRESPONDENCE WITH ME, AND/OR    -- *   DOC FILE
//* --   SUBMISSION OF NEW MATERIAL FOR EITHER CBT TAPE (I.E.    -- *   DOC FILE
//* --   THIS TAPE, OR THE CBT OVERFLOW TAPE).  FURTHERMORE,     -- *   DOC FILE
//* --   AS I DISCOVER OTHER CONTRIBUTORS' EMAIL ADDRESSES, I    -- *   DOC FILE
//* --   SHALL TRY AND INCLUDE THEM IN THIS FILE.                -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   TO HELP IN THIS EFFORT, I'D LIKE TO REQUEST ALL         -- *   DOC FILE
//* --   CONTRIBUTORS, PAST AND/OR PRESENT, TO CONTRIBUTE THEIR  -- *   DOC FILE
//* --   CURRENT EMAIL ADDRESS, AS WELL AS THEIR TELEPHONE       -- *   DOC FILE
//* --   NUMBER FOR VOICE COMMUNICATION.  I AM HOPING THAT       -- *   DOC FILE
//* --   THIS MATERIAL WILL BECOME MORE USEFUL, IF PARTICIPANTS  -- *   DOC FILE
//* --   WILL BE ABLE TO TALK TO EACH OTHER.                     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   CONTRIBUTIONS TO THIS TAPE SHOULD NOW BE MADE           -- *   DOC FILE
//* --   ELECTRONICALLY.  PLEASE SEE THE CONTRIBUTOR INFORMATION -- *   DOC FILE
//* --   BELOW, OR COMMUNICATE WITH ME BY EMAIL FOR FURTHER      -- *   DOC FILE
//* --   INFORMATION.   (SG 10/97)                               -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   If you want to contribute material to this tape, you    -- *   DOC FILE
//* --   can also find Contributor Information at                -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --     http://www.cbttape.org                                -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- ANNOUNCEMENT - (FROM SAM GOLOB)               (11/99)     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   The regular CBT Tape and the CBT Overflow Tapes have    -- *   DOC FILE
//* --   filled up (as uncompressed 3480 cartridges).  I have    -- *   DOC FILE
//* --   therefore decided to distribute the CBT Tape on IDRC    -- *   DOC FILE
//* --   compressed cartridges, which contain more data.  If     -- *   DOC FILE
//* --   you need 3480 uncompressed, please email me at:         -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --      sbgolob@attglobal.net  and/or  sbgolob@aol.com       -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- ANNOUNCEMENT - (FROM SAM GOLOB)               (05/96)     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   THIS TAPE HAS FILLED UP.  I HAVE NOW ESTABLISHED A NEW  -- *   DOC FILE
//* --   "CBT OVERFLOW TAPE" WHICH WILL BE DISTRIBUTED BY THE    -- *   DOC FILE
//* --   SOURCES THAT DISTRIBUTE THIS TAPE (SEE BELOW).  THE     -- *   DOC FILE
//* --   NEW TAPE CONTAINS MUCH MORE MATERIAL THAN WHAT WAS      -- *   DOC FILE
//* --   DELETED FROM THIS TAPE, AND IS VERY MUCH WORTH HAVING.  -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   NEW MATERIALS INCLUDED (BESIDES DELETED STUFF FROM      -- *   DOC FILE
//* --   THE CBT TAPE) INCLUDE:                                  -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --      U.K.   G.U.I.D.E. Tape                               -- *   DOC FILE
//* --      GERMAN G.U.I.D.E. Tape                               -- *   DOC FILE
//* --      SWISS  G.U.I.D.E. Tape                               -- *   DOC FILE
//* --      AUSSIE G.U.I.D.E. Tape                               -- *   DOC FILE
//* --      SHARE ISPF "Smoke and Mirrors" Tape                  -- *   DOC FILE
//* --      The Entire SHARE MVS Tape (SPLA Tape)                -- *   DOC FILE
//* --      The Entire SHARE PL/1 Tape               (new)       -- *   DOC FILE
//* --      SELECTED FILES THAT WERE DELETED FROM THE CBT TAPE   -- *   DOC FILE
//* --        A LONG TIME AGO.                                   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   THE OVERFLOW TAPE WILL INCLUDE OTHER OLD CODE THAT      -- *   DOC FILE
//* --   HAS PROVEN USEFUL IN THE PAST.  THIS WILL BE A WAY      -- *   DOC FILE
//* --   OF MAKING SUCH CODE AVAILABLE TO THE PUBLIC.            -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   PLEASE NOTE THAT THE OVERFLOW TAPE VERSION NUMBERS      -- *   DOC FILE
//* --   WILL FOLLOW CORRESPONDING REGULAR CBT TAPE NUMBERS,     -- *   DOC FILE
//* --   SUFFIXED BY A V.                                        -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   FOR EXAMPLE:  VERSION 413V OF THE OVERFLOW TAPE         -- *   DOC FILE
//* --                 CORRESPONDS TO VERSION 413 OF THE         -- *   DOC FILE
//* --                 REGULAR CBT TAPE.                         -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   I WILL GENERALLY PRODUCE MORE REGULAR CBT TAPES THAN    -- *   DOC FILE
//* --   OVERFLOW TAPES.  THEREFORE, SOME OVERFLOW TAPE VERSION  -- *   DOC FILE
//* --   NUMBERS MAY BE SKIPPED, IF THE OVERFLOW TAPE DOESN'T    -- *   DOC FILE
//* --   HAVE TO BE CHANGED WHEN THE REGULAR TAPE HAS TO BE      -- *   DOC FILE
//* --   CHANGED.  ( Download files from:  www.cbttape.org ).    -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   As of 03/99 it looks as if the CBT Overflow Tape too,   -- *   DOC FILE
//* --   is about to fill up.  I may have to distribute the      -- *   DOC FILE
//* --   Overflow Tape as 3480 IDRC cartridges as well as the    -- *   DOC FILE
//* --   regular CBT Tape.  If you need 3480 uncompressed,       -- *   DOC FILE
//* --   please email me at: sbgolob@attglobal.net               -- *   DOC FILE
//* --                and/or sbgolob@aol.com                     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//* --+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--- *   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- ANNOUNCEMENT -  (FROM SAM GOLOB)              (10/94)     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --             email:    sbgolob@aol.com       OR            -- *   DOC FILE
//* --                       sbgolob@attglobal.net               -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --              If you need my current address and           -- *   DOC FILE
//* --              contact phone numbers, an alternate          -- *   DOC FILE
//* --              place to find me is at NaSPA headquarters,   -- *   DOC FILE
//* --              where my address information is on file.     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --              It's also here on this tape too:             -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --     NaSPA address:     NASPA                              -- *   DOC FILE
//* --                        7040 S. 13TH STREET                -- *   DOC FILE
//* --                        OAK CREEK, WI 53154                -- *   DOC FILE
//* --                        414-768-8000                       -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --     THIS TAPE HAS NOTHING TO DO WITH NASPA, BUT I AM      -- *   DOC FILE
//* --     A MEMBER OF NASPA, AND MY NASCOM ID IS "GOLOSHMA".    -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- ANNOUNCEMENT -   WHEN FILES WERE UPDATED ON THIS TAPE.    -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --     See the new "FILE UPDATE SECTION" below, just above   -- *   DOC FILE
//* --     the "CHANGES SECTION", to learn how to tell which     -- *   DOC FILE
//* --     files have been updated on this tape since the last   -- *   DOC FILE
//* --     time you ordered this tape.                           -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- ANNOUNCEMENT -                                            -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --     I have made a 'serious' effort to correct spelling    -- *   DOC FILE
//* --     and grammar errors in this file.  (From now on, you   -- *   DOC FILE
//* --     can call me "Teach".)  Anyway, this is just to say,   -- *   DOC FILE
//* --     that regarding any contribution from an "English"     -- *   DOC FILE
//* --     speaking country (i.e. England or Australia, as       -- *   DOC FILE
//* --     opposed to the U.S.), the national spelling customs   -- *   DOC FILE
//* --     from that country will be adhered to.  For example,   -- *   DOC FILE
//* --     colour, authorisation, and so forth.  From Dave       -- *   DOC FILE
//* --     Cartwright or Greg Price, these will be tolerated,    -- *   DOC FILE
//* --     and even encouraged.  (My, am I a generous            -- *   DOC FILE
//* --     sort....)  but from others, these spellings are a     -- *   DOC FILE
//* --     no-no.  I'll send the cookie monster after you.       -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --     All contributors, please don't worry.  Just send      -- *   DOC FILE
//* --     your stuff in as it is.  Who cares.  I'll just        -- *   DOC FILE
//* --     hack it all up as I see fit.  Any complaints?         -- *   DOC FILE
//* --     Please let me know loudly and clearly (and            -- *   DOC FILE
//* --     politely).                                            -- *   DOC FILE
//* --                             ---  THE EDITOR               -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- ANNOUNCEMENT - ANNOUNCEMENT - ANNOUNCEMENT - ANNOUNCEMENT -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   ******   - - - - - - - - - - - - - - - - - -   ******   -- *   DOC FILE
//* --   ******   ( 3 6 0 0  FOOT   R E E L S  ONLY )   ******   -- *   DOC FILE
//* --   ******   ( 3 4 8 0  IDRC   C A R T S  ONLY )   ******   -- *   DOC FILE
//* --   ******   - - - - - - - - - - - - - - - - - -   ******   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   ***   VERSION 342 IS LONGER THAN 2400 FEET LONG   ***   -- *   DOC FILE
//* --   ***   VERSION 404  TOOK   UP  3158.3  FEET  ...   ***   -- *   DOC FILE
//* --   ***   VERSION 422 DEFINITELY NEEDS IDRC ONLY ..   ***   -- *   DOC FILE
//* --                     AND TOOK UP 3241.2 FEET.              -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   ***    With IDRC Tapes, we can now greatly  ...   ***   -- *   DOC FILE
//* --   ***   exceed 3000 feet in length on a tape. ...   ***   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*   -- *   DOC FILE
//* --   ******                                         ******   -- *   DOC FILE
//* --   ******  3 4 8 0 IDRC CARTS ARE BEING USED NOW  ******   -- *   DOC FILE
//* --   ******  3 4 8 0 IDRC CARTS ARE BEING USED NOW  ******   -- *   DOC FILE
//* --   ******                                         ******   -- *   DOC FILE
//* --   *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- ANNOUNCEMENT - ANNOUNCEMENT - ANNOUNCEMENT - ANNOUNCEMENT -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --      I don't have to go to a second Overflow tape,        -- *   DOC FILE
//* --      because I am only distributing 3480 IDRC carts       -- *   DOC FILE
//* --      from now on.  If you need a special order of         -- *   DOC FILE
//* --      two tapes, please contact Sam Knutson at             -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --               dragon@his.com                              -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  >>>>>>                                           <<<<<<  -- *   DOC FILE
//* --  >>>>>>      I HAVE NOW ESTABLISHED A NEW "CBT    <<<<<<  -- *   DOC FILE
//* --  >>>>>>   OVERFLOW TAPE", WHICH CONTAINS MATERIAL <<<<<<  -- *   DOC FILE
//* --  >>>>>>   DELETED FROM THIS TAPE, AND MUCH MORE.  <<<<<<  -- *   DOC FILE
//* --  >>>>>>                                           <<<<<<  -- *   DOC FILE
//* --  >>>>>>     SEE FILE 071 FOR CONTENTS OF THE      <<<<<<  -- *   DOC FILE
//* --  >>>>>>         CBT    OVERFLOW    TAPE.          <<<<<<  -- *   DOC FILE
//* --  >>>>>>                                           <<<<<<  -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- ANNOUNCEMENT:  I am only distributing this tape now       -- *   DOC FILE
//* --        on 3480 IDRC cartridges.  If you need distribution -- *   DOC FILE
//* --        on uncompressed 3480's or 6250 bpi reels, please   -- *   DOC FILE
//* --        contact Sam Knutson at   dragon@his.com            -- *   DOC FILE
//* --        to arrange a special shipment of two tapes.        -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --     These materials are now available for download        -- *   DOC FILE
//* --        from the worldwide web at:                         -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --             http://www.cbttape.org                        -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    MY BEST CONTACT INFORMATION, AS OF THIS WRITING, IS    -- *   DOC FILE
//* --     THROUGH MY EMAIL ADDRESSES:                           -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --        sbgolob@attglobal.net OR sbgolob@aol.com           -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    MY EMAIL ADDRESS IS ALSO POSTED AT www.cbttape.org     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- ANNOUNCEMENT:  In order to help you see if what you need  -- *   DOC FILE
//* --        is on some other tape, I am establishing File 071  -- *   DOC FILE
//* --        as a doc file which contains actual documentation  -- *   DOC FILE
//* --        from other public tapes.  Until now, we had some   -- *   DOC FILE
//* --        of this documentation scattered in various files   -- *   DOC FILE
//* --        on this tape.  But now they are being gathered     -- *   DOC FILE
//* --        in one file for your convenience.  If you are      -- *   DOC FILE
//* --        thinking of ordering some other tape, check in     -- *   DOC FILE
//* --        File 071 first.                                    -- *   DOC FILE
//* --                                   SG - 03/30/92           -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- ANNOUNCEMENT:  WE HAVE A *FIRST* FOR THIS TAPE.           -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    CARMINE CANNATELLO, AUTHOR OF AN EXTREMELY RELEVANT    -- *   DOC FILE
//* --    BOOK CALLED "ADVANCED ASSEMBLER LANGUAGE AND MVS       -- *   DOC FILE
//* --    INTERFACES", PUBLISHED BY JOHN WILEY, HAS DONATED      -- *   DOC FILE
//* --    HIS MACHINE-READABLE CODING EXAMPLES TO THIS TAPE.     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    John Wiley, the publisher, has just announced that     -- *   DOC FILE
//* --    a second edition of Carmine's book is now being        -- *   DOC FILE
//* --    published.  Its ISBN number is:  0471-361-763 .        -- *   DOC FILE
//* --    See below, for the publisher's phone number, and       -- *   DOC FILE
//* --    how to order a copy.                                   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    ANYONE WHO HAS THE BOOK, AND I STRONGLY RECOMMEND      -- *   DOC FILE
//* --    THAT YOU GET HOLD OF ONE, CAN NOW HAVE THE MATERIALS   -- *   DOC FILE
//* --    ON THE OPTIONAL DISKETTE FOR FREE, INSTEAD OF HAVING   -- *   DOC FILE
//* --    TO PAY FOR THEM.  THESE MATERIALS ARE NOW ON FILE 069  -- *   DOC FILE
//* --    OF THIS TAPE.  (File 069 has the 1st Edition code.)    -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    THIS BOOK EXPLAINS ASSEMBLER LANGUAGE CODING           -- *   DOC FILE
//* --    TECHNIQUES SO CLEARLY, THAT YOU CAN LEARN THEM         -- *   DOC FILE
//* --    POSSIBLY EVEN FROM ONE READING.  IF YOU HAVE ANY       -- *   DOC FILE
//* --    PROBLEM UNDERSTANDING ANY OF THE SOURCE CODE ON THIS   -- *   DOC FILE
//* --    TAPE, IT'S A GOOD BET THAT CARMINE EXPLAINS THE        -- *   DOC FILE
//* --    RELEVANT PRINCIPLES SOMEWHERE IN HIS BOOK.             -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    AGAIN, SEE FILE 069 ON THIS TAPE.                      -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    THE ADDRESS OF THE PUBLISHER IS:                       -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --           John Wiley & Sons Inc.                          -- *   DOC FILE
//* --           Professional, Reference and Trade Group         -- *   DOC FILE
//* --           605 Third Avenue                                -- *   DOC FILE
//* --           New York, NY 10158-0012                         -- *   DOC FILE
//* --           (212) 850-6000   MAIN NUMBER                    -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --      web site:  http://www.wiley.com/compbooks            -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    To order a copy of the second edition of this book,    -- *   DOC FILE
//* --    please call:   1-800-225-5945  extension 2497          -- *   DOC FILE
//* --        ISBN number:   0471-361-763                        -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//*******************************************************************   DOC FILE
//***SECTION DISCLAIMER SECTION                                     *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*            D I S C L A I M E R    S E C T I O N                 *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*   The tapes commonly referred to as "The CBT MVS Utilities      *   DOC FILE
//*   Tape", and "The CBT Overflow Tape", as well as "The CBT       *   DOC FILE
//*   Overflow Tape Two" are hereinafter referred to as "this       *   DOC FILE
//*   tape".  The materials on these "tapes", even if they are      *   DOC FILE
//*   not physically on a tape, but they exist on a cd-rom disk,    *   DOC FILE
//*   or on any other machine-readable medium, or printed, or       *   DOC FILE
//*   written, or in analog or digital form, or in any data         *   DOC FILE
//*   representation format, such as EBCDIC or ASCII or any other   *   DOC FILE
//*   data representation scheme, or they are in any compressed     *   DOC FILE
//*   or encrypted format, shall fully be included in all           *   DOC FILE
//*   disclaimers of responsibility, as though these materials      *   DOC FILE
//*   were actually physically on tape.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*  THIS TAPE CONTAINS FREE SOFTWARE, NOT TO BE CHARGED FOR,       *   DOC FILE
//*  EXCEPT FOR HANDLING COSTS.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*  THIS TAPE MAY BE FREELY DUPLICATED.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*  NOTICE.  There are certain copyrighted sections on this tape   *   DOC FILE
//*   which contain reservations of rights.  Owners of these        *   DOC FILE
//*   sections have given permission for the use of their           *   DOC FILE
//*   materials subject to the conditions stated in each case.      *   DOC FILE
//*                                                                 *   DOC FILE
//*   THESE RESERVATIONS DO NOT APPLY TO THE ENTIRE TAPE ... !!!.   *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*  DISCLAIMER REGARDING "NON-FREE" MATERIALS.                     *   DOC FILE
//*   The editor and/or any other persons or institutions,          *   DOC FILE
//*   corporations, or any other entity handling this tape,         *   DOC FILE
//*   do not assume responsibility for the inadvertent inclusion    *   DOC FILE
//*   of non-"free" materials.  If any such materials are found     *   DOC FILE
//*   to have been accidentally included on this tape, please       *   DOC FILE
//*   inform the editor immediately, and such materials will be     *   DOC FILE
//*   promptly removed.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*   ALL DISCLAIMERS OF RESPONSIBILITY, ABOVE AND BELOW, APPLY     *   DOC FILE
//*   TO ALL PERSONS AND/OR INSTALLATIONS OR ANY OTHER ENTITY       *   DOC FILE
//*   EDITING, DUPLICATING, PROCESSING, OR OTHERWISE HANDLING       *   DOC FILE
//*   THIS TAPE.  NO RESPONSIBILITIES ARE ASSUMED BY ANY OF         *   DOC FILE
//*   THESE PERSONS, INSTALLATIONS, CORPORATIONS, ENTITIES,         *   DOC FILE
//*   INSTITUTIONS, OR ORGANIZATIONS.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*   No warranty, expressed or implied, is provided by any or all  *   DOC FILE
//*   of the persons and/or installations editing, duplicating, or  *   DOC FILE
//*   otherwise handling this tape.  Persons and/or installations   *   DOC FILE
//*   using any of the programs or materials on this tape, do so    *   DOC FILE
//*   entirely at their own risk.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*   NO WARRANTY IS MADE TO THE ACCURACY OF THE PROGRAMS OR        *   DOC FILE
//*   RELATED MATERIAL AND NO RESPONSIBILITY IS ASSUMED FOR ANY     *   DOC FILE
//*   MODIFICATION DIRECTLY OR INDIRECTLY CAUSED BY THE USE OF      *   DOC FILE
//*   THIS SOFTWARE.  IT IS THE USER'S RESPONSIBILITY TO EVALUATE   *   DOC FILE
//*   THE USEFULNESS OF THE MATERIAL SUPPLIED.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*   We do not guarantee to keep any material provided up to       *   DOC FILE
//*   date, nor do we guarantee to provide any corrections or       *   DOC FILE
//*   extensions described by anyone, or corrections or             *   DOC FILE
//*   extensions made in the future.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*   NO WARRANTY, EXPRESSED OR IMPLIED, IS PROVIDED BY ANY OR ALL  *   DOC FILE
//*   OF THE PERSONS AND/OR INSTALLATIONS EDITING, DUPLICATING, OR  *   DOC FILE
//*   OTHERWISE HANDLING THIS TAPE.  PERSONS AND/OR INSTALLATIONS   *   DOC FILE
//*   USING ANY OF THE PROGRAMS OR MATERIALS ON THIS TAPE, DO SO    *   DOC FILE
//*   ENTIRELY AT THEIR OWN RISK.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*   THE EDITOR AND/OR ANY OTHER PERSONS, INSTITUTIONS,            *   DOC FILE
//*   CORPORATIONS, OR ANY OTHER ENTITY HANDLING THIS TAPE, DO NOT  *   DOC FILE
//*   ASSUME ANY RESPONSIBILITY, EXPRESS, IMPLIED, OR TO BE         *   DOC FILE
//*   CONSTRUED IN ANY WAY, TO UPDATE THIS TAPE AT ALL.             *   DOC FILE
//*                                                                 *   DOC FILE
//*   Specifically, but not limited thereto, no responsibility is   *   DOC FILE
//*   assumed, in any way, by anyone handling this tape, to ensure  *   DOC FILE
//*   YEAR 2000 compliance of any materials on this tape, at all.   *   DOC FILE
//*                                                                 *   DOC FILE
//*   THESE STATEMENTS APPLY TO ALL MATERIALS CONTAINED ON THIS     *   DOC FILE
//*   TAPE, WITHOUT EXCEPTION.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*   These statements OVERRIDE ANY STATEMENT OF DOCUMENTATION,     *   DOC FILE
//*   anywhere else on this tape, that any software or materials    *   DOC FILE
//*   contained on this tape are YEAR 2000 compliant or functional. *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//***TAPE DUPLICATION SECTION                                       *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*      T A P E    D U P L I C A T I O N    S E C T I O N          *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*  THIS 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
//*  DUPLICATION ADVICE.  (USE THIS ON YOUR OWN RESPONSIBILITY)     *   DOC FILE
//*                                                                 *   DOC FILE
//*   The tape copying program called "COPYMODS" on File 229        *   DOC FILE
//*   of this tape, is useful for making byte-for-byte copies       *   DOC FILE
//*   of this, and other tapes.  Up to 16 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.  COPYMODS can now copy   *   DOC FILE
//*   tapes with files of up to 64K block size.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*   THE EDITOR HAS ACCESS TO 3480, 3480 IDRC, AND 3490E           *   DOC FILE
//*   CARTRIDGE FORMATS AT THIS TIME.  (MAGSTAR FORMATS ARE         *   DOC FILE
//*   NOT READABLE AT THE EDITOR'S SITE AT THIS TIME.)              *   DOC FILE
//*                                                                 *   DOC FILE
//*   Note:    SL TAPES ARE COPIED BY THE "COPYMODS" PROGRAM,       *   DOC FILE
//*            LABELS AND ALL.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*   THE "TAPEMAP" PROGRAM ON FILE 299, OR THE "TAPESCAN"          *   DOC FILE
//*   PROGRAM ON FILE 102, MAY BE OF FURTHER USE IN THIS AND        *   DOC FILE
//*   RELATED ENDEAVORS.  ALSO SEE "TAPECOPY" ON FILE 174.          *   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 if your data has undergone ASCII <--> EBCDIC          *   DOC FILE
//*   conversion.....    and since ....                             *   DOC FILE
//*   we have fully entered the era of PC's, 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         *   DOC FILE
//*   errors on any file in this tape.  Please inform me about      *   DOC FILE
//*   them so they can be corrected.                                *   DOC FILE
//*                                  New Phone:  845-362-1996       *   DOC FILE
//*                                                                 *   DOC FILE
//* --             email:    sbgolob@aol.com       OR            -- *   DOC FILE
//* --                       sbgolob@attglobal.net               -- *   DOC FILE
//*                                                                 *   DOC FILE
//*   ERRORS WE KNOW ABOUT ARE -                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*      HEX 53    SHOULD BE CHANGED TO    HEX 5F       USUALLY.    *   DOC FILE
//*      HEX 6A    SHOULD BE CHANGED TO    HEX 4F   OR VICE-VERSA.  *   DOC FILE
//*                                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*   PLEASE CALL THESE OR ANY OTHER ERRORS IN TO ME. THANKS AGAIN. *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//***NEWS BULLETIN SECTION                                          *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*      N E W S     B U L L E T I N     S E C T I O N              *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*******************************************************************   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//* -- THERE IS A LOT OF NEW NEWS AT THE BEGINNING OF THIS FILE. -- *   DOC FILE
//* -- PLEASE RE-READ THIS STUFF, BECAUSE IT CHANGED WITH THE    -- *   DOC FILE
//* -- CHANGE OF EDITORS OF THIS TAPE.  I HOPE TO USE THIS PART  -- *   DOC FILE
//* -- OF FILE 001 FOR PROVIDING NEWS BRIEFS.                    -- *   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//*******************************************************************   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*  I WILL TRY (WITHOUT PROMISING) TO PRODUCE UPDATES TO THIS      *   DOC FILE
//*  TAPE AS OFTEN AS I CAN.  ONE OF THE NICE THINGS THAT ARNIE     *   DOC FILE
//*  HAS ALWAYS DONE, WAS TO KEEP THIS TAPE CURRENT.     SBG 9/90.  *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*  ANNOUNCEMENT ------*-*-*-*-*------ DOC FOR OTHER TAPES.        *   DOC FILE
//*                                                                 *   DOC FILE
//*  There is now documentation for the contents of other public    *   DOC FILE
//*  tapes on this tape.  See File 071.  Some of these materials    *   DOC FILE
//*  had been scattered in various files on this tape, and were     *   DOC FILE
//*  probably hard to find.  We are now making it easier to find    *   DOC FILE
//*  this material, so if you want to order some other tape, you    *   DOC FILE
//*  can get some idea of what it has on it.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*  We can't guarantee that whenever somebody else makes an        *   DOC FILE
//*  update, we can keep up.  We'll do the best we can without      *   DOC FILE
//*  making promises.  We will try to make File 071 reflect the     *   DOC FILE
//*  latest tapes that we have obtained ourselves.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*  A lot of the other tapes have now been incorporated into the   *   DOC FILE
//*  CBT Overflow Tape, such as the SPLA MVS Tape, the SHARE PL/1   *   DOC FILE
//*  Tape, the L.A. MVS Users Group Tape, and the European GUIDE    *   DOC FILE
//*  Tapes.  SG 5/00.                                               *   DOC FILE
//*                                                                 *   DOC FILE
//*  We hope this service will be of help to everyone.  SG 3/92.    *   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                NEW ADDRESS                 *   DOC FILE
//*            P.O. BOX 906                                         *   DOC FILE
//*            TALLMAN, NY  10982-0906                              *   DOC FILE
//*                                                                 *   DOC FILE
//*                                  NEW PHONE:  845-362-1996       *   DOC FILE
//*                                                                 *   DOC FILE
//* --             email:    sbgolob@aol.com       OR            -- *   DOC FILE
//* --                       sbgolob@attglobal.net               -- *   DOC FILE
//*                                                                 *   DOC FILE
//*      THESE OLD TAPES MAY BE VERY IMPORTANT IN THE FUTURE,       *   DOC FILE
//*      FOR ALL KINDS OF PURPOSES.  WE ARE LOOKING INTO WAYS       *   DOC FILE
//*      OF MAKING THE INFORMATION "VERY COMPACTLY" AVAILABLE       *   DOC FILE
//*      TO ALL.  (POSSIBLY 20 OR 30 VOLUMES WORTH OF INFO ON       *   DOC FILE
//*      ONE REEL.)  NO PROMISES YET, BUT PLEASE HELP !!!!          *   DOC FILE
//*                                                                 *   DOC FILE
//*      I'D PREFER IF YOU MAKE THE COPIES USING THE "COPYMODS"     *   DOC FILE
//*      PROGRAM FROM FILE 229 OF THIS TAPE.  I KNOW THAT PROGRAM   *   DOC FILE
//*      WORKS, AND WILL GRAB ALL THE FILES.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*      THANKS IN ADVANCE. (I'LL TRY AND RETURN A NEW CBT TAPE.)   *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*  A THANK YOU:                                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*  Thanks to Glen Herrmannsfeldt of the University of Washington  *   DOC FILE
//*  who sent me an OS/360 source tape.  This tape contains, among  *   DOC FILE
//*  other things, source code for the free IBM compilers.  How     *   DOC FILE
//*  complete the source code is, I'm not sure.  I've included      *   DOC FILE
//*  source for the OS/360 ALGOL compiler and library on Files      *   DOC FILE
//*  309 and 310 of this tape.  Executable code is on File 176.     *   DOC FILE
//*  You can judge for yourselves.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*  Rick Fochtman has now made a cd-rom of the OS/360 source code. *   DOC FILE
//*  If you want a copy of this cd-rom, please feel free to email   *   DOC FILE
//*  me at sbgolob@aol.com OR sbgolob@attglobal.net, and inquire.   *   DOC FILE
//*                                                 (S.GOLOB 05/00) *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*  STILL ANOTHER REQUEST:                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*  If anyone has a copy of a free software tape for MVS from any  *   DOC FILE
//*  country (such as the UK GUIDE tape, etc.), I would appreciate  *   DOC FILE
//*  for you to send me a copy of it, and I will try and recipro-   *   DOC FILE
//*  cate by sending a CBT Tape to you.  Thank you very much (it's  *   DOC FILE
//*  hard to get that stuff over here.)  Also, language isn't too   *   DOC FILE
//*  much of a barrier.  I can manage several languages well        *   DOC FILE
//*  enough, and MVS is universal.  If I adapt any of that stuff    *   DOC FILE
//*  to this tape later, I'll try and make sure it's translated     *   DOC FILE
//*  into English first, but I can't make a firm promise on that.   *   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 MVS Utilities 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 Utilities 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:  Put ./ ADD cards into this file to make a PDS        *   DOC FILE
//*+File 005:  VMREXX exec to load this tape on to a VM system      *   DOC FILE
//*+File 006:  Collection of Utilities to manipulate File 001 doc   *   DOC FILE
//*+File 007:  SHARE RACF mods tape                                 *   DOC FILE
//*+File 008:  File containing stats for old CBT Tape versions      *   DOC FILE
//*+File 009:  RACF Exits to Implement tape DS protection. RACF 1.7 *   DOC FILE
//*+File 010:  TSO command called ISPFPRIM to invoke ISPF from TSO  *   DOC FILE
//*+File 011:  MVS DEBE, MSG2USER, System Info into CLIST variables *   DOC FILE
//*+File 012:  John Hancock Mutual ISPF Background Jobs driver      *   DOC FILE
//*+File 013:  Program to Compress File 001                         *   DOC FILE
//*+File 014:  Sam Golob's old articles in "Technical Support" mag  *   DOC FILE
//*+File 015:  Warner Brothers collection of Utilities and Exits    *   DOC FILE
//*+File 016:  Scott & White Hospital User Exits                    *   DOC FILE
//*+File 017:  LISTDD program from Firemen's Fund                   *   DOC FILE
//*+File 018:  TSUPDATE program from Conrail                        *   DOC FILE
//*+File 019:  FOOD LION Utilities - from John Hooper               *   DOC FILE
//*+File 020:  A collection of System REXX execs                    *   DOC FILE
//*+File 021:  BELL & HOWELL operator communication utilities       *   DOC FILE
//*+File 022:  A collection of utilities from Mark Hedges           *   DOC FILE
//*+File 023:  Mods to LOGON to TSO under a secondary JES2          *   DOC FILE
//*+File 024:  XFERDUMP from MCI - originally from Howard Dean      *   DOC FILE
//*+File 025:  TSO Console Pgm and other pgms from TU Services      *   DOC FILE
//*+File 026:  Program to take a survey at TSO LOGOFF time          *   DOC FILE
//*+File 027:  Date Check utility from DAYCO Products               *   DOC FILE
//*+File 028:  CLISTs to generate JCL to backup a list of datasets  *   DOC FILE
//*+File 029:  Cook Book instructions to Enlarge the VTOC of a pack *   DOC FILE
//*+File 030:  Mods to change console pfkeys MVS370 thru XA 2.1.7   *   DOC FILE
//*+File 031:  IGGPRE00 exit with RACF interface                    *   DOC FILE
//*+File 032:  JCLSCAN, COPYPACK, DOWNDATE programs                 *   DOC FILE
//*+File 033:  PUTXREF - sort SMPPTFIN file by FMID - see File 118  *   DOC FILE
//*+File 034:  RACFUSER - program to print PASSWORD info by userid  *   DOC FILE
//*+File 035:  LOAD MODULE file - Quick install of useful programs  *   DOC FILE
//*+File 036:  FIXPDS. ISPF-based utility. Restore deleted members  *   DOC FILE
//*+File 037:  COPYCAT - pgm to copy and reorganize CVOLs           *   DOC FILE
//*+File 038:  KLINGON - TSO based reverse STAR TREK game           *   DOC FILE
//*+File 039:  CITIBANK - SMF 14-15 pgm, and IPOUPDTE modification  *   DOC FILE
//*+File 040:  Clean a PDS, string scan-repl, super file copy, etc  *   DOC FILE
//*+File 041:  JES2 Exits to drive XEROX printers                   *   DOC FILE
//*+File 042:  Load File 001 information to an INFO/MVS database    *   DOC FILE
//*+File 043:  Header information for File 042                      *   DOC FILE
//*+File 044:  ASMTOZAP - code your system zaps in assembler lang   *   DOC FILE
//*+File 045:  PDS Compare program adapted from Yale compare pgm    *   DOC FILE
//*+File 046:  PACKRAT program to scratch datasets from a pack      *   DOC FILE
//*+File 047:  NOCELL-LISTICAT etc. Jim Lane's large collection.    *   DOC FILE
//*+File 048:  LISTVOL, LISTSPC, LOCINDEX: doc and help for them    *   DOC FILE
//*+File 049:  EMPTY                                                *   DOC FILE
//*+File 050:  Internet URLs for Free Downloads                     *   DOC FILE
//*+File 051:  Internet URLs for some Relevant Vendor Sites         *   DOC FILE
//*+File 052:  EMPTY                                                *   DOC FILE
//*+File 053:  Deluxe Check Printers ISPF system - source code      *   DOC FILE
//*+File 054:  Deluxe Check Printers ISPF system - ISPF panels      *   DOC FILE
//*+File 055:  Deluxe Check Printers ISPF system - ISPF messages    *   DOC FILE
//*+File 056:  Deluxe Check Printers ISPF system - ISPF skeletons   *   DOC FILE
//*+File 057:  Deluxe Check Printers ISPF system - ISPF clists      *   DOC FILE
//*+File 058:  TSO command to display the LINKLIST                  *   DOC FILE
//*+File 059:  IPL DATE display under ISPF                          *   DOC FILE
//*+File 060:  Software Status Report ISPF. Source and ISPF panels  *   DOC FILE
//*+File 061:  Software Status Report ISPF. Load Modules            *   DOC FILE
//*+File 062:  Software Status Report ISPF. Indxtbl init record     *   DOC FILE
//*+File 063:  Software Status Report ISPF. Prodtbl init record     *   DOC FILE
//*+File 064:  Software Status Report ISPF. History init record     *   DOC FILE
//*+File 065:  Mod to put uncataloged dataset into LINKLIST - old   *   DOC FILE
//*+File 066:  Alan Field utility collection                        *   DOC FILE
//*+File 067:  IEFDB401 and IEFUJV exits from Coca Cola Corp.       *   DOC FILE
//*+File 068:  EMPTY                                                *   DOC FILE
//*+File 069:  Coding Examples from Carmine Cannatello's asm book   *   DOC FILE
//*+File 070:  Computer Sciences Corp - was Gen Dynamics Sysmods    *   DOC FILE
//*+File 071:  Documentation for the contents of other free tapes   *   DOC FILE
//*+File 072:  PANEXEC ISPF interface - ISPPLIB                     *   DOC FILE
//*+File 073:  PANEXEC ISPF interface - ISPLLIB                     *   DOC FILE
//*+File 074:  NASPA MACLIB - ISPF macros from NaSPA VIP Tape       *   DOC FILE
//*+File 075:  PANEXEC ISPF interface - ISPALIB                     *   DOC FILE
//*+File 076:  PANEXEC ISPF interface - PROCS                       *   DOC FILE
//*+File 077:  EMPTY                                                *   DOC FILE
//*+File 078:  ISPF EDIT macros from John Kalinich - SHARE cd-rom   *   DOC FILE
//*+File 079:  SCRIPT/VS DCF ISPF Interface                         *   DOC FILE
//*+File 080:  RACF Data Reformatter to allow postprocessing        *   DOC FILE
//*+File 081:  MVS DEBE                                             *   DOC FILE
//*+File 082:  Reference Manuals: IEHMAP, MAPLPA, PTXREF, SUPERZAP  *   DOC FILE
//*+File 083:  IEHMAP Source and Object, with Installation JCL      *   DOC FILE
//*+File 084:  MAPLPA Object                                        *   DOC FILE
//*+File 085:  PTXREF Object                                        *   DOC FILE
//*+File 086:  SUPERZAP Object                                      *   DOC FILE
//*+File 087:  ISPF SYSLOG Archival Utility from Mark Diehl         *   DOC FILE
//*+File 088:  Brian Westerman Utilities                            *   DOC FILE
//*+File 089:  University of Manitoba DYNALLOC Interface            *   DOC FILE
//*+File 090:  DELINKI - in PL/I and assembler - delink load mods   *   DOC FILE
//*+File 091:  PROCs for PL1/F, FORTRAN G & H, RPG/F and ALGOL      *   DOC FILE
//*+File 092:  PL1/F Compiler and Library                           *   DOC FILE
//*+File 093:  PDSLOAD, OFFLOAD, UPDTE, UNUPDTE: Sequentialize PDS  *   DOC FILE
//*+File 094:  DAF from Mike Cleary - Dataset Audit Facility        *   DOC FILE
//*+File 095:  ISPF EDIT MACRO collection from Paul Davis - 1       *   DOC FILE
//*+File 096:  University of Missouri Hospital Utilities & Exits    *   DOC FILE
//*+File 097:  Disk Management System from Peoples National Bank    *   DOC FILE
//*+File 098:  ISPF interface for XMIT/RECEIVE - source             *   DOC FILE
//*+File 099:  ISPF interface for XMIT/RECEIVE - data file          *   DOC FILE
//*+File 100:  Deluxe Check Printers ISPF/PDF customizations        *   DOC FILE
//*+File 101:  Deluxe Check Printers ISPF Clists                    *   DOC FILE
//*+File 102:  TAPESCAN program - Now 64K capable                   *   DOC FILE
//*+File 103:  ISPF DIALOGS from Bill Horton of Tennessee Eastman   *   DOC FILE
//*+File 104:  JES2 Remote Printers (JRP package) - OS/390 level    *   DOC FILE
//*+File 105:  ISPF 3.8 OUTLIST replacement and enhancement         *   DOC FILE
//*+File 106:  Utility to list RACF access of Users to Entities     *   DOC FILE
//*+File 107:  Clemson University Structured Macro Library          *   DOC FILE
//*+File 108:  Clemson University Structured Macro SAMPLIB          *   DOC FILE
//*+File 109:  IEFACTRT exit code from First Chicago                *   DOC FILE
//*+File 110:  IEFACTRT sample output from File 109 code            *   DOC FILE
//*+File 111:  REVLON utility collection from Jim Purdy             *   DOC FILE
//*+File 112:  VTOC TSO command processor                           *   DOC FILE
//*+File 113:  SMPSCAN documentation                                *   DOC FILE
//*+File 114:  SMPSCAN jobstream samples                            *   DOC FILE
//*+File 115:  SMPSCAN source code                                  *   DOC FILE
//*+File 116:  Disk Seek Analysis program                           *   DOC FILE
//*+File 117:  WTO Exits from Jim Cook of Coca Cola                 *   DOC FILE
//*+File 118:  SMPPTFIN preprocessing - sort by FMIDs & their PTFs  *   DOC FILE
//*+File 119:  Howard Dean Utility collection - 1st File            *   DOC FILE
//*+File 120:  Sam Golob's "MVS Tools & Tricks" articles            *   DOC FILE
//*+File 121:  Wide illustrations from Sam Golob's articles         *   DOC FILE
//*+File 122:  RMSG Subsystem and JES2 exits from Allergan          *   DOC FILE
//*+File 123:  EMPTY                                                *   DOC FILE
//*+File 124:  State of Wisconsin ISPF/PDF applications             *   DOC FILE
//*+File 125:  State of Connecticut RMF analysis system - in SAS    *   DOC FILE
//*+File 126:  LL BEAN Password Modification - ESA                  *   DOC FILE
//*+File 127:  CHRYSLER utilities collection                        *   DOC FILE
//*+File 128:  LDS utilities - ISPF/VTAM cmds, CHIMP, SYSLOG scan   *   DOC FILE
//*+File 129:  Shared DASD Checkpoint mod - XA and OS/390           *   DOC FILE
//*+File 130:  Southwestern Public Service - Utilities colleciton   *   DOC FILE
//*+File 131:  SAR Security user exit - DMS/OS auto-restore exit    *   DOC FILE
//*+File 132:  First Nationwide Bank utilities - from George Ramas  *   DOC FILE
//*+File 133:  Alan Field Utility collection                        *   DOC FILE
//*+File 134:  Greg Price Utility collection - REVIEW, etc.         *   DOC FILE
//*+File 135:  Greg Price Load Module library                       *   DOC FILE
//*+File 136:  Howard Dean Utility collection - 2nd File            *   DOC FILE
//*+File 137:  Mod to list VSAM files in ISPF 3.4 dataset list      *   DOC FILE
//*+File 138:  Program called SYSTEM to report system info          *   DOC FILE
//*+File 139:  Dennis Longnecker Utilities                          *   DOC FILE
//*+File 140:  Data Archival/Recovery System (DARS) DASD Managemnt  *   DOC FILE
//*+File 141:  SYS1.BRODCAST package from Tim Vanderwall            *   DOC FILE
//*+File 142:  Invoke other VTAM applications from within TSO       *   DOC FILE
//*+File 143:  Online IDCAMS application, CLISTs etc.               *   DOC FILE
//*+File 144:  VPS User Exit 14                                     *   DOC FILE
//*+File 145:  KERMIT for TSO - source                              *   DOC FILE
//*+File 146:  KERMIT for TSO - load library                        *   DOC FILE
//*+File 147:  ARCHIVER  All your non-VSAM datasets to 1 VSAM file  *   DOC FILE
//*+File 148:  Panvalet ISPF interface                              *   DOC FILE
//*+File 149:  UCLA utilities collection                            *   DOC FILE
//*+File 150:  ISPF Interactive Data Transmission Facility (XMIT)   *   DOC FILE
//*+File 151:  Load LISTCAT info into INFO/MVS database             *   DOC FILE
//*+File 152:  Harold Zbiegien Utilities - PSF emphasis, & others   *   DOC FILE
//*+File 153:  Harold Zbiegien - 3800 Character set samples         *   DOC FILE
//*+File 154:  Program to show SMP ELEMENTS from APPLY/ACCEPT run   *   DOC FILE
//*+File 155:  Dave North's REXX execs - go VB-255 to FB-80 etc.    *   DOC FILE
//*+File 156:  IEBASAP - source code                                *   DOC FILE
//*+File 157:  IEBASAP - sample reports                             *   DOC FILE
//*+File 158:  ISPF & REXX                                          *   DOC FILE
//*+File 159:  UCBFIND                                              *   DOC FILE
//*+File 160:  TSO CPS                                              *   DOC FILE
//*+File 161:  Jim Marshall - ISPF interfaces to utilities          *   DOC FILE
//*+File 162:  XREFASM                                              *   DOC FILE
//*+File 163:  DUDA UTILITIES                                       *   DOC FILE
//*+File 164:  RESCUE SYSTEM                                        *   DOC FILE
//*+File 165:  RACF 1.7 SYSTEM                                      *   DOC FILE
//*+File 166:  Vinh Vu Utilities collection                         *   DOC FILE
//*+File 167:  CATELLUS UTIL                                        *   DOC FILE
//*+File 168:  Bill Godfrey Utilities collection                    *   DOC FILE
//*+File 169:  Kevin Williams Utilities collection                  *   DOC FILE
//*+File 170:  DUMPCSA program from Frank O'Quinn                   *   DOC FILE
//*+File 171:  DITTO, TAPEMAP, SMFUTIL, TPX, FX, SUTL (no BLP req)  *   DOC FILE
//*+File 172:  David Cartwright's collection of Utilities           *   DOC FILE
//*+File 173:  Ted Bestani's collection - SMPETOOL etc etc          *   DOC FILE
//*+File 174:  TAPECOPY program from Aron Eisenpress                *   DOC FILE
//*+File 175:  PHILIPS Utilities from Clark Morris                  *   DOC FILE
//*+File 176:  ALGOL Compiler and Library                           *   DOC FILE
//*+File 177:  Add OPCODES to the assembler as MACROS               *   DOC FILE
//*+File 178:  An IPCS interface for IDMS                           *   DOC FILE
//*+File 179:  Leonard Woren's MACLIB                               *   DOC FILE
//*+File 180:  Leonard Woren's TSO Commands                         *   DOC FILE
//*+File 181:  Leonard Woren's MVS Programs                         *   DOC FILE
//*+File 182:  PDS Command Package - Version 8.5                    *   DOC FILE
//*+File 183:  Gilbert Saint-flour's collection - SHOWMVS etc etc   *   DOC FILE
//*+File 184:  Tom Bryant's way of setting up IPCS                  *   DOC FILE
//*+File 185:  IKJTABLS Source Code - sample expanded auth tables   *   DOC FILE
//*+File 186:  IKJTABLS Load Module - sample expanded auth tables   *   DOC FILE
//*+File 187:  CLIST Conversion Program:  FB-80 <---> VB-255        *   DOC FILE
//*+File 188:  IBM Source Tapes - a system to keep track of them    *   DOC FILE
//*+File 189:  IBM Source Tapes - sample report output - File 188   *   DOC FILE
//*+File 190:  VSMDUMP from Bob Styma - who used parts of CSA       *   DOC FILE
//*+File 191:  Started Task accnting information system, Walt Sapp  *   DOC FILE
//*+File 192:  Generalized Recovery Routine, ESTAEX, FRR, ARR etc.  *   DOC FILE
//*+File 193:  TCOPY - tape copying program                         *   DOC FILE
//*+File 194:  CUT-PASTE edit macros from Jim Marshall              *   DOC FILE
//*+File 195:  Eli Duttman's "simple but useful" CLISTs             *   DOC FILE
//*+File 196:  JES2 Exit Loader - an older and more imperfect one   *   DOC FILE
//*+File 197:  IMS 3.1 Mods from Rockwell - large collection        *   DOC FILE
//*+File 198:  JES2 Exit Dynamic Reloader Command from Bob Break    *   DOC FILE
//*+File 199:  BLKSPTRK, CMDPGM TSO pgms from Dave Cole             *   DOC FILE
//*+File 200:  Collection of Utilities from TWA                     *   DOC FILE
//*+File 201:  IKJCT44B CLIST user exit to get system information   *   DOC FILE
//*+File 202:  Sample output from IEFU83 exit reporting I/O counts  *   DOC FILE
//*+File 203:  Produce STK Silo Eject cards from TMSGRW report      *   DOC FILE
//*+File 204:  MVS CROSS SYSTEM from Ken Tomiak & Joel Perlman      *   DOC FILE
//*+File 205:  MVS XSYS Doumentation in SCRIPT format               *   DOC FILE
//*+File 206:  DCOLLECT REXX execs from Linnea Nichols              *   DOC FILE
//*+File 207:  FSE a free version of old Full Screen Edit for TSO   *   DOC FILE
//*+File 208:  LSPC Command - Displays attributes of devices        *   DOC FILE
//*+File 209:  Hex Calculator written in REXX, by Art Tansky        *   DOC FILE
//*+File 210:  CICS Version of Cross System by Ken Tomiak           *   DOC FILE
//*+File 211:  CICS XSYS Documentation in SCRIPT format             *   DOC FILE
//*+File 212:  DB2 CROSS SYSTEM by Ken Tomiak                       *   DOC FILE
//*+File 213:  DB2 XSYS Documentation in SCRIPT format              *   DOC FILE
//*+File 214:  MVS Control Blocks formatted for COBOL 2             *   DOC FILE
//*+File 215:  Two CLISTs to help you use SMP/E better              *   DOC FILE
//*+File 216:  Date Conversion and Manipulation Routine             *   DOC FILE
//*+File 217:  Disassembler - From Load modules to ASM code         *   DOC FILE
//*+File 218:  MPL and ASM Monitor under RMFMON, from Jim Cook      *   DOC FILE
//*+File 219:  REXX execs from Tony Forte                           *   DOC FILE
//*+File 220:  EDP Auditor's Tool collection - from Lee Conyers     *   DOC FILE
//*+File 221:  EDP Auditor's REXX tools - from Lee Conyers          *   DOC FILE
//*+File 222:  EMPTY                                                *   DOC FILE
//*+File 223:  FREE Tape Management System - reports all mounts     *   DOC FILE
//*+File 224:  FREE Tape Management System - sample outputs         *   DOC FILE
//*+File 225:  OFFLOAD program - Dave Cole's original version       *   DOC FILE
//*+File 226:  COMPRSEQ - Dave Cole's compare program - orig vers   *   DOC FILE
//*+File 227:  TSO authorization code from CBT Company              *   DOC FILE
//*+File 228:  DFHSM Dataset Recovery - ISPF dialog                 *   DOC FILE
//*+File 229:  COPYMODS - Air Force Tape Copying Program - improved *   DOC FILE
//*+File 230:  ISPF facilities demo from SHARE 66 presentation      *   DOC FILE
//*+File 231:  Source code for ISPF demo from File 230              *   DOC FILE
//*+File 232:  Convert MVS IOGEN deck into approx HCPRIO for VM     *   DOC FILE
//*+File 233:  GBHABEND Program - produces any ABEND code (S or U)  *   DOC FILE
//*+File 234:  BCSCAN program to scan SYS1.BRODCAST (see File 247)  *   DOC FILE
//*+File 235:  LPA Loader program - MODREP                          *   DOC FILE
//*+File 236:  ZAP to shorten LISTC LEV( ) display                  *   DOC FILE
//*+File 237:  Load Library CSECT Cross Reference report program    *   DOC FILE
//*+File 238:  ISPF Interactive Disassembler - Load Modules         *   DOC FILE
//*+File 239:  ISPF Interactive Disassembler - ISPF Panels          *   DOC FILE
//*+File 240:  ISPF Interactive Disassembler - ISPF Messages        *   DOC FILE
//*+File 241:  ISPF Interactive Disassembler - JCL                  *   DOC FILE
//*+File 242:  ISPF Interactive Disassembler - Formatted CBLKS      *   DOC FILE
//*+File 243:  EMPTY                                                *   DOC FILE
//*+File 244:  UK GUIDE Tape Supplement - 1993A                     *   DOC FILE
//*+File 245:  UK GUIDE Tape - Norwich Union Insurance Supplement   *   DOC FILE
//*+File 246:  EMPTY                                                *   DOC FILE
//*+File 247:  Broadcast Manager Utilities to manage SYS1.BRODCAST  *   DOC FILE
//*+File 248:  Jim Boysen Utility collection                        *   DOC FILE
//*+File 249:  Collection of programs from Eileen Barkow            *   DOC FILE
//*+File 250:  DISPLAY GRS LONG RNAMES - Console Command            *   DOC FILE
//*+File 251:  ISPF EDIT MACRO collection from Paul Davis - 2       *   DOC FILE
//*+File 252:  JEFF KAPLAN Source Code                              *   DOC FILE
//*+File 253:  JEFF KAPLAN REXX execs                               *   DOC FILE
//*+File 254:  JEFF KAPLAN CNTL                                     *   DOC FILE
//*+File 255:  JEFF KAPLAN ISPPLIB                                  *   DOC FILE
//*+File 256:  JEFF KAPLAN ISPTLIB                                  *   DOC FILE
//*+File 257:  ZAPS to Linkage Editor to take BLKSIZE=32720         *   DOC FILE
//*+File 258:  WIN3270 - 3270 Device Tools - SAS/C source code      *   DOC FILE
//*+File 259:  WIN3270 - 3270 Device Tools - Load Modules           *   DOC FILE
//*+File 260:  Quick Disk Mapping program from Chuck Hoffman        *   DOC FILE
//*+File 261:  CMD1 subsystem for XA/ESA                            *   DOC FILE
//*+File 262:  PTFXREF Program                                      *   DOC FILE
//*+File 263:  MACROS from the UK G.U.I.D.E. Tape                   *   DOC FILE
//*+File 264:  LOOK program, DUDASD and JLOG from Guy Albertelli    *   DOC FILE
//*+File 265:  BF Goodrich LOGON exit                               *   DOC FILE
//*+File 266:  SS0104 TAPE MAP program - measures footages          *   DOC FILE
//*+File 267:  EMPTY                                                *   DOC FILE
//*+File 268:  REXX function package to access VSAM files           *   DOC FILE
//*+File 269:  PL/I source code for ADVENTURE game                  *   DOC FILE
//*+File 270:  Washington State Utility Collection                  *   DOC FILE
//*+File 271:  Dynamic Proclib modification from Amdahl             *   DOC FILE
//*+File 272:  Mod to put Variable info into VTAM Logo              *   DOC FILE
//*+File 273:  TSO LOGON to a secondary JES2                        *   DOC FILE
//*+File 274:  Dynamic Proclib modification for ESA Release 4       *   DOC FILE
//*+File 275:  Mark Hedges programs - APFLIST, PACKOFF, etc.        *   DOC FILE
//*+File 276:  REXX to calculate CHECKSUM in ZAP statements         *   DOC FILE
//*+File 277:  Program to substitute values in JCL                  *   DOC FILE
//*+File 278:  ISPF package to keep track of SLSS subscription      *   DOC FILE
//*+File 279:  Documentation for File 278                           *   DOC FILE
//*+File 280:  Waterloo Script Documentation                        *   DOC FILE
//*+File 281:  Waterloo Script Load Modules                         *   DOC FILE
//*+File 282:  Waterloo Script Macro Library                        *   DOC FILE
//*+File 283:  Waterloo Script Memo to Users                        *   DOC FILE
//*+File 284:  Waterloo Script Source Code                          *   DOC FILE
//*+File 285:  Waterloo Script Hyphenation File                     *   DOC FILE
//*+File 286:  Waterloo Script Object Modules                       *   DOC FILE
//*+File 287:  Waterloo Script TSO Prompter                         *   DOC FILE
//*+File 288:  TSO Command Processor to invoke Waterloo Script      *   DOC FILE
//*+File 289:  PTF XREF REPORTS                                     *   DOC FILE
//*+File 290:  GPSAM - General Purpose Access Method                *   DOC FILE
//*+File 291:  CPU Instruction Speed monitor                        *   DOC FILE
//*+File 292:  Utility to convert CBT Doc File to HTML              *   DOC FILE
//*+File 293:  EMPTY                                                *   DOC FILE
//*+File 294:  VSAM Analysis TSO command called VSAMANAL            *   DOC FILE
//*+File 295:  EMPTY                                                *   DOC FILE
//*+File 296:  TSO Utilities. Use with PDS85 package or standalone  *   DOC FILE
//*+File 297:  GRS ISPF Interface from Mike Cleary                  *   DOC FILE
//*+File 298:  GTE Panvalet-PDS member backup system                *   DOC FILE
//*+File 299:  TAPEMAP program - Reads tape files in many formats   *   DOC FILE
//*+File 300:  Jim Marshall's enormous collection of TSO programs   *   DOC FILE
//*+File 301:  A version of CDSCB which checks auth thru RACF       *   DOC FILE
//*+File 302:  Program from Mike Cleary to show LPA-LINKLIST info   *   DOC FILE
//*+File 303:  SIMTERM OS/390 from Alex Brodsky - VTAM pgms in TSO  *   DOC FILE
//*+File 304:  LSTVOL program source from Bruce Hogman              *   DOC FILE
//*+File 305:  LSTVOL assembly and linkedit printout                *   DOC FILE
//*+File 306:  The original version of TSSO from Bill Godfrey       *   DOC FILE
//*+File 307:  IEV90 program which invokes HLASM (ASMA90)           *   DOC FILE
//*+File 308:  Console display of system info from Alan Field       *   DOC FILE
//*+File 309:  ALGOL Compiler Source Code - a few modules incmplt   *   DOC FILE
//*+File 310:  ALGOL Library Source Code                            *   DOC FILE
//*+File 311:  Dave Alcock's large Utilities collection             *   DOC FILE
//*+File 312:  FTPBATCH, XMITIP - others from Lionel Dyck           *#  DOC FILE
//*+File 313:  Generalized MPF Exit - from Murray Nicholas          *   DOC FILE
//*+File 314:  Dave Lees Utilities                                  *   DOC FILE
//*+File 315:  VM REXXFORM - REXX exec reformatter                  *   DOC FILE
//*+File 316:  Jim Marshall's large collection of batch programs    *   DOC FILE
//*+File 317:  BOOKMANAGER management REXX exec from Tim Henness    *   DOC FILE
//*+File 318:  REXX exec to print from a tape in POFFLOAD Format    *   DOC FILE
//*+File 319:  SMF type 14 and 15 Report Program                    *   DOC FILE
//*+File 320:  DF/DSS Driver exits from John Sullivan               *   DOC FILE
//*+File 321:  COBOL Analyzer from Roland Schiradin & post prcessor *   DOC FILE
//*+File 322:  TSO SLEEP programs (like the VM ones)                *   DOC FILE
//*+File 323:  REXX Function Package from Gerard Nicol - SAMPLIB    *   DOC FILE
//*+File 324:  REXX Function Package from Gerard Nicol - Loadlib    *   DOC FILE
//*+File 325:  TSO Command Processor Programs from Wells Fargo      *   DOC FILE
//*+File 326:  Free FORTRAN G & H Compiler and Library              *   DOC FILE
//*+File 327:  Free RPG/F Compiler and Library                      *   DOC FILE
//*+File 328:  IGGPRE00, IGGPOST0 code from Aron Eisenpress         *   DOC FILE
//*+File 329:  Southern California Edison JES2 Exit 6               *   DOC FILE
//*+File 330:  ISPF interface for COBANAL program from File 321     *   DOC FILE
//*+File 331:  COBOL subrtnes to set an area in W-S to an address   *   DOC FILE
//*+File 332:  Automatic Job Scheduler in MVS JES2 environment      *   DOC FILE
//*+File 333:  MVS Version of GZIP Compression - Load Module        *   DOC FILE
//*+File 334:  MVS Version of GZIP Compression - SOURCE .H          *   DOC FILE
//*+File 335:  MVS Version of GZIP Compression - SOURCE .C          *   DOC FILE
//*+File 336:  Utilities collection from Rice University            *   DOC FILE
//*+File 337:  Search entire system for PDS member name-Atalay Gul  *   DOC FILE
//*+File 338:  P390 Utilities from Gilbert Saint-flour              *   DOC FILE
//*+File 339:  JES2 Exit 5 - commands to better control job status  *   DOC FILE
//*+File 340:  DCM - Report statistics from 7980-3 controllers      *   DOC FILE
//*+File 341:  Code to load PLPA programs into CSA-structrd macros  *   DOC FILE
//*+File 342:  ISPF interface to Model 204 database-John Kalinich   *   DOC FILE
//*+File 343:  A VTOCLIST program - Peter Havercan & John Kalinich  *   DOC FILE
//*+File 344:  REXX exec to SPFEDIT a list of extents on a VTOC     *   DOC FILE
//*+File 345:  Console cmds to display ENQ conflicts under GRS      *   DOC FILE
//*+File 346:  JES2 Exits from Bob Break at OS/390 JES2 2.5 level   *   DOC FILE
//*+File 347:  MODLIST program-list original COBOL compile options  *   DOC FILE
//*+File 348:  Programs to list a PDS directory in order            *   DOC FILE
//*+File 349:  REXX to update incore ISPF command table on the fly  *   DOC FILE
//*+File 350:  JES2 exits to convert JOB affnty JCL to WLM SCHENV=  *   DOC FILE
//*+File 351:  Programs to list the LE Level currently installed    *   DOC FILE
//*+File 352:  INTEL large collection of utilities                  *   DOC FILE
//*+File 353:  Collection of programs from Brian Cook - ETPS etc.   *   DOC FILE
//*+File 354:  Randy Hall's collection of utilities                 *   DOC FILE
//*+File 355:  KONCAT program from Kaiser Permanente                *   DOC FILE
//*+File 356:  NETSOL-VTAM multi-session mgr - updated for OS/390   *   DOC FILE
//*+File 357:  Programs from Carl Hafner - PDSGEN, PDSLIST, etc.    *   DOC FILE
//*+File 358:  SYSOUT storage package from Eric Bielefeld           *   DOC FILE
//*+File 359:  Utilities from Howard Dean and Bill Smith            *   DOC FILE
//*+File 360:  State of Wisconsin utilities from Jim Martin         *   DOC FILE
//*+File 361:  Frank Johnston Utilities - CXYPSCAN, ZZRELINK        *   DOC FILE
//*+File 362:  Frank Johnston Utilities - Load Library              *   DOC FILE
//*+File 363:  ISPF Name Change Exit                                *   DOC FILE
//*+File 364:  Control Card Subsystem - CCSS                        *   DOC FILE
//*+File 365:  System to send files error-free using TSO XMIT       *   DOC FILE
//*+File 366:  World Clock and PDSADD prgms from Marvin Shaw        *   DOC FILE
//*+File 367:  ASCB and TSO User REXX commands from John Kalinich   *   DOC FILE
//*+File 368:  Utility collection from James Williams               *   DOC FILE
//*+File 369:  Planning Research Corp collection of programs        *   DOC FILE
//*+File 370:  ZAPs-I/O counts in IEF285I msgs-see IEFU83,File 134  *   DOC FILE
//*+File 371:  Load Modules-programs on File 270-Washington State   *   DOC FILE
//*+File 372:  DYNALLOC Program from Ken MacKenzie                  *   DOC FILE
//*+File 373:  GTE TSO command - SAL - show dataset allocations     *   DOC FILE
//*+File 374:  SAS Programs to format IBM-produced SMF records      *   DOC FILE
//*+File 375:  SAS Programs to format Vendor SMF records            *   DOC FILE
//*+File 376:  ZDF Display Facility & utilities form David Marsden  *   DOC FILE
//*+File 377:  Exits and mods to run TCAS under SUB=MSTR: Ed Jaffe  *   DOC FILE
//*+File 378:  SORTTRAK to report on DFSORT SMF records: S.Kowalski *   DOC FILE
//*+File 379:  PROCLIB Cross Reference reports                      *   DOC FILE
//*+File 380:  EMPTY                                                *   DOC FILE
//*+File 381:  First Computer Services - programs and JES2 exits    *   DOC FILE
//*+File 382:  Paul Gillis utilities collection                     *   DOC FILE
//*+File 383:  INTEL CLISTS for Techinfo system on File 352         *   DOC FILE
//*+File 384:  Programs from Computer Data Systems                  *   DOC FILE
//*+File 385:  LPA Compare program from Jerry Lawson                *   DOC FILE
//*+File 386:  Salvador Carrasco EXECs and other programs           *   DOC FILE
//*+File 387:  EMPTY                                                *   DOC FILE
//*+File 388:  David Cole's Job Scheduler package                   *   DOC FILE
//*+File 389:  EMPTY                                                *   DOC FILE
//*+File 390:  QUEUE program for JES2 5.1, 5.2, and OS/390          *   DOC FILE
//*+File 391:  TRACE390 Instruction Trace Program from Robert Ngan  *   DOC FILE
//*+File 392:  QUEUE from Leonard Woren - JES2 4.2 and below        *   DOC FILE
//*+File 393:  RACFGRPS exec from Robert Lamerand                   *   DOC FILE
//*+File 394:  KSDSPACE program from Jan Jakubek                    *   DOC FILE
//*+File 395:  CATIND exec to do bulk cataloging for a new system   *   DOC FILE
//*+File 396:  FINDSTR exec to invoke ISRSUPC automatically in 3.4  *   DOC FILE
//*+File 397:  PACK and UNPK execs to do numeric conversions        *   DOC FILE
//*+File 398:  Generate system macro invocations more simply        *   DOC FILE
//*+File 399:  TSSO modifications, applications, and clists         *   DOC FILE
//*+File 400:  DYNAMASK program - for pre-dynamic UCB systems       *   DOC FILE
//*+File 401:  EMPTY                                                *   DOC FILE
//*+File 402:  EMPTY                                                *   DOC FILE
//*+File 403:  EMPTY                                                *   DOC FILE
//*+File 404:  TSSO for OS/390                                      *   DOC FILE
//*+File 405:  Defense Logistics Agency Exits and Utilities         *   DOC FILE
//*+File 406:  EMPTY                                                *   DOC FILE
//*+File 407:  DYNAMIC BLDL - by David Cole - For pre-ESA           *   DOC FILE
//*+File 408:  David Cole's Macros - needed for his other pgms      *   DOC FILE
//*+File 409:  Rob Scott's MXI monitor package - FB-80 members      *   DOC FILE
//*+File 410:  Rob Scott's MXI monitor package - load modules       *   DOC FILE
//*+File 411:  Rob Scott's utilities - source code and FB-80        *   DOC FILE
//*+File 412:  Rob Scott's utilities - load modules                 *   DOC FILE
//*+File 413:  Ashley Street's FADH Utility collection              *   DOC FILE
//*+File 414:  Convert printouts from machine control to ANSI       *   DOC FILE
//*+File 415:  EMPTY                                                *   DOC FILE
//*+File 416:  Deluxe Check Printing - useful programs              *   DOC FILE
//*+File 417:  EMPTY                                                *   DOC FILE
//*+File 418:  Combined Insurance collection of programs            *   DOC FILE
//*+File 419:  Dignus C language source and compiled assembler src  *   DOC FILE
//*+File 420:  Dignus Load Library - Compiled C to OS/390 utilities *   DOC FILE
//*+File 421:  XACORZAP program by Robert Budge (INCORZAP author)   *   DOC FILE
//*+File 422:  Don Marquardt collection of utilities                *   DOC FILE
//*+File 423:  Jeff Broido collection - TSO commands and utilities  *   DOC FILE
//*+File 424:  VETAPE - 3420 to 3480 conversion program             *   DOC FILE
//*+File 425:  IEFUSI Exit from Mike Loos                           *   DOC FILE
//*+File 426:  Started Task Accounting, and Jobnames processor      *   DOC FILE
//*+File 427:  IHASTOW macro source                                 *   DOC FILE
//*+File 428:  Programs to extract and display control block info   *   DOC FILE
//*+File 429:  Allergan Utilities - from Paul Banks                 *   DOC FILE
//*+File 430:  McEvoy Utilities collection                          *   DOC FILE
//*+File 431:  Steve Bacher's utilities, packages, and offerings    *   DOC FILE
//*+File 432:  Thierry Falissard's selected programs and stuff      *#  DOC FILE
//*+File 433:  Frank Clarke's collection of REXX execs, etc.        *   DOC FILE
//*+File 434:  Mark Zelden collection of Utilities and execs        *#  DOC FILE
//*+File 435:  Frank Clarke's stuff FB-80-ized by Dave North (F155) *   DOC FILE
//*+File 436:  COMPCODE - sends NOTIFY & email for job completion   *   DOC FILE
//*+File 437:  Standalone utilities and others from Jan Jaeger      *   DOC FILE
//*+File 438:  Dan Snyder collection of structured macros & others  *   DOC FILE
//*+File 439:  PDSX Utility to scan all pds'es--from Volker Mielke  *   DOC FILE
//*+File 440:  Load Library for PDSX                                *   DOC FILE
//*+File 441:  2 Pgms for RACF from Brian Vogt - RESUME & RA#NAMES  *   DOC FILE
//*+File 442:  REVIVE Utility from Tetsuya Kimura (Kimu)            *   DOC FILE
//*+File 443:  Other Utilities from Tetsuya Kimura (Kimu)           *   DOC FILE
//*+File 444:  Ron Tatum pgms - create and read big blocks on tape  *   DOC FILE
//*+File 445:  Object Deck Disassembler from Chris Kendon           *   DOC FILE
//*+File 446:  COBOL Program which uses UNIX system services        *   DOC FILE
//*+File 447:  ENQMON from Rick Fochtman--GRS displays like MIM's.  *   DOC FILE
//*+File 448:  Package to Insert Date into Global system variables  *   DOC FILE
//*+File 449:  Amdahl Bookmanager package                           *   DOC FILE
//*+File 450:  REXX exec to globally search for character strings   *   DOC FILE
//*+File 451:  Gary Scarcella REXX execs - CUTCLEAR, SUBCAN         *   DOC FILE
//*+File 452:  Dan's MVS-JES2 Utilities                             *   DOC FILE
//*+File 453:  Paul Moinil collection of Utilities: Index           *   DOC FILE
//*+File 454:  Paul Moinil collection of Utilities: Basic Material  *   DOC FILE
//*+File 455:  Paul Moinil collection of Utilities: Complementary   *   DOC FILE
//*+File 456:  Paul Moinil collection of Utilities: Additional      *   DOC FILE
//*+File 457:  Paul Moinil collection of Utilities: Demo/Games      *   DOC FILE
//*+File 458:  Paul Moinil collection of Utilities: CBT Extracted   *   DOC FILE
//*+File 459:  Paul Moinil collection of Utilities: Supplementary   *   DOC FILE
//*+File 460:  ISPF GUIDE Tape - ISPCLIB file                       *   DOC FILE
//*+File 461:  ISPF GUIDE Tape - Doc file                           *   DOC FILE
//*+File 462:  ISPF GUIDE Tape - Edit Macros                        *   DOC FILE
//*+File 463:  ISPF GUIDE Tape - Help file                          *   DOC FILE
//*+File 464:  ISPF GUIDE Tape - ISPFMACS                           *   DOC FILE
//*+File 465:  ISPF GUIDE Tape - JCL file                           *   DOC FILE
//*+File 466:  ISPF GUIDE Tape - ISPMLIB file                       *   DOC FILE
//*+File 467:  ISPF GUIDE Tape - ISPPLIB file                       *   DOC FILE
//*+File 468:  ISPF GUIDE Tape - ISPSLIB file                       *   DOC FILE
//*+File 469:  ISPF GUIDE Tape - Source file                        *   DOC FILE
//*+File 470:  ISPF GUIDE Tape - SVC99MAC file                      *   DOC FILE
//*+File 471:  ISPF GUIDE Tape - MACRO file                         *   DOC FILE
//*+File 472:  MURPHY - TSO command to display one-liners randomly  *   DOC FILE
//*+File 473:  CHKASVT program to find non-reusable ASIDs.          *   DOC FILE
//*+File 474:  LIBCLEAN - compare contents of pds's. Rob Wunderlich *   DOC FILE
//*+File 475:  Doc for the new Large Block Interface (LBI) for tape *   DOC FILE
//*+File 476:  LISP compiler and ISPF interface for MVS.            *   DOC FILE
//*+File 477:  AWSUTIL to create "virtual tape" disk files          *   DOC FILE
//*+File 478:  RAWSTAPE from Jan Jaeger                             *#  DOC FILE
//*+File 479:  Broadcast Notices EDIT, BKMGR search, YAHTZEE        *#  DOC FILE
//*+File 480:  Baldomero Castilla Utilities - Source Code           *#  DOC FILE
//*+File 481:  Baldomero Castilla Utilities - Load Modules          *#  DOC FILE
//*+File 482:  GDGCOPY Utility                                      *#  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
//*** WHAT TO DO WITH THIS TAPE FIRST   SECTION                     *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*  W H A T   T O   D O   W I T H   T H I S   T A P E   F I R S T  *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*    A NEW SECTION:    THIS TAPE IS LARGE -- VAST IS A BETTER     *   DOC FILE
//*       WORD.  PEOPLE WANT TO KNOW WHAT TO INSTALL FIRST.  AT     *   DOC FILE
//*       THE RISK OF OFFENDING THE "OWNERS" OF SOME OF THE FILES,  *   DOC FILE
//*       I'D VENTURE TO RECOMMEND SOME FILES TO LOOK AT FIRST.     *   DOC FILE
//*                                                                 *   DOC FILE
//*       ANY COMMENTS ON THIS SUBJECT SHOULD BE ADDRESSED TO       *   DOC FILE
//*       ME (SAM GOLOB).  CALL ME UP (PREFERABLY) OR WRITE ME.     *   DOC FILE
//*                                                                 *   DOC FILE
//* --             email:    sbgolob@aol.com       or            -- *   DOC FILE
//* --                       sbgolob@attglobal.net               -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//*    HINT:  MAP THIS TAPE WITH THE NEWEST "TAPEMAP" FROM FILE     *   DOC FILE
//*           299.  THIS "TAPEMAP" PROGRAM HAS TWO REPORT OUTPUTS.  *   DOC FILE
//*           REPORT #2  SHOWS ALL MEMBERS OF LIBRARIES AND ALL     *   DOC FILE
//*           MACRO NAMES THAT ARE IEBUPDTE-IMBEDDED WITHIN         *   DOC FILE
//*           SINGLE MEMBERS OF A FILE.  YOU CAN SCAN THIS          *   DOC FILE
//*           REPORT IF YOU KEEP IT MACHINE-READABLE.  IT WILL      *   DOC FILE
//*           HELP YOU FIND INDIVIDUAL PROGRAM NAMES OR MACROS.     *   DOC FILE
//*                                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   *   DOC FILE
//*                                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*    YOU MAY TRY TO LOOK AT:  (MY PERSONAL OPINIONS ONLY ... )    *   DOC FILE
//*                                                                 *   DOC FILE
//*    FILES 300 AND 316 FROM JIM MARSHALL.                         *   DOC FILE
//*       FILE 300 CONTAINS A LARGE COLLECTION OF USEFUL TSO        *   DOC FILE
//*       COMMANDS TO EXPLORE.  FILE 316 CONTAINS A LARGE COLLEC-   *   DOC FILE
//*       TION OF BATCH PROGRAMS.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*    SEE THE LOAD MODULE LIBRARIES ON FILES 035 AND 135 FOR       *   DOC FILE
//*       QUICK-TO-PUT-IN AND AWESOMELY USEFUL UTILITIES.  SOURCE   *   DOC FILE
//*       FOR ALMOST ALL OF THEM IS ON THE TAPE.  SEE THE DES-      *   DOC FILE
//*       CRIPTIONS FOR FILES 035 AND 134 IN THE "DOCUMENTATION     *   DOC FILE
//*       SECTION" BELOW.  THESE TWO LIBRARIES COMBINED WILL HELP   *   DOC FILE
//*       YOU TO QUICKLY SET UP SOME TOOLS.  SOURCE FOR MODULES     *   DOC FILE
//*       IN FILE 035 CAN BE FOUND BY LOOKING BELOW IN THIS DOC     *   DOC FILE
//*       UNDER THE DESCRIPTION OF THE CONTENTS OF FILE 035.        *   DOC FILE
//*       MOST OF THE SOURCE FOR MODULES IN FILE 135 CAN BE FOUND   *   DOC FILE
//*       IN FILE 134.                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*    THE PDS 8.5 PRODUCT ON FILE 182 (MORE UTILITIES ON FILES     *   DOC FILE
//*       296, 112, AND 134) IS INDISPENSABLE.  "PDS 8.5"           *   DOC FILE
//*       DOES OVER 1000 SEPARATE UTILITY FUNCTIONS.  THE "PDS"     *   DOC FILE
//*       PRODUCT WILL SAVE YOUR SHOP MUCH TIME AND MONEY.          *   DOC FILE
//*       IT PAYS TO MAKE THE INVESTMENT OF 2 OR 3 HOURS TO         *   DOC FILE
//*       INSTALL PDS 8.5.  THIS WILL BE REPAID MANYFOLD, OVER      *   DOC FILE
//*       YEARS OF TIME.  (IF YOU HAVE THE COMMERCIAL PRODUCT       *   DOC FILE
//*       PDSTOOLS, FROM SERENA INTERNATIONAL, PDS 8.5 IS NOT       *   DOC FILE
//*       NECESSARY.  HOWEVER, IT STILL PAYS TO INSTALL THE         *   DOC FILE
//*       RELATED UTILITIES ON FILES 296, 112, 134, ETC., BECAUSE   *   DOC FILE
//*       IN MANY CASES, PDSTOOLS CAN CALL THESE UTILITIES ALSO.)   *   DOC FILE
//*                                                                 *   DOC FILE
//*    FILE 134 (SOURCE) AND/OR FILE 135 (LOAD) FROM GREG PRICE.    *   DOC FILE
//*       HIS VERSION OF THE "REVIEW" COMMAND AND FULLSCREEN ZAP    *   DOC FILE
//*       ARE SUPER POWERFUL TOOLS FOR ALL "SYSTEM DOCTORS".        *   DOC FILE
//*       THIS IS A GOOD COLLECTION, AND GREG HAS VERY INTERESTING  *   DOC FILE
//*       STUFF HERE.                                               *   DOC FILE
//*                                                                 *   DOC FILE
//*    FILE 172 FROM DAVID CARTWRIGHT OF SUTTON COLDFIELD IN        *   DOC FILE
//*       ENGLAND, IS A LARGE AND VERY COMPREHENSIVE COLLECTION     *   DOC FILE
//*       OF TOOLS.  A SEARCH THROUGH THIS COLLECTION WILL BE       *   DOC FILE
//*       WORTHWHILE, ESPECIALLY FOR LEARNING.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*    FILE 183 FROM GILBERT SAINT-FLOUR OF AMS NEAR SAN            *   DOC FILE
//*       FRANCISCO IS A NICE COLLECTION OF QUITE ORIGINAL TOOLS.   *   DOC FILE
//*       SEE ESPECIALLY THE SHOWMVS TSO/ISPF COMMAND WHICH WILL    *   DOC FILE
//*       SHOW YOU A LOT OF THINGS ABOUT YOUR SYSTEM AND YOUR       *   DOC FILE
//*       SESSION.  SHOWMVS WILL KNOCK SOCKS OFF.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*    FILE 270 FROM KERMIT KISER OF THE STATE OF WASHINGTON IN     *   DOC FILE
//*       OLYMPIA.  THIS IS A GREAT COLLECTION OF MANY UTILITIES,   *   DOC FILE
//*       INCLUDING SOME WHICH GIVE DEEP INSIGHT INTO ISPF.  A      *   DOC FILE
//*       "MUST LOOK" FILE.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*    FILE 400 - DYNAMASK - DOES AN INSTANT "EDTGEN".  VERSIONS    *   DOC FILE
//*       ON THIS FILE WORK FROM OLD MVS 3.8 THRU MVS/ESA 4.2 .     *   DOC FILE
//*       BY THE WAY, DYNAMASK IS MUCH MORE CONVENIENT AND          *   DOC FILE
//*       EASY TO USE THAN HCD ON ESA 4.2, IF YOU WANT TO CHANGE    *   DOC FILE
//*       GENERIC OR ESOTERIC UNIT NAMES "ON THE FLY". THE MVS 4.2  *   DOC FILE
//*       VERSION OF DYNAMASK WILL WORK EVEN IF YOU USE IODF        *   DOC FILE
//*       INSTEAD OF MVSCP.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*    IF YOUR SHOP DOESN'T HAVE A JES2 "SPOOL BROWSER" TO LOOK     *   DOC FILE
//*       AT JOBS OR PRINTOUT, CONSIDER INSTALLING A VERSION OF     *   DOC FILE
//*       "QUEUE" (WHICHEVER IS APPROPRIATE FOR YOUR LEVEL OF       *   DOC FILE
//*       JES2) THAT CAN BE FOUND ON FILES 391 TO 398.  FOR A       *   DOC FILE
//*       HIGH-QUALITY JES3 SPOOL BROWSER I HAVE TO POINT YOU       *   DOC FILE
//*       TO THE JES3 SHARE TAPE REFERRED TO BELOW.  THERE IS A     *   DOC FILE
//*       JES2 SHARE TAPE THAT MAY HAVE SOME OTHER VERSIONS OF      *   DOC FILE
//*       QUEUE (SEE ALSO BELOW).  FILE 392 NOW HAS LEONARD         *   DOC FILE
//*       WOREN'S VERSION OF QUEUE, WHICH HAS CONDITIONAL ASSEMBLY  *   DOC FILE
//*       OPTIONS TO WORK ON MANY VERSIONS OF JES2, INCLUDING       *   DOC FILE
//*       MVS/ESA JES2 VERSION 4.2.  FILE 391 HAS A "STANDARD"      *   DOC FILE
//*       QUEUE FOR JES2 VERSION 4.2.  THIS VERSION OF QUEUE NOW    *   DOC FILE
//*       HAS UPDATES IN A MEMBER, SO THAT YOU CAN ASSEMBLE IT      *   DOC FILE
//*       ON JES2 VERSION 4.3.  I HAVEN'T LOOKED AT THE FILE 392    *   DOC FILE
//*       VERSION OF QUEUE TO SEE IF IT WORKS FOR 4.3 WHEN          *   DOC FILE
//*       ASSEMBLED AT THE 4.2 LEVEL AGAINST 4.3 MACROS.  PLEASE    *   DOC FILE
//*       REPORT ANY RESULTS AND REPORT ANY PROBLEMS TO SAM GOLOB   *   DOC FILE
//*       OR JACK SCHUDEL.  (BOTH OUR ADDRESSES ARE IN THIS         *   DOC FILE
//*       DOCUMENT, JUST BELOW.)                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*    CONSIDER A TSO "CONSOLE SIMULATOR" FROM FILE 025, IF THESE   *   DOC FILE
//*       VERSIONS WORK PROPERLY AT YOUR SHOP.  THERE ARE A         *   DOC FILE
//*       NUMBER OF DIFFERENT "SPY" PROGRAMS OR "CONSOLE DISPLAY    *   DOC FILE
//*       FACILITIES" OR "DIDOCS" PROGRAMS FOR TSO THAT ARE FOUND   *   DOC FILE
//*       ON THIS TAPE.  YOU WON'T HAVE TO GO TO A SYSTEM CONSOLE   *   DOC FILE
//*       MOST OF THE TIME.  SOME ARE MORE CONVENIENT THAN SDSF     *   DOC FILE
//*       IN THEIR CONSOLE FUNCTIONS.  (SDSF IS A GREAT SPOOL       *   DOC FILE
//*       BROWSER--I'M NOT KNOCKING IT FOR THAT.)  ALSO, WE'RE      *   DOC FILE
//*       TALKING "FREE" HERE.  EVEN WITHOUT MVS/ESA V4, YOU CAN    *   DOC FILE
//*       HAVE YOUR OWN TSO CONSOLE WITH THESE PROGRAMS.            *   DOC FILE
//*                                                                 *   DOC FILE
//*    GUY ALBERTELLI'S "LOOK" PROGRAM ON FILE 264 LETS YOU PEEK    *   DOC FILE
//*       AROUND STORAGE, FOLLOWING CONTROL BLOCKS BETTER THAN      *   DOC FILE
//*       YOU IMAGINED.  CONTROL BLOCK MAPPINGS MAY BE EASILY       *   DOC FILE
//*       ADDED TO ENHANCE THE POWER OF "LOOK", AND MANY OF THESE   *   DOC FILE
//*       MAPPINGS HAVE ALREADY BEEN SUPPLIED.  VARIOUS KINDS OF    *   DOC FILE
//*       INDIRECT ADDRESSING ARE SUPPORTED.  A LOAD MODULE FOR     *   DOC FILE
//*       "LOOK" IS NOW ON FILE 035.  (INSTANT INSTALL.)            *   DOC FILE
//*                                                                 *   DOC FILE
//*    GUY'S UPDATE OF THE CMD1 MONITOR AND UTILITY SUBSYSTEM       *   DOC FILE
//*       (FILE 261) PROVIDES MANY SERVICES FREE, THAT MIGHT        *   DOC FILE
//*       OTHERWISE BE EXPENSIVELY PURCHASED IN A SYSTEM PROGRAMMER *   DOC FILE
//*       "MAGIC BOX" TYPE TOOL.  CMD1 HAS A FEW BUGS IN A FEW      *   DOC FILE
//*       FUNCTIONS (NONE SERIOUS TO MY KNOWLEDGE), BUT WHAT WORKS  *   DOC FILE
//*       --AND A LOT WORKS--IS WORTH ITS WEIGHT IN GOLD.           *   DOC FILE
//*       CMD1 HAS NOW BEEN UPDATED TO WORK ON MVS/ESA V4.2.        *   DOC FILE
//*                                                                 *   DOC FILE
//*    THE VERSION OF TSSO (VERSION 4.3) ON FILE 404 MAKES POSSIBLE *   DOC FILE
//*       GREAT STRIDES IN AUTOMATED OPERATIONS FOR NO COST AT      *   DOC FILE
//*       ALL.  TSSO DOES SEVERAL THINGS.  IT HAS A TSO "LINE MODE" *   DOC FILE
//*       ENVIRONMENT FROM THE OPERATOR'S CONSOLE.  TSSO ALSO DOES  *   DOC FILE
//*       AUTOMATIC MESSAGE HANDLING, OPERATOR REPLIES, AND IT      *   DOC FILE
//*       TRIGGERS MANY POSSIBLE KINDS OF ACTIONS AS THE RESULT     *   DOC FILE
//*       OF CONSOLE MESSAGES.  TSSO ALLOWS EXECUTION OF TSO COM-   *   DOC FILE
//*       MANDS FROM A CONSOLE.  SINCE ITS ENVIRONMENT IS TSO-LIKE, *   DOC FILE
//*       ITS AUTOMATION ACTIONS CAN BE DONE UNDER CLIST CONTROL.   *   DOC FILE
//*       IF YOU ARE RUNNING TSSO UNDER JES, YOU CAN SUBMIT JOBS    *   DOC FILE
//*       FROM THE OPERATOR CONSOLE (WITH THE TSO SUBMIT COMMAND),  *   DOC FILE
//*       ETC. ETC. (THIS IS LIMITED ONLY BY YOUR IMAGINATION.)     *   DOC FILE
//*                                                                 *   DOC FILE
//*       TSSO HAS THE ENORMOUS ADVANTAGE OF BEING A SUBSYSTEM.     *   DOC FILE
//*       TSSO  V-4.3  ALSO CAN RUN "SUB=MSTR" WITHOUT JES.  THAT   *   DOC FILE
//*       QUALITY MAKES IT A POWERFUL RECOVERY TOOL, ESPECIALLY IF  *   DOC FILE
//*       YOU RUN THE PDS 8.5 PRODUCT UNDER TSSO.  PDS 8.5 "COPY"   *   DOC FILE
//*       FUNCTION (TO INVOKE IEBCOPY) SHOULD WORK W/O JES. PDS 8.5 *   DOC FILE
//*       "FIXPDS EXPANDDIR" TO EXPAND A PDS DIRECTORY ON THE FLY,  *   DOC FILE
//*       SHOULD ALSO WORK.  PDS 8.5 "FIND" AND "REPLACE" STRINGS   *   DOC FILE
//*       IN PLACE, DEFINITELY WORKS (FOR LOAD MODULES AS WELL AS   *   DOC FILE
//*       FOR SOURCE-TYPE DATA).  THESE THINGS CAN SAVE YOUR        *   DOC FILE
//*       TAILS, FOLKS.  TSSO VERSION 4.3 IS A GREAT RECOVERY       *   DOC FILE
//*       TOOL.  WE RAN IT AT XA 2.2.3.  PROBABLY GOOD THRU ESA.    *   DOC FILE
//*       (SEE FILE 403 WHICH HAS GUY ALBERTELLI'S AND DAVE         *   DOC FILE
//*       CARTWRIGHT'S MODIFICATIONS UPGRADED FOR MVS/ESA 4.2.2.)   *   DOC FILE
//*       (FILE 404 IS UPDATED FOR OS/390 VERSION 2.)               *   DOC FILE
//*                                                                 *   DOC FILE
//*    SEE FILE 071 FOR THE CONTENTS OF OTHER PUBLIC DOMAIN TAPES.  *   DOC FILE
//*       MAYBE WHAT YOU NEED IS NOT ON THIS TAPE.  THIS WILL TELL  *   DOC FILE
//*       YOU WHICH OTHER TAPE YOU MIGHT LIKE TO ORDER.             *   DOC FILE
//*                                                                 *   DOC FILE
//*    I TAKE ALL THE BLAME (OR PRAISE) FOR THIS SECTION.  PLEASE   *   DOC FILE
//*       CALL OR WRITE ME FOR IMPROVEMENTS (SAM GOLOB).  THANKS    *   DOC FILE
//*       (OR ABUSE) ARE ALSO WELCOME.  TRY TO MAKE THE ABUSE       *   DOC FILE
//*       POLITE IF THAT IS POSSIBLE.  ANYWAY, GOOD STUFF ALWAYS    *   DOC FILE
//*       COMES OUT OF THIS KIND OF FEEDBACK.  THANKS.              *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*    THE TAPEMAP PROGRAM IN FILE 299 HAS BEEN FIXED SO THAT IT    *   DOC FILE
//*    NO LONGER LOOPS ON CERTAIN VARIABLE BLOCKED FILES.  PLEASE   *   DOC FILE
//*    TAKE A BIT OF TIME TO REASSEMBLE AND LINK TAPEMAP FROM THE   *   DOC FILE
//*    NEWEST VERSION.  (SEE ALSO THE DETAILED DESCRIPTION OF       *   DOC FILE
//*    THE TAPEMAP PROGRAM UNDER "FILE 299" LISTED BELOW.)          *   DOC FILE
//*    ALSO, THERE IS A LOAD MODULE FOR TAPEMAP ON FILE 035.        *   DOC FILE
//*                                                                 *   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.  BECAUSE OF THE LARGE       *   DOC FILE
//*  NUMBER OF EXEC CARDS NECESSARY TO LOAD ALL NONEMPTY FILES      *   DOC FILE
//*  IN ONE SHOT, FILE 003 IS BROKEN INTO 5 SEPARATE JOBS.          *   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.  SOME PEOPLE LOAD MATERIALS FROM THIS     *   DOC FILE
//*  TAPE INTO AN INFO/MVS DATABASE.  SEE FILES 042 AND 043 FOR     *   DOC FILE
//*  THAT.  THERE ARE ALL KINDS OF VARIATIONS AMONG PEOPLE ON HOW   *   DOC FILE
//*  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 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 035, AND SOURCE  *   DOC FILE
//*  IS ON FILE 093 IF YOU WANT TO ASSEMBLE IT YOURSELF.  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
//*  REFER TO THE "WHAT TO DO WITH THIS TAPE FIRST" SECTION ABOVE.  *   DOC FILE
//*  THAT SECTION PROVIDES IDEAS ON WHAT FILES ON THIS TAPE TO      *   DOC FILE
//*  LOOK AT FIRST.                                                 *   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
//*                                         BEGINNING 09/24/90.     *   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 Casinghino.   *   DOC FILE
//*   Arnie Casinghino has supported this tape for over 15 years,   *   DOC FILE
//*   from Version 1 through Version 321.  Almost every MVS         *   DOC FILE
//*   installation in the world has benefited in some way from      *   DOC FILE
//*   materials on some version of this tape.  (Probably every      *   DOC FILE
//*   MVS installation has benefited, because suggestions           *   DOC FILE
//*   originating from materials on this tape have found their      *   DOC FILE
//*   way to IBM development desks through user requirements, and   *   DOC FILE
//*   have become a part of the operating system software.)         *   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" 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
//*   COPIES OF THIS TAPE MAY BE ORDERED FROM THE DISTRIBUTION      *   DOC FILE
//*   SOURCES LISTED BELOW.  IN ADDITION, THIS TAPE MAY BE FREELY   *   DOC FILE
//*   COPIED BY ANYONE.  IN FACT, USER GROUPS ARE TO BE ENCOURAGED  *   DOC FILE
//*   TO MAKE COPIES OF THIS TAPE FOR THE USE OF THEIR MEMBERS AND  *   DOC FILE
//*   OTHERS.  THIS PRACTICE WILL HELP PEOPLE TO OBTAIN THE LATEST  *   DOC FILE
//*   VERSION OF THE CBT TAPE FOR THEMSELVES AND THEIR              *   DOC FILE
//*   INSTALLATIONS MORE EASILY.  IT WILL ALSO BE AN INCENTIVE FOR  *   DOC FILE
//*   PEOPLE TO ATTEND THE USER GROUP MEEETINGS.  SEE THE "TAPE     *   DOC FILE
//*   DUPLICATION SECTION" AT THE BEGINNING OF THIS FILE, FOR       *   DOC FILE
//*   FURTHER COMMENTS ABOUT COPYING THIS TAPE.  CONTRIBUTORS OF    *   DOC FILE
//*   UPDATES TO THIS TAPE, PLEASE SEE THE SPECIAL COMMENTS IN THE  *   DOC FILE
//*   "TAPE ORDER SECTION" BELOW.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*   The documentation in this file has been written by both       *   DOC FILE
//*   Arnie Casinghino and Sam Golob, the tape's current editor.    *   DOC FILE
//*   Sometimes the contributors are helpful, and compose their     *   DOC FILE
//*   own documentation for their own stuff.  The editor usually    *   DOC FILE
//*   makes every effort to include this documentation in the       *   DOC FILE
//*   "Documentation Section" below, as detailed description of     *   DOC FILE
//*   the contents of the particular file.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*   ANY QUESTIONS CONCERNING DOCUMENTATION SHOULD BE DIRECTED     *   DOC FILE
//*   TO THE CURRENT EDITOR.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//***TAPE ORDER SECTION     (WHO YOU GONNA CALL .... )              *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*      T  A  P  E    O  R  D  E  R    S  E  C  T  I  O  N         *   DOC FILE
//*                                                                 *   DOC FILE
//*                 (WITH CONTRIBUTOR INFORMATION)                  *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*   ORDER INFORMATION FOR THE CBT TAPE IS CURRENT AS OF THE       *   DOC FILE
//*   DATE OF ISSUE OF THIS TAPE.  THIS TAPE'S DATE OF ISSUE IS     *   DOC FILE
//*   DISPLAYED AT THE HEAD OF THIS FILE.  (FOR YOUR INFORMATION,   *   DOC FILE
//*   IF A CBT TAPE IS MAPPED BY THE LATEST VERSION OF THE TAPEMAP  *   DOC FILE
//*   PROGRAM ON FILE 299, 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 SHOULD BE SENT TO THE EDITOR, AND PERSONAL     *   DOC FILE
//*    CONTACT SHOULD BE MADE WITH HIM, EITHER BY PHONE OR IN       *   DOC FILE
//*    WRITING.  (PHONE IS BETTER, BUT EITHER WAY WILL DO.)         *   DOC FILE
//*                                                                 *   DOC FILE
//*    Most contributions are now made via email over the           *   DOC FILE
//*    Internet.  To contribute, it is preferred that you make      *   DOC FILE
//*    a pds on an MVS system, including documentation member(s),   *   DOC FILE
//*    put the pds into TSO XMIT OUTDSN format, download it in      *   DOC FILE
//*    binary to the pc (if you need to), and attach it to an       *   DOC FILE
//*    email to me at:   sbgolob@attglobal.net cc: sbgolob@aol.com  *   DOC FILE
//*                                                                 *   DOC FILE
//*    If the file is large, you can pkzip it on the pc, before     *   DOC FILE
//*    attaching it to the email to me.  That's all there is to     *   DOC FILE
//*    it.    (NOV 99)                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*    IF YOU HAVE SOMETHING TO CONTRIBUTE AND YOU JUST SEND IT     *   DOC FILE
//*    IN, THAT WILL BE OK, BUT I'LL TRY AND CONTACT YOU BEFORE     *   DOC FILE
//*    INCLUDING IT IN THE TAPE.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*    I am producing the current tapes from Gilbert Saint-flour's  *   DOC FILE
//*    site.  Gilbert's email address is gsf@ibm.net.               *   DOC FILE
//*                                                                 *   DOC FILE
//*    If you want to send me anything any other way, my address    *   DOC FILE
//*    is:                                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*       Sam Golob,  P.O. Box 906,  Tallman, NY 10982-0906  USA    *   DOC FILE
//*                                                                 *   DOC FILE
//*       Phone:  845-362-1996     Fax:  845-362-5843               *   DOC FILE
//*                                                                 *   DOC FILE
//*  -------------------------------------------------------------  *   DOC FILE
//*                                                                 *   DOC FILE
//*    PLEASE    -***-DOCUMENT-***-    YOUR CONTRIBUTIONS .....     *   DOC FILE
//*                                                                 *   DOC FILE
//*    THE IDEA IS, THAT SOMEONE WHO DOESN'T KNOW YOUR STUFF,       *   DOC FILE
//*    SHOULD BE ABLE TO READ AN EXPLANATION, AND INSTALL IT        *   DOC FILE
//*    FROM YOUR EXPLANATION ALONE.  YOU SHOULD INCLUDE YOUR        *   DOC FILE
//*    ADDRESS AND PHONE NUMBER IF THAT IS POSSIBLE.  FOR THOSE     *   DOC FILE
//*    PEOPLE WHO CAN'T INCLUDE THEIR CONTACT INFORMATION, WE HAVE  *   DOC FILE
//*    MADE SOME SPECIAL ARRANGEMENTS IN THE PAST, AND WE HOPE TO   *   DOC FILE
//*    ACCOMMODATE EVERYONE.  THE IDEA IS TO HELP THE MAXIMUM       *   DOC FILE
//*    NUMBER OF PEOPLE--BOTH CONTRIBUTORS AND USERS--NOT TO PUT    *   DOC FILE
//*    STUMBLING BLOCKS IN PEOPLE'S WAY.  THANKS IN ADVANCE, FROM   *   DOC FILE
//*    ALL THE USERS OF THIS TAPE.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*  -------------------------------------------------------------  *   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
//*     You can order a tape from                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*                    NASPA                                        *   DOC FILE
//*                    NATIONAL SYSTEMS PROGRAMMERS ASSOCIATION     *   DOC FILE
//*                    7040 S. 13TH STREET                          *   DOC FILE
//*                    OAK CREEK, WISCONSIN 53154                   *   DOC FILE
//*                    (414) 768-8000                               *   DOC FILE
//*                        (THEIR HANDLING FEE APPLIES.)            *   DOC FILE
//*                                                                 *   DOC FILE
//*     or you can email:    (a better idea)                        *   DOC FILE
//*                                                                 *   DOC FILE
//*         Sam Knutson    at   dragon@his.com                      *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*******************************************************************   DOC FILE
//***SECTION INFORMATION SECTION                                    *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*          I N F O R M A T I O N     S E C T I O N                *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*   EDITOR'S PHONE NUMBER:  SAM GOLOB:    Phone:  845-362-1996    *   DOC FILE
//*                                         Fax  :  845-362-5843    *   DOC FILE
//*                                                                 *   DOC FILE
//* --             email:    sbgolob@aol.com       OR            -- *   DOC FILE
//* --                       sbgolob@attglobal.net               -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//*   EDITOR'S CONTACT INFORMATION:                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*      ADDRESS: (USE THE FOLLOWING ADDRESS)                       *   DOC FILE
//*                                                                 *   DOC FILE
//*            Sam Golob                                            *   DOC FILE
//*            P.O. Box 906                                         *   DOC FILE
//*            Tallman, NY  10982                                   *   DOC FILE
//*            Phone:  845-362-1996                                 *   DOC FILE
//*                                                                 *   DOC FILE
//* --             email:    sbgolob@aol.com       OR            -- *   DOC FILE
//* --                       sbgolob@attglobal.net               -- *   DOC FILE
//* --                                                           -- *   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
//*   email             acasingh@cscmail.csc.com                    *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*      THE CBT MVS TAPE WILL BE SHIPPED ONLY                      *   DOC FILE
//*                                                                 *   DOC FILE
//*       ON 3480 IDRC TAPE CARTRIDGE                               *   DOC FILE
//*                                                                 *   DOC FILE
//*      For special requirements, please contact Sam Knutson       *   DOC FILE
//*      at:                                                        *   DOC FILE
//*             dragon@his.com                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*      All files from the CBT Tape are now obtainable online      *   DOC FILE
//*      through the Internet, at:    www.cbttape.org               *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*   DOC FILE
//*                                                                 *   DOC FILE
//* If you obtain CBT Tape files from www.cbttape.org, they are     *   DOC FILE
//*  in pkzip'ed TSO XMIT format, so you unzip them, upload them    *   DOC FILE
//*  to the mainframe (binary - no translation), and do a TSO       *   DOC FILE
//*  RECEIVE INDATASET(  ) on them, to re-constitute how they       *   DOC FILE
//*  originally were.                                               *   DOC FILE
//*                                                                 *   DOC FILE
//*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*   DOC FILE
//*                                                                 *   DOC FILE
//* If you obtain CBT Tape files from a tape, then the tape files   *   DOC FILE
//* (most of them--at least the FB-80 ones) have been compressed    *   DOC FILE
//* using the CBT973 compression program.  The non-FB-80 files      *   DOC FILE
//* are almost always in IEBCOPY format, and are unloaded pds'es.   *   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     The source for the CBTUPD assembler       *   DOC FILE
//*                            program, which breaks this file      *   DOC FILE
//*                            into "bite-size pieces" that can     *   DOC FILE
//*                            be loaded into a pds as members.     *   DOC FILE
//*          FILE 005     FOR VM SYSTEMS:  A REXX EXEC TO MOVE      *   DOC FILE
//*                            THE CONTENTS OF THIS TAPE TO A       *   DOC FILE
//*                            VM SYSTEM.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*    THESE 5 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
//*$%^                                                          ()# * ==DOC FILE
//*$%^  The TAPEMAP program in File 299 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 035.  You can get directly to File 035 by specify- ()# *   DOC FILE
//*$%^  ing LABEL=(35,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.  The same     *   DOC FILE
//*    information should be reflected in the JCL from File 003.    *   DOC FILE
//*                                                                 *   DOC FILE
//*    When additions are added to the tape, rather then putting    *   DOC FILE
//*    them at the end of the tape, we will place them in           *   DOC FILE
//*    files that were previously deleted and are now empty,        *   DOC FILE
//*    assuming that there are any.  (There are still quite a       *   DOC FILE
//*    few.)                                                        *   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.            *   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  -  sbgolob@attglobal.net )  *   DOC FILE
//*                                                                 *   DOC FILE
//*      A. IF THIS IS THE FIRST TIME YOU HAVE RECEIVED THIS UTIL-  *   DOC FILE
//*         ITIES TAPE, WE SUGGEST THAT YOU SKIP ALL THE INFORMA-   *   DOC FILE
//*         TION IN THE 'CHANGE SECTION' BELOW, THAT IS ENTITLED:   *   DOC FILE
//*         'CHANGES FOR VERSION XXX, MONTH DAY YEAR'.  GO TO THE   *   DOC FILE
//*         'FILE STATUS SECTION' AND THE SECTION ENTITLED          *   DOC FILE
//*         'D O C U M E N T A T I O N'.  READ WHAT EACH FILE IS,   *   DOC FILE
//*         AND DECIDE WHAT YOU WANT.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*      b. If you have received a previous version of this tape    *   DOC FILE
//*         you may wish to check all the changes made since that   *   DOC FILE
//*         version and decide what is applicable.  Use the         *   DOC FILE
//*         CHANGE SECTION below, and the DATES in the FILE         *   DOC FILE
//*         STATUS SECTION to figure out which files have changed   *   DOC FILE
//*         since your last tape.  See the FILE UPDATE section      *   DOC FILE
//*         (just above the CHANGE SECTION) for hints also.         *   DOC FILE
//*                                                                 *   DOC FILE
//*      C. WE WILL SOMETIMES CHANGE CODE THAT PEOPLE HAVE SENT     *   DOC FILE
//*         US.  WHEN WE DO, WE WILL TRY 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
//*      D. If you ever want to know what is on the current version *   DOC FILE
//*         of the tape call Sam Golob.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*           email:  sbgolob@attglobal.net or sbgolob@aol.com.     *   DOC FILE
//*                                                                 *   DOC FILE
//*         Also:  www.cbttape.org  has the information.            *   DOC FILE
//*                                                                 *   DOC FILE
//*      E. I don't think it's very relevant to make microfiche     *   DOC FILE
//*         of File 001 nowadays, especially since anyone can       *   DOC FILE
//*         download the real file (in ASCII or EBCDIC) from        *   DOC FILE
//*         the web:    http://www.cbttape.org.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*         (ARNIE USED TO DISTRIBUTE MICROFICHE OF FILE 001 OF     *   DOC FILE
//*         THE LATEST VERSION OF THIS TAPE AT S.C.I.D.S. DURING    *   DOC FILE
//*         EACH MAJOR SHARE MEETING.)                              *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//***SECTION PURGE AND REMOVAL SECTION                              *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*        P   U   R   G   E      S   E   C   T   I   O   N         *   DOC FILE
//*                                                                 *   DOC FILE
//*    R   E   M   O   V   A   L      S   E   C   T   I   O   N     *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*    I am trying to bring you as much material as possible.       *   DOC FILE
//*    I don't like to delete stuff; someone may need it badly.     *   DOC FILE
//*    Therefore, since both the CBT MVS Tape, and the CBT          *   DOC FILE
//*    Overflow Tape are now almost full, I was thinking of         *   DOC FILE
//*    making a third tape, but I decided to go to 3480 IDRC        *   DOC FILE
//*    for tape distribution, instead.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*    This tape currently overflows a 2400 foot reel, and also     *   DOC FILE
//*    overflows a 3480 uncompressed cartridge.  Since many people  *   DOC FILE
//*    go to the CBT web site nowadays, and don't get these         *   DOC FILE
//*    materials from physical tapes anymore, I'm going to 3480     *   DOC FILE
//*    IDRC tapes, and if someone can't use those, they should      *   DOC FILE
//*    email Sam Knutson at dragon@his.com , to get the materials   *   DOC FILE
//*    on a suitable medium.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//* --  >>>>>>                                           <<<<<<  -- *   DOC FILE
//* --  >>>>>>      I HAVE NOW ESTABLISHED A NEW "CBT    <<<<<<  -- *   DOC FILE
//* --  >>>>>>   OVERFLOW TAPE", WHICH CONTAINS MATERIAL <<<<<<  -- *   DOC FILE
//* --  >>>>>>   DELETED FROM THIS TAPE, AND MUCH MORE.  <<<<<<  -- *   DOC FILE
//* --  >>>>>>                                           <<<<<<  -- *   DOC FILE
//* --  >>>>>>     SEE FILE 071 FOR CONTENTS OF THE      <<<<<<  -- *   DOC FILE
//* --  >>>>>>         CBT    OVERFLOW    TAPE.          <<<<<<  -- *   DOC FILE
//* --  >>>>>>                                           <<<<<<  -- *   DOC FILE
//* --  >>>>>>   THE CBT OVERFLOW TAPE NOW CONTAINS ALL  <<<<<<  -- *   DOC FILE
//* --  >>>>>>    THE MATERIALS FROM THE SPLA MVS TAPE   <<<<<<  -- *   DOC FILE
//* --  >>>>>>                                           <<<<<<  -- *   DOC FILE
//* --  >>>>>>   The CBT Overflow Tape also contains all <<<<<<  -- *   DOC FILE
//* --  >>>>>>   the materials from the SHARE PL/1 Tape. <<<<<<  -- *   DOC FILE
//* --  >>>>>>                                           <<<<<<  -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//*******************************************************************   DOC FILE
//*******************************************************************   DOC FILE
//***SECTION INTERNET SECTION                                       *   DOC FILE
//*******************************************************************   DOC FILE
//*      I  N  T  E  R  N  E  T     S  E  C  T  I  O  N             *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*   In this Electronic Information Age, there is a need to look   *   DOC FILE
//*   for MVS or OS/390 information on the Internet.  I cannot      *   DOC FILE
//*   guarantee completeness here, because this section is new,     *   DOC FILE
//*   and I myself don't have so much surfing experience.  I will   *   DOC FILE
//*   try, in this section, to supply some places on the Internet   *   DOC FILE
//*   where you can start looking for the solution to a problem.    *   DOC FILE
//*                                                                 *   DOC FILE
//*   I do think that if you start from the LINKS button at         *   DOC FILE
//*   www.cbttape.org , or from Eric Loriaux' site, you probably    *   DOC FILE
//*   can eventually get to almost anywhere (unless it's really     *   DOC FILE
//*   really isolated).                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*   I am assuming that the readership of this file may be more    *   DOC FILE
//*   experienced than I am.  Therefore, if you know of any place   *   DOC FILE
//*   on the Internet where you can find MVS or OS/390 information, *   DOC FILE
//*   please email me at:                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*         sbgolob@attglobal.net   OR   sbgolob@aol.com            *   DOC FILE
//*                                                                 *   DOC FILE
//*   so I can check this out, and update this file and/or          *   DOC FILE
//*   Files 071, 050, and 051.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*   I have created File 050 which has URL's for free downloads    *   DOC FILE
//*   that are of interest to system programmers, and File 051      *   DOC FILE
//*   which has URL's of selected vendors.                          *   DOC FILE
//*                                                                 *   DOC FILE
//* ----------------------- LIST OF SOURCES ----------------------- *   DOC FILE
//*                                                                 *   DOC FILE
//*   000  -  WWW.CBTTAPE.ORG -  HAS A LINK TO AN FTP SITE WHICH    *   DOC FILE
//*                              CONTAINS ALL OF THE CBT MATERIALS  *   DOC FILE
//*                              IN "MAINFRAME UPLOADABLE" FORM.    *   DOC FILE
//*                              There's other stuff there also,    *   DOC FILE
//*                              and a LINKS button.                *   DOC FILE
//*                                                                 *   DOC FILE
//*                              THIS MEANS THAT ALL FILES ARE IN   *   DOC FILE
//*                              PKZIP'ED XMIT FORMAT (IN EBCDIC)   *   DOC FILE
//*                              AND NEED ONLY TO BE PKUNZIP'ED,    *   DOC FILE
//*                              UPLOADED TO THE MAINFRAME IN       *   DOC FILE
//*                              BINARY, AND YOU HAVE TO DO A       *   DOC FILE
//*                              TSO RECEIVE INDATASET( ) ON THE    *   DOC FILE
//*                              FILE, TO CREATE A PDS, OR A        *   DOC FILE
//*                              SEQUENTIAL DATASET IN EBCDIC.      *   DOC FILE
//*                                                                 *   DOC FILE
//*                      --->>>  THIS SITE IS COMPLETELY PUBLIC.    *   DOC FILE
//*                                                                 *   DOC FILE
//*   001  -  WWW.XEPHON.COM  -  HAS FREE DOWNLOADS OF ARTICLES AND *   DOC FILE
//*                              CODE FROM ALL THE XEPHON JOURNALS  *   DOC FILE
//*                              THAT ARE MORE THAN 2 YEARS OLD.    *   DOC FILE
//*                              MORE RECENTLY PUBLISHED ARTICLES   *   DOC FILE
//*                              AND CODE ARE AVAILABLE TO XEPHON   *   DOC FILE
//*                              SUBSCRIBERS.  FILE 071 HAS A LIST  *   DOC FILE
//*                              OF DOWNLOADABLE ARTICLES FROM      *   DOC FILE
//*                              THIS SITE.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*   002  -  IBM-MAIN@BAMA.UA.EDU  -  IBM MAIN IS A SUBSCRIBER     *   DOC FILE
//*                              LIST THAT POSTS MVS INFORMATION,   *   DOC FILE
//*           (IBM-MAIN)         QUESTIONS, AND ANSWERS.  YOU HAVE  *   DOC FILE
//*                              TO SUBSCRIBE, BY SENDING AN EMAIL  *   DOC FILE
//*                              CONTAINING THE FOLLOWING TEXT:     *   DOC FILE
//*                                                                 *   DOC FILE
//*                SUBSCRIBE IBM-MAIN                               *   DOC FILE
//*                                                                 *   DOC FILE
//*                         TO LISTSERV@BAMA.UA.EDU                 *   DOC FILE
//*                                                                 *   DOC FILE
//*                              DON'T INCLUDE ANY EXTRA WORDS.     *   DOC FILE
//*                              YOU WILL GET A REPLY CONTAINING    *   DOC FILE
//*                              AN AUTHORIZATION CODE.  REPLY IN   *   DOC FILE
//*                              AN EMAIL MESSAGE:  OK XXXXXX       *   DOC FILE
//*                              WHERE XXXXXX IS THE AUTH CODE      *   DOC FILE
//*                              THEY SEND YOU.  YOU WILL GET AN    *   DOC FILE
//*                              EMAIL WITH A SHORT INSTRUCTION     *   DOC FILE
//*                              LIST, AND YOU'RE ON YOUR WAY.      *   DOC FILE
//*                                                                 *   DOC FILE
//*           THE IBM-MAIN LIST SERVER HAS INSTRUCTIONS ON HOW      *   DOC FILE
//*           TO FIND OTHER MAILING LISTS.  SEND A MESSAGE TO       *   DOC FILE
//*           LISTSERV@BAMA.UA.EDU WITH THE WORDS:   INFO REFCARD   *   DOC FILE
//*                                                                 *   DOC FILE
//*           AND LOOK UP THE KEYWORD:   LISTS                      *   DOC FILE
//*                                                                 *   DOC FILE
//*   003  -  ERIC LORIAUX'S HOME PAGE -  Eric Loriaux is a         *   DOC FILE
//*              Systems Programmer in Belgium who has tried        *   DOC FILE
//*           to create a place to point to all kinds of OS/390     *   DOC FILE
//*           and S/390 information.  He has a site in Belgium      *   DOC FILE
//*           and a mirror site in the U.S.  They are:              *   DOC FILE
//*                                                                 *   DOC FILE
//*               Belgium:   http://www.ping.be/~ping1475           *   DOC FILE
//*                                                                 *   DOC FILE
//*               U.S.   :   http://www.loriaux.com/s390            *   DOC FILE
//*                                                                 *   DOC FILE
//*           This site is very (I mean VERY) helpful.              *   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
//*  - ==   See Files 050 and 051 for URLs that you can       == -  *   DOC FILE
//*  - ==   download software from.                           == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==   File 050 lists locations which have free          == -  *   DOC FILE
//*  - ==   downloads.                                        == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==   File 051 lists vendor locations which might be    == -  *   DOC FILE
//*  - ==   useful for sysprogs to know about.                == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==   The tapes and software sources I know about are:  == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==      0  THE "CBT OVERFLOW TAPE" WHICH CONTAINS      == -  *   DOC FILE
//*  - ==         MATERIALS DELETED FROM THIS TAPE AFTER      == -  *   DOC FILE
//*  - ==         VERSION 404, AND MUCH MORE MATERIAL.        == -  *   DOC FILE
//*  - ==         EXAMPLES ARE THE UK, GERMAN, SWISS, AND     == -  *   DOC FILE
//*  - ==         AUSTRALIAN "G.U.I.D.E." TAPES, AND THE      == -  *   DOC FILE
//*  - ==         MATERIAL FROM THE SHARE ISPF "SMOKE AND     == -  *   DOC FILE
//*  - ==         MIRRORS TAPE", WHICH NEVER GOT OFF THE      == -  *   DOC FILE
//*  - ==         GROUND, BUT WHICH HAS SOME GOOD MATERIAL.   == -  *   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
//*  - ==                                                     == -  *   DOC FILE
//*  - ==         THE CBT OVERFLOW TAPE NOW CONTAINS THE      == -  *   DOC FILE
//*  - ==         ENTIRE CONTENTS OF THE SHARE PL/1 TAPE.     == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==         THE CBT OVERFLOW TAPE CAN BE OBTAINED       == -  *   DOC FILE
//*  - ==         THE SAME SOURCES WHERE THE REGULAR CBT      == -  *   DOC FILE
//*  - ==         TAPE IS AVAILABLE.                          == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==         SEE  http://www.cbttape.org                 == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==         for file downloads from the CBT Overflow    == -  *   DOC FILE
//*  - ==         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), which    == -  *   DOC FILE
//*  - ==         has been further updated by me (SG) as      == -  *   DOC FILE
//*  - ==         I've deemed necessary.                      == -  *   DOC FILE
//*  - ==                                                     == -  *   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.  These have   == -  *   DOC FILE
//*  - ==         become the SHARE cd-rom, but that cd-rom    == -  *   DOC FILE
//*  - ==         has not been updated for several years.     == -  *   DOC FILE
//*  - ==         I happen to have a copy of it, and if       == -  *   DOC FILE
//*  - ==         anyone is interested, they should please    == -  *   DOC FILE
//*  - ==         email me.                                   == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==      sbgolob@attglobal.net and/or sbgolob@aol.com   == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==         SHARE now has a web site at www.share.org   == -  *   DOC FILE
//*  - ==         and they may be distributing some software  == -  *   DOC FILE
//*  - ==         there.  However, it might be "members       == -  *   DOC FILE
//*  - ==         only", so you have to check out their site  == -  *   DOC FILE
//*  - ==         to see what their current policy is.        == -  *   DOC FILE
//*                                                                 *   DOC FILE
//*       IF YOUR INSTALLATION IS A SHARE MEMBER YOU MAY WISH       *   DOC FILE
//*       TO CONTACT SHARE HEADQUARTERS IN CHICAGO TO SEE IF        *   DOC FILE
//*       YOU CAN GET THE LATEST SET OF SHARE SOFTWARE ON           *   DOC FILE
//*       DISKETTES OR CD-ROM.  THIS DEPENDS IF THEY HAVE IT        *   DOC FILE
//*       IN STOCK.  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
//*                    888-574-2735    Toll Free                    *   DOC FILE
//*                    312-321-5160    Phone (and International)    *   DOC FILE
//*                    312-822-0932    Fax                          *   DOC FILE
//*                    312-644-6363    Fax                          *   DOC FILE
//*                                                                 *   DOC FILE
//*       As of this writing, Pete is also the webmaster at         *   DOC FILE
//*       the SHARE web site:                                       *   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
//*  - ==         Contents are now on 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
//*  - ==         Contents are now on 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 422V, 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 materials from this tape are now on     == -  *   DOC FILE
//*  - ==         Files 260 thru 295 of the CBT Overflow      == -  *   DOC FILE
//*  - ==         Tape.                                       == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==  NOTE:  "SHARE" HAS DISCONTINUED THE CONTRACT OF    == -  *   DOC FILE
//*  - ==         S.P.L.A.  WHICH IS THE SHARE PROGRAM        == -  *   DOC FILE
//*  - ==         LIBRARY AGENCY.  FOR NOW, IF YOU HAVE       == -  *   DOC FILE
//*  - ==         ANY ORDER REQUESTS FROM S.P.L.A., PLEASE    == -  *   DOC FILE
//*  - ==         CONTACT SAM GOLOB.                          == -  *   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 THERE.  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
//*  - ==      Since I now maintain the files from the SHARE  == -  *   DOC FILE
//*  - ==      MVS Tape on the CBT Overflow Tape, anyone who  == -  *   DOC FILE
//*  - ==      has modifications to the code, should contact  == -  *   DOC FILE
//*  - ==      me, Sam Golob, at sbgolob@attglobal.net or     == -  *   DOC FILE
//*  - ==      sbgolob@aol.com  phone: 845-362-1996.          == -  *   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 TO      == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==      Sam Golob :   sbgolob@attglobal.net and/or     == -  *   DOC FILE
//*  - ==                    sbgolob@aol.com                  == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==      Please follow these contribution directions    == -  *   DOC FILE
//*  - ==      for CBT Tape materials:  If possible, make     == -  *   DOC FILE
//*  - ==      a pds on an MVS system, please include some    == -  *   DOC FILE
//*  - ==      documentation members--and put the pds into    == -  *   DOC FILE
//*  - ==      TSO XMIT format using the OUTDSN( ) and        == -  *   DOC FILE
//*  - ==      DSN( ) parameters of the XMIT command.         == -  *   DOC FILE
//*  - ==      Download (in binary - no translation) the      == -  *   DOC FILE
//*  - ==      sequential FB-80 XMIT-format file to a pc,     == -  *   DOC FILE
//*  - ==      and attach that file to an email to me.        == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==      That's all there is to it!                     == -  *   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, whichever the latest version   == -  *   DOC FILE
//*  - ==         is.                                         == -  *   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
//*          (NASPA HAS 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 was     == -  *   DOC FILE
//*  - ==       distributed by SPLA.  I'd suggest calling     == -  *   DOC FILE
//*  - ==       Barry Brooks to see if he can get you a       == -  *   DOC FILE
//*  - ==       copy.                                         == -  *   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 LATER   == -  *   DOC FILE
//*  - ==       CICS 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" .                == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ========================================================= -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==  THE ENTIRE CONTENTS OF THE SHARE COMMITTEE MVS     == -  *   DOC FILE
//*  - ==  TAPE, VERSION 46 (THE LAST ONE) HAS BEEN MOVED     == -  *   DOC FILE
//*  - ==  TO THE CBT OVERFLOW TAPE.  ANY UPDATES (IF NEEDED) == -  *   DOC FILE
//*  - ==  WILL BE MADE TO THE CBT OVERFLOW TAPE.             == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ========================================================= -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==  All files from the SHARE PL/1 Tape have now been   == -  *   DOC FILE
//*  - ==  moved to Files 260 through 295 of the CBT Overflow == -  *   DOC FILE
//*  - ==  Tape.                                              == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ========================================================= -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==   The CBT Overflow Tape Files are obtainable on     == -  *   DOC FILE
//*  - ==   the web at:    www.cbttape.org                    == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==   Click on "Download Overflow".                     == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==   To order the CBT OVERFLOW TAPE, please contact    == -  *   DOC FILE
//*  - ==   NaSPA.  Or duplicate a tape from someone else     == -  *   DOC FILE
//*  - ==   if they have one.  You can freely make your own   == -  *   DOC FILE
//*  - ==   copies also.                                      == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==     NaSPA:    www.naspa.net                         == -  *   DOC FILE
//*  - ==               414-768-8000                          == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==   If you're stuck, contact Sam Golob  845-362-1996  == -  *   DOC FILE
//*  - ==       sbgolob@attglobal.net or sbgolob@aol.com      == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==   or contact Sam Knutson at webmaster@cbttape.org   == -  *   DOC FILE
//*  - ==                          or dragon@his.com          == -  *   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
//*  - ==       SHARE TAPE (for OS/VS1) CALL                  == -  *   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                         == -  *   DOC FILE
//*  - ==          CONTACT FRED ROBINSON AT 305-284-6257.     == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==  The JES2 Modification tape files are now online    == -  *   DOC FILE
//*  - ==  at the CBT Web Site:                               == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==       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 (352) 392-4601                             == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==    email:  schudel@ufl.edu                          == -  *   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
//*  - ==          email:    alan.field@supervalu.com         == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==  The JES3 Modification tape files are now online    == -  *   DOC FILE
//*  - ==  at the CBT Web Site:                               == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==       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
//***SECTION OVERSEAS TAPE SHIPPING SECTION                         *   DOC FILE
//*******************************************************************   DOC FILE
//*       O V E R S E A S     T A P E     S E C T I O N             *   DOC FILE
//*******************************************************************   DOC FILE
//*  -------------------------------------------------------------  *   DOC FILE
//*  - ========================================================= -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==    This section is a bit obsolete, since I accept   == -  *   DOC FILE
//*  - ==    contributions for the CBT Tape mostly from the   == -  *   DOC FILE
//*  - ==    Internet.  My Internet email addresses are:      == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==       sbgolob@attglobal.net or sbgolob@aol.com      == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==    Usually, contributors make a pds on MVS,         == -  *   DOC FILE
//*  - ==    including documentation members, put the pds     == -  *   DOC FILE
//*  - ==    into TSO XMIT format using the OUTDSN( )         == -  *   DOC FILE
//*  - ==    keyword of XMIT, download the XMIT-format        == -  *   DOC FILE
//*  - ==    sequential dataset, in binary, to a pc, and      == -  *   DOC FILE
//*  - ==    then they attach the pc file to an email to      == -  *   DOC FILE
//*  - ==    me.  If the pc file is large, they can pkzip     == -  *   DOC FILE
//*  - ==    it first.                                        == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==    With that file, I can reconstruct their pds,     == -  *   DOC FILE
//*  - ==    and stage their file for inclusion in the CBT    == -  *   DOC FILE
//*  - ==    Tape.  This can be done from any country in      == -  *   DOC FILE
//*  - ==    the world.                                       == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==    I very much appreciate contributions from        == -  *   DOC FILE
//*  - ==    outside the United States, and will try to       == -  *   DOC FILE
//*  - ==    extend every courtesy to contributors and        == -  *   DOC FILE
//*  - ==    well wishers from "abroad".                      == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==    IF ANYONE HAS A COPY OF A FREE SOFTWARE TAPE     == -  *   DOC FILE
//*  - ==    FOR MVS FROM ANY COUNTRY (SUCH AS THE UK GUIDE   == -  *   DOC FILE
//*  - ==    TAPE, ETC.), I WOULD APPRECIATE FOR YOU TO SEND  == -  *   DOC FILE
//*  - ==    ME A COPY OF IT, AND I WILL TRY AND RECIPROCATE  == -  *   DOC FILE
//*  - ==    BY SENDING A CBT TAPE TO YOU.  THANK YOU VERY    == -  *   DOC FILE
//*  - ==    MUCH. (IT'S HARD TO GET THAT STUFF OVER HERE.)   == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==    If for some reason, you try to call or write me  == -  *   DOC FILE
//*  - ==    and I don't answer, it was an oversight.  The    == -  *   DOC FILE
//*  - ==    recommended method of getting a response from    == -  *   DOC FILE
//*  - ==    me is to keep trying.  I do not get insulted or  == -  *   DOC FILE
//*  - ==    bothered when someone tries to contact me 30     == -  *   DOC FILE
//*  - ==    times.  (Hope that isn't necessary.)  I try...   == -  *   DOC FILE
//*  - ==    to serve the public as best I can. (SG 6/11/93)  == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ========================================================= -  *   DOC FILE
//*******************************************************************   DOC FILE
//***SECTION PDS ENQUEUE APAR SECTION                               *   DOC FILE
//*******************************************************************   DOC FILE
//*       P D S   E N Q U E U E   S E C T I O N                     *   DOC FILE
//*******************************************************************   DOC FILE
//*  -------------------------------------------------------------  *   DOC FILE
//*  - ========================================================= -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==              IBM AND PDS ENQUEUE                    == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==  You may want to search INFO/MVS for the PTF called == -  *   DOC FILE
//*  - ==  UY15908 which is going to put out an ENQUEUE on a  == -  *   DOC FILE
//*  - ==  pds when it is opened.  Good idea except when      == -  *   DOC FILE
//*  - ==  someone else comes along and tries to open it, the == -  *   DOC FILE
//*  - ==  second job gets abended, great for those long      == -  *   DOC FILE
//*  - ==  running SMP jobs.  Be alert to the fact that IBM   == -  *   DOC FILE
//*  - ==  is going to do us in again!  Too little too late   == -  *   DOC FILE
//*  - ==  again, from one extreme to another.                == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==  NOTE.  FOR ONE SOLUTION TO THIS PROBLEM, SEE THE   == -  *   DOC FILE
//*  - ==         S213RC30 PROGRAM ON FILE 163.  UNDOUBTEDLY  == -  *   DOC FILE
//*  - ==         THERE ARE OTHER SOLUTIONS TOO.              == -  *   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 WHICH FILES ON THIS TAPE WERE       *   DOC FILE
//*   UPDATED since any previous date, the best way is to use       *   DOC FILE
//*   the FILE STATUS SECTION BELOW.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*   THE DATE NEXT TO EACH FILE NUMBER IS THE MOST ACCURATE        *   DOC FILE
//*   INDICATOR as to when that file was actually changed last.     *   DOC FILE
//*                                                                 *   DOC FILE
//*   FOR EXAMPLE:                                                  *   DOC FILE
//*                                          --------               *   DOC FILE
//* INFOTAPE         043 CBT       20     .0 09-10-92      255    NO*   DOC FILE
//* ASMTOZAP         044 CSC      780 S   .9 04-17-94      080 YES  *   DOC FILE
//* PDS COMPARE      045 CBT     1732    1.9 12-06-81      080 YES  *   DOC FILE
//* TSO SCRATCH      046 CBT     1340     .9 11-01-88      080 YES  *   DOC FILE
//* NOCELL-LISTICAT  047 UNKCBT 74311 S 49.1 12-28-93      080 YES  *   DOC FILE
//*                                          --------               *   DOC FILE
//*                                          USE THIS               *   DOC FILE
//*                                          DATE ...               *   DOC FILE
//*                                                                 *   DOC FILE
//*   These file dates correspond to actual version release dates,  *   DOC FILE
//*   and they can be compared to the dates in the VERSION SECTION  *   DOC FILE
//*   below, so you can see which version had that update.          *   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-429 SECTION                                          *   DOC FILE
//*  V-429  CHANGES FOR VERSION 429 SEP 10, 2000                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        00  I have taken advantage of the fact that I have all   *   DOC FILE
//*            the CBT Tape files on disk, and I have made an       *   DOC FILE
//*            attempt to update all of my address and email        *   DOC FILE
//*            information on all of the files which mention my     *   DOC FILE
//*            name.  I have not reflected these changes in the     *   DOC FILE
//*            dates that are in the File Status Section of this    *   DOC FILE
//*            doc.  But you can probably see most of them in the   *   DOC FILE
//*            ISPF stats for the members changed.  I did make a    *   DOC FILE
//*            few of the changes with the stats unaltered.         *   DOC FILE
//*                                                                 *   DOC FILE
//*            My address is:   Sam Golob, P.O. Box 906             *   DOC FILE
//*                             Tallman, NY 10982-0906              *   DOC FILE
//*                    phone:   845-362-1996                        *   DOC FILE
//*                      fax:   845-362-5843                        *   DOC FILE
//*                                                                 *   DOC FILE
//*                    email:   sbgolob@attglobal.net  and/or       *   DOC FILE
//*                             sbgolob@aol.com                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 312 from Lionel Dyck.  XMITIP has     *   DOC FILE
//*            a few revisions.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 432 from Thierry Falissard.  His JCL  *   DOC FILE
//*            for a one pack "Rescue system", called MINISYST,     *   DOC FILE
//*            had been written in French.  Thierry made an English *   DOC FILE
//*            version.  MINISYSF is the French version now.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 434 with a couple of changes from     *   DOC FILE
//*            Mark Zelden.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Addition of File 478 from Jan Jaeger, which is his   *   DOC FILE
//*            RAWSTAPE program that reads and copies a "tape file" *   DOC FILE
//*            from a virtual tape (on disk) in AWS format.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Addition of File 479 from Paul W. Lemons, which      *   DOC FILE
//*            currently contains 3 programs.  BCEDIT allows you    *   DOC FILE
//*            to SPFEDIT and change the Notices (sent to all TSO   *   DOC FILE
//*            users) messages on SYS1.BRODCAST.  BKSEARCH allows   *   DOC FILE
//*            you to find stuff in BOOKMANAGER books under TSO.    *   DOC FILE
//*            YAHTZEE is a single-player yahtzee game.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Addition of Files 480 and 481 of Baldomero Castilla  *   DOC FILE
//*            of Madrid, Spain.  This is a collection of utilities *   DOC FILE
//*            with the source code on File 480 and the load        *   DOC FILE
//*            modules on File 481.  Baldomero has commented his    *   DOC FILE
//*            code in Spanish, but he understands written English  *   DOC FILE
//*            and he can support his stuff.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Addition of File 482 from Eric Bielefeld, containing *   DOC FILE
//*            the GDGCOPY program, to copy one GDG to another GDG  *   DOC FILE
//*            and retaining the order, earliest version first.     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-428 SECTION                                          *   DOC FILE
//*  V-428  CHANGES FOR VERSION 428 AUG 23, 2000                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 035 to contain DAF Version 2.6        *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 071 to fix JES3 documentation.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 094 to contain Version 2.6 of DAF.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to Files 107 and 108 from Jim Blalock.        *   DOC FILE
//*            This is the Clemson University Structured Macro      *   DOC FILE
//*            collection and SAMPLIB.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 171 to change the name of the         *   DOC FILE
//*            SMFUTIL utility to SMFSPLIT.  SMFUTIL is a name      *   DOC FILE
//*            that has been copyrighted by a vendor.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 229 to add some documentation for     *   DOC FILE
//*            the admissible parms in the COPYMODS program.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Deletion of File 267.  The same material can be      *   DOC FILE
//*            found in File 431 (TSOREXX functions).               *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Addition of FIle 297 from Mike Cleary.  This is      *   DOC FILE
//*            his GRS ISPF interface, which was downloaded from    *   DOC FILE
//*            his web site.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 302 from Mike Cleary, with the        *   DOC FILE
//*            latest version of his LPA-LINKLIST utility from      *   DOC FILE
//*            his web site.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Addition of File 474 from Rob Wunderlich.  This      *   DOC FILE
//*            file contains his LIBCLEAN utility that compares     *   DOC FILE
//*            members of 2 pds'es and allows you to make           *   DOC FILE
//*            intelligent decisions as to what to delete.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Addition of File 475 from Wayne Rhoten of IBM.       *   DOC FILE
//*            This file contains an explanation of the LBI         *   DOC FILE
//*            (Large Block Interface) from IBM, which will allow   *   DOC FILE
//*            QSAM and BSAM to write 64K blocks on a 3490, and     *   DOC FILE
//*            256K blocks on a 3590 tape, starting with OS/390     *   DOC FILE
//*            R2.10.  This paper will explain how to detect the    *   DOC FILE
//*            presence of LBI on your system, and how to program   *   DOC FILE
//*            for an R2.10 or a back-level system, when looking    *   DOC FILE
//*            at existing tapes.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Addition of File 476 from Steve Bacher and Kjeld     *   DOC FILE
//*            Hvatum.  This is an industrial strength LISP         *   DOC FILE
//*            compiler and ISPF interface for MVS.  This is a      *   DOC FILE
//*            major implementation of the LISP language.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Addition of File 477 from Brandon Hill.  This is     *   DOC FILE
//*            a program called AWSUTIL to create virtual tapes     *   DOC FILE
//*            in AWS format, either from disk data, or from real   *   DOC FILE
//*            tapes, or from a combination of both.                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-427 SECTION                                          *   DOC FILE
//*  V-427  CHANGES FOR VERSION 427 AUG 01, 2000                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 120 to add new articles.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 135 to reflect the new version of     *   DOC FILE
//*            SHOWMVS.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 171 to fix a problem in assembling    *   DOC FILE
//*            the TAPEMAP program that is from that file.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 172 from Dave Cartwright.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 260 from Charles Wells of the         *   DOC FILE
//*            Georgia Department of Labor, to add 3390-9 support   *   DOC FILE
//*            to the DISKMAP program.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 321 to the COBANAL program from       *   DOC FILE
//*            Roland Schiradin.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 454 from Sam Golob, to fix a big      *   DOC FILE
//*            omission to this file, that was my fault.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 457 to correct a JCL typo from me     *   DOC FILE
//*            in making Version 426 of this tape.  I'm putting     *   DOC FILE
//*            the proper file back into this slot.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Addition of File 473 from Scott Finlayson, which     *   DOC FILE
//*            is a program to tell you which ASID slots have been  *   DOC FILE
//*            used up, so they can't be reused until the next      *   DOC FILE
//*            IPL.  Shops which are up for a long time between     *   DOC FILE
//*            IPL's will find this program very useful.            *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-426 SECTION                                          *   DOC FILE
//*  V-426  CHANGES FOR VERSION 426 JUL 14, 2000                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 035 to update the COPYMODS load       *   DOC FILE
//*            module, add TCOPY, and change several others,        *   DOC FILE
//*            notably PDS 8.5 for Update 15, and TAPESCAN (5.2).   *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 102 from Sam Golob to apply his 64K   *   DOC FILE
//*            block fixes to Frank Pajerski's modifications of     *   DOC FILE
//*            Howard Dean's version of TAPESCAN.  That version     *   DOC FILE
//*            has much better 3480 support.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 120 from Sam Golob to add an article. *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 135 to include the latest version     *   DOC FILE
//*            of the PDS load module (8.5 Update 15), and of       *   DOC FILE
//*            SHOWMVS (6.24).                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 182 from John Kalinich to include     *   DOC FILE
//*            source for PDS Version 8.5, Update 15.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 183 from Gilbert Saint-flour to       *   DOC FILE
//*            reflect changes to SHOWMVS and other programs.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 193 from Sam Golob to give 64K        *   DOC FILE
//*            block support to the TCOPY program.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 229 from Sam Golob to make some more  *   DOC FILE
//*            enhancements to the COPYMODS program.  Under PARM    *   DOC FILE
//*            control, you can now optionally change a VOL1        *   DOC FILE
//*            label in the copied tapes to the volser in the JCL.  *   DOC FILE
//*            Also (under PARM control), you can change imbedded   *   DOC FILE
//*            EOV1 and EOV2 labels to EOF1 and EOF2 labels.        *   DOC FILE
//*            Also allows read-only on INPUT tape for display      *   DOC FILE
//*            of tape contents (i.e. a mapping function).          *   DOC FILE
//*            Fixed incorrect copying of IEHINITT-ed tapes.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 247 to change the default of the      *   DOC FILE
//*            BCMUSERS program to display only TSO users that      *   DOC FILE
//*            have outstanding messages.  To get all users, you    *   DOC FILE
//*            have to execute BCMUSERS A.  Also, considerable      *   DOC FILE
//*            ISPF support has been added to the Broadcast         *   DOC FILE
//*            Manager package in the form of CLISTs and PANELs.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 312 from Lionel Dyck to include       *   DOC FILE
//*            new releases of several of his packages, and a       *   DOC FILE
//*            PROCLIB display exec called LSTPROC.  Two versions   *   DOC FILE
//*            of LSTPROC are included, because Lionel's general    *   DOC FILE
//*            one doesn't work on my unusual JES2 proc.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 316 to correct the sample JCL to      *   DOC FILE
//*            execute the SPANCOPY program.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 322 which is a collection of TSO      *   DOC FILE
//*            SLEEP programs that wait for a time and then wake    *   DOC FILE
//*            up.  A new one called SLEEPR by Gary Scarcella       *   DOC FILE
//*            uses REXX UNIX services.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to Files 409 and 410, which is MXI from       *   DOC FILE
//*            Rob Scott.  MXI is now at Version level 2.2a.        *   DOC FILE
//*            Update level is dated 07-13-00.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*          Version 2.2a   enhancements                            *   DOC FILE
//*                                                                 *   DOC FILE
//*          (1) Ability to issue operator commands                 *   DOC FILE
//*          (2) Ability to change the swappability of any          *   DOC FILE
//*              address space                                      *   DOC FILE
//*          (3) Addition of the JOB() and ASID() keywords to the   *   DOC FILE
//*              TCB and CDE commands (ie they now work x-memory).  *   DOC FILE
//*          (4) Addition of a security table for authorized        *   DOC FILE
//*              commands (required if (1) and (2) exist!).         *   DOC FILE
//*          (5) Ability to list online channel paths               *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Addition of File 425 which is an IEFUSI exit from    *   DOC FILE
//*            Mike Loos.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*                 Mike Loos                                       *   DOC FILE
//*                 VP of Ops and Tech Support                      *   DOC FILE
//*                 Fair, Isaac and Company, Inc.                   *   DOC FILE
//*                 4295 Lexington Avenue North                     *   DOC FILE
//*                 St. Paul, MN  55126                             *   DOC FILE
//*                 mikeloos@fairisaac.com                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 434 from Mark Zelden.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Addition of File 448 from Mark Lawrence of Stanford  *   DOC FILE
//*            University in California.  This is a package to      *   DOC FILE
//*            introduce today's date into system global variables. *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Addition of File 449 from Keith Moe of Amdahl, to    *   DOC FILE
//*            provide an interface to IBM's BOOKMANAGER which is   *   DOC FILE
//*            very convenient to use, once it is set up.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Addition of File 450 from Manish Verma of India,     *   DOC FILE
//*            to provide a REXX exec that does character string    *   DOC FILE
//*            searches globally.  You can search a whole volume,   *   DOC FILE
//*            or dataset pattern by volume, or dataset pattern     *   DOC FILE
//*            by catalog.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Addition of File 451 from Gary Scarcella to include  *   DOC FILE
//*            two REXX execs called CUTCLEAR and SUBCAN.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Addition of File 452 from Dan Dalby, which is a      *   DOC FILE
//*            collection of his programs and utilities.            *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-425 SECTION                                          *   DOC FILE
//*  V-425  CHANGES FOR VERSION 425 MAY 22, 2000                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 035 to update the COPYMODS load       *   DOC FILE
//*            module so it matches source code on File 229.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 120 from Sam Golob to add another     *   DOC FILE
//*            article.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 229 from Sam Golob to make an easy    *   DOC FILE
//*            update to COPYMODS that reworks the PARM keyword     *   DOC FILE
//*            structure.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 312 from Lionel Dyck to include a     *   DOC FILE
//*            new release of XMITIP.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 314 from Dave Lees to include an      *   DOC FILE
//*            entire collection of his programs, instead of just   *   DOC FILE
//*            a couple of them.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to Files 361 and 362 from Frank Johnston to   *   DOC FILE
//*            fix some problems.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 434 from Mark Zelden.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Addition of File 447 from Rick Fochtman, which is    *   DOC FILE
//*            several programs to add console messages for GRS,    *   DOC FILE
//*            so that some of the extra serviceability that is     *   DOC FILE
//*            in MIM, can also be had in GRS.                      *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-424 SECTION                                          *   DOC FILE
//*  V-424  CHANGES FOR VERSION 424 MAY 10, 2000                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 035 to reflect load module changes    *   DOC FILE
//*            for the tape copying program COPYMODS which can      *   DOC FILE
//*            now copy tape files that are blocked up to 64K,      *   DOC FILE
//*            and for other programs--among them COPYNLNL,         *   DOC FILE
//*            PDS 8.5.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 102 from Sam Golob, to fix TAPESCAN   *   DOC FILE
//*            so it can read and copy up to 64K block sizes of     *   DOC FILE
//*            files on tape.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 120 from Sam Golob to add more        *   DOC FILE
//*            articles.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to Files 134 and 135 from Greg Price to       *   DOC FILE
//*            bring REVIEW to the 32.2 level.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 172 from Dave Cartwright, to          *   DOC FILE
//*            refresh the contents of his large utility            *   DOC FILE
//*            collection.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 179 from Leonard Woren to update      *   DOC FILE
//*            the macros in his macro library.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*            Leonard Woren's web site address:                    *   DOC FILE
//*                                                                 *   DOC FILE
//*              http://www.best.com/~ldw/mvs                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 182 from John Kalinich to fix         *   DOC FILE
//*            the PDS 8.5 package.  Update from Bruce Leland       *   DOC FILE
//*            to PDS 8.5, to add two load modules he wrote         *   DOC FILE
//*            for STARTOOL (the vendor version), so PDS will       *   DOC FILE
//*            interface with COMPARE programs SuperC and           *   DOC FILE
//*            COMPAREX.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 183 from Gilbert Saint-flour with     *   DOC FILE
//*            new enhancements to his programs.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 200 from Sam Golob to make the        *   DOC FILE
//*            WHATSNEW and WHEREUSD programs Y2K compliant.        *   DOC FILE
//*            (By authority of this tape's disclaimer, all         *   DOC FILE
//*            claims of "Y2K compliance" on this tape are          *   DOC FILE
//*            officially null and void.  Use on your own           *   DOC FILE
//*            responsibility.)                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 229 from Sam Golob to enhance the     *   DOC FILE
//*            COPYMODS program in several ways.  First, it can     *   DOC FILE
//*            now copy 64K blocks, so you can make duplicates of   *   DOC FILE
//*            your favorite FDR and DFDSS backups.  Second, it     *   DOC FILE
//*            can now copy up to 16 tapes at one time, from one    *   DOC FILE
//*            original tape, provided you have enough tape drives. *   DOC FILE
//*            At least you have 6 new ddnames to choose from.      *   DOC FILE
//*            Third, COPYMODS no longer gets fooled by a null SL   *   DOC FILE
//*            tape file, which looks like:  HDR1, HDR2, TM, TM,    *   DOC FILE
//*            EOF1, EOF2.  It used to see the 2 tape marks and     *   DOC FILE
//*            stop.  Now it's smart enough to see 2 TMs after a    *   DOC FILE
//*            HDR1 or a HDR2 and keep going.  Can now optionally   *   DOC FILE
//*            print SL information if it finds it.  COPYMODS now   *   DOC FILE
//*            has a new table-driven PARM parser that is worth     *   DOC FILE
//*            looking at, in its own right.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to the TAPEMAP program on File 299 from       *   DOC FILE
//*            Sam Golob, to kludge a fix to the reports, so        *   DOC FILE
//*            that the day of the week comes out right after       *   DOC FILE
//*            the Year 2000 has come.  Just one extra              *   DOC FILE
//*            instruction, boosting the day of the week by 2.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Multiple updates to File 312 from Lionel Dyck.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to the CT program on File 316 from Sam        *   DOC FILE
//*            Golob, so it can now copy tapes with up to 64K       *   DOC FILE
//*            block sizes.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 321 from Roland Schiradin to          *   DOC FILE
//*            enhance the COBANAL program.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 357 from Carl Hafner to enhance       *   DOC FILE
//*            his 5 PDS maintenance utilities further.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 391 from Robert Ngan to enhance       *   DOC FILE
//*            his Trace390 program.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to Files 409 and 410 from Rob Scott to        *   DOC FILE
//*            bring MXI up to Level 2.1e, plus a load module       *   DOC FILE
//*            update to fix a few bugs.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 431 from Steve Bacher to add to       *   DOC FILE
//*            his utilities collection.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 442 from Tetsuya Kimura (Kimu)        *   DOC FILE
//*            to improve his REVIVE program, that restores         *   DOC FILE
//*            deleted pds members.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Addition of File 445 from Chris Kendon, which is     *   DOC FILE
//*            an object deck disassembler that originally came     *   DOC FILE
//*            from the UK GUIDE Tape.  Chris upgraded it and       *   DOC FILE
//*            improved it a lot, teaching it XA and ESA instruc-   *   DOC FILE
//*            tions, among other improvements.  FYI, an object     *   DOC FILE
//*            deck disassembler disassembles FB-80 object          *   DOC FILE
//*            decks, as opposed to an ordinary (load module)       *   DOC FILE
//*            disassembler, which disassembles RECFM=U load        *   DOC FILE
//*            modules.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Addition of File 446 from John McKown, which is      *   DOC FILE
//*            a COBOL program that accesses and uses OS/390        *   DOC FILE
//*            UNIX System Services.  This is good as a coding      *   DOC FILE
//*            example.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-423 SECTION                                          *   DOC FILE
//*  V-423  CHANGES FOR VERSION 423 FEB 22, 2000                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 035 to reflect load module changes    *   DOC FILE
//*            in load modules:  DAF, ARCHIVER, COPYFILE,           *   DOC FILE
//*            COPYSLNL, PDSLOAD, and PDS85.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Replacement to File 069 from Carmine Cannatello      *   DOC FILE
//*            to provide all the machine-readable coding examples  *   DOC FILE
//*            from the Second Edition of his Assembler Language    *   DOC FILE
//*            text book, instead of from the First Edition,        *   DOC FILE
//*            which is now out of print.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 088 from Brian Westerman, to add      *   DOC FILE
//*            ten new programs to the file.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 093 from Sam Golob, to fix the        *   DOC FILE
//*            UPDTE and PDSLOAD programs.  PDSLOAD was fixed to    *   DOC FILE
//*            handle the fact that the STARTOOL SEPARATE command   *   DOC FILE
//*            gave different representations of ISPF statistics    *   DOC FILE
//*            in its ./ ADD NAME= cards than LISTPDS and REVIEW    *   DOC FILE
//*            and OFFLOAD did.  STARTOOL will change soon, but     *   DOC FILE
//*            PDSLOAD can now read both formats, so the STARTOOL   *   DOC FILE
//*            ./ ADD cards can be rescued without needing to use   *   DOC FILE
//*            the STARTOOL COMBINE command.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 120 from Sam Golob, to add some       *   DOC FILE
//*            more recent articles to the collection.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 134 from Greg Price, to bring         *   DOC FILE
//*            REVIEW to the 32.1 level.  TERMTEST was also         *   DOC FILE
//*            enhanced.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 135 from Greg Price.  This is his     *   DOC FILE
//*            load library.  PDS 8.5 was also raised to the        *   DOC FILE
//*            8.5.13 level, as per File 182.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 147 to fix the installation           *   DOC FILE
//*            procedure for ASMA90.  The ARCHIVER had already      *   DOC FILE
//*            been 'Y2K'-ized in its last update.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 171 from its author, and from         *   DOC FILE
//*            Sam Golob.  The STARTOOL-format ISPF stats were      *   DOC FILE
//*            all changed to LISTPDS format.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 182 from John Kalinich, to raise      *   DOC FILE
//*            PDS 8.5 to modification level 13.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 296 to fix the COMPARE program,       *   DOC FILE
//*            which ran out of addressability when it was          *   DOC FILE
//*            assembled with OS/390 Release 2.6 macros.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 299 from John Hallgren, to fix a      *   DOC FILE
//*            density reporting problem when reading RS6000        *   DOC FILE
//*            tapes.                                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 300 to fix the JULIAN date convert    *   DOC FILE
//*            routine in several different ways.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Many updates to File 312 from Lionel Dyck, to add    *   DOC FILE
//*            more utilities, and to update FTPBATCH and XMITIP    *   DOC FILE
//*            several modification levels.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 316 from Sam Golob, to fix the        *   DOC FILE
//*            COPYFILE and COPYSLNL programs so they will read     *   DOC FILE
//*            and copy up to 64K blocks on a tape, instead of      *   DOC FILE
//*            just being limited to 32K blocks.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 321 by Fritz Alber, to update his     *   DOC FILE
//*            ISPF interface to Roland Schiradin's COBOL analysis  *   DOC FILE
//*            program.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 330 by Fritz Alber, to update the     *   DOC FILE
//*            ISPF interface to COBA, and also to add an ISPF      *   DOC FILE
//*            interface to some CICS records.  This new applica-   *   DOC FILE
//*            tion will analyze CICS CSD records that are          *   DOC FILE
//*            produced by the program DFH$FORA.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 344 from Joerg Berning, to add a      *   DOC FILE
//*            whole collection of REXX utility programs and to     *   DOC FILE
//*            enhance the LISTVTOC exec further.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 357 from Carl Hafner, which is a      *   DOC FILE
//*            complete refresh of his pds tools, and which adds    *   DOC FILE
//*            a couple of new ones.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Update to File 394 from Jan Jakubek, to enhance      *   DOC FILE
//*            his KSDSPACE program.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Update to Files 409 and 410 from Rob Scott, to       *   DOC FILE
//*            reflect MXI Level 2.1d.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Update to File 411 from Rob Scott, to add two new    *   DOC FILE
//*            utilities, CONFIGXX and VARYDASD.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Update to File 433 from Frank Clarke, which is the   *   DOC FILE
//*            VB-255 version of his REXX execs.  The FB-80         *   DOC FILE
//*            derivation on File 435 has not been changed, but     *   DOC FILE
//*            Frank says that if you need FB-80, it shouldn't      *   DOC FILE
//*            be hard to create such a dataset from what he's      *   DOC FILE
//*            supplied on File 433.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Addition of File 436 from Glenn Jones, to modify     *   DOC FILE
//*            the COMPCODE completion code reporting program       *   DOC FILE
//*            so it will do a lot of 'magic', and even send the      * DOC FILE
//*            job completion information to an email.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Addition of File 437 from Jan Jaeger.  This file     *   DOC FILE
//*            includes his famous standalone utilities, and a      *   DOC FILE
//*            lot of other neat and novel stuff.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Addition of File 438 from Dan Snyder, which is an    *   DOC FILE
//*            enormous collection of assembler macros he has       *   DOC FILE
//*            written over many years.  Besides a structured       *   DOC FILE
//*            macro set, to set up IF-THEN-ELSE and DO loops,      *   DOC FILE
//*            Dan has other things--even a set of macros to        *   DOC FILE
//*            make an assembler program look like a COBOL          *   DOC FILE
//*            program, so COBOL programmers can adjust to          *   DOC FILE
//*            coding assembler more easily.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Addition of Files 439 and 440 from Volker Mielke.    *   DOC FILE
//*            This is a system to search your entire installation  *   DOC FILE
//*            for pds members with a certain name.  File 439 is    *   DOC FILE
//*            the source library for PDSX, and File 440 is the     *   DOC FILE
//*            load library.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  Addition of File 441 from Brian Vogt.  This file     *   DOC FILE
//*            contains two RACF programs.  RESUME is run as an     *   DOC FILE
//*            operator command, to unset the REVOKE flag for a     *   DOC FILE
//*            userid.  RA#NAMES writes out a list of all defined   *   DOC FILE
//*            userids and groups.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  Addition of File 442 from Tetsuya Kimura (Kimu)      *   DOC FILE
//*            and contains his REVIVE utility, to restore          *   DOC FILE
//*            deleted pds members easily, under ISPF.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        30  Addition of File 443 from Tetsuya Kimura (Kimu).     *   DOC FILE
//*            This file contains some of his other utilities,      *   DOC FILE
//*            which can also be obtained from his web site:        *   DOC FILE
//*                                                                 *   DOC FILE
//*             http://home4.highway.ne.jp/kimu/                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        31  Addition of File 444 from Ron Tatum, which contains  *   DOC FILE
//*            two routines he wrote many years ago, to create      *   DOC FILE
//*            and read tapes with data that has block sizes up     *   DOC FILE
//*            to over a half million bytes.                        *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-422 SECTION                                          *   DOC FILE
//*  V-422  CHANGES FOR VERSION 422 NOV 23, 1999                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        00  Due to the fact that (as uncompressed 3480's)        *   DOC FILE
//*            the CBT Tape and the CBT Overflow Tape are both      *   DOC FILE
//*            full, we are converting the standard distribution    *   DOC FILE
//*            of the CBT Tape to 3480 IDRC format only.  If        *   DOC FILE
//*            you only have 3480 uncompressed tape capability,     *   DOC FILE
//*            and you need 2 tapes, please email Sam Knutson       *   DOC FILE
//*            at dragon@his.com , and he can make you 2 tapes.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Updates to File 006, which is a collection of        *   DOC FILE
//*            utilities that are used to manipulate the CBT Tape   *   DOC FILE
//*            documentation, and to facilitate contributions to    *   DOC FILE
//*            this collection.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Updates to File 035, with is a collection of load    *   DOC FILE
//*            modules.  We try and keep this collection (as far    *   DOC FILE
//*            as possible) in sync with the source code from       *   DOC FILE
//*            which the load modules were assembled).              *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 039, which contains a zap to the      *   DOC FILE
//*            IBM IPOUPDTE program (a multi-string replacement     *   DOC FILE
//*            utility for a pds) so it will run without a member   *   DOC FILE
//*            called $$$COIBM in the partitioned dataset that is   *   DOC FILE
//*            being searched.  We've added a similar zap to fit    *   DOC FILE
//*            the almost identical program CPPUPDTE, which comes   *   DOC FILE
//*            with a ServerPac order.  IPOUPDTE came with a CBIPO  *   DOC FILE
//*            order.  You can now get IPOUPDTE documentation on    *   DOC FILE
//*            the web, officially from IBM, at:                    *   DOC FILE
//*                                                                 *   DOC FILE
//*     http://www.s390.ibm.com/os390/installation/cppupdte.html    *   DOC FILE
//*                                                                 *   DOC FILE
//*            A useful site to check out is Thierry Falissard's    *   DOC FILE
//*            site:                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*     http://ourworld.compuserve.com/homepages/tfalissard         *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Addition of Files 050 and 051, which contain URL's   *   DOC FILE
//*            for web sites that are of interest to MVS systems    *   DOC FILE
//*            programmers.  File 050 points to sites that have     *   DOC FILE
//*            free software downloads and other good references.   *   DOC FILE
//*            File 051 contains pointers to selected vendor web    *   DOC FILE
//*            sites.                                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 094 from Michael Cleary to contain    *   DOC FILE
//*            DAF Version 2.06.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 102 with a minor update for the       *   DOC FILE
//*            assembly of TAPESCAN with ASMA90.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 120 to contain more "Technical        *   DOC FILE
//*            Support" articles from Sam Golob.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 129 from James Erwin of MCRB Service  *   DOC FILE
//*            bureau to update the zap for Shared DASD checkpoint  *   DOC FILE
//*            to his OS/390 level.  Jim is now the support person  *   DOC FILE
//*            for this zap.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 134 from Greg Price with some         *   DOC FILE
//*            changed programs.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 135 to add load module updates and    *   DOC FILE
//*            to correct a blocking error that made it nearly      *   DOC FILE
//*            impossible to load this file from a physical tape    *   DOC FILE
//*            with IEBCOPY.  The error was from IBM's IEBCOPY,     *   DOC FILE
//*            and it has been APAR'ed.  (IEBCOPY is at fault.)     *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to the Archiver on File 147 from Rick         *   DOC FILE
//*            Fochtman to Y2K-ize it.  This level of The Archiver  *   DOC FILE
//*            is Version 6.1.  (All Y2K claims are subject to the  *   DOC FILE
//*            general CBT Tape Disclaimer that is printed on this  *   DOC FILE
//*            file in the Disclaimer Section.)                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Addition of File 155 from David North of Los Angeles *   DOC FILE
//*            California.  This file contains REXX execs to fold   *   DOC FILE
//*            VB-255 format REXX execs to the FB-80 format, so     *   DOC FILE
//*            that they'll run unchanged.  A program to do the     *   DOC FILE
//*            same thing for CLISTs is on File 187.  There are     *   DOC FILE
//*            also some other useful REXX execs here.  Worth a     *   DOC FILE
//*            look, especially for ex-VMers.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 161 which is the ISPF collection      *   DOC FILE
//*            from Jim Marshall.  Jim has discovered how to        *   DOC FILE
//*            interface TSO command outputs directly with ISPF,    *   DOC FILE
//*            and a lot of his updated commands reflect this.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 171 from the author, to fix some      *   DOC FILE
//*            reported problems with DITTO and TAPEMAP.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 182 from John Kalinich, to bring      *   DOC FILE
//*            PDS 8.5 to update level 11.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 183 from Gilbert Saint-flour          *   DOC FILE
//*            to enhance various programs.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 244 from Sam Golob, to add a zap      *   DOC FILE
//*            for CPPUPDTE that is similar to the zap for          *   DOC FILE
//*            IPOUPDTE, to allow it to run against any pds.        *   DOC FILE
//*            IBM put in a check to see that the pds contains      *   DOC FILE
//*            a member named $$$COIBM, and this zap bypasses       *   DOC FILE
//*            that check.  Member is A07ZAP1A.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 247 from Sam Golob.  This is the      *   DOC FILE
//*            BRODCAST Manager package.  You can now move, copy,   *   DOC FILE
//*            and expand SYS1.BRODCAST without losing user         *   DOC FILE
//*            messages.  And you can list, delete, and write       *   DOC FILE
//*            messages to the copied BRODCAST dataset.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 268 from Rob Van Riel, to fix a       *   DOC FILE
//*            few problems in the RXVSAM function package from     *   DOC FILE
//*            Mark Winges.  The update was checked by both.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Update to File 291 from Rick Hevener, to fix a few   *   DOC FILE
//*            things in his CPU instruction TIMINGS measurement    *   DOC FILE
//*            program.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Update to File 299 which is TAPEMAP, to add JCL for  *   DOC FILE
//*            assembly with ASMA90, and to add some doc.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Update to File 300 from Steven Peckham, to modify    *   DOC FILE
//*            the JULIAN command to take 4-digit years.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        22A Update to File 300 from Jim Marshall, to ship        *   DOC FILE
//*            Version 28 of this package.  This was merged by      *   DOC FILE
//*            Sam Golob into the old version, which had several    *   DOC FILE
//*            updates beyond the ones that Jim shipped.  In        *   DOC FILE
//*            some cases (such as MURPHY), multiple versions       *   DOC FILE
//*            were kept.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Update to File 312 from Lionel Dyck, to add some     *   DOC FILE
//*            new programs to his set of tools, and to update      *   DOC FILE
//*            the old ones.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Update to File 316 from Jim Marshall.  This was      *   DOC FILE
//*            a refresh of his old file, but since quite a few     *   DOC FILE
//*            updates had been made by other people, this          *   DOC FILE
//*            shipment had to be "intelligently merged" with       *   DOC FILE
//*            the last version of File 316 by Sam Golob.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Update to File 321 from Roland Schiradin, to         *   DOC FILE
//*            upgrade his COBOL load module analysis program.      *   DOC FILE
//*            Fritz Alber's ISPF interface for COBANAL from        *   DOC FILE
//*            File 330, is also found on this file.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Update to File 322 from Rob Scott, to add another    *   DOC FILE
//*            TSO SLEEP program to this collection.  This one is   *   DOC FILE
//*            called SLEEPS.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Update to File 343 from John Kalinich to enhance     *   DOC FILE
//*            the VTOCLIST program on that file.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  Update to File 352 from Sam Golob, to fix the        *   DOC FILE
//*            IPOUPDTE zap on member $$FILE2, and to add a         *   DOC FILE
//*            similar zap for CPPUPDTE, so it won't look for       *   DOC FILE
//*            a member named $$$COIBM in the pds being search-     *   DOC FILE
//*            replaced for character strings.  The zap that was    *   DOC FILE
//*            in this member, was for an ancient version of the    *   DOC FILE
//*            IPOUPDTE program.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  Updates to Files 361 and 362 from Frank Johnston,    *   DOC FILE
//*            with various fixes and changes to his programs.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        30  Update to File 368 from James Williams of Atlanta,   *   DOC FILE
//*            Georgia, to enhance some members of his nice         *   DOC FILE
//*            collection of programs and REXX execs.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        31  Addition of File 372 from Ken MacKenzie of NatWest   *   DOC FILE
//*            Bank in England.  This file contains a dynamic       *   DOC FILE
//*            allocation routine which is faster than the TSO      *   DOC FILE
//*            ALLOC command, and which may be better for some      *   DOC FILE
//*            purposes.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        32  Update to File 382 from Paul Gillis of Melbourne     *   DOC FILE
//*            Australia to enhance some programs and add a few     *   DOC FILE
//*            more to this collection.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        33  Addition of File 391 from Robert Ngan of Dallas,     *   DOC FILE
//*            Texas, and contains TRACE390, an instruction trace   *   DOC FILE
//*            program for OS/390.  This program is quite unique    *   DOC FILE
//*            and very handy.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        34  Addition of File 393 which is a REXX exec to tell    *   DOC FILE
//*            a TSO user what RACF groups the session is           *   DOC FILE
//*            connected to.  This file is from Robert Lamerand     *   DOC FILE
//*            via Ken MacKenzie.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        35  Addition of File 394 from Jan Jakubek of Toronto,    *   DOC FILE
//*            Canada, and contains a program called KSDSPACE,      *   DOC FILE
//*            to analyze space utilization in a KSDS.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        36  Addition of File 395 from Seymour Metz, which        *   DOC FILE
//*            contains a specialized REXX exec which is useful     *   DOC FILE
//*            when you're building a new system.  This EXEC        *   DOC FILE
//*            catalogs all of the PO and PS datasets on a          *   DOC FILE
//*            volume using the extended indirect format.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        37  Addition of File 396 from Scott Hawley of            *   DOC FILE
//*            Indianapolis, Indiana, and contains a handy REXX     *   DOC FILE
//*            exec to find all occurrences of a text string in     *   DOC FILE
//*            a pds.  The exec is invoked from an ISPF 3.4         *   DOC FILE
//*            panel, and it invokes the services of ISRSUPC.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        38  Addition of File 397 from Frank Clarke of Tampa,     *   DOC FILE
//*            Florida.  This file contains REXX execs to pack      *   DOC FILE
//*            numeric data in display format, and unpack it.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        39  Addition of File 398 from the contributor of File    *   DOC FILE
//*            171, and Robert Rosenberg, and David Alcock.  This   *   DOC FILE
//*            file contains an assembler macro called IBMMAC,      *   DOC FILE
//*            which invokes system macros more simply than usual.  *   DOC FILE
//*            An example is the description of a VTOC Format 4     *   DOC FILE
//*            DSCB.  Instead of coding  IECSDSL1 4 , you code      *   DOC FILE
//*            IBMMAC VTOC=4 , which is much easier to remember.    *   DOC FILE
//*                                                                 *   DOC FILE
//*            Dave Alcock has written an edit macro to generate    *   DOC FILE
//*            the code directly, instead of using the assembler    *   DOC FILE
//*            to do it.  His edit macro is called IMAC, and the    *   DOC FILE
//*            REXX exec he uses to generate it, is called IMACBLD. *   DOC FILE
//*                                                                 *   DOC FILE
//*        40  Update to File 404 from David Cartwright.  This      *   DOC FILE
//*            file now contains Dave's further impovements to      *   DOC FILE
//*            TSSO for OS/390.  This version is called TSSO 4.3++. *   DOC FILE
//*                                                                 *   DOC FILE
//*        41  Addition of Files 409 and 410 from Rob Scott, which  *   DOC FILE
//*            contain card-image members and load modules for his  *   DOC FILE
//*            famous MXI TSO Monitor package.  This package is     *   DOC FILE
//*            similar in function, but different, from SHOWMVS     *   DOC FILE
//*            (File 183 of this tape) and TASID (see File 050      *   DOC FILE
//*            for how to get TASID).                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        42  Addition of Files 411 and 412 from Rob Scott, which  *   DOC FILE
//*            contain card-image members and load modules for      *   DOC FILE
//*            some of his utilities.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        43  Addition of File 413 from Ashley Street, which       *   DOC FILE
//*            contains a collection of his utlities in Object      *   DOC FILE
//*            code format (for now).  VMers will enjoy his         *   DOC FILE
//*            PDSFLIST program under TSO, that's like VM's         *   DOC FILE
//*            FLIST.  There are other really nice programs         *   DOC FILE
//*            here too.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        44  Addition of File 414 from Rick Fochtman of Chicago   *   DOC FILE
//*            Illinois, which contains his program to convert      *   DOC FILE
//*            machine control characters in a printout to ANSI     *   DOC FILE
//*            control characters.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        45  Addition of File 431 from Steve Bacher of Charles    *   DOC FILE
//*            Stark Draper Labs in Cambridge, Massachusetts.       *   DOC FILE
//*            This file contains some of Steve's utilities and     *   DOC FILE
//*            other creations.  Each package is one large member   *   DOC FILE
//*            of this pds.  Some of this material used to be       *   DOC FILE
//*            posted on Mackinney Systems' web site, but it has    *   DOC FILE
//*            now been transplanted here.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        46  Addition of File 432 from Thierry Falissard.  This   *   DOC FILE
//*            collection is a subset of programs and software      *   DOC FILE
//*            tools he has written over many years.  Very useful.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        47  Addition of File 433 from Frank Clarke.  This file   *   DOC FILE
//*            contains a very useful collection of his REXX        *   DOC FILE
//*            routines.  VB-255 format.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        48  Addition of File 434 from Mark Zelden, with a        *   DOC FILE
//*            useful collection of his programs and REXX execs.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        49  Addition of File 435 from Dave North, to convert     *   DOC FILE
//*            Frank Clarke's execs from File 433 into FB-80        *   DOC FILE
//*            format using his REXX8080 exec that is on File 155.  *   DOC FILE
//*            These execs should work exactly as do those on       *   DOC FILE
//*            File 433.  Execs changed:  LA, SQUASH, TBLOOK.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        50  Update to File 348 from John Kalinich.  This         *   DOC FILE
//*            update is for the PDSDIR REXX exec.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        51  Update to File 172 from Dave Cartwright.  Changes    *   DOC FILE
//*            were to the LISTICF program and related matters.     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-421 SECTION                                          *   DOC FILE
//*  V-421  CHANGES FOR VERSION 421 AUG 10, 1999                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Deletion of a bunch of old files, which have been    *   DOC FILE
//*            moved to the CBT Overflow Tape.  The mapping is:     *   DOC FILE
//*                                                                 *   DOC FILE
//*              CBT Tape File  ------>  Overflow Tape File         *   DOC FILE
//*                File 052      ----      File 240                 *   DOC FILE
//*                File 068      ----      File 241                 *   DOC FILE
//*                File 123      ----      File 242                 *   DOC FILE
//*                File 155      ----      File 243                 *   DOC FILE
//*                File 391      ----      File 244                 *   DOC FILE
//*                File 401      ----      File 247                 *   DOC FILE
//*                File 402      ----      File 248                 *   DOC FILE
//*                File 403      ----      File 249                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Deletion of Files 049, 050, 051, which have been     *   DOC FILE
//*            combined with File 048 as a partitioned dataset.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 004, which now contains the           *   DOC FILE
//*            assembler program CBTUPD that supersedes the ISPF    *   DOC FILE
//*            edit macro called CBTUPDTE.  The assembler program   *   DOC FILE
//*            reads this documentation file and inserts appro-     *   DOC FILE
//*            priately named ./ ADD NAME= cards, to break this     *   DOC FILE
//*            file into a partitioned dataset while maintaining    *   DOC FILE
//*            the order of the parts.  I now maintain this file    *   DOC FILE
//*            as a partitioned dataset using this same scheme.     *   DOC FILE
//*            This program is subject to change from time to       *   DOC FILE
//*            time, if a new section is introduced into this       *   DOC FILE
//*            documentation.  The same program also works for      *   DOC FILE
//*            the documentation file of the CBT Overflow Tape.     *   DOC FILE
//*            This program is also included as part of File 006.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 006, which contains programs and      *   DOC FILE
//*            other tools used to manipulate the CBT MVS Tape      *   DOC FILE
//*            documentation.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 035, which is a load module library   *   DOC FILE
//*            that contains programs whose source code is          *   DOC FILE
//*            elsewhere on this tape.  This file now contains      *   DOC FILE
//*            the CBTUPD program from Files 004 and 006.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 048, which now contains LISTSPC,      *   DOC FILE
//*            LISTVOL, LOCINDEX, and their documentation.  That    *   DOC FILE
//*            material was formerly spread out in Files 048        *   DOC FILE
//*            thru 051.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 071, to reflect later versions of     *   DOC FILE
//*            documentation for other tapes.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 078 from John Kalinich, to reflect    *   DOC FILE
//*            later versions of some of his ISPF utilities.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Addition of File 090 which is a delink utility       *   DOC FILE
//*            written in PL/I and assembler by David W. Noon,      *   DOC FILE
//*            and prepared for the CBT Tape by Greg Price.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 093 from Greg Price, to reflect a     *   DOC FILE
//*            new version of the PDSLOAD program.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 104 from David Cartwright, to         *   DOC FILE
//*            supply a version of the JRP (JES2 Remote Printer)    *   DOC FILE
//*            package that runs on OS/390.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 112 which is the VTOC TSO command.    *   DOC FILE
//*            This was first updated by David Spiegel to use       *   DOC FILE
//*            the UCBSCAN and EDTINFO macros properly, and then    *   DOC FILE
//*            it was updated by John Hooper, to add multiple       *   DOC FILE
//*            additional improvements.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 120 from Sam Golob, to add more       *   DOC FILE
//*            of his latest articles in "Technical Support"        *   DOC FILE
//*            magazine.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 134 from Greg Price of Melbourne,     *   DOC FILE
//*            Australia, to reflect the 25th shipment of his       *   DOC FILE
//*            large utility collection.  This is his source        *   DOC FILE
//*            code file.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 135 from Greg Price of Melbourne,     *   DOC FILE
//*            Australia, to reflect the 25th shipment of his       *   DOC FILE
//*            large utility collection.  This is his file of       *   DOC FILE
//*            load modules.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 136 from Howard Dean to include       *   DOC FILE
//*            his improved version of the BRODSCAN program.        *   DOC FILE
//*            Howard's improvements have been incorporated into    *   DOC FILE
//*            the BCMSCAN program in File 247, which is the        *   DOC FILE
//*            preferred program to use, nowadays.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to the nice collection of tools on File       *   DOC FILE
//*            171, to add an IEFUTL exit.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 172, which is David Cartwright's      *   DOC FILE
//*            large collection of tools.  This is quite an         *   DOC FILE
//*            extensive change.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 182 from John Kalinich, which is      *   DOC FILE
//*            the PDS package, Version 8.5.  This file now         *   DOC FILE
//*            reflects shipment 9 of PDS 8.5, also known as        *   DOC FILE
//*            PDS85U9.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Update to File 183 from Gilbert Saint-flour of       *   DOC FILE
//*            Automated Migration Services.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Update to Files 185 and 186, which are sample        *   DOC FILE
//*            IKJTABLS TSO authorization tables that have been     *   DOC FILE
//*            expanded to reflect TSO commands and programs        *   DOC FILE
//*            from an OS/390 R2.6 system.  Also, ASMA90 is now     *   DOC FILE
//*            the assembler program mentioned in the sample        *   DOC FILE
//*            assembly job.  More blank spaces have been added     *   DOC FILE
//*            for zapping purposes, too.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Update to File 247 from Sam Golob, which is an       *   DOC FILE
//*            extensive reworking and enhancement of his           *   DOC FILE
//*            SYS1.BRODCAST management package.  With tools in     *   DOC FILE
//*            this package, you can now dump SYS1.BRODCAST to      *   DOC FILE
//*            a flat file, restore, or expand the flat file to     *   DOC FILE
//*            a copy, and delete messages or send messages to      *   DOC FILE
//*            the copy.  This is in addition to the extensive      *   DOC FILE
//*            SYS1.BRODCAST scan and management tools that were    *   DOC FILE
//*            already included in this file.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Update to File 300 from Greg Price, to include       *   DOC FILE
//*            Bill Godfrey's latest updates to the CDSCB           *   DOC FILE
//*            program, and an updated HELP member for CDSCB.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Update to File 312 from Lionel Dyck, to add more     *   DOC FILE
//*            packages and update the ones he already has.         *   DOC FILE
//*            This file is a pds which has most of its members     *   DOC FILE
//*            in TSO XMIT format (you do a TSO RECEIVE INDSN( )    *   DOC FILE
//*            on each member), and some of its members are in      *   DOC FILE
//*            flat file or IEBUPDTE format.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Update to File 321 which is the COBANAL program      *   DOC FILE
//*            from Roland Schiradin.  This update is from Fritz    *   DOC FILE
//*            Alber, and consists of a post-processing addition    *   DOC FILE
//*            which uses the report from the COBANAL program,      *   DOC FILE
//*            to provide more information and utility.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Update to File 322 from Lionel Dyck, to add his      *   DOC FILE
//*            REXXWAIT assembler program to this collection of     *   DOC FILE
//*            TSO SLEEP programs.  REXXWAIT is a REXX user         *   DOC FILE
//*            function.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Update to File 323 from Gerard Nicol, which is the   *   DOC FILE
//*            SAMPLIB portion of his REXX Function Pack.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  Addition of File 330 from Fritz Alber, which is      *   DOC FILE
//*            an ISPF interface to the COBANAL program from        *   DOC FILE
//*            Roland Schiradin that is on File 321.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  Addition of File 331 from Ze'ev Atlas, which is      *   DOC FILE
//*            two COBOL subroutines to set an area in Working-     *   DOC FILE
//*            Storage to a given address.  SETPTRTO sets the       *   DOC FILE
//*            Working-Storage area to the address.  SETPTRBY       *   DOC FILE
//*            sets the address up or down by a given amount.       *   DOC FILE
//*            This shows how to accomplish the setting and         *   DOC FILE
//*            moving of addresses, purely in COBOL.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        30  Update to File 349 from Willy Jensen, which fixes    *   DOC FILE
//*            his ISPF command table update system.  This system   *   DOC FILE
//*            allows you to update your personal ISPF command      *   DOC FILE
//*            table "on the fly".                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        31  Update to File 365 from Sam Golob, to add a          *   DOC FILE
//*            program to the Amdahl UK OstarXMT package that       *   DOC FILE
//*            was written by Ron MacRae.  This program, called     *   DOC FILE
//*            OSTRIP, strips off the error checking information    *   DOC FILE
//*            and creates a series of normal XMIT-format files.    *   DOC FILE
//*            You shouldn't ever have to use it, but it's there,   *   DOC FILE
//*            just in case it's needed in an emergency for         *   DOC FILE
//*            dataset recovery.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        32  Addition of File 366, which contains some            *   DOC FILE
//*            utilities from Marvin Shaw, including a world        *   DOC FILE
//*            clock program.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        33  Addition of File 367 from John Kalinich, which       *   DOC FILE
//*            consists of 2 REXX execs.  One lists all active      *   DOC FILE
//*            ASCBs, and the other lists logged-on TSO users.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        34  Addition of File 368, which consists of a nice       *   DOC FILE
//*            collection of utilities from James Williams of       *   DOC FILE
//*            Atlanta, Georgia.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        35  Addition of File 374 from David Marsden of Perth,    *   DOC FILE
//*            Australia, and which contains SAS programs to        *   DOC FILE
//*            analyze many types of SMF records.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        36  Addition of File 375 from David Marsden, to          *   DOC FILE
//*            analyze more types of SMF records.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        37  Addition of File 376 from David Marsden of Perth,    *   DOC FILE
//*            Australia.  This file contains his ZDF Job Display   *   DOC FILE
//*            Facility, and many add-on utilities which can work   *   DOC FILE
//*            either with the general display, or independently.   *   DOC FILE
//*            The resulting collection is very impressive, and     *   DOC FILE
//*            it works on OS/390 Version 2.6.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        38  Addition of File 377 from Ed Jaffe, which contains   *   DOC FILE
//*            a logon exit and a logoff exit, and some mods, so    *   DOC FILE
//*            you can run TCAS under SUB=MSTR.  This allows you    *   DOC FILE
//*            to have TSO running without JES2 or JES3 up, and     *   DOC FILE
//*            it is a fantastic recovery tool.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        39  Addition of File 378 from Steve Kowalski of          *   DOC FILE
//*            Johannesburg, South Africa.  This is the SORTTRAK    *   DOC FILE
//*            program, which allows you to keep track of DFSORT    *   DOC FILE
//*            SMF records, and report information from them.       *   DOC FILE
//*            This program is written in assembler.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        40  Addition of File 382 which is a fine collection      *   DOC FILE
//*            of utilities from Paul Gillis of Melbourne,          *   DOC FILE
//*            Australia.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        41  Addition of File 386 from Salvador Carrasco,         *   DOC FILE
//*            which is a sizable collection of his utilities.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        42  Addition of File 419 from David Rivers of Dignus     *   DOC FILE
//*            in Raleigh, North Carolina.  This file has C         *   DOC FILE
//*            Language source programs which were compiled         *   DOC FILE
//*            with the Dignus System/C compiler that outputs       *   DOC FILE
//*            Assembler language source code.  Both C Language     *   DOC FILE
//*            and Assembler Language sources are in this file.     *   DOC FILE
//*            In addition, documentation of programs on File       *   DOC FILE
//*            420, which were downloaded from www.dignus.com,      *   DOC FILE
//*            and which were C--compiled into Assembler, the       *   DOC FILE
//*            same way, is included on this file.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        43  Addition of File 420 which is a Load Library of      *   DOC FILE
//*            C Language programs compiled with the Dignus         *   DOC FILE
//*            System/C compiler.  These load modules were          *   DOC FILE
//*            assembled from the assembler source code produced    *   DOC FILE
//*            by the System/C compiler from Dignus.                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-420 SECTION                                          *   DOC FILE
//*  V-420  CHANGES FOR VERSION 420 MAR 29, 1999                    *   DOC FILE
//*        00  THANKS GO TO SAM KNUTSON FOR ADMINISTERING THE NEW   *   DOC FILE
//*            WEB SITE FROM WHICH THE FILES ON THIS TAPE CAN BE    *   DOC FILE
//*            DOWNLOADED.  THE SITE IS:                            *   DOC FILE
//*                                                                 *   DOC FILE
//*              http://www.cbttape.org                             *   DOC FILE
//*                                                                 *   DOC FILE
//*            THIS SITE IS AVAILABLE TO ANYONE.  YOU DON'T HAVE    *   DOC FILE
//*            TO BE A MEMBER OF ANYTHING, OR BELONG TO ANYTHING.   *   DOC FILE
//*                                                                 *   DOC FILE
//*            CONTINUING THANKS ALSO GO TO GILBERT SAINT-FLOUR     *   DOC FILE
//*            AND AMS (Automated Migration Services), WHO HAVE     *   DOC FILE
//*            DONATED THE FACILITIES WHERE THIS TAPE IS PRODUCED.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Addition of File 004 which is an ISPF Edit macro     *   DOC FILE
//*            to introduce ./ ADD NAME= cards into this            *   DOC FILE
//*            documentation, so that it can be properly and        *   DOC FILE
//*            logically broken up into members of a pds.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Swapped File 006 and File 130, because File 130      *   DOC FILE
//*            is a program that is necessary to maintain the       *   DOC FILE
//*            CBT Tape Documentation File (this file).  Therefore  *   DOC FILE
//*            it should be placed near the beginning of the tape.  *   DOC FILE
//*            This file (File 006) which is the program that       *   DOC FILE
//*            puts the "DOC FILE" and "FILE xxx" information       *   DOC FILE
//*            in columns 73-80, was updated by Sam Golob to        *   DOC FILE
//*            reflect the fact that the CBT Tape Documentation     *   DOC FILE
//*            can now be in lower case.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 035, to reflect the changes to        *   DOC FILE
//*            PDS 8.5 from John Kalinich.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 071, TO REFLECT CHANGES IN THE        *   DOC FILE
//*            DOCUMENTATION OF SEVERAL OTHER TAPES.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  UPDATE TO FILE 118 FROM SAM GOLOB, WHICH IS A        *   DOC FILE
//*            PACKAGE OF SMP/E PREPROCESSING TOOLS TO HELP YOU     *   DOC FILE
//*            FIND OUT WHAT FMIDS AND PTFS ARE REPRESENTED ON      *   DOC FILE
//*            AN SMPPTFIN FORMAT FILE (LIKE AN IBM PTF TAPE).      *   DOC FILE
//*            SINCE SOME OF THE PROGRAMS WERE WRITTEN IN COBOL,    *   DOC FILE
//*            THEY WERE CHECKED AND UPDATED TO MAKE SURE THAT      *   DOC FILE
//*            THE SYSTEM WORKS WITH LE/370.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  UPDATE TO FILE 120 FROM SAM GOLOB, TO ADD MORE       *   DOC FILE
//*            OF HIS "MVS TOOLS AND TRICKS" ARTICLES FROM          *   DOC FILE
//*            "TECHNICAL SUPPORT" MAGAZINE.  THERE ARE NOW OVER    *   DOC FILE
//*            10 YEARS' WORTH OF ARTICLES IN THIS FILE.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 130, which is the former File 006.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  UPDATE TO FILE 134 FROM GREG PRICE OF MELBOURNE      *   DOC FILE
//*            AUSTRALIA.  THIS IS THE 24TH SHIPMENT OF HIS SOURCE  *   DOC FILE
//*            FILE.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  UPDATE TO FILE 134 FROM GREG PRICE OF MELBOURNE      *   DOC FILE
//*            AUSTRALIA.  THIS IS THE 24TH SHIPMENT OF HIS FILE    *   DOC FILE
//*            OF LOAD MODULES.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  UPDATE TO FILE 166 FROM VINH VU OF DALLAS, TEXAS.    *   DOC FILE
//*            THIS IS A REFRESH OF HIS FILE OF UTILITIES.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  UPDATE TO FILE 171 FROM THE AUTHOR, TO ADD A NEW     *   DOC FILE
//*            PROGRAM PACKAGE CALLED FX.  THIS PACKAGE IS A VTAM   *   DOC FILE
//*            APPLICATION THAT RUNS ON MULTIPLE SYSTEMS, AND       *   DOC FILE
//*            ALLOWS YOU TO SEND DATA FILES IN BULK, FROM ONE      *   DOC FILE
//*            SYSTEM TO ALL OF THEM.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  UPDATE TO FILE 182 FROM JOHN KALINICH OF THE U.S.    *   DOC FILE
//*            ARMY IN ST. LOUIS, MISSOURI.  THIS INCLUDES HIS      *   DOC FILE
//*            LATEST UPDATES (AS OF THE DATE OF ISSUE OF THIS      *   DOC FILE
//*            TAPE) TO THE PDS 8.5 PROGRAM PACKAGE.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 183 from GILBERT SAINT-FLOUR of       *   DOC FILE
//*            AMS (Automated Migration Services).  This            *   DOC FILE
//*            includes the latest updates to SHOWMVS and other     *   DOC FILE
//*            utilities in his file.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  UPDATE TO FILE 296, WHICH IS THE COLLECTION OF       *   DOC FILE
//*            UTILITIES THAT CAN BE USED TO HELP THE PDS 8.5       *   DOC FILE
//*            PACKAGE (OR WHICH CAN BE USED SEPARATELY).  THIS     *   DOC FILE
//*            UPDATE IS FROM BRUCE LELAND, TO FIX THE DSAT         *   DOC FILE
//*            PROGRAM.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  UPDATE TO FILE 300 FROM GREG PRICE OF MELBOURNE,     *   DOC FILE
//*            AUSTRALIA, TO CONTAIN UPDATES TO THE CDSCB PROGRAM.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  UPDATE TO FILE 311 FROM DAVID ALCOCK OF DALLAS,      *   DOC FILE
//*            TEXAS, TO REFRESH HIS COLLECTION OF UTILITIES.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  UPDATE TO FILE 312 FROM LIONEL DYCK OF KAISER        *   DOC FILE
//*            PERMANENTE IN WALNUT CREEK, CALIFORNIA, TO ADD       *   DOC FILE
//*            THE XMITIP REXX EXEC, THAT ALLOWS SENDING INTERNET   *   DOC FILE
//*            EMAIL FROM YOUR MVS SYSTEM RUNNING TCP/IP.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  UPDATE TO FILE 321 FROM ROLAND SCHIRADIN OF          *   DOC FILE
//*            ELTVILLE, GERMANY, TO ENHANCE HIS COBOL ANALYSIS     *   DOC FILE
//*            PROGRAM, AND TO ADD A CICS PROGRAM WHICH IS A        *   DOC FILE
//*            BATCH INTERFACE TO CEMT.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  UPDATE TO FILE 338 FROM GILBERT SAINT-FLOUR OF       *   DOC FILE
//*            AMS.  THIS FILE CONTAINS HIS P390 UTILITIES,         *   DOC FILE
//*            SUCH AS A TSO COMMAND WHICH LETS A PUBLIC USERID     *   DOC FILE
//*            ALLOW A REMOTE TSO USER TO CANCEL HIS OWN TSO        *   DOC FILE
//*            SESSION.  IT ALSO HAS AUTOMATED IPL AND SHUTDOWN     *   DOC FILE
//*            PROCEDURES, ETC.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  UPDATE TO FILE 344 FROM JOERG BERNING OF BAD         *   DOC FILE
//*            HOMBURG, GERMANY, TO IMPROVE HIS LISTVTOC REXX       *   DOC FILE
//*            EXEC.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  ADDITION OF FILE 347 FROM RICK FOCHTMAN OF CHICAGO,  *   DOC FILE
//*            ILLINOIS.  THIS FILE CONTAINS A PROGRAM CALLED       *   DOC FILE
//*            MODLIST, WHICH TELLS YOU WHAT COBOL OPTIONS A        *   DOC FILE
//*            PROGRAM IN A LOAD LIBRARY WAS COMPILED WITH, AND     *   DOC FILE
//*            WHICH REPORTS SOME OTHER LOAD MODULE INFORMATION.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  ADDITION OF FILE 348 FROM THE MVS-UTIL FORUM OF      *   DOC FILE
//*            THE INTERNET (12-01-98), WHICH CONTAINS CONTRIBU-    *   DOC FILE
//*            TIONS FROM EDWARD STRAUSS AND JOHN KALINICH TO       *   DOC FILE
//*            COPY MEMBERS OF A PDS IN ALPHABETICAL ORDER.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  ADDITION OF FILE 349 FROM WILLY JENSEN OF HARDERS-   *   DOC FILE
//*            JENSEN IN DENMARK.  THIS FILE CONTAINS TWO REXX      *   DOC FILE
//*            EXECS, ONE TO UPDATE THE CURRENT ISPF COMMAND TABLE  *   DOC FILE
//*            IN STORAGE, AND THE OTHER TO LIST THE CONTENTS OF    *   DOC FILE
//*            THE CURRENT ISPF COMMAND TABLE.  VERY USEFUL TO DO   *   DOC FILE
//*            THIS ON THE FLY, AND NOT TO DISTURB WHAT THE OTHER   *   DOC FILE
//*            ISPF USERS ARE DOING.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  ADDITION OF FILE 350 FROM BOB BREAK OF ST. LOUIS,    *   DOC FILE
//*            MISSOURI.  THIS FILE CONSISTS OF 3 JES2 EXITS.       *   DOC FILE
//*            THESE JES2 EXITS ARE SAMPLE EXITS TO CONVERT         *   DOC FILE
//*            EXISTING RESOURCE AFFINITY SCHEDULING MECHANISMS     *   DOC FILE
//*            TO CALL THE WLM RESOURCE AFFINITY SCHEDULING         *   DOC FILE
//*            MECHANISM, IF THE WLM STUFF IS ALREADY SET UP.       *   DOC FILE
//*            MEMBERS MELLON04 AND MELLON06 CONVERT MELLON MODS    *   DOC FILE
//*            /*ROUTE XEQ RESOURCE NAMES TO WLM SCHENV= SCHEDULING *   DOC FILE
//*            ENVIRONMENT NAMES.  MEMBER PROCNV06 IS A SAMPLE      *   DOC FILE
//*            JES2 EXIT 6 ROUTINE THAT CONVERTS SOUTHWESTERN       *   DOC FILE
//*            BELL'S "PRO" EXTENDED JOB CLASS NAMES, TO SCHENV=    *   DOC FILE
//*            SCHEDULING ENVIRONMENT NAMES.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  ADDITION OF FILE 351 FROM KRISS DAVIS OF THE         *   DOC FILE
//*            UNIVERSITY OF CHICAGO.  THIS FILE CONTAINS TWO       *   DOC FILE
//*            SMALL COBOL PROGRAMS TO LIST THE LE LEVEL THAT IS    *   DOC FILE
//*            INSTALLED.  ONE PROGRAM IS FOR BATCH/TSO.  THE       *   DOC FILE
//*            OTHER IS FOR CICS.  ALSO INCLUDED IS A C PROGRAM     *   DOC FILE
//*            FROM ROLAND SCHIRADIN OF ELTVILLE, GERMANY, WHICH    *   DOC FILE
//*            DOES THE SAME THING.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  ADDITION OF FILE 354 FROM RANDY HALL OF VICTORIA,    *   DOC FILE
//*            BRITISH COLUMBIA, CANADA.  THIS FILE HAS A SIZABLE   *   DOC FILE
//*            COLLECTION OF UTILITIES, INCLUDING A DISASSEMBLER    *   DOC FILE
//*            THAT WAS MODIFIED FROM FILE 171, AN ORIGINAL         *   DOC FILE
//*            UTILITY TO MAKE IEBCOPY BACKUPS FROM A LIST OF       *   DOC FILE
//*            DATASET NAMES, AND MANY OTHERS.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  ADDITION OF FILE 355 FROM LIONEL DYCK OF KAISER      *   DOC FILE
//*            PERMANENTE IN WALNUT CREEK, CALIFORNIA.  THIS FILE   *   DOC FILE
//*            CONTAINS AN ASSEMBLER PROGRAM CALLED KONCAT, WHICH   *   DOC FILE
//*            CONCATENATES FILES TO YOUR TSO SESSION DDNAMES ON    *   DOC FILE
//*            THE FLY.  THE PROGRAM WAS ORIGINALLY WRITTEN BY      *   DOC FILE
//*            EDWARD TISCHOFER AND MIKE WHALEY.  THIS PROGRAM      *   DOC FILE
//*            WORKS WITH SWA ABOVE THE LINE.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  ADDITION OF FILE 356 FROM DAVID JURASCHEK OF         *   DOC FILE
//*            FAIRFAX, VIRGINIA.  THIS FILE CONTAINS A VTAM        *   DOC FILE
//*            MULTI-SESSION MANAGER CALLED NETSOL, WHICH ONCE      *   DOC FILE
//*            EXISTED ON THIS TAPE, AND WHICH HAS NOW BEEN         *   DOC FILE
//*            MODIFIED TO WORK ON OS/390 SYSTEMS.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  ADDITION OF FILE 357 FROM CARL HAFNER OF STELI,      *   DOC FILE
//*            INC. IN MONROE, NEW YORK.  THIS FILE CONTAINS TWO    *   DOC FILE
//*            UTILITIES:  PDSGEN ALLOWS MULTIPLE STRING SUBSTI-    *   DOC FILE
//*            TUTIONS IN MULTPLE PDS MEMBERS.  PDSLIST ALLOWS      *   DOC FILE
//*            COMPLICATED PRINTING OF MULTIPLE PDS MEMBERS.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        30  ADDITION OF FILE 358 FROM ERIC BIELEFELD OF          *   DOC FILE
//*            MILWAUKEE, WISCONSIN.  THIS FILE CONTAINS A          *   DOC FILE
//*            PACKAGE OF PROGRAMS TO ARCHIVE SYSLOG TO DISK OR     *   DOC FILE
//*            TO TAPE.  THIS PACKAGE IS RUNNING ON OS/390          *   DOC FILE
//*            RELEASE 5, AS IS.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        31  ADDITION OF FILES 361 AND 362 FROM FRANK JOHNSTON    *   DOC FILE
//*            OF CHAMBERSBURG, PENNSYLVANIA.  FILE 361 HAS         *   DOC FILE
//*            SOURCE CODE, AND FILE 362 HAS LOAD MODULES.  THESE   *   DOC FILE
//*            THREE MODULES ARE:  CXYPSCAN, WHICH IS A HIGH-SPEED  *   DOC FILE
//*            SCAN AND PRINT UTILITY FOR PDS'ES, ZZRELINK, WHICH   *   DOC FILE
//*            LOOKS AT A LOAD LIBRARY AND RELINKEDITS THE MEMBERS  *   DOC FILE
//*            INTO ANOTHER LOAD LIBRARY, AND TAPESCAN, WHICH       *   DOC FILE
//*            EXAMINES TAPES.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        32  ADDITION OF FILE 363 FROM THE ISPF-L NEWSGROUP ON    *   DOC FILE
//*            THE INTERNET.  THIS FILE CONTAINS AN ISPF DATASET    *   DOC FILE
//*            NAME CHANGE EXIT, CODED BY STEPHEN BACHER OF THE     *   DOC FILE
//*            DRAPER LABS AT M.I.T. IN CAMBRIDGE, MASSACUSETTS.    *   DOC FILE
//*            AS CODED, THE EXIT CHANGES THE NAME OF THE ISPF      *   DOC FILE
//*            EDIT RECOVERY DATASETS, BUT IT IS WELL DOCUMENTED,   *   DOC FILE
//*            AND IT CAN BE USED AS A MODEL FOR OTHER SIMILAR      *   DOC FILE
//*            WORK, AS NECESSARY.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        33  ADDITION OF FILE 364 FROM LEE WARRINER OF THE        *   DOC FILE
//*            HARTFORD INSURANCE GROUP IN HARTFORD, CT, AND FROM   *   DOC FILE
//*            ALAN FIELD OF SUPER VALU IN EDEN PRAIRIE, MN.  THIS  *   DOC FILE
//*            FILE CONTAINS A WORKING VERSION OF THE OLD CCSS      *   DOC FILE
//*            (CONTROL CARD SUBSYSTEM), WHICH ALLOWS THE PLACING   *   DOC FILE
//*            OF CONTROL CARD INFORMATION IN THE SYSIN DDNAME AS   *   DOC FILE
//*            SUBSYS=(CCSS,'CONTROL CARD 1','CONTROL CARD 2',...   *   DOC FILE
//*            ETC.) INSTEAD OF AS SYSIN DD *.  THIS ALLOWS THE     *   DOC FILE
//*            INCLUSION OF CONTROL CARDS IN A CATALOGED PROC.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        34  ADDITION OF FILE 365 FROM RON MacRAE OF AMDAHL UK.   *   DOC FILE
//*            THIS IS A PACKAGE THAT IS DESIGNED TO ALLOW SHIPPING *   DOC FILE
//*            OF SOFTWARE AND PTF FIXES USING TSO XMIT, BUT WHICH  *   DOC FILE
//*            ALSO INCLUDES BUILT-IN ERROR DETECTION AND HANDLING  *   DOC FILE
//*            OF MULTIPLE XMIT FILES.  THIS IS A VERY USEFUL       *   DOC FILE
//*            SYSTEM IF YOU SEND DATA ANYWHERE.  ONLY CAVEAT IS    *   DOC FILE
//*            THAT THE PEOPLE ON BOTH ENDS, HAVE TO HAVE IT        *   DOC FILE
//*            INSTALLED.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        35  UPDATE TO FILE 369, ORIGINALLY FROM DICK SZIEDE      *   DOC FILE
//*            OF THE PLANNING RESEARCH CORPORATION IN VIRGINIA.    *   DOC FILE
//*            THIS UPDATE IS FROM DALE VICK OF THE USA GROUP IN    *   DOC FILE
//*            FISHERS, INDIANA, AND IS A FIX TO THE DSPACE TSO     *   DOC FILE
//*            COMMAND, SO IT SHOWS DEVICES WITH DYNAMIC UCB'S.     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-419 SECTION                                          *   DOC FILE
//*  V-419  CHANGES FOR VERSION 419 OCT 27, 1998                    *   DOC FILE
//*        00  MANY THANKS TO SAM KNUTSON FOR HIS LARGE AMOUNT      *   DOC FILE
//*            OF CONTINUING ASSISTANCE TO ME, AND OF COURSE,       *   DOC FILE
//*            TO GILBERT SAINT-FLOUR AND AMS, FOR HOSTING          *   DOC FILE
//*            THE PRODUCTION OF THIS TAPE.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*            EXTRA THANKS GO TO SAM KNUTSON FOR ADMINISTERING     *   DOC FILE
//*            THE NEW WEB SITE FOR DISTRIBUTING FREE MATERIALS:    *   DOC FILE
//*                                                                 *   DOC FILE
//*            http://www.cbttape.org  "Sponsored by NaSPA"         *   DOC FILE
//*                                                                 *   DOC FILE
//*            SAM KNUTSON'S EMAIL ADDRESS:  dragon@his.com         *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  UPDATE TO FILE 025 WHICH IS THE TSO CONSOLE COMMAND  *   DOC FILE
//*            FROM PAT MURPHY OF TU ELECTRIC IN MESQUITE, TEXAS.   *   DOC FILE
//*            THE CURRENT SOURCE CODE CONTAINS THE CONSOLE COMMAND *   DOC FILE
//*            WHICH RUNS ON OS/390 RELEASE 2.4.  HOWEVER, EARLIER  *   DOC FILE
//*            VERSIONS HAVE BEEN RETAINED ON THIS FILE, AS WELL.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 035 WHICH IS A LOAD LIBRARY FILE,     *   DOC FILE
//*            TO REFLECT THE LATEST VERSIONS OF PDS 8.5 AND        *   DOC FILE
//*            PDSLOAD.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 071 TO REFLECT CHANGES IN OTHER       *   DOC FILE
//*            TAPE DOCUMENTATION.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 078 WHICH CONTAINS ISPF UTILITIES     *   DOC FILE
//*            BY JOHN KALINICH OF THE U.S. ARMY LOGISTICS IN ST.   *   DOC FILE
//*            LOUIS, MISSOURI.  THIS IS FOR OS/390 LEVEL ISPF.     *   DOC FILE
//*            THAT IS:  ISPF 4.X.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  COMBINE FILE 089 AND FILE 090 INTO ONE FILE, FILE    *   DOC FILE
//*            089.  THIS IS THE DYNAMIC ALLOCATION INTERFACE FROM  *   DOC FILE
//*            THE UNIVERSITY OF MANITOBA.  BACK IN THE "OLD DAYS"  *   DOC FILE
//*            WHEN ARNIE HAD SEQUENTIAL FILES ON THE TAPE, THIS    *   DOC FILE
//*            PRODUCT TOOK UP TWO FILES.  NOW AS A PDS, IT'S ONE.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  UPDATE TO FILE 091, FROM SAM GOLOB, COURTESY OF AN   *   DOC FILE
//*            MVT DLIB TAPE FROM JIM MARSHALL.   BESIDES WHAT THE  *   DOC FILE
//*            FILE PREVIOUSLY CONTAINED, PROCEDURES FOR PL1, RPG,  *   DOC FILE
//*            AND FORTRAN, THE FILE NOW CONTAINS PROCEDURES FOR    *   DOC FILE
//*            OS/360 ALGOL, AND SAMPLE PROGRAMS TO TEST EACH OF    *   DOC FILE
//*            THESE LANGUAGES, TAKEN FROM THE OS RELEASE 21.8      *   DOC FILE
//*            SYS1.SAMPLIB, WHICH IS FREE, UNCOPYRIGHTED MATERIAL. *   DOC FILE
//*            THE FULL SYS1.SAMPLIB CAN NOW BE FOUND ON THE CBT    *   DOC FILE
//*            OVERFLOW TAPE, FILE 079.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  UPDATE TO FILE 093 FROM JOHN KALINICH, TO PUT SOME   *   DOC FILE
//*            YEAR 2000 SUPPORT INTO THE PDSLOADW PROGRAM (WHICH   *   DOC FILE
//*            IS THE "DEFINITIVE" VERSION OF THE PDSLOAD PROGRAM). *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  UPDATE TO FILE 094 FROM MICHAEL CLEARY OF CLEARY     *   DOC FILE
//*            CONSULTING IN CALIFORNIA, TO UPDATE SOME OF THE      *   DOC FILE
//*            DOCUMENTATION OF THE DAF PROGRAM.  DAF WAS FIRST     *   DOC FILE
//*            WRITTEN IN PL/I AND THEN CONVERTED TO ASSEMBLER.     *   DOC FILE
//*            HOPEFULLY, THE NEW DOCUMENTATION WILL BE "BETTER     *   DOC FILE
//*            THAN NOTHING", BECAUSE I DON'T THINK I WAS ABLE      *   DOC FILE
//*            TO GET COMPLETE DOCUMENTATION FOR THE ASSEMBLER      *   DOC FILE
//*            VERSION, AS YET.  WRITE TO mcleary@pacbell.net .     *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  UPDATE TO FILE 120 FROM SAM GOLOB, TO CORRECT THE    *   DOC FILE
//*            JULY 98 ARTICLE, AND TO ADD MORE ARTICLES.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  UPDATE TO FILE 134 WHICH IS SHIPMENT 23 OF GREG      *   DOC FILE
//*            PRICE'S UTILITIES, FROM GREG PRICE OF MELBOURNE,     *   DOC FILE
//*            AUSTRALIA.  REVIEW HAS BEEN UPDATED TO LEVEL 30.2,   *   DOC FILE
//*            AND FULLSCREEN ZAP HAS BEEN UPDATED TO BE ABLE TO    *   DOC FILE
//*            WRITE TO 3270 MODEL 5 TERMINALS.  THIS FILE          *   DOC FILE
//*            CONTAINS SOURCE CODE.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  UPDATE TO FILE 135 WHICH IS SHIPMENT 23 OF GREG      *   DOC FILE
//*            PRICE'S UTILITIES, FROM GREG PRICE OF MELBOURNE,     *   DOC FILE
//*            AUSTRALIA.  REVIEW HAS BEEN UPDATED TO LEVEL 30.2,   *   DOC FILE
//*            AND FULLSCREEN ZAP HAS BEEN UPDATED TO BE ABLE TO    *   DOC FILE
//*            WRITE TO 3270 MODEL 5 TERMINALS.  THIS FILE          *   DOC FILE
//*            CONTAINS LOAD MODULES.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  UPDATE TO FILE 171 FROM THE AUTHOR, TO ADD THE       *   DOC FILE
//*            SMFUTIL UTILITY.  THIS PROGRAM CAN BE USED TO        *   DOC FILE
//*            BREAK UP AN SMF FILE INTO MANY FILES, BY RECORD      *   DOC FILE
//*            TYPE.  HANDY.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  UPDATE TO FILE 176 WHICH IS THE OS/360 ALGOL         *   DOC FILE
//*            COMPILER AND LIBRARY, TO ADD THE ERROR MESSAGE       *   DOC FILE
//*            ROUTINES.  THESE WERE TAKEN FROM THE MVT DLIB TAPE,  *   DOC FILE
//*            AND RE-LINKEDITED WITH THE DFSMS LINKAGE EDITOR.     *   DOC FILE
//*            ACTUALLY, I THINK THESE WERE LINKED INTO THE ALGOL   *   DOC FILE
//*            COMPILER MODULES, BUT WERE NOT SEPARATE.  I'VE GOT   *   DOC FILE
//*            THE SEPARATED MODULES NOW, IN ADDITION.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  UPDATE TO FILE 182 WHICH IS PDS 8.5, FROM JOHN       *   DOC FILE
//*            KALINICH OF THE U.S. ARMY IN ST. LOUIS, TO ADD MORE  *   DOC FILE
//*            COMPATIBILITY FOR NEW OS/390 SYSTEMS, SUCH AS        *   DOC FILE
//*            4-DIGIT UCB SUPPORT.  THANKS GO TO GENE COLEY OF     *   DOC FILE
//*            EDS IN PLANO, TEXAS, AS WELL.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  UPDATE TO FILE 183 FROM GILBERT SAINT-FLOUR OF       *   DOC FILE
//*            AMS, TO INCLUDE A NEW VERSION OF SHOWMVS AND         *   DOC FILE
//*            SOME OTHER THINGS.  GILBERT'S EMAIL:  gsf@ibm.net    *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  UPDATE TO THE JES2 DYNAMIC EXIT LOADER ON FILE       *   DOC FILE
//*            198, FROM YAIR ELHARRAR OF BAR-ILAN UNIVERSITY IN    *   DOC FILE
//*            TEL-AVIV, ISRAEL, TO INCLUDE A NEW VARIETY OF THE    *   DOC FILE
//*            EXIT LOADER.  THIS VERSION OF THE DYNAMIC EXIT       *   DOC FILE
//*            LOADER WILL READ THE MODULES FROM THE JES2           *   DOC FILE
//*            STEPLIB, RATHER THAN THE LINKLIST.  THE STEPLIB      *   DOC FILE
//*            WILL BE OPENED AND CLOSED FOR EACH $REPEXIT OR       *   DOC FILE
//*            $ADDEXIT.  TESTED ON OS/390 2.4 JES2.                *   DOC FILE
//*                                                                 *   DOC FILE
//*            YAIR ELHARRAR, yair@ashur.cc.biu.ac.il               *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  UPDATE TO FILE 268 FROM MARK WINGES OF SAN FRANCISCO *   DOC FILE
//*            CALIFORNIA, TO INCLUDE A COMPLETELY REWRITTEN        *   DOC FILE
//*            VERSION OF HIS RXVSAM PACKAGE, WHICH IS A REXX       *   DOC FILE
//*            FUNCTION PACKAGE TO ACCESS AND MANIPULATE VSAM       *   DOC FILE
//*            FILES FROM REXX EXECS.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*            lynmark@compuserve.com                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  UPDATE TO FILE 270 FROM SAM KNUTSON OF GAITHERSBURG, *   DOC FILE
//*            MARYLAND, TO FIX THE SUPRNAME PROGRAM, SO IT WORKS   *   DOC FILE
//*            ON OS/390 SYSTEMS.  THIS PROGRAM ALLOWS DIRECT       *   DOC FILE
//*            RENAMES AND DELETES OF DATASETS IN BATCH, BY ZAPPING *   DOC FILE
//*            THE VTOC.  THIS PROCESS DISREGARDS ENQUEUES ON THE   *   DOC FILE
//*            DATASET NAME, AND CAN BE USED, FOR EXAMPLE TO GET    *   DOC FILE
//*            RID OF AN UNWANTED UNCATALOGED COPY OF SYS1.VTAMLST  *   DOC FILE
//*            FOR EXAMPLE, WHILE VTAM IS UP.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  UPDATE TO FILE 296 WHICH CONTAINS UTILITIES THAT     *   DOC FILE
//*            MAY BE USED TOGETHER WITH THE PDS 8.5 COMMAND FROM   *   DOC FILE
//*            FILE 182.  THIS UPDATE IS TO THE COMPAREB PROGRAM    *   DOC FILE
//*            AND IT IS FROM GREG PRICE OF MELBOURNE, AUSTRALIA.   *   DOC FILE
//*            THE COMPAREB CSECT SOURCE WAS REPLACED IN THE        *   DOC FILE
//*            MEMBER "COMPARE".  AMONG OTHER THINGS, THIS FIX      *   DOC FILE
//*            ALLOWS COMPAREB TO PROPERLY HANDLE RECORDS WITH      *   DOC FILE
//*            LRECL SHORTER THAN 80.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  UPDATE TO FILE 300 FROM BILL GODFREY, TO PUT YEAR    *   DOC FILE
//*            2000 SUPPORT INTO THE CDSCB MODULE.  ALSO TO ADD     *   DOC FILE
//*            SOME OTHER DATE-RELATED SUPPORT.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*            Current email:  bgodfrey@ssdnotes.wwb.noaa.gov       *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  UPDATE TO FILE 312 FROM LIONEL DYCK OF KAISER        *   DOC FILE
//*            PERMANENTE IN CALIFORNIA, TO ADD MORE FEATURES TO    *   DOC FILE
//*            HIS ISPF FTP INTERFACE DIALOG.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  UPDATE TO FILES 323 AND 324 FROM GERARD NICOL OF     *   DOC FILE
//*            SYDNEY, AUSTRALIA, TO INCLUDE HIS ENTIRE REXX        *   DOC FILE
//*            FUNCTION PACKAGE, INSTEAD OF A SMALL SUBSET.  THIS   *   DOC FILE
//*            PACKAGE NOW HAS ALL EXPIRY DATES TAKEN OUT, SO I     *   DOC FILE
//*            COULD INCLUDE IT, IN ITS ENTIRETY, ON THIS TAPE.     *   DOC FILE
//*            FILE 323 CONTAINS SOURCE-FORMAT SAMPLIB MATERIALS,   *   DOC FILE
//*            AND FILE 324 CONTAINS LOAD MODULES.  SOURCE CODE     *   DOC FILE
//*            FOR THE LOAD MODULES IS NOT INCLUDED.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  UPDATE TO FILES 333 AND 335 FROM ROLAND SCHIRADIN    *   DOC FILE
//*            OF ELTVILLE, GERMANY, TO INCLUDE FIXES FOR HIS       *   DOC FILE
//*            VERSION OF GZIP390.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  ADDITION OF FILE 338 FROM GILBERT SAINT-FLOUR OF     *   DOC FILE
//*            AMS, WHICH CONTAINS PROGRAMS TO ENHANCE THE          *   DOC FILE
//*            OPERATION OF P390 SYSTEMS.  SOME OF THESE PROGRAMS   *   DOC FILE
//*            MAY BE USEFUL FOR OTHER MVS (OS/390) INSTALLATIONS   *   DOC FILE
//*            AS WELL.  NOTABLE IS THE CANCELU PROGRAM, WHICH      *   DOC FILE
//*            ALLOWS A REMOTE USER, WHOSE TSO SESSION IS STUCK,    *   DOC FILE
//*            OR IS DISCONNECTED FROM HIM, TO CANCEL THE SESSION   *   DOC FILE
//*            FROM A REMOTE LOCATION, USING A DIFFERENT ID, WHICH  *   DOC FILE
//*            IS ESPECIALLY AVAILABLE FOR THIS PURPOSE.  ALSO      *   DOC FILE
//*            INCLUDED ARE AUTOMATED IPL AND SHUTDOWN FOR THE      *   DOC FILE
//*            P390.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  ADDITION OF FILE 340 FROM ALFRED NYKOLYN, WITH       *   DOC FILE
//*            IMPROVEMENTS FROM ROLAND SCHIRADIN.  THIS FILE       *   DOC FILE
//*            CONTAINS DCM ("DIRT CHEAP MONITOR"), WHICH IS A      *   DOC FILE
//*            MODERN PROGRAM, COMPLETELY UNRELATED TO THE OLD      *   DOC FILE
//*            DCMS ("DIRT CHEAP MONITOR SYSTEM") FROM THE OLD      *   DOC FILE
//*            CBT TAPES.  THIS DCM, VERSION 0.8, TAKES ADVANTAGE   *   DOC FILE
//*            OF THE STATISTICS THAT ARE COLLECTED BY THE 7980-3   *   DOC FILE
//*            DASD CONTROLLERS, AND REPORTS ON THESE STATISTICS.   *   DOC FILE
//*                                                                 *   DOC FILE
//*            FROM THE STATISTICS SHOWN BY THE DCM PROGRAM, YOU    *   DOC FILE
//*            CAN FIND OUT I/O RATES TO DASD DEVICES, AND ALL      *   DOC FILE
//*            KINDS OF PERFORMANCE INFORMATION ABOUT THEM.  IF     *   DOC FILE
//*            YOUR SYSTEM IS EQUIPPED WITH THESE CONTROLLERS,      *   DOC FILE
//*            IT PAYS FOR YOU TO USE THIS PROGRAM.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  ADDITION OF FILE 341 FROM MARK YUHAS OF RENTON,      *   DOC FILE
//*            WASHINGTON, WHICH CONTAINS THE LAMDA PROGRAM TO      *   DOC FILE
//*            LOAD LPA MODULES INTO CSA, AND WHICH ALSO            *   DOC FILE
//*            CONTAINS A BEAUTIFUL SET OF STRUCTURED ASSEMBLER     *   DOC FILE
//*            MACROS.  THIS CODE IS MORE OF AN EXAMPLE THAN        *   DOC FILE
//*            SOMETHING YOU'D ACTUALLY RUN, BUT IT IS              *   DOC FILE
//*            BEAUTIFUL.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  ADDITION OF FILE 342 FROM JOHN KALINICH WHICH        *   DOC FILE
//*            CONTAINS AN ISPF INTERFACE TO THE MODEL 204          *   DOC FILE
//*            DATABASE SYSTEM.  THERE'S A NICE PROGRAM IN HERE     *   DOC FILE
//*            CALLED TERMID, THAT'S FOR ANYONE TO USE (NOT         *   DOC FILE
//*            NECESSARILY MODEL 204 LICENSEES).                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  ADDITION OF FILE 343 WHICH IS THE VTOCLIST           *   DOC FILE
//*            PROGRAM FROM PETER HAVERCAN OF ENGLAND, WHICH WAS    *   DOC FILE
//*            MODIFIED OVER THE YEARS, BY JOHN KALINICH.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  ADDITION OF FILE 344 FROM JOERG BERNING, WHICH       *   DOC FILE
//*            IS A REXX EXEC THAT DOES A LIST VTOC FOR DATASETS    *   DOC FILE
//*            ON A DASD VOLUME.  THIS EXEC USES THE ISPF EDIT      *   DOC FILE
//*            SERVICE TO EDIT THE RESULTING VTOC LISTING.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        30  ADDITION OF FILE 345 FROM RICK FOCHTMAN OF CHICAGO,  *   DOC FILE
//*            ILLINOIS, WHICH IS A SET OF PROGRAMS TO DISPLAY      *   DOC FILE
//*            ENQUEUE CONTENTIONS UNDER GRS.  HIS SHOP CONVERTED   *   DOC FILE
//*            FROM MIM TO GRS, AND THEY HAD TO MAKE UP FOR         *   DOC FILE
//*            REDUCED ABILITY TO DISPLAY ENQUEUE CONTENTIONS.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        31  ADDITION OF FILE 346 FROM BOB BREAK OF ST. LOUIS,    *   DOC FILE
//*            MISSOURI, WHICH CONTAINS SEVERAL JES2 EXITS.  3 OF   *   DOC FILE
//*            THE 4 EXITS ARE FOR JES2 6.0.4 (OS/390 RELEASE 5),   *   DOC FILE
//*            AND THE OTHER IS FOR MVS/ESA 5.2.2, WHICH WAS        *   DOC FILE
//*            INCLUDED SO YOU CAN SEE AN EXAMPLE OF HOW TO         *   DOC FILE
//*            CONVERT FROM 5.2.2 TO 6.0.4.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        32  UPDATE TO FILE 369 FROM ED BILLOWITZ OF VIRGINIA     *   DOC FILE
//*            COMMONWEALTH UNIVERSITY, AND FROM ALAN FIELD OF      *   DOC FILE
//*            SUPER VALU IN EDEN PRAIRIE, MINNESOTA.  THIS IS AN   *   DOC FILE
//*            UPDATE TO THE REPLYTO PROGRAM (TO AUTOMATICALLY      *   DOC FILE
//*            REPLY TO CONSOLE MESSAGES), SO THE PROGRAM IS ABLE   *   DOC FILE
//*            TO HANDLE 4-DIGIT REPLY ID'S.                        *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-418 SECTION                                          *   DOC FILE
//*  V-418  CHANGES FOR VERSION 418 MAY 29, 1998                    *   DOC FILE
//*        00  MANY THANKS TO SAM KNUTSON FOR HIS LARGE AMOUNT      *   DOC FILE
//*            OF CONTINUING ASSISTANCE TO ME, AND OF COURSE,       *   DOC FILE
//*            TO GILBERT SAINT-FLOUR AND AMS, FOR HOSTING          *   DOC FILE
//*            THE PRODUCTION OF THIS TAPE.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  TO MAKE ROOM ON THIS TAPE, SOME OLDER, BUT BIG       *   DOC FILE
//*            FILES ARE BEING MOVED TO THE CBT OVERFLOW TAPE,      *   DOC FILE
//*            AND DELETED FROM THIS TAPE.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*            FILE 198  TO  FILE 084 OF OVERFLOW TAPE - PDS 8.4    *   DOC FILE
//*            FILE 393  TO  FILE 093 OF OVERFLOW TAPE - QUE CMD    *   DOC FILE
//*            FILE 394  TO  FILE 094 OF OVERFLOW TAPE - QUE CMD    *   DOC FILE
//*            FILE 395  TO  FILE 095 OF OVERFLOW TAPE - QUE CMD    *   DOC FILE
//*            FILE 396  TO  FILE 096 OF OVERFLOW TAPE - QUE CMD    *   DOC FILE
//*            FILE 397  TO  FILE 097 OF OVERFLOW TAPE - QUE CMD    *   DOC FILE
//*            FILE 398  TO  FILE 098 OF OVERFLOW TAPE - QUE CMD    *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 003, WHICH IS THE JCL JOB STREAM      *   DOC FILE
//*            TO UNLOAD THIS TAPE TO DISK.  ALL OCCURRENCES OF     *   DOC FILE
//*            'REGION=256K' ARE BEING CHANGED TO 'REGION=600K'.    *   DOC FILE
//*            I HEARD THAT THERE HAD BEEN SOME TROUBLE WITH        *   DOC FILE
//*            IEBCOPY ON OS/390 SYSTEMS USING A SMALL REGION       *   DOC FILE
//*            SIZE.  THANKS TO ROLAND SCHIRADIN.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 035 WHICH IS A LOAD MODULE FILE,      *   DOC FILE
//*            TO INCLUDE THE LATEST VERSION OF PDS 8.5 AND         *   DOC FILE
//*            WHATEVER ELSE, IF ANYTHING.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 071 WHICH IS A REFERENCE TO THE DOC   *   DOC FILE
//*            FILES OF OTHER TAPES.  THE JES2 SHARE TAPE FILE WAS  *   DOC FILE
//*            UPDATED, AND THE CBT OVERFLOW TAPE DOC.  IF THERE    *   DOC FILE
//*            WAS ANYTHING ELSE, IT'LL BE INCLUDED.  JUST LOOK     *   DOC FILE
//*            AT THE ISPF STATS.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  UPDATE TO FILE 088 FROM BRIAN WESTERMAN OF SYZYGY    *   DOC FILE
//*            INC. TO BEGIN A REFRESH OF HIS FILE FOR NEWER        *   DOC FILE
//*            SYSTEMS.  MANY OF THE PROGRAMS IN THIS FILE WERE     *   DOC FILE
//*            DEVELOPED FOR MVS/370 AND MVS/XA.  BRIAN NOW HAS     *   DOC FILE
//*            ACCESS TO OS/390 V4, AND HAS BEGUN TO FIX SOME       *   DOC FILE
//*            OF HIS STUFF.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*            NEW ADDRESS AND PHONE NUMBER:                        *   DOC FILE
//*               BRIAN WESTERMAN                                   *   DOC FILE
//*               SYZYGY INCORPORATED                               *   DOC FILE
//*               1381 KILDAIRE FARM ROAD                           *   DOC FILE
//*               MAIL STOP 326                                     *   DOC FILE
//*               CARY,  NC  27511-5525                             *   DOC FILE
//*               (800) 767-2244                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  UPDATE TO FILE 103 FROM BILL HORTON, TO ADD A        *   DOC FILE
//*            MESSAGE MEMBER, TECA08, THAT WAS MISSING FROM THE    *   DOC FILE
//*            GRS/ENQ ISPF DIALOG.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  UPDATE TO FILE 120 TO ADD MORE ARTICLES.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  UPDATE TO FILE 134 FROM GREG PRICE OF MELBOURNE,     *   DOC FILE
//*            AUSTRALIA WITH ENHANCEMENTS TO THE REVIEW PROGRAM    *   DOC FILE
//*            AND OTHER THINGS.  IN PARTICULAR, REVIEW IS AT       *   DOC FILE
//*            LEVEL 29.9, AT LEAST.  ENHANCEMENT MADE ALSO TO      *   DOC FILE
//*            FULLSCREEN ZAP, TO SUPPORT TERMINALS OTHER THAN      *   DOC FILE
//*            24X80 AS WELL.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  UPDATE TO FILE 135 FROM GREG PRICE OF MELBOURNE,     *   DOC FILE
//*            AUSTRALIA TO REFLECT HIS CHANGES TO THE SOURCE CODE  *   DOC FILE
//*            ON FILE 134, AND TO SHOWMVS FROM FILE 183.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  UPDATE TO FILE 182 FROM JOHN KALINICH OF THE US      *   DOC FILE
//*            ARMY IN ST LOUIS.  THIS IS TO MAKE SOME ADJUSTMENTS  *   DOC FILE
//*            TO THE PDS 8.5 FILE, TO FIX SOME SLIGHT PROBLEMS.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  UPDATE TO FILE 183 FROM GILBERT SAINT-FLOUR.         *   DOC FILE
//*            THIS IS A GENERAL UPDATE OF HIS PROGRAMS, AND TO     *   DOC FILE
//*            SHOWMVS.  SEVERAL USEFUL THINGS HAVE BEEN ADDED,     *   DOC FILE
//*            NOTABLY A PROGRAM TO RENAME AND DELETE DATASETS,     *   DOC FILE
//*            BYPASSING EXISTING ENQUEUES.  LIKE SUPRNAME FROM     *   DOC FILE
//*            FILE 270 (WHICH IS RUMORED NOT TO WORK FOR OS/390    *   DOC FILE
//*            LATER EDITIONS--THIS IS BEING LOOKED INTO).          *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  ADDITION OF FILE 198 FROM BOB BREAK OF SAINT LOUIS,  *   DOC FILE
//*            MISSOURI.  THIS IS A JES2 EXIT LOADER, AT LAST!      *   DOC FILE
//*            THIS PROGRAM WILL SUBSTITUTE A NEW VERSION OF ANY    *   DOC FILE
//*            JES2 EXIT, AT ANY EXIT POINT WHICH IS DEFINED IN     *   DOC FILE
//*            JES2 MAINLINE CODE.  THIS IS A JES2 EXIT 5 ROUTINE.  *   DOC FILE
//*                                                                 *   DOC FILE
//*            WE HAVE BEEN WAITING FOR A PROGRAM LIKE THIS FOR     *   DOC FILE
//*            A LONG TIME, AND WE NO LONGER HAVE TO ASK IBM TO     *   DOC FILE
//*            WRITE US ONE.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*            THERE ARE 2 VERSIONS OF THE EXIT LOADER INCLUDED     *   DOC FILE
//*            IN THIS FILE.  THE ONE FROM BOB BREAK WILL ACCEPT    *   DOC FILE
//*            NEW MODULE INPUT ONLY FROM A LINKLIST AUTHORIZED     *   DOC FILE
//*            LIBRARY.  A MODIFIED VERSION FROM JACK SCHUDEL       *   DOC FILE
//*            IS (I THINK) A BIT MORE LIBERAL IN WHERE IT CAN      *   DOC FILE
//*            GET ITS INPUT FROM.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*            THE OLD FILE 198 HAS BEEN MOVED TO FILE 084 OF THE   *   DOC FILE
//*            CBT OVERFLOW TAPE.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  UPDATE TO FILE 270, TO FIX THE MACLIB MEMBER.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  UPDATE TO FILE 296 FROM BRUCE LELAND, TO FIX THE     *   DOC FILE
//*            DVOL COMMAND FOR 4-DIGIT UCB'S AND ALSO TO RUN       *   DOC FILE
//*            ON SYSTEMS THAT HAVE ONLY 3-DIGIT UCB'S.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  UPDATE TO FILE 311 FROM DAVE ALCOCK, TO FIX THE      *   DOC FILE
//*            DASRCV MEMBER, THAT WAS MISSING THE FIRST LINE.      *   DOC FILE
//*            THIS IS SOME OUTPUT DATA IN TSO XMIT FORMAT, AND     *   DOC FILE
//*            WITHOUT THE FIRST LINE, IT COULD NOT BE RECEIVED.    *   DOC FILE
//*            THERE IS ALSO A NEW VERSION OF HIS PDS LISTER PGM.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  ADDITION OF FILE 312 FROM LIONEL DYCK OF KAISER      *   DOC FILE
//*            PERMANENTE IN WALNUT CREEK, CALIFORNIA.  THIS        *   DOC FILE
//*            IS AN ISPF DIALOG INTERFACE TO RUN FTP FROM AN       *   DOC FILE
//*            MVS (OS/390) SYSTEM.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  ADDITION OF FILE 313 FROM MURRAY NICHOLAS, WHICH     *   DOC FILE
//*            IS A GENERAL MPF EXIT THAT CAN BE USED TO ACT UPON   *   DOC FILE
//*            MANY DIFFERENT MESSAGES.  THE EXIT POINTS TO A PDS   *   DOC FILE
//*            WHICH CONTAINS THE SPECIFIC RESPONSE FOR EACH        *   DOC FILE
//*            MESSAGE AS A SEPARATE MEMBER.  NEAT.  CAN USE SOME   *   DOC FILE
//*            FIXING TO MAKE IT REALLY POWERFUL.  I THINK SOMEONE  *   DOC FILE
//*            CAN BORROW SOME OF THE CODE FROM TSSO (FILE 404).    *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  ADDITION OF FILE 314 FROM DAVE LEES, WITH SEVERAL    *   DOC FILE
//*            OF HIS UTILITIES.  ONE IS A SEQUENTIAL COPY          *   DOC FILE
//*            PROGRAM CALLED COPYANY, AND THE OTHER IS A LINKLIST  *   DOC FILE
//*            AND LPALIST XREF PACKAGE.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  ADDITION OF FILE 315 FROM BOB FOWLES OF THE UNIV.    *   DOC FILE
//*            OF PENNSYLVANIA, AND PHILIP SMITH III.  THIS IS      *   DOC FILE
//*            A VM REXX EXEC WHICH IS AN XEDIT MACRO.  ITS         *   DOC FILE
//*            PURPOSE IS TO PROPERLY INDENT AND PRETTIFY OTHER     *   DOC FILE
//*            REXX EXECS AS YOU ARE WRITING THEM.  I'M INCLUDING   *   DOC FILE
//*            IT HERE IN THE HOPE THAT SOMEONE CAN CONVERT IT      *   DOC FILE
//*            TO TSO REXX, FOR USE AS AN ISPF EDIT MACRO.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  ADDITION OF FILE 317 FROM TIM HENNESS OF TENNECO     *   DOC FILE
//*            IN NEWPORT NEWS, VIRGINIA.  THIS FILE CONTAINS A     *   DOC FILE
//*            BOOKMANAGER MANAGEMENT PACKAGE, WRITTEN IN REXX,     *   DOC FILE
//*            AND MEANT TO BE RUN IN BATCH.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  ADDITION OF FILE 318 FROM KNUT FEIERT OF H&M SYSTEM  *   DOC FILE
//*            SOFTWARE IN ROEDERMARK, GERMANY.  THIS PACKAGE       *   DOC FILE
//*            READS A VSE POWER POFFLOAD TAPE, AND PRINTS THE      *   DOC FILE
//*            OUTPUTS ON A VM OR MVS SYSTEM.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  ADDITION OF FILE 321 FROM ROLAND SCHIRADIN OF        *   DOC FILE
//*            GERMANY, WHICH CONTAINS A COBOL LOAD MODULE          *   DOC FILE
//*            ANALYSIS PROGRAM, AND A PROGRAM TO CHECK IF A        *   DOC FILE
//*            PARTICULAR STARTED TASK IS RUNNING.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  ADDITION OF FILE 322 TO GATHER VARIOUS PROGRAMS      *   DOC FILE
//*            THAT RUN UNDER MVS TSO, WHICH PERFORM THE            *   DOC FILE
//*            APPROXIMATE EQUIVALENT OF THE VM CP SLEEP COMMAND.   *   DOC FILE
//*            THESE PROGRAMS WERE OBTAINED FROM THE INTERNET.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  ADDITION OF FILE 323 FROM GERARD NICOL OF EUREKA     *   DOC FILE
//*            SYSTEMS PROGRAMMING PTY LTD OF LEICHHARDT AUSTRALIA. *   DOC FILE
//*            THIS IS A SUBSET OF HIS PACKAGE OF REXX FUNCTIONS.   *   DOC FILE
//*            THIS FILE CONTAINS SOURCE-FORMAT MEMBERS.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  ADDITION OF FILE 324 FROM GERARD NICOL OF EUREKA     *   DOC FILE
//*            SYSTEMS PROGRAMMING PTY LTD OF LEICHHARDT AUSTRALIA. *   DOC FILE
//*            THIS IS A SUBSET OF HIS PACKAGE OF REXX FUNCTIONS.   *   DOC FILE
//*            THIS FILE CONTAINS LOAD MODULES.  THE FULL PACKAGE   *   DOC FILE
//*            CAN BE DOWNLOADED FROM GERARD'S SITE AT:             *   DOC FILE
//*                                                                 *   DOC FILE
//*             http://www.leichhardt.net.au/gerard/rexxfp1/        *   DOC FILE
//*                                                                 *   DOC FILE
//*            THE PORTION OF HIS PACKAGE INCLUDED HERE, DOES NOT   *   DOC FILE
//*            EXPIRE (I.E. TIME OUT).  THE FULL PACKAGE HAS AN     *   DOC FILE
//*            EXPIRATION DATE AND TIME.  I WILL NOT INCLUDE SUCH   *   DOC FILE
//*            CODE ON THIS TAPE, KNOWINGLY.  (SBG)                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  ADDITION OF FILE 328 FROM ARON EISENPRESS OF CUNY    *   DOC FILE
//*            (CITY UNIVERSITY OF NEW YORK).  THIS IS AN EXAMPLE   *   DOC FILE
//*            OF AN ALLOCATION EXIT IGGPRE00, IGGPOST0 WHICH       *   DOC FILE
//*            DOES SOME USEFUL THINGS, AND IS A GOOD CODING        *   DOC FILE
//*            EXAMPLE.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  ADDITION OF FILE 329 FROM TOM BRENNAN OF SOUTHERN    *   DOC FILE
//*            CALIFORNIA EDISON IN ROSEMEAD, CALIFORNIA.  THIS IS  *   DOC FILE
//*            A LARGE EXAMPLE OF A JES2 EXIT 6 PROGRAM, WHICH HAS  *   DOC FILE
//*            MUCH USEFUL CODE.  HOWEVER, IT IS INSTALLATION       *   DOC FILE
//*            DEPENDENT, AND IS INTENDED AS A USEFUL CODING        *   DOC FILE
//*            EXAMPLE, TO SHOW WHAT A JES2 EXIT 6 ROUTINE CAN DO,  *   DOC FILE
//*            AND TO SUPPLY SOME CODE FOR YOU TO BORROW FROM.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  ADDITION OF FILE 333, FILE 334, AND FILE 335 FROM    *   DOC FILE
//*            HARALD DENKER AND ROLAND SCHIRADIN, VIA GILBERT      *   DOC FILE
//*            SAINT-FLOUR, WHICH CONTAINS THE GZIP COMPRESSION-    *   DOC FILE
//*            DECOMPRESSION UTILITY.  THIS UTILITY WAS PORTED      *   DOC FILE
//*            FROM UNIX, AND IS WRITTEN IN C/370.  THIS UTILITY    *   DOC FILE
//*            IS THE COMPRESSION STANDARD OF THE GNU ORGANIZATION. *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  ADDITION OF FILE 337 FROM ATALAY GUL OF ANKARA,      *   DOC FILE
//*            TURKEY, AND CONTAINS A PROGRAM WRITTEN IN PL/I,      *   DOC FILE
//*            TO FIND ALL OCCURRENCES OF A PDS MEMBER ON MULTIPLE  *   DOC FILE
//*            DATASETS AND MULTIPLE VOLUMES THROUGHOUT THE SYSTEM. *   DOC FILE
//*                                                                 *   DOC FILE
//*            SAMPLE OUTPUT OF THE PROGRAM:                        *   DOC FILE
//*                                                                 *   DOC FILE
//*             MEMBER      VOLSER    DSNAME                        *   DOC FILE
//*             ======      ======    ======                        *   DOC FILE
//*             SIL         V00001    SAPAAAS.BATCH.PLI             *   DOC FILE
//*             SIL         VDID01    SADAAAS.SAMPLE2.ASM           *   DOC FILE
//*             SIL         V00002    PRFAGAS.SIL.SIL1              *   DOC FILE
//*             SIL         SYST0A    PRFAGAS.USER.JCL              *   DOC FILE
//*             SIL         TSOP01    EMVD.NAT.JCLLIB               *   DOC FILE
//*             SIL         TSOP01    KMUD.NET.VTAMLST              *   DOC FILE
//*             SIL         MVSTRA    UGIDBA1.DB2.JCL               *   DOC FILE
//*             SIL         MVSPR2    UDIGAAS.BATCH.JCLLIB          *   DOC FILE
//*                                                                 *   DOC FILE
//*        30  UPDATE TO FILE 360 FROM GORDON B. HAMPTON TO UPDATE  *   DOC FILE
//*            THE VOLS COMMAND, SO IT CAN (ALSO) ACCOMMODATE       *   DOC FILE
//*            4-DIGIT UCB'S, AND CAN STILL DO 3-DIGIT UCB'S.       *   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 3480 IDRC OR 3490E CARTRIDGE,  *   DOC FILE
//*            IT WILL BE EASIER TO COUNT THE FILE NUMBERS.         *   DOC FILE
//*                                                                 *   DOC FILE
//*            CHANGED TWO SECTIONS IN THIS DOCUMENTATION.          *   DOC FILE
//*            THE INFORMATION SECTION WAS ELIMINATED, AND THE      *   DOC FILE
//*            CROSS XREF SECTION WAS SHORTENED.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*            IN FILE 003, JCL TO DUMP THE FILES ON THIS TAPE TO   *   DOC FILE
//*            DISK, PGM=IEV90 WAS CHANGED TO PGM=ASMA90, AND THE   *   DOC FILE
//*            DEFAULT REGION SIZE FOR THE ASSEMBLER STEP WAS       *   DOC FILE
//*            CHANGED TO 1024K.  IF YOU HAVE AN OLDER SYSTEM,      *   DOC FILE
//*            YOU CAN COMMENT AND UNCOMMENT VARIOUS LINES IN THE   *   DOC FILE
//*            JCL, TO USE IEV90, OR EVEN TO USE IFOX00.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  UPDATE TO FILE 035 TO REPLACE LOAD MODULES FOR       *   DOC FILE
//*            PDS 8.5 AND VTOC.  THIS IS ACCORDING TO FIXES FROM   *   DOC FILE
//*            JOHN KALINICH TO FILES 182 AND 112.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 071, TO REFLECT CHANGES IN DOCUMEN-   *   DOC FILE
//*            TATION FOR THE CBT OVERFLOW TAPE, WHICH HAS BEEN     *   DOC FILE
//*            CONSIDERABLY MODIFIED, TO VERSION 417V.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 103 FROM BILL HORTON OF EASTMAN       *   DOC FILE
//*            CHEMICAL COMPANY IN KINGSPORT, TENNESSEE TO BRING    *   DOC FILE
//*            A HIS PROGRAMS TO THE OS/390 LEVEL.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 112 FROM JOHN KALINICH TO FINISH      *   DOC FILE
//*            A FEW CHANGES IN THE VTOC TSO COMMAND, REGARDING     *   DOC FILE
//*            YEAR 2000 REPORTING.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*                  VTOC COMMAND MODS  -  DECEMBER 1997            *   DOC FILE
//*                  -----------------                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        1.  MODIFIED BY JOHN KALINICH AT US ARMY LSSC            *   DOC FILE
//*            TO SUPPORT YEAR 2000 DATES FOR THE INTERFACE         *   DOC FILE
//*            TO THE YEAR 2000 VERSION OF THE PDS COMMAND          *   DOC FILE
//*            (VERSION 8.5).  THE OVERFLOW INDICATOR ("**")        *   DOC FILE
//*            THAT WOULD RESULT FROM A YEAR 2000 YY VALUE          *   DOC FILE
//*            (X'64') BEING CONVERTED IS NOW IGNORED AND THE       *   DOC FILE
//*            2 LOW ORDER DIGITS ARE PASSED TO THE "LISTFILE       *   DOC FILE
//*            VTOC" DIALOG.  FOR EXAMPLE, A DATE OF                *   DOC FILE
//*            X'640064' WOULD BE CONVERTED TO C'00100'             *   DOC FILE
//*            INSTEAD OF C'**100' WHICH CAUSED AN 0C7 ABEND        *   DOC FILE
//*            IN PDS WHEN THE DATE WAS CONVERTED TO YY/MM/DD       *   DOC FILE
//*            FORMAT.  ADDED MACRO CONVY2K THAT IS CALLED BY       *   DOC FILE
//*            VT0CPRNT/VTOCPRNT.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        2.  ADDED Y2K DATE WINDOWING CODE IN VTOCCHEK TO         *   DOC FILE
//*            PROCESS DATES CORRECTLY WITH THE LIMIT OPERAND.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        3.  ADDED MEMBER VTOCPARX (OLD VERSION OF VTOCPARS)      *   DOC FILE
//*            FOR USE WITH THE OLD VERSION OF VTOCPRNT.            *   DOC FILE
//*                                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  UPDATE TO FILE 120 FROM SAM GOLOB, TO ADD MORE       *   DOC FILE
//*            MATERIAL TO HIS COLLECTION OF ARTICLES FROM          *   DOC FILE
//*            HIS MONTHLY COLUMN IN "TECHNICAL SUPPORT" MAGAZINE.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  UPDATE TO FILE 182 WHICH IS THE PDS 8.5 TSO COMMAND  *   DOC FILE
//*            PROCESSOR PACKAGE.  PROBLEMS FIXED SO FAR, AND       *   DOC FILE
//*            IMPROVEMENTS TO THE PACKAGE BY JOHN KALINICH, ARE    *   DOC FILE
//*            AS FOLLOWS:                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*                       PDS VERSION 8.5 MODS                      *   DOC FILE
//*                       ---------------------                     *   DOC FILE
//*                                                                 *   DOC FILE
//*      NEW SUBCOMMANDS                                            *   DOC FILE
//*      ---------------                                            *   DOC FILE
//*           NONE                                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*      CHANGES AND IMPROVEMENTS                                   *   DOC FILE
//*      ------------------------                                   *   DOC FILE
//*        1.  YEAR 2000 SUPPORT IN MEMLIST, IF, ATTRIB,            *   DOC FILE
//*            HISTORY, GLOBAL, LISTC, AND TIME SUBCOMMANDS.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        2.  ADDED MEMBER PDSJCLHL TO ASSEMBLE PDS WITH THE       *   DOC FILE
//*            HIGH LEVEL ASSEMBLER.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        3.  INCORPORATED GREG PRICE'S MODS (FILE 134) TO         *   DOC FILE
//*            #PDSTBL AND @PRINTO SO REVIEW : AND PRINTOFF :       *   DOC FILE
//*            PROCESS THE WHOLE DATA SET ONCE, RATHER THAN         *   DOC FILE
//*            EACH MEMBER INDIVIDUALLY.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        4.  ADDED PANEL P85@CUA AS AN ALTERNATIVE TO THE         *   DOC FILE
//*            P85PN@P PRIMARY PDS PANEL.  ADDED CUA CODE           *   DOC FILE
//*            UTILIZING ISPF VERSION 4.X REFERENCE LISTS ON        *   DOC FILE
//*            THE ACTION BAR.  ADDED PANEL P85LOGO FOR AN          *   DOC FILE
//*            ABOUT... POP-UP ON THE HELP PULL-DOWN.               *   DOC FILE
//*                                                                 *   DOC FILE
//*      PROBLEMS FIXED                                             *   DOC FILE
//*      --------------                                             *   DOC FILE
//*        1.  @DIALSTC WAS DROPPING "LISTFILE VTOC" TABLE          *   DOC FILE
//*            ENTRIES FOR DATASETS WITH SINGLE DIGIT               *   DOC FILE
//*            ALLOCATION VALUES IF RUNNING WITH THE 7-DIGIT        *   DOC FILE
//*            VTOC ALLOC MOD (VT0CPRNT).                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        2.  MEMBER LINE COUNTS ABOVE 32,767 HAVE BEEN            *   DOC FILE
//*            CORRECTED IN ATTRIB, HISTORY, IF, LIST, AND          *   DOC FILE
//*            VERIFY.                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  ADDITION OF FILE 309 WHICH CONTAINS SOURCE CODE      *   DOC FILE
//*            FOR THE OS/360 ALGOL COMPILER WHICH CAN BE FOUND     *   DOC FILE
//*            IN EXECUTABLE FORM ON FILE 176 OF THIS TAPE.  THIS   *   DOC FILE
//*            SOURCE IS PUBLIC-DOMAIN, AND COMES FROM THE IBM      *   DOC FILE
//*            OS/360 SOURCE TAPE.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  ADDITION OF FILE 310 WHICH CONTAINS SOURCE CODE      *   DOC FILE
//*            FOR THE OS/360 ALGOL LIBRARY WHICH CAN BE FOUND      *   DOC FILE
//*            IN EXECUTABLE FORM ON FILE 176 OF THIS TAPE.  THIS   *   DOC FILE
//*            SOURCE IS PUBLIC-DOMAIN, AND COMES FROM THE IBM      *   DOC FILE
//*            OS/360 SOURCE TAPE.  IT IS HOPED THAT HAVING SOURCE  *   DOC FILE
//*            CODE WILL HELP THE OLD ALGOL LANGUAGE BECOME MORE    *   DOC FILE
//*            USEFUL TO SOMEBODY.  WE ARE TRYING TO MAKE FURTHER   *   DOC FILE
//*            IMPROVEMENTS.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  ADDITION OF FILE 311 FROM DAVE ALCOCK, WHICH IS HIS  *   DOC FILE
//*            LARGE COLLECTION OF UTILITIES.  THESE UTILITIES CAN  *   DOC FILE
//*            ALSO BE FOUND ON DAVE'S WEB SITE:                    *   DOC FILE
//*                                                                 *   DOC FILE
//*                 http://www.ticnet.com/davea/mvs                 *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-416 SECTION                                          *   DOC FILE
//*  V-416  CHANGES FOR VERSION 416 DEC 18, 1997                    *   DOC FILE
//*        00  WHILE KEEPING THIS TAPE AS A TAPE, WE ARE TRYING     *   DOC FILE
//*            TO CONTINUE OUR MIGRATION INTO THE ELECTRONIC AGE.   *   DOC FILE
//*                                                                 *   DOC FILE
//*            CONTRIBUTORS:  IF YOU CAN, PLEASE EMAIL ANY UPDATES  *   DOC FILE
//*                           IN XMIT FORMAT OR ZIPPED XMIT FORMAT  *   DOC FILE
//*                           TO:                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*             sbgolob@attglobal.net OR sbgolob@aol.com            *   DOC FILE
//*                                                                 *   DOC FILE
//*            SEE CONTRIBUTOR INFORMATION ABOVE, FOR DETAILS.      *   DOC FILE
//*                                                                 *   DOC FILE
//*            OR:     PUT A PDS INTO XMIT FORMAT (OUTDSN) AND      *   DOC FILE
//*                    FTP IT TO GILBERT SAINT-FLOUR'S SITE:        *   DOC FILE
//*                                                                 *   DOC FILE
//*        SEND GILBERT EMAIL TO VERIFY HIS CURRENT IP ADDRESS,     *   DOC FILE
//*        gsf@ibm.net (email).                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  UPDATE TO FILE 035 TO ADD THE COPYSLNL PROGRAM FROM  *   DOC FILE
//*            SAM GOLOB.  THIS PROGRAM WORKS LIKE THE COPYFILE     *   DOC FILE
//*            PROGRAM FROM FILE 316, WHICH COPIES SELECTED OR ALL  *   DOC FILE
//*            STANDARD LABELED FILES FROM ONE SL TAPE TO ANOTHER.  *   DOC FILE
//*            COPYSLNL WORKS THE SAME WAY AND USES THE SAME        *   DOC FILE
//*            CONTROL CARDS, BUT IT STRIPS THE LABELS OFF AND      *   DOC FILE
//*            PRODUCES A NON-LABELED OUTPUT TAPE.  FIXED COPYFILE  *   DOC FILE
//*            TOO.                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 071 TO LIST ARTICLES AND PROGRAMS     *   DOC FILE
//*            THAT ARE DOWNLOADABLE FROM XEPHON'S WEB SITE FOR     *   DOC FILE
//*            FREE.  THESE ARE XEPHON MAGAZINE ARTICLES AND        *   DOC FILE
//*            PROGRAMS THAT ARE TWO OR MORE YEARS OLD.  YOU GO     *   DOC FILE
//*            TO WWW.XEPHON.COM .  NEWER ARTICLES AND PGMS ARE     *   DOC FILE
//*            AVAILABLE TO PAID SUBSCRIBERS, AND YOU CAN (IF       *   DOC FILE
//*            YOU'RE INTERESTED) SUBSCRIBE ONLINE.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 094 FROM MICHAEL CLEARY OF BERGEN     *   DOC FILE
//*            BRUNSWIG IN CALIFORNIA, TO INCLUDE AN ASSEMBLER      *   DOC FILE
//*            VERSION OF HIS DAF PROGRAM.  I'VE RETAINED HIS PL/I  *   DOC FILE
//*            VERSION THAT IS OLDER.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 112 WHICH IS THE VTOC TSO COMMAND.    *   DOC FILE
//*            VTOC CAN BE CALLED BY THE PDS 8.5 COMMAND, TO        *   DOC FILE
//*            PRODUCE DATASET LISTS ON A VOLUME.  AFTER YEAR 2000  *   DOC FILE
//*            DATES, YOU NEED TO SEE THE NOTES AT THE BEGINNING    *   DOC FILE
//*            OF THIS FILE.  UPDATE IS FROM JOHN KALINICH.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  UPDATE TO FILE 120 FROM SAM GOLOB TO ADD MORE        *   DOC FILE
//*            ARTICLES.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  UPDATE TO FILE 134 FROM GREG PRICE OF MELBOURNE      *   DOC FILE
//*            AUSTRALIA, TO INCLUDE VERSION 29.3 OF THE REVIEW     *   DOC FILE
//*            TSO COMMAND.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  UPDATE TO FILE 135 FROM GREG PRICE OF MELBOURNE      *   DOC FILE
//*            AUSTRALIA, TO INCLUDE THE LOAD MODULE FOR VERSION    *   DOC FILE
//*            29.3 OF THE REVIEW TSO COMMAND, AND ALIASES.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  UPDATE TO FILE 182 FROM JOHN KALINICH OF THE U.S.    *   DOC FILE
//*            ARMY IN ST. LOUIS.  THIS IS PDS VERSION 8.5, FIXED   *   DOC FILE
//*            FOR YEAR 2000.  THIS UPDATE INCLUDES A FEW MORE      *   DOC FILE
//*            FIXES.  AS OF NOW, THIS PROGRAM IS IN PRODUCTION     *   DOC FILE
//*            STATUS.                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  UPDATE TO FILE 183 FROM GILBERT SAINT-FLOUR OF       *   DOC FILE
//*            AMS, TO INCLUDE A NEW VERSION OF SHOWMVS,            *   DOC FILE
//*            VERSION R620B.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  ADDITION OF FILE 291 FROM RICK HEVENER OF THE        *   DOC FILE
//*            UNIVERSITY OF SOUTH CAROLINA, WHICH IS A PROGRAM     *   DOC FILE
//*            THAT BENCHMARKS THE SPEED OF DIFFERENT MACHINE       *   DOC FILE
//*            INSTRUCTIONS, ON YOUR CPU, UNDER VARIOUS CONDITIONS. *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  ADDITION OF FILE 292 FROM DAVID FAHEY OF THE SAS     *   DOC FILE
//*            INSTITUTE IN CARY, NORTH CAROLINA.  THIS IS A SAS    *   DOC FILE
//*            PROGRAM TO TAKE THIS DOCUMENTATION FILE (CBT TAPE    *   DOC FILE
//*            FILE 001) AND CONVERT IT INTO HTML FORMAT, SO YOU    *   DOC FILE
//*            CAN LOOK AT IT WITH NETSCAPE OR A SIMILAR BROWSER.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  DELETION OF FILE 295 WHICH WAS THE BETA TEST         *   DOC FILE
//*            VERSION OF PDS 8.5.  WE ARE GOING BACK TO ARNIE'S    *   DOC FILE
//*            SCHEME OF PUTTING THE LATEST VERSION OF PDS ON       *   DOC FILE
//*            FILE 182, AND THE PREVIOUS VERSION ON FILE 198.      *   DOC FILE
//*            VERSION 7.3 WHICH WAS ON FILE 198 FOR A LONG TIME,   *   DOC FILE
//*            IS NOW BEING MOVED TO THE CBT OVERFLOW TAPE.         *   DOC FILE
//*            VERSION 7.3 WAS THE HIGHEST VERSION OF PDS WHICH     *   DOC FILE
//*            COULD BE RUN ON ISPF VERSION 1 (V1R1M0).  NOT TOO    *   DOC FILE
//*            MANY SHOPS ARE STUCK WITH ISPF VERSION 1 NOWADAYS,   *   DOC FILE
//*            BUT THIS CODE WILL STILL BE AVAILABLE ON THE CBT     *   DOC FILE
//*            OVERFLOW TAPE.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  ADDITION OF FILE 301 FROM MIKE CLEARY OF BERGEN      *   DOC FILE
//*            BRUNSWIG IN CALIFORNIA, TO CONTAIN A VERSION OF      *   DOC FILE
//*            THE CDSCB (CHANGE THE DSCB) PROGRAM FROM FILE 300,   *   DOC FILE
//*            WHICH DOES AUTHORITY CHECKING USING A RACROUTE (SAF) *   DOC FILE
//*            CALL, INSTEAD OF BY USERID.  I AM LEAVING THE COPY   *   DOC FILE
//*            OF CDSCB ON FILE 300 INTACT, BECAUSE THERE MAY STILL *   DOC FILE
//*            BE A LOT OF PEOPLE WHO WANT TO CHECK BY USERID.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  ADDITION OF FILE 302 FROM MIKE CLEARY OF BERGEN      *   DOC FILE
//*            BRUNSWIG IN CALIFORNIA, TO CONTAIN HIS ISPF          *   DOC FILE
//*            INTERFACE PROGRAM TO LOOK AT LPA MODULES.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  ADDITION OF FILE 303 FROM ALEX BRODSKY, TO INCLUDE   *   DOC FILE
//*            AN UPDATED VERSION OF THE SIMTERM PROGRAM, WHICH     *   DOC FILE
//*            ALLOWS A TSO USER TO ACCESS OTHER VTAM APPLICATIONS. *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  ADDITION OF FILES 304 AND 305 FROM BRUCE HOGMAN.     *   DOC FILE
//*            FILE 304 CONTAINS SOURCE FOR HIS LSTVOL PROGRAM,     *   DOC FILE
//*            IN IEBUPDTE SYSIN FORMAT, AND FILE 305 CONTAINS      *   DOC FILE
//*            AN ASSEMBLY AND LINKEDIT LISTING IN IEBCOPY FORMAT.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  ADDITION OF FILE 307 FROM GREG SMITH OF LOCKHEED     *   DOC FILE
//*            MARTIN AT THE US EPA NATIONAL COMPUTER CENTER.       *   DOC FILE
//*            THIS IS A PROGRAM CALLED IEV90, WHICH FORCES A PARM  *   DOC FILE
//*            CHANGE, AND XCTLS TO THE HIGH LEVEL ASSEMBLER ASMA90 *   DOC FILE
//*            INSTEAD.  FOR OLD JCL WHICH SAYS // EXEC PGM=IEV90.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  ADDITION OF FILE 308 FROM ALAN FIELD OF SUPER VALU   *   DOC FILE
//*            IN EDEN PRAIRIE, MINNESOTA.  THIS CONSISTS OF A      *   DOC FILE
//*            ZAP, AT THE OS/390 LEVEL, TO MAKE THE BOTTOM OF THE  *   DOC FILE
//*            SYSTEM CONSOLE DISPLAY SOME INFORMATION ABOUT THE    *   DOC FILE
//*            OPERATING SYSTEM LEVEL.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  UPDATE TO FILE 316 FROM SAM GOLOB, TO INCLUDE        *   DOC FILE
//*            SOURCE CODE FOR THE COPYSLNL PROGRAM, AND A FIX      *   DOC FILE
//*            TO THE COPYFILE PROGRAM.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  UPDATE TO FILE 454 FROM PAUL MOINIL, TO UPDATE THE   *   DOC FILE
//*            "CUT" EDIT MACRO.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-415 SECTION                                          *   DOC FILE
//*  V-415  CHANGES FOR VERSION 415 OCT 27, 1997                    *   DOC FILE
//*        00  SORRY FOR THE BIG DELAY IN UPDATING THIS TAPE UNTIL  *   DOC FILE
//*            NOW.  MUCH THANKS TO GILBERT SAINT-FLOUR AND AMS     *   DOC FILE
//*            FOR PROVIDING THE FACILITIES.  THIS TAPE IS NOW      *   DOC FILE
//*            BEING UPDATED AT THEIR FACILITIES.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*            I AM NOW TRYING TO INCLUDE EMAIL ADDRESSES FOR       *   DOC FILE
//*            AS MANY CONTRIBUTORS AS POSSIBLE.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*            MY CURRENT ADDRESS:                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*                SAM GOLOB                                        *   DOC FILE
//*                P.O. BOX 906                                     *   DOC FILE
//*                TALLMAN, NY 10982-0906                           *   DOC FILE
//*                                                                 *   DOC FILE
//*                PHONE:  845-362-1996    FAX:  845-362-5843       *   DOC FILE
//*                                                                 *   DOC FILE
//*                email:    sbgolob@aol.com       OR               *   DOC FILE
//*                          sbgolob@attglobal.net                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  UPDATE TO FILE 019 FROM JOHN V. HOOPER OF FOOD LION  *   DOC FILE
//*            IN SALISBURY, NORTH CAROLINA.  THIS IS A REFRESH OF  *   DOC FILE
//*            HIS UTILITIES.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 071 TO REFLECT NEW DOCUMENTATION FOR  *   DOC FILE
//*            THE JES2 SHARE TAPE, AND A FEW OTHER THINGS.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 120 FROM SAM GOLOB, TO ADD MORE       *   DOC FILE
//*            MVS TOOLS AND TRICKS ARTICLES FROM TECH SUPPORT      *   DOC FILE
//*            MAGAZINE.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 134 FROM GREG PRICE OF MELBOURNE,     *   DOC FILE
//*            AUSTRALIA TO CONTAIN A REFRESH OF HIS UTILITIES.     *   DOC FILE
//*            THIS IS HIS SOURCE CODE.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  UPDATE TO FILE 135 FROM GREG PRICE OF MELBOURNE,     *   DOC FILE
//*            AUSTRALIA TO CONTAIN A REFRESH OF HIS UTILITIES.     *   DOC FILE
//*            THIS IS HIS LOAD LIBRARY.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  UPDATE TO FILE 166 FROM VINH VU OF FRITO-LAY IN      *   DOC FILE
//*            PLANO, TEXAS.  THIS IS A GENERAL REFRESH OF HIS      *   DOC FILE
//*            FILE.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  UPDATE TO FILE 172 FROM DAVID CARTWRIGHT OF SUTTON   *   DOC FILE
//*            COLDFIELD, ENGLAND.  THIS IS A REFRESH OF SOME OF    *   DOC FILE
//*            HIS UTILITIES.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  UPDATE TO FILE 183 FROM GILBERT SAINT-FLOUR OF       *   DOC FILE
//*            AMS NEAR SAN FRANCISCO, CALIFORNIA, TO REFRESH       *   DOC FILE
//*            SEVERAL MEMBERS, NOTABLY, BR AND SHOWMVS.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  ADDITION OF FILE 277 FROM RICK FOCHTMAN OF CHICAGO,  *   DOC FILE
//*            ILLINOIS TO INCLUDE A PROGRAM THAT ALLOWS VARIABLE   *   DOC FILE
//*            SUBSTITUTION ANYWHERE IN JCL, INCLUDING SYSIN CARDS. *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  ADDITION OF FILE 295 FROM JOHN KALINICH OF           *   DOC FILE
//*            THE U.S. ARMY IN ST. LOUIS, MISSOURI, WHICH IS       *   DOC FILE
//*            THE PDS COMMAND UPDATED FOR YEAR 2000.  THIS IS      *   DOC FILE
//*            A BETA-TEST VERSION 8.5 OF THE PDS COMMAND.  THE     *   DOC FILE
//*            ORIGINAL PDS 8.4 COMMAND IS BEING KEPT IN FILE 182   *   DOC FILE
//*            UNTIL THIS VERSION IS VERIFIED TO WORK CORRECTLY.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  UPDATE TO FILE 296 FROM BRUCE LELAND OF SERENA       *   DOC FILE
//*            INTERNATIONAL IN BURLINGAME, CALIFORNIA.  THIS       *   DOC FILE
//*            IS A FIX TO THE DVOL COMMAND, TO RECOGNIZE 4-DIGIT   *   DOC FILE
//*            UCB'S.                                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  ADDITION OF FILE 404 FROM A COMPANY IN NEW           *   DOC FILE
//*            ENGLAND, WHICH IS A TSSO TO BE RUN UNDER OS/390.     *   DOC FILE
//*            THE SOURCE FOR THIS FILE WAS TAKEN FROM FILE 403     *   DOC FILE
//*            AND MODIFIED.  THIS IS THE LATEST VERSION OF TSSO.   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-414 SECTION                                          *   DOC FILE
//*  V-414  CHANGES FOR VERSION 414 JAN 06, 1997                    *   DOC FILE
//*        01  UPDATE TO FILE 134 FROM GREG PRICE OF MELBOURNE,     *   DOC FILE
//*            AUSTRALIA, TO HIS SOURCE FILE.  THIS IS HIS 20TH     *   DOC FILE
//*            SHIPMENT TO THIS TAPE.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 135 FROM GREG PRICE OF MELBOURNE,     *   DOC FILE
//*            AUSTRALIA, TO HIS LOAD LIBRARY.  THIS IS HIS 20TH    *   DOC FILE
//*            SHIPMENT TO THIS TAPE.                               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-413 SECTION                                          *   DOC FILE
//*  V-413  CHANGES FOR VERSION 413 DEC 30, 1996                    *   DOC FILE
//*        01  ADDITION OF FILE 290 FROM HOWARD GILBERT OF THE      *   DOC FILE
//*            YALE UNIVERSITY COMPUTER CENTER IN NEW HAVEN,        *   DOC FILE
//*            CONNECTICUT.  THIS IS GPSAM (GENERAL PURPOSE         *   DOC FILE
//*            SUBSYSTEM ACCESS METHOD), WHICH IS A SIMPLE WAY      *   DOC FILE
//*            TO PRESENT COMPLICATED DATA TO A PROGRAM AS          *   DOC FILE
//*            THOUGH IT CAME FROM A SEQUENTIAL FILE.  THIS FILE    *   DOC FILE
//*            CAME FROM FILES 010 AND 011 OF THE OLD CBT TAPE,     *   DOC FILE
//*            VERSION 249, DATED 07/05/85.                         *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-412 SECTION                                          *   DOC FILE
//*  V-412  CHANGES FOR VERSION 412 DEC 26, 1996                    *   DOC FILE
//*        00  ADDITION OF SOME FILES FROM CBT TAPE VERSION 249,    *   DOC FILE
//*            TO MAKE THEM AVAILABLE TO THE PUBLIC AGAIN.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  UPDATE TO FILE 120 FROM SAM GOLOB TO ADD A NEW       *   DOC FILE
//*            ARTICLE.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  ADDITION OF FILE 269 WHICH IS PL/I SOURCE FOR        *   DOC FILE
//*            THE ADVENTURE GAME, WHOSE LOAD MODULE IS FOUND       *   DOC FILE
//*            ON FILE 135 UNDER THE NAME OF "PROGRAM".  IT WAS     *   DOC FILE
//*            A PITY NOT TO HAVE SOURCE CODE ON THIS TAPE, SO      *   DOC FILE
//*            I TOOK IT FROM THE OLD CBT TAPE, VERSION 249.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  MOVE FILE 280 TO FILE 279, TO MAKE ROOM FOR THE      *   DOC FILE
//*            WATERLOO SCRIPT FILES, SO THEY CAN BE PUT IN THEIR   *   DOC FILE
//*            ORIGINAL OLD PLACE, FILES 280 THRU 287.  THESE       *   DOC FILE
//*            FILES HAD BEEN CONSOLIDATED INTO LIONEL DYCK'S       *   DOC FILE
//*            COLLECTION OF SYSTEM PROGRAMMER TOOLS, BUT THAT      *   DOC FILE
//*            COLLECTION HAS BEEN MOVED TO THE CBT OVERFLOW        *   DOC FILE
//*            TAPE.  I WANT THE ORIGINAL SOURCE FOR WATERLOO       *   DOC FILE
//*            SCRIPT TO BE READILY AVAILABLE TO THE PUBLIC.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  ADDITION OF FILES 280 THRU 287 WHICH IS WATERLOO     *   DOC FILE
//*            SCRIPT.  MOST PEOPLE HAVE DCF, BUT IF THEY DON'T,    *   DOC FILE
//*            HERE IS SOMETHING FOR DOING NICE PRINTING.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  ADDITION OF FILE 288 WHICH IS A TSO PROMPTER FOR     *   DOC FILE
//*            THE WATERLOO SCRIPT PROGRAM.  THIS FILE ORIGINALLY   *   DOC FILE
//*            WAS ON FILE 020 OF THE OLD CBT TAPE VERSION 249.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  ADDITION OF FILE 289 WHICH IS AN SMPPTFIN CROSS      *   DOC FILE
//*            REFERENCE PROGRAM THAT PROBABLY STILL WORKS.         *   DOC FILE
//*            INCLUDED ARE THE REQUISITE IBM PRIVATE MACROS        *   DOC FILE
//*            THAT AREN'T COPYRIGHTED.                             *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-411 SECTION                                          *   DOC FILE
//*  V-411  CHANGES FOR VERSION 411 DEC 11, 1996                    *   DOC FILE
//*        00  PLEASE USE MY NEW MAILING ADDRESS FOR ALL            *   DOC FILE
//*            CORRESPONDENCE FROM NOW ON.  OLD ADDRESS WILL        *   DOC FILE
//*            BE FORWARDED FOR A WHILE.  THANK YOU.                *   DOC FILE
//*                                                                 *   DOC FILE
//*                 SAM GOLOB                                       *   DOC FILE
//*                 P.O. BOX 906                                    *   DOC FILE
//*                 TALLMAN, NY  10982                              *   DOC FILE
//*                                                                 *   DOC FILE
//*                 PHONE:  845-362-1996    FAX:  845-362-5843      *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  UPDATE TO FILE 135 TO REFLECT THE NEW LEVEL OF       *   DOC FILE
//*            SHOWMVS FROM FILE 183 - VERSION 6.18.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 183 FROM GILBERT SAINT-FLOUR OF       *   DOC FILE
//*            AMS NEAR SAN FRANCISCO, CALIFORNIA.  SHOWMVS         *   DOC FILE
//*            AND QUITE A FEW OTHER PROGRAMS WERE UPDATED.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 270 TO BRING THE PHONE NUMBERS        *   DOC FILE
//*            UP TO DATE AS MUCH AS POSSIBLE.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  ADDITION OF FILE 275 FROM MARK HEDGES OF ADVENT      *   DOC FILE
//*            SOFTWARE, TO INCLUDE SOME NICE SYSTEM UTILITIES.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  ADDITION OF FILE 276 FROM JIM LEONE AND STEVE        *   DOC FILE
//*            SMITH.  THIS IS AN EDIT MACRO IN REXX, TO CALCULATE  *   DOC FILE
//*            THE CHECKSUM VALUES IN AMASPZAP (SUPER ZAP) JOBS.    *   DOC FILE
//*            USEFUL FOR VERIFICATION THAT THE ZAPS AREN'T WRONG.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  UPDATE TO FILE 296 FROM BRUCE LELAND, TO INCLUDE     *   DOC FILE
//*            A VERSION OF DVOL THAT KNOWS HOW TO FIND UCB'S FOR   *   DOC FILE
//*            MVS/ESA 4.1 AND ABOVE.                               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-410 SECTION                                          *   DOC FILE
//*  V-410  CHANGES FOR VERSION 410 NOV 21, 1996                    *   DOC FILE
//*        00  I HAVE CHANGED MY PRINCIPAL MAILING ADDRESS.         *   DOC FILE
//*            EVEN THOUGH MY OLD ADDRESS WILL BE APPLICABLE FOR    *   DOC FILE
//*            QUITE A WHILE, I PREFER THAT SUBMISSIONS OR          *   DOC FILE
//*            CORRESPONDENCE BE SENT TO MY NEW ADDRESS:            *   DOC FILE
//*                                                                 *   DOC FILE
//*                 SAM GOLOB                                       *   DOC FILE
//*                 P.O. BOX 906                                    *   DOC FILE
//*                 TALLMAN, NY  10982                              *   DOC FILE
//*                                                                 *   DOC FILE
//*                 PHONE:  845-362-1996   FAX:  845-362-5843       *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  UPDATE TO FILE 120 FROM SAM GOLOB TO ADD MORE        *   DOC FILE
//*            ARTICLES.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 247 WHICH IS THE SYS1.BRODCAST        *   DOC FILE
//*            MANAGING PACKAGE FROM SAM GOLOB.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  ADDITION OF FILE 268 FROM MARK WINGES OF SAN         *   DOC FILE
//*            FRANCISCO, CALIFORNIA.  THIS IS A PACKAGE OF         *   DOC FILE
//*            REXX FUNCTIONS TO ACCESS VSAM FILES.                 *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-409 SECTION                                          *   DOC FILE
//*  V-409  CHANGES FOR VERSION 409 SEP 06, 1996                    *   DOC FILE
//*        01  UPDATE TO FILE 071 TO INCLUDE THE LATEST DOC         *   DOC FILE
//*            FOR THE CBT OVERFLOW TAPE, VERSION 407V.             *   DOC FILE
//*            THE CBT OVERFLOW TAPE LEVEL IS AT, OR BELOW,         *   DOC FILE
//*            THE REGULAR CBT TAPE LEVEL, ALMOST ALWAYS.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 120 FROM SAM GOLOB TO ADD AN          *   DOC FILE
//*            ARTICLE.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 135 TO REFLECT THE NEWEST VERSION     *   DOC FILE
//*            (6.17) OF SHOWMVS FROM FILE 183.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 183 FROM GILBERT SAINT-FLOUR OF       *   DOC FILE
//*            AMS NEAR SAN FRANCISCO, CALIFORNIA TO REFRESH        *   DOC FILE
//*            HIS UTILITY FILE.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  ADDITION OF FILE 267 FROM STEVE BACHER OF THE        *   DOC FILE
//*            DRAPER LABORATORY AT M.I.T. IN CAMBRIDGE, MASS.      *   DOC FILE
//*            THIS IS ASSEMBLER CODE TO PROVIDE REXX FUNCTIONS     *   DOC FILE
//*            THAT ARE EQUIVALENT TO THE WRITENR AND PROC CLIST    *   DOC FILE
//*            STATEMENTS.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-408 SECTION                                          *   DOC FILE
//*  V-408  CHANGES FOR VERSION 408 AUG 27, 1996                    *   DOC FILE
//*        01  UPDATE TO FILE 135 TO REFLECT THE NEW VERSION OF     *   DOC FILE
//*            SHOWMVS AT LEVEL 6.16.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 183 TO REFLECT A NEW VERSION OF       *   DOC FILE
//*            SHOWMVS.  LAST TIME THE FILE WAS UPDATED, AN         *   DOC FILE
//*            INTERMEDIATE VERSION (5.15) WAS INCLUDED.  THE       *   DOC FILE
//*            CORRECT VERSION IS 6.16.  THIS VERSION SHOWS         *   DOC FILE
//*            INFORMATION ABOUT JES2 CONTROL BLOCKS AND            *   DOC FILE
//*            INITIATORS, WHICH WAS NOT DEALT WITH IN PREVIOUS     *   DOC FILE
//*            VERSIONS FROM GILBERT SAINT-FLOUR.                   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-407 SECTION                                          *   DOC FILE
//*  V-407  CHANGES FOR VERSION 407 AUG 19, 1996                    *   DOC FILE
//*        01  UPDATE TO FILE 035 TO ADD A LOAD MODULE FOR THE      *   DOC FILE
//*            SS0104 TAPE MAPPING PROGRAM FROM FILE 266.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 078 FROM JOHN KALINICH OF THE U.S.    *   DOC FILE
//*            ARMY IN ST LOUIS, MISSOURI.  THIS CHANGE REFLECTS    *   DOC FILE
//*            THE SOFTWARE LEVEL WHICH HE SUBMITTED TO THE SHARE   *   DOC FILE
//*            CD-ROM FROM THE PAST SHARE MEETING.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILES 120 AND 121 FROM SAM GOLOB TO ADD    *   DOC FILE
//*            NEW ARTICLES.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 135 TO ADD A LOAD MODULE FOR THE      *   DOC FILE
//*            SHOWMVS PROGRAM, TO REFLECT ITS NEW LEVEL OF 5.15.   *   DOC FILE
//*            THIS LEVEL IS GOOD UNTIL MVS/ESA 5.2.2 AT LEAST.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  UPDATE TO FILE 183 FROM GILBERT SAINT-FLOUR OF       *   DOC FILE
//*            AMS NEAR SAN FRANCISCO, CALIFORNIA TO INCLUDE        *   DOC FILE
//*            NEW VERSIONS OF SOME OF HIS PROGRAMS, NOTABLY        *   DOC FILE
//*            SHOWMVS.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  ADDITION OF FILE 266 WHICH CONTAINS AN OLD TAPE      *   DOC FILE
//*            MAPPING PROGRAM FROM FLORIDA POWER, ADJUSTED TO      *   DOC FILE
//*            MEASURE ALL THE TAPE FOOTAGES AS IF THE TAPE (OR     *   DOC FILE
//*            CARTRIDGE) IS A 6250 BPI REEL.  THIS PROGRAM IS      *   DOC FILE
//*            USED BY ME TO MEASURE FOOTAGES ON THE CBT TAPE.      *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-406 SECTION                                          *   DOC FILE
//*  V-406  CHANGES FOR VERSION 406 JUN 27, 1996                    *   DOC FILE
//*        01  ADDITION OF FILE 005 FROM GEORGE SHEDLOCK OF         *   DOC FILE
//*            OCALA, FLORIDA.  THIS IS A REXX EXEC TO LOAD         *   DOC FILE
//*            THE CBT TAPE ONTO A VM SYSTEM.  ALSO WORKS FOR       *   DOC FILE
//*            THE CBT OVERFLOW TAPE, WHICH IS IN THE SAME          *   DOC FILE
//*            FORMAT AS THIS TAPE IS.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 071 TO REFLECT THE NEW DOCUMENTATION  *   DOC FILE
//*            FOR THE CBT OVERFLOW TAPE.  THE CBT OVERFLOW TAPE    *   DOC FILE
//*            NOW CONTAINS THE ENTIRE CONTENTS OF THE SPLA MVS     *   DOC FILE
//*            TAPE, VERSION 46, SINCE SHARE HAS STOPPED UPDATING   *   DOC FILE
//*            THAT TAPE PERMANENTLY, AND I WANTED TO CONTINUE      *   DOC FILE
//*            MAKING THE CODE AVAILABLE TO THE PUBLIC.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 120 FROM SAM GOLOB TO ADD MORE        *   DOC FILE
//*            ARTICLES.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  ADDITION OF FILE 262 FROM WALTER SHELLEY OF DOITT    *   DOC FILE
//*            OF THE CITY OF NEW YORK.  THIS IS A COBOL PROGRAM    *   DOC FILE
//*            WHICH READS SMP PTF INPUT, AND WHICH PRODUCES A      *   DOC FILE
//*            REPORT SHOWING FMID, COMPONENT ID, AND APARS FIXED   *   DOC FILE
//*            FOR EACH PTF.  DESIGNED FOR IBM PTFS.                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-405 SECTION                                          *   DOC FILE
//*  V-405  CHANGES FOR VERSION 405 MAY 28, 1996                    *   DOC FILE
//*        00  THE V404 VERSION OF THIS TAPE HAS FILLED UP AN       *   DOC FILE
//*            UNCOMPRESSED (3480 NON-IDRC) CARTRIDGE.  ARNIE'S     *   DOC FILE
//*            PRACTICE WAS TO DO A WHOLESALE DELETION, AND TELL    *   DOC FILE
//*            YOU TO SAVE THE OLD TAPE.  I HAVE DECIDED TO CREATE  *   DOC FILE
//*            AN "OVERFLOW TAPE" WITH THE OLDER STUFF THAT WOULD   *   DOC FILE
//*            OTHERWISE BE A CANDIDATE FOR DELETION.  IT SEEMS     *   DOC FILE
//*            THAT THERE MIGHT BE ENOUGH ROOM ON THE NASPA CD      *   DOC FILE
//*            ROM TO HOLD BOTH OF THESE TOGETHER.  THE INDEX TO    *   DOC FILE
//*            THE OVERFLOW TAPE WILL GO INTO FILE 071, SO YOU      *   DOC FILE
//*            CAN SEE WHAT I PUT THERE.  (THERE IS MUCH MORE       *   DOC FILE
//*            STUFF THERE THAN WHAT I TOOK OUT OF HERE.)           *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  DELETION OF FILES 431 THRU 452 FROM ROCKWELL         *   DOC FILE
//*            INTERNATIONAL.  THIS MATERIAL HAS BEEN MOVED TO      *   DOC FILE
//*            FILES 016 THRU 037 OF THE NEWLY ESTABLISHED CBT      *   DOC FILE
//*            OVERFLOW TAPE.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 071 WHICH CONTAINS THE CONTENTS       *   DOC FILE
//*            OF OTHER FREE SOFTWARE TAPES.  THIS UPDATE IS TO     *   DOC FILE
//*            INCLUDE THE CONTENTS OF THE NEW "CBT OVERFLOW        *   DOC FILE
//*            TAPE" WHICH HAS JUST BEEN ESTABLISHED.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 120 FROM SAM GOLOB TO ADD MORE        *   DOC FILE
//*            ARTICLES.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  ADDITION OF FILE 263 WHICH CONTAINS MACROS FROM      *   DOC FILE
//*            THE UK G.U.I.D.E. TAPE.  THESE MACROS ARE NEEDED     *   DOC FILE
//*            TO ASSEMBLE MATERIALS FROM FILES 244 AND 245.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  UPDATE TO FILES 453 THRU 459 FROM PAUL MOINIL OF     *   DOC FILE
//*            ISPRA, ITALY.  THIS IS A HUGE COLLECTION OF MVS      *   DOC FILE
//*            UTILITIES, MANY FROM THIS TAPE ORIGINALLY, WHICH     *   DOC FILE
//*            HE HAS IMPROVED.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  UPDATE TO REVIEW (AND REVSMF) ON FILES 134 AND 135   *   DOC FILE
//*            TO FIX A BUG IN FORMATTING SMF RECORDS.              *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-404 SECTION                                          *   DOC FILE
//*  V-404  CHANGES FOR VERSION 404 MAR 11, 1996                    *   DOC FILE
//*        01  UPDATE TO FILE 078 FROM JOHN KALINICH OF AMXSI/TRI   *   DOC FILE
//*            US ARMY IN ST LOUIS, MISSOURI.  THIS BRINGS HIS      *   DOC FILE
//*            FILE INTO SYNC WITH WHAT HE SUBMITTED TO THE SHARE   *   DOC FILE
//*            CD ROM AT THE LAST SHARE MEETING, AUG 95.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 120 FROM SAM GOLOB TO ADD MORE        *   DOC FILE
//*            ARTICLES FROM HIS COLUMN IN "TECHNICAL SUPPORT"      *   DOC FILE
//*            MAGAZINE.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 134 FROM GREG PRICE OF FERNTREE       *   DOC FILE
//*            COMPUTER SERVICES IN MELBOURNE, AUSTRALIA.           *   DOC FILE
//*            THIS IS GREG'S 19TH SHIPMENT OF HIS SOURCE CODE.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 135 FROM GREG PRICE OF FERNTREE       *   DOC FILE
//*            COMPUTER SERVICES IN MELBOURNE, AUSTRALIA.           *   DOC FILE
//*            THIS IS GREG'S 19TH SHIPMENT OF HIS LOAD MODULES.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  UPDATE TO FILE 183 FROM GILBERT SAINT-FLOUR OF       *   DOC FILE
//*            AMS NEAR SAN FRANCISCO, CALIFORNIA.      THIS        *   DOC FILE
//*            IS A REFRESH OF THE UTILITIES IN HIS FILE.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  UPDATE TO FILE 248 WHICH IS FROM JIM BOYSEN OF       *   DOC FILE
//*            AMDAHL.  THIS WAS FROM SAM GOLOB TO FIX AN           *   DOC FILE
//*            INTEGRITY PROBLEM IN THE CLEARBC PROGRAM.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  ADDITION OF FILE 257 FROM SAM GOLOB WHICH CONTAINS   *   DOC FILE
//*            ZAPS TO FIX THE OLD LINKAGE EDITOR (HEWLKED), EVEN   *   DOC FILE
//*            THE ONE IN DFSMS/MVS, SO THAT IT WILL READ OBJECT    *   DOC FILE
//*            DECKS THAT ARE BLOCKED GREATER THAN 3200 BYTES.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  ADDITION OF FILE 258 AND FILE 259 FROM DAVID FAHEY   *   DOC FILE
//*            OF THE SAS INSTITUTE IN CARY, NORTH CAROLINA.  THIS  *   DOC FILE
//*            IS HIS WIN3270 PACKAGE OF UTILITY PROGRAMS WHICH     *   DOC FILE
//*            IS A COLLECTION OF PROGRAMMABLE UTILITY FUNCTIONS    *   DOC FILE
//*            TO WRITE TO 3270 TERMINALS.  THE SOURCE CODE ON      *   DOC FILE
//*            FILE 258 IS WRITTEN IN SAS/C, BUT THE LOAD MODULES   *   DOC FILE
//*            ON FILE 259 WILL PROBABLY RUN ON ANYONE'S SYSTEM,    *   DOC FILE
//*            HOPEFULLY.  SEE THE DOCUMENTATION TO REALIZE HOW     *   DOC FILE
//*            USEFUL THIS PACKAGE IS FOR CREATING FULL SCREEN      *   DOC FILE
//*            APPLICATIONS.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  UPDATE TO FILE 390 WHICH IS QUEUE FOR JES2 5.1.0.    *   DOC FILE
//*            THIS UPDATE IS FROM SAM GOLOB TO MAKE A MINOR        *   DOC FILE
//*            CORRECTION TO A FEW SOURCE MODULES SO THEY WILL      *   DOC FILE
//*            ASSEMBLE AGAINST JES2 5.2.0 MACROS AND THIS VERSION  *   DOC FILE
//*            WILL THEN WORK FOR JES2 5.2.  THE CORRECTION WILL    *   DOC FILE
//*            NOT AFFECT ASSEMBLY AGAINST JES2 5.1.0 MACROS,       *   DOC FILE
//*            AND THIS VERSION WILL ALSO WORK FOR 5.1.             *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-403 SECTION                                          *   DOC FILE
//*  V-403  CHANGES FOR VERSION 403 JAN 05, 1996                    *   DOC FILE
//*        01  UPDATE TO FILE 071 TO REFLECT HIGHER VERSIONS        *   DOC FILE
//*            FOR THE JES2 SHARE TAPE AND THE JES3 SHARE/GUIDE     *   DOC FILE
//*            TAPE.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 120 FROM SAM GOLOB TO ADD MORE        *   DOC FILE
//*            ARTICLES.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 135 WHICH IS GREG PRICE'S LOAD        *   DOC FILE
//*            MODULE LIBRARY.  THIS CHANGE WAS MADE BY SAM         *   DOC FILE
//*            GOLOB TO REFLECT HIGHER VERSIONS OF MODULES          *   DOC FILE
//*            IN FILE 183 WHOSE SOURCE WAS UPDATED.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 183 FROM GILBERT SAINT-FLOUR OF       *   DOC FILE
//*            AMS NEAR SAN FRANCISCO, CALIFORNIA.  THIS            *   DOC FILE
//*            IS A GENERAL UPGRADE OF THE UTILITIES IN THIS        *   DOC FILE
//*            FILE.  (NOTE.  THIS FILE CONTAINS ITEMS OF VALUE     *   DOC FILE
//*            TO MOST MVS SHOPS AND DESERVES A RE-EXAMINING        *   DOC FILE
//*            OF ITS CONTENTS.)                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  ADDITION OF FILE 252 FROM JEFF KAPLAN OF NEW         *   DOC FILE
//*            JERSEY.  THIS IS A COLLECTION OF SOFTWARE, REXX      *   DOC FILE
//*            EXECS, AND JCL WHICH CAN PROVIDE A WEALTH OF         *   DOC FILE
//*            "HOW-TO" EXAMPLES.  THIS IS HIS SOURCE LIBRARY.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  ADDITION OF FILE 253 FROM JEFF KAPLAN OF NEW         *   DOC FILE
//*            JERSEY.  THIS IS A COLLECTION OF SOFTWARE, REXX      *   DOC FILE
//*            EXECS, AND JCL WHICH CAN PROVIDE A WEALTH OF         *   DOC FILE
//*            "HOW-TO" EXAMPLES.  THIS IS HIS EXEC LIBRARY.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  ADDITION OF FILE 254 FROM JEFF KAPLAN OF NEW         *   DOC FILE
//*            JERSEY.  THIS IS A COLLECTION OF SOFTWARE, REXX      *   DOC FILE
//*            EXECS, AND JCL WHICH CAN PROVIDE A WEALTH OF         *   DOC FILE
//*            "HOW-TO" EXAMPLES.  THIS IS HIS CNTL LIBRARY.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  ADDITION OF FILE 255 FROM JEFF KAPLAN OF NEW         *   DOC FILE
//*            JERSEY.  THIS IS A COLLECTION OF SOFTWARE, REXX      *   DOC FILE
//*            EXECS, AND JCL WHICH CAN PROVIDE A WEALTH OF         *   DOC FILE
//*            "HOW-TO" EXAMPLES.  THIS IS HIS ISPPLIB LIBRARY.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  ADDITION OF FILE 256 FROM JEFF KAPLAN OF NEW         *   DOC FILE
//*            JERSEY.  THIS IS A COLLECTION OF SOFTWARE, REXX      *   DOC FILE
//*            EXECS, AND JCL WHICH CAN PROVIDE A WEALTH OF         *   DOC FILE
//*            "HOW-TO" EXAMPLES.  THIS IS HIS ISPTLIB LIBRARY.     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-402 SECTION                                          *   DOC FILE
//*  V-402  CHANGES FOR VERSION 402 NOV 27, 1995                    *   DOC FILE
//*        01  UPDATE TO FILE 120 FROM SAM GOLOB TO ADD NEW         *   DOC FILE
//*            ARTICLES.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 134 FROM GREG PRICE OF FERNTREE       *   DOC FILE
//*            COMPUTER SERVICES IN MELBOURNE, AUSTRALIA.           *   DOC FILE
//*            UPDATE IS TO ENHANCE REVIEW, AMONG OTHER THINGS.     *   DOC FILE
//*            THIS IS GREG'S 18TH SHIPMENT.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 135 FROM GREG PRICE OF FERNTREE       *   DOC FILE
//*            COMPUTER SERVICES IN MELBOURNE, AUSTRALIA.           *   DOC FILE
//*            UPDATE IS TO ENHANCE REVIEW, AMONG OTHER THINGS.     *   DOC FILE
//*            THIS REFLECTS GREG'S 18TH SHIPMENT TO THIS TAPE.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 248 FROM JIM BOYSEN OF AMDAHL         *   DOC FILE
//*            FEDERAL SERVICE CORP. IN IOWA.  THERE IS SOME        *   DOC FILE
//*            GOOD CROSS MEMORY CODE IN HERE.  ALL CODE IN         *   DOC FILE
//*            THIS FILE HAS NOW BEEN TESTED ON MVS/ESA 5.2.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  ADDITION OF FILE 251 FROM PAUL DAVIS OF EDS IN       *   DOC FILE
//*            LOUISVILLE, COLORADO.  THIS IS A NEW COLLECTION      *   DOC FILE
//*            OF EDIT MACROS TO ADD TO HIS EXISTING COLLECTION     *   DOC FILE
//*            FROM FILE 095.  WORTH LOOKING AT.  THESE MACROS      *   DOC FILE
//*            ARE POTENTIALLY AN ENORMOUS TIME SAVER.  ALSO        *   DOC FILE
//*            SEE FILE 095.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  ADDITION OF FILE 390 FROM JACK SCHUDEL OF NERDC      *   DOC FILE
//*            AT THE UNIVERSITY OF FLORIDA IN GAINESVILLE, FL.     *   DOC FILE
//*            I WANTED TO PUT A VERSION OF QUEUE ON THE TAPE,      *   DOC FILE
//*            WHICH WORKS FOR JES2 VERSION 5.1.  THIS VERSION      *   DOC FILE
//*            ISN'T PERFECT, BUT IT'S OUT THERE FOR PEOPLE TO      *   DOC FILE
//*            USE AND FIX AND SEND BACK TO ME.  JACK USES IOF      *   DOC FILE
//*            MOST OF THE TIME, BUT THOSE OF US WHO ONLY HAVE      *   DOC FILE
//*            SDSF AND WHO WANT QUEUE FOR THE OTHER THINGS IT      *   DOC FILE
//*            DOES, WE WANT TO HAVE SOME VERSION TO WORK WITH.     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-401 SECTION                                          *   DOC FILE
//*  V-401  CHANGES FOR VERSION 401 SEP 13, 1995                    *   DOC FILE
//*        01  UPDATE TO FILE 083 FROM SAM GOLOB TO IEHMAP, SO IT   *   DOC FILE
//*            KNOWS HOW TO FIND THE RES PACK WITH DYNAMIC UCB'S.   *   DOC FILE
//*            THE CODE IS DOWNWARD COMPATIBLE, AND CAN BE          *   DOC FILE
//*            ASSEMBLED ON OLDER LEVEL SYSTEMS.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 120 FROM SAM GOLOB TO ADD ANOTHER     *   DOC FILE
//*            ARTICLE.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 166 FROM VINH VU OF FRITO LAY, TO     *   DOC FILE
//*            UPGRADE HIS COLLECTION OF UTILITIES.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  ADDITION OF FILE 250 WHICH IS A FREE "DISPLAY GRS"   *   DOC FILE
//*            COMMAND FROM THE IBM SUPPORT CENTER, WHICH IS        *   DOC FILE
//*            UNOFFICIALLY DISTRIBUTED TO CUSTOMERS.  THIS         *   DOC FILE
//*            PROGRAM WILL DISPLAY ENQUEUES WITH LONG RNAMES.      *   DOC FILE
//*            BY SETTING A VARIABLE, YOU CAN MAKE THE DISPLAY      *   DOC FILE
//*            AS LONG AS YOU WANT.  DEFAULT IS 60 CHARACTERS.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  UPDATE TO FILE 360 FROM GREG GORAB OF NEW JERSEY     *   DOC FILE
//*            TO FIX THE VOLS COMMAND WITH UCBSCAN CODE SO THAT    *   DOC FILE
//*            DYNAMIC UCB'S WILL BE RECOGNIZED.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  UPDATE TO FILE 391 FROM VINH VU OF FRITO LAY IN      *   DOC FILE
//*            PLANO, TEXAS, TO FIX A PROBLEM IN THE QUEUE COMMAND  *   DOC FILE
//*            WHEN SPOOL VOLUMES HAVE SHORT VOLSER NAMES.          *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-400 SECTION                                          *   DOC FILE
//*  V-400  CHANGES FOR VERSION 400 JUL 26, 1995                    *   DOC FILE
//*        01  UPDATE TO FILE 035 TO UPGRADE THE LOAD MODULE FOR    *   DOC FILE
//*            THE VTOC PROGRAM.  NOW ALSO WORKS ON ESA 5.1.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 112 FROM BRUCE LELAND OF SERENA       *   DOC FILE
//*            INTERNATIONAL IN BURLINGAME, CALIFORNIA.  THIS       *   DOC FILE
//*            ALLOWS THE VTOC PROGRAM TO RUN ON MVS VERSION 5.1    *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 120 FROM SAM GOLOB TO ADD MORE        *   DOC FILE
//*            ARTICLES.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 134 FROM GREG PRICE OF FERNTREE       *   DOC FILE
//*            COMPUTER SERVICES IN MELBOURNE, AUSTRALIA.  THIS     *   DOC FILE
//*            UPDATE IS TO FIX BUGS IN REVIEW.  VERSION 24.0.      *   DOC FILE
//*            THIS IS GREG'S 17TH SHIPMENT.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  UPDATE TO FILE 135 FROM GREG PRICE OF FERNTREE       *   DOC FILE
//*            COMPUTER SERVICES IN MELBOURNE, AUSTRALIA.  THIS     *   DOC FILE
//*            UPDATE IS TO FIX BUGS IN REVIEW.  VERSION 24.0.      *   DOC FILE
//*            THIS REFLECTS GREG'S 17TH SHIPMENT TO THIS TAPE.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  UPDATE TO FILE 183 FROM GILBERT SAINT-FLOUR OF       *   DOC FILE
//*            AMS NEAR SAN FRANCISCO, TO UPGRADE SOME OF           *   DOC FILE
//*            HIS UTILITIES, INCLUDING SHOWMVS, TO RUN ON          *   DOC FILE
//*            MVS/ESA 5.1.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  ADDITION OF FILE 247 FROM JIM MARSHALL AND SAM       *   DOC FILE
//*            GOLOB WHICH CONTAINS A SET OF PROGRAMS TO MANAGE     *   DOC FILE
//*            THE SYS1.BRODCAST DATASET AND DEFERRED TSO USER      *   DOC FILE
//*            MESSAGES IN GENERAL.  THE IDEA OF THIS PACKAGE IS    *   DOC FILE
//*            TO AVOID THE NECESSITY OF FREQUENTLY HAVING TO DO    *   DOC FILE
//*            A "SYNC" TO SYS1.BRODCAST.  THERE ARE 3 SEPARATE     *   DOC FILE
//*            PROGRAMS TO LIST AND DELETE USER MESSAGES FOR ANY    *   DOC FILE
//*            USERID.  THERE ARE ALSO PROGRAMS TO LIST MESSAGES    *   DOC FILE
//*            FOR ANY/ALL USERIDS, AND OTHER UTILITIES.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  ADDITION OF FILE 248 FROM JIM BOYSEN OF AMDAHL       *   DOC FILE
//*            FEDERAL SERVICE CORPORATION IN IOWA.  THIS IS A      *   DOC FILE
//*            NEW COLLECTION OF UTILITIES WHICH HE WROTE.          *   DOC FILE
//*            SEVERAL OF THESE HAVE TO DO WITH FINDING A MEMBER    *   DOC FILE
//*            IN A DD CONCATENATION, OR FINDING A PROC IN THE      *   DOC FILE
//*            PROCLIB CONCATENATION, ETC.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  ADDITION OF FILE 249 FROM EILEEN BARKOW OF DOITT -   *   DOC FILE
//*            NEW YORK CITY, NEW YORK.  THIS CONTAINS WMOD FOR     *   DOC FILE
//*            TSO AND CICS, TO LOOK UP WHERE IN YOUR TSO           *   DOC FILE
//*            SESSION, LINK LIST, LPA LIST, SVCLIB, ETC ETC,       *   DOC FILE
//*            YOUR PDS MEMBER NAME CAN BE FOUND.  SIMILAR          *   DOC FILE
//*            PROGRAM FOR CICS.  ALSO HAS UCB PROGRAM TO RETURN    *   DOC FILE
//*            VOLSER IF UNIT ADDRESS IS GIVEN, UNIT ADDRESS IF     *   DOC FILE
//*            VOLSER IS GIVEN.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  UPDATE TO FILE 300 TO UPGRADE THE LPSCB COMMAND.     *   DOC FILE
//*            LPSCB WILL NOW OPTIONALLY DISPLAY MORE OF THE UPT,   *   DOC FILE
//*            THE ECT, OR "ALL" OF THE ABOVE ALONG WITH THE PSCB.  *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-399 SECTION                                          *   DOC FILE
//*  V-399  CHANGES FOR VERSION 399 APR 17, 1995                    *   DOC FILE
//*        01  UPDATE TO FILE 120 FROM SAM GOLOB TO ADD ANOTHER     *   DOC FILE
//*            ARTICLE.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 200 TO GET THE WHATSNEW PROGRAM TO    *   DOC FILE
//*            RUN UNDER DFSORT AND MVS/ESA VERSION 4.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  ADDITION OF FILE 234 FROM JIM MARSHALL OF THE        *   DOC FILE
//*            U.S. TREASURY DEPARTMENT IN WASHINGTON D.C., TO      *   DOC FILE
//*            UPDATE THE SYS1.BRODCAST SCAN PROGRAM THAT IS IN     *   DOC FILE
//*            FILE 316.  THE RECORD TYPES ARE MAPPED AND           *   DOC FILE
//*            DSECT'ED.  WAITING FOR FURTHER IMPROVEMENT.          *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-398 SECTION                                          *   DOC FILE
//*  V-398  CHANGES FOR VERSION 398 APR 12, 1995                    *   DOC FILE
//*        01  UPDATE TO FILE 171 (WHICH HAS DITTO, TAPEMAP,        *   DOC FILE
//*            DISASM, AND SUTL) TO ADD ANOTHER APPLICATION         *   DOC FILE
//*            WHICH IS A TPX EXIT AND A STARTED TASK, TO ALLOW     *   DOC FILE
//*            USERS TO LOG ONTO A DEDICATED AND ISOLATED MACHINE   *   DOC FILE
//*            RUNNING TPX, MORE EASILY.  DESCRIPTION IS IN THE     *   DOC FILE
//*            $$DOC SUBMEMBER OF THE TPXSRC MEMBER.                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-397 SECTION                                          *   DOC FILE
//*  V-397  CHANGES FOR VERSION 397 APR 11, 1995                    *   DOC FILE
//*        00  ARNOLD CASINGHINO HAS MOVED TO ANOTHER JOB.  HIS     *   DOC FILE
//*            NEW CONTACT INFORMATION IS:                          *   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
//*                                                                 *   DOC FILE
//***SECTION V-396 SECTION                                          *   DOC FILE
//*  V-396  CHANGES FOR VERSION 396 APR 06, 1995                    *   DOC FILE
//*        01  UPDATE TO FILE 078 FROM JOHN KALINICH OF THE U.S.    *   DOC FILE
//*            ARMY, AMXSI-TRI IN ST. LOUIS, MISSOURI.  THIS IS     *   DOC FILE
//*            A COLLECTION OF CLISTS, EDIT MACROS, ETC. WHICH      *   DOC FILE
//*            HE SUBMITS TO THE SHARE SOFTWARE COLLECTION.  THIS   *   DOC FILE
//*            VERSION IS UPDATED TO THE MOST RECENT SHARE (84)     *   DOC FILE
//*            SUBMISSION.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 134 WHICH IS A ONE-LINE FIX TO        *   DOC FILE
//*            THE REVIEW TSO COMMAND SO IT CAN (ONCE AGAIN)        *   DOC FILE
//*            LOOK AT THE DIRECTORY OF A PDS USING THE "DATA"      *   DOC FILE
//*            KEYWORD.  FIX WAS PHONED TO ME BY GREG PRICE.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 135 TO REPLACE THE REVIEW LOAD        *   DOC FILE
//*            MODULE AND ITS ALIASES, REFLECTING THE FIX IN        *   DOC FILE
//*            FILE 134.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-395 SECTION                                          *   DOC FILE
//*  V-395  CHANGES FOR VERSION 395 MAR 29, 1995                    *   DOC FILE
//*        01  UPDATE TO FILE 166 FROM VINH VU OF FRITO-LAY IN      *   DOC FILE
//*            PLANO TEXAS.  THE PRINCIPAL ADDITION IS A BAL        *   DOC FILE
//*            VERSION OF HIS JOB ACTIVITY DISPLAY (JAD) WHICH      *   DOC FILE
//*            RUNS MUCH FASTER THAN HIS REXX VERSION.              *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-394 SECTION                                          *   DOC FILE
//*  V-394  CHANGES FOR VERSION 394 MAR 22, 1995                    *   DOC FILE
//*        01  UPDATE TO FILE 120 FROM SAM GOLOB TO ADD ANOTHER     *   DOC FILE
//*            ARTICLE.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILES 118 AND 152 TO ADD VERSIONS OF THE   *   DOC FILE
//*            COBOL PROGRAMS THAT WERE CONVERTED FOR COBOL II.     *   DOC FILE
//*                                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO THE FOLLOWING FILES TO BRING ADDRESSES     *   DOC FILE
//*            AND PHONE NUMBERS UP TO DATE:  (ADD SPF STATS TOO)   *   DOC FILE
//*                                                                 *   DOC FILE
//*               014, 028, 029, 030, 032, 036, 059, 069,           *   DOC FILE
//*               093, 118, 120, 154, 185, 187, 188, 196,           *   DOC FILE
//*               204, 210, 212, 215, 219, 223, 236, 391,           *   DOC FILE
//*               393, 394                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 391 FROM SAM GOLOB TO ADJUST THE      *   DOC FILE
//*            DEFAULT NAME OF THE CHECKPOINT DATASET IN QUEUE      *   DOC FILE
//*            BACK TO A MORE NORMAL NAME.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  UPDATE TO FILE 176 WHICH IS THE ALGOL COMPILER       *   DOC FILE
//*            AND LIBRARY.  I CLAIMED IT HAD BEEN RE-LINKEDITED    *   DOC FILE
//*            USING THE DFSMS BINDER, AND IN REALITY, THE UPDATE   *   DOC FILE
//*            NEVER MADE IT TO THE TAPE.  DID IT AGAIN, SO I'M     *   DOC FILE
//*            NOT A LIAR (FROM NOW ON).                            *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-393 SECTION                                          *   DOC FILE
//*  V-393  CHANGES FOR VERSION 393 FEB 28, 1995                    *   DOC FILE
//*        01  UPDATE TO FILE 120 FROM SAM GOLOB TO ADD ANOTHER     *   DOC FILE
//*            ARTICLE.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 171 FROM DAVID CARTWRIGHT OF SUTTON   *   DOC FILE
//*            COLDFIELD, ENGLAND.  THIS IS TO ADD A MEMBER FOR     *   DOC FILE
//*            THE SUPPORT OF DITTO, CALLED $DITCRTW, WHICH DAVE    *   DOC FILE
//*            NEEDED TO GET DITTO TO WORK ON HIS SYSTEM.  THIS     *   DOC FILE
//*            MEMBER IS INCLUDED HERE FOR YOU TO LOOK AT, IF YOU   *   DOC FILE
//*            FEEL YOU MAY NEED IT.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 172 FROM DAVID CARTWRIGHT OF SUTTON   *   DOC FILE
//*            COLDFIELD, ENGLAND.  THIS IS A REFRESH OF HIS NICE   *   DOC FILE
//*            COLLECTION OF UTILITIES.                             *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-392 SECTION                                          *   DOC FILE
//*  V-392  CHANGES FOR VERSION 392 FEB 08, 1995                    *   DOC FILE
//*        01  UPDATE TO FILE 120 FROM SAM GOLOB TO ADD ANOTHER     *   DOC FILE
//*            ARTICLE.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  ADDITION OF FILE 233 FROM GORDON HAMPTON OF          *   DOC FILE
//*            COLONIA, NEW JERSEY.  THIS FILE CONTAINS A BATCH     *   DOC FILE
//*            PROGRAM WHICH GENERATES AN ABEND OF ANY CODE YOU     *   DOC FILE
//*            WANT, SYSTEM, USER, OR SYSTEM WITH REASON CODE.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 458 FROM PAUL MOINIL OF JRC           *   DOC FILE
//*            COMPUTING CENTRE IN ISPRA, ITALY.  THIS IS TO        *   DOC FILE
//*            CORRECT A CODING ERROR IN THE PROGRAM, MODLOOK.      *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-391 SECTION                                          *   DOC FILE
//*  V-391  CHANGES FOR VERSION 391 JAN 11, 1995                    *   DOC FILE
//*        01  UPDATE TO FILE 102 FROM SAM GOLOB.  THIS MODIFIES    *   DOC FILE
//*            THE TAPESCAN PROGRAM TO DO BETTER REPORTING WHEN     *   DOC FILE
//*            READING CARTRIDGES.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-390 SECTION                                          *   DOC FILE
//*  V-390  CHANGES FOR VERSION 390 DEC 29, 1994                    *   DOC FILE
//*        01  UPDATE TO FILE 166 FROM VINH VU OF FRITO-LAY IN      *   DOC FILE
//*            PLANO, TEXAS.  THIS IS A RE-SHIPMENT OF HIS          *   DOC FILE
//*            UTILITIES.  THE MAIN ADDITION IS A JOB ACTIVITY      *   DOC FILE
//*            DISPLAY.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 453 FROM PAUL A MOINIL OF J.R.C.      *   DOC FILE
//*            COMPUTING CENTRE IN ISPRA, ITALY.  THIS FILE IS      *   DOC FILE
//*            NOW AN INDEX TO HIS LARGE COLLECTION OF UTILITIES.   *   DOC FILE
//*            THE ENTIRE COLLECTION USED TO BE ON THIS FILE.       *   DOC FILE
//*            NOW IT IS SPREAD INTO FILES 454 THROUGH 459.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  ADDITION OF FILES 454 THROUGH 459 FROM PAUL A.       *   DOC FILE
//*            MOINIL OF J.R.C COMPUTING CENTRE IN ISPRA, ITALY.    *   DOC FILE
//*            THESE FILES CONTAIN A LARGE COLLECTION OF SYSTEM     *   DOC FILE
//*            PROGRAMMER UTILITIES.                                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-389 SECTION                                          *   DOC FILE
//*  V-389  CHANGES FOR VERSION 389 DEC 22, 1994                    *   DOC FILE
//*        01  UPDATE TO FILE 120 FROM SAM GOLOB TO ADD A           *   DOC FILE
//*            NEW ARTICLE.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-388 SECTION                                          *   DOC FILE
//*  V-388  CHANGES FOR VERSION 388 NOV 29, 1994                    *   DOC FILE
//*        01  UPDATE TO FILE 134 FROM GREG PRICE OF MELBOURNE      *   DOC FILE
//*            AUSTRALIA.  THIS IS HIS 16TH SHIPMENT.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 135 FROM GREG PRICE OF MELBOURNE      *   DOC FILE
//*            AUSTRALIA, TO REFLECT HIS 16TH SHIPMENT.             *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-387 SECTION                                          *   DOC FILE
//*  V-387  CHANGES FOR VERSION 387 NOV 21, 1994                    *   DOC FILE
//*        01  UPDATE TO FILE 120 FROM SAM GOLOB TO ADD A           *   DOC FILE
//*            NEW ARTICLE.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-386 SECTION                                          *   DOC FILE
//*  V-386  CHANGES FOR VERSION 386 NOV 13, 1994                    *   DOC FILE
//*        01  UPDATE TO FILE 224 TO CONTAIN A MORE REPRESENTATIVE  *   DOC FILE
//*            SET OF JOB AND REPORT OUTPUTS FOR THE FREE TAPE      *   DOC FILE
//*            MANAGEMENT SYSTEM.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-385 SECTION                                          *   DOC FILE
//*  V-385  CHANGES FOR VERSION 385 OCT 25, 1994                    *   DOC FILE
//*        01  UPDATE TO FILE 120 FROM SAM GOLOB TO INCLUDE A       *   DOC FILE
//*            NEW ARTICLE.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  ADDITION OF FILE 223 WHICH IS A COMPLETE FREE        *   DOC FILE
//*            TAPE MANAGEMENT SYSTEM, CONTRIBUTED SEMI-            *   DOC FILE
//*            ANONYMOUSLY.  CONTACT SAM GOLOB FOR SUPPORT          *   DOC FILE
//*            INFORMATION.  THIS SYSTEM KEEPS TRACK OF ANY         *   DOC FILE
//*            SIZE TAPE LIBRARY.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  ADDITION OF FILE 224 WHICH CONTAINS SAMPLE           *   DOC FILE
//*            EXECUTION OF THE FREE TAPE MANAGEMENT SYSTEM.        *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-384 SECTION                                          *   DOC FILE
//*  V-384  CHANGES FOR VERSION 384 OCT 13, 1994                    *   DOC FILE
//*        01  UPDATE TO FILE 035 TO REFLECT THE CURRENT VERSION    *   DOC FILE
//*            OF VSAMANAL FROM DAVID CARTWRIGHT OF SUTTON          *   DOC FILE
//*            COLDFIELD IN ENGLAND.  COMPILED WITH AS OLD A        *   DOC FILE
//*            PL/1 OPTIMIZING COMPILER AS I COULD FIND (V 1.4).    *   DOC FILE
//*            THESE MODULES WERE TESTED TO RUN ON MY MVS 4.3       *   DOC FILE
//*            SYSTEM USING PL/1 V2.3 EXECUTION LIBRARIES, BUT      *   DOC FILE
//*            I ALSO WANT IT TO RUN AT SHOPS THAT DON'T HAVE       *   DOC FILE
//*            SUCH A NEW VERSION OF PL/1.  WHY SHOULD THEY         *   DOC FILE
//*            SUFFER JUST BECAUSE WE BOUGHT THE NEW VERSION?       *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 166 FROM VINH VU OF FRITO LAY IN      *   DOC FILE
//*            PLANO, TEXAS.  THIS UPDATE ADDS SOME UTILITIES       *   DOC FILE
//*            TO THIS COLLECTION, AND UPDATES OTHERS.  SEE DOC     *   DOC FILE
//*            IN THE DOCUMENTATION SECTION BELOW, AND IN THE       *   DOC FILE
//*            FILE ITSELF.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 172 FROM DAVE CARTWRIGHT OF SUTTON    *   DOC FILE
//*            COLDFIELD IN ENGLAND, TO REVISE HIS DATA             *   DOC FILE
//*            COMPRESSION ROUTINE.  ALSO, A REFERENCE COPY OF      *   DOC FILE
//*            HIS VSAMANAL CHANGES IS BEING KEPT HERE.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  ADDITION OF FILE 220 FROM LEE CONYERS OF THE         *   DOC FILE
//*            U.S. DEPARTMENT OF TRANSPORTATION IN WASHINGTON,     *   DOC FILE
//*            D.C.  THIS IS A COLLECTION OF E.D.P. AUDITING        *   DOC FILE
//*            TOOLS.  GOOD FOR SYSTEMS PROGRAMMERS TOO.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  ADDITION OF FILE 221 FROM LEE CONYERS OF THE         *   DOC FILE
//*            U.S. DEPARTMENT OF TRANSPORTATION IN WASHINGTON,     *   DOC FILE
//*            D.C.  THIS PART OF HIS COLLECTION OF E.D.P.          *   DOC FILE
//*            AUDITING TOOLS IS IN VB LRECL(255) FORMAT, AND       *   DOC FILE
//*            CONSISTS OF REXX EXECS.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  UPDATE TO FILE 294 FROM DAVID CARTWRIGHT OF          *   DOC FILE
//*            SUTTON COLDFIELD IN ENGLAND.  THIS CONTAINS HIS      *   DOC FILE
//*            SOURCE CHANGES TO VSAMANAL, CORRECTED FOR 3390'S     *   DOC FILE
//*            AND WITH OTHER MODERNIZATIONS.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  UPDATE TO FILE 300 TO ADD A VERSION OF "MURPHY"      *   DOC FILE
//*            FROM ART TANSKY OF SUNGARD IN VOORHEES, NEW          *   DOC FILE
//*            JERSEY.  FOR "MURPHY FANS", THE OLD VERSION          *   DOC FILE
//*            IS BEING KEPT AS MEMBER "MURPHYO".                   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-383 SECTION                                          *   DOC FILE
//*  V-383  CHANGES FOR VERSION 383 SEP 16, 1994                    *   DOC FILE
//*        01  UPDATE TO FILE 078 FROM JOHN KALINICH OF AMXSI-TRI   *   DOC FILE
//*            U.S. ARMY IN ST LOUIS, MISSOURI.  THIS IS AN UPDATE  *   DOC FILE
//*            TO SOME OF THE SOFTWARE, AS IS REFLECTED IN THE      *   DOC FILE
//*            SHARE 83 (AUGUST 1994) DISKETTE MATERIAL.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 120 FROM SAM GOLOB TO ADD A NEW       *   DOC FILE
//*            ARTICLE.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-382 SECTION                                          *   DOC FILE
//*  V-382  CHANGES FOR VERSION 382 AUG 31, 1994                    *   DOC FILE
//*        01  UPDATE TO FILE 172 FROM DAVE CARTWRIGHT OF           *   DOC FILE
//*            SUTTON COLDFIELD IN ENGLAND.  THIS FILE CONTAINS     *   DOC FILE
//*            HIS UTILITIES, WITH UPDATES TO SEVERAL OF THEM.      *   DOC FILE
//*            THESE ARE THE "SPRECHER ENERGIE" UTILITIES.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  ADDITION OF FILE 219 FROM SAM GOLOB TO CONTAIN       *   DOC FILE
//*            SOME REXX EXECS FROM OUR LATE COLLEAGUE              *   DOC FILE
//*            TONY FORTE WHO PASSED AWAY RECENTLY.                 *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-381 SECTION                                          *   DOC FILE
//*  V-381  CHANGES FOR VERSION 381 AUG 19, 1994                    *   DOC FILE
//*        01  UPDATE TO THE FOLLOWING FILES ON THE TAPE THAT       *   DOC FILE
//*            ARE IN IEBCOPY FORMAT.  THIS IS TO ANTICIPATE AN     *   DOC FILE
//*            IBM PROBLEM WITH IEBCOPY, THAT AFTER A CERTAIN       *   DOC FILE
//*            PTF LEVEL IEBCOPY IS PURPORTED NOT TO BE ABLE TO     *   DOC FILE
//*            READ IEBCOPY TAPE FILES IN "OLD" FORMAT, THAT IS,    *   DOC FILE
//*            IF THE CONTROL RECORDS ARE 60 BYTES (INCLUDING       *   DOC FILE
//*            RDW) RATHER THAN THE NEWER 64 BYTES.  THIS (IF       *   DOC FILE
//*            TRUE) IS A POTENTIAL DISASTER.  I HOPE THE OLD       *   DOC FILE
//*            VERSIONS OF IEBCOPY CAN READ THE NEWER FILES.        *   DOC FILE
//*            THE PROBLEM WAS POINTED OUT BY LARRY LAFONTAINE      *   DOC FILE
//*            OF DRESSER INDUSTRIES IN DALLAS, TEXAS.  SO TO       *   DOC FILE
//*            HELP, THE FOLLOWING FILES ARE BEING REPLACED         *   DOC FILE
//*            IN "NEW" IEBCOPY FORMAT:  SEE APAR OW07575 FOR       *   DOC FILE
//*            DFSMS IEBCOPY, AND APAR OW07573 FOR DFP IEBCOPY.     *   DOC FILE
//*                                                                 *   DOC FILE
//*              028, 057, 061, 073, 092, 115, 145, 146,            *   DOC FILE
//*              153, 176, 186, 189, 280, 326, 371, 383,            *   DOC FILE
//*              432, 442, 444                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 035 TO INCLUDE A NEW COPY OF          *   DOC FILE
//*            TAPEMAP.  FIXED SOURCE CODE IS ON FILE 299.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 112 FROM BRUCE LELAND OF SERENA       *   DOC FILE
//*            INTERNATIONAL IN BURLINGAME, CALIFORNIA, TO          *   DOC FILE
//*            FIX A BUG IN ONE OF THE FUNCTIONS OF THE "VTOC"      *   DOC FILE
//*            TSO COMMAND.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 120 TO GET RID OF SAM GOLOB'S         *   DOC FILE
//*            OLD PHONE NUMBER AND TO FIX A FEW DETAILS IN         *   DOC FILE
//*            SEVERAL ARTICLES.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  UPDATE TO FILE 296 FROM BRUCE LELAND OF SERENA       *   DOC FILE
//*            INTERNATIONAL IN BURLINGAME, CALIFORNIA, TO FIX      *   DOC FILE
//*            SEVERAL OF THE UTILITIES ON THIS FILE.  AMONG        *   DOC FILE
//*            THEM ARE DSAT AND DVOL, WHICH NOW ARE ABLE TO        *   DOC FILE
//*            HANDLE 3390 MODEL 9 DISK PACKS, THAT HAVE AN         *   DOC FILE
//*            AWFUL LOT OF TRACKS.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  UPDATE TO FILE 299 FROM LARRY LAFONTAINE OF          *   DOC FILE
//*            DRESSER INDUSTRIES IN DALLAS, TEXAS.  HE POINTED     *   DOC FILE
//*            OUT A PROBLEM IN TAPEMAP, THAT A LINE OF CODE WAS    *   DOC FILE
//*            LEFT OUT, SO IT DIDN'T ACCEPT ANY PARMS EXCEPT       *   DOC FILE
//*            FOR THE DEFAULT OPTIONS.  THIS HAS BEEN FIXED,       *   DOC FILE
//*            AND THE LOAD MODULE IN FILE 035 HAS BEEN UPDATED.    *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-380 SECTION                                          *   DOC FILE
//*  V-380  CHANGES FOR VERSION 380 AUG 16, 1994                    *   DOC FILE
//*        01  UPDATE TO FILE 120 FROM SAM GOLOB TO INCLUDE A       *   DOC FILE
//*            NEW ARTICLE.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 121 FROM SAM GOLOB TO INCLUDE MORE    *   DOC FILE
//*            WIDE ILLUSTRATIONS FOR HIS ARTICLES.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 135 FROM SAM GOLOB TO INCLUDE         *   DOC FILE
//*            LOAD MODULE CHANGES THAT REFLECT THE NEW VERSIONS    *   DOC FILE
//*            OF PROGRAMS FROM FILE 183 (GILBERT SAINT-FLOUR).     *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 183 FROM GILBERT SAINT-FLOUR OF       *   DOC FILE
//*            AMS IN MENLO PARK, CALIFORNIA.  SEVERAL CHANGES      *   DOC FILE
//*            HAVE BEEN INCLUDED.  SHOWMVS IS NOW AT LEVEL 4.10.   *   DOC FILE
//*            BR IS NOW AT LEVEL 1.40                              *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-379 SECTION                                          *   DOC FILE
//*  V-379  CHANGES FOR VERSION 379 JUL 29, 1994                    *   DOC FILE
//*        01  UPDATE TO FILE 134 FROM GREG PRICE OF FERNTREE       *   DOC FILE
//*            COMPUTER SERVICES IN MELBOURNE, AUSTRALIA.  THIS     *   DOC FILE
//*            UPDATE IS TO FIX A BUG IN REVIEW.  VERSION 21.1      *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 135 FROM GREG PRICE OF FERNTREE       *   DOC FILE
//*            COMPUTER SERVICES IN MELBOURNE, AUSTRALIA.  THIS     *   DOC FILE
//*            UPDATE IS TO FIX A BUG IN REVIEW.  VERSION 21.1      *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-378 SECTION                                          *   DOC FILE
//*  V-378  CHANGES FOR VERSION 378 JUL 29, 1994                    *   DOC FILE
//*        01  UPDATE TO FILE 134 FROM GREG PRICE OF FERNTREE       *   DOC FILE
//*            COMPUTER SERVICES IN MELBOURNE, AUSTRALIA.  THIS     *   DOC FILE
//*            FILE IS THE 15TH SHIPMENT OF HIS SOURCE CODE         *   DOC FILE
//*            COLLECTION.  REVIEW AND WORM HAVE BEEN UPDATED.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 135 FROM GREG PRICE OF FERNTREE       *   DOC FILE
//*            COMPUTER SERVICES IN MELBOURNE, AUSTRALIA.  THIS     *   DOC FILE
//*            FILE IS THE 15TH SHIPMENT OF HIS LOAD MODULE         *   DOC FILE
//*            COLLECTION.  REVIEW AND WORM HAVE BEEN UPDATED.      *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-377 SECTION                                          *   DOC FILE
//*  V-377  CHANGES FOR VERSION 377 JUL 18, 1994                    *   DOC FILE
//*        01  ADDITION OF FILE 216 FROM JIM SMITH OF NATIONAL      *   DOC FILE
//*            LINEN SERVICE IN ATLANTA, GEORGIA.  THIS FILE        *   DOC FILE
//*            CONTAINS A GENERAL DATE MANIPULATION ROUTINE WHICH   *   DOC FILE
//*            HAS A SIZABLE VARIETY OF SEPARATE FUNCTIONS.         *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-376 SECTION                                          *   DOC FILE
//*  V-376  CHANGES FOR VERSION 376 JUL 14, 1994                    *   DOC FILE
//*        01  UPDATE TO FILE 071 TO ADD DOCUMENTATION FOR THE      *   DOC FILE
//*            NASPA MVS VIP TAPE AT LEVEL 9401.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  ADDITION OF FILE 215 FROM SAM GOLOB.  THIS IS A      *   DOC FILE
//*            COLLECTION OF 2 CLISTS THAT ARE USEFUL IN SMP/E      *   DOC FILE
//*            INQUIRIES.  THERE ARE ACCOMPANYING ARTICLES FROM     *   DOC FILE
//*            "TECHNICAL SUPPORT" MAGAZINE WHICH EXPLAIN THE       *   DOC FILE
//*            PRACTICAL USE OF THESE CLISTS.                       *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-375 SECTION                                          *   DOC FILE
//*  V-375  CHANGES FOR VERSION 375 MAY 24, 1994                    *   DOC FILE
//*        01  UPDATE TO FILE 134 FROM GREG PRICE OF PRYCROFT       *   DOC FILE
//*            SIX PTY IN MELBOURNE, AUSTRALIA.  THIS IS THE        *   DOC FILE
//*            14TH SHIPMENT OF GREG'S SOURCE CODE FILE.  REVIEW    *   DOC FILE
//*            AND IEFU83 WERE CHANGED.  THE IMPROVEMENT IN THE     *   DOC FILE
//*            REVIEW PROGRAM IS VERY SIGNIFICANT.  A FACILITY      *   DOC FILE
//*            WAS ADDED, WHEREBY IF YOU ARE "REVIEW-ING" A         *   DOC FILE
//*            DATASET, YOU CAN NOW OUTPUT SOME OF ITS RECORDS      *   DOC FILE
//*            TO AN EXTERNAL FILE, VIA QSAM.  WORTH LOOKING INTO.  *   DOC FILE
//*            THIS WILL WORK EVEN IF YOU ARE LOOKING AT VSAM       *   DOC FILE
//*            DATA FILES.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 135 FROM GREG PRICE OF PRYCROFT       *   DOC FILE
//*            SIX PTY IN MELBOURNE, AUSTRALIA.  THIS IS THE        *   DOC FILE
//*            14TH SHIPMENT OF GREG'S LOAD MODULE FILE.            *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-374 SECTION                                          *   DOC FILE
//*  V-374  CHANGES FOR VERSION 374 MAY 19, 1994                    *   DOC FILE
//*        01  ADDITION OF FILE 244 FROM PHILIP PECKSEN OF NFU      *   DOC FILE
//*            MUTUAL INSURANCE IN STRATFORD UPON AVON ENGLAND.     *   DOC FILE
//*            THIS IS ALSO FROM THE UK G.U.I.D.E. LARGE SYSTEMS    *   DOC FILE
//*            GROUP, AND IS THEIR MVSA93.GOODIES COLLECTION.       *   DOC FILE
//*            THIS IS A SOFTWARE COLLECTION AVAILABLE TO UK        *   DOC FILE
//*            G.U.I.D.E. MEMBERS.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*            ADDRESS:   PHILIP PECKSEN                            *   DOC FILE
//*                       NFU MUTUAL INSURANCE                      *   DOC FILE
//*                       TIDDINGTON ROAD                           *   DOC FILE
//*                       STRATFORD UPON AVON                       *   DOC FILE
//*                       WARKS CV37 7BJ                            *   DOC FILE
//*                       ENGLAND                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*            TELEPHONE:  +44-789-202111                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  ADDITION OF FILE 245 FROM PHILIP PECKSEN OF NFU      *   DOC FILE
//*            MUTUAL INSURANCE IN STRATFORD UPON AVON ENGLAND.     *   DOC FILE
//*            THIS IS ALSO FROM THE UK G.U.I.D.E. LARGE SYSTEMS    *   DOC FILE
//*            GROUP, AND IS THEIR MVSNUI.GOODIES COLLECTION.       *   DOC FILE
//*            THIS FILE IS MAINTAINED BY RICHARD HAYDOCK OF        *   DOC FILE
//*            NORWICH UNION INSURANCE IN ENGLAND.  THIS IS A       *   DOC FILE
//*            SOFTWARE COLLECTION AVAILABLE TO UK G.U.I.D.E.       *   DOC FILE
//*            MEMBERS.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-373 SECTION                                          *   DOC FILE
//*  V-373  CHANGES FOR VERSION 373 MAY 13, 1994                    *   DOC FILE
//*        01  UPDATE TO FILE 120 TO ADD A NEW ARTICLE.             *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-372 SECTION                                          *   DOC FILE
//*  V-372  CHANGES FOR VERSION 372 MAY 06, 1994                    *   DOC FILE
//*        01  ADDITION OF FILE 214 FROM FRED SCHUFF OF WAYNE,      *   DOC FILE
//*            PENNSYLVANIA, TO CONTAIN HIS COBOL COPY MEMBERS      *   DOC FILE
//*            WHICH MAP MVS CONTROL BLOCKS IN COBOL.  THIS         *   DOC FILE
//*            TAKES ADVANTAGE OF A NEW FEATURE OF COBOL II         *   DOC FILE
//*            THAT ALLOWS POINTERS TO MVS ADDRESSABLE AREAS        *   DOC FILE
//*            IN THE LINKAGE SECTION OF COBOL PROGRAMS.  I         *   DOC FILE
//*            GUESS NOW, YOU CAN PUT THE LAST IPL DATE AND         *   DOC FILE
//*            TIME AT THE TOP OF YOUR COMPANY'S ACCOUNTS           *   DOC FILE
//*            RECEIVABLE REPORTS.  ALSO YOUR CPUID AND SERIAL.     *   DOC FILE
//*            BUT SERIOUSLY, THIS CAN BE USEFUL SOMETIMES,         *   DOC FILE
//*            AND WITH THIS FILE, YOU HAVE SOME HELP DOING IT.     *   DOC FILE
//*            DOCUMENTATION IS INCLUDED IN MEMBER $$$DOC.          *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-371 SECTION                                          *   DOC FILE
//*  V-371  CHANGES FOR VERSION 371 APR 28, 1994                    *   DOC FILE
//*        01  UPDATE TO FILE 135 TO INCLUDE LATER VERSIONS OF      *   DOC FILE
//*            LOAD MODULES WHOSE SOURCE WAS UPDATED ON FILE 183.   *   DOC FILE
//*            THESE ARE BR AND SHOWMVS.  THESE BOTH NOW USE THE    *   DOC FILE
//*            SDSF SVC TO OPTIONALLY GET AUTHORIZED.  THEREFORE,   *   DOC FILE
//*            THEIR REAL NAMES ARE ISF$BRO AND ISF$SHOW WITH       *   DOC FILE
//*            ALIASES OF BR AND SHOWMVS, RESPECTIVELY.  IF YOU     *   DOC FILE
//*            COPY THESE MODULES INTO AN AUTHORIZED LIBRARY, AND   *   DOC FILE
//*            THEN INVOKE THE ALIAS NAMES, YOU'LL BE AUTHORIZED.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 183 FROM GILBERT SAINT-FLOUR OF       *   DOC FILE
//*            AMS NEAR SAN FRANCISCO, CALIFORNIA.  THIS IS         *   DOC FILE
//*            A LATER VERSION OF HIS UTILITY COLLECTION, WITH      *   DOC FILE
//*            QUITE A FEW PROGRAMS UPDATED.  SEE NEW MEMBER        *   DOC FILE
//*            ISFSVC TO SEE HOW TO USE THE SDSF SVC TO GET         *   DOC FILE
//*            AUTHORIZED UNDER ISPF.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  ADDITION OF FILE 453 FROM PAUL MOINIL OF J.R.C.      *   DOC FILE
//*            IN ISPRA, ITALY AND FROM ANTONIO COLOMBO OF AMDAHL   *   DOC FILE
//*            ITALIA IN MILAN, ITALY.  THIS IS A LARGE SOURCE      *   DOC FILE
//*            FILE WHICH CONTAINS ORIGINAL WORK AS WELL AS A       *   DOC FILE
//*            REWORKING OF MANY SOFTWARE PROGRAMS THAT WERE        *   DOC FILE
//*            ORIGINALLY TAKEN FROM THIS TAPE.  THIS FILE, WHEN    *   DOC FILE
//*            RECEIVED, WAS SLIGHTLY OVER 300000 LINES.  I CUT     *   DOC FILE
//*            IT DOWN TO A BIT OVER 200000 LINES BY REMOVING       *   DOC FILE
//*            SOME MEMBERS THAT I FELT COULD (ESSENTIALLY) BE      *   DOC FILE
//*            FOUND ELSEWHERE ON THIS TAPE.  I TRIED TO LEAVE      *   DOC FILE
//*            MATERIALS WHERE IT WAS OBVIOUS THAT PAUL HAD DONE    *   DOC FILE
//*            A LOT OF WORK ON THEM.                               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-370 SECTION                                          *   DOC FILE
//*  V-370  CHANGES FOR VERSION 370 APR 22, 1994                    *   DOC FILE
//*        01  UPDATE TO FILE 091 FROM JIM MARSHALL OF THE U.S.     *   DOC FILE
//*            TREASURY FINANCIAL MANAGEMENT SERVICE, TO INCLUDE    *   DOC FILE
//*            PROCEDURES FOR FORTRAN G, FORTRAN H, AND RPG         *   DOC FILE
//*            FREE VERSIONS, AS WELL AS FOR PL1/F.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 176 WHICH IS THE OLD FREE IBM         *   DOC FILE
//*            ALGOL COMPILER AND LIBRARY.  THIS IS A NEW           *   DOC FILE
//*            LINKEDIT OF THESE MODULES USING THE DFSMS            *   DOC FILE
//*            BINDER.                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  ADDITION OF FILE 327 WHICH IS THE FREE OS/MVT        *   DOC FILE
//*            RPG COMPILER THAT HAD BEEN SAVED BY JIM MARSHALL     *   DOC FILE
//*            AND WHICH USED TO BE ON THIS TAPE.  THIS VERSION     *   DOC FILE
//*            WAS BROUGHT BACK FROM THE SPLA MVS TAPE, AND HAS     *   DOC FILE
//*            BEEN RE-LINKEDITED BY SAM GOLOB USING THE DFSMS      *   DOC FILE
//*            BINDER.                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 391 WHICH IS QUEUE FOR JES2 4.2.0     *   DOC FILE
//*            FROM WILLIAM HECOX.  THIS UPDATE IS FROM SAM         *   DOC FILE
//*            GOLOB TO ADD A MEMBER CALLED $$$FOR43, THAT HAS      *   DOC FILE
//*            UPDATES TO SOURCE, SO THAT QUEUE MAY BE RUN ON       *   DOC FILE
//*            JES2 RELEASE 4.3.0.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-369 SECTION                                          *   DOC FILE
//*  V-369  CHANGES FOR VERSION 369 APR 17, 1994                    *   DOC FILE
//*        01  UPDATE TO FILE 035 TO ADD A COPY OF ASMTOZAF THAT    *   DOC FILE
//*            HAS RETURN CODE PROCESSING (IN PL1/F), LIKE THE      *   DOC FILE
//*            PL/1 OPTIMIZER VERSION HAS.  (LOAD MODULE)           *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 044 TO FIX ASMTOZAF SO THAT IT        *   DOC FILE
//*            HAS RETURN CODE PROCESSING (IN PL1/F), LIKE THE      *   DOC FILE
//*            PL/1 OPTIMIZER VERSION HAS.  (SOURCE CODE)           *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 241 FROM VALENTIN CHERNYAK OF RIVER   *   DOC FILE
//*            EDGE, NEW JERSEY, TO INCLUDE A USER MANUAL FOR HIS   *   DOC FILE
//*            SUPER INTERACTIVE DISASSEMBLER CALLED REASM.  REASM  *   DOC FILE
//*            ITSELF IS AT LEVEL 2.2.  THE MANUAL IS FOR LEVEL     *   DOC FILE
//*            2.1.  BEST WE CAN DO AT THIS TIME.  THERE IS ALSO    *   DOC FILE
//*            ISPF CONTEXTUAL HELP IN THE PROGRAM, SO THAT CAN     *   DOC FILE
//*            ALSO HELP YOU.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  REBLOCKED FILE 434 SO THAT IT TAKES LESS FOOTAGE     *   DOC FILE
//*            ON THE TAPE.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-368 SECTION                                          *   DOC FILE
//*  V-368  CHANGES FOR VERSION 368 APR 08, 1994                    *   DOC FILE
//*        01  UPDATE TO FILE 044 FROM SAM GOLOB AND HOWARD         *   DOC FILE
//*            GILBERT, TO ADD A PL1/F VERSION OF THE ASMTOZAP      *   DOC FILE
//*            PROGRAM.  PL1/F IS FOUND ON FILES 092 AND 091 OF     *   DOC FILE
//*            THIS TAPE, AND IS IBM'S FREE PL/1.  THEREFORE,       *   DOC FILE
//*            EVERYONE CAN NOW RUN ASMTOZAP, EVEN IF YOU DO NOT    *   DOC FILE
//*            HAVE THE PL/1 OPTIMIZING COMPILER AND/OR             *   DOC FILE
//*            LIBRARIES.  THIS CHANGE WAS ALREADY ON VERSION       *   DOC FILE
//*            367 OF THE CBT TAPE BUT WASN'T DOCUMENTED THERE.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 196 FROM SAM GOLOB, WHICH IS THE      *   DOC FILE
//*            JES2 EXIT LOADER FOR JES2 VERSIONS 4.X.  THIS        *   DOC FILE
//*            UPDATE INCLUDES A VERSION THAT WORKS FOR JES2        *   DOC FILE
//*            4.3.0.  THE JES2 EXIT LOADER WILL PROCESS A $LOAD    *   DOC FILE
//*            CONSOLE COMMAND TO RELOAD A JES2 EXIT THAT IS        *   DOC FILE
//*            RESIDENT IN THE JES2 ADDRESS SPACE (NOT LPA OR       *   DOC FILE
//*            CSA).  THIS IS A DYNAMIC RELOAD, AND YOU DO NOT      *   DOC FILE
//*            NEED TO HOT START JES2 TO BE ABLE TO USE A NEW       *   DOC FILE
//*            VERSION OF YOUR EXIT.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  ADDITION OF FILE 238 FROM VALENTIN CHERNYAK OF       *   DOC FILE
//*            RIVER EDGE, NEW JERSEY.  THIS FILE CONTAINS THE      *   DOC FILE
//*            LOAD MODULES FOR HIS INTERACTIVE DISASSEMBLER        *   DOC FILE
//*            THAT WORKS UNDER ISPF.  THIS IS A POWERFUL AND       *   DOC FILE
//*            NOVEL DISASSEMBLER THAT HAS MANY BELLS AND           *   DOC FILE
//*            WHISTLES.  YOU WILL BE IMPRESSED.  NEEDS PL/I        *   DOC FILE
//*            OPTIMIZER VERSION 2.3 TO RUN THE LOAD MODULES.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  ADDITION OF FILE 239 FROM VALENTIN CHERNYAK OF       *   DOC FILE
//*            RIVER EDGE, NEW JERSEY.  THIS FILE CONTAINS THE      *   DOC FILE
//*            ISPF PANELS FOR HIS INTERACTIVE DISASSEMBLER.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  ADDITION OF FILE 240 FROM VALENTIN CHERNYAK OF       *   DOC FILE
//*            RIVER EDGE, NEW JERSEY.  THIS FILE CONTAINS THE      *   DOC FILE
//*            ISPF MESSAGES FOR HIS INTERACTIVE DISASSEMBLER.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  ADDITION OF FILE 241 FROM VALENTIN CHERNYAK OF       *   DOC FILE
//*            RIVER EDGE, NEW JERSEY.  THIS FILE CONTAINS THE      *   DOC FILE
//*            DOC AND JCL FOR HIS INTERACTIVE DISASSEMBLER.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  ADDITION OF FILE 242 FROM VALENTIN CHERNYAK OF       *   DOC FILE
//*            RIVER EDGE, NEW JERSEY.  THIS FILE CONTAINS THE      *   DOC FILE
//*            PREPROCESSED CONTROL BLOCK LAYOUTS FOR HIS           *   DOC FILE
//*            INTERACTIVE DISASSEMBLER.                            *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-367 SECTION                                          *   DOC FILE
//*  V-367  CHANGES FOR VERSION 367 MAR 22, 1994                    *   DOC FILE
//*        01  UPDATE TO FILE 035 TO ADD THE ASMTOZAF LOAD MODULE,  *   DOC FILE
//*            WHICH IS ASMTOZAP THAT WAS COMPILED WITH THE FREE    *   DOC FILE
//*            PL1/F COMPILER.  ALSO UPDATED TAPEMAP LOAD MODULE.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 044 FROM SAM GOLOB AND HOWARD         *   DOC FILE
//*            GILBERT, TO ALLOW ASMTOZAP TO USE THE FREE PL1/F     *   DOC FILE
//*            COMPILER, IF THAT IS ALL YOU HAVE ACCESS TO.         *   DOC FILE
//*            ALSO, MORE DOC WAS ADDED, AND SAMPLE JCL.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 120 FROM SAM GOLOB TO ADD ANOTHER     *   DOC FILE
//*            ARTICLE (ABOUT ASMTOZAP).                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 134 FROM GREG PRICE OF FERNTREE       *   DOC FILE
//*            COMPUTER SERVICES IN MELBOURNE, AUSTRALIA.           *   DOC FILE
//*            THIS IS THE 13TH SHIPMENT OF HIS SOURCE CODE.        *   DOC FILE
//*            HIS NEW VERSION OF REVIEW NOW FORMATS LOGREC         *   DOC FILE
//*            RECORDS WITH THE KEYWORD OF "EREP" WHEN RUNNING      *   DOC FILE
//*            AGAINST SYS1.LOGREC.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  UPDATE TO FILE 135 FROM GREG PRICE OF FERNTREE       *   DOC FILE
//*            COMPUTER SERVICES IN MELBOURNE, AUSTRALIA.           *   DOC FILE
//*            THIS IS THE 13TH SHIPMENT OF HIS LOAD MODULES.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  UPDATE TO FILE 299 WHICH IS TAPEMAP, FROM SAM        *   DOC FILE
//*            GOLOB, TO REPORT DISK TYPE 3390.                     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-366 SECTION                                          *   DOC FILE
//*  V-366  CHANGES FOR VERSION 366 MAR 04, 1994                    *   DOC FILE
//*        01  UPDATE TO FILE 106 WHICH IS ART TANSKY'S FILE,       *   DOC FILE
//*            FROM SAM GOLOB, TO FIX A FEW ERRORS AND ADD A        *   DOC FILE
//*            FEW MORE MEMBERS.  THIS FILE CONTAINS PROGRAMS       *   DOC FILE
//*            THAT LIST THE RACF ACCESS FOR ANY GIVEN USERID       *   DOC FILE
//*            TO ANY GIVEN PROFILE.  THE PROGRAMS MUST RUN         *   DOC FILE
//*            AUTHORIZED.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-365 SECTION                                          *   DOC FILE
//*  V-365  CHANGES FOR VERSION 365 MAR 02, 1994                    *   DOC FILE
//*        01  UPDATE TO FILE 078 FROM JOHN KALINICH OF THE         *   DOC FILE
//*            U.S. ARMY IN ST. LOUIS, MISSOURI.  THIS NEW          *   DOC FILE
//*            UPDATE REFLECTS THE STATUS OF HIS SOFTWARE           *   DOC FILE
//*            ON THE SHARE 82 SOFTWARE DISKETTES.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 270 FROM WASHINGTON STATE, IN         *   DOC FILE
//*            OLYMPIA, WASHINGTON, TO ADD A PHONE LIST OF          *   DOC FILE
//*            THEIR CONTRIBUTORS TO THIS FILE.                     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-364 SECTION                                          *   DOC FILE
//*  V-364  CHANGES FOR VERSION 364 FEB 18, 1994                    *   DOC FILE
//*        01  UPDATE TO FILE 120 FROM SAM GOLOB TO FIX SOME        *   DOC FILE
//*            OF THE INFORMATION IN HIS LAST TWO COLUMNS.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  ADDITION OF FILE 206 FROM LINNEA NICHOLS OF THE      *   DOC FILE
//*            FAIRFAX COUNTY GOVERNMENT IN FAIRFAX, VIRGINIA.      *   DOC FILE
//*            THIS FILE CONTAINS REXX ROUTINES FOR DASD            *   DOC FILE
//*            ADMINISTRATORS, WHICH TAKE ADVANTAGE OF DCOLLECT     *   DOC FILE
//*            INFORMATION TO CREATE DASD REPORTS.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  ADDITION OF FILE 210 FROM KEN TOMIAK OF DOITT (DEPT  *   DOC FILE
//*            (OF INFORMATION TECHNOLOGY AND TELECOMMUNICATIONS)   *   DOC FILE
//*            OF NEW YORK CITY.  THIS FILE CONTAINS THEIR CICS     *   DOC FILE
//*            CROSS SYSTEM FACILITY, AN ISPF APPLICATION WHICH     *   DOC FILE
//*            ALLOWS CENTRAL MAINTENANCE OF MANY CICS REGIONS.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  ADDITION OF FILE 211 FROM KEN TOMIAK OF DOITT (DEPT  *   DOC FILE
//*            (OF INFORMATION TECHNOLOGY AND TELECOMMUNICATIONS)   *   DOC FILE
//*            OF NEW YORK CITY.  THIS FILE CONTAINS THE SCRIPTED   *   DOC FILE
//*            DOCUMENTATION FOR THEIR CICS CROSS SYSTEM FACILITY.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  ADDITION OF FILE 212 FROM KEN TOMIAK OF DOITT (DEPT  *   DOC FILE
//*            (OF INFORMATION TECHNOLOGY AND TELECOMMUNICATIONS)   *   DOC FILE
//*            OF NEW YORK CITY.  THIS FILE CONTAINS THEIR DB2      *   DOC FILE
//*            CROSS SYSTEM FACILITY, AN ISPF APPLICATION WHICH     *   DOC FILE
//*            ALLOWS CENTRAL MAINTENANCE OF MANY DB2 ADDRESS       *   DOC FILE
//*            SPACES.                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  ADDITION OF FILE 213 FROM KEN TOMIAK OF DOITT (DEPT  *   DOC FILE
//*            (OF INFORMATION TECHNOLOGY AND TELECOMMUNICATIONS)   *   DOC FILE
//*            OF NEW YORK CITY.  THIS FILE CONTAINS THE SCRIPTED   *   DOC FILE
//*            DOCUMENTATION FOR THEIR DB2 CROSS SYSTEM FACILITY.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  UPDATE TO FILE 270 FROM HOWARD GLASTETTER OF THE     *   DOC FILE
//*            WASHINGTON STATE DEPARTMENT OF INFORMATION SERVICES  *   DOC FILE
//*            IN OLYMPIA, WASHINGTON.  THIS FILE HAS UPDATES TO    *   DOC FILE
//*            HIS RMF COMBINED REPORT FOR DASD SHARED ACROSS MVS   *   DOC FILE
//*            SYSTEMS (FOR ESA 4.2), AND TO HIS JCLXREF PROGRAM.   *   DOC FILE
//*            THE RMF UPDATE FIXES A PROGRAM ABEND BY IGNORING     *   DOC FILE
//*            THE NEW TYPE 74 SUBTYPE 2 RECORDS PRODUCED BY        *   DOC FILE
//*            ESA 4.2.  I ALSO ADDED ISPF STATS TO THIS FILE.      *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-363 SECTION                                          *   DOC FILE
//*  V-363  CHANGES FOR VERSION 363 FEB 03, 1994                    *   DOC FILE
//*        01  UPDATE TO FILE 171 TO FIX AND ENHANCE THE            *   DOC FILE
//*            DISASSEMBLER.  FIX PROBLEM WITH INSTRUCTIONS         *   DOC FILE
//*            OF A CERTAIN TYPE, TO VERIFY THAT THERE IS AN        *   DOC FILE
//*            ODD-EVEN PAIR OF REGISTERS AS OPERANDS.              *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-362 SECTION                                          *   DOC FILE
//*  V-362  CHANGES FOR VERSION 362 FEB 02, 1994                    *   DOC FILE
//*        01  UPDATE TO FILE 138 WHICH IS THE SYSTEMID COMMAND     *   DOC FILE
//*            FROM ART TANSKY OF SUNGARD IN VOORHEES, NEW JERSEY.  *   DOC FILE
//*            THIS IS A MODERNIZATION OF THE COMMAND.  SEE MEMBER  *   DOC FILE
//*            $$DOC FOR A DESCRIPTION.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  ADDITION OF FILE 208 FROM ART TANSKY OF SUNGARD      *   DOC FILE
//*            IN VOORHEES, NEW JERSEY.  THIS FILE CONTAINS THE     *   DOC FILE
//*            LSPC COMMAND WHICH IS A DESCENDANT OF THE TSSPACE    *   DOC FILE
//*            COMMAND FROM FILE 127.  SEE MEMBER $$DOC.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  ADDITION OF FILE 209 FROM ART TANSKY OF SUNGARD      *   DOC FILE
//*            IN VOORHEES, NEW JERSEY.  THIS FILE CONTAINS A       *   DOC FILE
//*            HEXADECIMAL CALCULATOR WRITTEN IN REXX, WHICH IS     *   DOC FILE
//*            SUPPOSED TO RUN, UNCHANGED, IN THE TSO MVS, VM,      *   DOC FILE
//*            PC-DOS, AND OS2 ENVIRONMENTS.                        *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-361 SECTION                                          *   DOC FILE
//*  V-361  CHANGES FOR VERSION 361 JAN 30, 1994                    *   DOC FILE
//*        01  UPDATE TO FILE 204 FROM SAM GOLOB TO INCLUDE A       *   DOC FILE
//*            SMALL ASSEMBLER PROGRAM CALLED ASMLVL THAT HAD       *   DOC FILE
//*            BEEN LEFT OUT OF THE CROSS SYSTEM ISPF               *   DOC FILE
//*            APPLICATION.  THIS SMALL PROGRAM UPDATES A           *   DOC FILE
//*            DATASET CALLED 'SYS1.LEVEL' WHICH IS ON ALL RES      *   DOC FILE
//*            PACKS PRODUCED BY OUR CLONING PROCESS, AND WHICH     *   DOC FILE
//*            IS CATALOGED AS VOL(******).  THE DATASET IS A       *   DOC FILE
//*            CLIST, WITH THE FOLLOWING TYPE OF COMMAND            *   DOC FILE
//*            REPEATED 10 TIMES.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//* SE '*** WE ARE IPLED FROM LEVEL 70 VOLUME MRS001 **',OPERATOR(1)*   DOC FILE
//*                                                                 *   DOC FILE
//*            THIS DATASET IS THEN EXECUTED BY A STARTED PROC      *   DOC FILE
//*            AS A CLIST UNDER TSO IN BATCH, TO DISPLAY THE        *   DOC FILE
//*            CURRENT SYSTEM RES PACK MAINTENANCE LEVEL.           *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-360 SECTION                                          *   DOC FILE
//*  V-360  CHANGES FOR VERSION 360 JAN 28, 1994                    *   DOC FILE
//*        01  UPDATE TO FILE 120 FROM SAM GOLOB TO INCLUDE         *   DOC FILE
//*            ANOTHER ARTICLE.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  ADDITION OF FILE 204 FROM KEN TOMIAK OF DOITT OF     *   DOC FILE
//*            NEW YORK CITY TO INCLUDE THEIR MVS CROSS SYSTEM      *   DOC FILE
//*            FACILITY.  THIS SYSTEM (AMONG OTHER THINGS)          *   DOC FILE
//*            FACILITATES HAVING CLONES OF ONE STANDARD MVS        *   DOC FILE
//*            RESIDENCE PACK RUNNING ACROSS MANY DIVERSE LPARS.    *   DOC FILE
//*            THIS IS AN ISPF APPLICATION WHICH MAY BE VERY        *   DOC FILE
//*            USEFUL AT A LARGE MVS INSTALLATION.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  ADDITION OF FILE 205 FROM KEN TOMIAK OF DOITT OF     *   DOC FILE
//*            NEW YORK CITY TO INCLUDE THE SCRIPT FILE WHICH       *   DOC FILE
//*            HELPS DOCUMENT THEIR MVS CROSS SYSTEM FACILITY.      *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-359 SECTION                                          *   DOC FILE
//*  V-359  CHANGES FOR VERSION 359 JAN 20, 1994                    *   DOC FILE
//*        00  I AM CONTINUING TO FIX THIS DOC.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  UPDATE TO FILE 184 FROM TOM BRYANT OF HARRIS         *   DOC FILE
//*            TRUST IN CHICAGO, ILLINOIS, TO INCLUDE FOUR          *   DOC FILE
//*            PUBLISHED ARTICLES EXPLAINING HIS APPROACH TO        *   DOC FILE
//*            IPCS AND HIS DEBUGGING PHILOSOPHIES.  THESE FOUR     *   DOC FILE
//*            ARTICLES HAVE REPLACED THE THREE ARTICLES WHICH      *   DOC FILE
//*            APPEARED PREVIOUSLY IN THIS FILE.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  ADDITION OF FILE 203 FROM JIM MARSHALL OF THE U.S.   *   DOC FILE
//*            TREASURY FINANCIAL MANAGEMENT SERVICE IN             *   DOC FILE
//*            HYATTSVILLE MARYLAND.  THIS FILE DEALS WITH THE      *   DOC FILE
//*            CA-1 TAPE MANAGEMENT SYSTEM, AND THE STK TAPE        *   DOC FILE
//*            SILOS.  THIS SOFTWARE ALLOWS YOU TO TAKE A CA-1      *   DOC FILE
//*            TMSGRW (TAPE LIST) REPORT, AND GENERATE CONTROL      *   DOC FILE
//*            CARDS TO EJECT THE TAPES FROM THE SILO, 21 TAPES     *   DOC FILE
//*            AT A TIME.  THESE PROGRAMS ARE WRITTEN IN            *   DOC FILE
//*            ASSEMBLER (NOT SAS).  HELPS SHOPS THAT DON'T HAVE    *   DOC FILE
//*            SAS.  IF YOU HAVE TLMS, YOU'D HAVE TO ADAPT SOME     *   DOC FILE
//*            OF THIS CODE, TO READ THE TLMS EQUIVALENT OF THE     *   DOC FILE
//*            TMSGRW REPORT.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-358 SECTION                                          *   DOC FILE
//*  V-358  CHANGES FOR VERSION 358 JAN 14, 1994                    *   DOC FILE
//*        00  BELIEVE IT OR NOT, I AM ACTUALLY TRYING TO REMOVE    *   DOC FILE
//*            THE TYPOS AND SPELLING ERRORS FROM THIS FILE.  SO    *   DOC FILE
//*            FAR, I DON'T CLAIM TO BE PERFECT (ANYONE WHO IS      *   DOC FILE
//*            FAMILIAR WITH THIS TAPE KNOWS WHAT A HERCULEAN       *   DOC FILE
//*            TASK IT IS), BUT NOW, AFTER THIS UPDATE TO FILE      *   DOC FILE
//*            001, I'D LIKE TO CHALLENGE USERS OF THIS TAPE TO     *   DOC FILE
//*            REPORT SPELLING ERRORS AND TYPOS TO ME.  (I DON'T    *   DOC FILE
//*            COUNT GREG PRICE'S SPELLING OF "COLOUR" TO BE AN     *   DOC FILE
//*            ERROR, OBVIOUSLY.)  AS MURPHY SAYS:  "IF YOU COULD   *   DOC FILE
//*            TEACH PROGRAMMERS TO PROGRAM IN ENGLISH, YOU'D       *   DOC FILE
//*            FIND THAT PROGRAMMERS CAN'T WRITE ENGLISH."  NOT     *   DOC FILE
//*            QUITE ENTIRELY TRUE, I HOPE.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*            FOR THOSE CONTRIBUTORS WHO HAVE MOVED, AND WHOSE     *   DOC FILE
//*            NEW ADDRESSES I HAPPEN TO KNOW, I HAVE ATTEMPTED     *   DOC FILE
//*            (ON A HAPHAZARD BASIS) TO SUPPLY THESE NEW           *   DOC FILE
//*            ADDRESSES AND/OR PHONE NUMBERS FURTHER DOWN AT       *   DOC FILE
//*            APPROPRIATE PLACES IN THIS DOCUMENTATION FILE.       *   DOC FILE
//*            IT'S EASIER FOR ME TO EDIT FILE 001 THAN TO CHANGE   *   DOC FILE
//*            ALL THE INDIVIDUAL DATA FILES (ALTHOUGH I TRY TO     *   DOC FILE
//*            DO THAT, TOO.)  I ALSO HAVE MY OWN NEW ADDRESS       *   DOC FILE
//*            (TEMPORARY).  PLEASE SEE ABOVE.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*            MY PHONE NUMBER:      NEW PHONE:  845-362-1996       *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  UPDATE TO FILE 106 TO CHANGE ART TANSKY'S ADDRESS.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO THE DISASSEMBLER ON FILE 171 TO FIX A      *   DOC FILE
//*            PROBLEM ON NON-DFSMS SYSTEMS, OF I/O NOT WORKING     *   DOC FILE
//*            WHEN THE AMODE WASN'T 24, IN A FEW PLACES.  THERE    *   DOC FILE
//*            ARE STILL "A FEW SHOPS" RUNNING PLAIN MVS/ESA.       *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-357 SECTION                                          *   DOC FILE
//*  V-357  CHANGES FOR VERSION 357 DEC 28, 1993                    *   DOC FILE
//*        00  I WENT OVER MUCH OF FILE 001, ELIMINATING SPELLING   *   DOC FILE
//*            ERRORS AND INCONSISTENCIES AS FAR AS POSSIBLE.       *   DOC FILE
//*            SINCE I READ THIS DOCUMENTATION OFTEN, THE ERRORS    *   DOC FILE
//*            WERE BOTHERING ME A LOT.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  UPDATE TO FILE 047 FROM JIM LANE, WHO IS NOW         *   DOC FILE
//*            AT TORONTO HYDRO IN TORONTO, ONTARIO, CANADA.        *   DOC FILE
//*            THIS FILE NOW ALSO HAS A COPY OF CMD1 THAT RUNS      *   DOC FILE
//*            AT THE MVS/ESA 3.1.3 LEVEL, WHICH JIM WORKED ON.     *   DOC FILE
//*            THIS IS A COMPLETE REFRESH OF FILE 047.  THE LAST    *   DOC FILE
//*            UPDATE WAS MORE THAN 4 YEARS AGO.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 070 FROM THE FORMER GENERAL DYNAMICS  *   DOC FILE
//*            WHICH IS NOW COMPUTER SCIENCES CORP IN SAN DIEGO,    *   DOC FILE
//*            CALIFORNIA, JUST TO CHANGE THEIR CURRENT ADDRESS.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 134 FROM GREG PRICE OF FERNTREE       *   DOC FILE
//*            COMPUTER SERVICES IN MELBOURNE, AUSTRALIA.  THIS     *   DOC FILE
//*            IS THE TWELFTH SHIPMENT OF HIS SOURCE PACKAGE.       *   DOC FILE
//*            THIS PACKAGE ALSO CONTAINS SOURCE FOR LISTICAT       *   DOC FILE
//*            WHICH GREG MODIFIED FROM FILE 047 OF THIS TAPE.      *   DOC FILE
//*            SINCE JIM LANE SENT A REFRESH OF THE ENTIRE FILE     *   DOC FILE
//*            047 INCLUDING LISTICAT, I AM INCLUDING GREG'S        *   DOC FILE
//*            VERSION HERE IN FILE 134.  YOU CAN TAKE YOUR         *   DOC FILE
//*            CHOICE ON WHICH TO TRY, FOR NOW.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 135 FROM GREG PRICE OF FERNTREE       *   DOC FILE
//*            COMPUTER SERVICES IN MELBOURNE, AUSTRALIA.  THIS     *   DOC FILE
//*            IS THE TWELFTH SHIPMENT OF HIS LOAD MODULES.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  UPDATE TO FILE 171 WHICH WAS CONTRIBUTED SEMI-       *   DOC FILE
//*            ANONYMOUSLY.  (THIS MEANS THAT IF YOU CALL ME,       *   DOC FILE
//*            I CAN GET YOU TO THE SUPPORT.)  THIS UPDATE IS       *   DOC FILE
//*            TO THE DISASM AND TO THE SUTL PACKAGES.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  ADDITION OF FILE 202 WHICH CONTAINS DATA RELEVANT    *   DOC FILE
//*            TO GREG PRICE'S IEFU83 EXIT WHOSE SOURCE IS          *   DOC FILE
//*            CONTAINED IN FILE 134.  THIS FILE IS IN IEBCOPY      *   DOC FILE
//*            FORMAT AND IS VB WITH LRECL 2400.                    *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-356 SECTION                                          *   DOC FILE
//*  V-356  CHANGES FOR VERSION 356 DEC 03, 1993                    *   DOC FILE
//*        01  UPDATE TO FILE 126 FROM JAMES A. GIBSON OF L.L.      *   DOC FILE
//*            BEAN IN FREEPORT, MAINE.  THIS IS THE PASSWORD MOD   *   DOC FILE
//*            AND OTHER SYSTEM EXITS UPDATED TO MVS/ESA 4.2.0      *   DOC FILE
//*            AND DFP 3.3.  THE MVS/XA 2.2 VERSION OF THIS FILE    *   DOC FILE
//*            THAT WAS HERE BEFORE, IS INCLUDED AS MEMBER          *   DOC FILE
//*            $MODS220 IN IEBUPDTE SYSIN FORMAT.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 120 FROM SAM GOLOB TO INCLUDE A       *   DOC FILE
//*            NEW ARTICLE.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 138 WHICH IS THE SYSTEMID COMMAND,    *   DOC FILE
//*            TO INCLUDE ART TANSKY'S NEW ADDRESS.                 *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-355 SECTION                                          *   DOC FILE
//*  V-355  CHANGES FOR VERSION 355 NOV 24, 1993                    *   DOC FILE
//*        00  ADDED TWO SECTIONS TO THIS DOCUMENTATION, ABOVE.     *   DOC FILE
//*            THE FILE UPDATE SECTION SHOWS YOU HOW TO TELL MOST   *   DOC FILE
//*            ACCURATELY, WHICH FILES WERE CHANGED ON THIS TAPE    *   DOC FILE
//*            SINCE YOUR LAST TAPE.  THE UPLOAD DOWNLOAD SECTION   *   DOC FILE
//*            IS FOR FILES THAT WERE OBTAINED FROM DISKETTES.      *   DOC FILE
//*            SOMETIMES CERTAIN CHARACTERS GET INCORRECTLY         *   DOC FILE
//*            TRANSLATED IN THE UPLOAD OR DOWNLOAD.  THIS IS A     *   DOC FILE
//*            WARNING SECTION TO SHOW WHICH CHARACTERS TO WATCH    *   DOC FILE
//*            OUT FOR.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  IN FILES 078, 158, 428, I CHANGED MOST OCCURRENCES   *   DOC FILE
//*            OF HEX 6A TO HEX 4F, AS PER SUGGESTION FROM BRUCE    *   DOC FILE
//*            LELAND OF SERENA, INC.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 171 WHICH WAS CONTRIBUTED SEMI-       *   DOC FILE
//*            ANONYMOUSLY.  THE AUTHOR HAS ADDED ANOTHER UTILITY   *   DOC FILE
//*            CALLED SUTL, WHICH IS A VTAM LU 6.2 APPLICATION      *   DOC FILE
//*            THAT ALLOWS A TSO USER ON ONE SYSTEM TO SEE ALL      *   DOC FILE
//*            KINDS OF SYSTEM INFORMATION THAT IS HAPPENING ON     *   DOC FILE
//*            MANY OTHER SYSTEMS.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 187 TO UPGRADE CVTCLIST, THE CLIST    *   DOC FILE
//*            VB-FB AND FB-VB CONVERSION PROGRAM, TO V2R3M1.       *   DOC FILE
//*            THIS VERSION PROPERLY HANDLES REAL CLIST DATA IN VB  *   DOC FILE
//*            CLISTS, COLUMNS 1 TO 8, AND ALSO REPORTS ON THE      *   DOC FILE
//*            COUNT OF THOSE LINES IN EVERY MEMBER THAT WAS        *   DOC FILE
//*            CONVERTED WHICH HAD THEM.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  ADDITION OF FILE 201 FROM BRUCE HULL OF BOEING       *   DOC FILE
//*            COMPUTER SERVICES IN VIENNA, VIRGINIA.  THIS FILE    *   DOC FILE
//*            CONTAINS AN IKJCT44B ROUTINE TO ADD CLIST VARIABLES. *   DOC FILE
//*            THE ONES ADDED PROVIDE ALL KINDS OF SYSTEM INFOR-    *   DOC FILE
//*            MATION, MAKING THAT STUFF AVAILABLE DIRECTLY FOR     *   DOC FILE
//*            USE BY CLISTS.  FOR EXAMPLE, IPL DATE, SMF ID, ETC.  *   DOC FILE
//*            ALSO, THE MEMBER CALLED "VARIABLE" IS A HELP MEMBER  *   DOC FILE
//*            FOR CLIST VARIABLES IN GENERAL, AND ALSO FOR THESE   *   DOC FILE
//*            ADDED VARIABLES.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 270 TO CHANGE PHONE NUMBERS ONLY,     *   DOC FILE
//*            NO SOFTWARE CHANGES YET ....                         *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-354 SECTION                                          *   DOC FILE
//*  V-354  CHANGES FOR VERSION 354 NOV 12, 1993                    *   DOC FILE
//*        00  PLEASE NOTE THAT NASPA, AS A DISTRIBUTION AGENT      *   DOC FILE
//*            FOR THIS TAPE, NOW USES TWO 2400 FOOT REELS WHEN     *   DOC FILE
//*            THEY DISTRIBUTE REELS.  NORMALLY, THEY SEND CARTS.   *   DOC FILE
//*            THEY FOLLOW MY "SECOND TAPE" SCHEME OUTLINED ABOVE   *   DOC FILE
//*            IN "ANNOUNCEMENTS".  SPLA SENDS 3600 FOOT REELS.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  UPDATE TO ALAN FIELD'S ADDRESS.  ALAN IS THE         *   DOC FILE
//*            PROPRIETOR OF THE JES3 SHARE-GUIDE TAPE.  HE HAS     *   DOC FILE
//*            MOVED TO MINNESOTA.  HIS CURRENT ADDRESS 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
//*        02  UPDATE TO FILE 166 FROM VINH VU OF FRITO LAY IN      *   DOC FILE
//*            PLANO, TEXAS.  THIS ADDS A FEW MEMBERS AND UPDATES   *   DOC FILE
//*            HIS NICE COLLECTION OF COMMANDS AND REXX EXECS.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  ADDITION OF FILE 236 FROM SAM GOLOB, WHICH IS A      *   DOC FILE
//*            ZAP TO MODULE IDCLC01 THAT SHORTENS THE "TSO LISTC   *   DOC FILE
//*            LEVEL(  )" OUTPUT.  3 LEVELS OF DFP ARE COVERED,     *   DOC FILE
//*            WITH FURTHER HINTS ON HOW TO FIT THIS ZAP TO YOUR    *   DOC FILE
//*            OWN LEVEL OF DFP.  A WHOLE BUNCH OF PTF LEVEL ZAPS   *   DOC FILE
//*            ARE ALSO SUPPLIED.  THESE WERE OBTAINED BY READING   *   DOC FILE
//*            THE OBJECT DECKS ON PTFS WITH THE "PDSTOOLS"         *   DOC FILE
//*            VENDOR PRODUCT FROM SERENA, INC.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 071 TO INCLUDE THE DOCUMENTATION      *   DOC FILE
//*            OF THE SHARE PL/I TAPE.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  UPDATE TO FILE 316 TO REPLACE THE OFFLOAD PROGRAM    *   DOC FILE
//*            WITH A VERSION FROM JOHN KALINICH OF THE US ARMY     *   DOC FILE
//*            IN ST LOUIS WHICH PUNCHES ISPF STATISTICS.  PLEASE   *   DOC FILE
//*            NOTE THAT THE VERSION OF OFFLOAD IN FILE 093 ALSO    *   DOC FILE
//*            DOES THIS NOW.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-353 SECTION                                          *   DOC FILE
//*  V-353  CHANGES FOR VERSION 353 OCT 22, 1993                    *   DOC FILE
//*        01  ADDITION OF FILE 078 FROM JOHN KALINICH OF THE       *   DOC FILE
//*            U.S. ARMY IN ST LOUIS, MISSOURI.  THIS FILE CONSISTS *   DOC FILE
//*            OF A COLLECTION OF ISPF EDIT MACROS AND OTHER ISPF   *   DOC FILE
//*            GOODIES.  ONE EDIT MACRO IN THIS COLLECTION COMES    *   DOC FILE
//*            FROM LIONEL DYCK OF KAISER PERMANENTE IN WALNUT      *   DOC FILE
//*            CREEK, CALIFORNIA.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  ADDITION OF FILE 228 FROM WILLIAM HORTON OF          *   DOC FILE
//*            TENNESSEE EASTMAN IN KINGSPORT, TENNESSEE.  THIS     *   DOC FILE
//*            FILE CONTAINS AN ISPF DIALOG TO HELP RECOVER         *   DOC FILE
//*            DATASETS THAT WERE BACKED UP BY DFHSM.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  ADDITION OF FILE 428 FROM LIONEL DYCK AND DOUGLAS    *   DOC FILE
//*            ADAMS OF ROCKWELL INTERNATIONAL IN SEAL BEACH,       *   DOC FILE
//*            CALIFORNIA.  THIS FILE CONTAINS PROGRAMS TO EXTRACT  *   DOC FILE
//*            AND DISPLAY SYSTEM CONTROL BLOCK INFORMATION.  AN    *   DOC FILE
//*            OLDER VERSION OF THIS CODE CAN BE FOUND ON FILE 437  *   DOC FILE
//*            OF THIS TAPE.  THIS VERSION COMES FROM THE SHARE     *   DOC FILE
//*            DISKETTES (SHARE81).                                 *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-352 SECTION                                          *   DOC FILE
//*  V-352  CHANGES FOR VERSION 352 SEP 28, 1993                    *   DOC FILE
//*        01  UPDATE TO FILE 183 FROM GILBERT SAINT-FLOUR OF       *   DOC FILE
//*            AMS IN SAN FRANCISCO TO UPGRADE THE SHOWMVS          *   DOC FILE
//*            COMMAND SO IT WORKS FOR MVS/ESA 4.3.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 135 WHICH IS GREG PRICE'S LOAD        *   DOC FILE
//*            MODULE LIBRARY.  THIS LIBRARY CONTAINS THE SHOWMVS   *   DOC FILE
//*            LOAD MODULE, WHICH HAS BEEN REPLACED WITH THE MORE   *   DOC FILE
//*            CURRENT VERSION.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  ADDITION OF FILE 158 FROM ROBERT IAPPINI OF TEXACO   *   DOC FILE
//*            IN HOUSTON, TEXAS.  THIS FILE CONTAINS HIS NICE      *   DOC FILE
//*            COLLECTION OF REXX EXECS AND ISPF APPLICATIONS.      *   DOC FILE
//*            THIS COMES FROM THE SHARE DISKETTES (SHARE 81).      *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-351 SECTION                                          *   DOC FILE
//*  V-351  CHANGES FOR VERSION 351 SEP 24, 1993                    *   DOC FILE
//*        00  ANNOUNCEMENT OF A NEW SERVICE.  THE SHARE            *   DOC FILE
//*            ORGANIZATION NOW DISTRIBUTES SOFTWARE FOR VARIOUS    *   DOC FILE
//*            PLATFORMS VIA DISKETTES.  THESE DISKETTES CAN BE     *   DOC FILE
//*            OBTAINED FROM THE SHARE PROGRAM LIBRARY AGENCY.      *   DOC FILE
//*            LOOK FOR THE ADDRESS OF S.P.L.A. ABOVE, IN THIS      *   DOC FILE
//*            FILE.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*            SEE THE MODIFICATION TAPES SECTION ABOVE FOR         *   DOC FILE
//*            A BETTER DESCRIPTION OF THE CONTENTS OF THESE        *   DOC FILE
//*            DISKETTES.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  UPDATE TO FILE 071 WHICH IS CONTAINS DOCUMENTATION   *   DOC FILE
//*            AS TO THE CONTENTS OF OTHER PUBLIC TAPES, ETC.       *   DOC FILE
//*            THIS UPDATE ADDS THE CONTENTS OF THE VARIOUS         *   DOC FILE
//*            SUBDIRECTORIES IN THE SHARE DISKETTES (SHARE 81).    *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 120 FROM SAM GOLOB.  THESE ARE        *   DOC FILE
//*            SAM'S COLUMNS FROM "TECHNICAL SUPPORT" MAGAZINE      *   DOC FILE
//*            ENTITLED "MVS TOOLS AND TRICKS OF THE TRADE".        *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  ADDITION OF FILE 121 FROM SAM GOLOB.  THIS FILE      *   DOC FILE
//*            IS RELATED TO FILE 120, WHICH CONTAINS SAM'S         *   DOC FILE
//*            COLUMNS FROM "TECHNICAL SUPPORT" MAGAZINE ENTITLED   *   DOC FILE
//*            "MVS TOOLS AND TRICKS OF THE TRADE".  THIS FILE      *   DOC FILE
//*            CONTAINS 133-CHARACTER WIDE ILLUSTRATIONS FROM       *   DOC FILE
//*            SAM'S COLUMNS.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  ADDITION OF FILE 197 FROM HUGH HOSKINS OF ROCKWELL   *   DOC FILE
//*            INTERNATIONAL IN SEAL BEACH, CALIFORNIA.  THIS       *   DOC FILE
//*            FILE CONTAINS A LARGE COLLECTION OF MODS TO THEIR    *   DOC FILE
//*            IMS 3.1 SYSTEM.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  UPDATE TO FILE 435 FROM LIONEL DYCK OF ROCKWELL      *   DOC FILE
//*            INTERNATIONAL IN SEAL BEACH, CALIFORNIA.  THIS       *   DOC FILE
//*            IS A MINOR UPDATE TO HIS DYNAMIC ALLOCATION MACROS   *   DOC FILE
//*            THAT ARE ON THIS FILE.  THIS UPDATE COMES FROM THE   *   DOC FILE
//*            SHARE DISKETTES, WHICH UPGRADED SOME EXISTING MACROS *   DOC FILE
//*            THAT HAD BEEN ON FILE 435 PREVIOUSLY.                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-350 SECTION                                          *   DOC FILE
//*  V-350  CHANGES FOR VERSION 350 SEP 03, 1993                    *   DOC FILE
//*        01  UPDATE TO FILE 174 WHICH IS TAPECOPY FROM ARON       *   DOC FILE
//*            EISENPRESS OF CUNY TO ADD SAMPLE JCL FOR RUNNING     *   DOC FILE
//*            THIS PROGRAM.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 182 WHICH IS THE PDS 8.4 COMMAND      *   DOC FILE
//*            PROCESSOR PACKAGE, TO UPDATE BRUCE LELAND AND        *   DOC FILE
//*            STEVE SMITH'S ADDRESSES.  THEY NOW BOTH WORK FOR:    *   DOC FILE
//*                                                                 *   DOC FILE
//*                  SERENA INTERNATIONAL                           *   DOC FILE
//*                  500 AIRPORT BOULEVARD, 2ND FLOOR               *   DOC FILE
//*                  BURLINGAME, CA  94010                          *   DOC FILE
//*                  415-696-1800                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*            I ALSO CLEANED UP THE CODE TO REMOVE ANY RESIDUAL    *   DOC FILE
//*            REFERENCES TO PREVIOUS VERSIONS OF THE PDS COMMAND.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 296 WHICH CONTAINS VARIOUS TSO        *   DOC FILE
//*            COMMANDS THAT CAN EITHER BE USED STANDALONE OR       *   DOC FILE
//*            WHICH CAN BE CALLED BY THE PDS 8.4 COMMAND.          *   DOC FILE
//*            REMOVED OLD SOURCE FOR HEL (FULLSCREEN TSO HELP).    *   DOC FILE
//*            HEL NOW IS AN ALIAS FOR REVIEW (FULLSCREEN           *   DOC FILE
//*            BROWSER) AND CAN BE FOUND ON FILE 134.               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-349 SECTION                                          *   DOC FILE
//*  V-349  CHANGES FOR VERSION 349 SEP 02, 1993                    *   DOC FILE
//*        01  ADDITION OF FILE 079 FROM BILL SMITH OF CHARLES      *   DOC FILE
//*            SCHWAB IN SAN FRANCISCO, CALIFORNIA.  THIS IS        *   DOC FILE
//*            A COLLECTION OF TOOLS FEATURING A COMPLETE AND       *   DOC FILE
//*            ROBUST DCF SCRIPT/VS ISPF INTERFACE AND MANY OTHER   *   DOC FILE
//*            THINGS USEFUL TO A TSO USER.                         *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-348 SECTION                                          *   DOC FILE
//*  V-348  CHANGES FOR VERSION 348 AUG 12, 1993                    *   DOC FILE
//*        01  UPDATE TO FILE 071 WHICH LISTS DOCUMENTATION FROM    *   DOC FILE
//*            OTHER TAPES.  THIS UPDATE REFLECTS THE 9302 VERSION  *   DOC FILE
//*            OF THE NASPA VIP MVS TAPE.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 120 FROM SAM GOLOB, TO ADD A SUBJECT  *   DOC FILE
//*            INDEX TO THIS FILE OF HIS "TECHNICAL SUPPORT"        *   DOC FILE
//*            MAGAZINE COLUMNS ENTITLED: "MVS TOOLS AND TRICKS     *   DOC FILE
//*            OF THE TRADE".  THERE WERE ALSO A FEW CORRECTIONS.   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-347 SECTION                                          *   DOC FILE
//*  V-347  CHANGES FOR VERSION 347 AUG 02, 1993                    *   DOC FILE
//*        01  ADDITION OF FILE 120 FROM SAM GOLOB WITH PERMISSION  *   DOC FILE
//*            FROM NASPA.  THIS FILE CONSISTS OF OVER FIVE YEARS'  *   DOC FILE
//*            REPRINTS OF SAM'S COLUMN:  "MVS TOOLS AND TRICKS     *   DOC FILE
//*            OF THE TRADE" WHICH WERE PUBLISHED IN "TECHNICAL     *   DOC FILE
//*            SUPPORT" OR IN ITS SUCCESSOR JOURNALS.  THESE        *   DOC FILE
//*            ARTICLES ARE SAM'S ORIGINAL SUBMISSIONS BEFORE       *   DOC FILE
//*            THEY WERE EDITED OR SHORTENED BY THE MAGAZINE'S      *   DOC FILE
//*            EDITORS BECAUSE OF SPACE CONSIDERATIONS.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 035 TO INCLUDE RON TANSKY'S           *   DOC FILE
//*            MODIFIED VERSION OF TAPEMAP.  THE OLD TAPEMAP        *   DOC FILE
//*            MODULE IS BEING KEPT AS TAPEMAPO.                    *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-346 SECTION                                          *   DOC FILE
//*  V-346  CHANGES FOR VERSION 346 JUL 22, 1993                    *   DOC FILE
//*        00  UPDATE TO VERSION STATISTICS IN FILE 001 (THIS       *   DOC FILE
//*            FILE) TO ADD BYTE COUNTS AND FOOTAGES FOR ALL        *   DOC FILE
//*            THE VERSIONS I'VE DONE (VERSION 322 TO CURRENT).     *   DOC FILE
//*            NOT NECESSARY, BUT IT IS A NICE TOUCH TO SHOW        *   DOC FILE
//*            THE RELATIVE SIZES OF THE VARIOUS VERSIONS.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  UPDATE TO FILE 035, THE LOAD MODULE LIBRARY, TO      *   DOC FILE
//*            INCLUDE BLKDISK AND ITS NEW ALIASES.  9345 DISK      *   DOC FILE
//*            DEVICE CALCULATIONS ARE NOW SUPPORTED.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 071 TO INCLUDE DOCUMENTATION FOR      *   DOC FILE
//*            THE JES2 SHARE TAPE, VERSION 95.  JACK SCHUDEL       *   DOC FILE
//*            (SEE ADDRESS ABOVE) NOW IS IN CHARGE OF THIS TAPE.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 104 WHICH IS JRP (JES2 REMOTE         *   DOC FILE
//*            PRINTERS) FROM RON TANSKY OF WEBCRAFT IN CHALFONT,   *   DOC FILE
//*            PENNSYLVANIA.  THIS IS AN UPDATE TO MODULE JRP300    *   DOC FILE
//*            TO FIX SOME PROBLEMS.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 296 FROM BRUCE LELAND OF SERENA       *   DOC FILE
//*            INTERNATIONAL IN BURLINGAME, CALIFORNIA.  THIS       *   DOC FILE
//*            INCLUDES AN ENHANCEMENT TO BLKDISK SO IT CAN         *   DOC FILE
//*            DO CALCULATIONS FOR MODEL 9345 DISK PACKS, WITH      *   DOC FILE
//*            A NEW ALIAS OF BLK9345.  ALSO THERE IS AN UPDATE TO  *   DOC FILE
//*            THE "COMPARE" TSO COMMAND.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  UPDATE TO FILE 299 WHICH IS TAPEMAP, FROM RON        *   DOC FILE
//*            TANSKY OF WEBCRAFT IN CHALFONT, PA.  THIS VERSION    *   DOC FILE
//*            ADDS SUPPORT FOR DOS/VSE SL TAPES.  THERE ARE ALSO   *   DOC FILE
//*            SOME OTHER IMPROVEMENTS, SUCH AS ANOTHER BASE REG... *   DOC FILE
//*            SEE HIS NOTES IN THE CODE.  THE OLD VERSION IS       *   DOC FILE
//*            INCLUDED TOO, BECAUSE TAPEMAP IS HARD TO TEST FOR    *   DOC FILE
//*            ALL POSSIBLE CASES.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  DELETION OF FILE 158 WHICH IS JRP.  THIS CODE IS     *   DOC FILE
//*            DUPLICATED IN FILE 104.                              *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-345 SECTION                                          *   DOC FILE
//*  V-345  CHANGES FOR VERSION 345 JUL 02, 1993                    *   DOC FILE
//*        01  UPDATE TO FILE 035 TO INCLUDE A LOAD MODULE FOR THE  *   DOC FILE
//*            NEW VERSION OF OFFLOAD FROM GREG PRICE, WHOSE SOURCE *   DOC FILE
//*            CODE, AS MEMBER OFFLOADW, IS ON FILE 093.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 071 WHICH CONTAINS DOCUMENTATION      *   DOC FILE
//*            PERTAINING TO OTHER PUBLIC DOMAIN, OR "NEAR" PUBLIC  *   DOC FILE
//*            DOMAIN TAPES.  INFORMATION CONCERNING THE LOS        *   DOC FILE
//*            ANGELES MVS USERS GROUP TAPE, WHICH IS AT LEVEL 72,  *   DOC FILE
//*            HAS BEEN INCLUDED.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 093 WHICH CONTAINS PROGRAMS THAT      *   DOC FILE
//*            SEQUENTIALIZE A PDS A-LA IEBUPDTE, BUT FOR LRECL     *   DOC FILE
//*            (POSSIBLY) DIFFERENT FROM 80.  THIS UPDATE IS FROM   *   DOC FILE
//*            GREG PRICE OF MELBOURNE, AUSTRALIA WHO HAS ENHANCED  *   DOC FILE
//*            THE OFFLOADW (OFFLOAD) PROGRAM TO HANDLE LRECLS OF   *   DOC FILE
//*            1 TO 256 AUTOMATICALLY, AS THE PDSLOADW (PDSLOAD)    *   DOC FILE
//*            PROGRAM NOW DOES.  (GREG DID THAT ONE PREVIOUSLY.)   *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 134 FROM GREG PRICE OF FERNTREE       *   DOC FILE
//*            COMPUTER SERVICES IN MELBOURNE, AUSTRALIA TO         *   DOC FILE
//*            CONTAIN THE ELEVENTH SHIPMENT OF HIS LARGE           *   DOC FILE
//*            COLLECTION OF SOFTWARE UTILITIES.  THIS IS HIS       *   DOC FILE
//*            SOURCE CODE LIBRARY.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  UPDATE TO FILE 135 FROM GREG PRICE OF FERNTREE       *   DOC FILE
//*            COMPUTER SERVICES IN MELBOURNE, AUSTRALIA TO         *   DOC FILE
//*            CONTAIN THE ELEVENTH SHIPMENT OF HIS LARGE           *   DOC FILE
//*            COLLECTION OF SOFTWARE UTILITIES.  THIS IS HIS       *   DOC FILE
//*            LOAD LIBRARY.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  ADDITION OF FILE 196 WHICH IS A DYNAMIC JES2 EXIT    *   DOC FILE
//*            LOADER FOR JES2 VERSION 4.X.  THIS PROGRAM IS        *   DOC FILE
//*            EXECUTED FROM THE SYSTEM CONSOLE USING THE $LOAD     *   DOC FILE
//*            COMMAND, AND WILL DYNAMICALLY REPLACE THE CURRENTLY  *   DOC FILE
//*            RUNNING COPY OF A JES2 EXIT WHICH IS LOADED INTO     *   DOC FILE
//*            THE JES2 ADDRESS SPACE.  LPA AND CSA LOADED EXITS    *   DOC FILE
//*            ARE NOT CURRENTLY SUPPORTED.                         *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-344 SECTION                                          *   DOC FILE
//*  V-344  CHANGES FOR VERSION 344 JUN 15, 1993                    *   DOC FILE
//*        01  UPDATE TO FILE 071 TO INCLUDE DOCUMENTATION FOR      *   DOC FILE
//*            THE NASPA VIP MVS TAPE.  THE INDEX FOR THIS TAPE     *   DOC FILE
//*            IS NOW AT THE 9301 LEVEL.                            *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-343 SECTION                                          *   DOC FILE
//*  V-343  CHANGES FOR VERSION 343 JUN 11, 1993                    *   DOC FILE
//*        01  UPDATE TO FILE 071 TO INCLUDE DOCUMENTATION FOR      *   DOC FILE
//*            THE NASPA VIP VM/VSE TAPE.  (NOW AT THE 9301 LEVEL)  *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 135 TO INCLUDE NEW LOAD MODULES       *   DOC FILE
//*            FOR SHOWMVS AND BR FROM FILE 183.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 172 FROM DAVID CARTWRIGHT OF SPRECHER *   DOC FILE
//*            ENERGIE IN OBERENTFELDEN, SWITZERLAND.  DAVE HAS     *   DOC FILE
//*            MOVED TO ENGLAND AND IS SUPPORTING HIS SITE REMOTELY *   DOC FILE
//*            VIA PC.  AH, TECHNOLOGY.  DAVE'S NEW ADDRESS IS:     *   DOC FILE
//*                                                                 *   DOC FILE
//*          (COMPANY ADDRESS)                                      *   DOC FILE
//*                                        DAVID CARTWRIGHT         *   DOC FILE
//*             SPRECHER ENERGIE AG        103 DARNICK ROAD         *   DOC FILE
//*             CH-5036 OBERENTFELDEN      SUTTON COLDFIELD,        *   DOC FILE
//*             SWITZERLAND                WEST MIDLANDS B73 6PF    *   DOC FILE
//*             TEL.  064/45 33 88         ENGLAND                  *   DOC FILE
//*             FAX   064/45 33 71         TEL.  44-21-355-3190     *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 183 FROM GILBERT SAINT-FLOUR OF       *   DOC FILE
//*            AMS IN SAN FRANCISCO.  THIS STUFF IS ALWAYS          *   DOC FILE
//*            GOOD....  SHOWMVS HAS BEEN UPDATED MORE.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  ADDITION OF FILE 193 FROM STEINAR AASLAND OF         *   DOC FILE
//*            KVAERNER ENGINEERING IN LYSAKER, NORWAY.  THIS       *   DOC FILE
//*            FILE CONTAINS A TAPE COPYING PROGRAM CALLED TCOPY.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  ADDITION OF FILE 194 WHICH CONTAINS A SET OF CUT     *   DOC FILE
//*            AND PASTE MACROS FROM JIM MARSHALL OF THE U.S.       *   DOC FILE
//*            TREASURY DEPARTMENT IN HYATTSVILLE, MARYLAND.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  ADDITION OF FILE 195 FROM ELI DUTTMAN OF EDUTCO      *   DOC FILE
//*            IN FOREST HILLS, NEW YORK.  THIS IS A SMALL          *   DOC FILE
//*            COLLECTION OF SIMPLE AND CLEVER CLISTS WHICH         *   DOC FILE
//*            TELLS PEOPLE THAT THEY CAN (AND SHOULD) DO THE       *   DOC FILE
//*            SAME THING.  VERY HANDY.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  UPDATE TO FILE 299 WHICH IS TAPEMAP.  A SMALL FIX    *   DOC FILE
//*            WAS ADDED TO RECOGNIZE IEBCOPY FORMAT TAPE FILES     *   DOC FILE
//*            WHICH ORIGINATED FROM A PDSE INSTEAD OF A PDS.       *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-342 SECTION                                          *   DOC FILE
//*  V-342  CHANGES FOR VERSION 342 MAR 25, 1993                    *   DOC FILE
//*        01  UPDATE TO FILE025 FROM PAT MURPHY OF TEXAS UTILITIES *   DOC FILE
//*            IN MESQUITE, TEXAS.  THIS ADDS A CONSOLE PROGRAM TO  *   DOC FILE
//*            DISPLAY THE OPERATOR CONSOLES AND MASTER TRACE TABLE *   DOC FILE
//*            ON TSO.  THIS PROGRAM HAS BEEN UPDATED TO WORK ON    *   DOC FILE
//*            MVS/ESA 4.2.2.  THERE ARE OTHER MATERIALS ON THIS    *   DOC FILE
//*            FILE WHICH HAVE NOT BEEN CHANGED AND THE 3.1.3       *   DOC FILE
//*            VERSION IS IN IEBUPDTE FORMAT IN MEMBER OLDVERS.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  ADDITION OF FILE 190 FROM BOB STYMA OF GTE           *   DOC FILE
//*            COMMUNICATIONS IN PHOENIX, ARIZONA.  THIS FILE       *   DOC FILE
//*            CONTAINS THE VSMDUMP UTILITY TO EXAMINE WHO HAS      *   DOC FILE
//*            POSSESSION OF COMMON STORAGE.  THIS UTILITY CAN      *   DOC FILE
//*            BE USED EITHER IN THE TSO ADDRESS SPACE OR IT CAN    *   DOC FILE
//*            BE DIRECTED AGAINST A DUMP IN IPCS.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  ADDITION OF FILE 191 FROM WALT SAPP OF THE CALIFOR-  *   DOC FILE
//*            NIA HEALTH AND WELFARE DATA CENTER IN SACRAMENTO,    *   DOC FILE
//*            CALIFORNIA.  THIS FILE CONTAINS CODE TO INSERT       *   DOC FILE
//*            JOB ACCOUNTING AND RELATED FIELDS INTO STARTED       *   DOC FILE
//*            TASKS UNDER JES2.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  ADDITION OF FILE 192 FROM MITCHELL MARX AND PENELOPE *   DOC FILE
//*            DAVIS OF MD-PALADIN INCORPORATED, IN NEW YORK CITY.  *   DOC FILE
//*            THIS FILE CONTAINS CODE FOR A GENERALIZED RECOVERY   *   DOC FILE
//*            ROUTINE THAT CAN BE USED EITHER AS AN ESTAEX ROUTINE *   DOC FILE
//*            OR AN FRR (FUNCTIONAL RECOVERY ROUTINE), OR AN ARR   *   DOC FILE
//*            (ASSOCIATED RECOVERY ROUTINE IN ACCESS REGISTER      *   DOC FILE
//*            MODE).  THIS CODE IS BASED ON SESSIONS PRESENTED     *   DOC FILE
//*            AT SHARE 79 AND SHARE 80.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  ADDITION OF FILE 391 FROM WILLIAM HECOX OF MARYLAND, *   DOC FILE
//*            FORMERLY OF NASA/GSFC.  THIS FILE CONTAINS A VERSION *   DOC FILE
//*            OF QUEUE FOR JES2 VERSION 4.2.0 IN JACK SCHUDEL'S    *   DOC FILE
//*            FORMAT (OR CLOSE TO IT).                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  I UPDATED MY ADDRESS WHEREVER APPLICABLE.  (SG)      *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-341 SECTION                                          *   DOC FILE
//*  V-341  CHANGES FOR VERSION 341 FEB 19, 1993                    *   DOC FILE
//*        01  UPDATE TO FILE 134 FROM GREG PRICE OF MELBOURNE      *   DOC FILE
//*            AUSTRALIA TO MERGE THE FUNCTIONS OF THE "HEL" TSO    *   DOC FILE
//*            COMMAND (FULL SCREEN TSO HELP) INTO THE "REVIEW"     *   DOC FILE
//*            COMMAND AS AN ALIAS NAME.  THIS IS THE TENTH         *   DOC FILE
//*            RESHIPMENT OF THIS FILE.  REVIEW IS AT LEVEL 16.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 135 FROM GREG PRICE OF MELBOURNE      *   DOC FILE
//*            AUSTRALIA TO BRING IT TO THE LEVEL OF HIS TENTH      *   DOC FILE
//*            RESHIPMENT.  THIS IS THE LOAD LIBRARY CORRESPONDING  *   DOC FILE
//*            TO HIS SOURCE CODE ON FILE 134.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 171 WHICH IS TAPEMAP, DITTO, AND      *   DOC FILE
//*            DISASM (A DISASSEMBLER).  THIS IS A RESHIPMENT       *   DOC FILE
//*            OF THE COLLECTION.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 183 FROM GILBERT SAINT-FLOUR OF       *   DOC FILE
//*            AMS BASED IN SAN FRANCISCO.  THIS IS A               *   DOC FILE
//*            RESHIPMENT OF HIS UTILITIES.                         *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-340 SECTION                                          *   DOC FILE
//*  V-340  CHANGES FOR VERSION 340 FEB 15, 1993                    *   DOC FILE
//*        01  ADDITION OF FILE 069 FROM CARMINE CANNATELLO OF      *   DOC FILE
//*            NEW YORK CITY.  THIS FILE CONTAINS MACHINE-READABLE  *   DOC FILE
//*            COPY OF THE CODING EXAMPLES IN HIS EXCELLENT BOOK:   *   DOC FILE
//*            "ADVANCED ASSEMBLER LANGUAGE AND MVS INTERFACES".    *   DOC FILE
//*            THIS FILE WAS CREATED FROM THE OPTIONAL DISKETTE     *   DOC FILE
//*            THAT IS AVAILABLE TO ACCOMPANY THE BOOK.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 296 FROM BRUCE LELAND OF SERENA       *   DOC FILE
//*            IN BURLINGAME, CALIFORNIA TO ADD GREG PRICE'S        *   DOC FILE
//*            CHANGES TO COMPARE AND BLKDISK.  PLEASE BE AWARE     *   DOC FILE
//*            THAT A FEW PROGRAMS FORMERLY ON FILE 296 ARE NOW     *   DOC FILE
//*            ON FILE 134.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-339 SECTION                                          *   DOC FILE
//*  V-339  CHANGES FOR VERSION 339 JAN 28, 1993                    *   DOC FILE
//*        01  UPDATE TO FILE 035 (LOAD MODULE LIBRARY) TO INCLUDE  *   DOC FILE
//*            THE NEW VERSION OF THE COPYFILE PROGRAM WHOSE        *   DOC FILE
//*            SOURCE CODE IS ON FILE 316.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 183 FROM GILBERT SAINT-FLOUR TO       *   DOC FILE
//*            INCLUDE A NEW VERSION OF SHOWMVS AND SOME OTHER      *   DOC FILE
//*            PROGRAMS.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 184 FROM TOM BRYANT OF HARRIS TRUST   *   DOC FILE
//*            IN CHICAGO TO HIS IPCS SYSTEM FOR MVS.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 316 FROM JIM MARSHALL OF THE U.S.     *   DOC FILE
//*            TREASURY DEPARTMENT TO INCLUDE A CHANGE TO THE       *   DOC FILE
//*            COPYFILE PROGRAM FROM SAM GOLOB.  COPYFILE NOW HAS   *   DOC FILE
//*            A FUNCTION LIKE 'ALL', BUT TO LIMIT THE NUMBER OF    *   DOC FILE
//*            FILES COPIED.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-338 SECTION                                          *   DOC FILE
//*  V-338  CHANGES FOR VERSION 338 JAN 10, 1993                    *   DOC FILE
//*        01  UPDATE TO FILE 112 (VTOC) FROM BRUCE LELAND OF       *   DOC FILE
//*            SERENA IN BURLINGAME, CALIFORNIA TO CHANGE DSORG TO  *   DOC FILE
//*            "PE" FOR PDSE DATA SETS; FIXED A BUG IN VT0CPRNT TO  *   DOC FILE
//*            ALLOW UP TO 132 CHARACTERS IN AN OUTPUT LINE FROM    *   DOC FILE
//*            PDS AND UPDATED VTOCFORM WITH A MOD FROM TOM ROMANO. *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 134 FROM GREG PRICE OF PRYCROFT SIX   *   DOC FILE
//*            PTY IN MELBOURNE, AUSTRALIA THAT WAS SUGGESTED BY    *   DOC FILE
//*            BRUCE LELAND OF SERENA.  THE REVIEW AND REVSMF       *   DOC FILE
//*            COMMANDS HAD A FEW LINES OF CODE THAT NEEDED THE     *   DOC FILE
//*            SLAC ASSEMBLER OR THE IBM HIGH LEVEL ASSEMBLER TO    *   DOC FILE
//*            PROCESS. THESE WERE FIXED FOR "VANILLA" ASSEMBLER H. *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 172 FROM DAVID CARTWRIGHT OF          *   DOC FILE
//*            SPRECHER ENERGIE IN OBERENTFELDEN, SWITZERLAND.      *   DOC FILE
//*            ANOTHER IMPROVEMENT TO HIS NICE COLLECTION OF        *   DOC FILE
//*            UTILITIES AND MODS.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 183 FROM GILBERT SAINT-FLOUR OF       *   DOC FILE
//*            AMS BASED IN SAN FRANCISCO.  THIS IS A CLEANUP       *   DOC FILE
//*            AND LATER VERSION OF HIS FILE OF UTILITIES.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  UPDATE TO FILE 296 FROM BRUCE LELAND OF SERENA IN    *   DOC FILE
//*            BURLINGAME, CALIFORNIA.  THIS IS THE COLLECTION OF   *   DOC FILE
//*            UTILITIES THAT GO TOGETHER WITH THE PDS COMMAND      *   DOC FILE
//*            FROM FILE 182.  SOME OF THESE UTILITIES HAVE BEEN    *   DOC FILE
//*            MOVED TO FILE 134, WHERE THERE ARE NEWER VERSIONS    *   DOC FILE
//*            THAT HAVE BEEN IMPROVED BY GREG PRICE.               *   DOC FILE
//*                                                                 *   DOC FILE
//*            THE FOLLOWING MEMBERS WERE UPDATED:                  *   DOC FILE
//*              BLKDISK - FOR BLK3390 WAS UPDATED AS PROGRAMMED    *   DOC FILE
//*                     BY DAVE GREEN OF KWASHA LIPTON TO CORRECT   *   DOC FILE
//*                     TWO MINOR ERRORS.                           *   DOC FILE
//*              COMPARE - WAS UPDATED AS FOLLOWS:                  *   DOC FILE
//*                   1.  CHANGED TO CHECK FOR MISSING MEMBERS TO   *   DOC FILE
//*                       AVOID S013 ABENDS.                        *   DOC FILE
//*                   2.  CHANGED TO DEFAULT THE NEW MEMBER NAME    *   DOC FILE
//*                       TO THE OLD MEMBER NAME WHEN THE NEW       *   DOC FILE
//*                       MEMBER NAME IS OMITTED. THIS ALLOWS YOU   *   DOC FILE
//*                       TO COMPARE A MEMBER AGAINST A BACKUP      *   DOC FILE
//*                       COPY.                                     *   DOC FILE
//*                   3.  INCORPORATED CHANGES MADE BY GREG PRICE   *   DOC FILE
//*                       TO THE HELP MEMBER AND COMPAREB.          *   DOC FILE
//*              DSAT - WAS MODIFIED TO CORRECTLY PROCESS DATA SETS *   DOC FILE
//*                     WITH MORE THAT 16 EXTENTS AND PDSE DATA     *   DOC FILE
//*                     SETS.  FOR A PDSE DATA SET, THE DSORG IS    *   DOC FILE
//*                     SET TO "PE".                                *   DOC FILE
//*              HEL -  INCORPORATED CHANGES MADE BY GREG PRICE.    *   DOC FILE
//*                     ONE ADDITIONAL CHANGE WAS MADE TO PREVENT   *   DOC FILE
//*                     ABEND S0C4 IF CONTROL IS PASSED TO IBM HELP.*   DOC FILE
//*                                                                 *   DOC FILE
//*        06  UPDATE TO FILE 402 FROM DAVID CARTWRIGHT OF          *   DOC FILE
//*            SPRECHER ENERGIE IN OBERENTFELDEN, SWITZERLAND.      *   DOC FILE
//*            THIS FILE CONTAINS HIS UPDATES TO TSSO V4.3 WHICH    *   DOC FILE
//*            IS FOUND ON FILE 401 OF THIS TAPE.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  ADDITION OF FILE 403 FROM GUY ALBERTELLI OF B.F.     *   DOC FILE
//*            GOODRICH IN BRECKSVILLE, OHIO.  THIS IS A VERSION    *   DOC FILE
//*            OF TSSO (RELEASE 4.3 PLUS) WHICH WILL RUN ON MVS/ESA *   DOC FILE
//*            VERSION 4.2 AND ON EARLIER VERSIONS OF MVS.  THIS    *   DOC FILE
//*            VERSION INTEGRATES DAVID CARTWRIGHT'S IMPROVEMENTS   *   DOC FILE
//*            FROM FILE 402 INTO BELLCORE'S VERSION ON FILE 401.   *   DOC FILE
//*            THIS FILE INCORPORATES DAVID CARTWRIGHT'S NEWEST     *   DOC FILE
//*            UPDATES WHICH ARE ON FILE 402 OF THIS VERSION 338.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  ADDITION OF FILE 185 FROM SAM GOLOB.  THIS FILE      *   DOC FILE
//*            CONTAINS SOURCE CODE FOR EXPANDED TSO AUTHORIZATION  *   DOC FILE
//*            TABLES, IKJTABLS.  CAN BE PUT INTO AN AUTHORIZED     *   DOC FILE
//*            STEPLIB SO YOU CAN AUTHORIZE WHATEVER TSO COMMANDS   *   DOC FILE
//*            YOU WANT TO RUN, WITHOUT PERMITTING THE OTHER        *   DOC FILE
//*            PEOPLE TO DO THE SAME THING.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  ADDITION OF FILE 186 FROM SAM GOLOB.  THIS FILE      *   DOC FILE
//*            CONTAINS THE IKJTABLS LOAD MODULE AND ALL ITS        *   DOC FILE
//*            ALIASES, AS GREATLY EXPANDED TO INCLUDE A WHOLE GOB  *   DOC FILE
//*            OF AUTHORIZED PROGRAMS.  FOR TSO/E RELEASE 2 IT'S    *   DOC FILE
//*            READY TO USE.  FOR OTHERS, IT CAN BE ADAPTED.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  UPDATE TO FILE 071 WHICH IS DOCUMENTATION FOR OTHER  *   DOC FILE
//*            PUBLIC TAPES.  THE NASPA VIP MVS TAPE DOCUMENTATAION *   DOC FILE
//*            WAS UPDATED TO SHOW LEVEL 9204.  ALSO, SOME INFO     *   DOC FILE
//*            ABOUT THE CONTENTS OF THE NASPA VIP VM/VSE TAPE      *   DOC FILE
//*            HAS BEEN INCLUDED.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  ADDITION OF FILE 059 FROM KEN TOMIAK OF THE          *   DOC FILE
//*            COMPUTER AND DATA COMMUNICATIONS SERVICES AGENCY     *   DOC FILE
//*            (CDCSA) OF NEW YORK CITY.  THIS FILE CONTAINS A      *   DOC FILE
//*            NEAT COMBINATION OF CLISTS AND ASSEMBLER PROGRAMS    *   DOC FILE
//*            TO DISPLAY LAST IPL INFORMATION ON AN ISPF PANEL.    *   DOC FILE
//*            I ALSO ADDED A DISPLAY PANEL CALLED IDPANEL WHICH    *   DOC FILE
//*            IS MEANT TO BE INVOKED BY AN ISPF COMMAND TABLE      *   DOC FILE
//*            ENTRY AND WHICH SHOWS SOME USEFUL INFORMATION ABOUT  *   DOC FILE
//*            YOUR CURRENT ISPF SESSION.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  UPDATE TO FILE 174 WHICH IS TAPECOPY FROM ARON       *   DOC FILE
//*            EISENPRESS OF THE CITY UNIVERSITY OF NEW YORK.       *   DOC FILE
//*            THIS IS A SMALL UPDATE FROM SAM GOLOB TO ALLOW       *   DOC FILE
//*            THIS PROGRAM TO READ TAPES ON A 3490 IDRC DEVICE.    *   DOC FILE
//*            THE UPDATE ALSO WORKS FOR 3490E DRIVES.              *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-337 SECTION                                          *   DOC FILE
//*  V-337  CHANGES FOR VERSION 337 OCT 28, 1992                    *   DOC FILE
//*        01  UPDATE TO FILE 035 TO REFLECT MORE RECENT VERSIONS   *   DOC FILE
//*            OF SOME LOAD MODULES, NOTABLY REVIEW AND PDSLOAD.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 083 FROM GUY ALBERTELLI OF B.F.       *   DOC FILE
//*            GOODRICH S.P.&C. DIVISION IN BRECKSVILLE, OHIO.      *   DOC FILE
//*            THIS IS A MODERNIZED VERSION OF IEHMAP WHICH USES    *   DOC FILE
//*            CVAF, KNOWS ABOUT 3390'S, AND IS FAST.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 093 TO INCLUDE A VERSION OF PDSLOADW  *   DOC FILE
//*            FROM GREG PRICE OF MELBOURNE, AUSTRALIA.  THIS       *   DOC FILE
//*            VERSION HANDLES INPUT RECORDS OF LRECL 1 THRU 256    *   DOC FILE
//*            WITHOUT CONDITIONAL ASSEMBLY.  PLEASE NOTE THAT      *   DOC FILE
//*            GREG PRICE'S VERSION OF "REVIEW" ON FILE 134 CAN     *   DOC FILE
//*            HANDLE THE OFFLOADS IF:  YOU ALLOCATE F(SYSUT2)      *   DOC FILE
//*            TO THE OUTPUT DATASET, AND YOU REVIEW A PDS TO GET   *   DOC FILE
//*            THE MEMBER LIST, AND YOU ENTER "=OFFLOAD" IN THE     *   DOC FILE
//*            COMMAND AREA OF THE MEMBER LIST.  "LISTPDS" ON FILE  *   DOC FILE
//*            316 CAN ALSO DO THE OFFLOADS IF YOU USE:             *   DOC FILE
//*            PARM='UPDTE(><),SPF,NOLIST,DECK,NOSEL'.  LISTPDS     *   DOC FILE
//*            ONLY WORKS FOR LRECL = 80, BUT REVIEW WILL WORK      *   DOC FILE
//*            FOR ANY LRECL.  OFFLOADW ON THIS FILE WILL DO THE    *   DOC FILE
//*            JOB ALSO.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  CHANGE TO FILE 118 TO LIST MY CURRENT WORK PHONE     *   DOC FILE
//*            NUMBER WHERE I CAN BE REACHED DURING THE DAY.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  UPDATE TO FILE 134 FROM GREG PRICE OF MELBOURNE,     *   DOC FILE
//*            AUSTRALIA.  THIS IS A NEW LEVEL OF HIS SOURCE        *   DOC FILE
//*            PROGRAMS (9TH SHIPMENT).                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  UPDATE TO FILE 135 FROM GREG PRICE OF MELBOURNE,     *   DOC FILE
//*            AUSTRALIA.  THIS IS A NEW LEVEL OF HIS LOAD MODULES. *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  UPDATE TO FILE 147 TO CORRECT A MINOR ASSEMBLY       *   DOC FILE
//*            PROBLEM IN THE ARCHIVER (STILL RELEASE 5).           *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  UPDATE TO FILE 166 FROM VINH VU OF FRITO LAY IN      *   DOC FILE
//*            PLANO, TEXAS.  THIS IS A COLLECTION OF SOME          *   DOC FILE
//*            UTILITIES AND USEFUL ROUTINES.  VINH NOW WORKS       *   DOC FILE
//*            FOR NEIMAN MARCUS IN IRVING, TEXAS.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  UPDATE TO FILE 178 FROM NEAL KOSTANSKI OF ROSS       *   DOC FILE
//*            LABORATORIES IN COLUMBUS OHIO.  THIS FILE CONTAINS   *   DOC FILE
//*            HIS IPCS TOOLS TO LOOK AT IDMS DUMPS.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  UPDATE TO FILE 183 FROM GILBERT SAINT-FLOUR OF       *   DOC FILE
//*            AMS.  THIS INCLUDES CHANGES TO SHOWMVS AND TO        *   DOC FILE
//*            SOME OTHERS OF HIS PROGRAMS.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  ADDITION OF FILE 184 FROM TOM BRYANT OF HARRIS       *   DOC FILE
//*            TRUST BANK IN CHICAGO, ILLINOIS.  THIS IS A          *   DOC FILE
//*            COLLECTION OF CLISTS AND REXX EXECS THAT MAKE IT     *   DOC FILE
//*            EASIER TO USE IPCS UNDER MVS/ESA.  THIS FILE MAY     *   DOC FILE
//*            EVENTUALLY INCLUDE A 3 PART ARTICLE BY TOM, BUT      *   DOC FILE
//*            THAT WILL HAVE TO WAIT UNTIL AFTER PUBLICATION.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  UPDATE TO FILE 400 WHICH IS DYNAMASK FROM STEVE      *   DOC FILE
//*            SMITH.  THE MVS/ESA RELEASE 4.2 VERSION CALLED       *   DOC FILE
//*            DYNAMSK4 NEEDED A MINOR CHANGE.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  ADDITION OF FILE 402 FROM DAVID CARTWRIGHT OF        *   DOC FILE
//*            SPRECHER ENERGIE IN OBERENTFELDEN, SWITZERLAND.      *   DOC FILE
//*            THESE ARE MODIFICATIONS TO TSSO 4.3 FROM FILE 401    *   DOC FILE
//*            TO ALLOW TSSO TO REACT TO MULTI-LINE WTO'S. "NOW     *   DOC FILE
//*            YOU CAN AUTOMATE YOUR NETWORK."                      *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-336 SECTION                                          *   DOC FILE
//*  V-336  CHANGES FOR VERSION 336 SEP 10, 1992                    *   DOC FILE
//*        00  MOST MVS INSTALLATIONS HAVE ACCESS TO TAPE           *   DOC FILE
//*            CARTRIDGES NOWADAYS.  BUT THOSE THAT STILL NEED      *   DOC FILE
//*            REELS ARE BEING ACCOMMODATED AS WELL BY THIS TAPE.   *   DOC FILE
//*            HOWEVER, THE CONTENTS OF THIS TAPE COME CLOSE TO     *   DOC FILE
//*            OVERFLOWING A 2400 FOOT REEL AT 6250 BPI.            *   DOC FILE
//*                                                                 *   DOC FILE
//*            THAT IS WHY WE ARE STARTING TO DISTRIBUTE THE END    *   DOC FILE
//*            OF THIS TAPE ON A SHORT SECOND REEL, FOR THOSE       *   DOC FILE
//*            WHO NEED THIS SERVICE.  FOR THE REST OF US, A 3480   *   DOC FILE
//*            NON-IDRC CARTRIDGE WILL STILL COMFORTABLY HOLD THE   *   DOC FILE
//*            CONTENTS OF THIS TAPE, AND ONE CARTRIDGE WILL BE     *   DOC FILE
//*            ENOUGH.                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*            FILE 004 WILL CONTAIN JCL TO LOAD THE SECOND TAPE    *   DOC FILE
//*            TO DISK FILES.  THE CURRENT FILES 004 AND 005 ARE    *   DOC FILE
//*            BEING MOVED TO FILES 042 AND 043.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*            FILE 003 WILL BE CHANGED TO INDICATE A MARKER        *   DOC FILE
//*            WHERE THE SECOND TAPE WILL BEGIN.  CARTRIDGE USERS   *   DOC FILE
//*            WILL BE ABLE TO USE THE FILE 003 JCL AS BEFORE.      *   DOC FILE
//*                                                                 *   DOC FILE
//*  >>>>>> -  NOT EVERY DISTRIBUTOR OF THIS TAPE WILL USE THIS     *   DOC FILE
//*   >>>>>>-  SECOND REEL FORMAT.  SOME WILL JUST OVERFLOW TO A    *   DOC FILE
//*   >>>>>>-  SECOND TAPE VOLUME.  THEY WILL INFORM YOU HOW THEY   *   DOC FILE
//*  >>>>>> -  ARE HANDLING THE SECOND REEL IF IT IS NEEDED.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  ADDITION OF FILE 004 WHICH CONTAINS THE JCL TO LOAD  *   DOC FILE
//*            FILES IN A SECOND REEL OF THIS TAPE, THAT WILL BE    *   DOC FILE
//*            DISTRIBUTED TO SITES NOT HAVING 3480 CARTRIDGES.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  ADDITION OF FILE 042 WHICH WILL CONTAIN THE FORMER   *   DOC FILE
//*            CONTENTS OF FILE 004.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  ADDITION OF FILE 043 WHICH WILL CONTAIN THE FORMER   *   DOC FILE
//*            CONTENTS OF FILE 005.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  ADDITION OF FILE 019 WHICH CONTAINS A COLLECTION     *   DOC FILE
//*            OF UTILITIES FROM JOHN HOOPER OF FOOD LION INC.      *   DOC FILE
//*            IN SALISBURY, NORTH CAROLINA.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  UPDATE TO FILE 134 FROM GREG PRICE OF MELBOURNE,     *   DOC FILE
//*            AUSTRALIA, TO CONTAIN AN UPGRADED EDITION OF HIS     *   DOC FILE
//*            COLLECTION OF UTILITIES.  THIS IS RELEASE 9.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  UPDATE TO FILE 135 FROM GREG PRICE OF MELBOURNE,     *   DOC FILE
//*            AUSTRALIA, TO CONTAIN AN UPGRADED EDITION OF HIS     *   DOC FILE
//*            COLLECTION OF LOAD MODULES.  THIS IS RELEASE 9.      *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-335 SECTION                                          *   DOC FILE
//*  V-335  CHANGES FOR VERSION 335 AUG 28, 1992                    *   DOC FILE
//*        00  THERE WERE SOME PROBLEMS IN THE JCL TO LOAD THIS     *   DOC FILE
//*            TAPE DOWN.  FILE 003 WAS REVISED.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  FILE 441 WAS CLEANED UP FOR JCL RELOADING PROBLEMS.  *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-334 SECTION                                          *   DOC FILE
//*  V-334  CHANGES FOR VERSION 334 AUG 26, 1992                    *   DOC FILE
//*        01  ADDITION OF FILE 072 WHICH IS AN ISPF INTERFACE      *   DOC FILE
//*            TO THE PANEXEC VENDOR PRODUCT.  THIS FILE DOES NOT   *   DOC FILE
//*            CONTAIN ANY VENDOR MATERIAL, BUT IS A USER WRITTEN   *   DOC FILE
//*            INTERFACE.  THIS FILE IS FROM MORRIS KARLIN OF THE   *   DOC FILE
//*            HUMAN RESOURCES ADMINISTRATION OF NEW YORK CITY.     *   DOC FILE
//*            THIS FILE CONTAINS PANELS, SKELETONS, MESSAGES, AND  *   DOC FILE
//*            TABLES FOR THE INTERFACE.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  ADDITION OF FILE 073 FROM MORRIS KARLIN OF THE       *   DOC FILE
//*            HUMAN RESOURCES ADMINISTRATION OF NEW YORK CITY,     *   DOC FILE
//*            AND CONTAINS LOAD MODULES FOR THE PANEXEC ISPF       *   DOC FILE
//*            INTERFACE.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  ADDITION OF FILE 074 WHICH CONTAINS A COLLECTION     *   DOC FILE
//*            OF ISPF INTERFACE MACROS FROM THE NASPA MVS TAPE.    *   DOC FILE
//*            SOME OF THESE MACROS WERE MODIFIED BY MORRIS KARLIN. *   DOC FILE
//*            THESE MACROS ARE NECESSARY TO ASSEMBLE SOURCE        *   DOC FILE
//*            MODULES FOR THE PANEXEC ISPF INTERFACE.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  ADDITION OF FILE 075 FROM MORRIS KARLIN OF THE       *   DOC FILE
//*            HUMAN RESOURCES ADMINISTRATION OF NEW YORK CITY,     *   DOC FILE
//*            AND CONTAINS SOURCE MODULES FOR THE PANEXEC ISPF     *   DOC FILE
//*            INTERFACE.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  ADDITION OF FILE 076 FROM MORRIS KARLIN OF THE       *   DOC FILE
//*            HUMAN RESOURCES ADMINISTRATION OF NEW YORK CITY,     *   DOC FILE
//*            AND CONTAINS PANEXEC COMMAND PROCEDURES FOR THE      *   DOC FILE
//*            PANEXEC ISPF INTERFACE.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  UPDATE TO FILE 326 FROM RICK FOCHTMAN OF THE BOARD   *   DOC FILE
//*            OF TRADE CLEARING CORPORATION IN CHICAGO, ILLINOIS.  *   DOC FILE
//*            THIS IS A RE-LINKEDIT OF THE FREE FORTRAN G AND H    *   DOC FILE
//*            COMPILERS AND LIBRARY.  THIS WAS TESTED ON AN        *   DOC FILE
//*            MVS/XA 2.2.3 SYSTEM AND IS PROBABLY GOOD FOR ESA.    *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-333 SECTION                                          *   DOC FILE
//*  V-333  CHANGES FOR VERSION 333 AUG 16, 1992                    *   DOC FILE
//*        00  THIS TAPE NEARLY FILLS A 2400 FOOT REEL.  RATHER     *   DOC FILE
//*            THAN DELETE FILES THAT MAY BE USEFUL, I AM TRYING    *   DOC FILE
//*            TO ELIMINATE REDUNDANCIES.  THAT IS, SOME PROGRAMS   *   DOC FILE
//*            WHICH APPEAR TWO OR MORE TIMES IN VARIOUS FILES ON   *   DOC FILE
//*            THIS TAPE, ARE BEING ELIMINATED IN THEIR OLDER       *   DOC FILE
//*            VERSIONS.  I HOPE THIS ALLOWS US TO BRING AS MUCH    *   DOC FILE
//*            USEFUL MATERIAL TO THE PUBLIC AS POSSIBLE.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  UPDATE TO FILE 011 FROM MORRIS KARLIN OF THE HUMAN   *   DOC FILE
//*            RESOURCES ADMINISTRATION OF NEW YORK CITY, TO GET    *   DOC FILE
//*            THE MSG2USER PROGRAM TO WORK UNDER ESA.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  ADDITION OF FILE 020 WHICH IS A COLLECTION OF        *   DOC FILE
//*            VERY HANDY REXX EXECS THAT DO SOME VERY USEFUL       *   DOC FILE
//*            FUNCTIONS.  THIS FILE IS WORTH A GOOD LOOK, IF       *   DOC FILE
//*            YOU HAVE TSO/E REXX.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 066 FROM MORRIS KARLIN OF THE HUMAN   *   DOC FILE
//*            RESOURCES ADMINISTRATION OF NEW YORK CITY, TO FIX    *   DOC FILE
//*            THE LASTCLPA TSO COMMAND TO WORK FOR ESA AND FOR     *   DOC FILE
//*            3390 DISKS.  ALSO NOW INCLUDED IN THIS FILE ARE      *   DOC FILE
//*            USABLE COPIES OF THE IEZCTGPL AND IEZCTGFL MACROS.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 227 TO ADD A FEW MORE SVC'S (JUST     *   DOC FILE
//*            IN CASE YOU DIDN'T THINK YOU HAD ENOUGH OF THEM.)    *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  UPDATE TO FILE 300 FROM MORRIS KARLIN OF THE HUMAN   *   DOC FILE
//*            RESOURCES ADMINISTRATION OF NEW YORK CITY, TO ADD    *   DOC FILE
//*            A VERSION OF THE "UNITS" COMMAND THAT WORKS FOR      *   DOC FILE
//*            MVS/ESA.  THE OLD UNITS COMMAND IS KEPT AS MEMBER    *   DOC FILE
//*            "UNITSOLD".                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  UPDATE TO FILE 435 TO ELIMINATE PDS VERSION 8.2      *   DOC FILE
//*            MATERIALS.  PDS VERSION 8.4 IS BETTER, AND IT        *   DOC FILE
//*            APPEARS ON FILE 182 OF THIS TAPE.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  UPDATE TO FILE 436 TO ELIMINATE FULLSCREEN ZAP       *   DOC FILE
//*            MATERIALS.  THESE CAN BE FOUND IN A BETTER VERSION   *   DOC FILE
//*            ON FILE 134 OF THIS TAPE.  ALSO PDS VERSION 8.2.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  UPDATE TO FILE 437 TO ELIMINATE FULLSCREEN ZAP       *   DOC FILE
//*            MATERIALS.  THESE CAN BE FOUND IN A BETTER VERSION   *   DOC FILE
//*            ON FILE 134 OF THIS TAPE.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  UPDATE TO FILE 438 TO ELIMINATE REPETITIVE DOCUMEN-  *   DOC FILE
//*            TATION ON THE PDS PROGRAM, THAT CAN BE FOUND ON      *   DOC FILE
//*            FILE 182 OF THIS TAPE.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  UPDATE TO FILE 441 TO ELIMINATE PDS VERSION 8.2      *   DOC FILE
//*            PANELS.  PDS VERSION 8.4 IS ON FILE 182 OF THIS      *   DOC FILE
//*            TAPE, WITH ALL NECESSARY DOCUMENTATION, PANELS,      *   DOC FILE
//*            AND MESSAGES.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  UPDATE TO FILE 443 TO ELIMINATE PDS VERSION 8.2      *   DOC FILE
//*            MESSAGE MEMBERS.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  UPDATE TO FILE 452 TO REMOVE ALL MATERIALS PERTAIN-  *   DOC FILE
//*            ING TO TSSO VERSION 4.3.  THE SAME MATERIAL IS       *   DOC FILE
//*            FOUND IN ITS ENTIRETY, ON FILE 401 OF THIS TAPE.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  UPDATE TO FILE 360 FROM MORRIS KARLIN AND SAM GOLOB  *   DOC FILE
//*            TO FIX THE VOLS PROGRAM TO USE UCBSCAN AND TO        *   DOC FILE
//*            RECOGNIZE 3390 DISKS.                                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-332 SECTION                                          *   DOC FILE
//*  V-332  CHANGES FOR VERSION 332 AUG 02, 1992                    *   DOC FILE
//*        01  UPDATE TO FILE 172 FROM DAVID CARTWRIGHT OF          *   DOC FILE
//*            SPRECHER ENERGIE, A.G. IN OBERENTFELDEN,             *   DOC FILE
//*            SWITZERLAND.  THIS IS A VERY NICE COLLECTION TO      *   DOC FILE
//*            LOOK AT.  ESPECIALLY NOTE HIS VSAM OPTIMIZER         *   DOC FILE
//*            CALLED "CAVEAT".  BUT THERE'S A LOT MORE.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  ADDITION OF FILE 227 WHICH HAD BEEN MARKED AS        *   DOC FILE
//*            EMPTY, BUT REALLY WASN'T DELETED.  THIS FILE HAS     *   DOC FILE
//*            NICE AUTH CODE FROM THE CONNECTICUT BANK AND TRUST   *   DOC FILE
//*            COMPANY.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-331 SECTION                                          *   DOC FILE
//*  V-331  CHANGES FOR VERSION 331 JUL 17, 1992                    *   DOC FILE
//*        01  UPDATE TO FILE 299 TO FIX TWO PROBLEMS WITH          *   DOC FILE
//*            TAPEMAP.  ONE WAS THAT IEBCOPY FORMAT WAS NOT        *   DOC FILE
//*            RECOGNIZED FOR NL TAPES IF A DFP 3.2 IEBCOPY         *   DOC FILE
//*            CREATED THE TAPE.  HEADER WENT FROM 56 TO 60 BYTES   *   DOC FILE
//*            AFTER THE RDW.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 035 TO REPLACE THE COPY OF TAPEMAP    *   DOC FILE
//*            WITH THE NEW VERSION.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  SOME MINOR FIXING TO THE STATS ON FILE 001.          *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-330 SECTION                                          *   DOC FILE
//*  V-330  CHANGES FOR VERSION 330 JUL 15, 1992                    *   DOC FILE
//*        00  I'D LIKE TO THANK CECIL CHENG AND MIA AMENDOLAGINE   *   DOC FILE
//*            OF BROOKLYN COLLEGE FOR MUCH HELP.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  UPDATE TO FILE 217 FROM ALAN FIELD TO FIX AND        *   DOC FILE
//*            ENHANCE THE DISASSEMBLER.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 300 FROM JIM MARSHALL OF THE U.S.     *   DOC FILE
//*            TREASURY DEPARTMENT.  THIS IS HIS COLLECTION OF      *   DOC FILE
//*            TSO COMMANDS, UPDATED TO RELEASE 27.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 316 FROM JIM MARSHALL OF THE U.S.     *   DOC FILE
//*            TREASURY DEPARTMENT.  THIS IS HIS COLLECTION OF      *   DOC FILE
//*            TSO COMMANDS, UPDATED TO RELEASE 22.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 161 FROM JIM MARSHALL OF THE U.S.     *   DOC FILE
//*            TREASURY DEPARTMENT.  THIS IS HIS COLLECTION OF      *   DOC FILE
//*            TSO COMMANDS, UPDATED TO RELEASE 13.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  UPDATE TO FILE 134 FROM GREG PRICE OF PRYCROFT SIX   *   DOC FILE
//*            PTY IN MELBOURNE AUSTRALIA.  THIS IS SOURCE CODE     *   DOC FILE
//*            FOR HIS UTILITIES AND MODS COLLECTION.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  UPDATE TO FILE 135 FROM GREG PRICE OF PRYCROFT SIX   *   DOC FILE
//*            PTY IN MELBOURNE AUSTRALIA.  THIS IS HIS LOAD        *   DOC FILE
//*            MODULE LIBRARY.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  UPDATE TO FILE 171 WITH ENHANCEMENTS FOR DITTO,      *   DOC FILE
//*            TAPEMAP, AND THE DISASSEMBLER.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  ADDITION OF FILE 166 FROM VINH VU OF FRITO LAY       *   DOC FILE
//*            IN DALLAS, TEXAS.  THIS IS A COLLECTION OF HIS       *   DOC FILE
//*            GOODIES.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  ADDITION OF FILE 137 FROM STEVE KLEEVES OF MAKITA    *   DOC FILE
//*            IN LA MIRADA, CALIFORNIA.  THIS IS A REXX PROGRAM    *   DOC FILE
//*            AND PANEL UPDATE TO ADD EXTENSION TO ISPF 3.4        *   DOC FILE
//*            TO ALLOW LISTING OF VSAM DATASETS.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  UPDATE TO FILE 423 FROM JEFF BROIDO, TO FIX HIS      *   DOC FILE
//*            "LIST TSO ALLOCATIONS" PROGRAM CALLED "LAA" TO       *   DOC FILE
//*            WORK WITH SWA "ABOVE THE LINE".                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  ADDITION OF FILE 183 FROM GILBERT SAINT-FLOUR OF     *   DOC FILE
//*            AMS IN SAN FRANCISCO.  THIS IS AN INTERESTING        *   DOC FILE
//*            AND USEFUL COLLECTION OF UTILITIES.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  UPDATE TO FILE 035 TO INCLUDE THE LATEST VERSION     *   DOC FILE
//*            OF FULLSCREEN ZAP.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-329 SECTION                                          *   DOC FILE
//*  V-329  CHANGES FOR VERSION 329 MAR 30, 1992                    *   DOC FILE
//*        00  MANY THANKS TO THE PEOPLE AT BROOKLYN COLLEGE,       *   DOC FILE
//*            WITHOUT WHOSE HELP THIS QUICK UPDATE WOULD HAVE      *   DOC FILE
//*            BEEN IMPOSSIBLE.  I FORGOT TO MENTION STEVE LITTLE   *   DOC FILE
//*            IN THE LAST CHANGE SECTION.  ALSO, VERY SPECIAL      *   DOC FILE
//*            THANKS TO KARL LUM.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  ADDITION OF FILE 392 WHICH IS A VERSION OF QUEUE     *   DOC FILE
//*            FROM LEONARD WOREN OF THE UNIVERSITY OF SOUTHERN     *   DOC FILE
//*            CALIFORNIA.  THIS VERSION HAS CONDITIONAL ASSEMBLY   *   DOC FILE
//*            TO FIT ALL LEVELS OF JES2 THROUGH ESA VERSION 4.2.   *   DOC FILE
//*            THIS VERSION IS A BIT DIFFERENT LOOKING THAN THE     *   DOC FILE
//*            OTHER VERSIONS, BUT IF YOU TRY IT, I THINK YOU'LL    *   DOC FILE
//*            LIKE IT.  IT IS MORE ISPF-LIKE IN ITS SCREENS.       *   DOC FILE
//*            PLEASE READ MEMBER $$$INST IN ITS ENTIRETY WHEN      *   DOC FILE
//*            INSTALLING THIS VERSION OF QUEUE.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  ADDITION OF FILE 179 FROM LEONARD WOREN OF THE       *   DOC FILE
//*            UNIVERSITY OF SOUTHERN CALIFORNIA.  THIS FILE IS     *   DOC FILE
//*            HIS MACRO LIBRARY, WHICH IS NECESSARY FOR ASSEMBLY   *   DOC FILE
//*            OF ALL HIS PROGRAMS.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  ADDITION OF FILE 180 FROM LEONARD WOREN OF THE       *   DOC FILE
//*            UNIVERSITY OF SOUTHERN CALIFORNIA.  THIS FILE IS     *   DOC FILE
//*            A COLLECTION OF HIS TSO COMMANDS.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  ADDITION OF FILE 181 FROM LEONARD WOREN OF THE       *   DOC FILE
//*            UNIVERSITY OF SOUTHERN CALIFORNIA.  THIS FILE IS     *   DOC FILE
//*            A COLLECTION OF HIS MVS PROGRAMS.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  UPDATE TO FILE 400 WHICH IS DYNAMASK FROM STEVE      *   DOC FILE
//*            SMITH AT SECURITY PACIFIC BANK IN LOS ANGELES.       *   DOC FILE
//*            THE UPDATE INCLUDES A VERSION OF DYNAMASK THAT       *   DOC FILE
//*            WORKS FOR MVS/ESA V4.2.  DYNAMASK IS FAR EASIER      *   DOC FILE
//*            TO USE FOR UNIT NAME CHANGES, SUCH AS ADDING         *   DOC FILE
//*            AND REMOVING DEVICE ADDRESSES TO A GENERIC OR        *   DOC FILE
//*            ESOTERIC NAME, THAN IS IBM'S DYNAMIC RECONFIGU-      *   DOC FILE
//*            RATION AT THE MVS/ESA V4.2 LEVEL.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  UPDATE TO FILE 176 WHICH IS THE IBM ALGOL COMPILER   *   DOC FILE
//*            AND LIBRARY TO INCLUDE THE IEX-- COMPILER MODULES    *   DOC FILE
//*            THAT WERE MISSING.  THE IHI--- MODULES ARE FOR       *   DOC FILE
//*            THE EXECUTION LIBRARY.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  ADDITION OF FILE 177 FROM A WESTERN SOFTWARE HOUSE   *   DOC FILE
//*            WHICH WROTE XA CODE BUT WHICH, UNTIL RECENTLY,       *   DOC FILE
//*            ASSEMBLED THEIR CODE USING THE IFOX00 ASSEMBLER.     *   DOC FILE
//*            THE XA INSTRUCTIONS WERE SIMULATED BY SOME MACROS.   *   DOC FILE
//*            EXAMPLE MACROS FOR SOME XA INSTRUCTIONS ARE INCLUDED *   DOC FILE
//*            IN THIS FILE, TO SHOW PEOPLE HOW TO "EXTEND" THEIR   *   DOC FILE
//*            ASSEMBLER'S INSTRUCTION SET.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  ADDITION OF FILE 178 FROM NEAL KOSTANSKI OF ROSS     *   DOC FILE
//*            LABORATORIES IN OHIO.  THIS IS AN ISPF INTERFACE     *   DOC FILE
//*            TO IPCS.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  ADDITION OF FILE 071 WHICH IS DOCUMENTATION FILES    *   DOC FILE
//*            FOR OTHER MODS OR UTILITIES TAPES.  DOCUMENTATION    *   DOC FILE
//*            FOR THOSE TAPES WHICH WERE SCATTERED IN VARIOUS      *   DOC FILE
//*            FILES ARE NOW BEING PUT TOGETHER, SO PEOPLE WILL     *   DOC FILE
//*            NOT HAVE TO SEARCH ALL OVER.  AS A RESULT, FILES     *   DOC FILE
//*            059, 120, 121, 166, AND 314 ARE BEING DELETED.       *   DOC FILE
//*            ALSO, DOC FOR THE NASPA BEEM TAPE AND THE CICS       *   DOC FILE
//*            SHARE MODS TAPE HAVE BEEN ADDED.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  UPDATE TO FILE 261 WHICH IS THE CMD1 SUBSYSTEM       *   DOC FILE
//*            FROM GUY ALBERTELLI OF B.F. GOODRICH, TO ADD A       *   DOC FILE
//*            VERSION OF CMD1 THAT RUNS UNDER MVS/ESA V4.2,        *   DOC FILE
//*            TO THE OTHER VERSIONS OF CMD1.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  UPDATE TO FILE 264 FROM GUY ALBERTELLI OF B.F.       *   DOC FILE
//*            GOODRICH.  SEE MEMBER CALLED $$DOC264.  THESE        *   DOC FILE
//*            PROGRAMS ARE NOW RUNNING UNDER MVS/ESA V4.2.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  ADDITION OF FILE 265 FROM GUY ALBERTELLI OF B.F.     *   DOC FILE
//*            GOODRICH.  THIS FILE CONTAINS A USEFUL TSO LOGON     *   DOC FILE
//*            EXIT, WHICH RUNS UNDER MVS/ESA V4.2 AND ITS NEW      *   DOC FILE
//*            VERSION OF TSO.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  UPDATE TO FILE 112 WHICH IS THE "VTOC" TSO COMMAND,  *   DOC FILE
//*            FROM ART TANSKY OF SUNGARD IN PHILADELPHIA, PA.      *   DOC FILE
//*            TO INCORPORATE VARIOUS IMPROVEMENTS OF HIS.  THE     *   DOC FILE
//*            "OLD" VERSION OF THIS COMMAND WILL STILL BE PRESENT  *   DOC FILE
//*            IN THIS FILE, TO ACCOMMODATE SHOPS THAT HAVE USED    *   DOC FILE
//*            THE OUTPUTS FROM THIS COMMAND IN THEIR PRODUCTION    *   DOC FILE
//*            PROCESSING.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  FILE 003 OF THIS TAPE, WHICH IS THE JCL TO DROP      *   DOC FILE
//*            THE TAPE TO DISK, WAS CHANGED TO USE THE IEV90       *   DOC FILE
//*            ASSEMBLER INSTEAD OF IFOX00.  IF YOU STILL HAVE      *   DOC FILE
//*            IFOX00 ONLY, THERE ARE INSTRUCTIONS HOW TO CONVERT   *   DOC FILE
//*            THE JCL BACK.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-328 SECTION                                          *   DOC FILE
//*  V-328  CHANGES FOR VERSION 328 FEB 10, 1992                    *   DOC FILE
//*        00  I GIVE MY APOLOGIES FOR NOT MAKING AN UPDATE IN      *   DOC FILE
//*            THIS LONG WHILE.  MANY THANKS TO MIKE MURRAY, MARK   *   DOC FILE
//*            GOLD, HOWARD GIVNER, KARL LUM, AND PEGGY BERGAMASCO  *   DOC FILE
//*            OF BROOKLYN COLLEGE.  THANKS ALSO TO BRUCE BORDONARO,*   DOC FILE
//*            CHUCK GLASS, AND JEFF BROIDO AT PERSHING. ALSO       *   DOC FILE
//*            THANKS TO FRED HETZEL OF FIRST FIDELITY. THEY ALL    *   DOC FILE
//*            HELPED IN MAKING THIS UPDATE POSSIBLE.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  UPDATE TO FILE 134 FROM GREG PRICE OF PRYCROFT SIX   *   DOC FILE
//*            PTY IN MELBOURNE, AUSTRALIA.  THIS IS SOURCE CODE    *   DOC FILE
//*            FOR HIS VARIOUS UTILITIES AND OTHER PROGRAMS.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 135 FROM GREG PRICE OF PRYCROFT SIX   *   DOC FILE
//*            PTY IN MELBOURNE, AUSTRALIA.  THIS IS A LOAD LIBRARY *   DOC FILE
//*            CONTAINING HIS VARIOUS UTILITIES AND OTHER PROGRAMS. *   DOC FILE
//*            SOURCE FOR MOST OF THESE PROGRAMS IS CONTAINED IN    *   DOC FILE
//*            FILE 134, BUT A FEW ARE IN LOAD MODULE FORMAT ONLY.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  ADDITION OF FILE 172 FROM D.H. CARTWRIGHT OF         *   DOC FILE
//*            SPRECHER ENERGIE IN OBERENTFELDEN, SWITZERLAND.      *   DOC FILE
//*            THIS FILE CONTAINS SOME OF THEIR UTILITIES.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  ADDITION OF FILE 173 FROM TED BESTANI FROM THE SAN   *   DOC FILE
//*            FRANCISCO AREA IN CALIFORNIA.  THIS FILE CONTAINS    *   DOC FILE
//*            HIS SMPETOOL UTILITY.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  ADDITION OF FILE 174 FROM ARON EISENPRESS OF THE     *   DOC FILE
//*            CUNY COMPUTING CENTER IN NEW YORK.  THIS FILE        *   DOC FILE
//*            CONTAINS HIS TAPECOPY UTILITY WHICH HAS MULTIPLE     *   DOC FILE
//*            USES, AMONG WHICH IS ITS ABILITY TO CREATE AN SL     *   DOC FILE
//*            TAPE FROM AN NL TAPE.  I USED THIS UTILITY IN SOME   *   DOC FILE
//*            OF MY ORIGINAL WORK WHEN I TOOK OVER THE EDITING OF  *   DOC FILE
//*            THIS TAPE.  (I CREATED AN SL VERSION OF THE CBT      *   DOC FILE
//*            TAPE--IT WASN'T EASY--NEEDED A MOD TO UCC-1.)        *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  REPLACEMENT OF FILE 092 FROM LARRY WILLIAMS OF       *   DOC FILE
//*            KRAFT FOODS IN THE CHICAGO AREA.  THIS FILE CONTAINS *   DOC FILE
//*            THE PL/I F COMPILER AND LIBRARY, WITH MANY OF THE    *   DOC FILE
//*            MODULES RE-LINKEDITED SO THAT THEY DO NOT ABEND      *   DOC FILE
//*            (HOPEFULLY) ON AN XA OR ESA SYSTEM.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  UPDATE TO FILE 326 FROM LARRY WILLIAMS OF KRAFT      *   DOC FILE
//*            FOODS IN THE CHICAGO AREA.  THIS FILE CONTAINS       *   DOC FILE
//*            THE ADDITION OF SOME EXTRA SUBROUTINES ADDED TO      *   DOC FILE
//*            VANILLA FORTRAN H FROM VANILLA FORTRAN G.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  ADDITION OF FILE 175 FROM CLARK MORRIS OF PHILIPS    *   DOC FILE
//*            LIGHTING IN SOMERSET, NEW JERSEY.  THIS FILE         *   DOC FILE
//*            CONTAINS SOME OF THEIR USERMODS.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  UPDATE TO FILE 171 TO FIX AN INSTALL PROBLEM IN      *   DOC FILE
//*            DITTO.                                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  UPDATE TO FILE 171 TO ENHANCE THE DISASSEMBLER.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  UPDATE TO FILE 093 FROM ARTHUR TANSKY OF SUNGARD     *   DOC FILE
//*            IN PHILADELPHIA.  THIS IS AN ENHANCEMENT OF THE      *   DOC FILE
//*            UNUPDTE PROGRAM TO HANDLE VERY SHORT RECORD LENGTHS. *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  UPDATE OF FILE 271 FROM KEITH MOE OF AMDAHL, TO      *   DOC FILE
//*            BRING THE LEVEL OF DYNAMIC PROCLIB TO V3R2M4.  IF    *   DOC FILE
//*            YOU HAVE AN MVS/ESA V.4 SYSTEM, LOOK AT FILE 274.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  ADDITION OF FILE 274 FROM KEITH MOE OF AMDAHL, TO    *   DOC FILE
//*            INCLUDE DYNAMIC PROCLIB V4R1M1 FOR MVS/ESA SP4       *   DOC FILE
//*            SYSTEMS.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  UPDATE TO FILE 156 FROM KIM WESTERLING TO THE        *   DOC FILE
//*            PROGRAM PRODUCT CALLED IEBASAP.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  ADDITION OF FILE 176 WHICH IS THE OLD IBM ALGOL      *   DOC FILE
//*            COMPILER AND LIBRARY.                                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-327 SECTION                                          *   DOC FILE
//*  V-327  CHANGES FOR VERSION 327 MAY 16, 1991                    *   DOC FILE
//*        00  I DELETED THE JCL SECTION OF FILE 001 TO SAVE SPACE. *   DOC FILE
//*            MUCH THANKS TO FRED HETZEL, BRUCE BORDONARO, AND     *   DOC FILE
//*            CHUCK GLASS FOR THEIR INDISPENSABLE HELP.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  CHANGE TO FILE 134 FROM GREG PRICE OF PRYCROFT       *   DOC FILE
//*            SIX PTY LTD, OF MELBOURNE AUSTRALIA.  THIS IS HIS    *   DOC FILE
//*            SOURCE FILE.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  CHANGE TO FILE 135 FROM GREG PRICE OF PRYCROFT       *   DOC FILE
//*            SIX PTY LTD, OF MELBOURNE AUSTRALIA.  THIS IS HIS    *   DOC FILE
//*            LOAD LIBRARY.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  CHANGE TO FILE 217 FROM ROBERT STYMA OF GTE AND      *   DOC FILE
//*            ALAN FIELD OF SUPER VALU.  THIS IS AN UPGRADE TO THE *   DOC FILE
//*            DISASSEMBLER TO ADD NEW OPCODES, FIX A FEW BUGS,     *   DOC FILE
//*            AND DO SOME OTHER GOOD STUFF.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 270, WHICH IS THE FILE FROM THE       *   DOC FILE
//*            WASHINGTON STATE DATA PROCESSING CENTER IN OLYMPIA.  *   DOC FILE
//*            THIS UPDATE IS FROM HOWARD GLASTETTER TO REPLACE     *   DOC FILE
//*            HIS SOFTWARE, SMF74MOD, TO BE ABLE TO HANDLE MIXED   *   DOC FILE
//*            RELEASE-LEVEL RMF REPORTS FROM MULTIPLE CPU'S        *   DOC FILE
//*            WHICH SHARE THE SAME DASD.  THE REST OF FILE         *   DOC FILE
//*            270 IS THE SAME AS LAST VERSION.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  ADDITION OF FILE 167 FROM GEORGE RAMAS AND ROB       *   DOC FILE
//*            WUNDERLICH OF CATELLUS DEVELOPMENT CORPORATION       *   DOC FILE
//*            IN SAN FRANCISCO, CALIFORNIA.  THIS FILE CONTAINS    *   DOC FILE
//*            SOME OF THEIR UTILITIES.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  REPLACEMENT OF FILE 161 FROM JIM MARSHALL, WHO       *   DOC FILE
//*            NOW WORKS FOR THE DEPARTMENT OF THE TREASURY,        *   DOC FILE
//*            FINANCIAL MANAGEMENT SERVICE.  JIM HAS RETIRED       *   DOC FILE
//*            FROM THE U.S. AIR FORCE.  THIS IS RELEASE 12 OF      *   DOC FILE
//*            JIM'S ISPF PANELS COLLECTION.  JIM'S NEW ADDRESS:    *   DOC FILE
//*                                                                 *   DOC FILE
//*               JAMES D. MARSHALL  (CAPT USAF RETIRED)            *   DOC FILE
//*               DEPARTMENT OF THE TREASURY                        *   DOC FILE
//*               FINANCIAL MANAGEMENT SERVICE                      *   DOC FILE
//*               3700 EAST-WEST HIGHWAY - ROOM 400B                *   DOC FILE
//*               HYATTSVILLE, MD. 20782                            *   DOC FILE
//*               (202) 874-8353                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  REPLACEMENT OF FILE 300 FROM JIM MARSHALL, WHO       *   DOC FILE
//*            NOW WORKS FOR THE DEPARTMENT OF THE TREASURY,        *   DOC FILE
//*            FINANCIAL MANAGEMENT SERVICE.  JIM HAS RETIRED       *   DOC FILE
//*            FROM THE U.S. AIR FORCE.  THIS IS RELEASE 26         *   DOC FILE
//*            OF THE TSO COMMAND PROCESSORS COLLECTION.            *   DOC FILE
//*            PLEASE NOTE THAT THE IFOX00 ASSEMBLER MODIFICATION   *   DOC FILE
//*            CALLED $$MACROX HAS BEEN MOVED FROM FILE 300         *   DOC FILE
//*            TO FILE 316, BECAUSE IT IS MORE BATCH-ORIENTED       *   DOC FILE
//*            THAN TSO-ORIENTED.  THIS MODIFICATION ALLOWS THE     *   DOC FILE
//*            LISTING OF ALL MACRO NAMES AND LIBRARIES USED        *   DOC FILE
//*            BY AN ASSEMBLY.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  REPLACEMENT OF FILE 306 FROM JIM MARSHALL, WHO       *   DOC FILE
//*            NOW WORKS FOR THE DEPARTMENT OF THE TREASURY,        *   DOC FILE
//*            FINANCIAL MANAGEMENT SERVICE.  JIM HAS RETIRED       *   DOC FILE
//*            FROM THE U.S. AIR FORCE.  FILE 306 CONTAINS BILL     *   DOC FILE
//*            GODFREY'S ORIGINAL VERSION OF TSSO, WHICH ALLOWS     *   DOC FILE
//*            SOMEONE TO ENTER TSO COMMANDS FROM A SYSTEM CONSOLE. *   DOC FILE
//*            SEE FILE 401 FOR A THE BELLCORE VERSION OF TSSO,     *   DOC FILE
//*            WHICH IS MUCH MORE FULL-FUNCTION.  JIM HAS MADE      *   DOC FILE
//*            CHANGES TO THE STACK COMMAND THAT ARE WORTH          *   DOC FILE
//*            LOOKING AT.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  REPLACEMENT OF FILE 316 FROM JIM MARSHALL, WHO       *   DOC FILE
//*            NOW WORKS FOR THE DEPARTMENT OF THE TREASURY,        *   DOC FILE
//*            FINANCIAL MANAGEMENT SERVICE.  JIM HAS RETIRED       *   DOC FILE
//*            FROM THE U.S. AIR FORCE.  THIS IS RELEASE 21 OF      *   DOC FILE
//*            JIM'S COLLECTION OF BATCH PROGRAMS.  SEE THE         *   DOC FILE
//*            $$PROSE MEMBER FOR CHANGE DOCUMENTATION.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  ADDITION OF FILE 168 FROM BILL GODFREY OF PRC, INC.  *   DOC FILE
//*            WHICH CONTAINS MODIFICATIONS OF SOME PROGRAMS THAT   *   DOC FILE
//*            ARE ON FILES 300 AND 316, ALONG WITH SOME NEW        *   DOC FILE
//*            THINGS.  I CREATED A SEPARATE FILE FOR BILL'S        *   DOC FILE
//*            STUFF ALONE.  IN THE FUTURE THIS MATERIAL MAY GET    *   DOC FILE
//*            MERGED WITH FILES 300 AND 316.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  ADDITION OF FILE 169 FROM KEVIN WILLIAMS OF          *   DOC FILE
//*            MEIJER, INCORPORATED IN GRAND RAPIDS, MICHIGAN.      *   DOC FILE
//*            INCLUDED ARE AN SMP/E RELEASE 5 PROBLEM REPORTER     *   DOC FILE
//*            IN ASSEMBLER LANGUAGE, AND OTHER UTILITIES.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  ADDITION OF FILE 170, WHICH IS A PROGRAM TO DUMP     *   DOC FILE
//*            ALLOCATED CSA TO SOME OUTPUT FILE, FOR LATER         *   DOC FILE
//*            SCANNING.  SHOULD WORK FOR ESA.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  ADDITION OF FILE 171, WHICH CONTAINS A PUBLIC-       *   DOC FILE
//*            DOMAIN DITTO PROGRAM WRITTEN FROM SCRATCH, A         *   DOC FILE
//*            REWORKED DISASSEMBLER THAT HAS SOME ADVANTAGES       *   DOC FILE
//*            OVER THE ONE ON FILE 217, AND A VERSION OF TAPEMAP   *   DOC FILE
//*            WHICH IS BROKEN INTO CSECTS (NOT LIKE THE ONE        *   DOC FILE
//*            ON FILE 299 WHICH IS GOOD, BUT SPAGHETTI-CODED.)     *   DOC FILE
//*            THIS FILE IS WELL WORTH LOOKING INTO.  THIS DITTO    *   DOC FILE
//*            AND TAPEMAP WORK EVEN IF YOU DON'T HAVE BLP          *   DOC FILE
//*            PRIVILEGE.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  UPDATE TO FILE 035 TO REFLECT THE NEWER LOAD         *   DOC FILE
//*            MODULES FOR THE "REVIEW" PROGRAM.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  UPDATE TO FILE400, TO FIX A PROBLEM IN DYNAMASK      *   DOC FILE
//*            ENCOUNTERED WHEN DEALING WITH IDRC CART DRIVES.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  UPDATE TO FILE401, TO FIX AN ASSEMBLY ERROR IN       *   DOC FILE
//*            MODULE TSSOINI5 ON ESA SYSTEMS.  SEE THE NOTE        *   DOC FILE
//*            IN THE CODE.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-326 SECTION                                          *   DOC FILE
//*  V-326  CHANGES FOR VERSION 326 MAR 25, 1991                    *   DOC FILE
//*        00  SAM GOLOB IS NO LONGER AT NEWSWEEK.  SEE EDITOR      *   DOC FILE
//*            CONTACT INFORMATION FOR HIS CURRENT ADDRESS.         *   DOC FILE
//*            THANKS TO ERIC JENSEN, STEVE PETRILLO, AND FRED      *   DOC FILE
//*            HETZEL, FOR THEIR HELP AND MORAL SUPPORT.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  ADDITION OF FILE 165 FROM WHICH IS THE ESG SECURITY  *   DOC FILE
//*            SYSTEM FROM CRAIG YASUNA OF THE ENTERPRISE SYSTEMS   *   DOC FILE
//*            GROUP IN NEW JERSEY.  ESG SECURITY IS A SAF-BASED    *   DOC FILE
//*            SECURITY SYSTEM AT THE LEVEL OF RACF 1.7.  THIS IS   *   DOC FILE
//*            A FULLY IMPLEMENTABLE AND DOCUMENTED SECURITY        *   DOC FILE
//*            SYSTEM THAT HAS BEEN OPERATIONAL AT A MEDIUM-SIZED   *   DOC FILE
//*            INSTALLATION.  RACF 1.7 STANDARDS HAVE BEEN FOLLOWED *   DOC FILE
//*            THROUGHOUT.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  CHANGE TO FILE 147 FROM RICK FOCHTMAN, TO UPGRADE    *   DOC FILE
//*            THE ARCHIVER PROGRAM TO VERSION 5.0.  VERY           *   DOC FILE
//*            SIGNIFICANT IMPROVEMENTS CAN BE FOUND AT THIS        *   DOC FILE
//*            VERSION LEVEL, AND ALL USERS OF "THE ARCHIVER" ARE   *   DOC FILE
//*            ADVISED TO UPGRADE.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  CHANGE TO THE "LOOK" PROGRAM ON FILE 264 FROM        *   DOC FILE
//*            GUY ALBERTELLI, TO FIX SOME BUGS.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  ADDITION OF 3 LOAD MODULES FOR "THE ARCHIVER",       *   DOC FILE
//*            VERSION 5.0, TO THE LOAD LIBRARY, FILE 035.          *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-325 SECTION                                          *   DOC FILE
//*  V-325  CHANGES FOR VERSION 325 DEC 20, 1990                    *   DOC FILE
//*        00  CHANGE TO FILE STATUS SECTION BELOW, IN THIS FILE.   *   DOC FILE
//*            NEW FILES ARE NOW BEING LOADED WITH ISPF STATISTICS  *   DOC FILE
//*            PRESERVED.  SUCH FILES ARE MARKED WITH AN "S" NEXT   *   DOC FILE
//*            TO THE RECORD COUNT.  THE ISPF STATS CAN BE OBTAINED *   DOC FILE
//*            BY USING THE "PDSLOAD" PROGRAM IN THE FILE 003 JCL   *   DOC FILE
//*            INSTEAD OF THE IEBUPDTE PROGRAM.  FOLLOW THE         *   DOC FILE
//*            DIRECTIONS THAT ARE IN FILE 003.  A LOAD MODULE      *   DOC FILE
//*            OF PDSLOAD HAS BEEN PLACED ON FILE 035.  SOURCE      *   DOC FILE
//*            CODE FOR PDSLOAD MAY BE FOUND ON FILE 093.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  UPDATE TO FILE 400 WHICH IS DYNAMASK FROM STEVE      *   DOC FILE
//*            SMITH.  THIS VERSION ADDS A PROGRAM CALLED DYNASWAP  *   DOC FILE
//*            AND INCLUDES SMALL FIXES.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 163 FROM DAVE ANDREWS OF A.DUDA AND   *   DOC FILE
//*            SONS TO CORRECT A PROBLEM WITH THE PROGRAM "CATLG".  *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 264 FROM GUY ALBERTELLI TO FIX        *   DOC FILE
//*            BUGS WITH THE "LOOK" PROGRAM.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 134 FROM GREG PRICE OF PRYCROFT SIX   *   DOC FILE
//*            PTY IN MELBOURNE, AUSTRALIA.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  UPDATE TO FILE 135 FROM GREG PRICE OF PRYCROFT SIX   *   DOC FILE
//*            PTY IN MELBOURNE, AUSTRALIA.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  UPDATE TO FILE 421 WHICH IS XACORZAP BY ROBERT       *   DOC FILE
//*            BUDGE.  THIS UPDATE IS FROM JOHN BRYANT OF           *   DOC FILE
//*            COMPUSOURCE IN NORTH CAROLINA, TO FIX A PROBLEM      *   DOC FILE
//*            WHEN RUNNING XACORZAP IN "LOCAL" MODE UNDER XA 2.2   *   DOC FILE
//*            AND HIGHER.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  UPDATE TO FILE 182 WHICH IS PDS VERSION 8.4.  THE    *   DOC FILE
//*            SMP INSTALL WAS UPDATED AND FIXED.  SEE MEMBERS      *   DOC FILE
//*            CALLED SMPINST AND SMPFIXES.  ALL FUTURE FIXES WILL  *   DOC FILE
//*            PROBABLY BE PACKAGED IN SMP FORMAT.  ALSO, ISPF      *   DOC FILE
//*            STATISTICS WERE CREATED TO REFLECT THE SMP STATUS    *   DOC FILE
//*            OF EACH MEMBER.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  UPDATE TO FILE 035 TO ADD MORE USEFUL LOAD MODULES   *   DOC FILE
//*            TO THE COLLECTION, AND TO UPGRADE SOME OF THE ONES   *   DOC FILE
//*            THAT WERE ALREADY THERE.  NOTABLE CHANGES ARE TO:    *   DOC FILE
//*            TAPEMAP, PDS84, PDSLOAD AND OFFLOAD.  ADDITIONS      *   DOC FILE
//*            INCLUDE LOOK (THIS IS A MUST SEE), REVIEW (A MUST    *   DOC FILE
//*            LOOK), ZAP (A MUST REVIEW), AND BLKDISK WITH BLK3380 *   DOC FILE
//*            AND BLK3390.  (GREG PRICE'S INFLUENCE IS CATCHING.)  *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-324 SECTION                                          *   DOC FILE
//*  V-324  CHANGES FOR VERSION 324 NOV 28, 1990                    *   DOC FILE
//*        00  I'M ALWAYS TRYING TO FIX UP THIS DOC.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  CHANGE ADDRESS OF JIM HARMON, WHO DISTRIBUTES        *   DOC FILE
//*            THE SPLA MVS TAPE IN CANADA.  SEE ABOVE FOR HIS      *   DOC FILE
//*            CORRECTED ADDRESS.  NEW PHONE:  (604) 663-2078       *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  NEW PHONE NUMBER FOR DAN SQUILLACE, WHO MANAGES      *   DOC FILE
//*            THE SHARE MVS TAPE (THE SPLA MVS TAPE), WHICH IS     *   DOC FILE
//*            NOT TO BE CONFUSED WITH THIS TAPE.  DAN IS AT THE    *   DOC FILE
//*            SAS INSTITITUTE IN NORTH CAROLINA.  THEIR NEW        *   DOC FILE
//*            NUMBER IS:  (919) 677-8000.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  NEW PHONE NUMBER FOR GUY ALBERTELLI OF B.F.GOODRICH. *   DOC FILE
//*            GUY HAS IMPORTANT CONTRIBUTIONS ON SEVERAL FILES OF  *   DOC FILE
//*            THIS TAPE.  GUY'S NUMBER IS:  (216) 447-5543.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 187 TO FIX AN ERROR IN THE CVTCLIST   *   DOC FILE
//*            PROGRAM, WHICH OCCURS AFTER PROCESSING OF AN ALIAS   *   DOC FILE
//*            MEMBER.  ALL SUCCEEDING MEMBERS IN THAT DIRECTORY    *   DOC FILE
//*            BLOCK WERE THROWN AWAY.  ONE LINE FIX.  SEE DOC IN   *   DOC FILE
//*            THE CODE ON FILE 187.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  UPDATE TO FILE 187 TO RAISE CVTCLIST TO VERSION 2.2. *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-323 SECTION                                          *   DOC FILE
//*  V-323  CHANGES FOR VERSION 323 NOV 08, 1990                    *   DOC FILE
//*        01  UPDATE TO FILE 163 FROM DAVE ANDREWS OF A.DUDA AND   *   DOC FILE
//*            SONS, INC. OF OVIEDO, FLORIDA.  CHANGE WAS TO        *   DOC FILE
//*            CORRECT SOME ERRORS IN THE "DA" PROGRAM TO RUN       *   DOC FILE
//*            PROPERLY UNDER XA.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  ADDITION OF FILE 164 FROM RICK STECKER OF SYNECTICS  *   DOC FILE
//*            FOR MANAGEMENT DECISIONS IN BALTIMORE, MARYLAND.     *   DOC FILE
//*            THIS IS A CONSIDERABLE MODIFICATION AND UPGRADE TO   *   DOC FILE
//*            A SYSTEM THAT GENERATES A ONE-PACK MVS SYSTEM.       *   DOC FILE
//*            THE STARTING POINT FOR THIS FILE WAS FROM THE        *   DOC FILE
//*            "RESCUE" MEMBER ON FILE 022, BUT THIS MATERIAL IS    *   DOC FILE
//*            FOR XA 2.2.0 AND ABOVE, AND HAS MANY IMPROVEMENTS.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 095 FROM PAUL G. DAVIS OF EDS OF      *   DOC FILE
//*            HOUSTON, TEXAS.  THIS FILE IS UPDATED TO VERSION 6   *   DOC FILE
//*            AND CONTAINS A SERIES OF ISPF EDIT MACROS AND A      *   DOC FILE
//*            PROGRAM CALLED WHOIS.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  I STARTED TO PRESERVE ISPF STATISTICS IN SOME OF     *   DOC FILE
//*            THE UNLOADED FILES ON THIS TAPE.  YOU HAVE TO USE    *   DOC FILE
//*            THE PDSLOAD PROGRAM INSTEAD OF THE IEBUPDTE PROGRAM  *   DOC FILE
//*            IN THE UPDATEO PROC ON FILE 003.  FILE 003 WAS       *   DOC FILE
//*            UPDATED TO REFLECT THIS ADJUSTMENT.  PDSLOAD CAN     *   DOC FILE
//*            BE FOUND ON FILE 316 OR YOU CAN ASSEMBLE PDSLOADW    *   DOC FILE
//*            ON FILE 093 WITH AN LRECL OF 80.                     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-322 SECTION                                          *   DOC FILE
//*  V-322  CHANGES FOR VERSION 322 OCT 24, 1990                    *   DOC FILE
//*        00  SAM GOLOB IS NOW EDITING THE TAPE, WITH ARNIE        *   DOC FILE
//*            CASINGHINO AS CONSULTING PARTNER.  CONTRIBUTIONS     *   DOC FILE
//*            SHOULD BE SENT TO SAM GOLOB (ADDRESS ABOVE).         *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  THE "COPYFILE" PROGRAM ON FILE 316 HAS BEEN UPDATED  *   DOC FILE
//*            TO BE ABLE TO COPY TAPES WITH MANY MORE FILES.  A    *   DOC FILE
//*            FIXED GETMAIN FOR STORAGE TO HOLD TAPE LABEL INFOR-  *   DOC FILE
//*            MATION WAS INCREASED FROM 24200 TO 180000 BYTES.     *   DOC FILE
//*            THE UPDATED PROGRAM SHOULD BE RUN IN A LARGER        *   DOC FILE
//*            REGION.  AN EXISTING COPY OF THE COPYFILE PROGRAM    *   DOC FILE
//*            MAY BE ZAPPED AS FOLLOWS:                            *   DOC FILE
//*                                                                 *   DOC FILE
//*            NAME COPYFILE COPYFILE                               *   DOC FILE
//*            VER 0080 00005E88          24200 BYTES FOR GETMAIN   *   DOC FILE
//*            REP 0080 0002BF20         180000 BYTES FOR GETMAIN   *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  THE "TAPEMAP" PROGRAM ON FILE 299 WAS FIXED TO SHOW  *   DOC FILE
//*            THE DATE AND VERSION NUMBER OF A CBT TAPE DOC FILE   *   DOC FILE
//*            (THIS FILE--AS IT LOOKS ON A TAPE) FOR A STANDARD    *   DOC FILE
//*            LABELED TAPE.  PREVIOUS TO THIS FIX, TAPEMAP SHOWED  *   DOC FILE
//*            THE INFO ON AN NL TAPE, BUT NOT ON AN SL TAPE.       *   DOC FILE
//*            THE CBT TAPE IS DISTRIBUTED AS AN NL TAPE, BUT       *   DOC FILE
//*            I MAKE AN "SL-IZED" VERSION IN MY HANDLING OF THE    *   DOC FILE
//*            CBT TAPE.  I USE AN "SL" CBT TAPE, SO I WANT TAPEMAP *   DOC FILE
//*            TO SHOW DATE-VERSION INFO FOR THE SL TAPE ALSO.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  JIM MARSHALL, WHO HAS CONTRIBUTED MUCH TO THIS TAPE, *   DOC FILE
//*            HAS RETIRED FROM THE US AIR FORCE.  HIS TEMPORARY    *   DOC FILE
//*            PHONE NUMBER IS (703) 548-0791 (AFTER 5PM EASTERN).  *   DOC FILE
//*            THIS PHONE NUMBER SHOULD BE UPDATED SHORTLY.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPGRADE OF THE CLIST CONVERT PROGRAM FROM FILE 187   *   DOC FILE
//*            TO VERSION 2.1 FROM SAM GOLOB.  CODE WAS ADDED TO    *   DOC FILE
//*            SUPPORT NONEMPTY LIBRARIES AS THE TARGET OF THE      *   DOC FILE
//*            VB-FB OR FB-VB CONVERSION.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  "FINAL" SUPPORTED VERSION OF PDS 8.4 FROM STEVE      *   DOC FILE
//*            SMITH OF SECURITY PACIFIC AUTOMATION COMPANY.  THIS  *   DOC FILE
//*            UPDATE INVOLVES SOME CHANGES IN FILE 182, FILE 296,  *   DOC FILE
//*            AND FILE 112.  MOST CHANGES ARE MINOR.  A SLIGHT     *   DOC FILE
//*            ADJUSTMENT WAS MADE IN THE PDS BLK3390 SUPPORT.      *   DOC FILE
//*            PDS 8.4 IS NOW INSTALLABLE WITH SMP/E. SEE MEMBER    *   DOC FILE
//*            SMPINST.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*            BRUCE LELAND AND STEVE SMITH NOW SUPPORT A           *   DOC FILE
//*            COMMERCIAL PRODUCT WHICH IS A MAJOR OUTGROWTH OF     *   DOC FILE
//*            THIS "PDS" PACKAGE.  INFORMATION CAN BE OBTAINED     *   DOC FILE
//*            FROM BRUCE LELAND AT HIS LISTED ADDRESS.             *   DOC FILE
//*                                                                 *   DOC FILE
//*            THE PDS PRODUCT HAS ALWAYS BENEFITED ENORMOUSLY      *   DOC FILE
//*            FROM USER INPUT.  EVEN THOUGH PDS 8.4 IS NOT BEING   *   DOC FILE
//*            "OFFICIALLY" ENHANCED, BRUCE LELAND AND STEVE SMITH  *   DOC FILE
//*            WILL CONTINUE TO WELCOME YOUR CALLS.  I'LL UPDATE    *   DOC FILE
//*            THE TAPE WITH ANY CHANGES IF THEY'LL CONTINUE TO     *   DOC FILE
//*            SEND THEM IN TO ME.       S.GOLOB  10/90             *   DOC FILE
//*                                                                 *   DOC FILE
//*            PLEASE REPORT ANY PROBLEMS, ENHANCEMENTS,            *   DOC FILE
//*            SUGGESTIONS OR COMMENTS CONCERNING THE PDS COMMAND   *   DOC FILE
//*            TO EITHER:                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*            A. BRUCE LELAND      OR   STEVEN D. SMITH            *   DOC FILE
//*            SERENA INC.                 (AT THE SAME ADDRESS)    *   DOC FILE
//*            500 AIRPORT BLVD                                     *   DOC FILE
//*            2ND FLOOR                                            *   DOC FILE
//*            BURLINGAME, CA 94010                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*            (415) 696-1800   PHONE                               *   DOC FILE
//*            (415) 696-1776   FAX                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  UPDATE TO ALAN FIELD'S PHONE NUMBER.  IT IS NOW      *   DOC FILE
//*            (952) 828-4979.  ALAN FIELD IS THE CARETAKER FOR     *   DOC FILE
//*            THE JES3 SHARE MODS TAPE.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  UPDATE TO DAVE COLE'S PHONE NUMBER.  DAVE IS THE     *   DOC FILE
//*            AUTHOR OF MATERIALS ON SEVERAL FILES ON THIS TAPE.   *   DOC FILE
//*            DAVE HAS HIS OWN COMPANY, COLE SOFTWARE, AT          *   DOC FILE
//*            (703) 456-8536.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  UPDATE TO FILE 407 FROM DAVE ANDREWS OF A. DUDA      *   DOC FILE
//*            AND SONS IN OVIEDO, FLORIDA, TO FIT RECOGNITION      *   DOC FILE
//*            CODE FOR IGC018 AT HDP2240, PTF UY41197.  THIS       *   DOC FILE
//*            CODE IS DYNABLDL (DYNAMIC BLDL) FOR XA.  SOME        *   DOC FILE
//*            SHOPS MAY WANT TO USE DYNABLDL INSTEAD OF LLA,       *   DOC FILE
//*            AT LEAST SOMETIMES.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  ADDITION OF FILE 163 FROM DAVE ANDREWS OF A. DUDA    *   DOC FILE
//*            AND SONS IN OVIEDO, FLORIDA.  THIS FILE CONTAINS     *   DOC FILE
//*            SEVERAL OF THEIR UTILITIES, AND AN IFG0EX0B DATASET  *   DOC FILE
//*            OPEN EXIT.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-321 SECTION                                          *   DOC FILE
//*  V-321  CHANGES FOR VERSION 321 SEP 18, 1990                    *   DOC FILE
//*        01  UPDATE TO FILE 111 FROM MR JAMES PURDY OF REVLON TO  *   DOC FILE
//*            UPDATE MEMBERS LISTGDGC AND LISTGDGP                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 147 FROM MR RICK FOCHTMAN OF CHICAGO  *   DOC FILE
//*            ILLINOIS TO CONTAIN VERSION 4.0 OF "THE ARCHIVER".   *   DOC FILE
//*            THIS COPY OF THE ARCHIVER CONTAINS SOURCE, MACROS    *   DOC FILE
//*            AND ALSO A MEMBER CALLED SAMPLIB, WHICH IS REALLY    *   DOC FILE
//*            A SEPARATE PDS IN IEBUPDTE SYSIN FORMAT.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  ADDITION OF FILE 154 FROM MR SAM GOLOB               *   DOC FILE
//*            WHICH CONTAINS A COPY OF HIS PROGRAM THAT READS      *   DOC FILE
//*            SMP/E RELEASE 5 ELEMENT LISTINGS                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 299 TO UPDATE TAPEMAP                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  UPDATE TO FILE 320 WHICH IS A SERIES OF DF/DSS       *   DOC FILE
//*            DRIVER EXITS FROM LOMA LINDA UNIVERSITY MED CENTER.  *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-320 SECTION                                          *   DOC FILE
//*  V-320  CHANGES FOR VERSION 320 AUG 13, 1990                    *   DOC FILE
//*        01  UPDATE TO FILE 032 FROM MR SAM GOLOB TO              *   DOC FILE
//*            ADD MVS/XA SUPPORT TO COPYPACK                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 134 FROM MR GREG PRICE OF THE STATE   *   DOC FILE
//*            ELECTRICITY COMMISSION OF MELBOURNE, VICTORIA,       *   DOC FILE
//*            AUSTRALIA.  THIS FILE CONTAINS SEVERAL UTILITIES     *   DOC FILE
//*            SEE THE MEMBER CALLED $$INDEX3 FOR CHANGES FOR THIS  *   DOC FILE
//*            VERSION                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 135 FROM MR GREG PRICE OF THE STATE   *   DOC FILE
//*            ELECTRICITY COMMISSION OF MELBOURNE, VICTORIA,       *   DOC FILE
//*            AUSTRALIA.  THIS FILE CONTAINS LOAD MODULES OF THE   *   DOC FILE
//*            SOURCE WHICH IS IN FILE 134 OF THIS TAPE             *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  ADDITION OF FILES 156 AND 157 FROM A MID-WESTERN     *   DOC FILE
//*            INSTALLATION WHICH CONTAINS A PROGRAM CALLED         *   DOC FILE
//*            IEBASAP WHICH IS USED TO PROCESS THE DATA FROM       *   DOC FILE
//*            IBM'S ASAP SERVICE ON IBMLINK.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  UPDATE TO FILE 182 WHICH IS PDS VERSION 8.4 FROM     *   DOC FILE
//*            MR SAM GOLOB TO UPDATE THE SMPINST MEMBER            *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  UPDATE TO FILE 299 TO CORRECT A PROBLEM WITH         *   DOC FILE
//*            TAPEMAP.  THIS FIX IS FROM MR SAM GOLOB AND WILL     *   DOC FILE
//*            CORRECT THE PROBLEM OF TAPEMAP GOING INTO A LOOP     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-319 SECTION                                          *   DOC FILE
//*  V-319  CHANGES FOR VERSION 319 JUNE 26, 1990                   *   DOC FILE
//*        01  UPDATE TO FILE 035 TO CONTAIN A COPY OF PDS VERSION  *   DOC FILE
//*            8.4                                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 112 FROM MR TOM ROMANO OF AETNA LIFE  *   DOC FILE
//*            TO UPDATE VTOC (VTOCFORM) SO IF THERE IS A CATALOG   *   DOC FILE
//*            ERROR IT IS PROPERLY REPORTED                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 182 WHICH IS PDS VERSION 8.4 FROM     *   DOC FILE
//*            STEVE SMITH OF SECURITY PACIFIC AUTOMATION COMPANY   *   DOC FILE
//*            TO CORRECT A MINOR PROBLEM. THE FOLLOWING 5 MEMBERS  *   DOC FILE
//*            HAVE BEEN UPDATED                                    *   DOC FILE
//*                 1) $$$BUGS                                      *   DOC FILE
//*                 2) .DIAFIND   (. EQUALS THE AT SIGN)            *   DOC FILE
//*                 3) .DIATBL    (. EQUALS THE AT SIGN)            *   DOC FILE
//*                 4) .FIXPDS    (. EQUALS THE AT SIGN)            *   DOC FILE
//*                 5) M$ENTER                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  ADDITION OF FILE 370 WHICH CONTAINS THE SYSTEM       *   DOC FILE
//*            MODIFICATION TO ADD I/O COUNTS TO MESSAGE IEF2851I   *   DOC FILE
//*            FOR VARIOUS LEVELS OF THE OPERATING SYSTEM THAT ARE  *   DOC FILE
//*            NOT CONTAINED IN FILE 369 OF THIS TAPE. THE FIRST    *   DOC FILE
//*            MODIFICATION IN THIS FILE IS FROM MR ARTHUR H. COATE *   DOC FILE
//*            OF APPLIED COMMUNICATIONS, INC., OF OMAHA, NEBRASKA  *   DOC FILE
//*            THIS MEMBER (ESA1)  IS AT AN ESA LEVEL (3.1.0)       *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-318 SECTION                                          *   DOC FILE
//*  V-318  CHANGES FOR VERSION 318 MAY 11, 1990                    *   DOC FILE
//*        01  UPDATE TO FILE 095 FROM MR PAUL G DAVIS OF EDS IN    *   DOC FILE
//*            HOUSTON, TEXAS. THIS FILE IS UPDATED TO VERSION 5    *   DOC FILE
//*            AND CONTAINS A SERIES OF ISPF EDIT MACROS AND A      *   DOC FILE
//*            PROGRAM CALLED WHOIS                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 182 TO ADD THE CORRECT VERSION OF     *   DOC FILE
//*            PDS 8.4 INTO THE FILE.                               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-317 SECTION                                          *   DOC FILE
//*  V-317  CHANGES FOR VERSION 317 APRIL 27, 1990                  *   DOC FILE
//*         1  UPDATE TO FILE 025 FROM MR PAT MURPHY OF TEXAS       *   DOC FILE
//*            UTILTIES SERVICE. ADDITION OF NEW CODE AND UPDATES   *   DOC FILE
//*            TO CODE TO RUN UNDER ESA                             *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 217 WHICH IS THE DISASSEMBLER FROM    *   DOC FILE
//*            MR ALAN C FIELD OF SUPER VALU INC IN EDEN PRAIRIE    *   DOC FILE
//*            MINNESOTA. THIS HAS BEEN UPDATED FOR XA LEVEL CODE   *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILE 261 FROM MR GUY ALBERTELLI OF BF      *   DOC FILE
//*            GOODRICH OF AKRON, OHIO. THIS UPDATES #J AND #I      *   DOC FILE
//*            TO AN MVS/ESA (3.1.0) LEVEL. SEE THE MEMBER CALLED   *   DOC FILE
//*            $$$BFGES FOR A STATUS.  THOSE MODULES MARKED TESTED  *   DOC FILE
//*            SEEM TO WORK (AT LEAST TERMINATE WITHOUT ERROS).     *   DOC FILE
//*            THOSE NOT MARKED MAY NOT EVEN FUNCTION.              *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-316 SECTION                                          *   DOC FILE
//*  V-316  CHANGES FOR VERSION 316 APRIL 09, 1990                  *   DOC FILE
//*         1  UPDATE TO FILE 088 FROM MR BRIAN WESTERMAN OF BRIPER *   DOC FILE
//*            INDUSTRIES SYSTEMS CONSULTING OF MCLEAN VIRGINIA     *   DOC FILE
//*            TO ADD ADDITIONAL CODE                               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-315 SECTION                                          *   DOC FILE
//*  V-315  CHANGES FOR VERSION 315 APRIL 04, 1990                  *   DOC FILE
//*        01  UPDATE TO FILE 001 TO SHOW AN INCREASE IN PRICE OF   *   DOC FILE
//*            THE JES2 TAPE FROM $20.00 TO $30.00                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 035 TO CONTAIN A COPY OF PDS VERSION  *   DOC FILE
//*            8.3                                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 038 FROM MR GREG PRICE OF THE STATE   *   DOC FILE
//*            ELECTRICITY COMMISSION OF MELBOURNE, VICTORIA,       *   DOC FILE
//*            AUSTRALIA.  THIS FILE CONTAINS A COPY OF A TSO       *   DOC FILE
//*            GAME CALLED KLINGON.  THIS UPDATE PROVIDES THE SAME  *   DOC FILE
//*            LEVEL OF GRAPHICS SUPPORT TO MODEL-3 (32 X 80)       *   DOC FILE
//*            SCREENS AS IS CURRENTLY AVAILABLE TO MODEL-2         *   DOC FILE
//*            (24 X 80) AND MODEL-4 (43 X 80) SCREEN.  TO PRODUCE  *   DOC FILE
//*            THIS ENHANCEMENT, THE FOLLOWING MEMBERS WERE         *   DOC FILE
//*            CHANGED                                              *   DOC FILE
//*                             #GRAFICS                            *   DOC FILE
//*                             CPAGE                               *   DOC FILE
//*                             FSIO1                               *   DOC FILE
//*                             FSIO2                               *   DOC FILE
//*                             INTRO                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 112 FROM MR BRUCE LELAND OF SERENA    *   DOC FILE
//*            TO UPDATE VTOC SO THE TOTAL LINE WAS MODIFIED TO     *   DOC FILE
//*            FORMAT A 5 POSITION COUNT FIELD FOR THE NUMBER OF    *   DOC FILE
//*            DATA SETS                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  UPDATE TO FILE 134 FROM MR GREG PRICE OF PRYCROFT    *   DOC FILE
//*            SIX PTY OF MELBOURNE, VICTORIA, AUSTRALIA.  THIS     *   DOC FILE
//*            FILE CONTAINS A LARGE COLLECTION OF UTILITIES        *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  UPDATE TO FILE 135 FROM MR GREG PRICE OF THE STATE   *   DOC FILE
//*            ELECTRICITY COMMISSION OF MELBOURNE, VICTORIA,       *   DOC FILE
//*            AUSTRALIA.  THIS FILE CONTAINS LOAD MODULES OF THE   *   DOC FILE
//*            SOURCE WHICH IS IN FILE 134 OF THIS TAPE             *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  ADDITION OF FILE 151 FROM MR JOHN D SOSTROM OF DAYCO *   DOC FILE
//*            PRODUCTS OF DAYTON, OHIO.   THIS FILE CONTAINS       *   DOC FILE
//*            A MODIFIED LISTCAT FROM THE US AIR FORCE. THE        *   DOC FILE
//*            LISTCAT MODIFICATIONS CREATE AN INFO/MVS V3 DATA     *   DOC FILE
//*            BASE FILE FOR A COMPLETE SEARCHABLE LISTCAT ALL OF   *   DOC FILE
//*            THE SYSTEM CATALOGS                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  ADDITION OF FILES 152 AND 153 FROM MR HAROLD         *   DOC FILE
//*            ZBIEGIEN OF AMERICAN GREETINGS CORPORATION OF        *   DOC FILE
//*            CLEVELAND OHIO.  THESE FILES CONTAINS SOME UTILITY   *   DOC FILE
//*            PROGRAMS. SOME OF THE CODE IS USED TO MANIUPLATE     *   DOC FILE
//*            AFP (PSF) OBJECTS SUCH AS CHARACTER SETS AND         *   DOC FILE
//*            OVERLAYS. FILE 152 IS SOURCE AND FILE 153 CONTAINS   *   DOC FILE
//*            SOME CHARACTER SETS FROM THEIR 3800 FONTLIB THAT     *   DOC FILE
//*            WERE DEVELOPED FROM THE CODE IN FILE 152             *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  UPDATE TO FILE 182 TO CONTAIN A NEW VERSION OF THE   *   DOC FILE
//*            PDS TSO CP.  VERSION 8.4                             *   DOC FILE
//*            THE FOLLOWING IS A LIST OF THE CHANGES FOR THIS VER  *   DOC FILE
//*                          PDS VERSION 8.4 MODS                   *   DOC FILE
//*                          ---------------------                  *   DOC FILE
//*            NEW SUBCOMMANDS                                      *   DOC FILE
//*            ---------------                                      *   DOC FILE
//*                 NONE                                            *   DOC FILE
//*            CHANGES AND IMPROVEMENTS                             *   DOC FILE
//*            ------------------------                             *   DOC FILE
//*              1.  LISTC/LISTFILE LINE COMMANDS  CAT, UNCA, DEL,  *   DOC FILE
//*                  REN                                            *   DOC FILE
//*              2.  3390 SUPPORT                                   *   DOC FILE
//*            PROBLEMS FIXED                                       *   DOC FILE
//*            --------------                                       *   DOC FILE
//*              1.  PANEL FIXES TO P84PN*P                         *   DOC FILE
//*              2.  MISC DIALOG SUPPORT BUGS                       *   DOC FILE
//*              3.  INCORRECT LOCATING ECT WHEN CALLED AS PGM BY   *   DOC FILE
//*                  ISPF                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  UPDATE TO FILE 296 FROM MR BRUCE LELAND OF SERENA    *   DOC FILE
//*            THE FOLLOWING HAVE BEEN UPDATED:                     *   DOC FILE
//*                A.  BLKDISK  - UPDATED TO HANDLE 3390'S          *   DOC FILE
//*                B.  DSAT     - UPDATED TO HANDLE 3390'S          *   DOC FILE
//*                C.  DVOL     - UPDATED TO HANDLE 3390'S          *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-314 SECTION                                          *   DOC FILE
//*  V-314  CHANGES FOR VERSION 314 FEBRUARY 21, 1990               *   DOC FILE
//*        01  UPDATE TO FILE 065 FROM MR JOHN CHIN OF READER'S     *   DOC FILE
//*            DIGEST FROM MR JAMES PURDY OF REVLON. THE LEVEL OF   *   DOC FILE
//*            THIS MOD IS 8907 LEVEL OF MVS/SP3.1.1                *   DOC FILE
//*            (JBB3311/UY42211)                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  ADDTION OF FILE 148 FROM MR GEOFFREY MCINTYRE OF     *   DOC FILE
//*            FIRST SECURITY SERVICE COMPANY OF SALT LAKE CITY     *   DOC FILE
//*            UTAH, THIS FILE CONTAINS A COPY OF THEIR PANVALET    *   DOC FILE
//*            ISPF SYSTEM                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  ADDITION OF FILE 150 FROM MR MARK DIEHL OF HERCULES  *   DOC FILE
//*            ALLEGANY BALLISTICS AND CONTAINS A COPY OF THEIR     *   DOC FILE
//*            ISPF INTERACTIVE DATA XMISSION FACILITY              *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 187 FROM MR SAM GOLOB                 *   DOC FILE
//*            WHICH IS A PROGRAM TO CONVERT A CLIST FROM FB TO     *   DOC FILE
//*            VB AND VICE VERSA.  THIS UPDATE CORRECTS A LINE      *   DOC FILE
//*            NUMBERING PROBLEM WITH THE CODE                      *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-313 SECTION                                          *   DOC FILE
//*  V-313  CHANGES FOR VERSION 313 JANUARY 16, 1990                *   DOC FILE
//*        01  UPDATE TO FILE 147 FROM MR RICK FOCHTMAN,  OF        *   DOC FILE
//*            CHICAGO ILLINOIS TO VERSION 3.0 OF "THE ARCHIVER".   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-312 SECTION                                          *   DOC FILE
//*  V-312  CHANGES FOR VERSION 312 DECEMBER 14, 1989               *   DOC FILE
//*        01  UPDATE TO FILE 147 FROM MR RICK FOCHTMAN, FROM       *   DOC FILE
//*            CHICAGO ILLINOIS.  THIS FILE CONTAINS "THE           *   DOC FILE
//*            ARCHIVER".                                           *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-311 SECTION                                          *   DOC FILE
//*  V-311  CHANGES FOR VERSION 311 DECEMBER 07, 1989               *   DOC FILE
//*        01  UPDATE TO FILE 060 FROM MR CHARLES D WELLS OF THE    *   DOC FILE
//*            GEORGIA DEPARTMENT OF LABOR TO ADD SOME NEW CODE     *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 066 FROM MR ALAN FIELD OF SUPER VALU  *   DOC FILE
//*            TO UPDATE HIS PROGRAMS                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 103 FROM MR WILLIAM R HORTON OF       *   DOC FILE
//*            TENNESSEE EASTMAN IN KINGSPORT. THIS VERSION HAS     *   DOC FILE
//*            MODS TO QUEUE TO ISPF, A UTILITY TO COPY "FIRST TSO  *   DOC FILE
//*            COMMAND" FROM UADS TO RACF AND AN ISPF DIALOG TO     *   DOC FILE
//*            FACILITATE UPDATE OF TSO LOGON INFORMATION. ALSO     *   DOC FILE
//*            SOME CLISTS THAT WERE MISSING FROM THE PREVIOUS      *   DOC FILE
//*            VERSION OF THIS TAPE                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  ADDITION OF FILE 144 FROM PAT SHROUT OF WASHINGTON   *   DOC FILE
//*            STATE DEPARTMENT OF TRANSPORTATION. THIS FILE        *   DOC FILE
//*            CONTAINS A MODIFIED VPS USER EXIT 14 (DATASET ADD    *   DOC FILE
//*            EXIT)                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  ADDITION OF FILES 145 AND 146 FROM MR BILL SMITH OF  *   DOC FILE
//*            CHARLES SCHWAB.  THESE FILES CONTAIN A COPY OF       *   DOC FILE
//*            KERMIT                                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  ADDITION OF FILE 147 FROM MR RICK FOCHTMAN,  OF      *   DOC FILE
//*            CHICAGO ILLINOIS TO CONTAIN "THE ARCHIVER".  THIS    *   DOC FILE
//*            FILE CONTAIS CODE TO MANAGE A VSAM CLUSTER TOOL-KIT  *   DOC FILE
//*            FOR EASY TRANSPORT AND ARCHIVE PURPOSES.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  UDPATE TO FILE 182 WHICH IS THE PDS TSO COMMAND      *   DOC FILE
//*            PROCESSOR FROM MR SAM GOLOB OF TO ADD A MEMBER       *   DOC FILE
//*            CALLED SMPINST WHICH CONTAINS A COPY OF THE DATA     *   DOC FILE
//*            NEEDED TO INSTALL PDS WITH SMP.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  UPDATE TO FILE 299 TO CORRECT A PROBLEM WITH         *   DOC FILE
//*            LINECOUNT. ALSO AN OLD VERSION OF TAPEMAP HAS BEEN   *   DOC FILE
//*            REMOVED FROM THIS FILE. IF YOU NEED A COPY OF THIS   *   DOC FILE
//*            PREVIOUS VERSION SEE A CBT TAPE PRIOR TO VERSION     *   DOC FILE
//*            311                                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  UPDATE TO FILE 353 FROM MORTON INTERNATIONAL INC, OF *   DOC FILE
//*            CHICAGO, TO CORRECT SEVERAL MEMBERS                  *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-310 SECTION                                          *   DOC FILE
//*  V-310  CHANGES FOR VERSION 310 NOVEMBER 14, 1989               *   DOC FILE
//*        01  UPDATE TO FILE 094 FROM MR MICHAEL CLEARY OF         *   DOC FILE
//*            BERGEN BRUNSWIG CORPORATION WHICH CONTAINS VERSION   *   DOC FILE
//*            1.3 OF DAF (DATASET AUDIT FACILITY)                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 112 FROM MR MICHAEL CLEARY OF BERGEN  *   DOC FILE
//*            BRUNSWIG CORP TO UPDATE VTOC TO:                     *   DOC FILE
//*                A.  SUPPORT DATASETS WITH A LAST TRACK USED TTR  *   DOC FILE
//*                    (DS1LSTAR) OF GREATER THAN 32767             *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 117 FROM COCA COLA COMPANY WHICH IS A *   DOC FILE
//*            SERIES OF WTO EXITS, USING MPF                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  ADDITION OF FILE 133 FROM MR ALAN C FIELD OF         *   DOC FILE
//*            SUPER VALU WHICH CONTAINS SEVERAL OF THEIR UTILTIES  *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  ADDITION OF FILE 134 FROM MR GREG PRICE OF           *   DOC FILE
//*            PRYCROFT SIX PTY OF MELBOURNE, VICTORIA,             *   DOC FILE
//*            AUSTRALIA.  THIS FILE CONTAINS SEVERAL UTILITIES     *   DOC FILE
//*            THAT WERE EITHER WRITTEN HERE ORIGINALLY OR          *   DOC FILE
//*            MODIFIED FROM OTHER MODS TAPES.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  ADDITION OF FILE 135 FROM MR GREG PRICE OF           *   DOC FILE
//*            PRYCROFT SIX PTY OF MELBOURNE, VICTORIA,             *   DOC FILE
//*            AUSTRALIA.  THIS FILE CONTAINS LOAD MODULES OF THE   *   DOC FILE
//*            SOURCE WHICH IS IN FILE 134 OF THIS TAPE             *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  ADDITION OF FILE 136 FROM MR HOWARD DEAN OF AMERICAN *   DOC FILE
//*            PRESIDENT LINES LTD OF SAN MATEO CALIFORNIA.  THIS   *   DOC FILE
//*            FILE CONTAINS SEVERAL OF THEIR UTILITIES             *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  ADDITION OF FILE 138 FROM MR ART TANSKY OF           *   DOC FILE
//*            SUNGARD OF PHILADELPHIA PA WHICH CONTAINS A          *   DOC FILE
//*            MODIFIED COPY OF SYSTEM (FROM FILE 300), THIS        *   DOC FILE
//*            VERSION WORKS WITH 3090'S WITHOUT BEING AUTHORIZED   *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  ADDITION OF FILE 139 FROM MR DENNIS LONGNECKER       *   DOC FILE
//*            FROM THE ADMINISTRATOR FOR THE COURTS OF THE STATE   *   DOC FILE
//*            OF WASHINGTON                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  ADDITION OF FILE 140 FROM MR MARK DIEHL OF HERCULES  *   DOC FILE
//*            ALLEGANY BALLISTICS AND CONTAINS A COPY OF THEIR     *   DOC FILE
//*            "DATA ARCHIVAL RECOVERY SYSTEM"                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  ADDITION OF FILE 141 FROM MR TIM VANDERWALL FROM     *   DOC FILE
//*            FORT BELVOIR, VA AND CONTAINS A COPY OF THEIR SOURCE *   DOC FILE
//*            TO LIST AND ANALYZE SYS1.BROADCAST                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  ADDITION OF FILE 142 FROM MR MARVIN C CRUZAN FROM    *   DOC FILE
//*            FORT BEN HARRISON, INDIANAPOLIS, IN WHICH CONTAINS A *   DOC FILE
//*            COPY OF THEIR CODE WHICH ALLOWS ACCESS TO OTHER VTAM *   DOC FILE
//*            APPLICATIONS WITHOUT HAVING TO LOGOFF TSO            *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  ADDITION OF FILE 143 FROM MR RANDALL SMITH, LUTHERAN *   DOC FILE
//*            MEDICAL CENTER, OF WHEAT RIDGE, COLORADO AND         *   DOC FILE
//*            CONTAINS SEVERAL OF THEIR ISPF/CLISTS AND EDIT       *   DOC FILE
//*            MACROS INCLUDING AN ONLINE IDCAMS APPLICATION        *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  UPDATE TO FILE 187 FROM MR SAM GOLOB                 *   DOC FILE
//*            WHICH IS A PROGRAM TO CONVERT A CLIST FROM FB TO     *   DOC FILE
//*            VB AND VICE VERSA.  THIS UPDATE CORRECTS SEVERAL     *   DOC FILE
//*            ERRORS IN THE CODE                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  UPDATE TO FILE 270 FROM THE WASHINGTON STATE DP      *   DOC FILE
//*            SERVICE CENTER TO VERSION 8 OF THEIR MODS            *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  UPDATE TO FILE 271 WHICH IS DYNAMIC PROCLIB TO       *   DOC FILE
//*            VERSION 3 RELEASE 2.3.  SEE THE MEMBER CALLED        *   DOC FILE
//*            #CHANGES WHICH DESCRIBES THE CHANGES IN THIS RELEASE *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  UPDATE TO FILE 296 FROM MR JOHN KALINICH OF          *   DOC FILE
//*            AMXSI-TRI OF ST. LOUIS, MO.  THE DVOL COMMAND HAS    *   DOC FILE
//*            BEEN UPDATED TO SUPPORT 3380-E DISK AND A CVAFDSM    *   DOC FILE
//*            RETURN CODE OF 4 AND STAT032 (NO FREE DSCB'S         *   DOC FILE
//*            CONDITION).                                          *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-309 SECTION                                          *   DOC FILE
//*  V-309  CHANGES FOR VERSION 309 JULY 21, 1989                   *   DOC FILE
//*         1  ADDITION OF FILE 131 FROM MR BOB SIRKIS OF           *   DOC FILE
//*            BRIDGESTONE SOFTWARE OF TENNESSEE. THIS FILE         *   DOC FILE
//*            CONTAINS 2 EXITS, ONE IS AN SAR SECURITY USER        *   DOC FILE
//*            EXIT THE OTHER IS AN AUTO RESTORE EXIT FOR DMS/OS    *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  ADDITION OF FILE 132 FROM MR GEORGE L RAMAS OF       *   DOC FILE
//*            FIRST NATIONWIDE BANK OF DALY CITY, CA.  THIS FILE   *   DOC FILE
//*            CONTAINS SOME OF THEIR UTILITIES                     *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILE 393 WHICH IS THE JES2 QUEUE COMMAND   *   DOC FILE
//*            FOR RELEASE 2.2.0 FROM MR TOM BRYANT OF FIRST        *   DOC FILE
//*            OPTIONS OF CHICAGO TO CORRECT THE FOLLOWING:         *   DOC FILE
//*              A.  CHANGE IHADCB MACRO TO DCBD IN MEMBER CKPT     *   DOC FILE
//*              B.  CHANGE IHADCB MACRO TO DCBD IN MEMBER INIT     *   DOC FILE
//*              C.  CHANGED BLANK LINE TO A COMMENT IN MEMBER INIT *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  ADDITION OF FILE 397 WHICH IS A COPY OF THE TSO CP   *   DOC FILE
//*            CALLED QUE THAT WILL RUN UNDER MVS/SP1.3.6/2.1.5.    *   DOC FILE
//*            THIS VERSION IS FROM MR GUY ALBERTELLI OF B.F.       *   DOC FILE
//*            GOODRICH OF AKRON, OHIO.  THIS VERSION SUPPORTS      *   DOC FILE
//*            ISPF VERSIONS 2.2 AND 2.3                            *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  ADDITION OF FILE 398 WHICH IS A COPY OF THE TSO CP   *   DOC FILE
//*            CALLED QUE THAT WILL RUN UNDER MVS/SP2.2.0.          *   DOC FILE
//*            THIS VERSION IS FROM MR GUY ALBERTELLI OF B.F.       *   DOC FILE
//*            GOODRICH OF AKRON, OHIO.  THIS VERSION SUPPORTS      *   DOC FILE
//*            ISPF VERSIONS 2.2 AND 2.3                            *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  UPDATE TO FILE 422 TO ADD DON MARQUARDT'S NEW        *   DOC FILE
//*            INSTALLATION AND ADDRESS AND SOME NEW MEMBERS        *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-308 SECTION                                          *   DOC FILE
//*  V-308  CHANGES FOR VERSION 308 JUNE 29, 1989                   *   DOC FILE
//*         1  UPDATE TO FILE 001 TO PUT THE FILE NUMBER OF WHERE   *   DOC FILE
//*            THE INFORMATION IS IN COLUMNS 72-80 OF THIS FILE     *   DOC FILE
//*            JUST LOOK TO YOUR RIGHT.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 035 TO CONTAIN A COPY OF PDS VERSION  *   DOC FILE
//*            8.3                                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  ADDITION OF FILE 125 FROM MR TOM CONFREY OF THE      *   DOC FILE
//*            STATE OF CONNECTICUT, THIS FILE CONTAINS SEVERAL     *   DOC FILE
//*            OF THEIR SAS PERFORMANCE PROGRAMS                    *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  ADDITION OF FILE 128 FROM THE INFORMATION SYSTEMS    *   DOC FILE
//*            DEPT OF THE CHURCH OF JESUS CHRIST OF LATTER-DAY     *   DOC FILE
//*            SAINTS. THIS FILE CONTAINS:                          *   DOC FILE
//*             A. ISPF APPLICATION THAT ALLOWS ENTRY OF VTAM       *   DOC FILE
//*                COMMANDS                                         *   DOC FILE
//*             B. A MVS/XA (2.2) VERSION OF CHIMP                  *   DOC FILE
//*             C. A SYSLOG SCAN FACILITY                           *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  ADDITION OF FILE 129 FROM MCRB SERVICE BUREAU OF     *   DOC FILE
//*            NORTH HOLLYWOOD, CA WHICH IS A MOD FOR SHARED DASD   *   DOC FILE
//*            CHKPT AT AN MVS/XA 2.2.0 LEVEL                       *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  ADDITION OF FILE 130 FROM CONNECTICUT BANK AND TRUST *   DOC FILE
//*            WHICH IS A SMALL ASMBLER PROGRAM, THE IDEA OF WHICH  *   DOC FILE
//*            CAME FROM A COBOL PROGRAM FROM MR SAM BARR (OF       *   DOC FILE
//*            NORTHROP CORP, HAWTHORNE, CA (I THINK)). THIS        *   DOC FILE
//*            PROGRAM PROCESSES THIS DOCUMENTATION FILE AND PUTS   *   DOC FILE
//*            FILE NUMBER IN COLUMNS 73-80. MAKES IT MUCH EASIER   *   DOC FILE
//*            TO FIND OUT WHERE DATA IS.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*         7  UPDATE TO FILE 137 FROM THE PLANNING RESEARCH CORP   *   DOC FILE
//*            OF MCLEAN, VIRGINIA TO CONTAIN NEW VERSIONS OF       *   DOC FILE
//*            EXIT008, PANBKPRT AND USAGE                          *   DOC FILE
//*                                                                 *   DOC FILE
//*         8  UPDATE TO FILE 182 TO CHANGE A LH TO ICM AND ADD SR  *   DOC FILE
//*            IN MEMBER CALLED " DIAMEML" WITH AN AT SIGN AS THE   *   DOC FILE
//*            FIRST CHARACTER. ALSO TO CHANGE "GTSIZE ," TO        *   DOC FILE
//*            "GTSIZE  " IN SEVERAL MEMBERS                        *   DOC FILE
//*                                                                 *   DOC FILE
//*         9  ADDITION OF FILE 395 WHICH IS A COPY OF THE TSO CP   *   DOC FILE
//*            CALLED QUE THAT WILL RUN UNDER JES2 3.1.1. THIS      *   DOC FILE
//*            VERSION WAS SUBMITTED FROM MR SAM GOLOB              *   DOC FILE
//*            WHO OBTAINED IT FROM MR BILL BALMER OF EG & G IDAHO  *   DOC FILE
//*            WHO MODIFIED THE VERSION FROM MR JACK SCHUDEL OF THE *   DOC FILE
//*            UNIVERSITY OF FLORIDA                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  ADDITION OF FILE 396 WHICH IS A COPY OF THE TSO CP   *   DOC FILE
//*            CALLED QUE THAT WILL RUN UNDER JES2 3.1.1. THIS      *   DOC FILE
//*            VERSION WAS SUBMITTED FROM MR SAM GOLOB              *   DOC FILE
//*            WHO OBTAINED IT FROM MR BILL BALMER OF EG & G IDAHO  *   DOC FILE
//*            WHO MODIFIED THE VERSION FROM MR GUY ALBERTELLI OF   *   DOC FILE
//*            BF GOODRICH.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-307 SECTION                                          *   DOC FILE
//*  V-307  CHANGES FOR VERSION 307 JUNE 04, 1989                   *   DOC FILE
//*         1  UPDATE TO FILE 047 FROM MR JIM LANE OF SUNCOR INC    *   DOC FILE
//*            OF NORTH YORK, ONTARIO, CANADA, THIS UPDATES         *   DOC FILE
//*            THE DATA PREVIOUSLY SUBMITTED BY JIM WHEN HE WAS     *   DOC FILE
//*            AT MANUFACTURERS LIFE INSURANCE COMPANY OF TORONTO   *   DOC FILE
//*            CANADA                                               *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 124  WHICH IS FROM THE STATE OF       *   DOC FILE
//*            WISCONSIN REGIONAL COMPUTING CENTER, THIS UPDATE     *   DOC FILE
//*            ADDS SOME ADDITIONAL MACROS                          *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-306 SECTION                                          *   DOC FILE
//*  V-306  CHANGES FOR VERSION 306 MAY 25, 1989                    *   DOC FILE
//*         1  UPDATE TO FILE 035 TO CONTAIN A COPY OF PDS VERSION  *   DOC FILE
//*            8.3                                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 112 FROM MR BRUCE LELAND OF SERENA    *   DOC FILE
//*            TO UPDATE VTOC TO:                                   *   DOC FILE
//*                A.  RETURN DATA TO THE PDS PROGRAM VER 8.3       *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  ADDITION OF FILE 124  WHICH IS FROM THE STATE OF     *   DOC FILE
//*            WISCONSIN REGIONAL COMPUTING CENTER AND CONTAINS     *   DOC FILE
//*            SEVERAL OF THEIR ISPF/PDF APPLICATIONS               *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  UPDATE TO FILE 182 TO CONTAIN A NEW VERSION OF THE   *   DOC FILE
//*            PDS TSO CP.  VERSION 8.3                             *   DOC FILE
//*            THE FOLLOWING IS A LIST OF THE CHANGES FOR THIS      *   DOC FILE
//*            VERSION:                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*                          PDS VERSION 8.3 MODS                   *   DOC FILE
//*                          ---------------------                  *   DOC FILE
//*                                                                 *   DOC FILE
//*            NEW SUBCOMMANDS                                      *   DOC FILE
//*            ---------------                                      *   DOC FILE
//*              1  DIALOG ONLY COMMAND LISTC/LISTFILE PROVIDES A   *   DOC FILE
//*                 DATASET LIST.  THIS LIST CAN BE BUILT AND       *   DOC FILE
//*                 ADDED TO BY ETHER THE VTOC COMMAND OR THE DSAT  *   DOC FILE
//*                 COMMAND. THE FOLLOWING COMMANDS ARE PROVIDED.   *   DOC FILE
//*                                                                 *   DOC FILE
//*                   A. LC/LF/LISTC/LISTFILE COMMAND WITH OPTIONS  *   DOC FILE
//*                        OF RESET, VTOC, AND DSAT.                *   DOC FILE
//*                                                                 *   DOC FILE
//*                   B. SORT AND F (FIND)                          *   DOC FILE
//*                                                                 *   DOC FILE
//*                   C. CHANGE LINE COMMAND                        *   DOC FILE
//*                                                                 *   DOC FILE
//*                   D. A, B, E, M, P, SETA, U, Z: LINE COMMANDS   *   DOC FILE
//*                      SAME AS FOR LISTA.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*                   E. LEFT AND RIGHT AND 9 WILL SELECT AMOUNG 3  *   DOC FILE
//*                      DISPLAY PANELS.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*              2  COLS COMMAND INSERTS A LINE INTO SESSION LOG    *   DOC FILE
//*                 CONTAINING COLUMN TICK MARKS.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*              3  TCT FUNCTION PROVIDES A PDS AND TSO COMMAND     *   DOC FILE
//*                 TABLE FROM WHICH TO ENTER AND SAVE SEVERAL PDS  *   DOC FILE
//*                 AND TSO COMMANDS.  PROVIDED WITH THIS FUNCTION  *   DOC FILE
//*                 IS A SYSOUT TRAP SERVICE WHICH WILL RETURN TSO  *   DOC FILE
//*                 COMMAND OUTPUT TO THE SESSION LOG FOR USER      *   DOC FILE
//*                 VIEWING.  FOR MORE INFORMATION SEE THE COMMAND  *   DOC FILE
//*                 SETTRAP.  ALSO PRIVIDE WITH THIS FUNCTION ARE   *   DOC FILE
//*                 THE COMMANDS INSERT AND ADD TO ADD MORE BLANK   *   DOC FILE
//*                 ENTRIES TO THE TABLE.  LINE COMMANDS PROVIDE    *   DOC FILE
//*                 ARE AS FOLLOWS                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*                   A. X AND XX TO DELETE LINES                   *   DOC FILE
//*                                                                 *   DOC FILE
//*                   B. I TO INSERT A BLANK LINE.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*                   C. E (EXEC) EXECUTE THE PDS OR TSO COMMAND    *   DOC FILE
//*                                                                 *   DOC FILE
//*                   D. V (VIEW) VIEW THE FULL 245 CHARACTER       *   DOC FILE
//*                      COMMAND FOR UPDATE ONLY                    *   DOC FILE
//*                                                                 *   DOC FILE
//*                   E. U (UPDA) VIEW THE FULL COMMAND FOR UPDATE  *   DOC FILE
//*                      AND EXECUTION                              *   DOC FILE
//*                                                                 *   DOC FILE
//*              4  SETTRAP COMMAND SETS DEFAULT VALUES FOR THE     *   DOC FILE
//*                 SYSOUT TRAP SERVICE WHICH IS USED BY TCT AND    *   DOC FILE
//*                 FOR TSO COMMANDS FORMATED FOR ISPF SELECT       *   DOC FILE
//*                 SERVICES TYPICALLY USED FROM P83..UX PANELS.    *   DOC FILE
//*                 THIS SERVICE REQUIRES ISPF 2.3 AND TSO/E AND    *   DOC FILE
//*                 THE INSTALLATION OF THE PDSTRAP CLIST.          *   DOC FILE
//*                 SEVERAL P83..UX PANELS HAVE BEEN CHANGED TO     *   DOC FILE
//*                 USE THIS SERVICE.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*              5  CAX FUNCTION PROVIDE A LIST OF ACTIVE CATALOGS  *   DOC FILE
//*                 (ICF AND VSAM) USING INFORMATION FROM THE       *   DOC FILE
//*                 CAXWA CONTROL BLOCK CHAIN.  CAXWA STANDS FOR    *   DOC FILE
//*                 CATALOG AUXILIARY WORK AREA.  SEVERAL LISTC     *   DOC FILE
//*                 COMMANDS ARE PROVIDE AS LINE COMMANDS USING     *   DOC FILE
//*                 THE P83LXUX PANEL.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*              6  TAG COMMAND USED ON THE COMMAND LINE OF THE     *   DOC FILE
//*                 MEMLIST FUNCTION WILL SET SUBLIST EQUAL TO      *   DOC FILE
//*                 SELECTED MEMBERS WITH IN THE MEMBER LIST WITH   *   DOC FILE
//*                 A *TAG* IN THE DATA FIELD. THIS CAN BE SET BY   *   DOC FILE
//*                 THE TAG LINE COMMAND.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*              7  EXPAND, RELEASE, RLSE SUBCOMMANDS TO PROVIDE    *   DOC FILE
//*                 SHORT PROMPT PANELS FOR THESE FIXPDS OPTIONS.   *   DOC FILE
//*                                                                 *   DOC FILE
//*            CHANGES AND IMPROVEMENTS                             *   DOC FILE
//*            ------------------------                             *   DOC FILE
//*              1   VIEW LOG FUNCTION                              *   DOC FILE
//*                                                                 *   DOC FILE
//*                   A. SUPPORT FOR 158 CHARACTER OUTPUT LINE      *   DOC FILE
//*                      USING A LEFT AND RIGHT SCREEN TO VIEW THE  *   DOC FILE
//*                      LEFT AND RIGHT 79 CHARACTERS               *   DOC FILE
//*                      AS WELL AS A TWO LINE SCREEN TO VIEW ALL   *   DOC FILE
//*                      158 CHARACTERS.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*                   B. IMPROVED FIND COMMAND NOW PLACES CURSOR    *   DOC FILE
//*                      UNDER THE MATCHED STRING AND WILL SELECT   *   DOC FILE
//*                      THE LEFT OR RIGHT SCREEN AS NECESSARY. IT  *   DOC FILE
//*                      WILL RESUME THE FIND AT THE NEXT           *   DOC FILE
//*                      CHARACTER.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*                   C. PDS HAS SUPPORT FOR UP TO 9 ACTIVE VIEW    *   DOC FILE
//*                      LOG TABLES.  THE VIEW FUNCTION COMMAND IS  *   DOC FILE
//*                      USED TO SELECT WHICH TABLE TO VIEW AND     *   DOC FILE
//*                      RECEIVE COMMAND OUTPUT.  THE VIEW          *   DOC FILE
//*                      FUNCTION COMMAND CAN ACTIVATE OR CLEAR,    *   DOC FILE
//*                      AND SELECT FOR OUTPUT A LOG TABLE WITHOUT  *   DOC FILE
//*                      DISPLAYING IT FROM ANY OTHER FUNCTION.     *   DOC FILE
//*                                                                 *   DOC FILE
//*              2  THE LISTV TABLE LINE COMMAND 'LFVT' WAS ADDED   *   DOC FILE
//*                 TO PASS A VOLUME TO THE LISTFILE FUNCTION VTOC  *   DOC FILE
//*                 OPTION.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*              3  THE SERVICES OF SORT AND DIALOG TABLE FIND      *   DOC FILE
//*                 COMMAND WILL NOW DISPLAY THE ASSOCIATED PROMPT  *   DOC FILE
//*                 PANEL IF THE OPTIONS ARE INVALID.               *   DOC FILE
//*                                                                 *   DOC FILE
//*              4  THE O OPTION PANEL HIERARCHY HAS BEEN           *   DOC FILE
//*                 REDESIGNED TO DIVIDE OUT FUNCTIONS AND          *   DOC FILE
//*                 SERVICES IN A MORE LOGICAL WAY.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*              5  THE FUNCTION STATUS DISPLAY IS NOW ITS OWN      *   DOC FILE
//*                 FUNCTION PROVIDING MORE FLEXIBLE COMMAND        *   DOC FILE
//*                 SELECTION. IT ALSO HAS ITS OWN O OPTION.        *   DOC FILE
//*                                                                 *   DOC FILE
//*              6  THE "==" BLOCK COMMAND CAN NOW BE SET TO ONLY   *   DOC FILE
//*                 DUPLICATE THE DESIRED LINE COMMAND ON THOSE     *   DOC FILE
//*                 LINES WITH A GIVEN VALUE IN THE DATA FIELD.     *   DOC FILE
//*                                                                 *   DOC FILE
//*              7  SOME DIALOG FUNCTIONS AND SERVICES HAVE BEEN    *   DOC FILE
//*                 SEPARATED OUT INTO COPY MEMBERS OF THE FORM     *   DOC FILE
//*                     DIA.... FOR EASIER EDITING                  *   DOC FILE
//*                                                                 *   DOC FILE
//*              8  BLOCK COMMAND BEGINNING AND ENDINGS CAN NOW BE  *   DOC FILE
//*                 SET ONE AT A TIME ALLOWING SCROLLING BETWEEN    *   DOC FILE
//*                 SETTINGS.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*              9  CONTROL DSNAME ON INITIAL LINE: IF INVOKED      *   DOC FILE
//*                 FROM A CLIST SOURCE, OUTPUT IS DIRECTED ONLY    *   DOC FILE
//*                 TO THE OUTPUT DATA SET.  THIS SHOULD ENHANCE    *   DOC FILE
//*                 THE USABILITY OF PDS IN CLISTS.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*              10 ISPMODE KEYWORDS CHKMAX, CMDMAX AND TBLMAX:     *   DOC FILE
//*                 DELETED DUE TO THIS DATA BEING ENTERED FROM     *   DOC FILE
//*                 THE ISPMODE SETLOG COMMAND.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*              11 CONTROL GLOBALMODS: ADDED TO DISPLAY ALL        *   DOC FILE
//*                 ASSEMBLY GLOBALS MODIFIED BEFORE PDS            *   DOC FILE
//*                 ASSEMBLY.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*              12 CONTROL ALLGLOBALS: ADDED TO DISPLAY ALL        *   DOC FILE
//*                 ASSEMBLY GLOBALS.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*              13 ABE: ADDED A SUBCOMMAND TO INVOKE ABE, "A       *   DOC FILE
//*                 BETTER EDITOR".  ABE IS DISTRIBUTED ON THE      *   DOC FILE
//*                 NASPA MVS VIP TAPE, AND ON THE SHARE PL/I       *   DOC FILE
//*                 TAPE.  SEE ABOVE FOR ORDERING ADDRESSES.        *   DOC FILE
//*                                                                 *   DOC FILE
//*            PROBLEMS FIXED                                       *   DOC FILE
//*            --------------                                       *   DOC FILE
//*              1  AN EXTRA 'CONTROL NONDISPL ENTER' WAS BEING     *   DOC FILE
//*                 GENERATED WHEN EXITING WITH A QUIT COMMAND OR   *   DOC FILE
//*                 RETURN/JUMP UNDER SOME CONDITIONS.              *   DOC FILE
//*                 CORRECTING THIS PROBLEM WILL PREVENT            *   DOC FILE
//*                 UNEXPECTED ISPF ACTIONS.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*              2  PANEL P82OSPR: HAD AN ADDITIONAL & ON A VPUT    *   DOC FILE
//*                 STATEMENT.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*              3  ATTRIB SUBCOMMAND: DID NOT FULLY CLEAR          *   DOC FILE
//*                 PREEXISTING DIRECTORY INFORMATION WHEN          *   DOC FILE
//*                 PERFORMING AN ADDSTATS OPERATION.               *   DOC FILE
//*                                                                 *   DOC FILE
//*              4  ALIAS, COMPARE, RENAME OR RESTORE FROM COMMAND  *   DOC FILE
//*                 LINE IN MEMLIST JUST AFTER OPTION 4 (SUBLIST):  *   DOC FILE
//*                 THE FIRST MEMBER OF THE SUBLIST WAS USED        *   DOC FILE
//*                 INSTEAD OF THE MEMBER NAME ENTERED.             *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  UPDATE TO FILE 296 FROM MR BRUCE LELAND OF SERENA    *   DOC FILE
//*            THIS HAS BEEN UPDATED TO:                            *   DOC FILE
//*                A.  COMPARE  - RETURN DATA TO PDS VER 8.3        *   DOC FILE
//*                B.  DSAT     - RETURN DATA TO PDS VER 8.3        *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-305 SECTION                                          *   DOC FILE
//*  V-305  CHANGES FOR VERSION 305 MAY 04, 1989                    *   DOC FILE
//*         1  A NOTE TO LET YOU KNOW THAT THE VERSION OF MCS       *   DOC FILE
//*            (ALIAS DIDOCS, CONSOLE) IN FILE 418 OF THIS TAPE     *   DOC FILE
//*            RUNS UNDER MVS/ESA                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  ADDITION OF FILES 109 AND 110 FROM MR ROBERT COLLINS *   DOC FILE
//*            OF FIRST CHICAGO WHICH CONTAINS A COPY OF HIS        *   DOC FILE
//*            IEFACTRT EXIT AND OUTPUT OF IEFACTRT.  THIS CODE     *   DOC FILE
//*            RUNS UNDER MVS/XA 2.2 AND MVS/ESA                    *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  ADDITION OF FILE 111  FROM MR JIM PURDY OF REVLON    *   DOC FILE
//*            WHICH CONTAINS A COPY OF SEVERAL OF THEIR UTILTIES   *   DOC FILE
//*            (MPF EXITS, GDG TSO CP AND TSO SUBMIT EXIT)          *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  UPDATE TO FILE 116 FROM RON TANSKY OF WEBCRAFT.      *   DOC FILE
//*            THIS UPDATE ELIMINATES THE DYNAMIC  ALLOCATION FOR   *   DOC FILE
//*            THE CATALOG PACK                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  UPDATE TO FILE 320 WHICH IS A SERIES OF DF/DSS       *   DOC FILE
//*            DRIVER EXITS FROM LOMA LINDA UNIVERSITY MED CENTER.  *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-304 SECTION                                          *   DOC FILE
//*  V-304  CHANGES FOR VERSION 304 APR 03, 1989                    *   DOC FILE
//*        01  ADDITION OF FILE 106 FROM SUNGARD. THIS FILE         *   DOC FILE
//*            CONTAINS THE SOURCE FOR A PROGRAM TO TELL WHAT RACF  *   DOC FILE
//*            ACCESS THE LISTED USERS HAVE TO THE LISTED DATASETS  *   DOC FILE
//*            PROFILES, ENTITIES OR WHATEVER.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*         02  ADDITION OF FILES 107 AND 108 FROM MR JAMES C       *   DOC FILE
//*             BLALOCK OF CLEMSON UNIVERSITY.  THESE TWO FILES     *   DOC FILE
//*             CONTAINS THE CLEMSON UNIVERSITY STRUCTURED MACRO    *   DOC FILE
//*             LIBRARY AND A SAMPLIB CONTAINING STRUCTURED MACRO   *   DOC FILE
//*             EXAMPLES                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 401 FROM SAM GOLOB TO                 *   DOC FILE
//*            CORRECT A PROBLEM WITH CPCMD TO DO A FREEMAIN WHEN   *   DOC FILE
//*            THE TASK COMPLETES, OTHERWISE IT WILL HOLD 4K OF     *   DOC FILE
//*            CSA EACH TIME IT RUNS                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 422 TO ADD DON MARQUARDT'S CURRENT    *   DOC FILE
//*            PHONE NUMBER                                         *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-303 SECTION                                          *   DOC FILE
//*  V-303  CHANGES FOR VERSION 303 MAR 05, 1989                    *   DOC FILE
//*        01  UPDATE TO FILE 041 FROM BENJ. FRANKLIN FEDERAL       *   DOC FILE
//*            SAVINGS AND LOAN  ASSOCIATION OF PORTLAND OREGON     *   DOC FILE
//*            WHICH CONTAINS A COPY OF THEIR EXITS TO MVS/SP JES2  *   DOC FILE
//*            TO PROVIDE TABLE DRIVEN FORMS CONTROL FOR XEROX      *   DOC FILE
//*            8700 / 9700 LASER PRINTERS TO A JES2 1.3.6 LEVEL     *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE TO FILE 070 FROM GENERAL DYNAMICS WHICH IS    *   DOC FILE
//*            A COPY OF THEIR USER MODS TO AN MVS/XA 2.2.0 LEVEL   *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO  FILE 094 FROM MR MICHAEL CLEARY OF        *   DOC FILE
//*            BERGEN BRUNSWIG CORPORATION WHICH CONTAINS VERSION   *   DOC FILE
//*            1.2 OF DAF (DATASET AUDIT FACILITY)                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  UPDATE TO FILE 271 WHICH IS DYNAMIC PROCLIB TO       *   DOC FILE
//*            VERSION 3 RELEASE 2.2.  SEE THE MEMBER CALLED        *   DOC FILE
//*            #CHANGES WHICH DESCRIBES THE CHANGES IN THIS RELEASE *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-302 SECTION                                          *   DOC FILE
//*  V-302  CHANGES FOR VERSION 302 FEB 08, 1989                    *   DOC FILE
//*        01  UPDATE TO FILE 007 WHICH IS A COPY OF THE SHARE      *   DOC FILE
//*            RACF MODS TAPE NOW MAINTAINED BY MR JIM BLALOCK      *   DOC FILE
//*            AT CLEMSON UNIVERSITY IN ANDERSON, SOUTH CAROLINA    *   DOC FILE
//*            THIS IS VERSION 008 DATED JANUARY 19, 1989           *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-301 SECTION                                          *   DOC FILE
//*  V-301  CHANGES FOR VERSION 301 JAN 24, 1989                    *   DOC FILE
//*        01  UPDATE TO FILE 035 TO CONTAIN A COPY OF THE PL/1     *   DOC FILE
//*            PROGRAM CALLED DAF FROM THE SOURCE IN FILE 094 OF    *   DOC FILE
//*            THIS TAPE, WHICH I FORGOT TO DO IN VERSION 301       *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-300 SECTION                                          *   DOC FILE
//*  V-300  CHANGES FOR VERSION 300 JAN 19, 1989                    *   DOC FILE
//*        01  UPDATE TO FILE 035 TO CONTAIN A COPY OF THE PL/1     *   DOC FILE
//*            PROGRAM CALLED DAF FROM THE SOURCE IN FILE 094 OF    *   DOC FILE
//*            THIS TAPE                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  UPDATE OF FILE 087 FROM MR MARK DIEHL OF HERCULES    *   DOC FILE
//*            ALLEGANY BALLISTICS AND CONTAINS A COPY OF THEIR     *   DOC FILE
//*            ISPF SYSLOG UTILITY SYSTEM                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  UPDATE TO FILE 095 FROM MR PAUL G DAVIS OF ENRON     *   DOC FILE
//*            CORPORATION OF HOUSTON, TEXAS.  THIS FILE CONTAINS   *   DOC FILE
//*            A SERIES OF ISPF EDIT MACROS AND A NEW PROGRAM       *   DOC FILE
//*            CALLED WHOIS WHICH MAY BE OF INTEREST TO ACF2 USERS  *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  ADDITION OF FILE 104 WHICH IS A DSPRINT REPLACEMENT  *   DOC FILE
//*            CALLED JRP.  THIS IS A MODIFIED COPY OF JRP THAT     *   DOC FILE
//*            WAS ORIGINALLY SUBMITTED TO THIS TAPE FROM CONN      *   DOC FILE
//*            MUTUAL LIFE INSURANCE COMPANY.  THIS VERSION HAS     *   DOC FILE
//*            BEEN SUBMITTED BY MR LEWIS D WHALEY OF NUCLEAR       *   DOC FILE
//*            FUEL SERVICES, INC OF ERWIN TN.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  ADDITION OF FILE 105 FROM MR MARK DIEHL OF HERCULES  *   DOC FILE
//*            ALLEGANY BALLISTICS AND CONTAINS A COPY OF THEIR     *   DOC FILE
//*            ISPF OUTLIST UTILITY SYSTEM (REPLACEMENT OF 3.8)     *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  UPDATE TO FILE 264 FROM MR GUY ALBERTELLI OF BF      *   DOC FILE
//*            GOODRICH IN AKRON, OHIO.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  UPDATE TO FILE 418 FROM COMBINED INSURANCE COMPANY.  *   DOC FILE
//*            THE MEMBER CALLED IVP3480 HAS BEEN UPDATED WITH SOME *   DOC FILE
//*            ADDITIONAL ENHANCEMENTS                              *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-299 SECTION                                          *   DOC FILE
//*  V-299  CHANGES FOR VERSION 299 JAN 04, 1989                    *   DOC FILE
//*         1  UPDATE TO FILE 011 TO ADD SOME DOCUMENTATION TO USE  *   DOC FILE
//*            DEBE                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  THE FOLLOWING FILE WAS CHANGED TO AN IEBUPDTE SYSIN  *   DOC FILE
//*            FORMAT:   082                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  ADDITION OF FILE 432 FROM ROCKWELL INTERNATIONAL     *   DOC FILE
//*            OF SEAL BEACH, CALIFORNIA WHICH CONTAINS A COPY      *   DOC FILE
//*            OF THEIR WATERLOO SCRIPT LOAD MODULE CALLED DOCFMT   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-298 SECTION                                          *   DOC FILE
//*  V-298  CHANGES FOR VERSION 298 JAN 03, 1989                    *   DOC FILE
//*         1  THE FOLLOWING FILES WERE CHANGED TO AN IEBUPDTE      *   DOC FILE
//*            SYSIN FORMAT                                         *   DOC FILE
//*                   008     013     017     031     034           *   DOC FILE
//*                   048     049     050     051     058           *   DOC FILE
//*                   059     065     081     082     084           *   DOC FILE
//*                   085     086     089     090     102           *   DOC FILE
//*                   116     155     159     187     225           *   DOC FILE
//*                   226     229     235     260     314           *   DOC FILE
//*                   319     320     339     385     427           *   DOC FILE
//*                   431                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 028 FROM MR SAM GOLOB TO ADD          *   DOC FILE
//*            SYSUT3 AND SYSUT4 STATEMENTS TO THE FILE             *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILE 299 FROM MR SHMUEL GOLOB TO CONTAIN   *   DOC FILE
//*            AN UPDATED COPY OF TAPEMAP. THIS VERSION HAS BEEN    *   DOC FILE
//*            UPDATED TO LOOK FOR A TAPE IN THE CBT MVS            *   DOC FILE
//*            UTILITIES TAPE FORMAT AND PRODUCE AN ABUNDANCE OF    *   DOC FILE
//*            ADDITIONAL INFORMATION TO ALLOW THE USER TO FIND     *   DOC FILE
//*            HIS WAY THROUGH THIS TAPE.                           *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-297 SECTION                                          *   DOC FILE
//*  V-297  CHANGES FOR VERSION 297 DEC 12, 1988                    *   DOC FILE
//*         1  UPDATE TO FILE 007 WHICH IS A COPY OF THE SHARE      *   DOC FILE
//*            RACF MODS TAPE MAINTAINED BY STUART J. SABEL OF      *   DOC FILE
//*            BLUE CROSS OF WASHINGTON AND ALASKA IN SEATTLE       *   DOC FILE
//*            WASHINGTON.                                          *   DOC FILE
//*            THIS IS VERSION 006 DATED NOVEMBER 30, 1988          *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO  FILE 094 FROM MR MICHAEL CLEARY OF        *   DOC FILE
//*            BERGEN BRUNSWIG CORPORATION WHICH CONTAINS VERSION   *   DOC FILE
//*            1.1 OF DAF (DATASET AUDIT FACILITY)                  *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  ADDITION OF FILE 102 FROM MR FRANK PAJERSKI OF       *   DOC FILE
//*            SYNTELLIGENCE OF SUNNYVALE, CA. WHICH CONTAINS A     *   DOC FILE
//*            COPY OF TAPESCAN THAT WILL RUN UNDER MVS/XA 2.2      *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  ADDITION OF FILE 103 FROM MR WILLIAM R HORTON OF     *   DOC FILE
//*            TENNESSEE EASTMAN COMPANY OF KINGSPORT, TN WHICH     *   DOC FILE
//*            CONTAINS A COPY OF THEIR ISPF CONSOLE DIALOG AND     *   DOC FILE
//*            GRS/ENQ DIALOG                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  UPDATE TO FILE 182 TO CORRECT A MINOR ERROR IN THE   *   DOC FILE
//*            MEMBER CALLED " DIALOG" WITH AN AT SIGN AS THE FIRST *   DOC FILE
//*            CHARACTER                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  UPDATE TO FILE 299 FROM MR SHMUEL GOLOB              *   DOC FILE
//*            TO CONTAIN AN UPDATED COPY OF TAPEMAP. THIS VERSION  *   DOC FILE
//*            HAS BEEN UPDATED TO LOOK FOR A TAPE IN THE CBT MVS   *   DOC FILE
//*            UTILITIES TAPE FORMAT AND PRODUCE AN ABUNDANCE OF    *   DOC FILE
//*            ADDITIONAL INFORMATION TO ALLOW THE USER TO FIND     *   DOC FILE
//*            HIS WAY THROUGH THIS TAPE.        THIS FILE IS       *   DOC FILE
//*            NOW IN IEBUPDTE SYSIN FORMAT AND CONTAINS            *   DOC FILE
//*            THE ORIGINAL COPY OF TAPEMAP AND THE UPDATED COPY    *   DOC FILE
//*            OF TAPEMAP.  SEE THE MEMBER CALLED $$DOC FOR         *   DOC FILE
//*            ADDITIONAL INFORMATION OF WHAT IS IN THE PDS AND     *   DOC FILE
//*            SEE THE MEMBER CALLED TAPEMAP FOR ALL THE CHANGES    *   DOC FILE
//*                                                                 *   DOC FILE
//*         7  UPDATE TO FILE 369 FROM THE PLANNING RESEARCH        *   DOC FILE
//*            CORPORATION OF WASHINGTON DC.  THIS IS VERSION 4.0   *   DOC FILE
//*                                                                 *   DOC FILE
//*         8  UPDATE TO FILE 381 FROM FIRST COMPUTER SERVICES      *   DOC FILE
//*            (FORMERLY NORTHWESTERN BANK) WHICH CONTAINS A COPY   *   DOC FILE
//*            OF THEIR JES2 EXITS UP TO A 2.2.0 LEVEL              *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-296 SECTION                                          *   DOC FILE
//*  V-296  CHANGES FOR VERSION 296 NOV 01, 1988                    *   DOC FILE
//*         1  UPDATE TO FILE 001 TO GIVE INFORMATION ON HOW TO     *   DOC FILE
//*            ORDER THE SHARE PL/1 MODIFICATION TAPE               *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 001 TO GIVE INFORMATION ON HOW TO     *   DOC FILE
//*            GET INFORMATION ABOUT THE NASPA VIP MVS TAPE         *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  ADDITION TO FILE 032 FROM MR SAM GOLOB               *   DOC FILE
//*            TO ADD DOWNDATE TO THIS FILE.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  UPDATE TO FILE 035 TO CONTAIN A COPY OF PDS VERSION  *   DOC FILE
//*            8.2                                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  UPDATE TO FILE 046 WHICH A FULL SCREEN TSO CP        *   DOC FILE
//*            SCRATCH PROGRAM FROM MASS MUTUAL VIA S. GOLOB AND    *   DOC FILE
//*            BRUCE LELAND.  THIS VERSION SUPPORTS MVS/XA          *   DOC FILE
//*            AND MVS/370.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  ADDITION OF FILE 096 FROM UNIVERSITY OF MISSOURI     *   DOC FILE
//*            - COLUMBIA HOSPITAL AND CLINICS OF COLUMBIA, MO      *   DOC FILE
//*            WHICH CONTAINS SEVERAL OF THEIR UTILITIES AND SYSTEM *   DOC FILE
//*            EXITS                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*         7  ADDITION OF FILE 097 FROM U.S. BANK OF WASHINGTON,   *   DOC FILE
//*            FORMERLY PEOPLES NATIONAL BANK OF WASHINGTON.  THIS  *   DOC FILE
//*            FILE CONTAINS A COMPLETE DISK MANAGEMENT AND BILLING *   DOC FILE
//*            SYSTEM                                               *   DOC FILE
//*                                                                 *   DOC FILE
//*         8  ADDITION OF FILES 098 AND 099 FROM DAYCO PRODUCTS    *   DOC FILE
//*            OF DAYTON, OHIO.   THESE FILES CONTAIN A COPY OF     *   DOC FILE
//*            THEIR ISPF UTILITES FOR USE WITH THE TSO/E           *   DOC FILE
//*            XMIT / RECEIVE FUNCTION                              *   DOC FILE
//*                                                                 *   DOC FILE
//*         9  UPDATE TO FILE 112 FROM MR BRUCE LELAND OF SERENA    *   DOC FILE
//*            TO UPDATE VTOC TO:                                   *   DOC FILE
//*                A.  RETURN DATA TO THE PDS PROGRAM               *   DOC FILE
//*                B.  ADD AN NEW KEYWORD OF EXCLUDE LEVEL          *   DOC FILE
//*                C.  CORRECT DATA SET NAME SORT ERROR             *   DOC FILE
//*                D.  INCREASE NUMBER OF DATA SETS TO BE TABLED    *   DOC FILE
//*                    IN STORAGE                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  UPDATE TO FILE 161 FROM THE AIR FORCE WHICH CONTAINS *   DOC FILE
//*            A COPY OF THEIR ISPF/PDF CODE TO VERSION 11 DATED    *   DOC FILE
//*            SEPTEMBER 1, 1988                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  UPDATE TO FILE 182 TO CONTAIN A NEW VERSION OF THE   *   DOC FILE
//*            PDS TSO CP.  VERSION 8.2                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  UPDATE TO FILE 296 FROM MR BRUCE LELAND OF SERENA    *   DOC FILE
//*            THIS HAS BEEN UPDATED TO:                            *   DOC FILE
//*                A.  COMPARE  - MODIFIED TO FREEPOOL STORAGE      *   DOC FILE
//*                             - MODIFIED TO COMPARE AN ENTIRE PDS *   DOC FILE
//*                B.  DSAT     - MODIFIED TO SUPPORT GDG IN ICF    *   DOC FILE
//*                               CATALOGS                          *   DOC FILE
//*                C.  RELEASE  - MODIFIED TO OPERATE WITH SWAP     *   DOC FILE
//*                               ABOVE THE 16 MEG LINE             *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  UPDATE TO FILE 300 FROM THE AIR FORCE TO             *   DOC FILE
//*            VERSION 23.0 SEPTEMBER 1, 1988                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  UPDATE TO FILE 316 FROM THE AIR FORCE TO             *   DOC FILE
//*            VERSION 18.0 SEPTEMBER 1, 1988                       *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-295 SECTION                                          *   DOC FILE
//*  V-295  CHANGES FOR VERSION 295 SEP 27, 1988                    *   DOC FILE
//*         1  UPDATE TO FILE 095 FROM MR PAUL G DAVIS OF           *   DOC FILE
//*            EDS IN LOUISVILLE, COLORADO.  THIS FILE CONTAINS     *   DOC FILE
//*            A SERIES OF ISPF EDIT MACROS                         *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-294 SECTION                                          *   DOC FILE
//*  V-294  CHANGES FOR VERSION 294 SEP 14, 1988                    *   DOC FILE
//*         1  ADDITION OF FILE 017 FROM FIREMAN'S FUND WHICH       *   DOC FILE
//*            CONTAINS A COPY OF THEIR LISTDD TSO CP               *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  ADDITION OF FILES 091 AND 092 WHICH CONTAIN:         *   DOC FILE
//*                A. PROCEDURES FOR PL/I F                         *   DOC FILE
//*                B. PL/I F COMPILER AND SUBROUTINE LIBRARY        *   DOC FILE
//*            THESE FILES ARE FROM THE U.S. AIR FORCE IN           *   DOC FILE
//*            SAN ANTONIO.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  ADDITION OF FILE 093 WHICH CONTAINS A SYSTEM TO      *   DOC FILE
//*            SEQUENTIALIZE A PDS (ANY LRECL) FROM THE PL/I SHARE  *   DOC FILE
//*            TAPE VIA MR SAM GOLOB.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  ADDITION OF FILE 094 FROM MR MICHAEL CLEARY OF       *   DOC FILE
//*            BERGEN BRUNSWIG CORPORATION WHICH CONTAINS A COPY    *   DOC FILE
//*            OF DAF (DATASET AUDIT FACILITY)                      *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  ADDITION OF FILE 095 FROM MR PAUL G. DAVIS OF        *   DOC FILE
//*            EDS IN LOUISVILLE, COLORADO.  THIS FILE CONTAINS     *   DOC FILE
//*            A SERIES OF ISPF EDIT MACROS                         *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-293 SECTION                                          *   DOC FILE
//*  V-293  CHANGES FOR VERSION 293 JUL 28, 1988                    *   DOC FILE
//*         1  REMOVAL OF FILES 453-456 WHICH CONTAINED             *   DOC FILE
//*                A. PROCEDURES FOR FREE VERSIONS OF:              *   DOC FILE
//*                   1. PL/I F                                     *   DOC FILE
//*                   2. FORTRAN G                                  *   DOC FILE
//*                   3. FORTRAN H (GODDARD SPACE FLIGHT CENTER     *   DOC FILE
//*                      VERSION )                                  *   DOC FILE
//*                   4. RPG                                        *   DOC FILE
//*                B. PL/I F COMPILER AND SUBROUTINE LIBRARY        *   DOC FILE
//*                C. FORTRAN G & H COMPILES AND SUBROUTINE LIBRARY *   DOC FILE
//*             THIS WAS REMOVED BECAUSE OF LIMITED SPACE REMAINING *   DOC FILE
//*             ON THE PHYSICAL TAPE REEL.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  ADDITION OF FILE 332 WHICH IS AN AUTOMATIC JOB       *   DOC FILE
//*            SUBMISSION/SCHEDULER. THIS IS AN UPDATED FROM        *   DOC FILE
//*            WESTERN GEOPHYSICAL OF HOUSTON, TEXAS. THIS CODE     *   DOC FILE
//*            WAS ORIGINALLY PLACED ON THE TAPE FROM CAMERON       *   DOC FILE
//*            IRON WORKS                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  ADDITION OF FILE 015 FROM WARNER BROTHERS OF BURBANK *   DOC FILE
//*            CALIFORNIA WHICH CONTAINS SEVERAL OF THEIR UTILITIES *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  UPDATE TO FILE 065 TO CORRECT AN ERROR               *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  ADDITION OF FILE 016 FROM SCOTT AND WHITE HOSPITAL   *   DOC FILE
//*            OF TEMPLE, TEXAS WHICH CONTAINS SOME OF THEIR        *   DOC FILE
//*            UTILITIES.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  UPDATE TO FILE 035 TO HAVE THE LOAD MODULE CALLED    *   DOC FILE
//*            VSAMMAPP FROM FILE 218 OF THIS TAPE                  *   DOC FILE
//*                                                                 *   DOC FILE
//*         7  UPDATE TO FILE 271 WHICH IS DYNAMIC PROCLIB TO       *   DOC FILE
//*            VERSION 3 RELEASE 2.1.  SEE THE MEMBER CALLED        *   DOC FILE
//*            #CHANGES WHICH DESCRIBES THE CHANGES IN THIS RELEASE *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-292 SECTION                                          *   DOC FILE
//*  V-292  CHANGES FOR VERSION 292 JUN 19, 1988                    *   DOC FILE
//*         1  ADDITION OF FILE 122 FROM ALLEGRAN INC OF IRVINE     *   DOC FILE
//*            CALIFORNIA WHICH CONTAINS A COPY OF THE RMSG SUB -   *   DOC FILE
//*            SYSTEM AND SOME OF THEIR JES2 EXITS                  *   DOC FILE
//*            THE RMSG SUB-SYSTEM IS AN 'AUTOMATIC OPERATOR'       *   DOC FILE
//*            SYSTEM THAT MONITORS AND REACTS TO SELECTED CONSOLE  *   DOC FILE
//*            THAT MONITORS AND REACTS TO SELECTED CONSOLE         *   DOC FILE
//*            TRAFFIC AND USER WRITTEN COMMANDS                    *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 126 FROM JIM GIBSON OF L.L. BEAN      *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILE 182 (THE PDS COMMAND PROCESSOR) TO    *   DOC FILE
//*            ADD THE FOLLOWING MEMBERS TO THE IEBCOPY MEMBER      *   DOC FILE
//*            CALLED PDSPJCL:                                      *   DOC FILE
//*              P81PNFB  P81PNIB  P81PN8B  P81SETL1                *   DOC FILE
//*              P81SETL3 P81SETL4 P81VREC* (* IS REALLY AN AT SIGN)*   DOC FILE
//*                                                                 *   DOC FILE
//*         4  UPDATE TO FILE 418 FROM COMBINED INSURANCE COMPANY.  *   DOC FILE
//*            THE FOLLOWING MEMBER WAS UPDATED TO VERSION 2.2.0    *   DOC FILE
//*                   A.  MCS                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  UPDATE TO FILE 384 FROM COMPUTER DATA SYSTEMS INC    *   DOC FILE
//*            OF ROCKVILLE, MARYLAND TO:                           *   DOC FILE
//*                                                                 *   DOC FILE
//*              A  QISP136 IS NOW SUPPORTING MVS SP136 AND ISPF    *   DOC FILE
//*                 VERSION 2. NEW QUEUE/ISPF TUTORIALS INCLUDED    *   DOC FILE
//*                 SUPPORT FOR MVS SP134 AND EARLIER ISPF VERSIONS *   DOC FILE
//*                                                                 *   DOC FILE
//*              B  LISTPDSI PROGRAM TO LIST MEMBERS BY ISPF        *   DOC FILE
//*                 MODIFIED OR CREATED DATE.  SEE LOCMEM MEMBER    *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-291 SECTION                                          *   DOC FILE
//*  V-291  CHANGES FOR VERSION 291 MAY 22, 1988                    *   DOC FILE
//*         1  EFFECTIVE IMMEDIATELY FILES THAT HAVE BEEN ON THE    *   DOC FILE
//*            TAPE FOR 2-3 YEARS WITHOUT BEING UPDATED WILL NOW    *   DOC FILE
//*            BE PRIME CANDIDATES FOR BEING PURGED FROM THE TAPE.  *   DOC FILE
//*            YOU MAY WANT TO KEEP THIS VERSION FOREVER, THEN      *   DOC FILE
//*            AGAIN YOU MAY NOT                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 080 FROM THE CITY OF LONG BEACH       *   DOC FILE
//*            TO CONTAIN NEW CODE AND UPDATE CODE PREVIOUSLY       *   DOC FILE
//*            SUBMITTED                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILE 118 WHICH IS A COPY OF AN SMP PUTXREF *   DOC FILE
//*            PROGRAM FROM THE HARTFORD INSURANCE GROUP FROM MR    *   DOC FILE
//*            SHMUEL GOLOB TO CORRECTLY DETERMINE WHAT FMID A      *   DOC FILE
//*            SYSMOD BELONGS TO. A NEW MEMBER CALLED $PUTXREF      *   DOC FILE
//*            CONTAINS A DESCIPTION OF BUGS THAT HAVE BEEN FIXED.  *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  UPDATE TO FILE 047 FROM MANUFACTURERS LIFE           *   DOC FILE
//*            INSURANCE COMPANY OF TORONTO CANADA.  THIS FILE NOW  *   DOC FILE
//*            CONTAINS WHAT USE TO BE IN FILE 425 OF THIS TAPE     *   DOC FILE
//*            ALSO SEVERAL NEW THINGS HAVE BEEN ADDED TO THIS      *   DOC FILE
//*            FILE                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  ADDITION OF FILE 068 FROM MR SAM THEIS  OF CHEVRON   *   DOC FILE
//*            GEOSCIENCES COMPANY, TEXAS.  THIS FILE CONTAINS      *   DOC FILE
//*            A COPY OF SPY AND CONSOLE THAT HAVE BEEN UPDATED     *   DOC FILE
//*            TO SUPPORT MVS XA 2.2.0.  THIS CODE ALSO GOES BY     *   DOC FILE
//*            THE NAME OF DIDOCS                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  REMOVAL OF FILE 425 FROM THIS TAPE, THIS CODE IS     *   DOC FILE
//*            NOW CONTAINED IN FILE 047 OF THIS TAPE               *   DOC FILE
//*                                                                 *   DOC FILE
//*         7  UPDATE TO FILE 260 WHICH IS THE DISKMAP PROGRAM      *   DOC FILE
//*            MR HENRY  FARINEAU OF STATE MUTUAL TO MODIFY THE     *   DOC FILE
//*            PROGRAM TO ALLOW FOR MORE THAN 16 EXTENTS ON A VSAM  *   DOC FILE
//*            FILE. WITHOUT THIS CHANGE, DISKMAP LISTS INCORRECT   *   DOC FILE
//*            ALLOC AND USED VALUES, AND THE MAP LISTING SHOWS     *   DOC FILE
//*            MISSING AND OVERLAP TRACKS                           *   DOC FILE
//*                                                                 *   DOC FILE
//*         8  UPDATE TO FILE 112 WHICH IS THE VTOC TSO CP FROM     *   DOC FILE
//*            MR HENTRY FARINEAU OF STATE MUTUAL TO MODIFY TWO     *   DOC FILE
//*            CSECTS:                                              *   DOC FILE
//*                   (A) VTOCFORM - MODIFIED TO CHANGE THE VALUES  *   DOC FILE
//*                                  F500, F1000, F500000 AND       *   DOC FILE
//*                                  F1000000 TO REFLECT TRUE       *   DOC FILE
//*                                  KBYTES AND MBYTES, IE F500     *   DOC FILE
//*                                  SHOULD BE 512, F1000 SHOULD BE *   DOC FILE
//*                                  1024, F500000 SHOULD BE        *   DOC FILE
//*                                  524288 AND F1000000 SHOULD BE  *   DOC FILE
//*                                  F1048576                       *   DOC FILE
//*                                                                 *   DOC FILE
//*                   (B) VTOCPRNT - MODIFIED TO ALLOW FOR 7        *   DOC FILE
//*                                  POSITIONS UNDER THE ALLOC AND  *   DOC FILE
//*                                  UNUSED COLUMNS. THESE FIELDS   *   DOC FILE
//*                                  WILL CONTAIN ASTERISKS WHEN    *   DOC FILE
//*                                  REQUESTING LARGE FILES WITH    *   DOC FILE
//*                                  THE KB OPTION. SINCE 2         *   DOC FILE
//*                                  CHARACTERS WERE NEEDED, THE    *   DOC FILE
//*                                  SIZE OF THE 'ROUND' FIELD WAS  *   DOC FILE
//*                                  REDUCED BY CHANGING THE        *   DOC FILE
//*                                  HEADING FOR THE COLUMN TO      *   DOC FILE
//*                                  'RND'                          *   DOC FILE
//*                                                                 *   DOC FILE
//*                   *** BE CAREFUL IF YOU ARE USING THE OUTPUT    *   DOC FILE
//*                       OF VTOC TO DO FURTHER POST PROCESSING     *   DOC FILE
//*                       SINCE THE OUTPUT FORMAT HAS CHANGED ***   *   DOC FILE
//*                                                                 *   DOC FILE
//*         9  UPDATE TO FILE 028 FROM MR SAM GOLOB                 *   DOC FILE
//*            WHICH CONTAINS A COPY OF HIS CLISTS WHICH WILL       *   DOC FILE
//*            CONVERT A LIST OF DATASET NAMES TO DISK-TO-TAPE      *   DOC FILE
//*            BACKUP JCL TO USE A " FTL " WHICH IS ON FILE         *   DOC FILE
//*            270 OF THIS TAPE.  SEE THE MEMBER CALLED $$$DOC3     *   DOC FILE
//*            FOR ADDITIONAL INFORMATION                           *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-290 SECTION                                          *   DOC FILE
//*  V-290  CHANGES FOR VERSION 290 MAY 01, 1988                    *   DOC FILE
//*         1  ADDITION OF FILE 088 FROM MR BRIAN WESTERMAN OF      *   DOC FILE
//*            BRIPER INDUSTRIES OF PHONEIX, ARIZONA.  THIS FILE    *   DOC FILE
//*            CONTAINS SEVERAL OF THEIR UTILITIES                  *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 299 FROM MR TENNIE OLSON TO CONTAIN   *   DOC FILE
//*            A VERSION OF TAPEMAP THAT CORRECTLY CALCULATES THE   *   DOC FILE
//*            FOOTAGE OF A 3480 TAPE CARTRIDGE                     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-289 SECTION                                          *   DOC FILE
//*  V-289  CHANGES FOR VERSION 289 APRIL 17, 1988                  *   DOC FILE
//*         1  UPDATE TO FILE 407 FROM MR JOHN WILLIAMS OF WESTERN  *   DOC FILE
//*            UNION/EDS AND MR JEFF BROIDO AT WESTERN UNION/EDS OF *   DOC FILE
//*            MAHWAH, NEW JERSEY TO CONTAIN A COPY OF DYNABLDL FOR *   DOC FILE
//*            MVS/XA.  FOR XA INFORMATION SEE THE MEMBER CALLED    *   DOC FILE
//*            $$XADOC                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  CHANGED FILE 278 FROM IEBCOPY FORMAT TO IEBUPDTE     *   DOC FILE
//*            SYSIN FORMAT TO SAVE SPACE                           *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILE 400 WHICH IS DYNAMASK TO ADD A        *   DOC FILE
//*            FLAG THAT IS REQUIRED NOW FOR SOME KINDS OF          *   DOC FILE
//*            PROCESSING OF 3480 TAPES                             *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-288 SECTION                                          *   DOC FILE
//*  V-288  CHANGES FOR VERSION 288 MARCH 27, 1988                  *   DOC FILE
//*         1  UPDATE TO FILES 035 AND 182 TO CORRECT A MINOR       *   DOC FILE
//*            ERROR WITH THE PDS COMMAND PROCESSOR                 *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 022 FROM MR MARK HEDGES OF ADRIA      *   DOC FILE
//*            LABORATORIES, DUBLIN, OHIO.                          *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-287 SECTION                                          *   DOC FILE
//*  V-287  CHANGES FOR VERSION 287 MARCH 27, 1988                  *   DOC FILE
//*         1  UPDATE TO FILES 035 AND 182 TO CORRECT A MINOR       *   DOC FILE
//*            ERROR WITH THE PDS COMMAND PROCESSOR                 *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  ADDITION OF FILE 014 FROM MR SAM GOLOB               *   DOC FILE
//*            WHICH CONTAIN A SERIES OF ARTICLES WRITTEN FOR NASPA *   DOC FILE
//*            THE ARTICLES PERTAIN LARGELY TO PROGRAMS ON THIS     *   DOC FILE
//*            TAPE, AND TO TOPICS OF GENERAL SYSTEMS PROGRAMMER    *   DOC FILE
//*            INTEREST    (SEE FILE 120 FOR SAM'S COLUMNS)         *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-286 SECTION                                          *   DOC FILE
//*  V-286  CHANGES FOR VERSION 286 MARCH 13, 1988                  *   DOC FILE
//*         1  UPDATE TO FILES 035 AND 182 TO CORRECT A MINOR       *   DOC FILE
//*            ERROR                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 271 WHICH IS DYNAMIC PROCLIB TO       *   DOC FILE
//*            VERSION 3 RELEASE 2.0.  THIS VERSION CONTAINS        *   DOC FILE
//*            NUMEROUS ENHANCEMENTS WHICH CORRECT A MINOR          *   DOC FILE
//*            MVS/SP 2.2.0 INCOMPATIBILITY, SIMPLIFY INSTALLATION, *   DOC FILE
//*            ELIMINATE THE REQUIREMENTS FOR ALL BUT ONE SUPERZAP  *   DOC FILE
//*            MODIFICATION, ELIMINATE THE SPECIAL SYSTEM PROCLIB   *   DOC FILE
//*            DD STATEMENTS IN THE JES PROC AND SUBSTANTIALLY      *   DOC FILE
//*            CLEAN UP THE IEFVPP SOURCE. A DETAILED LIST OF THE   *   DOC FILE
//*            CHANGES WILL BE FOUND IN THE #CHANGES MEMBER OF THE  *   DOC FILE
//*            DATA SET. MORE COMPREHENSIVE INSTALLATION            *   DOC FILE
//*            INSTRUCTIONS ARE PROVIDED. THE SUPPLIED SMP FORMAT   *   DOC FILE
//*            MODIFICATIONS COVER MVS/SP 1.3.X, 2.1.X AND 2.2.0    *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-285 SECTION                                          *   DOC FILE
//*  V-285  CHANGES FOR VERSION 285 MARCH 06, 1988                  *   DOC FILE
//*         1  UPDATE TO FILE 182 TO CONTAIN A NEW VERSION OF THE   *   DOC FILE
//*            PDS TSO CP.  VERSION 8.1                             *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 035 TO CONTAIN A COPY OF PDS VERSION  *   DOC FILE
//*            8.1                                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO  FILE 393 WHICH IS A COPY OF THE TSO CP    *   DOC FILE
//*            CALLED QUE THAT WILL RUN UNDER MVS/SP2.2.0. THIS     *   DOC FILE
//*            VERSION WAS LIFTED FROM VERSION 086 OF THE JES2      *   DOC FILE
//*            MODS TAPE                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  UPDATE TO FILE 400 FROM SECURITY PACIFIC NATIONAL    *   DOC FILE
//*            BANK TO CONTAIN AN UPDATED COPY OF DYNAMASK WHICH    *   DOC FILE
//*            WILL RUN UNDER MVS/XA 2.2.0                          *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-284 SECTION                                          *   DOC FILE
//*  V-284  CHANGES FOR VERSION 284 FEBRUARY 07, 1988               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-283 SECTION                                          *   DOC FILE
//*  V-283  CHANGES FOR VERSION 283 FEBRUARY 02, 1988               *   DOC FILE
//*         1  UPDATE TO FILE 261 FROM MR DICK RIEGNER OF UNIROYAL  *   DOC FILE
//*            GOODRICH TIRE CO OF AKRON, OHIO.   THIS UPDATE       *   DOC FILE
//*            IS TO #J (CSCSL03D) TO XA 2.1.7 AT AN 8708 LEVEL     *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 182 THE PDS TSO COMMAND PROCESSOR     *   DOC FILE
//*            FROM MR SAM GOLOB.              THIS UPDATE IS TO    *   DOC FILE
//*            ADD FOUR ADDITIONAL MEMBERS TO THE FILE.  THESE      *   DOC FILE
//*            MEMBERS ARE CALLED:  $PDSART0 $PDSART1 $PDSART2      *   DOC FILE
//*            $PDSART3.  THESE MEMBERS CONSTITUE A SHORT COURSE    *   DOC FILE
//*            IN THE USE OF THE PDS COMMAND PROCESSOR              *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-282 SECTION                                          *   DOC FILE
//*  V-282  CHANGES FOR VERSION 282 JANUARY 25, 1988                *   DOC FILE
//*         1  UPDATE TO FILE 407 WHICH IS DYNAMIC BLDL FROM FROM   *   DOC FILE
//*            SAM GOLOB TO A DFP 1.2 (JDQ1111) VERSION.            *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 270 FROM THE WASHINGTON STATE DP      *   DOC FILE
//*            SERVICE CENTER TO VERSION 7 OF THEIR MODS            *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILE 418 FROM COMBINED INSURANCE COMPANY.  *   DOC FILE
//*            THE FOLLOWING MEMBERS WERE UPDATED:                  *   DOC FILE
//*                   A.  ACFEXPDT                                  *   DOC FILE
//*                   B.  ACFVIOS                                   *   DOC FILE
//*                   C.  ACFXPIRE                                  *   DOC FILE
//*                   D.  IVP3480                                   *   DOC FILE
//*                   E.  USERCFDE                                  *   DOC FILE
//*                   F.  USERLID                                   *   DOC FILE
//*            SEE THE MEMBER CALLED $INDEX TO SEE EXACTLY WHAT     *   DOC FILE
//*            WAS CHANGED                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  ADDITION OF FILE 087 FROM MR MARK DIEHL OF HERCULES  *   DOC FILE
//*            ALLEGANY BALLISTICS AND CONTAINS A COPY OF THEIR     *   DOC FILE
//*            ISPF SYSLOG UTILITY SYSTEM                           *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  UPDATE TO FILE 007 WHICH IS A COPY OF THE SHARE      *   DOC FILE
//*            RACF MODS TAPE MAINTAINED BY STUART J. SABEL OF      *   DOC FILE
//*            BLUE CROSS OF WASHINGTON AND ALASKA IN SEATTLE       *   DOC FILE
//*            WASHINGTON.                                          *   DOC FILE
//*            THIS IS VERSION 005 DATED JANUARY 19, 1988           *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  ADDITION OF FILES 113 - 115 FROM COMMERCIAL UNION    *   DOC FILE
//*            INSURANCE COMPANIES OF BOSTON, MASS WHICH CONTAINS   *   DOC FILE
//*            A COPY OF THEIR SMPSCAN PROGRAM                      *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-281 SECTION                                          *   DOC FILE
//*  V-281  CHANGES FOR VERSION 281 JANUARY 01, 1988                *   DOC FILE
//*         1  UPDATE TO FILE 007 WHICH IS A COPY OF THE SHARE      *   DOC FILE
//*            RACF MODS TAPE MAINTAINED BY STUART J. SABEL OF      *   DOC FILE
//*            BLUE CROSS OF WASHINGTON AND ALASKA IN SEATTLE       *   DOC FILE
//*            WASHINGTON.                                          *   DOC FILE
//*            THIS IS VERSION 004 DATED DECEMBER 15, 1987          *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  ADDITION OF FILE 058 FROM MR CHUCK HOFFMAN OF GTE IN *   DOC FILE
//*            WALTHAM, MA WHICH CONTAINS A COPY OF HIS TSO         *   DOC FILE
//*            COMMAND CALLED " LINKLIST " WHICH SHOWS THE SYSTEM   *   DOC FILE
//*            ID THE LINKLIST FOR THE RUNNING SYSTEM               *   DOC FILE
//*            ISPF                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  ADDITION OF FILE 065 FROM JAMES PURDY OF REVLON      *   DOC FILE
//*            WHICH CONTAINS A MODIFICATION TO RECOGNIZE A DATASET *   DOC FILE
//*            IN THE LINKLIST THAT IS EITHER NOT CATALOGUED OR IS  *   DOC FILE
//*            CATALOGUED BUT NOT IN THE MVS MASTER CATALOG.  THERE *   DOC FILE
//*            ARE TWO LEVEL OF THE MOD                             *   DOC FILE
//*                                                                 *   DOC FILE
//*                  01. 8607 LEVEL OF MVS/SP2.1.7 (JBB2125)        *   DOC FILE
//*                  02. 8708 LEVEL OF MVS/SP2.2.0 (JBB2220)        *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  ADDITION OF FILE 066 FROM MR ALAN FIELD OF SUPER VALU*   DOC FILE
//*            WHICH CONTAINS A COPY OF SEVERAL OF THEIR UTILITIES  *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  ADDITION OF FILE 067 FROM COCA COLA COMPANY WHICH    *   DOC FILE
//*            CONTAINS TWO EXITS THAT ARE USED TO CONTROL VIO      *   DOC FILE
//*            ALLOCATION SIZE, FORCE TSO TEMPORARY DATA SETS TO    *   DOC FILE
//*            DEDICATED TSO " PUBLIC " VOLUMES AND A FEW OTHER     *   DOC FILE
//*            MISCELLANEOUS FUNCTIONS                              *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  UPDATE TO FILES 035 AND 182 TO CORRECT AN ERROR IN   *   DOC FILE
//*            RENAME SWAP AFTER A SUBLIST IS DONE                  *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-280 SECTION                                          *   DOC FILE
//*  V-280  CHANGES FOR VERSION 280 DECEMBER 15, 1987               *   DOC FILE
//*         1  UPDATE TO THE FOLLOWING FILES ON THIS TAPE TO        *   DOC FILE
//*            HANDLE 3380K'S FROM CBT                              *   DOC FILE
//*                                                                 *   DOC FILE
//*              A.   DSAT     FILE 296                             *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  ADDITION OF FILE 080 FROM THE CITY OF LONG BEACH     *   DOC FILE
//*            WHICH CONTAINS CODE THAT EXTRACTS DATA FROM THE      *   DOC FILE
//*            RACF DATASETS FOR FURTHER PROCESSING                 *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-279 SECTION                                          *   DOC FILE
//*  V-279  CHANGES FOR VERSION 279 NOVEMBER 30, 1987               *   DOC FILE
//*         1  ADDITION OF FILE 385 FROM THE HARTFORD INSURANCE     *   DOC FILE
//*            GROUP WHICH CONTAINS A COPY OF THEIR LPA COMPARE PGM *   DOC FILE
//*            WHICH WAS ACCIDENTLY DELETED FROM THIS TAPE BY       *   DOC FILE
//*            VERSION 273                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 339  FROM E.F. MACDONALD MOTIVATION   *   DOC FILE
//*            WHICH IS A COPY OF THEIR JES2 EXIT # 5 PROGRAM       *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO THE FOLLOWING FILES ON THIS TAPE TO        *   DOC FILE
//*            HANDLE 3380K'S FROM CBT                              *   DOC FILE
//*                                                                 *   DOC FILE
//*              A.   LISTSPC  FILE 049                             *   DOC FILE
//*              B.   DISKSEEK FILE 116                             *   DOC FILE
//*              C.   MAP      FILE 260                             *   DOC FILE
//*              D.   DSAT     FILE 296                             *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  ADDITION OF FILES 053 - 057 FROM MR MIKE LOOS OF     *   DOC FILE
//*            DELUXE CHECK PRINTERS.  THESE FILES CONTAIN A COPY   *   DOC FILE
//*            OF THEIR ISPF UTILITIES                              *   DOC FILE
//*                                                                 *   DOC FILE
//*               Mike Loos                                         *   DOC FILE
//*               VP of Ops and Tech Support                        *   DOC FILE
//*               Fair, Isaac and Company, Inc.                     *   DOC FILE
//*               4295 Lexington Avenue North                       *   DOC FILE
//*               St. Paul, MN  55126                               *   DOC FILE
//*               mikeloos@fairisaac.com                            *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-278 SECTION                                          *   DOC FILE
//*  V-278  CHANGES FOR VERSION 278 OCTOBER 23, 1987                *   DOC FILE
//*         1  UPDATE TO FILE 118 WHICH IS A COPY OF AN SMP PUTXREF *   DOC FILE
//*            PROGRAM FROM THE HARTFORD INSURANCE GROUP FROM MR    *   DOC FILE
//*            SHMUEL GOLOB TO ADD A NEW PROGRAM,                   *   DOC FILE
//*            SMPUPD, THAT IS USED TO BREAK UP A PTF FILE INTO     *   DOC FILE
//*            A PDS, WITH EACH PTF OR SYSMOD AS A SEPARATE         *   DOC FILE
//*            MEMBER.  THIS IS SMP RELEASE INDEPENDENT.            *   DOC FILE
//*                                                                 *   DOC FILE
//*         2. ADDITION OF FILE 046 WHICH A FULL SCREEN TSO CP      *   DOC FILE
//*            SCRATCH PROGRAM FROM MASS MUTUAL                     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-277 SECTION                                          *   DOC FILE
//*  V-277  CHANGES FOR VERSION 277 OCTOBER 18, 1987                *   DOC FILE
//*         1  ADDITION OF FILE 044 FROM YALE UNIVERSITY WHICH      *   DOC FILE
//*            CONTAINS A COPY OF ASMTOZAP                          *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 035 FROM YALE UNIVERSITY WHICH        *   DOC FILE
//*            CONTAINS A COPY OF THE ASMTOZAP LOAD MODULE          *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-276 SECTION                                          *   DOC FILE
//*  V-276  CHANGES FOR VERSION 276 OCTOBER 04, 1987                *   DOC FILE
//*         1  UPDATE TO FILE 325 FROM WELLS FARGO WHICH CONTAINS   *   DOC FILE
//*            MINOR UPDATES                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 137 FROM THE PLANNING RESEARCH CORP   *   DOC FILE
//*            OF MCLEAN, VIRGINIA WHICH CONTAINS SEVERAL OF THEIR  *   DOC FILE
//*            UTILITIES AND SYSTEM MODIFICATIONS                   *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  ADDITION OF FILE 038 FROM MR LARRY WILLIAMS AND      *   DOC FILE
//*            CONTAINS A COPY OF A TSO GAME CALLED ' KLINGON '     *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  ADDITION OF FILE 040 FROM PEOPLES NATIONAL BANK OF   *   DOC FILE
//*            WASHINGTON WHICH CONTAINS SOURCE AND DOCUMENTATION   *   DOC FILE
//*            FOR SEVERAL OF THEIR UTILITIES                       *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-275 SECTION                                          *   DOC FILE
//*  V-275  CHANGES FOR VERSION 275 SEPTEMBER 20, 1987              *   DOC FILE
//*         1  ADDITION OF FILE 010 FROM MR CHUCK HOFFMAN OF GTE IN *   DOC FILE
//*            WALTHAM, MA WHICH CONTAINS A COPY OF HIS TSO         *   DOC FILE
//*            COMMAND CALLED " ISPFPRIM " WHICH ENABLES A USER TO  *   DOC FILE
//*            INVOKE AN ISPF DIALOG FROM READY OR FROM WITHIN      *   DOC FILE
//*            ISPF                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  ADDITION OF FILE 011 FROM MR MILTON SOONG OF INTEL   *   DOC FILE
//*            CORPORATION IN SANTA CLARA, CA. THIS FILE CONTAINS   *   DOC FILE
//*            A MODIFIED COPY OF DEBE THAT WILL RUN UNDER MVS/XA   *   DOC FILE
//*            AND SUPPORT BOTH 3420'S AND 3480'S THIS FILE ALSO    *   DOC FILE
//*            CONTAINS A WTO EXIT AND A PROGRAM TO GET INFO FROM   *   DOC FILE
//*            THE JCT AND FILL IN VARIOUS CLIST VARIABLES          *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILE 418 FROM COMBINED INSURANCE COMPANY.  *   DOC FILE
//*            THE FOLLOWING MEMBERS WERE UPDATED:                  *   DOC FILE
//*                   A.  MCS                                       *   DOC FILE
//*                   B.  IEFUTL                                    *   DOC FILE
//*                   C.  IGGPRE00                                  *   DOC FILE
//*            SEE THE MEMBER CALLED $INDEX TO SEE EXACTLY WHAT     *   DOC FILE
//*            WAS CHANGED                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  UPDATE TO FILE 161 FROM THE AIR FORCE WHICH CONTAINS *   DOC FILE
//*            A COPY OF THEIR ISPF/PDF CODE TO VERSION 10 DATED    *   DOC FILE
//*            AUGUST 15, 1987                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  UPDATE TO FILE 300 FROM THE AIR FORCE TO             *   DOC FILE
//*            VERSION 22.0 AUGUST 15, 1987                         *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  UPDATE TO FILE 316 FROM THE AIR FORCE TO             *   DOC FILE
//*            VERSION 17.0 AUGUST 15, 1987                         *   DOC FILE
//*                                                                 *   DOC FILE
//*         7  UPDATE TO THE FOLLOWING FILES FROM SAM GOLOB         *   DOC FILE
//*             A.  FILE 028                                        *   DOC FILE
//*             B.  FILE 030                                        *   DOC FILE
//*             C.  FILE 036                                        *   DOC FILE
//*             D.  FILE 118                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*         8  ADDITION OF FILE 032 FROM MR SAM GOLOB               *   DOC FILE
//*            WHICH CONTAINS TWO PROGRAMS THAT WERE PREVIOUSLY ON  *   DOC FILE
//*            THIS TAPE, JCLSCAN AND COPYPACK.                     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-274 SECTION                                          *   DOC FILE
//*  V-274  CHANGES FOR VERSION 274 AUGUST 04, 1987                 *   DOC FILE
//*         1  ADDITION OF FILE 036 FROM MR SAM GOLOB               *   DOC FILE
//*            WHICH CONTAINS A COPY OF " FIXPDS UTILITY FOR ISPF " *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILES 035 AND 182 TO CORRECT AN ERROR IN   *   DOC FILE
//*            THE DISPLAY OF DIRECTORY INFORMATION                 *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILE 299 WHICH IS A COPY OF TAPEMAP TO     *   DOC FILE
//*            REMOVE THE OLD COPY OF THE CODE FROM THE FILE        *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  DELETE SOME OF THE OLD CODE.                         *   DOC FILE
//*            SEE NUMBER 01 IN SECTION V-273  OF THIS TAPE ABOUT   *   DOC FILE
//*            HOW ONE CAN GET A HOLD OF SOME OF THIS DELETED STUFF *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  UPDATE TO FILE 007 WHICH IS A COPY OF THE SHARE      *   DOC FILE
//*            RACF MODS TAPE MAINTAINED BY STUART J. SABEL OF      *   DOC FILE
//*            BLUE CROSS OF WASHINGTON AND ALASKA IN SEATTLE       *   DOC FILE
//*            WASHINGTON.                                          *   DOC FILE
//*            THIS IS VERSION 003 DATED JULY 15, 1987              *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  ADDITION OF FILE 009 FROM MR GENE LEW OF MCI WHICH   *   DOC FILE
//*            CONTAINS A COPY OF THEIR RACF EXITS TO IMPLEMENT     *   DOC FILE
//*            RACF 1.7 TAPE DATASET PROTECTION IN " WARNING " MODE *   DOC FILE
//*            THIS FILE IS IN IEBUPDTE SYSIN FORMAT                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-273 SECTION                                          *   DOC FILE
//*  V-273  CHANGES FOR VERSION 273 JUL 08, 1987                    *   DOC FILE
//*         1  ADDITION OF FILE 042         FROM CONNECTICUT BANK   *   DOC FILE
//*            AND TRUST COMPANY.  I HAVE BASICALLY RUN OUT OF ROOM *   DOC FILE
//*            ON THIS TAPE. I AM SENDING TO SPLA A COPY OF VERSION *   DOC FILE
//*            249 (DATED JULY 05, 1985) OF THE MVS MODS TAPE.      *   DOC FILE
//*                                                                 *   DOC FILE
//*            FILE 042 CONTAINS THE DOCUMENT FILE (FILE 001) OF    *   DOC FILE
//*                     VERSION 249                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*            IF YOU ARE GOING TO NEED A COPY OF VERSION 249 YOU   *   DOC FILE
//*            CAN EITHER ORDER DIRECTLY FROM SPLA UNDER            *   DOC FILE
//*            NUMBER 370D-03.0.020                                 *   DOC FILE
//*            (SEE ADDRESS ABOVE) OR ORDER DIRECTLY FROM ME AT     *   DOC FILE
//*            THE CURRENT PRICE. I AM SENDING IT TO SPLA BECAUSE   *   DOC FILE
//*            I WISH TO MAKE SURE THERE IS A COPY SOMEWHERE ELSE.  *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  DUE TO THE EVER INCREASING SIZE OF THIS TAPE IT IS   *   DOC FILE
//*            AGAIN TIME TO DELETE SOME OF THE CODE.               *   DOC FILE
//*            SEE NUMBER 01 IN SECTION V-273  OF THIS TAPE ABOUT   *   DOC FILE
//*            HOW ONE CAN GET A HOLD OF SOME OF THIS DELETED STUFF *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILES 035 AND 182 TO REMOVE THE DEFAULT    *   DOC FILE
//*            SECURITY PACFIC PDSGEN MACRO SHIPPED IN ERROR AND    *   DOC FILE
//*            TO CORRECT ONE MINOR PROBLEM                         *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  UPDATE TO FILE 270 FROM THE WASHINGTON STATE DP      *   DOC FILE
//*            SERVICE CENTER TO VERSION 6 OF THEIR MODS            *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  UPDATE TO FILE 371 FROM THE WASHINGTON STATE DP      *   DOC FILE
//*            SERVICE CENTER WHICH IS THE LOAD MODULE LIBRARY      *   DOC FILE
//*            OF THEIR SOURCE THAT IS CONTAINED IN FILE 270 OF     *   DOC FILE
//*            THIS TAPE.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  UPDATE TO FILE 028 FROM MR SAM GOLOB                 *   DOC FILE
//*            WHICH CONTAINS A COPY OF HIS CLISTS WHICH WILL       *   DOC FILE
//*            CONVERT A LIST OF DATASET NAMES TO DISK-TO-TAPE      *   DOC FILE
//*            BACKUP JCL.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*         7  UPDATE TO FILE 384 TO REMOVE AN OLD VERSION OF QUE   *   DOC FILE
//*                                                                 *   DOC FILE
//*         8  ADDITION OF FILE 033 FROM MR EUGENE D CRAY OF THE    *   DOC FILE
//*            DEPARTMENT OF THE TREASURY OF THE STATE OF NEW       *   DOC FILE
//*            JERSEY.  THIS FILE CONTAINS A COPY OF THEIR PUTXREF  *   DOC FILE
//*            PROGRAM                                              *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-272 SECTION                                          *   DOC FILE
//*  V-272  CHANGES FOR VERSION 272 MAY 01, 1987                    *   DOC FILE
//*         1  UPDATE TO FILE 035 TO HAVE PDS VERSION 8.0 INSTEAD   *   DOC FILE
//*            OF 7.3 AS THE 3 PREVIOUS VERSIONS OF THIS TAPE DID   *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 047 FROM MANUFACTURERS LIFE           *   DOC FILE
//*            INSURANCE COMPANY OF TORONTO CANADA.  THIS FILE      *   DOC FILE
//*            CONTAINS AN UPDATED VERSION OF NOCELL TO LEVEL 1.6.5 *   DOC FILE
//*             HSM SUPORT UPGRADED TO DFHSM 2.1.0                  *   DOC FILE
//*             SOME BUGS FIXED                                     *   DOC FILE
//*             ADDED SELECTION BY DSORG AND CHANGE STATUS          *   DOC FILE
//*             ADDED A " REBLOCKING RECOMMENDATION REPORT " FOR    *   DOC FILE
//*               DASD                                              *   DOC FILE
//*             ADDED 2 NEW MEMBERS THAT ARE NOT PART OF NOCELL     *   DOC FILE
//*               1. SASHSM:  3 SAS PROGRAMS - PROCESS HSM DATASETS *   DOC FILE
//*               2. VETAP :  UPDATE TO FILE 424 WITH UCC1 SUPPORT  *   DOC FILE
//*                           CHANGED TO TLMS II                    *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILE 399 FROM MANUFACTURERS LIFE           *   DOC FILE
//*            INSURANCE COMPANY OF TORONTO CANADA.  THIS FILE      *   DOC FILE
//*            CONTAINS A COPY OF THEIR TSSO 4.2 CLISTS AND AOF     *   DOC FILE
//*            TABLE.  IT IS IN THE MEMBER CALLED MANUAL            *   DOC FILE
//*            THIS MEMBER IS IN IEBUPDTE SYSIN FORMAT BUT THE      *   DOC FILE
//*            "./" CARDS HAVE BEEN CHANGED TO "><" SO YOU MUST     *   DOC FILE
//*            DO A CHANGE ALL AND THEN RUN IEBUPDTE                *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  ADDITION OF FILE 031 FROM MR JIM CRANE OF THE FORD   *   DOC FILE
//*            AEROSPACE & COMMUNICATIONS CORPORATION OF COLORADO   *   DOC FILE
//*            THIS FILE CONTAINS A COPY OF THEIR IGGPRE00 EXIT     *   DOC FILE
//*            THAT WILL ALLOW DASD ALLOCATION OF NEW DATASETS      *   DOC FILE
//*            ONLY ON VOLUMES MOUNTED STORAGE OR PUBLIC UNLESS THE *   DOC FILE
//*            USER HAS BEEN GIVEN RACF "OPERATIONS"                *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  UPDATE TO FILE 278 FROM MR DAVID WEILERT OF WILSON   *   DOC FILE
//*            FOOD CORPORATION IN OKLAHOMA CITY WHICH IS A COPY    *   DOC FILE
//*            OF HIS ISPF DIALOG MANAGER APPLICATION " SLSS "      *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  ADDITION OF FILE 280 FROM MR DAVID WEILERT WHICH     *   DOC FILE
//*            CONTAINS THE UNFORMATTED SCRIPT SOURCE FOR HIS SLSS  *   DOC FILE
//*            ISPF DIALOG MANAGER APPLICATION WHICH IS IN FILE     *   DOC FILE
//*            278 OF THIS TAPE                                     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-271 SECTION                                          *   DOC FILE
//*  V-271  CHANGES FOR VERSION 271 APRIL 16, 1987                  *   DOC FILE
//*         1  UPDATE TO FILE 182 AND FILE 035 OF THIS TAPE TO      *   DOC FILE
//*            CONTAIN A NEW VERSION OF THE TSO CP CALLED PDS       *   DOC FILE
//*            VERSION 8.0.  THIS FILE CORRECTS SOME POTENTIALLY    *   DOC FILE
//*            SERIOUS PROBLEMS WITH VERSION 8.0 THAT WAS ADDED IN  *   DOC FILE
//*            VERSION 269                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  ADDITION OF FILE 007 WHICH IS A COPY OF THE SHARE    *   DOC FILE
//*            RACF MODS TAPE MAINTAINED BY STUART J. SABEL OF      *   DOC FILE
//*            BLUE CROSS OF WASHINGTON AND ALASKA IN SEATTLE       *   DOC FILE
//*            WASHINGTON.                                          *   DOC FILE
//*            THIS IS VERSION 001 DATED APRIL 07, 1987             *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILE 126 FROM JAMES GIBSON OF L.L. BEAN    *   DOC FILE
//*            TO ADD NEW CODE AND UPDATED MODULES.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  UPDATE TO FILE 400 FROM SECURITY PACIFIC NATIONAL    *   DOC FILE
//*            BANK TO CONTAIN AN UPDATED COPY OF DYNAMASK          *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-270 SECTION                                          *   DOC FILE
//*  V-270  CHANGES FOR VERSION 270 APRIL 12, 1987                  *   DOC FILE
//*         1  ADDITION OF FILE 030 FROM MR SAM GOLOB WHICH         *   DOC FILE
//*            CONTAINS A COPY OF HIS MODIFICATION TO CHANGE THE    *   DOC FILE
//*            DEFAULT PFKEYS (MVS/370 AND XA BEFORE 2.2.0)         *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  ADDITION OF FILES 060 - 064 FROM MR CHARLES WELLS    *   DOC FILE
//*            OF THE GEORGIA DEPARTMENT OF LABOR.  THESE FILES     *   DOC FILE
//*            CONTAIN A COPY OF THEIR SOFTWARE STATUS REPORT       *   DOC FILE
//*            ISPF APPLICATION                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILE 137 FROM THE PLANNING RESEARCH        *   DOC FILE
//*            CORP OF MCLEAN, VIRGINIA WHICH CONTAINS SEVERAL      *   DOC FILE
//*            OF THEIR UTILITIES AND SYSTEM MODIFICATIONS          *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  UPDATE TO FILE 369 FROM THE PLANNING RESEARCH        *   DOC FILE
//*            CORPORATION TO INCLUDE SEVERAL OF THEIR UTILITY      *   DOC FILE
//*            PROGRAMS IN ADDITION TO THE I/O COUNT MOD THAT       *   DOC FILE
//*            WAS ORIGINALLY FROM GENERAL ELECTRIC                 *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-269 SECTION                                          *   DOC FILE
//*  V-269  CHANGES FOR VERSION 269 MARCH 31, 1987                  *   DOC FILE
//*         1  UPDATE TO FILE 182 TO CONTAIN A NEW VERSION OF       *   DOC FILE
//*            THE PDS TSO CP.  VERSION 8.0                         *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 035 TO CONTAIN A COPY OF PDS          *   DOC FILE
//*            VERSION 8.0                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILE 296 FROM MR BRUCE LELAND OF SERENA    *   DOC FILE
//*            THIS HAS BEEN UPDATED TO:                            *   DOC FILE
//*                A.  BLKDISK  - MODIFIED TO RETURN OUTPUT TO PDS  *   DOC FILE
//*                B.  COMPARE  - MODIFIED TO RETURN OUTPUT TO PDS  *   DOC FILE
//*                C.  DSAT     - MODIFIED TO RETURN OUTPUT TO PDS  *   DOC FILE
//*                D.  DVOL     - MODIFIED TO RETURN OUTPUT TO PDS  *   DOC FILE
//*                E.  RELEASE  - MODIFIED TO RETURN OUTPUT TO PDS  *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  ADDITION OF FILE 025 FROM TEXAS POWER AND LIGHT.     *   DOC FILE
//*            IT CONTAINS SEVERAL OF THEIR TSO COMMANDS AND A      *   DOC FILE
//*            CONSOLE SIMULATOR.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  ADDITION OF FILE 026 FROM ALLSTATE INSURANCE. THIS   *   DOC FILE
//*            FILE CONTAINS A COPY OF THEIR UTILITY TO RECORD      *   DOC FILE
//*            AND REPORT TSO USER PERFORMANCE SATISFACTION LEVEL.  *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  ADDITION OF FILE 027 FROM DAYCO PRODUCTS INC.        *   DOC FILE
//*            THIS FILE CONTAINS A COPY OF THEIR UTILITY TO MAKE   *   DOC FILE
//*            SURE THE DATE ENTERED INTO A PROGRAM IS CORRECT.     *   DOC FILE
//*                                                                 *   DOC FILE
//*         7  ADDITION OF FILE 028 FROM MR SAM GOLOB WHICH         *   DOC FILE
//*            CONTAINS A COPY OF HIS CLISTS WHICH WILL CONVERT     *   DOC FILE
//*            A LIST OF DATASET NAMES TO DISK-TO-TAPE BACKUP       *   DOC FILE
//*            JCL.                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*         8  ADDITION OF FILE 029 FROM MR SAM GOLOB WHICH         *   DOC FILE
//*            CONTAINS A COPY OF HIS PROCEDURE TO ENLARGE THE      *   DOC FILE
//*            VTOC OF AN ACTIVE DISK PACK                          *   DOC FILE
//*                                                                 *   DOC FILE
//*         9  UPDATE TO FILE 359 FROM MR WILLIAM SMITH OF SYNTEX.  *   DOC FILE
//*            THIS UPDATE CONTAINS A COPY OF THE TSO SUBMIT EXIT   *   DOC FILE
//*            (IKJEFF10) AS DOCUMENTATED IN THE IBM PUBLICATION    *   DOC FILE
//*            "RACF RELEASE 1.7 USAGE GUIDE", INTERNATIONAL        *   DOC FILE
//*            TECHNICAL SUPPORT CENTER, GC24-3069-0, P. 63-70,     *   DOC FILE
//*            AND APPENDIX C," SAMPLE CODING , PAGES 110-138       *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  UPDATE TO FILE 271 WHICH IS DYNAMIC PROCLIB TO       *   DOC FILE
//*            CORRECT AN SMP STATEMENT SYNTAX ERROR AND AN ENQ /   *   DOC FILE
//*            DEQ LOGIC ERROR IN THE ACTUAL CODE                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  DUE TO THE EVER  INCREASING SIZE OF THIS MESS IT IS  *   DOC FILE
//*            AGAIN TIME TO START TO DELETE SOME OF THE VERY OLD   *   DOC FILE
//*            STUFF ON THE TAPE.  HERE WE GO (AGAIN)               *   DOC FILE
//*                    NAME          FILE(S)      LAST DATE UPDATED *   DOC FILE
//*              01.  IEECVXIT       (FILE  033)              09/83 *   DOC FILE
//*              02.  INFO BATCH     (FILE  068)              06/80 *   DOC FILE
//*              03.  SIO PGM        (FILES 124 125)          07/82 *   DOC FILE
//*              04.  FENCING        (FILE  145)              08/81 *   DOC FILE
//*              05.  AMDPSCAN       (FILE  329)              02/84 *   DOC FILE
//*              06.  SPOOLXREF      (FILE  346)              09/82 *   DOC FILE
//*              07.  TAPE ERASE     (FILE  370)              05/83 *   DOC FILE
//*              08.  TCAM Q FORMAT  (FILE  375)              06/83 *   DOC FILE
//*              09.  LOGSCAN        (FILE  389)              10/83 *   DOC FILE
//*              10.  DIDOCS CONSOLE (FILE  411)              09/84 *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-268 SECTION                                          *   DOC FILE
//*  V-268  CHANGES FOR VERSION 268 FEBRUARY 01, 1987               *   DOC FILE
//*         1  ADDITION OF FILE 021 FROM BELL AND HOWELL OF         *   DOC FILE
//*            ILLINOIS, IT CONTAINS SOME OF THEIR UTILITIES        *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  ADDITION OF FILE 022 FROM MR MARK HEDGES.            *   DOC FILE
//*            THIS FILE CONTAINS SOME OF THEIR UTILITIES           *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  ADDITION OF FILE 023 FROM NOVA IN CALGARY CANADA     *   DOC FILE
//*            WHICH CONTAINS A COPY OF THEIR ALTJES (ALTERNATE     *   DOC FILE
//*            JES2 TSO LOGON)                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  UPDATE TO FILE 119 FROM MCI TELECOMMUNICATIONS       *   DOC FILE
//*            CORP TO CONTAIN THE ADDITIONAL MACROS AS SUPPLIED    *   DOC FILE
//*            BY MR HOWARD DEAN OF AMERICAN PRESIDENT LINES        *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  ADDITION OF FILE 024 FROM MCI TELECOMMUNICATIONS     *   DOC FILE
//*            CORP OF ROCKVILLE, MARYLAND WHICH CONTAINS A         *   DOC FILE
//*            MODIFIED COPY OF XREF FROM FILE 119 OF THIS TAPE     *   DOC FILE
//*            PLUS ADDITIONAL FEATURES TO COMPLEMENT IT SUCH AS    *   DOC FILE
//*            AN ISPF INTERFACE                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  UPDATE TO FILE 381 FROM FIRST COMPUTER SERVICES      *   DOC FILE
//*            (FORMERLY NORTHWESTERN BANK).  MOST OF THE UPDATES   *   DOC FILE
//*            INVOLVE MINOR UPDATES TO THE JES2 EXITS FOR SP134    *   DOC FILE
//*            TO ALLOW THEM TO RUN ON SP136. TWO JES2 EXITS WERE   *   DOC FILE
//*            ADDED TO ALLOW BETTER JOB ACCOUNTING FOR NJE PRINT   *   DOC FILE
//*            JOBS. ALSO A NEW TSO COMMAND HAS BEEN ADDED          *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-267 SECTION                                          *   DOC FILE
//*  V-267  CHANGES FOR VERSION 267 JANUARY 01, 1987                *   DOC FILE
//*         1  UPDATE TO FILE 369 FROM SAM GOLOB TO CONTAIN A COPY  *   DOC FILE
//*            OF THE I/O COUNT MODIFICATION FOR MVS370. FILE 369   *   DOC FILE
//*            IS ORIGINALLY FROM PLANNING RESEARCH CORPORATION     *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 137 FROM THE PLANNING RESEARCH        *   DOC FILE
//*            CORP OF MCLEAN, VIRGINIA WHICH CONTAINS SEVERAL      *   DOC FILE
//*            OF THEIR UTILITIES AND SYSTEM MODIFICATIONS          *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILE 422 FROM MAY & SPEH TO CONTAIN        *   DOC FILE
//*            ADDITIONAL CODE.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  UPDATE TO FILE 352 WHICH IS THE INTEL MODS TAPE      *   DOC FILE
//*            TO VERSION 1.12 (DEC 1986).  THIS VERSION WAS        *   DOC FILE
//*            CONTRIBUTED BY MR MILTON SOONG OF INTEL.  UPDATES    *   DOC FILE
//*            TO THE FOLLOWING WERE MADE TO RUN UNDER MVS / XA     *   DOC FILE
//*                                                                 *   DOC FILE
//*             UPDATED  OSDEBE WITH AN A VERSION THAT              *   DOC FILE
//*                      WILL RUN UNDER MVS/XA.  THIS               *   DOC FILE
//*                      VERSION WILL ALSO RUN UNDER                *   DOC FILE
//*                      MVS/SP.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*             UPDATED  TRIM TSO COMMAND TO RELEASE                *   DOC FILE
//*                      UNUSED SPACE FROM A DATASET.               *   DOC FILE
//*                                                                 *   DOC FILE
//*             UPDATED TSO029 (DASDMAP) TO SUPPORT                 *   DOC FILE
//*                     3380 AND INDEXED VTOCS                      *   DOC FILE
//*                     (REQUIRES IXTOFMT5 CONVERT                  *   DOC FILE
//*                     ROUTINE) (XA VERSION)                       *   DOC FILE
//*                                                                 *   DOC FILE
//*             UPDATED TSO042 (DUNITS COMMAND) FOR                 *   DOC FILE
//*                     UCBLOOKUP W/MVS/XA                          *   DOC FILE
//*                                                                 *   DOC FILE
//*             UPDATED TSO012 (LSPACE TSO COMMAND) TO              *   DOC FILE
//*                     RUN UNDER MVS/XA.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*             UPDATED TSO013 (DTAPES TSO COMMAND) TO              *   DOC FILE
//*                     RUN UNDER MVS/XA.  THE DTAPES               *   DOC FILE
//*                     COMMAND WILL DISPLAY THE STATUS             *   DOC FILE
//*                     OF TAPE UNITS.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*             UPDATED TSO020 (DJ TSO COMMAND) TO RUN              *   DOC FILE
//*                     UNDER MVS/XA.  THE DJ COMMAND               *   DOC FILE
//*                     DISPLAYS THE STATUS OF ALL                  *   DOC FILE
//*                     BATCH JOBS RUNNING IN THE                   *   DOC FILE
//*                     SYSTEM.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-266 SECTION                                          *   DOC FILE
//*  V-266  CHANGES FOR VERSION 266 DECEMBER 09, 1986               *   DOC FILE
//*         1  UPDATE TO FILE 270 FROM THE WASHINGTON STATE DP      *   DOC FILE
//*            SERVICE CENTER TO VERSION 5 OF THEIR MODS            *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 371 FROM THE WASHINGTON STATE DP      *   DOC FILE
//*            SERVICE CENTER, WHICH IS THE LOAD MODULE LIBRARY     *   DOC FILE
//*            FROM THEIR SOURCE CODE THAT IS ON FILE 270 OF        *   DOC FILE
//*            THIS TAPE.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-265 SECTION                                          *   DOC FILE
//*  V-265  CHANGES FOR VERSION 265 NOVEMBER 23, 1986               *   DOC FILE
//*         1  ADDITION OF FILE 117 FROM COCA COLA COMPANY WHICH    *   DOC FILE
//*            IS A SERIES OF WTO EXITS. USING THE "MESSAGE         *   DOC FILE
//*            PROCESSING FACILITY" OTHERWISE KNOWN AS "MANY        *   DOC FILE
//*            WTO EXITS"                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 339 FROM E.F. MACDONALD MOTIVATION    *   DOC FILE
//*            WHICH IS A COPY OF THEIR JES2 EXIT # 5 PROGRAM       *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  ADDITION OF FILE 326 FROM THE U.S. AIR FORCE IN      *   DOC FILE
//*            SAN ANTONIO.  THIS FILE IS FROM JIM MARSHALL AND     *   DOC FILE
//*            CONTAINS A COPY OF THE VANILLA OS/MVS FORTRAN H      *   DOC FILE
//*            COMPILER AND LIBRARY.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  UPDATE TO FILE 325 FROM WELLS FARGO TO ADD NEW CODE  *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  UPDATE TO FILE 418 FROM COMBINED INTERNATIONAL.      *   DOC FILE
//*            TO ADD SEVERAL NEW MEMBERS                           *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  UPDATE TO FILES 460 - 470 FROM MR WILLIAM SMITH      *   DOC FILE
//*            OF SYNTEX IN PALO ALTO, CALIFORNIA.  THESE FILES     *   DOC FILE
//*            CONTAIN A COPY OF THE ISPF GUIDE TAPE                *   DOC FILE
//*                                                                 *   DOC FILE
//*         7  ADDITION OF FILE 471 FROM MR WILLIAM SMITH OF        *   DOC FILE
//*            SYNTEX IN PALO ALTO, CALIFORNIA.  THIS FILE IS       *   DOC FILE
//*            ALSO A FILE OFF OF THE ISPF GUIDE TAPE (IT           *   DOC FILE
//*            APPEARS TO BE A MACRO FILE OF SOME SORT)             *   DOC FILE
//*                                                                 *   DOC FILE
//*         8  UPDATE TO FILE 047  FROM MANUFACTURERS LIFE          *   DOC FILE
//*            INSURANCE COMPANY OF TORONTO CANADA.  THIS FILE      *   DOC FILE
//*            CONTAINS AN UPDATED VERSION OF NOCELL THAT HAS BEEN  *   DOC FILE
//*            UPDATED TO SUPPORT DFHSM V2R1, A NEW REPORT HAS BEEN *   DOC FILE
//*            ADDED TO RECOMMEND REBLOCKING OF DASD DATASETS AND A *   DOC FILE
//*            NUMBER OF NEW SELECTION OPTIONS HAVE BEEN ADDED.     *   DOC FILE
//*                                                                 *   DOC FILE
//*         9  UPDATE TO FILE 401 FROM BELLCORE TO CONTAIN          *   DOC FILE
//*            VERSION 4.3 (PTF LEVEL 2) OF THEIR TSSO SUBSYSTEM    *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  UPDATE TO FILE 035 TO CONTAIN VERSION                *   DOC FILE
//*            # 6.8.5 OF TSUPDATE FROM CONRAIL                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  UPDATE TO FILE 231 FROM AIR PRODUCTS TO CONTAIN      *   DOC FILE
//*            THREE MEMBERS THAT WERE MISSING                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  UPDATE TO FILE 407 WHICH IS DYNAMIC BLDL FROM FROM   *   DOC FILE
//*            SAM GOLOB WHO MODIFIED THE CODE WITH THE HELP OF     *   DOC FILE
//*            DAVE COLE TO YOU CAN NOW EXCLUDE UP TO SIX LINKLIST  *   DOC FILE
//*            LIBRARIES FROM THE SEARCH.  FOR MORE INFORMATION     *   DOC FILE
//*            LOOK FOR THE NAME "EXCLLIBS" IN THE CODE.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  ADDITION OF FILE 013 FROM MR RON TANSKY OF PENN      *   DOC FILE
//*            MUTUAL LIFE WHICH CONTAINS A PROGRAM TO COMPRESS     *   DOC FILE
//*            FILE 001 OF THIS TAPE TO A VB LRECL                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  UPDATE TO FILE 353 FROM MORTON THIOKOL, INC OF       *   DOC FILE
//*            CHICAGO, TO CORRECT SEVERAL MEMBERS. SUBSTANTIALLY   *   DOC FILE
//*            REVISED ETPS AND ADDED A NEW VTAM APPLICATION        *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  DUE TO THE EVER INCREASING SIZE OF THIS MESS IT      *   DOC FILE
//*            IS AGAIN TIME TO START TO DELETE SOME OF THE VERY    *   DOC FILE
//*            OLD STUFF ON THE TAPE.  HERE WE GO (AGAIN)           *   DOC FILE
//*                    NAME          FILE(S)      LAST DATE UPDATED *   DOC FILE
//*               1.  IEFACTRT       (FILE  007)              10/76 *   DOC FILE
//*               2.  OLD AMD EXITS  (FILE  036)              06/80 *   DOC FILE
//*               3.  OLD CODE       (FILES 042 043 044)      06/80 *   DOC FILE
//*               4.  ZAPS           (FILE  071)              10/76 *   DOC FILE
//*               5.  VABDUMP        (FILES 110 111)          04/76 *   DOC FILE
//*               6.  ARAMCO UTIL    (FILES 122)              08/81 *   DOC FILE
//*               7.  SMPLIST        (FILES 132)              01/82 *   DOC FILE
//*               8.  SQA TRAP       (FILES 175)              06/83 *   DOC FILE
//*               9.  TUNING RPT     (FILES 183)              06/80 *   DOC FILE
//*              10.  REMOTE ZAP     (FILES 203)              06/83 *   DOC FILE
//*              11.  SPY V1         (FILES 206)              07/79 *   DOC FILE
//*              11.  LOCD           (FILES 216)              05/78 *   DOC FILE
//*              11.  SORTEXIT       (FILES 228)              06/78 *   DOC FILE
//*              12.  RMF IMS EXIT   (FILES 250)              11/79 *   DOC FILE
//*              13.  JES3 TWA MOD   (FILES 256)              08/80 *   DOC FILE
//*              14.  VTAM TRACE     (FILES 257)              03/80 *   DOC FILE
//*              15.  SQUISH         (FILES 258)              09/78 *   DOC FILE
//*              15.  JESMON         (FILES 265)              07/82 *   DOC FILE
//*              16.  OPER MSG       (FILES 269)              11/82 *   DOC FILE
//*              17.  UADS PASS      (FILES 302)              02/81 *   DOC FILE
//*              18.  # B            (FILES 303)              02/81 *   DOC FILE
//*              19.  SE SIMULATOR   (FILES 312)              12/81 *   DOC FILE
//*              20.  FED COMPILER   (FILES 315)              06/81 *   DOC FILE
//*              21.  MODEL2/5 FLIP  (FILES 327)              12/81 *   DOC FILE
//*              21.  PROB MANAGENT  (FILES 328)              12/81 *   DOC FILE
//*              22.  OLD DYN BLDL   (FILES 335)              12/82 *   DOC FILE
//*              23.  #CMD1 JES3     (FILES 337)              01/82 *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-264 SECTION                                          *   DOC FILE
//*  V-264  CHANGES FOR VERSION 264 OCTOBER 26, 1986                *   DOC FILE
//*         1  UPDATE TO FILE 083 TO CONTAIN A COPY OF IEHMAP       *   DOC FILE
//*            THAT RUNS UNDER MVS / XA FROM MR GUY ALBERTELLI      *   DOC FILE
//*            OF BF GOODRICH IN AKRON, OHIO                        *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  ADDITION OF FILE 264 FROM MR GUY ALBERTELLI OF       *   DOC FILE
//*            BF GOODRICH IN AKRON, OHIO.  THIS FILE CONTAINS      *   DOC FILE
//*            TWO TSO COMMAND PROCESSORS                           *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  ADDITION OF FILE 261 FROM MR GUY ALBERTELLI OF       *   DOC FILE
//*            BF GOODRICH IN AKRON, OHIO.  THIS FILE CONTAINS      *   DOC FILE
//*            AN UPDATED VERSION OF THE # CMD1 SUBSYSTEM TO RUN    *   DOC FILE
//*            UNDER XA                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  ADDITION OF FILE 298 FROM GTE LABS, WALTHAM, MASS    *   DOC FILE
//*            WHICH CONTAINS THE CODE TO PROVIDE AN EASY FACILITY  *   DOC FILE
//*            FOR BACKING UP AND RESTORING INDIVIDUAL MEMBERS OF   *   DOC FILE
//*            A PARTITIONED DATASET, USING PANVALET TO MAINTAIN    *   DOC FILE
//*            UP TO 99 BACKUP VERSIONS OF EACH MEMBER              *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-263 SECTION                                          *   DOC FILE
//*  V-263  CHANGES FOR VERSION 263 OCTOBER 12, 1986                *   DOC FILE
//*         1  UPDATE TO FILE 401 FROM BELLCORE TO CONTAIN          *   DOC FILE
//*            VERSION 4.3 OF THEIR TSSO SUBSYSTEM                  *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 388 TO CONTAIN AN UPDATED VERSION     *   DOC FILE
//*            OF THE SCHEDULE SYSTEM FROM COMNET.  THIS VERSION    *   DOC FILE
//*            OF THE CODE WAS SUBMITTED BY MR MIKE LEWIS OF        *   DOC FILE
//*            RESULTS INC, FORMERLY OF COMNET.  THIS VERSION       *   DOC FILE
//*            EXPANDED AND MODIFIED THE WEEKDAY OPERAND THE        *   DOC FILE
//*            MACROS NEEDED ARE CONTAINED IN FILE 408 OF THIS      *   DOC FILE
//*            TAPE                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  ADDITION OF FILE 119 FROM HOWARD DEAN OF SYNTEX      *   DOC FILE
//*            WHICH CONTAINS A COPY OF SEVERAL OF THEIR UTILITIES  *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  ADDITION OF FILE 126 FROM MR JAMES GIBSON OF         *   DOC FILE
//*            L.L. BEAN IN FREEPORT MAINE, WHICH CONTAINS          *   DOC FILE
//*            A COPY OF THEIR CODE TO ALLOW PASSWORDS IN JCL       *   DOC FILE
//*            FOR AN MVS XA LEVEL SYSTEM AND A IEAVMXIT            *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  UPDATE TO FILE 381 FROM FIRST COMPUTER SERVICES      *   DOC FILE
//*            (FORMERLY NORTHWESTERN BANK) TO FIX MINOR ERRORS     *   DOC FILE
//*            AND TO ALLOW THE SP133 JES2 EXITS TO RUN UNDER       *   DOC FILE
//*            SP134 THE MAJOR SOURCE CHANGE WAS TO JES EXIT 1 TO   *   DOC FILE
//*            PROVIDE XEROX 9700 SUPPORT AND JES2 NEWS FACILITY.   *   DOC FILE
//*            THE SP1.3.0 VERSIONS ARE ALSO INCLUDED BUT HAVE      *   DOC FILE
//*            NOT BEEN MODIFIED.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  COMPLETE UPDATE TO FILE 369 FROM PLANNING            *   DOC FILE
//*            RESEARCH CORPORATION TO INCLUDE SEVERAL OF THEIR     *   DOC FILE
//*            UTILITY PROGRAMS IN ADDITION TO THE I/O COUNT        *   DOC FILE
//*            MOD THAT ORIGINATED FROM GENERAL ELECTRIC.           *   DOC FILE
//*                                                                 *   DOC FILE
//*         7  UPDATE TO FILE 161 FROM THE AIR FORCE WHICH          *   DOC FILE
//*            CONTAINS A COPY OF THEIR ISPF/PDF CODE TO            *   DOC FILE
//*            VERSION 8 DATED JULY 1, 1986                         *   DOC FILE
//*                                                                 *   DOC FILE
//*         8  UPDATE TO FILE 316 FROM THE AIR FORCE TO             *   DOC FILE
//*            VERSION 15.0 JULY 1, 1986                            *   DOC FILE
//*                                                                 *   DOC FILE
//*         9  UPDATE TO FILE 300 FROM THE AIR FORCE TO             *   DOC FILE
//*            VERSION 20.0 JULY 1, 1986                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  ADDITION OF FILE 041 FROM BENJ. FRANKLIN FEDERAL     *   DOC FILE
//*            SAVINGS AND LOAN  ASSOCIATION OF PORTLAND OREGON     *   DOC FILE
//*            WHICH CONTAINS A COPY OF THEIR EXITS TO MVS/SP       *   DOC FILE
//*            JES2 TO PROVIDE TABLE DRIVEN FORMS CONTROL FOR       *   DOC FILE
//*            XEROX 8700 / 9700 LASER PRINTERS                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  ADDITION OF FILE 394 WHICH IS A COPY OF THE TSO      *   DOC FILE
//*            CP CALLED QUE THAT WILL RUN UNDER MVS/SP 1.3.6       *   DOC FILE
//*            AND 2.1.5.  THIS VERSION IS FROM MR SAM GOLOB WHO    *   DOC FILE
//*            MODIFIED THE CODE FROM MR JACK SCHUDEL OF THE        *   DOC FILE
//*            UNIVERSITY OF FLORIDA.  SAM MODIFIED THE QUE         *   DOC FILE
//*            VERSION THAT WAS ON VERSION 59 OF THE JES2 TAPE.     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-262 SECTION                                          *   DOC FILE
//*  V-262  CHANGES FOR VERSION 262 AUGUST 06, 1986                 *   DOC FILE
//*         1  ADDITION OF FILE 039 FROM CITIBANK OF NEW YORK       *   DOC FILE
//*            THAT CONTAINS TWO CONTRIBUTIONS, ONE A MOD TO THE    *   DOC FILE
//*            IPOUPDTE PROGRAM AND THE OTHER IS AN VERSION OF      *   DOC FILE
//*            SMF1415 USING IBM DFSORT                             *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 422 FROM MAY & SPEH TO CONTAIN        *   DOC FILE
//*            ADDITIONAL CODE                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILES 048 049 AND 050 FROM CBT FOR         *   DOC FILE
//*            LOCINDEX, LISTVOL, LISTSPC TO HANDLE MULTI-VOLUME    *   DOC FILE
//*            DATASETS AND DATASETS THAT HAVE LOTS OF ENTRIES      *   DOC FILE
//*            IN THE CATALOG                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  UPDATE TO FILE 118 WHICH IS A COPY OF AN SMP         *   DOC FILE
//*            PUTXREF PROGRAM FROM THE HARTFORD INSURANCE          *   DOC FILE
//*            GROUP FROM MR SHMUEL GOLOB TO LOOK AT ++APAR,        *   DOC FILE
//*            ++USERMOD, AND ++FUNCTION IN ADDITION TO ++PTF.      *   DOC FILE
//*            SEE THE MEMBER CALLED $$$DOC FOR THE COMPLETE        *   DOC FILE
//*            DOCUMENTATION                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  UPDATE TO FILE 182 AND FILE 035 OF VERSION 7.3 OF    *   DOC FILE
//*            PDS TO CORRECT 2 MINOR PROBLEMS:                     *   DOC FILE
//*              A. ON A COPY COMMAND ERRORS DETECTED BY IEBCOPY    *   DOC FILE
//*                 GET PDS980E INTERRUPTED MESSAGE INSTEAD OF THE  *   DOC FILE
//*                 IEBCOPY OUTPUT DISPLAY. IKJEFTSR INTERFACE ONLY *   DOC FILE
//*              B. DELETE, SUBMIT, COPY AND REPRO USED AS LINE     *   DOC FILE
//*                 COMMANDS IN MEMLIST:  IF A SUBLIST IS ACTIVE,   *   DOC FILE
//*                 ALL SUBLIST ENTRIES ARE SELECTED                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-261 SECTION                                          *   DOC FILE
//*  V-261  CHANGES FOR VERSION 261 JUNE 24, 1986                   *   DOC FILE
//*         1  UPDATE TO FILE 400 FROM SECURITY PACIFIC NATIONAL    *   DOC FILE
//*            BANK TO CONTAIN AN UPDATED COPY OF DYNAMASK          *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 070 FROM GENERAL DYNAMICS WHICH IS    *   DOC FILE
//*            A COPY OF THEIR USER MODS TO AN MVS/XA 2.1.3 LEVEL   *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  ADDITION OF FILE 034 FROM NORTHEAST LOUISIANA        *   DOC FILE
//*            UNIVERSITY WHICH CONTAINS A COPY OF THEIR PROGRAM    *   DOC FILE
//*            WHICH KEEPS TRACK OF THE RACF USERIDS                *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  ADDITION OF FILE 137 FROM THE PLANNING RESEARCH CORP *   DOC FILE
//*            OF MCLEAN, VIRGINIA WHICH CONTAINS SEVERAL OF THEIR  *   DOC FILE
//*            UTILITIES AND SYSTEM MODIFICATIONS                   *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  UPDATE TO FILE 384 FROM COMPUTER DATA SYSTEMS INC    *   DOC FILE
//*            OF ROCKVILLE, MARYLAND TO:                           *   DOC FILE
//*                                                                 *   DOC FILE
//*              A  LISTPTF IS UPGRADED AND FIXED                   *   DOC FILE
//*                                                                 *   DOC FILE
//*              B  PRINTOFF IMPLEMENTED TO SUPPORT MICROFICHE      *   DOC FILE
//*                 PAGE WITH BLOCKHEAD OF MEMBERS; BLOCKSUB        *   DOC FILE
//*                 ROUTINE OS ADDED                                *   DOC FILE
//*                                                                 *   DOC FILE
//*              C  SAS PROGRAM IS UPGRADED TO DISPLAY CONTENTS     *   DOC FILE
//*                 OF SMP/E VSAM CSI DATASETS                      *   DOC FILE
//*                                                                 *   DOC FILE
//*              D  FINDFIX V2.1 IS UPGRADED WITH NEW INFORMATION   *   DOC FILE
//*                 DISPLAY (ONLY SMP/E).  (MORE POWERFUL, MORE     *   DOC FILE
//*                 INFORMATION, MORE IMPROVEMENT IN YOUR SYSTEM    *   DOC FILE
//*                 MAINTAINANCE SKILLS.)                           *   DOC FILE
//*                                                                 *   DOC FILE
//*              E  QISP134/QSTART MACRO IS CHANGED TO REFLECT      *   DOC FILE
//*                 HASPCKPT VOLUME NAME CHANGE BY SPECIFYING CKPT  *   DOC FILE
//*                 ENTRY IN JCL / ASM / PARM CARD (SEE QIDOC)      *   DOC FILE
//*                                                                 *   DOC FILE
//*              F  QISP134/ DUMP PROGRAM IS UPGRADED AND FIXED     *   DOC FILE
//*                                                                 *   DOC FILE
//*              G  PTFLIB HAS MORE PROGRAMS / JCL TO SUPPORT EASY  *   DOC FILE
//*                 MAINTAINENCE PROCEDURE (PTF LIBRARY CONTROL)    *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  UPDATE TO FILE 182 TO CONTAIN A NEW VERSION OF       *   DOC FILE
//*            THE PDS TSO CP.  VERSION 7.3                         *   DOC FILE
//*                                                                 *   DOC FILE
//*         7  UPDATE TO FILE 035 TO CONTAIN A COPY OF PDS          *   DOC FILE
//*            VERSION 7.3                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*         8  UPDATE TO FILE 422 FROM MAY & SPEH TO CONTAIN        *   DOC FILE
//*            ADDITIONAL CODE                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*         9  ADDITION OF FILE 006 FROM SOUTHWESTERN PUBLIC        *   DOC FILE
//*            SERVICE COMPANY OF AMARILLO TEXAS WHICH CONTAINS     *   DOC FILE
//*            SEVERAL OF THEIR UTILITIES PROGRAMS INCLUDING        *   DOC FILE
//*            THE UTILITIES REQUIRED TO LOAD FILE 001 OF THE       *   DOC FILE
//*            TAPE INTO A VERSION 2 INFO/MVS DATABASE              *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  UPDATE TO FILE 299 FROM MR SHMUEL GOLOB TO CONTAIN   *   DOC FILE
//*            AN UPDATED COPY OF TAPEMAP. THIS VERSION HAS BEEN    *   DOC FILE
//*            UPDATED TO LOOK FOR A SMPPTFIN FORMAT TAPE BEFORE    *   DOC FILE
//*            LOOKING FOR AN IEBUPDTE FORMAT TAPE.  THIS FILE IS   *   DOC FILE
//*            NOW IN IEBUPDTE SYSIN FORMAT AND CONTAINS THE        *   DOC FILE
//*            ORIGINAL COPY OF TAPEMAP AND THE UPDATED COPY OF     *   DOC FILE
//*            TAPEMAP.  SEE THE MEMBER CALLED $$DOC FOR            *   DOC FILE
//*            ADDITIONAL INFORMATION OF WHAT IS IN THE PDS AND     *   DOC FILE
//*            SEE THE MEMBER CALLED TAPEMAP FOR ALL THE CHANGES    *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  ADDITION OF FILE 187 FROM FIRST NATIONAL BANK OF     *   DOC FILE
//*            CHICAGO WHICH IS A PROGRAM TO CONVERT A CLIST FROM   *   DOC FILE
//*            FROM 80 BYTES TO 255 BYTES AND VICE VERSA.           *   DOC FILE
//*            THIS FILE WAS PREVIOUSLY ON THE TAPE BUT WAS         *   DOC FILE
//*            ACCIDENTLY DELETED IN APRIL 1986                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  DUE TO THE EVER INCREASING SIZE OF THIS MESS IT      *   DOC FILE
//*            IS NOW TIME TO START TO DELETE SOME OF THE VERY      *   DOC FILE
//*            OLD STUFF ON THE TAPE.  HERE WE GO (AGAIN)           *   DOC FILE
//*                    NAME          FILE(S)      LAST DATE UPDATED *   DOC FILE
//*               1.  IO/CONFIG      (FILE  013)              08/80 *   DOC FILE
//*               2.  GRUM UTILITIES (FILE  014)              08/80 *   DOC FILE
//*               3.  DMS            (FILES 021 022 025 026)  01/82 *   DOC FILE
//*               4.  TSO CMDS       (FILE  039)              06/80 *   DOC FILE
//*               5.  CHIMP          (FILE  041)              02/80 *   DOC FILE
//*               6.  CHKDUMP        (FILES 053 054)          12/76 *   DOC FILE
//*               7.  LPAREA         (FILE  055)              10/76 *   DOC FILE
//*               8.  VCOREZAP       (FILE  056)              10/76 *   DOC FILE
//*               9.  DCMS           (FILES 059 060 061 062)  04/79 *   DOC FILE
//*              10.  DCMS           (FILES 063 064)          04/79 *   DOC FILE
//*              11.  TCAM10         (FILE  069)              10/79 *   DOC FILE
//*              12.  EDITOR         (FILE  091)              04/79 *   DOC FILE
//*              13.  SYSGEN XREF    (FILE  109)              11/76 *   DOC FILE
//*              14.  FNB MODS       (FILE  119)              11/81 *   DOC FILE
//*              15.  SMFDS PGM      (FILE  126)              11/70 *   DOC FILE
//*              16.  CHANNEL ROTATE (FILE  129)              08/80 *   DOC FILE
//*              17.  CONSOLE ZAP    (FILE  133)              06/82 *   DOC FILE
//*              18.  IO QUE ZAP     (FILE  134)              09/79 *   DOC FILE
//*              19.  VIO ZAP        (FILE  135)              09/79 *   DOC FILE
//*              20.  USER MODS      (FILE  138)              04/79 *   DOC FILE
//*              21.  SO PROGRAMS    (FILE  139)              04/79 *   DOC FILE
//*              22.  SQUISH         (FILES 146 147)          12/77 *   DOC FILE
//*              23.  PCCW MONITOR   (FILE  152)              09/82 *   DOC FILE
//*              24.  VIO ZAP        (FILE  163)              09/77 *   DOC FILE
//*              25.  PUSE           (FILE  164)              09/77 *   DOC FILE
//*              26.  NAME CHANGE    (FILE  165)              09/77 *   DOC FILE
//*              27.  VSAM CHANGE    (FILE  166)              09/77 *   DOC FILE
//*              28.  UCB SCAN       (FILES 184 185)          12/77 *   DOC FILE
//*              29.  TSO CP         (FILE  186)              04/79 *   DOC FILE
//*              30.  STEPLIB        (FILE  191)              01/78 *   DOC FILE
//*              31.  SQUISH         (FILES 192 193)          01/78 *   DOC FILE
//*              32.  SMF SCAN       (FILES 195 196)          04/78 *   DOC FILE
//*              33.  AUTO JES CMD   (FILE  202)              03/78 *   DOC FILE
//*              34.  VTOC PGM       (FILE  204)              07/80 *   DOC FILE
//*              35.  SAS PGM        (FILE  212)              06/78 *   DOC FILE
//*              36.  DCMS           (FILE  221)              05/78 *   DOC FILE
//*              37.  TSO MONITOR    (FILE  223)              05/79 *   DOC FILE
//*              38.  RMF P.P.       (FILE  238)              02/81 *   DOC FILE
//*              39.  DYN TRC ON/OFF (FILE  239)              08/78 *   DOC FILE
//*              40.  ZAPS FROM SO   (FILE  253)              08/78 *   DOC FILE
//*              41.  SAS FROM SO    (FILE  254)              08/78 *   DOC FILE
//*              42.  RMF PP         (FILE  255)              08/78 *   DOC FILE
//*              43.  SMF ZAP        (FILE  261)              03/79 *   DOC FILE
//*              44.  CATALOG COPY   (FILE  264)              11/78 *   DOC FILE
//*              45.  CATEDIT        (FILE  275)              02/79 *   DOC FILE
//*              46.  JESCNCL        (FILE  277)              03/79 *   DOC FILE
//*              47.  UCBZAP         (FILE  298)              01/81 *   DOC FILE
//*              48.  RMFSPLIT       (FILE  305)              02/81 *   DOC FILE
//*              49.  MEMOREX UTIL   (FILE  313)              06/81 *   DOC FILE
//*              50.  PACKER PGM     (FILE  318)              11/81 *   DOC FILE
//*              51.  DYN BLDL       (FILE  321)              11/81 *   DOC FILE
//*              52.  SMFEXIT        (FILE  326)              04/82 *   DOC FILE
//*              53.  DMS            (FILES 330 331)          01/82 *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-260 SECTION                                          *   DOC FILE
//*  V-260  CHANGES FOR VERSION 260 MAY 29, 1986                    *   DOC FILE
//*         1  UPDATE TO FILE 422 FROM MAY & SPEH TO CONTAIN        *   DOC FILE
//*            ADDITIONAL INFORMATION                               *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 270 FROM THE WASHINGTON STATE DP      *   DOC FILE
//*            SERVICE CENTER TO VERSION 4 OF THEIR UTILITIES       *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  ADDITION OF FILE 371 FROM THE WASHINGTON STATE DP    *   DOC FILE
//*            WHICH IS THE LOAD MODULE LIBRARY OF THEIR SOURCE     *   DOC FILE
//*            WHICH IS CONTAINED IN FILE 270 OF THIS TAPE          *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  ADDITION OF FILES 230-231 FROM AIR PRODUCTS AND      *   DOC FILE
//*            CHEMICALS FROM TREXLERTOWN, PA.  WHICH CONTAINS      *   DOC FILE
//*            A COPY OF A SHARE 66 SESSION (G107) ENTITLED:        *   DOC FILE
//*            "ISPF TRADE FAIR"                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  ADDITION OF FILE 232 FROM AIR PRODUCTS AND           *   DOC FILE
//*            CHEMICALS FROM TREXLERTOWN, PA. WHICH CONTAINS A     *   DOC FILE
//*            COPY OF CODE THAT WILL TAKE AN MVS IOGEN DECK AND    *   DOC FILE
//*            TURN IT INTO AN APPROXIMATION OF THE VM / XA SF      *   DOC FILE
//*            REAL IO CONFIGURATION FILE (HCPRIO).                 *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-259 SECTION                                          *   DOC FILE
//*  V-259  CHANGES FOR VERSION 259 MARCH 01, 1986                  *   DOC FILE
//*         1  UPDATE TO FILE 422 FROM MAY & SPEH TO CONTAIN        *   DOC FILE
//*            ADDITIONAL UTILITIES                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 218 FROM COCA COLA TO ADD XA SUPPORT  *   DOC FILE
//*            TO RMFMON                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  ADDITION OF FILE 405 FROM THE DEFENSE LOGISTICS      *   DOC FILE
//*            AGENCY OF COLUMBUS, OHIO WHICH CONTAINS SEVERAL      *   DOC FILE
//*            OF THEIR UTILITIES                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  ADDITION OF FILES 460-470 FROM MR WILLIAM SMITH OF   *   DOC FILE
//*            SYNTEX IN PALO ALTO, CALIFORNIA.  THESE FILES        *   DOC FILE
//*            CONTAIN A COPY OF THE ISPF GUIDE TAPE                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-258 SECTION                                          *   DOC FILE
//*  V-258  CHANGES FOR VERSION 258 FEBURARY 03, 1986               *   DOC FILE
//*         1  ADDITION OF FILE 188 FROM SHMUEL GOLOB WHICH         *   DOC FILE
//*            CONTAINS A COPY OF HIS SYSTEM FOR HANDLING IBM       *   DOC FILE
//*            OPTIONAL SOURCE MATERIAL TAPES                       *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  ADDITION OF FILE 189 FROM SHMUEL GOLOB WHICH         *   DOC FILE
//*            CONTAINS A SMALL SAMPLE OF THE OUTPUT OF HIS         *   DOC FILE
//*            SYSTEM CONTAINED IN FILE 188 OF THIS TAPE            *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-257 SECTION                                          *   DOC FILE
//*  V-257  CHANGES FOR VERSION 257 JANUARY  26, 1986               *   DOC FILE
//*         1  UPDATE TO FILE 381 FROM FIRST COMPUTER SERVICES      *   DOC FILE
//*            (FORMERLY NORTHWESTERN BANK) TO FIX MINOR ERRORS AND *   DOC FILE
//*            TO ALLOW THE SP133 JES2 EXITS TO RUN UNDER SP134     *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  ADDITION OF FILE 047 FROM MANUFACTURERS LIFE         *   DOC FILE
//*            INSURANCE COMPANY OF TORONTO CANADA.  THIS FILE      *   DOC FILE
//*            CONTAINS A COPY OF THEIR UTILITY CALLED NOCELL.      *   DOC FILE
//*            THIS PROGRAM EXTRACTS DATASET INFORMATION FROM       *   DOC FILE
//*            VTOCS, TLMS VOLUME MASTER FILE, HSM CONTROL          *   DOC FILE
//*            DATASETS AND THE ASM2 ARCHIVE CATALOG, BUILDS A      *   DOC FILE
//*            TABLE AND PRINTS REPORTS ON THE DATASETS SELECTED.   *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILE 353 FROM MORTON THIOKOL, INC OF       *   DOC FILE
//*            CHICAGO, TO CONTAIN MODIFICATIONS TO SEVERAL OF      *   DOC FILE
//*            THE PROGRAMS, ALSO JDF HAS BEEN UPDATED TO           *   DOC FILE
//*            SP 1.3.4                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  UPDATE TO FILE 300 FROM THE AIR FORCE TO             *   DOC FILE
//*            VERSION 18.0 DECEMBER 24, 1985                       *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  UPDATE TO FILE 306 FROM THE AIR FORCE TO VERSION     *   DOC FILE
//*            5.0 OCTOBER 03, 1985 (CONTAINS XA VERSION OF TSSO)   *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  UPDATE TO FILE 316 FROM THE AIR FORCE TO             *   DOC FILE
//*            VERSION 13.0 DECEMBER 5, 1985                        *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-256 SECTION                                          *   DOC FILE
//*  V-256  CHANGES FOR VERSION 256 JANUARY  01, 1986               *   DOC FILE
//*         1  UPDATE TO FILE 112 FROM MR BRUCE LELAND              *   DOC FILE
//*            TO UPDATE VTOC TO:                                   *   DOC FILE
//*                A.  CORRECTION FOR THE CAT PARAMETER FOR         *   DOC FILE
//*                    MULTI-VOLUME CATALOGED DATA SETS             *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 319 TO A DIFFERENT VERSION (OLD       *   DOC FILE
//*            VER HAD MACROS THAT WERE NOT SENT)                   *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILE 182 AND FILE 035 OF VERSION 7.2       *   DOC FILE
//*            OF PDS TO CORRECT 2 MINOR PROBLEMS:                  *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-255 SECTION                                          *   DOC FILE
//*  V-255  CHANGES FOR VERSION 255 DECEMBER 01, 1985               *   DOC FILE
//*         1  UPDATE TO FILE 182 TO CONTAIN A NEW VERSION OF       *   DOC FILE
//*            THE PDS TSO CP.  VERSION 7.2                         *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 035 TO CONTAIN A COPY OF PDS          *   DOC FILE
//*            VERSION 7.2                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILE 296 FROM MR BRUCE LELAND              *   DOC FILE
//*            THIS HAS BEEN UPDATED TO:                            *   DOC FILE
//*                A.  HEL    - MODIFIED PFK SUPPORT TO NOT BLANK   *   DOC FILE
//*                             THE TOP LINE OF THE DISPLAY WHEN    *   DOC FILE
//*                             PFK12 IS SET                        *   DOC FILE
//*                                                                 *   DOC FILE
//*                B.  REVIEW - CHANGED TO DISPLAY 6 DIGITS IN THE  *   DOC FILE
//*                             CURRENT LINE NUMBER                 *   DOC FILE
//*                           - CHANGED TO CORRECT PFKN (TO ALLOW   *   DOC FILE
//*                             PFK CHANGES                         *   DOC FILE
//*                           - PFK6 DEFAULTS TO " SMF " AND PFK12  *   DOC FILE
//*                             DEFAULTS TO " FINDSMF "             *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  UPDATE TO FILE 112 FROM MR BRUCE LELAND              *   DOC FILE
//*            TO UPDATE VTOC FOR:                                  *   DOC FILE
//*                A.  CORRECTION FOR KB AND MB KEYWORDS FOR        *   DOC FILE
//*                    REPORTING DASD UTILIZATION                   *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  UPDATE TO FILE 160 FROM MR CHUCK HOFFMAN OF GTE      *   DOC FILE
//*            LABS AND THE COMMONWEALTH OF MASSACHUSETTS           *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  UPDATE TO FILES 018 AND 035 TO CONTAIN VERSION       *   DOC FILE
//*            # 6.7.1 OF TSUPDATE FROM CONRAIL                     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-254 SECTION                                          *   DOC FILE
//*  V-254  CHANGES FOR VERSION 254 NOVEMBER 18, 1985               *   DOC FILE
//*         1  UPDATE TO FILES 018 AND 035 TO CONTAIN VERSION       *   DOC FILE
//*            # 6.7.0 OF TSUPDATE FROM CONRAIL                     *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  ADDITION OF FILE 278 FROM MR DAVID WEILERT WHICH     *   DOC FILE
//*            CONTAINS AN ISPF DIALOG MANAGER APPLICATION TO       *   DOC FILE
//*            HANDLE AN SLSS (SYSTEM LIBRARY SUBSCRIPTION SERVICE) *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  A COMMENT ABOUT LOADING THIS FILE INTO AN INFO/MVS   *   DOC FILE
//*            DATA BASE.  WE DO NOT USE VERSION 2 BUT IF YOU TAKE  *   DOC FILE
//*            THE INPUT TO LOAD VERSION 1 AND CONVERT IT TO        *   DOC FILE
//*            FIXED BLOCK WITH AN LRECL OF 80 BYTES AND SHIFT      *   DOC FILE
//*            EVERYTHING LEFT 8 BYTES (WITH THE PROPER JCL) YOU    *   DOC FILE
//*            SHOULD BE OKAY - USE THE LAST JOB IN FILE 003 FOR    *   DOC FILE
//*            THE JCL TO CREATE THE INPUT TO THE INFO/MVS DATA     *   DOC FILE
//*            BASE AND THEN CHANGE IT TO FIXED BLOCK AND SHIFT 8   *   DOC FILE
//*            BYTES LEFT.  YOU HAVE WILL TO CREATE YOUR OWN JCL    *   DOC FILE
//*            TO LOAD THE VERSION 2 DATA BASE                      *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-253 SECTION                                          *   DOC FILE
//*  V-253  CHANGES FOR VERSION 253 OCTOBER 29, 1985                *   DOC FILE
//*         1  UPDATE TO FILE 407 FROM DAVE COLE AT COMNET TO       *   DOC FILE
//*            CONTAIN AN UPDATED COPY OF DYNAMIC BLDL              *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 035 TO HAVE THE CURRENT LOAD          *   DOC FILE
//*            MODULES OF:                                          *   DOC FILE
//*                 A   DYNABLDL   SOURCE FILE 407                  *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILE 408 FROM DAVE COLE AT COMNET TO       *   DOC FILE
//*            CONTAIN AN UPDATED COPY OF HIS MACRO LIBRARY         *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  UPDATE TO FILE 162 FROM DAVE COLE AT COMNET TO       *   DOC FILE
//*            CONTAIN AN UPDATED COPY OF HIS GLOBAL CROSS -        *   DOC FILE
//*            REFERENCE LISTING GENERATOR (XREFASM)                *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  ADDITIONAL OF FILE 123 FROM AMDAHL WHICH             *   DOC FILE
//*            CONTAINS A COPY OF THE MVS DUMP ANALYSIS EXITS.      *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-252 SECTION                                          *   DOC FILE
//*  V-252  CHANGES FOR VERSION 252 OCTOBER 15, 1985                *   DOC FILE
//*         1  UPDATE TO FILE 112 FROM MR BRUCE LELAND OF SERENA    *   DOC FILE
//*            TO UPDATE VTOC FOR:                                  *   DOC FILE
//*                A.  CORRECTION FOR A LIST OF VOLUME NAMES (OR    *   DOC FILE
//*                    PARTIAL NAMES).  CLEAR THE UCB SCAN AREA     *   DOC FILE
//*                    FOR EACH VOLUME.                             *   DOC FILE
//*                B.  CHANGE TO CONTAINING KEYWORD TO ALLOW SYNTAX *   DOC FILE
//*                    SUCH AS CONTAINING(.DATA) OR CONTAINING(123) *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  ADDITION OF FILE 430 FROM MC EVOY OF GLOUCESTERSHIRE *   DOC FILE
//*            ENGLAND.  THIS FILE CONTAINS SOME OF THEIR UTILITIES *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILE 369 FROM PLANNING RESEARCH            *   DOC FILE
//*            CORPORATION TO HAVE AN XA VERSION OF THE I/O COUNTS  *   DOC FILE
//*            IN THE IEF285I MESSAGE                               *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  UPDATE TO FILE 052 TO CONTAIN A COPY OF THE ACRONYM  *   DOC FILE
//*            AND ABBREVIATION QUIZ THAT WAS CREATED FOR THE 30TH  *   DOC FILE
//*            ANNIVERSARY MEETING OF SHARE IN AUGUST 1985 IN       *   DOC FILE
//*            NEW ORLEANS                                          *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-251 SECTION                                          *   DOC FILE
//*  V-251  CHANGES FOR VERSION 251 SEPTEMBER 17, 1985              *   DOC FILE
//*         1  UPDATE TO FILE 003 WHICH IS THE JCL TO DROP THIS     *   DOC FILE
//*            TAPE TO CORRECT SOME MINOR ERRORS                    *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  A NOTE - FILE 116 OF THIS TAPE CONTAINS A            *   DOC FILE
//*            DISKSEEK PROGRAM - THE NOTE IS THAT THIS CODE HAS    *   DOC FILE
//*            NOT BEEN MODIFIED TO HANDLE INDEXED VTOCS OR ICF     *   DOC FILE
//*            DATASETS THAT HAVE MORE THAT 15 EXTENTS              *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILE 384 FROM COMPUTER DATA SYSTEMS        *   DOC FILE
//*            INC. OF ROCKVILLE, MARYLAND TO:                      *   DOC FILE
//*                                                                 *   DOC FILE
//*              A  ADD ADDITIONAL COMMANDS TO QISP134              *   DOC FILE
//*                 (ROUTE, ASID, RMF, ETC)                         *   DOC FILE
//*                                                                 *   DOC FILE
//*              B  SAS PROGRAM TO DISPLAY THE CONTENTS OF          *   DOC FILE
//*                 SMPE VSAM CSI DATASETS                          *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  ADDITION OF FILE 427 WHICH CONTAINS A COPY OF        *   DOC FILE
//*            THE IBM MACRO CALLED IHASTOW                         *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  ADDITION OF FILE 429 FROM ALLERGAN PHARMACEUTICALS   *   DOC FILE
//*            WHICH CONTAINS A COPY OF A FEW OF THEIR UTILITIES    *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-250 SECTION                                          *   DOC FILE
//*  V-250  CHANGES FOR VERSION 250 AUGUST 29, 1985                 *   DOC FILE
//*         1  ADDITION OF FILE 424 BLUE CROSS BLUE SHIELD OF       *   DOC FILE
//*            WASHINGTON, D.C. WHICH CONTAINS A COPY OF THEIR      *   DOC FILE
//*            3420 TO 3480 CONVERSION PROGRAM.  SEE FILE 047       *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  ADDITION OF FILE 399 WHICH CONTAINS TSSO             *   DOC FILE
//*            MODIFICATIONS, CLISTS, ETC                           *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILE 300 FROM THE AIR FORCE TO             *   DOC FILE
//*            VERSION 16.0 JULY 1, 1985                            *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  UPDATE TO FILE 316 FROM THE AIR FORCE TO             *   DOC FILE
//*            VERSION 12.0 JULY 1, 1985                            *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  UPDATE TO FILE 384 FROM COMPUTER DATA SYSTEMS INC    *   DOC FILE
//*            OF ROCKVILLE, MARYLAND TO:                           *   DOC FILE
//*                                                                 *   DOC FILE
//*            ISPCALL MACRO MISSING -- REINSTALL ON QISP130        *   DOC FILE
//*            ADD QISP134                                          *   DOC FILE
//*            ADD MORE PROGRAMS ON SOURCE (SEE $$DOC)              *   DOC FILE
//*             A  ASM PGM FOR SAS TO PRINT BLOCK HEAD FOR FICHE    *   DOC FILE
//*             B  SAS PGM TO REPORT MVS EXCEPTION FROM RMF RECORDS *   DOC FILE
//*             C  ASM PGM TO LIST LINKED MODULES WITH LATEST PTF   *   DOC FILE
//*                UPDATE                                           *   DOC FILE
//*             D  SAS PGM TO LIST SMPE SYSMOD PRE AND SUMMARIES    *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  UPDATE TO FILE 299 FROM DAVE COLE AT COMNET TO       *   DOC FILE
//*            CONTAIN AN UPDATED COPY OF TAPEMAP.  THIS VERSION    *   DOC FILE
//*            HAS BEEN UPDATED TO                                  *   DOC FILE
//*                1  RECOGNIZE A SYSMODS TAPE (PUT, INSTALL,       *   DOC FILE
//*                   ETC.) AND LIST THE NAMES OF THE SYSMODS       *   DOC FILE
//*                   CONTAINED THEREIN.                            *   DOC FILE
//*                2  MISC. CORRECTIONS, ADJUSTMENTS AND            *   DOC FILE
//*                   IMPROVEMENTS.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*         7  UPDATE TO FILE 035 TO HAVE THE CURRENT LOAD MODULES  *   DOC FILE
//*            OF:  A   TAPEMAP    SOURCE FILE 299                  *   DOC FILE
//*                                                                 *   DOC FILE
//*         8  ADDITION OF FILE 426 FROM HOWARD DEAN OF SYNTEX      *   DOC FILE
//*            TO CONTAINS A COPY OF THE JOBNAME PROCESSOR WHICH    *   DOC FILE
//*            ALLOWS STARTED TASKS TO HAVE ACCOUNT INFORMATION     *   DOC FILE
//*            AND A COPY OF JSTATUS FOR JES2 1.3.3/4               *   DOC FILE
//*                                                                 *   DOC FILE
//*         9  UPDATE TO FILE 401 FROM BELLCORE  TO CONTAIN VER     *   DOC FILE
//*            4.2 OF THEIR TSSO SUBSYSTEM                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  DUE TO THE EVER  INCREASING SIZE OF THIS MESS IT IS  *   DOC FILE
//*            NOW TIME TO START TO DELETE SOME OF THE VERY OLD     *   DOC FILE
//*            STUFF ON THE TAPE.  HERE WE GO                       *   DOC FILE
//*               1.  APEMAN         (FILES 034 079 092-097 103)    *   DOC FILE
//*               2.  SUBMAN         (FILES 104-108)                *   DOC FILE
//*               3.  FREEALL        (FILES 006 030 031)            *   DOC FILE
//*               4.  DMS NON/SE     (FILES 023 024)                *   DOC FILE
//*               5.  MTRACE         (FILE  027)                    *   DOC FILE
//*               6.  DLIB XREF      (FILES 028 029 140)            *   DOC FILE
//*               7.  OLD IEAIPS00   (FILE  047)                    *   DOC FILE
//*               8.  OLD MONITOR    (FILES 073 074)                *   DOC FILE
//*               9.  SQA MONITOR    (FILE  076)                    *   DOC FILE
//*              10.  COREZAP        (FILES 077 078)                *   DOC FILE
//*              11.  XWTR DUMPER    (FILE  080)                    *   DOC FILE
//*              12.  GUIDE INFO     (FILE  123)                    *   DOC FILE
//*              13.  TRACE PGM      (FILE  137)                    *   DOC FILE
//*              14.  OLD RMFPP      (FILE  142)                    *   DOC FILE
//*              15.  ANALYSIS PGM   (FILE  154)                    *   DOC FILE
//*              16.  SRM ZAP        (FILE  177)                    *   DOC FILE
//*              17.  OLD RMFPP      (FILES 179 180 190 201 247)    *   DOC FILE
//*              18.  MELLON SHARED  (FILES 188 189)                *   DOC FILE
//*              19.  SMF PGM        (FILE  194)                    *   DOC FILE
//*              20.  SMF EXTRACT    (FILE  197)                    *   DOC FILE
//*              21.  SYSEVENT PGM   (FILES 208 209 210)            *   DOC FILE
//*              22.  DCMS # SYS     (FILE  211)                    *   DOC FILE
//*              23.  OLD JES2 MDS   (FILES 230 231 232)            *   DOC FILE
//*              24.  DCMS 2.2       (FILES 240-245)                *   DOC FILE
//*              25.  SMF EXTRACT    (FILES 248 249)                *   DOC FILE
//*              26.  RMF SYNC       (FILE  251)                    *   DOC FILE
//*              27.  OLD QUE        (FILE  278)                    *   DOC FILE
//*              28.  SCRIPT         (FILES 280-286)                *   DOC FILE
//*                                   SCRIPT NOW IS IN FILES        *   DOC FILE
//*                                   016-037 OF THE CBT OVERFLOW   *   DOC FILE
//*                                   TAPE - NOT ON THIS TAPE       *   DOC FILE
//*              29.  MELLON SHARED  (FILES 343 344 345)            *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-249 SECTION                                          *   DOC FILE
//*  V-249  CHANGES FOR VERSION 249 JULY 05, 1985                   *   DOC FILE
//*         1  UPDATE TO FILE 035 TO CONTAIN A COPY OF PDS VERSION  *   DOC FILE
//*            7.1                                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 296 FROM MR BRUCE LELAND OF SERENA    *   DOC FILE
//*            THIS HAS BEEN UPDATED TO:                            *   DOC FILE
//*                A.  COMPARE -   MODIFIED TO CHECK MEMBERS OF A   *   DOC FILE
//*                                PDS BEFORE THE COMPARE IS DONE   *   DOC FILE
//*                B.  REVIEW  -   CHANGES TO SYNCHRONIZE WITH THE  *   DOC FILE
//*                                HEL COMMAND. SUPPORT FOR 3278-X  *   DOC FILE
//*                C.  RELEASE -   RELEASE COMMAND (ORIGINAL FROM   *   DOC FILE
//*                                THE AIR FORCE) ADD.  HAS VOLUME  *   DOC FILE
//*                                SUPPORT.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  ADDITION OF FILE 423 FROM BROIDO COMPUTER CONSULTING *   DOC FILE
//*            THIS FILE CONTAINS SEVERAL OF THEIR UTILITIES.       *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-248 SECTION                                          *   DOC FILE
//*  V-248  CHANGES FOR VERSION 248 JUNE 11, 1985                   *   DOC FILE
//*         1  UPDATE TO FILE 400 WHICH IS DYNAMASK TO CORRECT A    *   DOC FILE
//*            MINOR BUG IN THE CODE                                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-247 SECTION                                          *   DOC FILE
//*  V-247  CHANGES FOR VERSION 247 APRIL 21, 1985                  *   DOC FILE
//*         1  ADDITION OF FILE 422 FROM MAY & SPEH OF OAKBROOK     *   DOC FILE
//*            TERRACE, ILLINOIS.  THIS FILE CONTAINS SOME UTILITY  *   DOC FILE
//*            PROGRAMS INCLUDING A PROGRAM THAT WILL PRINT OUT THE *   DOC FILE
//*            AUTOMATIC SCHEDULING FACILITY FILE FROM DAVE COLE    *   DOC FILE
//*            AT COMNET FROM FILE 388                              *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 296 FROM MR BRUCE LELAND OF SERENA    *   DOC FILE
//*            THIS HAS BEEN UPDATED TO CONTAIN:                    *   DOC FILE
//*                A.  DSAT    -   MODFIED TO USE UCB SCAN ROUTINE  *   DOC FILE
//*                B.  HEL     -   MODFIED TO CORRECT A MINOR       *   DOC FILE
//*                                PROBLEM WITH 3278 MODEL 5        *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILES 018 AND 035 TO CONTAIN VERSION       *   DOC FILE
//*            # 6.5.3 OF TSUPDATE FROM CONRAIL                     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-246 SECTION                                          *   DOC FILE
//*  V-246  CHANGES FOR VERSION 246 MARCH 24, 1985                  *   DOC FILE
//*         1  UPDATE TO FILE 012 FROM JOHN HANCOCK MUTUAL LIFE     *   DOC FILE
//*            WHICH IS A COPY OF THEIR ISPF BACKGROUND JOBS DRIVER *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  ADDITION OF FILE 421 WHICH IS THE XACORZAP PROGRAM   *   DOC FILE
//*            FROM ROBERT BUDGE OF HITACHI (FORMERLY NAS)          *   DOC FILE
//*            (NATIONAL ADVANCED SYSTEMS).  THIS IS A VERSION      *   DOC FILE
//*            OF INCORZAP WHICH WILL RUN IN ANY MVS ENVIRONMENT    *   DOC FILE
//*            INCLUDING XA OR SP 1.3.  ROBERT BUDGE IS THE         *   DOC FILE
//*            ORIGINAL AUTHOR OF INCORZAP FROM THE TIME HE WORKED  *   DOC FILE
//*            FOR IBM.  THIS VERSION TURNS OFF PAGE PROTECTION IN  *   DOC FILE
//*            MVS/XA, SO YOU CAN SEE HOW TO DO IT.                 *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-245 SECTION                                          *   DOC FILE
//*  V-245  CHANGES FOR VERSION 245 MARCH 17, 1985                  *   DOC FILE
//*         1  ADDITION OF FILES 360 WHICH IS FROM THE STATE OF     *   DOC FILE
//*            WISCONSIN REGIONAL COMPUTING CENTER AND CONTAINS     *   DOC FILE
//*            SEVERAL OF THEIR PROGRAMS AND UTILITIES              *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  ADDITION OF FILE 400 WHICH IS DYNAMASK FROM STEVE    *   DOC FILE
//*            SMITH OF SECURITY PACIFIC NATIONAL BANK              *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-244 SECTION                                          *   DOC FILE
//*  V-244  CHANGES FOR VERSION 244 MARCH 04, 1985                  *   DOC FILE
//*         1  ADDITION OF FILE 359 FROM SYNTEX TO CONTAIN SEVERAL  *   DOC FILE
//*            OF THEIR PROGRAMS, ISPF STUFF, UTILTIES, ETC         *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-243 SECTION                                          *   DOC FILE
//*  V-243  CHANGES FOR VERSION 243 FEBRUARY 17, 1985               *   DOC FILE
//*         1  UPDATE TO FILE 070 FROM GENERAL DYNAMICS WHICH IS    *   DOC FILE
//*            A COPY OF THEIR USER MODS TO AN MVS/XA 2.1.1 LEVEL   *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 401 FROM BELLCORE TO CONTAIN VER      *   DOC FILE
//*            4.1 OF THEIR TSSO SUBSYSTEM                          *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  ADDITION OF FILE 199 FROM DAVE COLE AT COMNET        *   DOC FILE
//*            WHICH CONTAINS SOME NEW TSO COMMAND PROCESSORS       *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  UPDATE TO FILE 296 TO UPDATE THE MEMBER CALLED HEL   *   DOC FILE
//*            TO CORRECT A MINOR PROBLEM FOR A USER WITH A 3278-5  *   DOC FILE
//*            TERMINAL WHERE HEL IS INVOKED FROM A 27 X 132        *   DOC FILE
//*            CHARACTER SCREEN                                     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-242 SECTION                                          *   DOC FILE
//*  V-242  CHANGES FOR VERSION 242 FEBRUARY 06, 1985               *   DOC FILE
//*         1  UPDATE TO FILE 127 WHICH IS A COMPLETE REPLACEMENT   *   DOC FILE
//*            FROM MR CLARK HUNTER OF COMPUWARE.  SEE WHAT'S       *   DOC FILE
//*            UNDER FILE 127 FOR A LIST OF THE COMPLETE CHANGES    *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 300 FROM THE AIR FORCE TO             *   DOC FILE
//*            VERSION 15.0 JANUARY 25, 1985                        *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILE 316 FROM THE AIR FORCE TO             *   DOC FILE
//*            VERSION 11.0 JANUARY 25, 1985                        *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  ADDITION OF FILE 384 FROM COMPUTER DATA SYSTEMS INC  *   DOC FILE
//*            OF ROCKVILLE, MARYLAND.  THIS FILE CONTAINS:         *   DOC FILE
//*                A.  ISPF QUE   (SEE $$QDOC)                      *   DOC FILE
//*                B.  ISPF SPY   (SEE ISP#QI2)                     *   DOC FILE
//*                C.  OTHER PGMS (SEE $$$DOC)                      *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  UPDATE TO FILE 296 FROM MR BRUCE LELAND OF SERENA    *   DOC FILE
//*            THIS HAS BEEN UPDATED TO CONTAIN:                    *   DOC FILE
//*                A.  DVOL    -   MODFIED FOR MVS/XA               *   DOC FILE
//*                B.  HEL     -   MODFIED TO HANDLE 3278 MODELS    *   DOC FILE
//*                                3 AND 4 AND 5                    *   DOC FILE
//*                C.  COMPARE -   ADDED A PDS PUTLINE INTERFACE    *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-241 SECTION                                          *   DOC FILE
//*  V-241  CHANGES FOR VERSION 241 JANUARY 01, 1985                *   DOC FILE
//*         1  UPDATE TO FILES 018 AND 035 TO CONTAIN VERSION       *   DOC FILE
//*            # 6.5 OF TSUPDATE FROM CONRAIL                       *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-240 SECTION                                          *   DOC FILE
//*  V-240  CHANGES FOR VERSION 240 DECEMBER 18, 1984               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-239 SECTION                                          *   DOC FILE
//*  V-239  CHANGES FOR VERSION 239 NOVEMBER 18, 1984               *   DOC FILE
//*         1  UPDATE CROSS REFERENCE SECTION FROM DAVE COLE ABOUT  *   DOC FILE
//*            HIS MACLIB (408) AND - DYNABLDL (407), XREFASM (162) *   DOC FILE
//*            SCHEDULE (388) COMPRSEQ (226) OFFLOAD (225)          *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-238 SECTION                                          *   DOC FILE
//*  V-238  CHANGES FOR VERSION 238 NOVEMBER 04, 1984               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-237 SECTION                                          *   DOC FILE
//*  V-237  CHANGES FOR VERSION 237 OCTOBER 28, 1984                *   DOC FILE
//*         1  UPDATE TO FILE 225 FROM DAVE COLE AT COMNET TO       *   DOC FILE
//*            CONTAIN AN UPDATED COPY OF THE OFFLOAD PROGRAM       *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 299 FROM DAVE COLE AT COMNET TO       *   DOC FILE
//*            CONTAIN AN UPDATED COPY OF TAPEMAP.  THIS VERSION    *   DOC FILE
//*            HAS BEEN UPDATED TO                                  *   DOC FILE
//*                1  SHOW DETAILED LISTINGS OF THE CONTENTS OF FDR *   DOC FILE
//*                   AND FDRDSF TAPES                              *   DOC FILE
//*                2  ADDED SUPPORT FOR BLKSIZES GREATER THAN 32K   *   DOC FILE
//*                   UP TO 64K-1 BYTES.  (THE RECENT RELEASES OF   *   DOC FILE
//*                   FDR WRITE BLOCKS THAT ARE 50K LARGE OR        *   DOC FILE
//*                   LARGER)                                       *   DOC FILE
//*                3  ADDED A REWIND COMMAND JUST AFTER THE TAPE IS *   DOC FILE
//*                   OPENED TO ENSURE THAT THE TAPE IS PROPERLY    *   DOC FILE
//*                   POSITIONED.  THIS MAKES TAPE MAPPING STANDARD *   DOC FILE
//*                   LABELED TAPES IN A UCC/1 ENVIROMNEMT A LITTLE *   DOC FILE
//*                   EASIER                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILE 035 TO HAVE THE CURRENT LOAD MODULES  *   DOC FILE
//*            OF:                                                  *   DOC FILE
//*                 A   TAPEMAP    SOURCE FILE 299                  *   DOC FILE
//*                 B   OFFLOAD    SOURCE FILE 225                  *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-236 SECTION                                          *   DOC FILE
//*  V-236  CHANGES FOR VERSION 236 OCTOBER 21, 1984                *   DOC FILE
//*         1  UPDATE TO FILE 116 WHICH IS A DISK SEEK ANALYSIS     *   DOC FILE
//*            PROGRAM TO RUN UNDER AN MVS/XA AND NON - XA          *   DOC FILE
//*            ENVIRONMENT.  THIS CODE HAS NOT BEEN MODIFIED TO     *   DOC FILE
//*            HANDLE INDEXED VTOCS AND ICF DATASETS THAT HAVE      *   DOC FILE
//*            MORE THAT 15 EXTENTS                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 325 FROM WELLS FARGO TO ADD NEW CODE  *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILE 296 FROM MR BRUCE LELAND OF SERENA    *   DOC FILE
//*            THIS HAS BEEN UPDATED TO CONTAIN A NEW TSO CP CALLED *   DOC FILE
//*            XEQ AND UPDATED VERSIONS OF HEL AND REVIEW           *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  UPDATE TO FILE 112 FROM MR BRUCE LELAND OF SERENA    *   DOC FILE
//*            TO VTOC WHICH WILL WORK UNDER MVS/XA AND NON-XA      *   DOC FILE
//*            AND ICF CATALOGS WITH MORE THAN 16 EXTENTS           *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-235 SECTION                                          *   DOC FILE
//*  V-235  CHANGES FOR VERSION 235 SEPTEMBER 16, 1984              *   DOC FILE
//*         1  UPDATE TO FILE 035 TO HAVE THE CURRENT LOAD MODULES  *   DOC FILE
//*            OF:  A   DYNABLDL   SOURCE FILE 407                  *   DOC FILE
//*                 B   TAPEMAP    SOURCE FILE 299                  *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  REMOVAL OF THE TAPEMAP PROGRAM FROM FILES 149 AND    *   DOC FILE
//*            316 OF THIS TAPE.  TAPEMAP IS NOW ON FILE 299        *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  ADDITION OF FILE 162 FROM MR DAVE COLE OF COMNET     *   DOC FILE
//*            WHICH CONTAINS A COPY OF THEIR GLOBAL CROSS -        *   DOC FILE
//*            REFERENCE LISTING GENERATOR (XREFASM)                *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  UPDATE TO FILE 299 FROM DAVE COLE AT COMNET TO       *   DOC FILE
//*            CONTAIN AN UPDATED COPY OF TAPEMAP.  THIS VERSION    *   DOC FILE
//*            HAS SEVERAL CHANGES TO IT - THIS VERSION WILL ALSO   *   DOC FILE
//*            REPLACE THE VERSIONS OF TAPEMAP THAT WERE IN FILES   *   DOC FILE
//*            149 AND 316 (ALSO UPDATED THE LOAD MODULE IN FILE    *   DOC FILE
//*            035)                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  ADDITION OF FILE 336 FROM RICE UNIVERISTY WHICH      *   DOC FILE
//*            CONTAINS SEVERAL OF THE UTILITY PROGRAMS, TSO        *   DOC FILE
//*            COMMANDS PROCESSORS, MACROS, ETC                     *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  UPDATE TO FILE 388 TO REMOVE ALL THE MACROS FROM     *   DOC FILE
//*            THE SCHEDULER SYSTEM AND PUT THEM IN FILE 408        *   DOC FILE
//*            OF THIS TAPE                                         *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-234 SECTION                                          *   DOC FILE
//*  V-234  CHANGES FOR VERSION 234 AUGUST 28, 1984                 *   DOC FILE
//*         1  UPDATE TO FILE 300 FROM THE AIR FORCE TO             *   DOC FILE
//*            VERSION 14.0 JULY 24, 1984                           *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  ADDITION OF FILE 161 FROM THE AIR FORCE TO           *   DOC FILE
//*            CONTAIN A COPY OF THEIR ISPF/PDF CODE                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-233 SECTION                                          *   DOC FILE
//*  V-233  CHANGES FOR VERSION 233 AUGUST 22, 1984                 *   DOC FILE
//*         1  UPDATE TO FILE 325 FROM WELLS FARGO TO ADD NEW CODE  *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 270 FROM THE WASHINGTON STATE DP      *   DOC FILE
//*            SERVICE CENTER TO CONTAIN SEVERAL OF THEIR LOCAL     *   DOC FILE
//*            UTILITIES                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  ADDITION OF FILE 159 FROM CBT WHICH CONTAINS A COPY  *   DOC FILE
//*            THEIR UCBFIND ROUTINE FOR MVS AND MVS/XA             *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  UPDATE TO FILE 296 FROM MR BRUCE LELAND OF SERENA    *   DOC FILE
//*            THIS HAS BEEN UPDATED TO CONTAIN HEL AND A NEW       *   DOC FILE
//*            VERSION OF REVIEW                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  ADDITION OF FILE 160 MR CHUCK HOFFMAN OF GTE LABS    *   DOC FILE
//*            AND THE COMMONWEALTH OF MASSACHUSETTS WHICH CONTAIN  *   DOC FILE
//*            SEVERAL OF THEIR TSO COMMAND PROCESSORS              *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  UPDATE TO FILE 418 FROM COMBINED INTERNATIONAL.      *   DOC FILE
//*            THE MEMBER CALLED ACFSCAN HAS BEEN UPDATED TO        *   DOC FILE
//*            CORRECT A DATE INTERVAL PROBLEM WHEN A USER GOES TO  *   DOC FILE
//*            A NEW YEAR                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*         7  UPDATE TO FILES 018 AND 035 TO CONTAIN VERSION #     *   DOC FILE
//*            6.4 OF TSUPDATE FROM CONRAIL THAT HAS 3380 SUPPORT   *   DOC FILE
//*                                                                 *   DOC FILE
//*         8  ADDITION OF FILE 401 TO CONTAIN A COPY OF THE        *   DOC FILE
//*            MODIFIED TSSO SUBSYSTEM FROM BELL COMMUNICATIONS     *   DOC FILE
//*            RESEARCH.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*         9  ADDITION OF FILES 271-273 FROM KEITH MOE FROM AMDAHL *   DOC FILE
//*                                                                 *   DOC FILE
//*            A  FILE 271 - DYNAMIC PROCLIB                        *   DOC FILE
//*            B  FILE 272 - VTAM LOGO MODIFICATION                 *   DOC FILE
//*            C  FILE 273 - TSO AND STC UNDER A SECONDARY JES      *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-232 SECTION                                          *   DOC FILE
//*  V-232  CHANGES FOR VERSION 232 JUNE 17, 1984                   *   DOC FILE
//*         1  UPDATE TO FILE 353 FROM MORTON THIOKOL, INC OF       *   DOC FILE
//*            CHICAGO.  ALSO A NEW PROGRAM WHICH PROVIDES A FULL   *   DOC FILE
//*            SCREEN EDITOR THAT CAN BE INVOKED AS A STARTED       *   DOC FILE
//*            TASK, SPECIFYING A CRT ADDRESS AS AN EXEC PARM       *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 388 TO CONTAIN AN UPDATED VERSION OF  *   DOC FILE
//*            THE SCHEDULE SYSTEM FROM COMNET.  THIS VERSION       *   DOC FILE
//*            SCHEUDLES ON THE BASIS OF LOCAL TIME RATHER THAN     *   DOC FILE
//*            GMT.  THE MACROS NEEDED ARE CONTAINED IN FILE 408    *   DOC FILE
//*            OF THIS TAPE                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILE 226 WHICH IS A NEW VERSION OF CMPRSEQ *   DOC FILE
//*            FROM DAVE COLE AT COMNET.  THIS VERSION HAS SEVERAL  *   DOC FILE
//*            ENHANCEMENTS FROM THE PREVIOUS VERSION               *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  UPDATE TO FILE 339  FROM  E.F. MACDONALD MOTIVATION  *   DOC FILE
//*            WHICH IS A COPY OF THEIR JES2 EXIT # 5 PROGRAM       *   DOC FILE
//*            TO RUN UNDER JES2 1.3.4 AND/OR JES2 1.3.3            *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  UPDATE TO FILE 381 FROM NORTHWESTERN BANK TO         *   DOC FILE
//*            UPDATE THEIR JES2 EXITS FOR SP1.3.3 LEVEL            *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-231 SECTION                                          *   DOC FILE
//*  V-231  CHANGES FOR VERSION 231 MAY 28, 1984                    *   DOC FILE
//*         1  UPDATE TO FILE 218 FROM COCA COLA TO ADD A ZAP TO    *   DOC FILE
//*            FIX A PROBLEM WITH THEIR RMFMON USER PROGRAM         *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  ADDITION OF FILE 339 FROM E.F. MACDONALD MOTIVATION  *   DOC FILE
//*            WHICH IS A COPY OF THEIR JES2 EXIT # 5 PROGRAM       *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-230 SECTION                                          *   DOC FILE
//*  V-230  CHANGES FOR VERSION 230 APRIL 15, 1984                  *   DOC FILE
//*         1  ADDITION OF FILE 325 FROM WELLS FARGO BANK IN        *   DOC FILE
//*            CALIFORNIA TO ADD A FEW OF THEIR TSO COMMANDS AND    *   DOC FILE
//*            PROGRAMS                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 296 TO ADD TWO ADDITIONAL TSO CPS     *   DOC FILE
//*            DSAT AND DVOL                                        *   DOC FILE
//*                DSAT - CHANGED TO SUPPORT 3375'S AND 3380'S      *   DOC FILE
//*                DVOL - SUPPORT   WAS ADDED FOR INDEXED VTOCS     *   DOC FILE
//*                       3375'S AND 3380'S                         *   DOC FILE
//*                       SUPPORT   WAS ADDED FOR PARTIAL VOLUME    *   DOC FILE
//*                       NAMES                                     *   DOC FILE
//*                       SUPPORT   WAS ADDED FOR UCB ADDRESSES     *   DOC FILE
//*                       AND PARTIAL UCB ADDRESSES                 *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-229 SECTION                                          *   DOC FILE
//*  V-229  CHANGES FOR VERSION 229 MARCH 25, 1984                  *   DOC FILE
//*         1  UPDATE TO FILE 294 TO CONTAINS THE VSAM ANALYZER     *   DOC FILE
//*            THAT HAS 3380 SUPPORT                                *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  ADDITION OF FILE 393 WHICH IS A COPY OF THE TSO CP   *   DOC FILE
//*            CALLED QUE THAT WILL RUN UNDER MVS/SP1.3.3.  THIS    *   DOC FILE
//*            VERSION IS FROM JACK SCHUDEL FROM THE UNIVERSITY     *   DOC FILE
//*            OF FLORIDA                                           *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-228 SECTION                                          *   DOC FILE
//*  V-228  CHANGES FOR VERSION 228 MARCH 18, 1984                  *   DOC FILE
//*         1  UPDATE TO FILE 320 WHICH IS A SERIES OF DF/DSS       *   DOC FILE
//*            DRIVER EXITS FROM LOMA LINDA UNIVERSITY MED CENTER.  *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 416 FROM DELUXE CHECK PRINTERS        *   DOC FILE
//*            TO THE FOLLOWING MEMBERS:                            *   DOC FILE
//*               EXIMPORT - GEN JCL FOR EXPORTS AND IMPORTS        *   DOC FILE
//*               IGGPRE00 - DF/DS ALLOCATE PRE PROCESSING EXIT     *   DOC FILE
//*                          TESTER                                 *   DOC FILE
//*               INMRZ01  - RECEIVE INITIALIZATION EXIT            *   DOC FILE
//*               INMRZ11  - RECEIVE PRE-PROCESSING EXIT            *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  REMOVAL OF THE OLD VERSIONS OF DYNAMIC BLDL ON THIS  *   DOC FILE
//*            TAPE - HAVE RETAINED THE LATEST VERSION IN           *   DOC FILE
//*            FILE 407                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  EVERY OCCURENCE OF HARTFORD NATIONAL BANK HAS BEEN   *   DOC FILE
//*            CHANGED TO CONNECTICUT NATIONAL BANK IN THIS FILE    *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  REMOVE THE TSO CP CALLED PDS FROM FILE 300 SO AS NOT *   DOC FILE
//*            TO HAVE MULTIPLE COPIES ON THIS TAPE                 *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-227 SECTION                                          *   DOC FILE
//*  V-227  CHANGES FOR VERSION 227 FEBRUARY 26, 1984               *   DOC FILE
//*         1  UPDATE TO FILE 300 FROM THE AIR FORCE TO             *   DOC FILE
//*            VERSION 12.0 FEBRUARY 07, 1984                       *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 306 FROM THE AIR FORCE TO VERSION     *   DOC FILE
//*            5.0 OCTOBER 03, 1984 (CONTAINS XA VERSION OF TSSO)   *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILE 316 FROM THE AIR FORCE TO             *   DOC FILE
//*            VERSION 10.0 FEBRUARY 07, 1984                       *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  REMOVAL OF ALL INFORMATION CONCERNING THE IMS USERS  *   DOC FILE
//*            GROUP TAPE WHICH IS NO LONGER AVAILABLE              *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  ADDITION OF FILE 418 FROM COMBINED INSURANCE OF      *   DOC FILE
//*            AMERICA WHICH CONTAINS TWO ACF2 EXITS AND AN         *   DOC FILE
//*            MVS/XA  (XA) VERSION OF DIDOCS CALLED MCS            *   DOC FILE
//*            (THIS IS THE VERSION OF DIDOCS THAT CBT RUNS)        *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-226 SECTION                                          *   DOC FILE
//*  V-226  CHANGES FOR VERSION 226 FEBRUARY 12, 1984               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-225 SECTION                                          *   DOC FILE
//*  V-225  CHANGES FOR VERSION 225 FEBRUARY 05, 1984               *   DOC FILE
//*         1  ADDITION OF FILE 416 FROM DELUXE CHECK PRINTERS      *   DOC FILE
//*            THAT CONTAINS SEVERAL OF THEIR UTILITY PROGRAMS      *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-224 SECTION                                          *   DOC FILE
//*  V-224  CHANGES FOR VERSION 224 JANUARY  15, 1984               *   DOC FILE
//*         1  UPDATE TO FILE 035 TO CONTAIN A COPY OF THE LOAD     *   DOC FILE
//*            MODULE CALLED DYNABLDL.  THE SOURCE IS IN FILE 407   *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 001 OF THIS TAPE TO CREDIT AUTHORSHIP *   DOC FILE
//*            OF A FEW PROGRAMS TO THE PROPER INDIVIDUAL, MR.      *   DOC FILE
//*            DAVID B COLE, OF COMNET, IN WASHINGTON D.C.          *   DOC FILE
//*               FILE 225 OFFLOAD (WHEN MR COLE WORKED FOR YALE)   *   DOC FILE
//*               FILE 226 CMPRSEQ (WHEM MR COLE WORKED FOR YALE)   *   DOC FILE
//*               FILE 388 SCHEDULE                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  ADDITION OF FILES 407 AND 408 FROM MR DAVID B COLE   *   DOC FILE
//*            FROM COMNET THAT CONTAINS A NEW VERSION OF DYNABLDL  *   DOC FILE
//*            THAT HAS SIGNIFICANT DIFFERENCES FROM THE OTHER      *   DOC FILE
//*            VERSIONS ON THIS TAPE                                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-223 SECTION                                          *   DOC FILE
//*  V-223  CHANGES FOR VERSION 223 NOVEMBER 27, 1983               *   DOC FILE
//*         1  ADDITION OF FILE 401 WHICH CONTAINS A COPY OF TSSO   *   DOC FILE
//*            FROM MARC SCHARE OF BELL COMMUNICATIONS RESEARCH     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-222 SECTION                                          *   DOC FILE
//*  V-222  CHANGES FOR VERSION 222 OCTOBER 30, 1983                *   DOC FILE
//*         1  ADDITION OF FILE 388 FROM COMNET WHICH CONTAINS A    *   DOC FILE
//*            COPY OF THEIR OPERATOR COMMANDS SCHEDULING FACILITY  *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-221 SECTION                                          *   DOC FILE
//*  V-221  CHANGES FOR VERSION 221 OCTOBER 23, 1983                *   DOC FILE
//*         1  ADDITION OF FILE 012 FROM JOHN HANCOCK MUTUAL LIFE   *   DOC FILE
//*            WHICH IS A COPY OF THEIR ISPF BACKGROUND JOBS DRIVER *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-220 SECTION                                          *   DOC FILE
//*  V-220  CHANGES FOR VERSION 220 SEPTEMBER 25, 1983              *   DOC FILE
//*         1  ADDITION OF A QUE TSO CP SECTION IN THIS FILE WHERE  *   DOC FILE
//*            I WILL ATTEMPT TO DOCUMENT ALL THE QUE COMMANDS THAT *   DOC FILE
//*            ARE ON THIS TAPE.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-219 SECTION                                          *   DOC FILE
//*  V-219  CHANGES FOR VERSION 219 AUGUST 28, 1983                 *   DOC FILE
//*         1  UPDATE TO FILE 300 TO RELEASE 11.0 OF TSO COMMANDS   *   DOC FILE
//*            FROM THE U.S. AIR FORCE IN SAN ANTONIO, TEXAS        *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 316 TO RELEASE 9.0 OF BATCH COMMANDS  *   DOC FILE
//*            FROM THE U.S. AIR FORCE IN SAN ANTONIO, TEXAS        *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-218 SECTION                                          *   DOC FILE
//*  V-218  CHANGES FOR VERSION 218 AUGUST 07, 1983                 *   DOC FILE
//*         1  ADDITION OF FILE 383 FROM INTEL WHICH IS A PDS       *   DOC FILE
//*            CONTAINING A COPY OF THEIR CLISTS FOR THEIR          *   DOC FILE
//*            TECHINFO SYSTEM WHICH IS INCLUDED IN FILE 352 OF     *   DOC FILE
//*            THIS TAPE                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  ADDITION OF FILE 381 FROM NORTHWESTERN BANK WHICH    *   DOC FILE
//*            CONTAINS A COPY OF SOME OF THEIR PROGRAMS, JES2      *   DOC FILE
//*            EXITS AND UTILITIES                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILE 352 WHICH IS THE INTEL MODS TAPE      *   DOC FILE
//*            TO VERSION 1.11 (JULY 1983)                          *   DOC FILE
//*               THIS FILE HAS THE INTEL QUE COMMAND FOR USE WITH  *   DOC FILE
//*               JES2 1.3.0 (THE LANE BRYANT CODE HAS BEEN         *   DOC FILE
//*               INCORPORATED INTO THIS VERSION )                  *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-217 SECTION                                          *   DOC FILE
//*  V-217  CHANGES FOR VERSION 217 JULY 17, 1983                   *   DOC FILE
//*         1  NEW VERSION OF FILE 155 WHICH IS THE 'THE MVS        *   DOC FILE
//*            TUNING REPORT VERSION V JUNE 14, 1983 ',             *   DOC FILE
//*            FROM THE SHARE MVS TUNING COMMITTEE.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  ADDITION OF FILE 379 FROM THE SPLA TAPE WHICH        *   DOC FILE
//*            CONTAINS A SYSTEM TO GENERATE SEVERAL PROCLIB        *   DOC FILE
//*            XREF REPORTS                                         *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-216 SECTION                                          *   DOC FILE
//*  V-216  CHANGES FOR VERSION 216 JUNE 12, 1983                   *   DOC FILE
//*         1  ADDITION OF FILE 373 FROM GTE LABS, WALTHAM, MASS    *   DOC FILE
//*            WHICH CONTAINS A COUPLE OF THEIR TSO COMMAND         *   DOC FILE
//*            PROCESSORS, ONE REPLACES LISTALC AND THE OTHER IS    *   DOC FILE
//*            IS FOR QUICK AND EASY ALLOCATION OF A NEW DATASET    *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-215 SECTION                                          *   DOC FILE
//*  V-215  CHANGES FOR VERSION 215 MAY 08, 1983                    *   DOC FILE
//*         1  ADDITION OF FILE 369 WHICH CONTAINS THE SYSTEM       *   DOC FILE
//*            MODIFICATION TO ADD I/O COUNTS TO MESSAGE IEF285I    *   DOC FILE
//*            FROM GENERAL ELECTRIC                                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-214 SECTION                                          *   DOC FILE
//*  V-214  CHANGES FOR VERSION 214 APRIL 17, 1983                  *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-213 SECTION                                          *   DOC FILE
//*  V-213  CHANGES FOR VERSION 213 MARCH 20, 1983                  *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-212 SECTION                                          *   DOC FILE
//*  V-212  CHANGES FOR VERSION 212 MARCH 14, 1983                  *   DOC FILE
//*         1  UPDATE TO FILE 300 TO RELEASE 10.0 OF TSO COMMANDS   *   DOC FILE
//*            FROM THE U.S. AIR FORCE IN SAN ANTONIO, TEXAS        *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 316 TO RELEASE 7.0 OF BATCH COMMANDS  *   DOC FILE
//*            FROM THE U.S. AIR FORCE IN SAN ANTONIO, TEXAS        *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILE 306 TO RELEASE 4.0 OF THE TIME        *   DOC FILE
//*            SHARING SUBSYSTEM OPTION (TSSO) FROM THE U.S.        *   DOC FILE
//*            AIR FORCE IN TEXAS                                   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-211 SECTION                                          *   DOC FILE
//*  V-211  CHANGES FOR VERSION 211 FEBRUARY 27, 1983               *   DOC FILE
//*         1  ADDITION OF FILE 353 FROM MORTON-THIOKOL, INC WHICH  *   DOC FILE
//*            CONTAINS SEVERAL OF THEIR PROGRAMS TO RUN UNDER SPF  *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 070 FROM GENERAL DYNAMICS WHICH IS    *   DOC FILE
//*            A COPY OF THEIR USER MODS                            *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-210 SECTION                                          *   DOC FILE
//*  V-210  CHANGES FOR VERSION 210 JANUARY 23, 1983                *   DOC FILE
//*         1  UPDATE TO FILE 300 TO RELEASE 9.0  OF TSO COMMANDS   *   DOC FILE
//*            FROM THE U.S. AIR FORCE IN SAN ANTONIO TEXAS         *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 316 TO RELEASE 6.0 OF BATCH COMMANDS  *   DOC FILE
//*            FROM THE U.S. AIR FORCE IN SAN ANTONIO TEXAS         *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILE 037 WHICH IS THE MVS VERSION OF       *   DOC FILE
//*            COPYCAT TO INCLUDE 3380 / 3375 SUPPORT FROM UCLA     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-209 SECTION                                          *   DOC FILE
//*  V-209  CHANGES FOR VERSION 209 JANUARY 02, 1983                *   DOC FILE
//*         1  REMOVAL OF ALL REFERENCE TO THE GTE MVS              *   DOC FILE
//*            MODIFICATION TAPE.  THIS TAPE IS NO LONGER           *   DOC FILE
//*            AVAILABLE.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 003 WHICH IS THE JCL TO DROP DOWN THE *   DOC FILE
//*            TAPE.  THIS FILE WILL NOW  EXECUTE IEBUPDTE TO PUT   *   DOC FILE
//*            PDS'S BACK INTO PDS FORMAT                           *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-208 SECTION                                          *   DOC FILE
//*  V-208  CHANGES FOR VERSION 208 DECEMBER 19, 1982               *   DOC FILE
//*         1  UPDATE TO FILE 260 FROM CONNECTICUT NATIONAL BANK    *   DOC FILE
//*            TO THE QUICK MAP PROGRAM TO SUPPORT RACF.  IF THE    *   DOC FILE
//*            RACF BIT IS ON FOR A DATASET THE WORD 'RACF' WILL    *   DOC FILE
//*            APPEAR IN THE 'R/W' FIELD                            *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  ADDITION OF FILE 012 FROM JOHN HANCOCK MUTUAL LIFE   *   DOC FILE
//*            WHICH IS A COPY OF THEIR ISPF BACKGROUND JOBS DRIVER *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-207 SECTION                                          *   DOC FILE
//*  V-207  CHANGES FOR VERSION 207 DECEMBER 05, 1982               *   DOC FILE
//*         1  UPDATE TO FILES 018 AND 035 TO CONTAIN VERSION # 6   *   DOC FILE
//*            OF TSUPDATE FROM CONRAIL                             *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-206 SECTION                                          *   DOC FILE
//*  V-206  CHANGES FOR VERSION 206 NOVEMBER 28, 1982               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-205 SECTION                                          *   DOC FILE
//*  V-205  CHANGES FOR VERSION 205 NOVEMBER 21, 1982               *   DOC FILE
//*         1  UPDATE TO FILE 260 WHICH IS THE QUICK MAP PROGRAM    *   DOC FILE
//*            TO SUPPORT INDEXED VTOCS                             *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-204 SECTION                                          *   DOC FILE
//*  V-204  CHANGES FOR VERSION 204 NOVEMBER 14, 1982               *   DOC FILE
//*         1  UPDATE TO FILE 296 TO HAVE A NEW VERSION OF BLKDISK  *   DOC FILE
//*            PROGRAM.  SEE THE WRITEUP UNDER FILE 296 FOR         *   DOC FILE
//*            ADDITIONAL INFORMATION                               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-203 SECTION                                          *   DOC FILE
//*  V-203  CHANGES FOR VERSION 203 NOVEMBER 07, 1982               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-202 SECTION                                          *   DOC FILE
//*  V-202  CHANGES FOR VERSION 202 OCTOBER 06, 1982                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-201 SECTION                                          *   DOC FILE
//*  V-201  CHANGES FOR VERSION 201 OCTOBER 03, 1982                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-200 SECTION                                          *   DOC FILE
//*  V-200  CHANGES FOR VERSION 200 SEPTEMBER 26, 1982              *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-199 SECTION                                          *   DOC FILE
//*  V-199  CHANGES FOR VERSION 199 SEPTEMBER 19, 1982              *   DOC FILE
//*         1  ADDITION OF FILE 352 FROM INTEL WHICH CONTAINS A     *   DOC FILE
//*            COPY OF THE INTEL MODS TAPE                          *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 218 FROM COCA COLA TO FIX A PROBLEM   *   DOC FILE
//*            WITH THEIR USER SCREENS FOR RMFMON AND ADD SOME      *   DOC FILE
//*            ADDITIONAL PROGRAMS                                  *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-198 SECTION                                          *   DOC FILE
//*  V-198  CHANGES FOR VERSION 198 SEPTEMBER 12, 1982              *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-197 SECTION                                          *   DOC FILE
//*  V-197  CHANGES FOR VERSION 197 SEPTEMBER 05, 1982              *   DOC FILE
//*         1  ADDITION OF FILE 100 AND 101 FROM DELUXE CHECK       *   DOC FILE
//*            PRINTERS WHICH CONTAINS A COPY OF THEIR SPF MENUS,   *   DOC FILE
//*            PANELS, MESSAGES, AND CLISTS FOR THE NEW ISPF/PDF.   *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 300 TSO COMMANDS FROM THE AIR FORCE   *   DOC FILE
//*            TO CORRECT SAVESHR SO IT WILL WORK WITH 3380'S       *   DOC FILE
//*            (AND I ASSUME WITH 3375'S ALSO).                     *   DOC FILE
//*                                                                 *   DOC FILE
//*             9/2/82 THERE WAS A PROBLEM WITH THIS COMMAND TRYING *   DOC FILE
//*              TO SAVE TO A 3380 YOU CAN READ ABOUT IT IN         *   DOC FILE
//*              INFO/MVS DO SEARCH KWS A TSO 3380. CHECK APAR      *   DOC FILE
//*              AZ57340                                            *   DOC FILE
//*               WHAT WE DID NO-OP THE FOLLOWING INSTRUCTION       *   DOC FILE
//*                                                                 *   DOC FILE
//*               LH   SAWR1,CABLKS   GET EDIT BLOCKSIZE  34760020  *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  ADDITION OF FILE 149 FROM UCLA.  THIS FILE CONTAINS  *   DOC FILE
//*            SEVERAL UTILITIES FROM UCLA INCLUDING A FULL SCREEN  *   DOC FILE
//*            EDITOR.                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  UPDATE TO FILE 320 WHICH IS A SERIES OF DF/DSS       *   DOC FILE
//*            DRIVER EXITS FROM LOMA LINDA UNIVERSITY MED CENTER.  *   DOC FILE
//*            THIS VERSION HAS A NEW UCB LOOKUP ROUTINE WHICH      *   DOC FILE
//*            IS UPWARD COMPATIBLE WITH MVS/SP1.3 AND MVS/SP2.0    *   DOC FILE
//*            (XA) AS WELL AS MVS 3.8 BASE LEVEL CODE.             *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-196 SECTION                                          *   DOC FILE
//*  V-196  CHANGES FOR VERSION 196 JULY 18, 1982                   *   DOC FILE
//*         1  UPDATE TO FILE 300 TO RELEASE 8.3  OF TSO COMMANDS   *   DOC FILE
//*            FROM THE U.S. AIR FORCE IN WASHINGTON, D.C.          *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 316 TO RELEASE 5.2 OF BATCH COMMANDS  *   DOC FILE
//*            FROM THE U.S. AIR FORCE IN WASHINGTON, D.C.          *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-195 SECTION                                          *   DOC FILE
//*  V-195  CHANGES FOR VERSION 195 JULY 11, 1982                   *   DOC FILE
//*         1  UPDATE TO FILE 003 TO NOW CONTAIN A JOB TO LOAD FILE *   DOC FILE
//*            001 OF THIS TAPE INTO A PRE-DEFINED VSAM CLUSTER     *   DOC FILE
//*            FOR INFO/MVS PROCESSING.  THIS WAS SUGGESTED,        *   DOC FILE
//*            IMPLEMENTED AND SUBMITTED BY SCHERING-PLOUGH         *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-194 SECTION                                          *   DOC FILE
//*  V-194  CHANGES FOR VERSION 194 JUNE 27, 1982                   *   DOC FILE
//*         1  UPDATE TO TSSO TO CONTAIN THE EE COMMAND FROM THE    *   DOC FILE
//*            AIR FORCE WHICH IS IN FILE 306                       *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 300 TO RELEASE 8.0  OF TSO COMMANDS   *   DOC FILE
//*            FROM THE U.S. AIR FORCE IN WASHINGTON, D.C.          *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILE 316 TO RELEASE 4.0 OF BATCH COMMANDS  *   DOC FILE
//*            FROM THE U.S. AIR FORCE IN WASHINGTON, D.C.          *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-193 SECTION                                          *   DOC FILE
//*  V-193  CHANGES FOR VERSION 193 JUNE 20, 1982                   *   DOC FILE
//*         1  UPDATE TO FILE 042 TO THE PROGRAM TO ALLOW IT TO     *   DOC FILE
//*            HANDLE A LARGER NUMBER OF KEYWORDS                   *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILES 116 AND 260 TO HANDLE 3380'S.        *   DOC FILE
//*            THESE ARE THE DISK MAP AND DISK SEEK PROGRAM FILES   *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILE 001 FOR ADDITIONAL INFORMATION WHEN   *   DOC FILE
//*            LOADED UNDER INFOMVS (WITH FILES 042 AND 043)        *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-192 SECTION                                          *   DOC FILE
//*  V-192  CHANGES FOR VERSION 192 JUNE 14, 1982                   *   DOC FILE
//*         1  ADDITION OF FILES 042 AND 043 WHICH CONTAIN THE      *   DOC FILE
//*            CODE AND DOCUMENTATION NECESSARY TO TURN FILE 001    *   DOC FILE
//*            OF THIS TAPE INTO MVS/INFO FORMAT AND THE JCL        *   DOC FILE
//*            NEEDED TO CREATE AND LOAD THE FILE INTO A INFO       *   DOC FILE
//*            DATABASE                                             *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-191 SECTION                                          *   DOC FILE
//*  V-191  CHANGES FOR VERSION 191 APRIL 30, 1982                  *   DOC FILE
//*         1  UPDATE TO FILE 300 TO RELEASE 7.0  OF TSO COMMANDS   *   DOC FILE
//*            FROM THE U.S. AIR FORCE IN WASHINGTON, D.C.          *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 316 TO RELEASE 4.0 OF BATCH COMMANDS  *   DOC FILE
//*            FROM THE U.S. AIR FORCE IN WASHINGTON, D.C.          *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-190 SECTION                                          *   DOC FILE
//*  V-190  CHANGES FOR VERSION 190 APRIL 04, 1982                  *   DOC FILE
//*         1  UPDATE TO FILE 300 TO RELEASE 6.3  OF TSO COMMANDS   *   DOC FILE
//*            FROM THE U.S. AIR FORCE IN WASHINGTON, D.C.          *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 316 TO RELEASE 2.7 OF BATCH COMMANDS  *   DOC FILE
//*            FROM THE U.S. AIR FORCE IN WASHINGTON, D.C.          *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILE 306 TO RELEASE 3.2 OF THE TIME        *   DOC FILE
//*            SHARING SUBSYSTEM OPTION (TSSO) FROM THE U.S.        *   DOC FILE
//*            AIR FORCE IN WASHINGTON, D.C.                        *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-189 SECTION                                          *   DOC FILE
//*  V-189  CHANGES FOR VERSION 189 FEBRUARY 21, 1982               *   DOC FILE
//*         1  COMPLETE REPLACEMENT OF FILE 70 WHICH IS A SERIES    *   DOC FILE
//*            OF MODIFICATIONS FROM GENERAL DYNAMICS               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-188 SECTION                                          *   DOC FILE
//*  V-188  CHANGES FOR VERSION 188 JANUARY 31, 1982                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-187 SECTION                                          *   DOC FILE
//*  V-187  CHANGES FOR VERSION 187 JANUARY 23, 1982                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-186 SECTION                                          *   DOC FILE
//*  V-186  CHANGES FOR VERSION 186 JANUARY 10, 1982                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-185 SECTION                                          *   DOC FILE
//*  V-185  CHANGES FOR VERSION 185 JANUARY 03, 1982                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-184 SECTION                                          *   DOC FILE
//*  V-184  CHANGES FOR VERSION 184 DECEMBER 30, 1981               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-183 SECTION                                          *   DOC FILE
//*  V-183  CHANGES FOR VERSION 183 DECEMBER 06, 1981               *   DOC FILE
//*         1  UPDATE TO THE FILE 045 PDS COMPARE PGM TO INCLUDE A  *   DOC FILE
//*            SYSTEM THAT IS SPECIFICALLY DESIGNED TO HANDLE THE   *   DOC FILE
//*            CHANGES BETWEEN TWO RELEASES OF JES2, FROM TMS IN    *   DOC FILE
//*            UTAH                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-182 SECTION                                          *   DOC FILE
//*  V-182  CHANGES FOR VERSION 182 NOVEMBER 22, 1981               *   DOC FILE
//*         1  ADDITION OF FILE 118 WHICH CONTAINS AN SMP PUT-TAPE  *   DOC FILE
//*            XREF PROGRAM.  FROM JERRY LAWSON OF THE HARTFORD     *   DOC FILE
//*            INSURANCE GROUP.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  ADDITION OF FILE 320 WHICH IS A SERIES OF DF/DSS     *   DOC FILE
//*            DRIVER EXITS FROM LOMA LINDA UNIVERSITY MED CENTER   *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  ADDITION OF FILE 319 FROM THE U.S. POSTAL SERVICE    *   DOC FILE
//*            WHICH CONTAINS A PROGRAM THAT EXTRACTS SMF TYPE      *   DOC FILE
//*            14 AND 15 RECORDS AND PROVIDES A REPORT SUMMARIZING  *   DOC FILE
//*            THEM                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  UPDATE TO FILE 037 WHICH IS THE MVS VERSION OF       *   DOC FILE
//*            COPYCAT TO INCLUDE SOME CODE CHANGES IN IEBUPDTE     *   DOC FILE
//*            FORMAT TO CORRECT S30A AND S200 ABENDS               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-181 SECTION                                          *   DOC FILE
//*  V-181  CHANGES FOR VERSION 181 OCTOBER 18, 1981                *   DOC FILE
//*         1. ADDITION OF FILE 045 WHICH IS A PDS COMPARE PROGRAM  *   DOC FILE
//*            FROM THE TRANSPORTATION MANAGEMENT SERVICES OF UTAH  *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-180 SECTION                                          *   DOC FILE
//*  V-180  CHANGES FOR VERSION 180 SEPTEMBER 27, 1981              *   DOC FILE
//*         1  ADDITION OF FILE 316 WHICH CONTAINS A SERIES OF      *   DOC FILE
//*            BATCH UTILITIES FROM THE U.S. AIR FORCE IN           *   DOC FILE
//*            WASHINGTON D C                                       *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-179 SECTION                                          *   DOC FILE
//*  V-179  CHANGES FOR VERSION 179 SEPTEMBER 20, 1981              *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-178 SECTION                                          *   DOC FILE
//*  V-178  CHANGES FOR VERSION 178 SEPTEMBER 6, 1981               *   DOC FILE
//*         1  ADDITION OF FILE 218 FROM COCA COLA IN ATLANTA       *   DOC FILE
//*            WHICH CONTAINS AN MPL AND ASM MONITOR UNDER RMFMON   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-177 SECTION                                          *   DOC FILE
//*  V-177  CHANGES FOR VERSION 177 AUGUST 30, 1981                 *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-176 SECTION                                          *   DOC FILE
//*  V-176  CHANGES FOR VERSION 176 AUGUST 11, 1981                 *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-175 SECTION                                          *   DOC FILE
//*  V-175  CHANGES FOR VERSION 175 JULY 19, 1981                   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-174 SECTION                                          *   DOC FILE
//*  V-174  CHANGES FOR VERSION 174 JUNE 25, 1981                   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-173 SECTION                                          *   DOC FILE
//*  V-173  CHANGES FOR VERSION 173 JUNE 21, 1981                   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-172 SECTION                                          *   DOC FILE
//*  V-172  CHANGES FOR VERSION 172 MAY 24, 1981                    *   DOC FILE
//*         1. UPDATE TO FILE 003 TO ADD AN EXPIRATION DATE (98000) *   DOC FILE
//*            TO THE INPUT TAPE FILES                              *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-171 SECTION                                          *   DOC FILE
//*  V-171  CHANGES FOR VERSION 171 APRIL 12, 1981                  *   DOC FILE
//*         1  ADDITION OF FILE 306 WHICH CONTAINS THE TIME SHARING *   DOC FILE
//*            SUBSYSTEM FROM THE U.S. AIR FORCE IN WASHINGTON D.C  *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-170 SECTION                                          *   DOC FILE
//*  V-170  CHANGES FOR VERSION 170 FEBRUARY 22, 1981               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-169 SECTION                                          *   DOC FILE
//*  V-169  CHANGES FOR VERSION 169 FEBRUARY 15, 1981               *   DOC FILE
//*         1  ADDITION OF FILE 300 WHICH CONTAINS MANY TSO         *   DOC FILE
//*            COMMAND PROCESSORS FROM THE U.S. AIR FORCE IN D.C.   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-168 SECTION                                          *   DOC FILE
//*  V-168  CHANGES FOR VERSION 168 FEBRUARY 01, 1981               *   DOC FILE
//*         1  ADDITION OF THE TAPEMAP LOAD MODULE TO FILE 035      *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-167 SECTION                                          *   DOC FILE
//*  V-167  CHANGES FOR VERSION 167 JANUARY 18, 1981                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-166 SECTION                                          *   DOC FILE
//*  V-166  CHANGES FOR VERSION 166 JANUARY 04, 1981                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-165 SECTION                                          *   DOC FILE
//*  V-165  CHANGES FOR VERSION 165 DECEMBER 30, 1980               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-164 SECTION                                          *   DOC FILE
//*  V-164  CHANGES FOR VERSION 164 DECEMBER 28, 1980               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-163 SECTION                                          *   DOC FILE
//*  V-163  CHANGES FOR VERSION 163 DECEMBER 14, 1980               *   DOC FILE
//*         1  ADDITION OF FILE 296 WHICH CONTAINS A SERIES OF      *   DOC FILE
//*            UTILITIES FROM MR A. BRUCE LELAND                    *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-162 SECTION                                          *   DOC FILE
//*  V-162  CHANGES FOR VERSION 162 DECEMBER 7,  1980               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-161 SECTION                                          *   DOC FILE
//*  V-161  CHANGES FOR VERSION 161 NOVEMBER 26, 1980               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-160 SECTION                                          *   DOC FILE
//*  V-160  CHANGES FOR VERSION 160 NOVEMBER 09, 1980               *   DOC FILE
//*         1  UPDATE TO FILE 294 TO NOW CONTAIN THE SOURCE FOR     *   DOC FILE
//*            THE VSAM ANALYZER TSO CP                             *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-159 SECTION                                          *   DOC FILE
//*  V-159  CHANGES FOR VERSION 159 OCTOBER 28, 1980                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-158 SECTION                                          *   DOC FILE
//*  V-158  CHANGES FOR VERSION 158 OCTOBER 21, 1980                *   DOC FILE
//*         1  ADDITION OF FILE 294 WHICH IS A VSAM ANALYZER        *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  UPDATE TO FILE 035 TO HOLD THE LOAD MODULES          *   DOC FILE
//*            OF THE VSAM ANALYZER CONTAINED IN FILE 294           *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-157 SECTION                                          *   DOC FILE
//*  V-157  CHANGES FOR VERSION 157 OCTOBER 12, 1980                *   DOC FILE
//*         1  UPDATE TO FILE 035 TO ADD A NEW VERSION OF TSUPDATE  *   DOC FILE
//*            WHICH CORRECTS A POSSIBLE 0C4 IN THE GENERATE MODE   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-156 SECTION                                          *   DOC FILE
//*  V-156  CHANGES FOR VERSION 156 SEPTEMBER 28, 1980              *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-155 SECTION                                          *   DOC FILE
//*  V-155  CHANGES FOR VERSION 155 SEPTEMBER 14, 1980              *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-154 SECTION                                          *   DOC FILE
//*  V-154  CHANGES FOR VERSION 154 SEPTEMBER 02, 1980              *   DOC FILE
//*         1  ADDITION OF FILE 018 WHICH IS DOCUMENTATION FROM     *   DOC FILE
//*            CONRAIL CONCERNING THEIR PDS UPDATE PROGRAM          *   DOC FILE
//*            CALLED TSUPDATE                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  ADDITION OF THE LOAD MODULE CALLED TSUPDATE          *   DOC FILE
//*            INTO FILE 035                                        *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-153 SECTION                                          *   DOC FILE
//*  V-153  CHANGES FOR VERSION 153 SEPTEMBER 01, 1980              *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-152 SECTION                                          *   DOC FILE
//*  V-152  CHANGES FOR VERSION 152 AUGUST 28, 1980                 *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-151 SECTION                                          *   DOC FILE
//*  V-151  CHANGES FOR VERSION 151 AUGUST 27, 1980                 *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-150 SECTION                                          *   DOC FILE
//*  V-150  CHANGES FOR VERSION 150 AUGUST 24, 1980                 *   DOC FILE
//*         1  ADDITION OF FILE 200 WHICH IS A SERIES OF PROGRAMS   *   DOC FILE
//*            FROM TWA TO PROCESS LOAD MODULES                     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-149 SECTION                                          *   DOC FILE
//*  V-149  CHANGES FOR VERSION 149 AUGUST 03, 1980                 *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-148 SECTION                                          *   DOC FILE
//*  V-148  CHANGES FOR VERSION 148 JULY 20, 1980                   *   DOC FILE
//*         1  ADDITION OF FILE 035 WHICH WILL CONTAIN MOST BUT     *   DOC FILE
//*            NOT ALL OF THE LOAD MODULES THAT I SHIP              *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-147 SECTION                                          *   DOC FILE
//*  V-147  CHANGES FOR VERSION 147 JUNE 29, 1980                   *   DOC FILE
//*         1  ADDITION OF FILE 037 WHICH IS COPYCAT THAT HAS BEEN  *   DOC FILE
//*            MODIFIED TO RUN UNDER MVS FROM SCHERING-PLOUGH       *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-146 SECTION                                          *   DOC FILE
//*  V-146  CHANGES FOR VERSION 146 JUNE 24, 1980                   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-145 SECTION                                          *   DOC FILE
//*  V-145  CHANGES FOR VERSION 145 JUNE 17, 1980                   *   DOC FILE
//*         1  UPDATE TO FILE 003 WHICH IS THE JCL TO DROP DOWN THE *   DOC FILE
//*            WHOLE TAPE.  RATHER THAN REQUIRING THAT THE DE-      *   DOC FILE
//*            COMPRESSION PROGRAM BE ASSEMBLED AND LINKED PRIOR    *   DOC FILE
//*            TO LOADING ANY COMPRESSED FILES, THIS FILE WILL      *   DOC FILE
//*            NOW ASSEMBLE AND LINK THE DECOMPRESSION PROGRAM      *   DOC FILE
//*            INTO A TEMPORARY LIBRARY.  YOU CAN STILL USE IT THE  *   DOC FILE
//*            OLD WAY AND JUST REMOVE THE ASSEMBLE PROC.  THIS WAS *   DOC FILE
//*            SUGGESTED, IMPLEMENTED AND SUBMITTED BY              *   DOC FILE
//*            SCHERING-PLOUGH                                      *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-144 SECTION                                          *   DOC FILE
//*  V-144  CHANGES FOR VERSION 144 JUNE 16, 1980                   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-143 SECTION                                          *   DOC FILE
//*  V-143  CHANGES FOR VERSION 143 MAY 29, 1980                    *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-142 SECTION                                          *   DOC FILE
//*  V-142  CHANGES FOR VERSION 142 MAY 07, 1980                    *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-141 SECTION                                          *   DOC FILE
//*  V-141  CHANGES FOR VERSION 141 APRIL 14, 1980                  *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-140 SECTION                                          *   DOC FILE
//*  V-140  CHANGES FOR VERSION 140 APRIL 07, 1980                  *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-139 SECTION                                          *   DOC FILE
//*  V-139  CHANGES FOR VERSION 139 MARCH 20, 1980                  *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-138 SECTION                                          *   DOC FILE
//*  V-138  CHANGES FOR VERSION 138 MARCH 09, 1980                  *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-137 SECTION                                          *   DOC FILE
//*  V-137  CHANGES FOR VERSION 137 FEBRUARY 10, 1980               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-136 SECTION                                          *   DOC FILE
//*  V-136  CHANGES FOR VERSION 136 FEBRUARY 3, 1980                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-135 SECTION                                          *   DOC FILE
//*  V-135  CHANGES FOR VERSION 135 JANUARY 27, 1980                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-134 SECTION                                          *   DOC FILE
//*  V-134  CHANGES FOR VERSION 134 JANUARY 20, 1980                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-133 SECTION                                          *   DOC FILE
//*  V-133  CHANGES FOR VERSION 133 DECEMBER 16, 1979               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-132 SECTION                                          *   DOC FILE
//*  V-132  CHANGES FOR VERSION 132 DECEMBER 16, 1979               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-131 SECTION                                          *   DOC FILE
//*  V-131  CHANGES FOR VERSION 131 DECEMBER 2, 1979                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-130 SECTION                                          *   DOC FILE
//*  V-130  CHANGES FOR VERSION 130 NOVEMBER 22, 1979               *   DOC FILE
//*         1  ADDITION OF FILE 116 WHICH IS A DISK SEEK ANALYSIS   *   DOC FILE
//*            PROGRAM.  THIS CODE HAS NOT BEEN MODIFIED TO HANDLE  *   DOC FILE
//*            INDEXED VTOCS OR ICF DATASETS THAT HAVE MORE THAN    *   DOC FILE
//*            15 EXTENTS.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-129 SECTION                                          *   DOC FILE
//*  V-129  CHANGES FOR VERSION 129 OCTOBER 14, 1979                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-128 SECTION                                          *   DOC FILE
//*  V-128  CHANGES FOR VERSION 128 OCTOBER 01, 1979                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-127 SECTION                                          *   DOC FILE
//*  V-127  CHANGES FOR VERSION 127 SEPTEMBER 25, 1979              *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-126 SECTION                                          *   DOC FILE
//*  V-126  CHANGES FOR VERSION 126 SEPTEMBER 24, 1979              *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-125 SECTION                                          *   DOC FILE
//*  V-125  CHANGES FOR VERSION 125 SEPTEMBER 18, 1979              *   DOC FILE
//*         1  SPY AND  DIDOCS.  IF YOU USE THESE 2 PROGRAMS UNDER  *   DOC FILE
//*            ----------------                                     *   DOC FILE
//*            TSO BE ALERTED TO THE FACT THAT IF YOU APPLY         *   DOC FILE
//*            PTF UZ26385 (APAR OZ39506) ON 7907 YOU WILL NO       *   DOC FILE
//*            LONGER BE ABLE TO RUN SPY  AND DIDOCS.  IBM HAS      *   DOC FILE
//*            MOVED THE CONSOLE BUFFERS TO FETCH PROTECTED         *   DOC FILE
//*            STORAGE.  IN THE FUTURE THESE PROGRAMS WILL HAVE TO  *   DOC FILE
//*            BE MODIFIED TO RUN IN KEY 0.  (SPY WORKS WHEN RUN    *   DOC FILE
//*            IN KEY 0 SUPERVISOR STATE).  (DIDOCS IS IN DCMS)     *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  ADDITION OF FILE 112 WHICH A COPY OF THE TSO VTOC CP *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  UPDATE TO FILE 051 TO CONTAIN THE HELP MEMBER FOR    *   DOC FILE
//*            LISTSPC                                              *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-124 SECTION                                          *   DOC FILE
//*  V-124  CHANGES FOR VERSION 124 JULY 31, 1979                   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-123 SECTION                                          *   DOC FILE
//*  V-123  CHANGES FOR VERSION 123 JULY 01, 1979                   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-122 SECTION                                          *   DOC FILE
//*  V-122  CHANGES FOR VERSION 122 JUNE 24, 1979                   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-121 SECTION                                          *   DOC FILE
//*  V-121  CHANGES FOR VERSION 121 JUNE 19, 1979                   *   DOC FILE
//*         1  CORRECTION TO FILE 081 WHICH IS MVS DEBE TO FIX THE  *   DOC FILE
//*            PROBLEM OF ONLY BEING ABLE TO WRITE AT THE HIGHER    *   DOC FILE
//*            DENSITY ON A DUAL-DENSITY DRIVE                      *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  ADDITION OF FILE 229 WHICH IS A TAPE COPY PGM        *   DOC FILE
//*            FROM THE AIR FORCE FINANCE CENTER IN DENVER          *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-120 SECTION                                          *   DOC FILE
//*  V-120  CHANGES FOR VERSION 120 MAY 21, 1979                    *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-119 SECTION                                          *   DOC FILE
//*  V-119  CHANGES FOR VERSION 119 MAY 01, 1979                    *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-118 SECTION                                          *   DOC FILE
//*  V-118  CHANGES FOR VERSION 118 APRIL 16, 1979                  *   DOC FILE
//*         1  ADDITION OF FILE 052 WHICH IS THE WORDS FOR 'MVS IS  *   DOC FILE
//*            BREAKING MY HEART'                                   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-117 SECTION                                          *   DOC FILE
//*  V-117  CHANGES FOR VERSION 117 APRIL 15, 1979                  *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-116 SECTION                                          *   DOC FILE
//*  V-116  CHANGES FOR VERSION 116 APRIL 01, 1979                  *   DOC FILE
//*         1  ADDITION OF FILE 2 WHICH IS A COMPRESSION /          *   DOC FILE
//*            DECOMPRESSION PROGRAM                                *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  ADDITION OF FILES 89 AND 90 WHICH IS A DYNAMIC       *   DOC FILE
//*            ALLOCATION INTERFACE FOR HIGH LEVEL LANGUAGES FROM   *   DOC FILE
//*            THE UNVIERSITY OF MANITOBA                           *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-115 SECTION                                          *   DOC FILE
//*  V-115  CHANGES FOR VERSION 115 MARCH 11, 1979                  *   DOC FILE
//*         1  TO ADD A COMMENT CONCERNING FILE 260 WHICH IS THE    *   DOC FILE
//*            QUICK MAP PROGRAM.  A USER OF THIS CODE DECIDED TO   *   DOC FILE
//*            USE A PARM OF RESET, WHICH WILL RESET THE HIGH       *   DOC FILE
//*            WATER MARK IN THE VTOC.  IT DID ALL RIGHT BUT IT     *   DOC FILE
//*            SET IT TO 512 (ON A 3350) AND THE ARM BOUNCED ALL    *   DOC FILE
//*            OVER THE PLACE.  BE CAREFUL !!!!!                    *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-114 SECTION                                          *   DOC FILE
//*  V-114  CHANGES FOR VERSION 114 MARCH 7, 1979                   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-113 SECTION                                          *   DOC FILE
//*  V-113  CHANGES FOR VERSION 113 FEBRUARY 25, 1979               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-112 SECTION                                          *   DOC FILE
//*  V-112  CHANGES FOR VERSION 112 FEBRUARY 11, 1979               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-111 SECTION                                          *   DOC FILE
//*  V-111  CHANGES FOR VERSION 111 FEBRUARY 08, 1979               *   DOC FILE
//*          1  UPDATE TO FILE 226 WHICH IS THE YALE COMPARE        *   DOC FILE
//*             PROGRAM                                             *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-110 SECTION                                          *   DOC FILE
//*  V-110  CHANGES FOR VERSION 110 JANUARY 7, 1979                 *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-109 SECTION                                          *   DOC FILE
//*  V-109  CHANGES FOR VERSION 109 DECEMBER 3, 1978                *   DOC FILE
//*          1  CHANGE TO FILE 260 TO ALLOW QUICKMAP TO BE STARTED  *   DOC FILE
//*             FROM AN OPERATOR'S CONSOLE WITH PARAMETERS          *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-108 SECTION                                          *   DOC FILE
//*  V-108  CHANGES FOR VERSION 108 NOVEMBER 5, 1978                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-107 SECTION                                          *   DOC FILE
//*  V-107  CHANGES FOR VERSION 107 OCTOBER 25, 1978                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-106 SECTION                                          *   DOC FILE
//*  V-106  CHANGES FOR VERSION 106 OCTOBER 24, 1978                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-105 SECTION                                          *   DOC FILE
//*  V-105  CHANGES FOR VERSION 105 OCTOBER 15, 1978                *   DOC FILE
//*         1  ADDITION OF FILE 260 WHICH IS A VERY FAST MAPPING    *   DOC FILE
//*            PROGRAM                                              *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-104 SECTION                                          *   DOC FILE
//*  V-104  CHANGES FOR VERSION 104 OCTOBER 01, 1978                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-103 SECTION                                          *   DOC FILE
//*  V-103  CHANGES FOR VERSION 103 SEPTEMBER 10, 1978              *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-102 SECTION                                          *   DOC FILE
//*  V-102  CHANGES FOR VERSION 102 AUGUST 27, 1978                 *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-101 SECTION                                          *   DOC FILE
//*  V-101  CHANGES FOR VERSION 101 AUGUST 14, 1978                 *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-100 SECTION                                          *   DOC FILE
//*  V-100  CHANGES FOR VERSION 100 AUGUST 13, 1978                 *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-099 SECTION                                          *   DOC FILE
//*  V-099  CHANGES FOR VERSION 99 AUGUST 10, 1978                  *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-098 SECTION                                          *   DOC FILE
//*  V-098  CHANGES FOR VERSION 98 AUGUST 5, 1978                   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-097 SECTION                                          *   DOC FILE
//*  V-097  CHANGES FOR VERSION 97 AUGUST 2, 1978                   *   DOC FILE
//*         1   ADDITION OF FILE 237 WHICH IS A PDS CROSS REFERENCE *   DOC FILE
//*             PROGRAM FROM THE FLORIDA POWER COMMISSION           *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-096 SECTION                                          *   DOC FILE
//*  V-096  CHANGES FOR VERSION 96 JULY 30, 1978                    *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-095 SECTION                                          *   DOC FILE
//*  V-095  CHANGES FOR VERSION 95 JULY 26, 1978                    *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-094 SECTION                                          *   DOC FILE
//*  V-094  CHANGES FOR VERSION 94 JULY 25, 1978                    *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-093 SECTION                                          *   DOC FILE
//*  V-093  CHANGES FOR VERSION 93 JULY 24, 1978                    *   DOC FILE
//*         1  ADDITION OF FILE 235 WHICH IS AN LPA/SVC REAL TIME   *   DOC FILE
//*            LOADER, AND REPLACEMENT AND PERFORMANCE TOOL FROM    *   DOC FILE
//*            CHYRSLER PARTS, CALLED MODREP.                       *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-092 SECTION                                          *   DOC FILE
//*  V-092  CHANGES FOR VERSION 92 JULY 23, 1978                    *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-091 SECTION                                          *   DOC FILE
//*  V-091  CHANGES FOR VERSION 91 JUNE 18, 1978                    *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-090 SECTION                                          *   DOC FILE
//*  V-090  CHANGES FOR VERSION 90 JUNE 5, 1978                     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-089 SECTION                                          *   DOC FILE
//*  V-089  CHANGES FOR VERSION 89 JUNE 4, 1978                     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-088 SECTION                                          *   DOC FILE
//*  V-088  CHANGES FOR VERSION 88 MAY 24, 1978                     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-087 SECTION                                          *   DOC FILE
//*  V-087  CHANGES FOR VERSION 87 MAY 23, 1978                     *   DOC FILE
//*         1  ADDITION OF FILE 225 WHICH IS AN OFFLOAD PROGRAM     *   DOC FILE
//*            THAT WILL UNLOAD A PDS INTO AN IEBUPDTE STREAM       *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  ADDITION OF FILE 226 WHICH IS A COMPARE PROGRAM      *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-086 SECTION                                          *   DOC FILE
//*  V-086  CHANGES FOR VERSION 86 MAY 21, 1978                     *   DOC FILE
//*         1  ADDITION OF FILE 217 WHICH IS A DISASSEMBLER         *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-085 SECTION                                          *   DOC FILE
//*  V-085  CHANGES FOR VERSION 85 APRIL 01, 1978                   *   DOC FILE
//*         1  SYNCHRONIZE THE DATE ON THE VERSION WITH THE TRUE    *   DOC FILE
//*            CALENDAR DATE                                        *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-084 SECTION                                          *   DOC FILE
//*  V-084  CHANGES FOR VERSION 84 MARCH 20, 1978                   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-083 SECTION                                          *   DOC FILE
//*  V-083  CHANGES FOR VERSION 83 FEBRUARY 25, 1978                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-082 SECTION                                          *   DOC FILE
//*  V-082  CHANGES FOR VERSION 82 FEBRUARY 20,1978                 *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-081 SECTION                                          *   DOC FILE
//*  V-081  CHANGES FOR VERSION 81 FEBRUARY 1, 1978                 *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-080 SECTION                                          *   DOC FILE
//*  V-080  CHANGES FOR VERSION 80 JANUARY 15, 1978                 *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-079 SECTION                                          *   DOC FILE
//*  V-079  CHANGES FOR VERSION 79 JANUARY 5, 1978                  *   DOC FILE
//*         1  NEW VERSION OF FILE 049, THE LISTSPC COMMAND TO      *   DOC FILE
//*            HANDLE DATA SETS ON 3350 CORRECTLY                   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-078 SECTION                                          *   DOC FILE
//*  V-078  CHANGES FOR VERSION 78 JANUARY 4, 1978                  *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-077 SECTION                                          *   DOC FILE
//*  V-077  CHANGES FOR VERSION 77 JANUARY 1, 1978                  *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-076 SECTION                                          *   DOC FILE
//*  V-076  CHANGES FOR VERSION 76 DECEMBER 20, 1977                *   DOC FILE
//*         1  ADDITION OF FILE 182 WHICH IS THE TSO PDS COMMAND    *   DOC FILE
//*            PROCESSOR                                            *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-075 SECTION                                          *   DOC FILE
//*  V-075  CHANGES FOR VERSION 75 DECEMBER 14, 1977                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-074 SECTION                                          *   DOC FILE
//*  V-074  CHANGES FOR VERSION 74 DECEMBER 01, 1977                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-073 SECTION                                          *   DOC FILE
//*  V-073  CHANGES FOR VERSION 73 SEPTEMBER 21, 1977               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-072 SECTION                                          *   DOC FILE
//*  V-072  CHANGES FOR VERSION 72 SEPTEMBER 14, 1977               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-071 SECTION                                          *   DOC FILE
//*  V-071  CHANGES FOR VERSION 71 SEPTEMBER 11, 1977               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-070 SECTION                                          *   DOC FILE
//*  V-070  CHANGES FOR VERSION 70 SEPTEMBER 8, 1977                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-069 SECTION                                          *   DOC FILE
//*  V-069  CHANGES FOR VERSION 69 AUGUST 2, 1977                   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-068 SECTION                                          *   DOC FILE
//*  V-068  CHANGES FOR VERSION 68 JULY 24, 1977                    *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-067 SECTION                                          *   DOC FILE
//*  V-067  CHANGES FOR VERSION 67 JULY 05, 1977                    *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-066 SECTION                                          *   DOC FILE
//*  V-066  CHANGES FOR VERSION 66 JUNE 28, 1977                    *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-065 SECTION                                          *   DOC FILE
//*  V-065  CHANGES FOR VERSION 65 JUNE 27, 1977                    *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-064 SECTION                                          *   DOC FILE
//*  V-064  CHANGES FOR VERSION 64 JUNE 26, 1977                    *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-063 SECTION                                          *   DOC FILE
//*  V-063  CHANGES FOR VERSION 63 JUNE 20, 1977                    *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-062 SECTION                                          *   DOC FILE
//*  V-062  CHANGES FOR VERSION 62 JUNE 15, 1977                    *   DOC FILE
//*         1  CORRECTION TO FILE 081 MVS DEBE TO INCLUDE THE       *   DOC FILE
//*            MACRO CALLED DEBCHK WITHIN THE CODE                  *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-061 SECTION                                          *   DOC FILE
//*  V-061  CHANGES FOR VERSION 61 JUNE 5, 1977                     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-060 SECTION                                          *   DOC FILE
//*  V-060  CHANGES FOR VERSION 60 MAY  3, 1977                     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-059 SECTION                                          *   DOC FILE
//*  V-059  CHANGES FOR VERSION 59 MAY  1, 1977                     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-058 SECTION                                          *   DOC FILE
//*  V-058  CHANGES FOR VERSION 58 APRIL 19, 1977                   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-057 SECTION                                          *   DOC FILE
//*  V-057  CHANGES FOR VERSION 57 APRIL 14, 1977                   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-056 SECTION                                          *   DOC FILE
//*  V-056  CHANGES FOR VERSION 56 APRIL 03, 1977                   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-055 SECTION                                          *   DOC FILE
//*  V-055  CHANGES FOR VERSION 55 FEBRUARY 23, 1977                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-054 SECTION                                          *   DOC FILE
//*  V-054  CHANGES FOR VERSION 54 FEBRUARY 21, 1977                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-053 SECTION                                          *   DOC FILE
//*  V-053  CHANGES FOR VERSION 53 FEBRUARY 20, 1977                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-052 SECTION                                          *   DOC FILE
//*  V-052  CHANGES FOR VERSION 52 DECEMBER 26, 1976                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-051 SECTION                                          *   DOC FILE
//*  V-051  CHANGES FOR VERSION 51 DECEMBER 19, 1976                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-050 SECTION                                          *   DOC FILE
//*  V-050  CHANGES FOR VERSION 50 NOVEMBER 28, 1976                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-049 SECTION                                          *   DOC FILE
//*  V-049  CHANGES FOR VERSION 49 NOVEMBER 7, 1976                 *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-048 SECTION                                          *   DOC FILE
//*  V-048  CHANGES FOR VERSION 48 NOVEMBER 6, 1976                 *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-047 SECTION                                          *   DOC FILE
//*  V-047  CHANGES FOR VERSION 47 NOVEMBER 4, 1976                 *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-046 SECTION                                          *   DOC FILE
//*  V-046  CHANGES FOR VERSION 46 OCTOBER 22, 1976                 *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-045 SECTION                                          *   DOC FILE
//*  V-045  CHANGES FOR VERSION 45 OCTOBER 19, 1976                 *   DOC FILE
//*         1  ADDITION OF FILE 81 AN MVS DEBE                      *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  ADDITION OF FILES 82 - 86 WHICH ARE 4 MVS            *   DOC FILE
//*            UTILITIES AND DOCUMENTATION                          *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-044 SECTION                                          *   DOC FILE
//*  V-044  CHANGES FOR VERSION 44 SEPTEMBER 3, 1976                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-043 SECTION                                          *   DOC FILE
//*  V-043  CHANGES FOR VERSION 43 AUGUST 13, 1976                  *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-042 SECTION                                          *   DOC FILE
//*  V-042  CHANGES FOR VERSION 42 AUGUST 6, 1976                   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-041 SECTION                                          *   DOC FILE
//*  V-041  CHANGES FOR VERSION 41 JULY 24, 1976                    *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-040 SECTION                                          *   DOC FILE
//*  V-040  CHANGES FOR VERSION 40 JUNE 14, 1976                    *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-039 SECTION                                          *   DOC FILE
//*  V-039  CHANGES FOR VERSION 39 JUNE 3, 1976                     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-038 SECTION                                          *   DOC FILE
//*  V-038  CHANGES FOR VERSION 38 JUNE 2, 1976                     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-037 SECTION                                          *   DOC FILE
//*  V-037  CHANGES FOR VERSION 37 JUNE 1, 1976                     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-036 SECTION                                          *   DOC FILE
//*  V-036  CHANGES FOR VERSION 36 MAY 24, 1976                     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-035 SECTION                                          *   DOC FILE
//*  V-035  CHANGES FOR VERSION 35 MAY 20, 1976                     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-034 SECTION                                          *   DOC FILE
//*  V-034  CHANGES FOR VERSION 34 MAY 11, 1976                     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-033 SECTION                                          *   DOC FILE
//*  V-033  CHANGES FOR VERSION 33 APRIL 30, 1976                   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-032 SECTION                                          *   DOC FILE
//*  V-032  CHANGES FOR VERSION 32 APRIL 28, 1976                   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-031 SECTION                                          *   DOC FILE
//*  V-031  CHANGES FOR VERSION 31 APRIL 19, 1976                   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-030 SECTION                                          *   DOC FILE
//*  V-030  CHANGES FOR VERSION 30 APRIL 14, 1976                   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-029 SECTION                                          *   DOC FILE
//*  V-029  CHANGES FOR VERSION 29 APRIL 5, 1976                    *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-028 SECTION                                          *   DOC FILE
//*  V-028  CHANGES FOR VERSION 28 MARCH 27, 1976                   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-027 SECTION                                          *   DOC FILE
//*  V-027  CHANGES FOR VERSION 27 MARCH 19, 1976                   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-026 SECTION                                          *   DOC FILE
//*  V-026  CHANGES FOR VERSION 26 MARCH 17, 1976                   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-025 SECTION                                          *   DOC FILE
//*  V-025  CHANGES FOR VERSION 25 MARCH 16, 1976                   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-024 SECTION                                          *   DOC FILE
//*  V-024  CHANGES FOR VERSION 24 MARCH 11, 1976                   *   DOC FILE
//*         1  ADDITION OF FILE 070 WHICH IS A SERIES OF MVS        *   DOC FILE
//*            MODIFICATIONS FROM GENERAL DYNAMICS, SAN DIEGO,      *   DOC FILE
//*            CALIFORNIA 92138                                     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-023 SECTION                                          *   DOC FILE
//*  V-023  CHANGES FOR VERSION 23 MARCH 10, 1976                   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-022 SECTION                                          *   DOC FILE
//*  V-022  CHANGES FOR VERSION 22 MARCH 8, 1976                    *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-021 SECTION                                          *   DOC FILE
//*  V-021  CHANGES FOR VERSION 21 MARCH 4, 1976                    *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-020 SECTION                                          *   DOC FILE
//*  V-020  CHANGES FOR VERSION 20 MARCH 3, 1976                    *   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 "WHERE TESTED" generally reflects the system        *   DOC FILE
//*   level where the code was tested, or it means if one of        *   DOC FILE
//*   us (Arnold Casinghino or Sam Golob) ran the code at his       *   DOC FILE
//*   shop.  CBT was Arnold's shop.  The others were Sam's.         *   DOC FILE
//*                                                                 *   DOC FILE
//*  Now with IDRC tapes, the footages can greatly exceed 3000.     *   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
//*        CBT  =  TESTED AT CBT                                    *   DOC FILE
//*        NWK  =  TESTED AT NEWSWEEK                               *   DOC FILE
//*        CSC  =  TESTED AT CSC                                    *   DOC FILE
//*        AMS  =  TESTED AT AMS                                    *   DOC FILE
//*        ANP  =  TESTED AT A&P                                    *   DOC FILE
//*      UNKCBT =  NOT TESTED AT CBT                                *   DOC FILE
//*      UNKNWK =  NOT TESTED AT NEWSWEEK                           *   DOC FILE
//*      UNKCSC =  NOT TESTED AT CSC                                *   DOC FILE
//*      UNKAMS =  NOT TESTED AT AMS                                *   DOC FILE
//*      UNKANP =  NOT TESTED AT A&P                                *   DOC FILE
//*         ALL =  ONLY THE SOURCE FOR # COMMAND SYSTEM HAS THIS    *   DOC FILE
//*                THIS MARKER BECAUSE THERE IS SOURCE FOR:         *   DOC FILE
//*                  01  NON-SE (BASE 3.8 - 3.7 WITH SU5 AND SU7)   *   DOC FILE
//*                  02  SE/RELEASE 1                               *   DOC FILE
//*                  03  SE/RELEASE 2                               *   DOC FILE
//*                  04  SP/RELEASE 1                               *   DOC FILE
//*                                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*      COMPRESSED HEADER SHOWS IF THE FILE HAS BEEN COMPRESSED.   *   DOC FILE
//*                                              \                  *   DOC FILE
//*                                               \                 *   DOC FILE
//*                                                \                *   DOC FILE
//*  SHORT          FILE        RECORD FOOT-        \  ORIGINAL     *   DOC FILE
//*  FILE           NUM-         COUNT  AGE  LAST    \     LRECL    *   DOC FILE
//*  DESCRIPTION    BER  WHERE          6     CHANGE  \             *   DOC FILE
//*                      TESTED          2     DATE    \       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    40090   45.4 09-01-00      080    NO* % DOC FILE
//* COMPRESS PGM     002 CBT      263     .3 04-01-79      080    NO*   DOC FILE
//* JCL - DROP TAPE  003 AMS     1686    2.3 09-01-00      080    NO*   DOC FILE
//* CBTUPD Program   004 AMS      439     .9 08-10-99      080    NO*   DOC FILE
//* VMREXX-DROP TAPE 005 UNKCSC  1099    1.4 08-01-00      080    NO*   DOC FILE
//* CBT Doc Utilties 006 AMS     2280 S  1.4 11-23-99      080 YES  *   DOC FILE
//* RACF MODS        007 UNKCBT 27698   19.0 02-08-89      080 YES  *   DOC FILE
//* DELETE LIST      008 N/A      234     .3 04-04-82      080 YES  *   DOC FILE
//* RACF TAPE DS     009 UNKCBT   773     .9 08-04-87      080 YES  *   DOC FILE
//* ISPFPRIM         010 UNKCBT   866     .9 09-20-87      080 YES  *   DOC FILE
//* INTEL MODS       011 N/A     4741 S  3.2 08-16-92      080 YES  *   DOC FILE
//* ISPF DIAG        012 UNCBT   6366    3.7 03-24-85      080 YES  *   DOC FILE
//* COMPRESS         013 CBT       81     .1 11-23-86      080 YES  *   DOC FILE
//* ARTICLES         014 N/A     1891 S  1.9 03-22-95      080 YES  *   DOC FILE
//* WARNER           015 UNKCBT  3107    1.9 07-28-88      080 YES  *   DOC FILE
//* SCOTT & WHITE    016 UNKCBT  1227     .9 07-28-88      080 YES  *   DOC FILE
//* LISTDD           017 CBT      522     .3 09-14-88      080 YES  *   DOC FILE
//* TSUPDATE         018 CBT     1164    2.3 12-01-85      133    NO*   DOC FILE
//* FOOD LION UTIL   019 UNKCSC 33563 S 20.8 10-27-97      080 YES  *   DOC FILE
//* SYSTEM REXX EXEC 020 CSC     3914 S  2.8 08-16-92      080 YES  *   DOC FILE
//* BELL & HOWELL    021 UNKCBT  4343    3.2 02-01-87      080 YES  *   DOC FILE
//* ADRIA UTIL       022 UNKCBT 21250   11.1 03-27-88      080 YES  *   DOC FILE
//* ALTJES           023 UNKCBT   408     .3 02-01-87      080 YES  *   DOC FILE
//* MCI PGMS         024 UNKCBT  4201    2.8 02-01-87      080 YES  *   DOC FILE
//* CONSOLE & OTHERS 025 UNKCBT 12513    6.9 10-27-98      080 YES  *   DOC FILE
//* SURVEY           026 UNKCBT   597     .4 03-31-87      080 YES  *   DOC FILE
//* DATE PGM         027 UNKCBT  3326    2.3 03-31-87      080 YES  *   DOC FILE
//* BACKUPCLIST      028 UNKCBT  3858 S  5.3 03-22-95    IEBCOPY  NO*   DOC FILE
//* ENLARGE VTOC     029 UNKCBT   323 S   .3 03-22-95      080 YES  *   DOC FILE
//* PFKDEFAULT       030 UNKCBT   175 S   .1 03-22-95      080 YES  *   DOC FILE
//* IGGPRE00         031 UNKCBT   144     .1 05-01-87      080 YES  *   DOC FILE
//* JCL COPYP DOWND  032 UNKCBT  8167 S  6.0 03-22-95      080 YES  *   DOC FILE
//* PUTXREF          033 UNKCBT   563     .4 07-08-87      080 YES  *   DOC FILE
//* RACFUSER         034 UNKCBT  1799    1.4 06-24-86      080 YES  *   DOC FILE
//* LOAD MODS        035 ANP      118   33.2 08-23-00    IEBCOPY  NO*   DOC FILE
//* FIXPDS           036 UNKCBT  3292 S  2.3 03-22-95      080 YES  *   DOC FILE
//* COPYCAT          037 UNKCBT  4317    3.2 01-23-83      080 YES  *   DOC FILE
//* KLINGON          038 N/A    17970    8.8 04-04-90      080 YES  *   DOC FILE
//* CITIBANK         039 N/A     1432 S   .9 11-23-99      080 YES  *   DOC FILE
//* PEOPLES UTIL     040 UNKCBT 12020    8.3 11-04-87      080 YES  *   DOC FILE
//* XEROX MODS       041 UNKCBT  7534    5.1 03-05-89      080 YES  *   DOC FILE
//* INFOTAPE         042 CBT      622 S   .4 09-10-92      080 YES  *   DOC FILE
//* INFOTAPE         043 CBT       20     .0 09-10-92      255    NO*   DOC FILE
//* ASMTOZAP         044 CSC      780 S   .9 04-17-94      080 YES  *   DOC FILE
//* PDS COMPARE      045 CBT     1732    1.9 12-06-81      080 YES  *   DOC FILE
//* TSO SCRATCH      046 CBT     1340     .9 11-01-88      080 YES  *   DOC FILE
//* NOCELL-LISTICAT  047 UNKCBT 74311 S 49.1 12-28-93      080 YES  *   DOC FILE
//* LISTVOL, LISTSPC 048 CBT     1499 S   .9 08-10-99      080 YES  *   DOC FILE
//* EMPTY            049 N/A        1     .0 08-10-99      080 YES  *   DOC FILE
//* Internet URLs    050 SBG      940 S   .9 11-23-99      080 YES  *   DOC FILE
//* Vendor URLs      051 SBG      545 S   .4 11-23-99      080 YES  *   DOC FILE
//* EMPTY            052 N/A        1     .0 08-10-99      080 YES  *   DOC FILE
//* DELUXE ISPF      053 N/A    54354   37.0 11-30-87      080 YES  *   DOC FILE
//* DELUXE ISPF      054 N/A     4809    2.8 11-30-87      080 YES  *   DOC FILE
//* DELUXE ISPF      055 N/A      286     .2 11-30-87      080 YES  *   DOC FILE
//* DELUXE ISPF      056 N/A     1787    1.4 11-30-87      080 YES  *   DOC FILE
//* DELUXE ISPF      057 N/A       58    6.4 08-19-94    IEBCOPY  NO*   DOC FILE
//* LINKLIST         058 CBT      786     .9 01-01-88      080 YES  *   DOC FILE
//* IPL DATE         059 CSC     1121 S   .9 03-22-95      080 YES  *   DOC FILE
//* SFTWAR ISPF      060 UNKCBT  6221    3.7 12-07-89      080 YES  *   DOC FILE
//* SFTWAR ISPF      061 UNKCBT     8    2.2 08-19-94    IEBCOPY  NO*   DOC FILE
//* SFTWAR ISPF      062 UNKCBT     1     .1 04-12-87     2040    NO*   DOC FILE
//* SFTWAR ISPF      063 UNKCBT     1     .1 04-12-87     8180    NO*   DOC FILE
//* SFTWAR ISPF      064 UNKCBT     1     .0 04-12-87       53    NO*   DOC FILE
//* LINKLIST UNCATGD 065 UNKCBT   426     .3 02-21-90      080 YES  *   DOC FILE
//* UTILITES         066 UNKCBT  3498 S  2.3 08-16-92      080 YES  *   DOC FILE
//* VIO EXIT         067 UNKCBT   834     .9 01-01-88      080 YES  *   DOC FILE
//* EMPTY            068 N/A        1     .0 08-10-99      080 YES  *   DOC FILE
//* CODING EXAMPLES  069 UNKCSC 17314 S 10.6 02-22-00      080 YES  *   DOC FILE
//* ZAPS GENL DYNAM  070 CBT    25230 S 17.1 12-28-93      080 YES  *   DOC FILE
//* OTHER TAPES DOC  071 N/A    58665 S 40.7 08-23-00      080 YES  *   DOC FILE
//* PANEXEC ISPPLIB  072 UNKCSC  3647 S  2.8 08-26-92      080 YES  *   DOC FILE
//* PANEXEC ISPLLIB  073 UNKCSC    12    3.3 08-19-94    IEBCOPY  NO*   DOC FILE
//* NASPA MACLIB     074 UNKCSC 10599 S  6.5 08-26-92      080 YES  *   DOC FILE
//* PANEXEC ISPALIB  075 UNKCSC  3491 S  2.8 08-26-92      080 YES  *   DOC FILE
//* PANEXEC PROCS    076 UNKCSC   131 S   .1 08-26-92      080 YES  *   DOC FILE
//* EMPTY            077 N/A        1     .0 05-29-98      080 YES  *   DOC FILE
//* ISPF EDIT MACRO  078 UNKCSC  8296 S  4.6 08-10-99      080 YES  *   DOC FILE
//* DCF ISPF INTERFC 079 UNKCSC 17496 S  9.7 09-02-93      080 YES  *   DOC FILE
//* RACF PGMS        080 UNKCBT  1553    1.4 05-22-88      080 YES  *   DOC FILE
//* MVS DEBE         081 CBT     1608     .9 06-19-79      080 YES  *   DOC FILE
//* DOC 82-86        082 CBT     3482    1.9 10-16-76      080 YES  *   DOC FILE
//* IEHMAP           083 CBT    16780 S 10.6 09-13-95      080 YES  *   DOC FILE
//* MAPLPA OBJ       084 SU'S     146     .2 10-16-76      080 YES  *   DOC FILE
//* PTXREF OBJ       085 SU'S     297     .4 10-16-76      080 YES  *   DOC FILE
//* ZAP    OBJ       086 SU'S     260     .3 10-16-76      080 YES  *   DOC FILE
//* SYSLOG           087 UNKCBT  2483    1.9 01-19-89      080 YES  *   DOC FILE
//* WESTERMAN UTILS  088 UNKCBT 27213 S 17.6 02-22-00      080 YES  *   DOC FILE
//* DYNALLOC INTRFAC 089 UNKCBT  1730 S  1.4 10-27-98      080 YES  *   DOC FILE
//* DELINKI: PLI-BAL 090 UNKAMS  3877 S  2.8 08-10-99      080 YES  *   DOC FILE
//* FORT PL1 RPG ALG 091 UNKCBT  2744 S  2.3 10-27-98      080 YES  *   DOC FILE
//* PL1/F COMP & LIB 092 UNKCBT   748   81.4 08-19-94    IEBCOPY  NO*   DOC FILE
//* SEQUENTIALIZ PDS 093 UNKCBT 14774 S  9.7 02-22-00      080 YES  *   DOC FILE
//* DAF              094 UNKCBT 15159 S  8.8 08-23-00      080 YES  *   DOC FILE
//* ISPF EDIT MACRO  095 UNKCBT 12745    7.9 11-08-90      080 YES  *   DOC FILE
//* MO CODE          096 UNKCBT  6571    4.6 11-01-88      080 YES  *   DOC FILE
//* DISK SYS         097 UNKCBT 21462   13.9 11-01-88      080 YES  *   DOC FILE
//* XMIT/RECEIVE     098 UNKCBT  2291    1.4 11-01-88      080 YES  *   DOC FILE
//* XMIT/RECEIVE     099 UNKCBT    66     .2 11-01-88      251   NO *   DOC FILE
//* ISPF/PDF         100 UNKCBT  2712    1.9 09-05-82      080 YES  *   DOC FILE
//* ISPF/PDF         101 UNKCBT  3627    1.9 09-05-82      080 YES  *   DOC FILE
//* TAPESCAN         102 ANP     4563 S  3.2 07-14-00      080 YES  *   DOC FILE
//* ISPF DIALOGS     103 UNKCBT  7438 S  5.1 05-29-98      080 YES  *   DOC FILE
//* JES2 RMT PR(JRP) 104 UNKCBT 13355 S  8.3 08-10-99      080 YES  *   DOC FILE
//* OUTLIST          105 UNKCBT   607     .4 01-19-89      080 YES  *   DOC FILE
//* RACF LIST        106 UNKCBT  1052 S   .9 03-04-94      080 YES  *   DOC FILE
//* STRUC MACROS     107 UNKCBT 18668   13.9 08-23-00      080 YES  *   DOC FILE
//* STRUC MACROS     108 UNKCBT 11916    6.9 08-23-00      080 YES  *   DOC FILE
//* IEFACTRT         109 UNKCBT  1815    1.4 05-04-89      080 YES  *   DOC FILE
//* IEFACTRT         110 UNKCBT   114     .2 05-04-89      133    NO*   DOC FILE
//* REVLON           111 UNKCBT  3045    2.3 09-18-90      080 YES  *   DOC FILE
//* VTOC             112 CBT    14897 S 10.2 08-10-99      080 YES  *   DOC FILE
//* SMPSCAN          113 UNKCBT   592     .9 01-25-88      080 YES  *   DOC FILE
//* SMPSCAN          114 UNKCBT   484     .9 01-25-88      080 YES  *   DOC FILE
//* SMPSCAN          115 UNKCBT    98   10.7 08-19-94    IEBCOPY  NO*   DOC FILE
//* SEEK ANALYSIS    116 X A     3370    1.9 05-04-89      080 YES  *   DOC FILE
//* WTO EXITS        117 UNKCBT  2368    1.9 11-14-89      080 YES  *   DOC FILE
//* PUTXREF          118 UNKCBT  4226 S  3.2 03-29-99      080 YES  *   DOC FILE
//* SYNTEX UTIL      119 UNKCBT  9417    6.5 02-01-87      080 YES  *   DOC FILE
//* MVS TOOLS ARTCLS 120 CSC    42969 S 31.9 08-01-00      080 YES  *   DOC FILE
//* WIDE ILLUS ARTCL 121 CSC      805 S  4.4 08-19-96    IEBCOPY  NO*   DOC FILE
//* SUBSYSTEM        122 N/A     3650    2.8 06-19-88      080 YES  *   DOC FILE
//* EMPTY            123 N/A        1     .0 08-10-99      080 YES  *   DOC FILE
//* ISPF/PDF         124 UNKCBT  4359    2.8 06-04-89      080 YES  *   DOC FILE
//* SAS PGMS         125 N/A     7143    4.6 06-29-89      080 YES  *   DOC FILE
//* LL BEAN ESA      126 UNKCBT 10063 S  6.5 12-03-93      080 YES  *   DOC FILE
//* CHRYSLER         127 UNKCBT  9976    5.6 02-06-85      080 YES  *   DOC FILE
//* CHIMP VTAM       128 UNKCBT  3185    2.3 06-29-89      080 YES  *   DOC FILE
//* CHKPOINT         129 UNKCBT    84     .1 11-23-99      080 YES  *   DOC FILE
//* INFO/UTILITIES   130 UNKCBT  1509 S  1.4 03-29-99      080 YES  *   DOC FILE
//* EXITS            131 UNKCBT   559     .3 07-21-89      080 YES  *   DOC FILE
//* UTILITIES        132 UNKCBT  2152    1.4 07-21-89      080 YES  *   DOC FILE
//* UTILITIES        133 UNKCBT  2744    1.9 11-14-89      080 YES  *   DOC FILE
//* PRICE UTILITIES  134 UNKCBT115990 S 76.8 05-10-00      080 YES  *   DOC FILE
//* PRICE UTIL LOAD  135 UNKANP   155   43.6 08-01-00    IEBCOPY  NO*   DOC FILE
//* H.Dean Utilities 136 UNKCBT 14251 S  9.3 08-10-99      080 YES  *   DOC FILE
//* VSAM ISPF 3.4    137 UNKCSC   395 S   .2 07-15-92      080 YES  *   DOC FILE
//* SYSTEMID         138 UNKCBT  1108 S   .9 02-02-94      080 YES  *   DOC FILE
//* UTILITIES        139 UNKCBT  2025    1.4 11-14-89      080 YES  *   DOC FILE
//* DARS SYSTEM      140 UNKCBT  1222     .9 11-14-89      080 YES  *   DOC FILE
//* BRODCAST         141 UNKCBT  1177     .9 11-14-89      080 YES  *   DOC FILE
//* VTAM APPL        142 UNKCBT   631     .4 11-14-89      080 YES  *   DOC FILE
//* IDCAMS ISPF      143 UNKCBT   851     .9 11-14-89      080 YES  *   DOC FILE
//* VPS EXIT         144 UNKCBT   626     .4 12-07-89      080 YES  *   DOC FILE
//* KERMIT           145 UNKCBT 24774    1.5 08-19-94    IEBCOPY  NO*   DOC FILE
//* KERMIT           146 UNKCBT   106   36.0 08-19-94    IEBCOPY  NO*   DOC FILE
//* ARCHIVER         147 UNKCBT 24915 S 16.2 02-22-00      080 YES  *   DOC FILE
//* ISPF PAN         148 UNKCBT  5572    3.7 02-21-90      080 YES  *   DOC FILE
//* UTILITIES        149 UNKCBT 27530   18.1 10-26-86      080 YES  *   DOC FILE
//* XMIT RECEIVE     150 UNKCBT  1184     .9 02-21-90      080 YES  *   DOC FILE
//* LISTCAT ISPF     151 UNKCBT   714     .4 04-04-90      080 YES  *   DOC FILE
//* UTIL             152 UNKCBT  9165    5.1 04-04-90      080 YES  *   DOC FILE
//* 3800 CHAR SET    153 UNKCBT     8     .9 08-19-94    IEBCOPY  NO*   DOC FILE
//* SMP ELEMENTS     154 UNKCBT   323 S   .2 03-22-95      080 YES  *   DOC FILE
//* North REXX Split 155 UNKAMS  2430 S  1.9 11-23-99      080 YES  *   DOC FILE
//* IEBASAP          156 UNKCBT  6144    3.7 02-10-92      080 YES  *   DOC FILE
//* IEBASAP          157 UNKCBT   364     .3 08-15-90      080 YES  *   DOC FILE
//* ISPF & REXX      158 UNKCSC  3505    2.3 11-24-93      080 YES  *   DOC FILE
//* UCBFIND          159 CBT      697     .9 08-22-84      080 YES  *   DOC FILE
//* TSO CPS          160 UNKCBT 14809    9.3 12-01-85      080 YES  *   DOC FILE
//* MARSHALL ISPF    161 UNKCBT 22274 S 12.0 11-23-99      080 YES  *   DOC FILE
//* XREFASM          162 UNKCBT  2349    1.9 10-29-85      080 YES  *   DOC FILE
//* DUDA UTILITIES   163 UNKNWK 10656 S  7.4 12-20-90      080 YES  *   DOC FILE
//* RESCUE SYSTEM    164 UNKNWK  3873    2.8 11-08-90      080 YES  *   DOC FILE
//* RACF 1.7 SYSTEM  165 NWK     4449 S  3.2 03-25-91      080 YES  *   DOC FILE
//* VINH VU UTILTIES 166 UNKCSC 18248 S  9.7 03-29-99      080 YES  *   DOC FILE
//* CATELLUS UTIL    167 UNKSBG  2679 S  1.9 05-16-91      080 YES  *   DOC FILE
//* GODFREY UTIL     168 UNKSBG 18758 S  9.7 05-16-91      080 YES  *   DOC FILE
//* K WILLIAMS UTIL  169 UNKSBG 20729 S 13.4 05-16-91      080 YES  *   DOC FILE
//* DUMPCSA          170 SBG      184 S   .1 05-16-91      080 YES  *   DOC FILE
//* DTO,TMAP,DISA ET 171 UNKSBG 75632 S 45.4 08-23-00      080 YES  *   DOC FILE
//* CARTWRIGHT UTIL  172 UNKCSC 78176 S 44.9 08-01-00      080 YES  *   DOC FILE
//* SMPETOOL         173 UNKSBG 15971 S 10.6 02-10-92      080 YES  *   DOC FILE
//* CUNY TAPECOPY    174 CSC     3711 S  2.3 09-03-93      080 YES  *   DOC FILE
//* PHILIPS UTIL     175 SBG    15453 S 10.6 02-10-92      080 YES  *   DOC FILE
//* ALGOL COMP & LIB 176 UNKSBG    52   19.9 10-27-98    IEBCOPY  NO*   DOC FILE
//* OPCODE MACROS    177 UNKSBG    59 S   .1 03-30-92      080 YES  *   DOC FILE
//* IPCS FOR IDMS    178 UNKSBG  5576 S  3.7 10-28-92      080 YES  *   DOC FILE
//* WOREN MACLIB     179 N/A    13442 S  9.3 05-10-00      080 YES  *   DOC FILE
//* WOREN TSOCMDS    180 N/A    33452 S 22.2 03-30-92      080 YES  *   DOC FILE
//* WOREN MVS PGMS   181 N/A     4761 S  3.7 03-30-92      080 YES  *   DOC FILE
//* PDS COMMAND PKG  182 ANP    90795 S 62.0 07-14-00      080 YES  *   DOC FILE
//* SAINT-FLOUR UTIL 183 UNKCSC 55043 S 37.0 07-14-00      080 YES  *   DOC FILE
//* IPCS EXECS ESA   184 CSC     4938 S  2.8 01-20-94      080 YES  *   DOC FILE
//* IKJTABLS SRC     185 CSC      484 S   .4 08-10-99      080 YES  *   DOC FILE
//* IKJTABLS LOAD    186 CSC        4     .3 08-10-99    IEBCOPY  NO*   DOC FILE
//* CLIST CONVERT    187 CSC     4148 S  3.2 03-22-95      080 YES  *   DOC FILE
//* IBM SOURCE HANDL 188 UNKCBT  1999 S  1.9 03-22-95      080 YES  *   DOC FILE
//* IBM SOURCE HANDL 189 UNKCBT    10    1.9 08-19-94    IEBCOPY  NO*   DOC FILE
//* VSMDUMP          190 UNKCSC  8665 S  4.6 03-25-93      080 YES  *   DOC FILE
//* ACCTG FOR STC'S  191 UNKCSC  1879 S  1.4 03-25-93      080 YES  *   DOC FILE
//* GEN RECOV CODE   192 UNKCSC  1748 S  1.4 03-25-93      080 YES  *   DOC FILE
//* TCOPY            193 ANP     2573 S  1.9 07-14-00      080 YES  *   DOC FILE
//* CUT-PASTE        194 UNKCSC   344 S   .2 06-11-93      080 YES  *   DOC FILE
//* DUTTMAN CLISTS   195 CSC       76 S   .1 06-11-93      080 YES  *   DOC FILE
//* JES2 EXIT LOADER 196 CSC      689 S   .5 03-22-95      080 YES  *   DOC FILE
//* IMS MODS         197 UNKCSC 13606 S  8.3 09-24-93      080 YES  *   DOC FILE
//* JES2 EXIT LOADER 198 UNKAMS  2319 S  1.9 10-27-98      080 YES  *   DOC FILE
//* COMNET TSO       199 UNKCBT  2286    1.9 02-17-85      080 YES  *   DOC FILE
//* TWA PDS          200 UNKCBT  6276 S  4.2 07-14-00      080 YES  *   DOC FILE
//* SYSTEM CLIST VAR 201 UNKCSC  3002 S  1.9 11-24-93      080 YES  *   DOC FILE
//* G. PRICE IODATA  202 UNKCSC   155 S  1.0 12-28-93    IEBCOPY  NO*   DOC FILE
//* TMS SILO EJECT   203 UNKCSC  1165 S   .9 01-20-94      080 YES  *   DOC FILE
//* MVS CROSS SYSTEM 204 CSC    22512 S 17.1 03-22-95      080 YES  *   DOC FILE
//* MVS XSYS SCRIPT  205 CSC     4804 S  3.6 01-28-94    IEBCOPY  NO*   DOC FILE
//* DCOLLECT REXX    206 UNKCSC  3335 S  1.9 02-18-94      080 YES  *   DOC FILE
//* FSE              207 CBT     5377    3.2 04-12-87      080 YES  *   DOC FILE
//* LSPC COMMAND     208 UNKCSC  1653 S  1.4 02-02-94      080 YES  *   DOC FILE
//* CALCULATOR REXX  209 CSC      806 S   .9 02-02-94      080 YES  *   DOC FILE
//* CICS CROSS SYSTM 210 CSC     5944 S  3.7 03-22-95      080 YES  *   DOC FILE
//* CICS XSYS SCRIPT 211 CSC    16525 S 18.2 02-18-94    IEBCOPY  NO*   DOC FILE
//* DB2 CROSS SYSTEM 212 CSC    68930 S 44.4 03-22-95      080 YES  *   DOC FILE
//* DB2 XSYS SCRIPT  213 CSC    51537 S 36.8 02-18-94    IEBCOPY  NO*   DOC FILE
//* CTL BLK COBOL II 214 UNKCSC  6689 S  4.6 05-06-94      080 YES  *   DOC FILE
//* SMP/E CLISTS     215 CSC      946 S   .9 03-22-95      080 YES  *   DOC FILE
//* DATE CONVERSION  216 UNKCSC   818 S   .9 07-18-94      080 YES  *   DOC FILE
//* DISASSEMBLER     217 CBT     7072 S  4.6 07-15-92      080 YES  *   DOC FILE
//* RMFMON SCR       218 CBT     5738    4.2 04-01-86      080 YES  *   DOC FILE
//* FORTE EXECS      219 CSC      264 S   .2 03-22-95      080 YES  *   DOC FILE
//* EDP AUDIT TOOLS  220 UNKCSC  9901 S  6.9 10-13-94      080 YES  *   DOC FILE
//* EDP AUDIT REXX   221 UNKCSC  4332 S  9.4 10-13-94    IEBCOPY  NO*   DOC FILE
//* EMPTY            222 N/A        1     .9 07-26-95      080 YES  *   DOC FILE
//* FREE TAPE MGMT   223 UNKCSC  2598 S  1.9 03-22-95      080 YES  *   DOC FILE
//* FREE TAPE MGMT   224 UNKCSC   780 S  3.6 11-13-94    IEBCOPY  NO*   DOC FILE
//* OFFLOAD          225 CBT     1071     .9 10-28-84      080 YES  *   DOC FILE
//* COMPRSEQ         226 CBT     1181     .9 06-17-84      080 YES  *   DOC FILE
//* TSO AUTHD0       227 CBT     2686    1.9 08-16-92      080 YES  *   DOC FILE
//* DFHSM RECOVER    228 UNKCSC   576     .3 10-22-93      080 YES  *   DOC FILE
//* COPYMODS Tap Cpy 229 ANP     2185 S  1.9 08-23-00      080 YES  *   DOC FILE
//* ISPF FAIR        230 UNKCBT  1292    2.8 05-29-86      133    NO*   DOC FILE
//* ISPF FAIR        231 UNKCBT   992     .9 11-23-86      080 YES  *   DOC FILE
//* ISPF FAIR        232 UNKCBT   408     .3 05-29-86      080 YES  *   DOC FILE
//* ABEND PROGRAM    233 CSC      519 S   .2 02-08-95      080 YES  *   DOC FILE
//* BCSCAN           234 CSC     1001 S   .9 04-17-95      080 YES  *   DOC FILE
//* LPA LOADER       235 CBT     1065     .9 07-24-78      080 YES  *   DOC FILE
//* LISTC ZAP        236 CSC      369     .2 03-22-95      080 YES  *   DOC FILE
//* PDSXREF          237 CBT     5480    3.2 08-02-78      080 YES  *   DOC FILE
//* INT DISASM LOAD  238 CSC       92   11.4 04-08-94    IEBCOPY  NO*   DOC FILE
//* INT DISASM PANEL 239 CSC     2435 S  1.4 04-08-94      080 YES  *   DOC FILE
//* INT DISASM MSGS  240 CSC      238 S   .2 04-08-94      080 YES  *   DOC FILE
//* INT DISASM JCL   241 CSC     1494 S   .9 04-17-94      080 YES  *   DOC FILE
//* INT DISASM CBLKS 242 CSC       79   22.2 04-08-94    IEBCOPY  NO*   DOC FILE
//* EMPTY            243 N/A        1     .0 06-24-86      080 YES  *   DOC FILE
//* UK GUIDE 1993A   244 UNKCSC 22948 S 14.3 11-23-99      080 YES  *   DOC FILE
//* UK GUIDE NUI     245 UNKCSC 10085 S  5.6 05-19-94      080 YES  *   DOC FILE
//* EMPTY            246 N/A        1     .0 07-08-87      080 YES  *   DOC FILE
//* BRODCAST MANAGER 247 ANP    19525 S 12.0 07-14-00      080 YES  *   DOC FILE
//* BOYSEN UTIL      248 UNKCSC  5958 S  3.7 03-11-96      080 YES  *   DOC FILE
//* BARKOW PGMS      249 CSC     3381 S  1.9 07-26-95      080 YES  *   DOC FILE
//* DISPLAY GRS LONG 250 CSC      389 S   .2 09-13-95      080 YES  *   DOC FILE
//* ISPF EDIT MACRO2 251 CSC     3584 S  2.3 11-27-95      080 YES  *   DOC FILE
//* JEFF KAPLAN SRC  252 UNKCSC 11334 S  6.9 01-05-96      080 YES  *   DOC FILE
//* JEFF KAPLAN EXEC 253 UNKCSC 46149 S 24.5 01-05-96      080 YES  *   DOC FILE
//* JEFF KAPLAN CNTL 254 UNKCSC 24904 S 16.2 01-05-96      080 YES  *   DOC FILE
//* JEFF KAPLAN ISPP 255 UNKCSC  7128 S  4.2 01-05-96      080 YES  *   DOC FILE
//* JEFF KAPLAN ISPT 256 UNKCSC   438 S   .9 01-05-96      080 YES  *   DOC FILE
//* LKED BLK 32720   257 CSC      139 S   .1 03-11-96      080 YES  *   DOC FILE
//* WIN3270 SOURCE   258 UNKCSC 38616 S 19.0 03-11-96      080 YES  *   DOC FILE
//* WIN3270 LOAD     259 UNKCSC     1   22.6 03-11-96    IEBCOPY  NO*   DOC FILE
//* QUICK MAP        260 CBT     6634 S  3.7 08-01-00      080 YES  *   DOC FILE
//* CMD1 # XA/ESA    261 UNKCBT 82386 S 49.5 03-30-92      080 YES  *   DOC FILE
//* PTFXREF PGM      262 CSC      562 S   .4 06-27-96      080 YES  *   DOC FILE
//* UK GUIDE MACROS  263 UNKCSC  5645 S  3.7 05-28-96      080 YES  *   DOC FILE
//* TSO CPS          264 UNKCBT  5618 S  3.7 03-30-92      080 YES  *   DOC FILE
//* BFG LOGON EXIT   265 UNKSBG  9316 S  6.0 03-30-92      080 YES  *   DOC FILE
//* SS0104 TAPE MAP  266 CSC     2875 S  1.9 08-19-96      080 YES  *   DOC FILE
//* EMPTY            267 N/A        1     .0 08-23-00      080 YES  *   DOC FILE
//* REXX VSAM        268 UNKCSC  3628 S  1.9 11-23-99      080 YES  *   DOC FILE
//* PL/I ADVENTR SRC 269 UNKCSC  5105 S  3.2 12-26-96      080 YES  *   DOC FILE
//* WASH UTIL        270 UNKCBT 93371 S 48.6 10-27-98      080 YES  *   DOC FILE
//* DYN PROCLIB      271 UNKCBT  6389    5.1 02-10-92      080 YES  *   DOC FILE
//* VTAM LOGO        272 UNKCBT   829     .9 08-22-84      080 YES  *   DOC FILE
//* TSO SEC JES2     273 UNKCBT   692     .9 08-22-84      080 YES  *   DOC FILE
//* DYN PROCLIB V4   274 UNKSBG  7559    5.1 02-10-92      080 YES  *   DOC FILE
//* HEDGES PROGRAMS  275 UNKCSC  2090 S  1.4 12-11-96      080 YES  *   DOC FILE
//* CHECKSUM         276 CSC      245 S   .1 12-11-96      080 YES  *   DOC FILE
//* JCL SUBSTITUTION 277 UNKAMS   904 S   .9 10-27-97      080 YES  *   DOC FILE
//* SLSS SPF         278 UNKCBT 12186    9.7 05-17-88      080 YES  *   DOC FILE
//* SLSS DOC         279 UNKCBT  4263    4.4 12-26-96    IEBCOPY  NO*   DOC FILE
//* SCRIPT DOC       280 UNKCBT 17515 S 10.6 12-26-96      080 YES  *   DOC FILE
//* SCRIPT LOD       281 UNKCBT    34    4.2 12-26-96    IEBCOPY  NO*   DOC FILE
//* SCRIPT MAC       282 UNKCBT 28782 S 19.4 12-26-96      080 YES  *   DOC FILE
//* SCRIPT MEMO      283 UNKCBT 17515 S 21.4 12-26-96    IEBCOPY  NO*   DOC FILE
//* SCRIPT CODE      284 UNKCBT  7533 S  5.1 12-26-96      080 YES  *   DOC FILE
//* SCRIPT HYPH      285 UNKCBT  2735 S  1.7 12-26-96    IEBCOPY  NO*   DOC FILE
//* SCRIPT OBJ       286 UNKCBT  2760 S  3.2 12-26-96      080 YES  *   DOC FILE
//* SCRIPT TSO       287 UNKCBT  3965 S  2.8 12-26-96      080 YES  *   DOC FILE
//* SCRIP TSO PROMTR 288 UNKCSC  2147 S  1.4 12-26-96      080 YES  *   DOC FILE
//* PTF XREF REPORTS 289 UNKCSC  2897 S  1.9 12-26-96      080 YES  *   DOC FILE
//* GPSAM ACCES METH 290 UNKCSC  3561 S  2.3 12-30-96      080 YES  *   DOC FILE
//* CPU INSTRC SPEED 291 UNKAMS  1320 S   .9 11-23-99      080 YES  *   DOC FILE
//* CBT DOC TO HTML  292 UNKAMS  1294 S   .4 12-18-97      080 YES  *   DOC FILE
//* EMPTY            293 N/A        1     .0 08-04-87      080 YES  *   DOC FILE
//* VSAM ANALYZER    294 CBT     6331    4.2 10-13-94      080 YES  *   DOC FILE
//* EMPTY            295 N/A        1     .0 12-18-97      080 YES  *   DOC FILE
//* TSO UTILITIES    296 UNKCBT 23129 S 14.8 02-22-00      080 YES  *   DOC FILE
//* GRS ISPF-Cleary  297 UNKANP  3795 S  2.3 08-23-00      080 YES  *   DOC FILE
//* GTE - PUB        298 UNKCBT 15767   10.6 10-26-86      080 YES  *   DOC FILE
//* TAPEMAP          299 CBT     9542 S  6.9 05-10-00      080 YES  *   DOC FILE
//* MARSHALL TSOCP'S 300 CBT   187905 S110.6 02-22-00      080 YES  *   DOC FILE
//* CDSCB RACROUTE   301 UNKAMS  1900 S  1.4 12-18-97      080 YES  *   DOC FILE
//* LPA-LINKLST Info 302 UNKAMS  6011 S  3.7 08-23-00      080 YES  *   DOC FILE
//* SIMTERM OS/390   303 UNKAMS  1435 S   .9 12-18-97      080 YES  *   DOC FILE
//* LSTVOL SOURCE    304 UNKAMS  4643 S  3.2 12-18-97      080 YES  *   DOC FILE
//* LSTVOL ASMLINK   305 UNKAMS  1495 S  4.8 12-18-97    IEBCOPY  NO*   DOC FILE
//* TSSO-SUBSYS      306 CBT     4632 S  3.2 05-16-91      080 YES  *   DOC FILE
//* ASMH 2 HLASM PGM 307 UNKAMS    60 S   .1 12-18-97      080 YES  *   DOC FILE
//* CONS SYSLEVL ZAP 308 UNKAMS    70 S   .1 12-18-97      080 YES  *   DOC FILE
//* ALGOL COMP SOURC 309 UNKAMS 15143 S  9.7 01-20-98      080 YES  *   DOC FILE
//* ALGOL LIBR SOURC 310 UNKAMS 10386 S  6.5 01-20-98      080 YES  *   DOC FILE
//* DAVE ALCOCK UTIL 311 UNKAMS 61660 S 33.8 03-29-99      080 YES  *   DOC FILE
//* Lionel Dyck Util 312 UNKANP 60619 S 42.6 09-01-00      080 YES  *   DOC FILE
//* GENERAL MPF EXIT 313 UNKAMS   453 S   .3 05-29-98      080 YES  *   DOC FILE
//* DAVE LEES UTIL   314 UNKAMS  6135 S  3.7 05-22-00      080 YES  *   DOC FILE
//* VM REXXFORM      315 UNKAMS   730 S   .4 05-29-98      080 YES  *   DOC FILE
//* MARSHALL BATCH   316 CBT    96943 S 54.2 07-14-00      080 YES  *   DOC FILE
//* BOOKMANAGER MGMT 317 UNKAMS  1631 S   .9 05-29-98      080 YES  *   DOC FILE
//* POFFLOAD PRINT   318 UNKAMS  1673 S  1.4 05-29-98      080 YES  *   DOC FILE
//* SMF1415 USP      319 3.8     1283     .9 01-01-86      080 YES  *   DOC FILE
//* DSS EXITS        320 SP13    1316    1.4 09-18-90      080 YES  *   DOC FILE
//* COBOL ANALYZER   321 AMS    13698 S  8.3 08-01-00      080 YES  *   DOC FILE
//* TSO SLEEP ETC.   322 UNKAMS   973 S   .9 07-14-00      080 YES  *   DOC FILE
//* REXX FP - Samplb 323 UNKAMS  1260 S   .9 08-10-99      080 YES  *   DOC FILE
//* REXX FP - Load   324 UNKAMS    99   33.3 10-27-98    IEBCOPY  NO*   DOC FILE
//* TSO CPS WELLS    325 UNKCBT 15563    9.3 10-04-87      080 YES  *   DOC FILE
//* FORTRAN H        326 UNKCBT   204   22.2 08-19-94    IEBCOPY  NO*   DOC FILE
//* RPG COMPLR & LIB 327 UNKCSC    84   12.9 04-22-94    IEBCOPY  NO*   DOC FILE
//* IGGPRE-POST EXIT 328 UNKAMS  4485 S  3.2 05-29-98      080 YES  *   DOC FILE
//* SCE JES2 EXIT 6  329 UNKAMS  5848 S  4.6 05-29-98      080 YES  *   DOC FILE
//* F Alber ISPF Int 330 UNKAMS 26385 S 14.3 02-22-00      080 YES  *   DOC FILE
//* COBOL Addr Point 331 UNKAMS   242 S   .2 08-10-99      080 YES  *   DOC FILE
//* AUTO SCHED       332 UNKCBT  1603    1.4 07-28-88      080 YES  *   DOC FILE
//* GZIP COMPRES JCL 333 AMS     3505 S  3.2 10-27-98      080 YES  *   DOC FILE
//* GZIP SOURCE .H   334 N/A      962 S   .9 05-29-98      080 YES  *   DOC FILE
//* GZIP SOURCE .C   335 N/A     8338 S  4.6 10-27-98      080 YES  *   DOC FILE
//* RICE UTILITIES   336 UNKCBT 30469   20.8 09-16-84      080 YES  *   DOC FILE
//* GLOBAL MEM SERCH 337 UNKAMS   260 S   .2 05-29-98      080 YES  *   DOC FILE
//* P390 UTILITIES   338 AMS     2853 S  2.3 03-29-99      080 YES  *   DOC FILE
//* JES2 #5 EXIT     339 UNKCBT   814     .5 11-30-87      080 YES  *   DOC FILE
//* DCM 7980-3 REPT  340 UNKAMS  4578 S  2.3 10-27-98      080 YES  *   DOC FILE
//* LOAD PGMS IN CSA 341 UNKAMS  3636 S  2.3 10-27-98      080 YES  *   DOC FILE
//* MODEL 204 ISPF   342 UNKAMS  5330 S  3.2 10-27-98      080 YES  *   DOC FILE
//* KALINICH VTOCLIS 343 UNKAMS   760 S   .4 11-23-99      080 YES  *   DOC FILE
//* Berning RX Tools 344 AMS     1422 S   .9 02-22-00      080 YES  *   DOC FILE
//* ENQ DISPLAY GRS  345 UNKAMS   551 S   .4 10-27-98      080 YES  *   DOC FILE
//* BREAK JES2 EXITS 346 UNKAMS  1401 S   .9 10-27-98      080 YES  *   DOC FILE
//* FOCHTMAN MODLIST 347 UNKAMS  3364 S  2.3 03-29-99      080 YES  *   DOC FILE
//* PDS COPY ALPHABT 348 UNKAMS   683 S   .4 11-23-99      080 YES  *   DOC FILE
//* ISPF CMDTBL UPDT 349 UNKAMS   559 S   .4 08-10-99      080 YES  *   DOC FILE
//* WLM SCHENV= CNVT 350 UNKAMS   679 S   .4 03-29-99      080 YES  *   DOC FILE
//* LIST LE LVL COBL 351 UNKAMS   146 S   .1 03-29-99      080 YES  *   DOC FILE
//* INTEL COLLECTION 352 UNKCBT104859 S 63.4 11-23-99      080 YES  *   DOC FILE
//* SPF PGMS         353 UNKCBT 41867   23.6 12-07-89      080 YES  *   DOC FILE
//* RANDY HALL PGMS  354 UNKAMS 54424 S 29.6 03-29-99      080 YES  *   DOC FILE
//* KONCAT PROGRAM   355 UNKAMS  2053 S  1.4 03-29-99      080 YES  *   DOC FILE
//* NETSOL VTAM SMGR 356 UNKAMS  7426 S  5.1 03-29-99      080 YES  *   DOC FILE
//* STELI PROGRAMS   357 UNKAMS  7917 S  4.2 05-10-00      080 YES  *   DOC FILE
//* SOUT SYSOUT WTR  358 UNKAMS 15871 S 11.1 03-29-99      080 YES  *   DOC FILE
//* SYNTEX PGMS      359 UNKCBT 12695    8.3 03-31-87      080 YES  *   DOC FILE
//* WSRCC UTILITIES  360 UNKCBT 20405 S 12.5 05-29-98      080 YES  *   DOC FILE
//* JOHNSTON UTILS   361 UNKAMS 10807 S  7.4 05-22-00      080 YES  *   DOC FILE
//* JOHNSTON LOADLIB 362 UNKAMS     6    1.9 05-22-00    IEBCOPY  NO*   DOC FILE
//* ISPF NAME CHANGE 363 UNKAMS   664 S   .4 03-29-99      080 YES  *   DOC FILE
//* CONTROL CARD SUB 364 UNKAMS  2404 S  1.9 03-29-99      080 YES  *   DOC FILE
//* XMIT ERROR-FREE  365 AMS     2419 S  1.4 08-10-99      080 YES  *   DOC FILE
//* MARVIN SHAW PGMS 366 AMS      194 S   .1 08-10-99      080 YES  *   DOC FILE
//* ASCBS, TSO USERS 367 AMS      223 S   .1 08-10-99      080 YES  *   DOC FILE
//* J WILLIAMS UTILS 368 UNKAMS  3814 S  2.8 11-23-99      080 YES  *   DOC FILE
//* PRC CODE         369 UNKCBT 26128 S 15.3 03-29-99      080 YES  *   DOC FILE
//* IO COUNTS        370 UNKCBT   121     .1 06-26-90      080 YES  *   DOC FILE
//* WASH LOAD        371 UNKCBT    95   26.6 08-19-94    IEBCOPY  NO*   DOC FILE
//* MacKenz DYNALLOC 372 UNKAMS   767 S   .4 11-23-99      080 YES  *   DOC FILE
//* GTE TSO CP       373 UNKCBT  4000    2.8 06-12-83      080 YES  *   DOC FILE
//* SAS PGMS FOR SMF 374 UNKAMS 10680 S  6.5 08-10-99      080 YES  *   DOC FILE
//* OBJECTSTAR SMF   375 UNKAMS  2045 S   .9 08-10-99      080 YES  *   DOC FILE
//* ZDF-D.MARSDEN UT 376 UNKAMS 14439 S  8.3 08-10-99      080 YES  *   DOC FILE
//* TCAS SUB=MSTR    377 UNKAMS  1152 S   .9 08-10-99      080 YES  *   DOC FILE
//* SORTTRAK         378 UNKAMS   987 S   .9 08-10-99      080 YES  *   DOC FILE
//* PROC XREF        379 CBT     3027    1.9 07-17-83      080 YES  *   DOC FILE
//* EMPTY            380 N/A        1     .0 07-08-87      080 YES  *   DOC FILE
//* FIRST COMP SRVCS 381 UNKCBT 40493   25.9 12-12-88      080 YES  *   DOC FILE
//* P.GILLIS UTILITS 382 UNKAMS 13256 S  7.9 11-23-99      080 YES  *   DOC FILE
//* INTEL INFO       383 UNKCBT  7658   11.6 08-19-94    IEBCOPY  NO*   DOC FILE
//* CCD PDS          384 UNKCBT 86177   55.5 06-19-88      080 YES  *   DOC FILE
//* LPA COMPARE      385 CBT      469     .3 11-30-87      080 YES  *   DOC FILE
//* CARRASCO PROGRMS 386 UNKAMS  4253 S  2.3 08-10-99      080 YES  *   DOC FILE
//* EMPTY            387 N/A        1     .0 08-04-87      080 YES  *   DOC FILE
//* SCHEDULER        388 UNKCBT  9339    6.9 10-12-86      080 YES  *   DOC FILE
//* RESERVED         389 N/A        1     .0 09-25-83      080 YES  *   DOC FILE
//* QUE 5.1, 5.2     390 UNKCSC 18251 S 13.4 03-11-96      080 YES  *   DOC FILE
//* Ngan TRACE390    391 UNKAMS  8830 S  6.5 05-10-00      080 YES  *   DOC FILE
//* WOREN QUEUE 4.2  392 UNKSBG 42142 S 29.6 03-30-92      080 YES  *   DOC FILE
//* RACFGRPS Rexx    393 AMS       80 S   .1 11-23-99      080 YES  *   DOC FILE
//* Jakubek KSDSPACE 394 UNKAMS  1955 S  1.4 02-22-00      080 YES  *   DOC FILE
//* S.Metz CATIND Rx 395 UNKAMS   161 S   .1 11-23-99      080 YES  *   DOC FILE
//* S.Hawley FINDSTR 396 AMS       78 S   .1 11-23-99      080 YES  *   DOC FILE
//* Clarke PACK UNPK 397 UNKAMS    66 S   .1 11-23-99      080 YES  *   DOC FILE
//* IBMMAC etc.      398 UNKAMS  2563 S  1.9 11-23-99      080 YES  *   DOC FILE
//* TSSO MODS        399 UNKCBT  2644    1.8 05-01-87      080 YES  *   DOC FILE
//* DYNAMASK         400 UNKCBT 11587 S  8.3 10-28-92      080 YES  *   DOC FILE
//* EMPTY            401 N/A        1     .0 08-10-99      080 YES  *   DOC FILE
//* EMPTY            402 N/A        1     .0 08-10-99      080 YES  *   DOC FILE
//* EMPTY            403 N/A        1     .0 08-10-99      080 YES  *   DOC FILE
//* TSSO FOR OS/390  404 UNKAMS 48132 S 29.2 11-23-99      080 YES  *   DOC FILE
//* UTILITIES        405 UNKCBT 12454    9.3 04-01-86      080 YES  *   DOC FILE
//* EMPTY            406 N/A        1     .0 08-04-87      080 YES  *   DOC FILE
//* DYNAMIC BLDL     407 NWK    11255 S  8.8 10-24-90      080 YES  *   DOC FILE
//* MACROS           408 UNKCBT  7539    5.6 10-29-85      080 YES  *   DOC FILE
//* R.Scott MXI FB80 409 UNKAMS  8461 S  5.1 07-14-00      080 YES  *   DOC FILE
//* R.Scott MXI Load 410 UNKAMS    54   15.2 07-14-00    IEBCOPY  NO*   DOC FILE
//* R.Scott Util Src 411 UNKAMS  5951 S  3.7 02-22-00      080 YES  *   DOC FILE
//* R.Scott Util Lod 412 UNKAMS    10    2.8 11-23-99    IEBCOPY  NO*   DOC FILE
//* A.Street FADH Ut 413 UNKAMS  2035 S  1.8 11-23-99      080 YES  *   DOC FILE
//* Machine to ANSI  414 UNKAMS   329 S   .2 11-23-99      080 YES  *   DOC FILE
//* EMPTY            415 N/A        1     .0 07-28-88      080 YES  *   DOC FILE
//* DELUXE PGM       416 UNKCBT  3800    2.8 03-18-84      080 YES  *   DOC FILE
//* EMPTY            417 N/A        1     .0 08-04-87      080 YES  *   DOC FILE
//* COMBINED Insurnc 418 UNKCBT  6048    3.7 01-19-89      080 YES  *   DOC FILE
//* Dignus Source Lb 419 UNKAMS  8456 S  4.2 08-10-99      080 YES  *   DOC FILE
//* Dignus Load Lib  420 UNKAMS    86   24.2 08-10-99    IEBCOPY  NO*   DOC FILE
//* XACORZAP         421 UNKCBT  4502 S  2.8 12-20-90      080 YES  *   DOC FILE
//* MARQUARDT        422 UNKCBT  5985    2.3 07-21-89      080 YES  *   DOC FILE
//* BROIDO CODE      423 UNKCBT  4265 S  3.2 07-15-92      080 YES  *   DOC FILE
//* VETAPE-DC        424 UNKCBT   529     .4 08-29-85      080 YES  *   DOC FILE
//* IEFUSI Exit-Loos 425 UNKANP   367 S   .3 07-14-00      080 YES  *   DOC FILE
//* JSTATUS          426 UNKCBT  2700    2.3 08-29-85      080 YES  *   DOC FILE
//* IHASTOW          427 CBTXA     96     .1 09-17-85      080 YES  *   DOC FILE
//* ROCKWELL SHOW    428 UNKCSC  3309    2.3 11-24-93      080 YES  *   DOC FILE
//* ALLERGAN UTIL    429 UNKCBT  5823    3.7 09-17-85      080 YES  *   DOC FILE
//* MC EVOY UTIL     430 UNKCBT  5031    3.2 10-15-85      080 YES  *   DOC FILE
//* Bacher Offerings 431 UNKAMS 61147 S 32.4 05-10-00      080 YES  *   DOC FILE
//* T.Falissard Util 432 UNKAMS 25153 S 25.9 09-01-00      080 YES  *   DOC FILE
//* Frank Clarke exc 433 UNKAMS  5183 S  9.2 02-22-00    IEBCOPY  NO*   DOC FILE
//* Mark Zelden util 434 UNKANP  9587 S  6.0 09-01-00      080 YES  *   DOC FILE
//* F.Clarke FB-80   435 UNKAMS  3977 S  2.3 11-23-99      080 YES  *   DOC FILE
//* COMPCODE-G.Jones 436 UNKAMS  1428 S  1.4 02-22-00      080 YES  *   DOC FILE
//* Jan Jaeger Utils 437 UNKAMS  9647 S  6.5 02-22-00      080 YES  *   DOC FILE
//* Dan Snyder Macro 438 UNKAMS  9467 S  6.0 02-22-00      080 YES  *   DOC FILE
//* V Mielke PDSX    439 UNKAMS  2835 S  1.9 02-22-00      080 YES  *   DOC FILE
//* PDSX Load Librar 440 UNKAMS    11    3.1 02-22-00    IEBCOPY  NO*   DOC FILE
//* B Vogt RACF pgms 441 UNKAMS  1348 S   .9 02-22-00      080 YES  *   DOC FILE
//* Kimu REVIVE pgm  442 UNKAMS  8274 S  4.6 05-10-00      080 YES  *   DOC FILE
//* Kimu Utilities   443 UNKAMS 14313 S  7.4 02-22-00      080 YES  *   DOC FILE
//* Big Blk Tap File 444 UNKAMS   947 S   .9 02-22-00      080 YES  *   DOC FILE
//* Object Deck Disa 445 UNKAMS  9507 S  6.0 05-10-00      080 YES  *   DOC FILE
//* UNIX Pgm-COBOL   446 UNKAMS   405 S   .3 05-10-00      080 YES  *   DOC FILE
//* ENQMON-Enhnc GRS 447 UNKAMS   568 S   .4 05-22-00      080 YES  *   DOC FILE
//* Date in Syst Var 448 UNKANP   708 S   .4 07-14-00      080 YES  *   DOC FILE
//* Amdahl Bookmangr 449 UNKANP  9696 S  6.5 07-14-00      080 YES  *   DOC FILE
//* Globl Str Search 450 ANP      227 S   .1 07-14-00      080 YES  *   DOC FILE
//* Scarcella EXECs  451 ANP      133 S   .1 07-14-00      080 YES  *   DOC FILE
//* Dan's MVS-JES2 U 452 UNKANP 23980 S 15.7 07-14-00      080 YES  *   DOC FILE
//* MOINIL INDEX     453 UNKCSC   452 S  1.2 05-28-96      080 YES  *   DOC FILE
//* MOINIL BASIC     454 UNKCSC 84422 S 52.8 08-01-00      080 YES  *   DOC FILE
//* MOINIL COMPLEMNT 455 UNKCSC 48058 S 31.0 05-28-96      080 YES  *   DOC FILE
//* MOINIL ADDITIONL 456 UNKCSC 63851 S 38.9 05-28-96      080 YES  *   DOC FILE
//* MOINIL DEMO/GAME 457 UNKCSC 47956 S 28.7 08-01-00      080 YES  *   DOC FILE
//* MOINIL CBT-EXTR  458 UNKCSC 99424 S 65.7 05-29-96      080 YES  *   DOC FILE
//* MOINIL SUPPLEMNT 459 UNKCSC 18047 S 11.1 05-28-96      080 YES  *   DOC FILE
//* ISPF GUIDE       460 UNKCBT  1289     .9 11-23-86      080 YES  *   DOC FILE
//* ISPF GUIDE       461 UNKCBT 10236    5.1 11-23-86      080 YES  *   DOC FILE
//* ISPF GUIDE       462 UNKCBT  2945    1.9 11-23-86      080 YES  *   DOC FILE
//* ISPF GUIDE       463 UNKCBT   298     .2 11-23-86      080 YES  *   DOC FILE
//* ISPF GUIDE       464 UNKCBT 26855   16.2 11-23-86      080 YES  *   DOC FILE
//* ISPF GUIDE       465 UNKCBT  3737    2.8 11-23-86      080 YES  *   DOC FILE
//* ISPF GUIDE       466 UNKCBT   472     .3 11-23-86      080 YES  *   DOC FILE
//* ISPF GUIDE       467 UNKCBT  4510    2.8 11-23-86      080 YES  *   DOC FILE
//* ISPF GUIDE       468 UNKCBT     2     .0 11-23-86      080 YES  *   DOC FILE
//* ISPF GUIDE       469 UNKCBT 24507   16.2 11-23-86      080 YES  *   DOC FILE
//* ISPF GUIDE       470 UNKCBT  2450    1.9 11-23-86      080 YES  *   DOC FILE
//* ISPF GUIDE       471 UNKCBT  3867    2.8 11-23-86      080 YES  *   DOC FILE
//* MURPHY           472 UNKCBT  8245    4.6 04-17-88      080 YES  *   DOC FILE
//* CHKASVT program  473 ANP      248 S   .2 08-01-00      080 YES  *   DOC FILE
//* LIBCLEAN         474 UNKANP  1064 S   .9 08-23-00      080 YES  *   DOC FILE
//* LBI TAPE DOC     475 UNKANP   326 S   .3 08-23-00      080 YES  *   DOC FILE
//* LISP for MVS     476 UNKANP111515 S 99.5 08-23-00      080 YES  *   DOC FILE
//* AWSUTIL-Vrt Tape 477 ANP     1456 S   .9 08-23-00      080 YES  *   DOC FILE
//* RAWSTAPE         478 UNKANP   165 S   .1 09-01-00      080 YES  *   DOC FILE
//* BCEDIT,BKSRCH et 479 UNKANP  1128 S   .9 09-01-00      080 YES  *   DOC FILE
//* Castilla Utl Src 480 UNKANP  2266 S  1.4 09-01-00      080 YES  *   DOC FILE
//* Castilla Loadmod 481 UNKANP    15    1.5 09-01-00    IEBCOPY  NO*   DOC FILE
//* GDGCOPY          482 UNKANP   371 S   .3 09-01-00      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               3478.7                        *   DOC FILE
//*                                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        472,475 -121,267 = 370,742                               *   DOC FILE
//*        370,742 -      0 = 370,742                               *   DOC FILE
//*        370,742 - 11,334 = 359,408                               *   DOC FILE
//*        359,408 - 19,850 = 339,558                               *   DOC FILE
//*        339,558 -  5,315 = 334,343                               *   DOC FILE
//*        334,343 -  4,002 = 330,341                               *   DOC FILE
//*        330,341 -  5,100 = 325,241                               *   DOC FILE
//*        325,241 - 36,734 = 288,507                               *   DOC FILE
//*        288,507 -100,793 = 187,714                               *   DOC FILE
//*        187,714 - 28,058 = 159,657                               *   DOC FILE
//*        159,657 -    862 = 158,795                               *   DOC FILE
//*        158,795 -  7,135 = 151,660                               *   DOC FILE
//*        151,660 - 22,228 = 129,432                               *   DOC FILE
//*        129,432 -  9,431 = 120,001                               *   DOC FILE
//*        120,001 -  1,180 = 118,821                               *   DOC FILE
//*        118,812 -     56 = 118,756                               *   DOC FILE
//*        118,812 -  8,305 = 110,451                               *   DOC FILE
//*        110,451 - 13,309 =  97,142                               *   DOC FILE
//*                                                                 *   DOC FILE
//* |                                                               *   DOC FILE
//*        TOTAL      2,557,060        09-18-90                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        TOTAL      2,543,751        08-13-90                     *   DOC FILE
//*        TOTAL      2,494,554        12-07-89                     *   DOC FILE
//*        TOTAL      2,123,762        12-12-88                     *   DOC FILE
//*        TOTAL      2,171,666        12-15-87                     *   DOC FILE
//*        TOTAL      2,621,626        05-01-87                     *   DOC FILE
//*        TOTAL      2,561,579        12-09-86                     *   DOC FILE
//*        TOTAL      2,435,737        12-01-85                     *   DOC FILE
//*        TOTAL      2,204,618        12-09-84                     *   DOC FILE
//*        TOTAL      1,713,679        11-27-83                     *   DOC FILE
//*        TOTAL      1,428,194        12-19-82                     *   DOC FILE
//*        TOTAL      1,012,951        12-30-81                     *   DOC FILE
//*        TOTAL        626,341        12-07-80                     *   DOC FILE
//*        TOTAL        404,140        12-02-79                     *   DOC FILE
//*        TOTAL        251,078        12-03-78                     *   DOC FILE
//*        TOTAL        120,602        12-20-77                     *   DOC FILE
//*        TOTAL         77,558        12-26-76                     *   DOC FILE
//*        TOTAL         48,408        07-24-76                     *   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 were 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
//*    Files which are in IEBUPDTE SYSIN format may have been       *   DOC FILE
//*    accessed by OFFLOAD at one time or another and hence may     *   DOC FILE
//*    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 or          *   DOC FILE
//*       by LISTPDS.                                               *   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
//*          049                                                    *   DOC FILE
//*          052                                                    *   DOC FILE
//*          068                                                    *   DOC FILE
//*          077                                                    *   DOC FILE
//*          123                                                    *   DOC FILE
//*          243                                                    *   DOC FILE
//*          246                                                    *   DOC FILE
//*          267                                                    *   DOC FILE
//*          293                                                    *   DOC FILE
//*          295                                                    *   DOC FILE
//*          380                                                    *   DOC FILE
//*          387                                                    *   DOC FILE
//*          389                                                    *   DOC FILE
//*          401 - 403                                              *   DOC FILE
//*          406                                                    *   DOC FILE
//*          415                                                    *   DOC FILE
//*          417                                                    *   DOC FILE
//*          483 - 500                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//***SECTION JES2 QUE COMMANDS QUEUE Q                              *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*        J E S 2    Q U E    T S O    C O M M A N D S             *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*  IN THIS SECTION I WILL ATTEMPT TO DOCUMENT ALL THE TSO QUE     *   DOC FILE
//*  COMMANDS THAT ARE BURIED IN VARIOUS PLACES ON THIS TAPE        *   DOC FILE
//*                                                                 *   DOC FILE
//*   >>>>   QUEUE CAN DO SEVERAL THINGS THAT SDSF CAN'T DO.        *   DOC FILE
//*   >>>>   AMONG THESE ARE THE ABILITY TO LOOK AT JES2            *   DOC FILE
//*   >>>>   CONTROL BLOCKS, AND AT LIVE CHECKPOINT DATA.           *   DOC FILE
//*   >>>>   ALSO, THE ORIGINAL JCL CAN BE SEEN (AS WELL AS         *   DOC FILE
//*   >>>>   THE JCL THAT HAS BEEN DIGESTED BY JES2).  MVS          *   DOC FILE
//*   >>>>   CONVERTER TEXT IS ALSO DISPLAYABLE AND COPYABLE        *   DOC FILE
//*   >>>>   TO A DATASET, AS WELL AS JES2 JOURNAL DATA FOR         *   DOC FILE
//*   >>>>   A JOB.  YOU CAN ONLY SEE YOUR OWN JOBS, UNLESS         *   DOC FILE
//*   >>>>   YOU HAVE TSO OPERATOR AUTHORITY.  YOUR INSTALLATION    *   DOC FILE
//*   >>>>   CAN ALSO CODE ITS OWN USER AUTHORIZATION SCHEME.       *   DOC FILE
//*   >>>>   QUEUE IS "JOB NUMBER" ORIENTED, AS WELL AS "JOB        *   DOC FILE
//*   >>>>   NAME" ORIENTED.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*   Note:   The QUEUE program writes the JES2 Checkpoint          *   DOC FILE
//*           Dataset into memory, and currently it does so         *   DOC FILE
//*           below the 16 Meg line.  It needs to be fixed          *   DOC FILE
//*           to write the checkpoint above the line.  At           *   DOC FILE
//*           present, until someone makes such a fix, you          *   DOC FILE
//*           can't use QUEUE if your checkpoint dataset is         *   DOC FILE
//*           large--about 180 to 200 tracks is about the           *   DOC FILE
//*           limit.  We're awaiting a fix.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*           The JES2 Release 5.2.0 QUEUE should work for          *   DOC FILE
//*           higher versions of JES2, because of all the           *   DOC FILE
//*           changes to eliminate a cold start.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*  ** IF A VERSION OF QUE WILL RUN WITH JES2 2.2.0 IT WILL BE     *   DOC FILE
//*  ** NOTED THAT IS DOES - IF NOT, NO COMMENT TO THE CONTRARY     *   DOC FILE
//*                                                                 *   DOC FILE
//*  FILE  LEVEL             COMPANY AND DOCUMENTATION              *   DOC FILE
//*                                                                 *   DOC FILE
//*  390   JES2 5.1.0        JACK SCHUDEL OF NERDC.                 *   DOC FILE
//*             5.2.0                                               *   DOC FILE
//*                                                                 *   DOC FILE
//*  391   JES2 4.2.0        WILLIAM HECOX OF MARYLAND.             *   DOC FILE
//*             4.3.0        FORMERLY OF NASA/GSFC.  SIMILAR TO     *   DOC FILE
//*    (Moved to Overflow)   JACK SCHUDEL FORMAT.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*  392   JES2 4.2.0        USC - UNIVERSITY OF SOUTHERN           *   DOC FILE
//*         AND BEFORE       CALIFORNIA FROM MR LEONARD WOREN.      *   DOC FILE
//*                          CONDITIONAL ASSEMBLY FITS ALL          *   DOC FILE
//*                          MODERN VERSIONS OF JES2 THRU 4.2.0.    *   DOC FILE
//*                                                                 *   DOC FILE
//*  393   JES2 2.2.0        NERDC - UNIVERSITY OF FLORIDA, MR      *   DOC FILE
//*    (MOVED TO OVERFLOW)   JACK SCHUDEL - THIS VERSION RUNS       *   DOC FILE
//*      Tape File 093       UNDER JES2 2.2.0                       *   DOC FILE
//*                                                                 *   DOC FILE
//*  394   JES2 1.3.6        SAM GOLOB MODIFIED FROM                *   DOC FILE
//*             2.1.5        JACK SCHUDEL OF THE UNIVERSITY OF      *   DOC FILE
//*    (MOVED TO OVERFLOW)   FLORIDA - THIS VERSION RUNS UNDER      *   DOC FILE
//*      Tape File 094       JES2 1.3.6 AND JES2 2.1.5              *   DOC FILE
//*                                                                 *   DOC FILE
//*  395   JES2 3.1.1        FROM MR BILL BALMER OF OF EG & G       *   DOC FILE
//*    (MOVED TO OVERFLOW)   IDAHO WHO MODIFIED THE VERSION FROM    *   DOC FILE
//*      Tape File 095       MR JACK SCHUDEL OF THE UNIVERSITY      *   DOC FILE
//*                          OF FLORIDA - THIS VERSION RUNS         *   DOC FILE
//*                          UNDER JES2 3.1.1                       *   DOC FILE
//*                                                                 *   DOC FILE
//*  396   JES2 3.1.1        FROM MR BILL BALMER OF OF EG & G       *   DOC FILE
//*    (MOVED TO OVERFLOW)   IDAHO WHO MODIFIED THE VERSION FROM    *   DOC FILE
//*      Tape File 096       MR GUY ALBERTELLI OF B.F. GOODRICH -   *   DOC FILE
//*                          THIS VERSION RUNS UNDER JES2 3.1.1     *   DOC FILE
//*                                                                 *   DOC FILE
//*  397   JES2 1.3.6        B.F. GOODRICH - GUY ALBERTELLI OF B.F. *   DOC FILE
//*             2.1.5        GOODRICH.  THIS VERSION HAS ISPF 2.2   *   DOC FILE
//*    (MOVED TO OVERFLOW)   AND 2.3 SUPPORT.  THIS VERSION RUNS    *   DOC FILE
//*      Tape File 097       UNDER JES2 1.3.6 AND JES2 2.1.5        *   DOC FILE
//*                                                                 *   DOC FILE
//*  398   JES2 2.2.0        B.F. GOODRICH - GUY ALBERTELLI OF B.F. *   DOC FILE
//*    (MOVED TO OVERFLOW)   GOODRICH.  THIS VERSION HAS ISPF 2.2   *   DOC FILE
//*      Tape File 098       AND 2.3 SUPPORT.  THIS VERSION RUNS    *   DOC FILE
//*                          UNDER JES2 2.2.0                       *   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 CBT MVS TAPES                 *   DOC FILE
//*                                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//* YR VERS SHP  VERSION          DATE    # SHIPPED  # REC  # FILES *   DOC FILE
//*                                                                 *   DOC FILE
//* 1975         VERSION       OCT 10, 1975                         *   DOC FILE
//*             VERSION 000                                         *   DOC FILE
//*             VERSION 001                                         *   DOC FILE
//*             VERSION 002                                         *   DOC FILE
//*             VERSION 003                                         *   DOC FILE
//*             VERSION 004    NOV 18, 1975                         *   DOC FILE
//*             VERSION 005                                         *   DOC FILE
//*             VERSION 006                                         *   DOC FILE
//*             VERSION 007                                         *   DOC FILE
//*             VERSION 008                                         *   DOC FILE
//*             VERSION 009                                         *   DOC FILE
//*             VERSION 010                                         *   DOC FILE
//*             VERSION 011                                         *   DOC FILE
//*             VERSION 012                                         *   DOC FILE
//*             VERSION 013                                         *   DOC FILE
//*             VERSION 014                                         *   DOC FILE
//*             VERSION 015                                         *   DOC FILE
//*             VERSION 016                                         *   DOC FILE
//*             VERSION 017                                         *   DOC FILE
//* 020-016     VERSION 018                                         *   DOC FILE
//*                                                                 *   DOC FILE
//* 1976        VERSION 019    FEB 02, 1976   09                    *   DOC FILE
//*             VERSION 020    MAR 03, 1976   00               069  *   DOC FILE
//*             VERSION 021    MAR 04, 1976   04               069  *   DOC FILE
//*             VERSION 022    MAR 08, 1976   06               069  *   DOC FILE
//*             VERSION 023    MAR 10, 1976   04               069  *   DOC FILE
//*             VERSION 024    MAR 11, 1976   05               070  *   DOC FILE
//*             VERSION 025    MAR 16, 1976   08               072  *   DOC FILE
//*             VERSION 026    MAR 17, 1976   06               072  *   DOC FILE
//*             VERSION 027    MAR 19, 1976   10               072  *   DOC FILE
//*             VERSION 028    MAR 27, 1976   11               072  *   DOC FILE
//*             VERSION 029    APR 05, 1976   07               072  *   DOC FILE
//*             VERSION 030    APR 14, 1976   01               072  *   DOC FILE
//*             VERSION 031    APR 19, 1976   07               073  *   DOC FILE
//*             VERSION 032    APR 28, 1976   02               073  *   DOC FILE
//*             VERSION 033    APR 30, 1976   01               073  *   DOC FILE
//*             VERSION 034    MAY 11, 1976   03               078  *   DOC FILE
//*             VERSION 035    MAY 20, 1976   01               078  *   DOC FILE
//*             VERSION 036    MAY 24, 1976   07               078  *   DOC FILE
//*             VERSION 037    JUN 01, 1976   01               078  *   DOC FILE
//*             VERSION 038    JUN 02, 1976   02               078  *   DOC FILE
//*             VERSION 039    JUN 03, 1976   00               080  *   DOC FILE
//*             VERSION 040    JUN 14, 1976   11               080  *   DOC FILE
//*             VERSION 041    JUL 24, 1976   01      48,408   080  *   DOC FILE
//*             VERSION 042    AUG 06, 1976   04               080  *   DOC FILE
//*             VERSION 043    AUG 13, 1976   06               080  *   DOC FILE
//*             VERSION 044    SEP 03, 1976   22               080  *   DOC FILE
//*             VERSION 045    OCT 19, 1976   01               091  *   DOC FILE
//*             VERSION 046    OCT 22, 1976   00               108  *   DOC FILE
//*             VERSION 047    NOV 04, 1976   00               108  *   DOC FILE
//*             VERSION 048    NOV 06, 1976   00               109  *   DOC FILE
//*             VERSION 049    NOV 07, 1976   06               111  *   DOC FILE
//*             VERSION 050    NOV 28, 1976   16               115  *   DOC FILE
//*             VERSION 051    DEC 19, 1976   00               116  *   DOC FILE
//* 034-164     VERSION 052    DEC 26, 1976   02      77,558   116  *   DOC FILE
//*                                                                 *   DOC FILE
//* 1977        VERSION 053    FEB 20, 1977   07               122  *   DOC FILE
//*             VERSION 054    FEB 21, 1977   03               126  *   DOC FILE
//*             VERSION 055    FEB 23, 1977   02               126  *   DOC FILE
//*             VERSION 056    APR 03, 1977   33               136  *   DOC FILE
//*             VERSION 057    APR 17, 1977   10               139  *   DOC FILE
//*             VERSION 058    APR 19, 1977   00               139  *   DOC FILE
//*             VERSION 059    MAY 01, 1977   09      87,889   140  *   DOC FILE
//*             VERSION 060    MAY 03, 1977   12               141  *   DOC FILE
//*             VERSION 061    JUN 05, 1977   10               145  *   DOC FILE
//*             VERSION 062    JUN 15, 1977   02               147  *   DOC FILE
//*             VERSION 063    JUN 20, 1977   03               147  *   DOC FILE
//*             VERSION 064    JUN 26, 1977   00               147  *   DOC FILE
//*             VERSION 065    JUN 27, 1977   03               147  *   DOC FILE
//*             VERSION 066    JUN 28, 1977   00               147  *   DOC FILE
//*             VERSION 067    JUL 05, 1977   06               154  *   DOC FILE
//*             VERSION 068    JUL 24, 1977   08     106,689   157  *   DOC FILE
//*             VERSION 069    AUG 02, 1977   00               157  *   DOC FILE
//*             VERSION 070    SEP 08, 1977   00               174  *   DOC FILE
//*             VERSION 071    SEP 11, 1977   00               174  *   DOC FILE
//*             VERSION 072    SEP 14, 1977  114     110,718   174  *   DOC FILE
//*             VERSION 073    SEP 21, 1977   01     110,733   174  *   DOC FILE
//*             VERSION 074    DEC 01, 1977   11     111,452   177  *   DOC FILE
//*             VERSION 075    DEC 14, 1977   08     114,778   180  *   DOC FILE
//* 024-243     VERSION 076    DEC 20, 1977   01     120,602   185  *   DOC FILE
//*                                                                 *   DOC FILE
//* 1978        VERSION 077    JAN 01, 1978   00               189  *   DOC FILE
//*             VERSION 078    JAN 04, 1978   09     126,806   190  *   DOC FILE
//*             VERSION 079    JAN 05, 1978   00     126,821   190  *   DOC FILE
//*             VERSION 080    JAN 15, 1978   10     129,065   193  *   DOC FILE
//*             VERSION 081    FEB 01, 1978   03     131,599   197  *   DOC FILE
//*             VERSION 081+   FEB 15, 1978   16     138,782   197  *   DOC FILE
//*             VERSION 082    FEB 20, 1978   07     139,248   200  *   DOC FILE
//*             VERSION 083    FEB 25, 1978   00     139,248   201  *   DOC FILE
//*             VERSION 084    MAR 16, 1978   00     177,340   211  *   DOC FILE
//*             VERSION 085    APR 01, 1978   96     177,351   211  *   DOC FILE
//*             VERSION 086    MAY 21, 1978   00     197,635   224  *   DOC FILE
//*             VERSION 087    MAY 23, 1978   07     200,921   227  *   DOC FILE
//*             VERSION 088    MAY 24, 1978   00     201,347   227  *   DOC FILE
//*             VERSION 089    JUN 04, 1978   00     201,444   228  *   DOC FILE
//*             VERSION 090    JUN 05, 1978   11     202,412   228  *   DOC FILE
//*             VERSION 091    JUN 18, 1978   05     202,471   228  *   DOC FILE
//*             VERSION 092    JUL 23, 1978   00     212,499   234  *   DOC FILE
//*             VERSION 093    JUL 24, 1978   00     213,577   235  *   DOC FILE
//*             VERSION 094    JUL 25, 1978   00     213,589   235  *   DOC FILE
//*             VERSION 095    JUL 26, 1978   03     213,305   235  *   DOC FILE
//*             VERSION 096    JUL 30, 1978   03     213,423   236  *   DOC FILE
//*             VERSION 097    AUG 02, 1978   01     219,952   238  *   DOC FILE
//*             VERSION 098    AUG 05, 1978   00     220,691   239  *   DOC FILE
//*             VERSION 099    AUG 10, 1978   01     220,712   239  *   DOC FILE
//*             VERSION 100    AUG 13, 1978   00     289,895   245  *   DOC FILE
//*             VERSION 101    AUG 14, 1978   02     225,576   245  *   DOC FILE
//*             VERSION 101+   AUG 20, 1978   04     225,576   245  *   DOC FILE
//*             VERSION 102    AUG 27, 1978   13     245,544   256  *   DOC FILE
//*             VERSION 103    SEP 10, 1978   29     250,372   258  *   DOC FILE
//*             VERSION 104    OCT 01, 1978   19     254,878   259  *   DOC FILE
//*             VERSION 105    OCT 15, 1978   04     257,955   260  *   DOC FILE
//*             VERSION 106    OCT 24, 1978   04     258,350   262  *   DOC FILE
//*             VERSION 107    OCT 25, 1978   08     258,356   262  *   DOC FILE
//*             VERSION 108    NOV 05, 1978   17     260,405   264  *   DOC FILE
//* 035-283     VERSION 109    DEC 03, 1978   11     251,078   265  *   DOC FILE
//*                                                                 *   DOC FILE
//* 1979        VERSION 110    JAN 07, 1979   14     247,257   265  *   DOC FILE
//*             VERSION 110+   FEB 01, 1979   03     257,579   266  *   DOC FILE
//*             VERSION 111    FEB 08, 1979   00     254,354   269  *   DOC FILE
//*             VERSION 112    FEB 11, 1979   07     2XX,XXX   269  *   DOC FILE
//*             VERSION 113    FEB 25, 1979   05     255,461   275  *   DOC FILE
//*             VERSION 114    MAR 07, 1979   02     260,163   277  *   DOC FILE
//*             VERSION 115    MAR 11, 1979   17     260,205   277  *   DOC FILE
//*             VERSION 116    APR 01, 1979   00     310,146   277  *   DOC FILE
//*             VERSION 117    APR 15, 1979   13     310,146   277  *   DOC FILE
//*             VERSION 118    APR 16, 1979   12     316,975   277  *   DOC FILE
//*             VERSION 119    MAY 01, 1979   03     331,777   277  *   DOC FILE
//*             VERSION 120    MAY 21, 1979   41     332,310   277  *   DOC FILE
//*             VERSION 121    JUN 19, 1979   05     353,454   277  *   DOC FILE
//*             VERSION 122    JUN 24, 1979   00     359,599   277  *   DOC FILE
//*             VERSION 123    JUL 01, 1979   09     364,884   277  *   DOC FILE
//*             VERSION 124    JUL 31, 1979   17     367,309   277  *   DOC FILE
//*             VERSION 125    SEP 18, 1979   16     389,071   277  *   DOC FILE
//*             VERSION 126    SEP 24, 1979   00     389,282   277  *   DOC FILE
//*             VERSION 127    SEP 25, 1979   00     389,323   277  *   DOC FILE
//*             VERSION 128    OCT 01, 1979   17     391,971   277  *   DOC FILE
//*             VERSION 129    OCT 14, 1979   41     395,790   278  *   DOC FILE
//*             VERSION 130    NOV 22, 1979   00     396,775   278  *   DOC FILE
//*             VERSION 131    DEC 02, 1979   11     404,140   278  *   DOC FILE
//* 024-259     VERSION 132    DEC 16, 1979   26     406,153   278  *   DOC FILE
//*                                                                 *   DOC FILE
//* 1980        VERSION 133    JAN 02, 1980   13     408,340   278  *   DOC FILE
//*             VERSION 134    JAN 20, 1980   09     408,779   278  *   DOC FILE
//*             VERSION 135    JAN 27, 1980   00     413,932   278  *   DOC FILE
//*             VERSION 136    FEB 03, 1980   19     415,597   278  *   DOC FILE
//*             VERSION 137    FEB 10, 1980   07     415,957   278  *   DOC FILE
//*             VERSION 138    MAR 09, 1980   21     415,988   278  *   DOC FILE
//*             VERSION 139    MAR 20, 1980   47     424,204   278  *   DOC FILE
//*             VERSION 140    APR 07, 1980   03     431,674   278  *   DOC FILE
//*             VERSION 141    APR 10, 1980   36     444,988   278  *   DOC FILE
//*             VERSION 142    MAY 07, 1980   39     483,649   278  *   DOC FILE
//*             VERSION 143    MAY 29, 1980   14     487,078   278  *   DOC FILE
//*             VERSION 144    JUN 16, 1980   12     490,679   278  *   DOC FILE
//*             VERSION 145    JUN 17, 1980   04     500,432   278  *   DOC FILE
//*             VERSION 146    JUN 24, 1980   05     548,731   278  *   DOC FILE
//*             VERSION 147    JUN 29, 1980   33     569,660   278  *   DOC FILE
//*             VERSION 148    JUL 20, 1980   00     569,582   278  *   DOC FILE
//*             VERSION 149    AUG 03, 1980   16     569,670   278  *   DOC FILE
//*             VERSION 150    AUG 24, 1980   07     578,247   278  *   DOC FILE
//*             VERSION 151    AUG 27, 1980   00     584,275   278  *   DOC FILE
//*             VERSION 152    AUG 28, 1980   05     584,447   278  *   DOC FILE
//*             VERSION 153    SEP 01, 1980   02     589,685   278  *   DOC FILE
//*             VERSION 154    SEP 02, 1980   06     590,756   278  *   DOC FILE
//*             VERSION 155    SEP 14, 1980   37     604,309   291  *   DOC FILE
//*             VERSION 156    SEP 28, 1980   19     605,574   293  *   DOC FILE
//*             VERSION 157    OCT 12, 1980   07     615,939   293  *   DOC FILE
//*             VERSION 158    OCT 21, 1980   13     617,928   294  *   DOC FILE
//*             VERSION 158+   OCT 26, 1980   07     617,928   294  *   DOC FILE
//*             VERSION 159    OCT 28, 1980   11     618,562   295  *   DOC FILE
//*             VERSION 160    NOV 09, 1980   07     625,595   295  *   DOC FILE
//*             VERSION 161    NOV 26, 1980   21     625,608   295  *   DOC FILE
//*             VERSION 162    DEC 07, 1980   03     626,341   295  *   DOC FILE
//*             VERSION 163    DEC 14, 1980   13     628,213   296  *   DOC FILE
//*             VERSION 164    DEC 28, 1980   03     630,233   297  *   DOC FILE
//* 034-439     VERSION 165    DEC 30, 1980   00     630,242   297  *   DOC FILE
//*                                                                 *   DOC FILE
//* 1981  03    VERSION 166    JAN 04, 1981   03     631,602   298  *   DOC FILE
//*       15    VERSION 167    JAN 18, 1981   12     631,602   298  *   DOC FILE
//*       23    VERSION 168    FEB 02, 1981   08     631,639   299  *   DOC FILE
//*       53    VERSION 169    FEB 15, 1981   30     685,902   302  *   DOC FILE
//*       99    VERSION 170    MAR 22, 1981   46     689,916   305  *   DOC FILE
//*      115    VERSION 171    APR 12, 1981   16     716,898   306  *   DOC FILE
//*      153    VERSION 171+   APR 15, 1981   38     733,464   308  *   DOC FILE
//*      185    VERSION 172    MAY 24, 1981   32     789,586   312  *   DOC FILE
//*      198    VERSION 173    JUN 21, 1981   13     915,990   314  *   DOC FILE
//*      209    VERSION 174    JUN 26, 1981   11     916,656   315  *   DOC FILE
//*      212    VERSION 175    JUL 19, 1981   03     916,812   315  *   DOC FILE
//*      222    VERSION 175+   AUG 05, 1981   10     916,812   317  *   DOC FILE
//*      225    VERSION 176    AUG 11, 1981   03     918,405   315  *   DOC FILE
//*      241    VERSION 177    AUG 30, 1981   16     928,767   315  *   DOC FILE
//*      258    VERSION 178    SEP 06, 1981   17     924,835   315  *   DOC FILE
//*      271    VERSION 179    SEP 20, 1981   13     926,799   315  *   DOC FILE
//*      297    VERSION 180    SEP 27, 1981   26     964,027   316  *   DOC FILE
//*      332    VERSION 181    OCT 18, 1981   35     969,358   316  *   DOC FILE
//* ROG  364    VERSION 182    NOV 22, 1981   32     995,358   323  *   DOC FILE
//*      364    VERSION 183    DEC 06, 1981   19   1,002,404   325  *   DOC FILE
//*      383    VERSION 184    DEC 30, 1981   00   1,012,951   329  *   DOC FILE
//*  021-383                                                        *   DOC FILE
//*                                                                 *   DOC FILE
//* 1982  07    VERSION 185    JAN 03, 1982   07   1,030,288   331  *   DOC FILE
//*       23    VERSION 186    JAN 10, 1982   16   1,030,314   331  *   DOC FILE
//*       38    VERSION 187    JAN 23, 1982   15   1,034,508   334  *   DOC FILE
//* ROG   65    VERSION 188    JAN 31, 1982   27   1,040,740   337  *   DOC FILE
//*       85    VERSION 189    FEB 21, 1982   20   1,044,036   339  *   DOC FILE
//*      173    VERSION 190    APR 04, 1982   88   1,141,894   348  *   DOC FILE
//*      247    VERSION 191    APR 30, 1982   74   1,169,738   352  *   DOC FILE
//*      267    VERSION 192    JUN 14, 1982   20   1,185,004   352  *   DOC FILE
//*      283    VERSION 193    JUN 20, 1982   16   1,183,435   352  *   DOC FILE
//*      312    VERSION 194    JUN 27, 1982   29   1,192,797   352  *   DOC FILE
//*      317    VERSION 195    JUL 11, 1982   05   1,191,719   352  *   DOC FILE
//*      370    VERSION 196    JUL 18, 1982   53   1,205,417   352  *   DOC FILE
//*      392    VERSION 197    SEP 05, 1982   22   1,266,168   352  *   DOC FILE
//*      402    VERSION 198    SEP 12, 1982   10   1,262,387   352  *   DOC FILE
//* ROG  426    VERSION 199    SEP 19, 1982   24   1,377,023   353  *   DOC FILE
//*      441    VERSION 200    SEP 26, 1982   15   1,378,146   353  *   DOC FILE
//*      454    VERSION 201    OCT 03, 1982   13   1,XXX,XXX   353  *   DOC FILE
//*      499    VERSION 202    OCT 06, 1982   45   1,XXX,XXX   353  *   DOC FILE
//*      508    VERSION 203    NOV 07, 1982   09   1,405,442   353  *   DOC FILE
//*      527    VERSION 204    NOV 14, 1982   19   1,414,770   353  *   DOC FILE
//*      537    VERSION 205    NOV 21, 1982   10   1,414,905   353  *   DOC FILE
//*      551    VERSION 206    NOV 28, 1982   14   1,419,417   353  *   DOC FILE
//*      579    VERSION 207    DEC 05, 1982   28   1,424,231   353  *   DOC FILE
//*      596    VERSION 208    DEC 19, 1982   17   1,428,194   353  *   DOC FILE
//*  024-596                                                        *   DOC FILE
//*                                                                 *   DOC FILE
//* 1983 28     VERSION 209    JAN 02, 1983  28    1,429,259   353  *   DOC FILE
//*      71     VERSION 210    JAN 23, 1983  43    1,452,562   353  *   DOC FILE
//*     101     VERSION 211    FEB 27, 1983  30    1,470,432   358  *   DOC FILE
//* ROG 115     VERSION 212    MAR 14, 1983  14    1,473,032   358  *   DOC FILE
//*     179     VERSION 213    MAR 20, 1983  64    1,484,579   361  *   DOC FILE
//*     209     VERSION 214    APR 17, 1983  30    1,513,139   367  *   DOC FILE
//*     254     VERSION 215    MAY 08, 1983  45    1,517,436   371  *   DOC FILE
//*     295     VERSION 216    JUN 12, 1983  41    1,537,647   378  *   DOC FILE
//*     326     VERSION 217    JUL 17, 1983  31    1,538,287   380  *   DOC FILE
//*     337     VERSION 218    AUG 07, 1983  11    1,573,518   383  *   DOC FILE
//*     401     VERSION 219    AUG 28, 1983  64    1,661,704   400  *   DOC FILE
//*     450     VERSION 220    SEP 25, 1983  49    1,672,200   400  *   DOC FILE
//*     466     VERSION 221    OCT 23, 1983  16    1,672,200   400  *   DOC FILE
//*     476     VERSION 222    OCT 30, 1983  10    1,686,328   400  *   DOC FILE
//*     492     VERSION 222+   NOV 09, 1983  16    1,686,328   400  *   DOC FILE
//*     532     VERSION 223    NOV 27, 1983  45    1,713,679   405  *   DOC FILE
//* 016-532                                                         *   DOC FILE
//*                                                                 *   DOC FILE
//* 1984 19 ROG VERSION 223    NOV 27, 1983  19    1,713,679   405  *   DOC FILE
//*      55     VERSION 224    JAN 15, 1984  36    1,752,647   418  *   DOC FILE
//*      70     VERSION 225    FEB 05, 1984  15    1,757,472   418  *   DOC FILE
//*      90     VERSION 226    FEB 12, 1984  20    1,768,088   418  *   DOC FILE
//*      98     VERSION 227    FEB 26, 1984  08    1,770,664   418  *   DOC FILE
//*     135     VERSION 228    MAR 18, 1984  37    1,758,483   418  *   DOC FILE
//*     183     VERSION 229    MAR 25, 1984  48    1,773,297   418  *   DOC FILE
//*     221     VERSION 230    APR 15, 1984  38    1,783,037   418  *   DOC FILE
//*     268     VERSION 230+   MAY 15, 1984  47    1,783,037   419  *   DOC FILE
//*     282     VERSION 231    MAY 28, 1984  14    1,793,166   418  *   DOC FILE
//* SAM 346     VERSION 232    JUN 17, 1984  60    1,831,383   418  *   DOC FILE
//*     367     VERSION 233    AUG 22, 1984  21    1,908,542   418  *   DOC FILE
//*     407     VERSION 234    AUG 28, 1984  40    1,913,447   418  *   DOC FILE
//*     457     VERSION 235    SEP 16, 1984  50    1,943,866   429  *   DOC FILE
//*     471     VERSION 236    OCT 21, 1984  14    1,940,280   429  *   DOC FILE
//*     483     VERSION 237    OCT 28, 1984  12    1,940,602   429  *   DOC FILE
//*     500     VERSION 238    NOV 04, 1984  17    1,940,592   429  *   DOC FILE
//*     531     VERSION 239    NOV 18, 1984  31    1,941,132   429  *   DOC FILE
//*     557     VERSION 240    DEC 09, 1984  26    2,204,618   460  *   DOC FILE
//* 018-557                                                         *   DOC FILE
//*                                                                 *   DOC FILE
//* 1985 26     VERSION 241    JAN 01, 1985  26    2,204.618   460  *   DOC FILE
//* SAM  58     VERSION 242    FEB 06, 1985  32    2,292,603   460  *   DOC FILE
//*      71     VERSION 243    FEB 17, 1985  13    2,298,705   460  *   DOC FILE
//*     108     VERSION 244    MAR 04, 1985  37    2,310,454   460  *   DOC FILE
//*     133     VERSION 245    MAR 17, 1985  25    2,332,123   460  *   DOC FILE
//*     201     VERSION 246    MAR 24, 1985  68    2,338,406   460  *   DOC FILE
//*     275     VERSION 247    APR 21, 1985  74    2,338,839   460  *   DOC FILE
//*     317     VERSION 248    JUN 11, 1985  42    2,338,879   460  *   DOC FILE
//*     366     VERSION 249    JUL 05, 1985  49    2,362,266   460  *   DOC FILE
//*     409     VERSION 250    AUG 29, 1985  43    2,350,891   460  *   DOC FILE
//* SAM 454     VERSION 251    SEP 17, 1985  45    2,379,453   460  *   DOC FILE
//*     493     VERSION 252    OCT 15, 1985  39    2,385,368   460  *   DOC FILE
//*     519     VERSION 253    OCT 29, 1985  26    2,402,333   460  *   DOC FILE
//*     542     VERSION 254    NOV 18, 1985  23    2,407,457   460  *   DOC FILE
//*     565     VERSION 255    DEC 01, 1985  23    2,435,737   460  *   DOC FILE
//* 015-565                                                         *   DOC FILE
//*                                                                 *   DOC FILE
//* 1986 39     VERSION 256    JAN 01, 1986  39    2,436,108   460  *   DOC FILE
//*      50     VERSION 257    JAN 26. 1986  11    2,457,081   460  *   DOC FILE
//*     118     VERSION 258    FEB 03, 1986  68    2,459,559   460  *   DOC FILE
//*     250     VERSION 259    APR 01, 1986 132    2,542,904   470  *   DOC FILE
//*     293     VERSION 260    MAY 29, 1986  43    2,571,500   470  *   DOC FILE
//* SAM 354     VERSION 261    JUN 24, 1986  61    2,358,282   470  *   DOC FILE
//*     461     VERSION 262    AUG 06, 1986 117    2,364,968   470  *   DOC FILE
//*     499     VERSION 263    OCT 10, 1986  38    2,432,395   470  *   DOC FILE
//*     561     VERSION 264    OCT 26, 1986  62    2,460,154   470  *   DOC FILE
//*     589     VERSION 265    NOV 23, 1986  28    2,553,661   471  *   DOC FILE
//*     626     VERSION 266    DEC 09, 1986  37    2,561,579   471  *   DOC FILE
//* 011-626                                                         *   DOC FILE
//*                                                                 *   DOC FILE
//* 1987 51     VERSION 267    JAN 01, 1987  51    2,573,281   471  *   DOC FILE
//* SAM 147     VERSION 268    FEB 01, 1987  96    2,595,165   471  *   DOC FILE
//*     199     VERSION 269    MAR 31, 1987  59    2,582,135   471  *   DOC FILE
//*     214     VERSION 270    APR 12, 1987  15    2,590,111   471  *   DOC FILE
//*     247     VERSION 271    APR 16, 1987  33    2,610,137   471  *   DOC FILE
//*     372     VERSION 272    MAY 01, 1987 125    2,621,626   471  *   DOC FILE
//*     000     VERSION 273    MAY 24, 1987  00    2,446,428   471  *   DOC FILE
//*     492     VERSION 274    AUG 04, 1987  85    2,058,134   471  *   DOC FILE
//*     527     VERSION 275    SEP 20, 1987  35    2.077,497   471  *   DOC FILE
//*     554     VERSION 276    OCT 04, 1987  27    2,105,945   471  *   DOC FILE
//*     566     VERSION 277    OCT 18, 1987  12    2,106,463   471  *   DOC FILE
//*     658     VERSION 278    OCT 22, 1987  92    2,107,988   471  *   DOC FILE
//*     739     VERSION 279    NOV 30, 1987  81    2,170,076   471  *   DOC FILE
//*     795     VERSION 280    DEC 15, 1987  56    2,171,666   471  *   DOC FILE
//* 014-795                                                         *   DOC FILE
//*                                                                 *   DOC FILE
//* 1988 47     VERSION 281    JAN 01, 1988  47    2,181,196   471  *   DOC FILE
//*      89     VERSION 282    JAN 24, 1988  42    2,192,060   471  *   DOC FILE
//*     133     VERSION 283    FEB 03, 1988  44    2,195,340   471  *   DOC FILE
//* MARY133     VERSION 284    FEB 07, 1988  00    2,195,340   471  *   DOC FILE
//*     136     VERSION 285    MAR 07, 1988  03    2,202,012   471  *   DOC FILE
//*     173     VERSION 286    MAR 13, 1988  37    2.202,722   471  *   DOC FILE
//*     200     VERSION 287    MAR 20, 1988  27    2,205,432   471  *   DOC FILE
//*     263     VERSION 288    MAR 27, 1988  63    2,193,849   471  *   DOC FILE
//*     296     VERSION 289    APR 17, 1988  33    2,079,603   472  *   DOC FILE
//*     329     VERSION 290    MAY 01, 1988  33    2,079,923   472  *   DOC FILE
//*     403     VERSION 291    MAY 22, 1988  74    2,085,595   472  *   DOC FILE
//*     467     VERSION 292    JUN 19, 1988  64    2,107,298   472  *   DOC FILE
//*     518     VERSION 293    JUL 28, 1988  51    2,076,706   472  *   DOC FILE
//*     535     VERSION 294    SEP 14, 1988  17    2,089,591   472  *   DOC FILE
//*     592     VERSION 295    SEP 27, 1988  57    2,089,178   472  *   DOC FILE
//*     650     VERSION 296    NOV 01, 1988  58    2,094,576   472  *   DOC FILE
//* 017-679     VERSION 297    DEC 12, 1988  29    2,123,762   472  *   DOC FILE
//*                                              "RECORD" COUNT     *   DOC FILE
//* 1989  0     VERSION 298    JAN 03, 1989   00   2,142,450   472  *   DOC FILE
//*     023     VERSION 299    JAN 04, 1989   23   2,142,567   472  *   DOC FILE
//*     043     VERSION 300    JAN 19, 1989   20   2,162,101   472  *   DOC FILE
//*     067     VERSION 301    JAN 24, 1989   24   2,162,101   472  *   DOC FILE
//*     137     VERSION 302    FEB 08, 1989   70   2,283,368   472  *   DOC FILE
//*     179     VERSION 303    MAR 05, 1989   42   2,294,702   472  *   DOC FILE
//*     239     VERSION 304    APR 03, 1989   60   2,314,552   472  *   DOC FILE
//*     275     VERSION 305    MAY 05, 1989   36   2,319,867   472  *   DOC FILE
//*     285     VERSION 306    MAY 25, 1989   10   2,319,867   472  *   DOC FILE
//*     330     VERSION 307    JUN 04, 1989   45   2,323,869   472  *   DOC FILE
//*     366     VERSION 308    JUN 29, 1989   36   2,328,969   472  *   DOC FILE
//*     572     VERSION 309    JUL 21, 1989  206   2,365,703   472  *   DOC FILE
//*     632     VERSION 310    NOV 14, 1989   60   2,466,496   472  *   DOC FILE
//*     659     VERSION 311    DEC 07, 1989   27   2,494,554   472  *   DOC FILE
//*     682     VERSION 312    DEC 14, 1989   23   2,494,554   472  *   DOC FILE
//* 015-682                                                         *   DOC FILE
//*                                              "RECORD" COUNT     *   DOC FILE
//* 1990  8     VERSION 312    DEC 14, 1989   23   2,494,554   472  *   DOC FILE
//*      48     VERSION 313    JAN 16, 1990   40   2,495,416   472  *   DOC FILE
//*      78     VERSION 314    FEB 21, 1990   30   2,502,551   472  *   DOC FILE
//*      78     VERSION 315    APR 04, 1990   00   2,524,779   472  *   DOC FILE
//*      93     VERSION 316    APR 09, 1990   15   2,524,779   472  *   DOC FILE
//*     102     VERSION 317    APR 27, 1990   11   2,534,210   472  *   DOC FILE
//*     139     VERSION 318    MAY 11, 1990   37   2,535,390   472  *   DOC FILE
//*     153     VERSION 319    JUN 26, 1990   14   2,535,446   472  *   DOC FILE
//*     164     VERSION 320    AUG 13, 1990   11   2,543,751   472  *   DOC FILE
//*     228     VERSION 321    SEP 18, 1990   64   2,557,060   472  *   DOC FILE
//*                                              BYTE COUNT         *   DOC FILE
//*                                         (MEASURED BY TAPESCAN)  *   DOC FILE
//*  >>>    -  EARLIER FOOTAGES AND BYTE COUNTS CAN BE FOUND  -     *   DOC FILE
//*  >>>    -     ON FILE 008 FOR MOST PREVIOUS VERSIONS.     -     *   DOC FILE
//*     FINAL                                                       *   DOC FILE
//*     2080.2  VERSION 321    SEP 18, 1990      129,834,456   472  *   DOC FILE
//*-- ARNIE CASINGHINO TILL HERE ---        6989                    *   DOC FILE
//*-- SAM GOLOB STARTS HERE --------                                *   DOC FILE
//*                                                                 *   DOC FILE
//*--   FOOTAGES (AT 6250 BPI)                   BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//* 1990 2085.7  VERSION 322    OCT 24, 1990  -  130,263,683   472  *   DOC FILE
//*      2090.8  VERSION 323    NOV 08, 1990  -  130,569,554   472  *   DOC FILE
//*      2103.7  VERSION 324    NOV 28, 1990  -  131,461,956   472  *   DOC FILE
//*      2117.3  VERSION 325    DEC 20, 1990  -  132,122,254   472  *   DOC FILE
//*  013 - TOTAL VERSIONS FOR 1990                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//* 1991 2125.2  VERSION 326    MAR 25, 1991  -  132,592,214   472  *   DOC FILE
//*      2170.3  VERSION 327    MAY 16, 1991  -  135,629,720   472  *   DOC FILE
//*  002 - TOTAL VERSIONS FOR 1991                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//* 1992 2238.8  VERSION 328    FEB 10, 1992  -  139,901,890   472  *   DOC FILE
//*      2320.0  VERSION 329    MAR 30, 1992  -  145,040,068   472  *   DOC FILE
//*      2328.1  VERSION 330    JUL 15, 1992  -  145,632,517   472  *   DOC FILE
//*      2328.1  VERSION 331    JUL 17, 1992  -  145,641,541   472  *   DOC FILE
//*      2333.2  VERSION 332    AUG 02, 1992  -  146,025,683   472  *   DOC FILE
//*      2302.6  VERSION 333    AUG 16, 1992  -  143,849,698   472  *   DOC FILE
//*      2318.4  VERSION 334    AUG 26, 1992  -  144,731,826   472  *   DOC FILE
//*      2316.5  VERSION 335    AUG 28, 1992  -  144,626,323   472  *   DOC FILE
//*      2337.1  VERSION 336    SEP 10, 1992  -  145,852,502   472  *   DOC FILE
//*      2352.5  VERSION 337    OCT 28, 1992  -  146,899,479   472  *   DOC FILE
//*  010 - TOTAL VERSIONS FOR 1992                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//* 1993 2374.6  VERSION 338    JAN 10, 1993  -  148,599,397   472  *   DOC FILE
//*      2378.3  VERSION 339    JAN 28, 1993  -  148,843,840   472  *   DOC FILE
//*      2386.6  VERSION 340    FEB 15, 1993  -  149,430,880   472  *   DOC FILE
//*      2395.3  VERSION 341    FEB 19, 1993  -  149,859,485   472  *   DOC FILE
//*      2417.4  VERSION 342    MAR 25, 1993  -  151,331,072   472  *   DOC FILE
//*      2421.8  VERSION 343    JUN 11, 1993  -  151,630,083   472  *   DOC FILE
//*      2421.8  VERSION 344    JUN 15, 1993  -  151,638,411   472  *   DOC FILE
//*      2453.2  VERSION 345    JUL 02, 1993  -  153,637,165   472  *   DOC FILE
//*      2451.0  VERSION 346    JUL 22, 1993  -  153,527,875   472  *   DOC FILE
//*      2466.0  VERSION 347    AUG 02, 1993  -  154,584,722   472  *   DOC FILE
//*      2467.0  VERSION 348    AUG 12, 1993  -  154,604,963   472  *   DOC FILE
//*      2476.6  VERSION 349    SEP 02, 1993  -  155,290,235   472  *   DOC FILE
//*      2473.4  VERSION 350    SEP 03, 1993  -  155,075,730   472  *   DOC FILE
//*      2483.6  VERSION 351    SEP 24, 1993  -  155,714,578   472  *   DOC FILE
//*      2486.1  VERSION 352    SEP 28, 1993  -  155,870,887   472  *   DOC FILE
//*      2491.5  VERSION 353    OCT 22, 1993  -  156,231,657   472  *   DOC FILE
//*      2493.1  VERSION 354    NOV 12, 1993  -  156,331,436   472  *   DOC FILE
//*      2501.4  VERSION 355    NOV 24, 1993  -  156,927,827   472  *   DOC FILE
//*      2505.1  VERSION 356    DEC 03, 1993  -  157,188,346   472  *   DOC FILE
//*      2542.1  VERSION 357    DEC 28, 1993  -  159,732,590   472  *   DOC FILE
//*  020 - TOTAL VERSIONS FOR 1993                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//* 1994 2542.6  VERSION 358    JAN 14, 1994  -  159,768,296   472  *   DOC FILE
//*      2543.9  VERSION 359    JAN 20, 1994  -  159,852,368   472  *   DOC FILE
//*      2564.6  VERSION 360    JAN 28, 1994  -  161,202,104   472  *   DOC FILE
//*      2564.6  VERSION 361    JAN 30, 1994  -  161,208,024   472  *   DOC FILE
//*      2567.8  VERSION 362    FEB 02, 1994  -  161,342,777   472  *   DOC FILE
//*      2568.3  VERSION 363    FEB 03, 1994  -  161,353,795   472  *   DOC FILE
//*      2673.5  VERSION 364    FEB 18, 1994  -  167,331,743   472  *   DOC FILE
//*      2674.0  VERSION 365    MAR 02, 1994  -  167,344,575   472  *   DOC FILE
//*      2674.0  VERSION 366    MAR 04, 1994  -  167,353,267   472  *   DOC FILE
//*      2677.4  VERSION 367    MAR 22, 1994  -  167,521,501   472  *   DOC FILE
//*      2713.2  VERSION 368    APR 08, 1994  -  168,488,517   472  *   DOC FILE
//*      2708.6  VERSION 369    APR 17, 1994  -  168,513,650   472  *   DOC FILE
//*      2723.7  VERSION 370    APR 22, 1994  -  168,967,873   472  *   DOC FILE
//*      2853.9  VERSION 371    APR 28, 1994  -  178,170,736   472  *   DOC FILE
//*      2858.5  VERSION 372    MAY 06, 1994  -  178,486,941   472  *   DOC FILE
//*      2858.5  VERSION 373    MAY 13, 1994  -  178,507,748   472  *   DOC FILE
//*      2878.8  VERSION 374    MAY 19, 1994  -  179,943,740   472  *   DOC FILE
//*      2879.3  VERSION 375    MAY 24, 1994  -  179,970,357   472  *   DOC FILE
//*      2880.2  VERSION 376    JUL 14, 1994  -  180,030,262   472  *   DOC FILE
//*      2881.5  VERSION 377    JUL 18, 1994  -  180,080,069   472  *   DOC FILE
//*      2882.0  VERSION 378    JUL 29, 1994  -  180,128,233   472  *   DOC FILE
//*      2882.3  VERSION 379    JUL 29, 1994  -  180,129,597   472  *   DOC FILE
//*      2886.5  VERSION 380    AUG 16, 1994  -  180,346,116   472  *   DOC FILE
//*      2887.4  VERSION 381    AUG 19, 1994  -  180,395,184   472  *   DOC FILE
//*      2889.9  VERSION 382    AUG 31, 1994  -  180,577,426   472  *   DOC FILE
//*      2890.4  VERSION 383    SEP 16, 1994  -  180,602,939   472  *   DOC FILE
//*      2911.4  VERSION 384    OCT 13, 1994  -  181,650,858   472  *   DOC FILE
//*      2914.2  VERSION 385    OCT 25, 1994  -  181,810,924   472  *   DOC FILE
//*      2917.1  VERSION 386    NOV 13, 1994  -  181,906,201   472  *   DOC FILE
//*      2917.6  VERSION 387    NOV 21, 1994  -  181,920,923   472  *   DOC FILE
//*      2918.2  VERSION 388    NOV 29, 1994  -  181,930,655   472  *   DOC FILE
//*      2918.2  VERSION 389    DEC 22, 1994  -  181,948,207   472  *   DOC FILE
//*      3002.3  VERSION 390    DEC 29, 1994  -  187,808,815   472  *   DOC FILE
//*  033 - TOTAL VERSIONS FOR 1994                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//* 1995 3003.7  VERSION 391    JAN 11, 1995  -  187,902,305   472  *   DOC FILE
//*      3004.4  VERSION 392    FEB 08, 1995  -  187,936,168   472  *   DOC FILE
//*      3009.5  VERSION 393    FEB 28, 1995  -  188,330,486   472  *   DOC FILE
//*      3008.1  VERSION 394    MAR 22, 1995  -  188,391,242   472  *   DOC FILE
//*      3009.0  VERSION 395    MAR 29, 1995  -  188,477,565   472  *   DOC FILE
//*      3009.3  VERSION 396    APR 06, 1995  -  188,477,839   472  *   DOC FILE
//*      3009.3  VERSION 397    APR 11, 1995  -  188,477,999   472  *   DOC FILE
//*      3013.0  VERSION 398    APR 12, 1995  -  188,708,466   472  *   DOC FILE
//*      3014.8  VERSION 399    APR 17, 1995  -  188,810,752   472  *   DOC FILE
//*      3037.4  VERSION 400    JUL 26, 1995  -  190,300,322   472  *   DOC FILE
//*      3042.7  VERSION 401    SEP 13, 1995  -  190,684,837   472  *   DOC FILE
//*      3059.8  VERSION 402    NOV 27, 1995  -  191,869,609   472  *   DOC FILE
//*  012 - TOTAL VERSIONS FOR 1995                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//*      3113.9  VERSION 403    JAN 05, 1996  -  195,616,827   472  *   DOC FILE
//*      3158.3  VERSION 404    MAR 11, 1996  -  198,044,338   472  *   DOC FILE
//*      2787.7  VERSION 405    MAY 28, 1996  -  176,575,780   472  *   DOC FILE
//*      2790.3  VERSION 406    JUN 27, 1996  -  176,735,688   472  *   DOC FILE
//*      2796.4  VERSION 407    AUG 19, 1996  -  177,111,971   472  *   DOC FILE
//*      2798.1  VERSION 408    AUG 27, 1996  -  177,195,431   472  *   DOC FILE
//*      2800.4  VERSION 409    SEP 06, 1996  -  177,343,024   472  *   DOC FILE
//*      2803.1  VERSION 410    NOV 21, 1996  -  177,532,096   472  *   DOC FILE
//*      2807.2  VERSION 411    DEC 11, 1996  -  177,790,281   472  *   DOC FILE
//*      2881.9  VERSION 412    DEC 26, 1996  -  181,919,463   472  *   DOC FILE
//*      2884.1  VERSION 413    DEC 30, 1996  -  182,086,210   472  *   DOC FILE
//*  011 - TOTAL VERSIONS FOR 1996                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//*      2885.6  VERSION 414    JAN 06, 1997  -  182,163,809   472  *   DOC FILE
//*      2996.3  VERSION 415    OCT 27, 1997  -  189,888,539   472  *   DOC FILE
//*      2970.6  VERSION 416    DEC 18, 1997  -  187,884,677   472  *   DOC FILE
//*  003 - TOTAL VERSIONS FOR 1997                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//*      2998.2  VERSION 417    JAN 20, 1998  -  189,713,835   500  *   DOC FILE
//*      2901.5  VERSION 418    MAY 29, 1998  -  182,968,153   500  *   DOC FILE
//*      2972.5  VERSION 419    OCT 27, 1998  -  185,752,386   500  *   DOC FILE
//*  003 - TOTAL VERSIONS FOR 1998                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//*      3072.4  VERSION 420    MAR 29, 1999  -  192,551,890   500  *   DOC FILE
//*      3102.8  VERSION 421    AUG 10, 1999  -  193,764,920   500  *   DOC FILE
//* IDRC 3241.2  VERSION 422    NOV 23, 1999  -  202,695,567   500  *   DOC FILE
//*                                                                 *   DOC FILE
//*  003 - TOTAL VERSIONS FOR 1999                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//*      3315.1  VERSION 423    FEB 22, 2000  -  207,438,354   500  *   DOC FILE
//*      3342.4  VERSION 424    MAY 10, 2000  -  208,290,903   500  *   DOC FILE
//*      3347.6  VERSION 425    MAY 22, 2000  -  208,683,713   500  *   DOC FILE
//*      3349.0  VERSION 426    JUL 14, 2000  -  210,287,490   500  *   DOC FILE
//*      3364.1  VERSION 427    AUG 01, 2000  -  211,355,473   500  *   DOC FILE
//*      3473.2  VERSION 428    AUG 23, 2000  -  219,065,995   500  *   DOC FILE
//*      3478.7  VERSION 429    SEP 01, 2000  -  219,361,742   500  *   DOC FILE
//*              VERSION 430    ?             -     ,   ,      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 CROSS XREF SECTION                                     *   DOC FILE
//*|*****************************************************************   DOC FILE
//*|                                                                *   DOC FILE
//*|     C  R  O  S  S  -  X  R  E  F        S  E  C  T  I  O  N    *   DOC FILE
//*|                                                                *   DOC FILE
//*|*****************************************************************   DOC FILE
//*|  The following section will add some Cross-Reference info      *   DOC FILE
//*|  about certain files which need other files.  We have tried    *   DOC FILE
//*|  to list dependencies only for files which have dependencies,  *   DOC FILE
//*|  but we are not guaranteeing that we have found all of them.   *   DOC FILE
//*|                                                                *   DOC FILE
//*|  I am not making an effort to keep this information exactly    *   DOC FILE
//*|  up to date, and it is just GENERALLY true, not absolutely     *   DOC FILE
//*|  true.    (SG - 03/99)                                         *   DOC FILE
//*|                                                                *   DOC FILE
//*|  IF A FILE'S INFORMATION SEEMS INCOMPLETE, IT IS UP TO YOU     *   DOC FILE
//*|  TO SEE IF YOU CAN FIND WHATEVER OTHER MATERIAL IT NEEDS.      *   DOC FILE
//*|  IF YOU MAP THIS TAPE WITH THE TAPEMAP PROGRAM FROM FILE 299,  *   DOC FILE
//*|  AND SEARCH THE SYSPRNT2 LISTING, THIS MAY HELP, BECAUSE IT    *   DOC FILE
//*|  LISTS ALL MEMBER NAMES AND "IEBUPDTE-EMBEDDED" MEMBER NAMES   *   DOC FILE
//*|  FOR ALL FILES ON THE TAPE WHICH ARE IN IEBUPDTE-COMPRESSED    *   DOC FILE
//*|  FORMAT.  TAPEMAP ALSO LISTS ALL MEMBER NAMES FOR FILES IN     *   DOC FILE
//*|  IEBCOPY FORMAT.  SO IT IS POSSIBLE THAT YOU MAY FIND WHAT     *   DOC FILE
//*|  YOU ARE LOOKING FOR, BUT IT IS NOT GUARANTEED TO BE THE       *   DOC FILE
//*|  PROPER VERSION, IF YOU USE THIS METHOD, BECAUSE IT ONLY SHOWS *   DOC FILE
//*|  NAMES, AND NOT OTHER INFORMATION.                             *   DOC FILE
//*|                                                                *   DOC FILE
//*|  PLEASE ADVISE ME IF YOU FIND OUT ABOUT MISSING MATERIALS,     *   DOC FILE
//*|  OR IF YOU THINK THERE IS ANYTHING ELSE ABOUT THIS TAPE THAT   *   DOC FILE
//*|  NEEDS IMPROVEMENT:                                            *   DOC FILE
//*|                                                                *   DOC FILE
//*|      SAM GOLOB  -  845-362-1996       P.O. BOX 906             *   DOC FILE
//*|                                       TALLMAN, NY 10982-0906   *   DOC FILE
//*|           EMAIL -  sbgolob@aol.com                             *   DOC FILE
//*|                    sbgolob@attglobal.net                       *   DOC FILE
//*|                                                                *   DOC FILE
//*| 014 120                                                        *   DOC FILE
//*| 018 035                                                        *   DOC FILE
//*| 035         112         182 294         318                    *   DOC FILE
//*| 040 097                                                        *   DOC FILE
//*| 042 043 006                                                    *   DOC FILE
//*| 043 042 006                                                    *   DOC FILE
//*| 047 424                                                        *   DOC FILE
//*| 053 054 055 056 057                                            *   DOC FILE
//*| 054 053 055 056 057                                            *   DOC FILE
//*| 055 053 054 056 057                                            *   DOC FILE
//*| 056 053 054 055 057                                            *   DOC FILE
//*| 057 053 054 055 056                                            *   DOC FILE
//*| 060 061 062 063 064                                            *   DOC FILE
//*| 061 060 062 063 064                                            *   DOC FILE
//*| 062 060 061 063 064                                            *   DOC FILE
//*| 063 060 061 062 064                                            *   DOC FILE
//*| 064 060 061 062 063                                            *   DOC FILE
//*| 072 073 074 075 076                                            *   DOC FILE
//*| 073 072 074 075 076                                            *   DOC FILE
//*| 075 072 073 075 076                                            *   DOC FILE
//*| 076 072 073 074 075                                            *   DOC FILE
//*| 077 071                                                        *   DOC FILE
//*| 082 083 084 085 086                                            *   DOC FILE
//*| 083 082 084 085 086                                            *   DOC FILE
//*| 084 082 083 085 086                                            *   DOC FILE
//*| 085 082 083 084 086                                            *   DOC FILE
//*| 086 082 083 084 085                                            *   DOC FILE
//*| 089 090                                                        *   DOC FILE
//*| 090 089                                                        *   DOC FILE
//*| 091 092                                                        *   DOC FILE
//*| 092 091                                                        *   DOC FILE
//*| 097 040                                                        *   DOC FILE
//*| 098 099                                                        *   DOC FILE
//*| 099 098                                                        *   DOC FILE
//*| 100 101                                                        *   DOC FILE
//*| 101 100                                                        *   DOC FILE
//*| 107 108                                                        *   DOC FILE
//*| 108 107                                                        *   DOC FILE
//*| 109 110                                                        *   DOC FILE
//*| 110 109                                                        *   DOC FILE
//*| 112     035                                                    *   DOC FILE
//*| 113 114 115                                                    *   DOC FILE
//*| 114 113 115                                                    *   DOC FILE
//*| 115 113 114                                                    *   DOC FILE
//*| 119 426                                                        *   DOC FILE
//*| 120 014 121                                                    *   DOC FILE
//*| 121 120                                                        *   DOC FILE
//*| 127 112                                                        *   DOC FILE
//*| 134 182 149 135 183 202                                        *   DOC FILE
//*| 135 134 183 202                                                *   DOC FILE
//*| 162 408                                                        *   DOC FILE
//*| 180 179                                                        *   DOC FILE
//*| 181 179                                                        *   DOC FILE
//*| 182 035 296 112 134 135                                        *   DOC FILE
//*| 183 135                                                        *   DOC FILE
//*| 185 186                                                        *   DOC FILE
//*| 186 185                                                        *   DOC FILE
//*| 188 189                                                        *   DOC FILE
//*| 189 188                                                        *   DOC FILE
//*| 204 205                                                        *   DOC FILE
//*| 205 204                                                        *   DOC FILE
//*| 210 211 204                                                    *   DOC FILE
//*| 211 210 204                                                    *   DOC FILE
//*| 212 213 204                                                    *   DOC FILE
//*| 213 212                                                        *   DOC FILE
//*| 218 035                                                        *   DOC FILE
//*| 225 408                                                        *   DOC FILE
//*| 226 408                                                        *   DOC FILE
//*| 230 231 232                                                    *   DOC FILE
//*| 231 230 232                                                    *   DOC FILE
//*| 232 230 231                                                    *   DOC FILE
//*| 234 247                                                        *   DOC FILE
//*| 238 239 240 241 242                                            *   DOC FILE
//*| 239 238 240 241 242                                            *   DOC FILE
//*| 240 238 239 241 242                                            *   DOC FILE
//*| 241 238 239 240 242                                            *   DOC FILE
//*| 242 238 239 240 241                                            *   DOC FILE
//*| 270 371                                                        *   DOC FILE
//*| 278 279                                                        *   DOC FILE
//*| 280 281 282 283 284 285 286 287 288     WATERLOO SCRIPT        *   DOC FILE
//*| 294 035                                                        *   DOC FILE
//*| 296 182                                                        *   DOC FILE
//*| 299 035                                                        *   DOC FILE
//*| 300 316 035                                                    *   DOC FILE
//*| 316 300 035                                                    *   DOC FILE
//*| 321 330                                                        *   DOC FILE
//*| 330 321                                                        *   DOC FILE
//*| 352 383                                                        *   DOC FILE
//*| 369 370                                                        *   DOC FILE
//*| 370 369                                                        *   DOC FILE
//*| 371 270                                                        *   DOC FILE
//*| 388 408 422                                                    *   DOC FILE
//*| 392 179 180                                                    *   DOC FILE
//*| 399 404                                                        *   DOC FILE
//*| 401 399                                                        *   DOC FILE
//*| 402 401                                                        *   DOC FILE
//*| 403 399                                                        *   DOC FILE
//*| 404 399                                                        *   DOC FILE
//*| 407 408                                                        *   DOC FILE
//*| 408 162 225 226 388 407                                        *   DOC FILE
//*| 422 388   SCHEDULER PRINT                                      *   DOC FILE
//*| 424 047                                                        *   DOC FILE
//*| 426 119                                                        *   DOC FILE
//*| 453 454 455 456 457 458 459   MOINIL PROGRAMS                  *   DOC FILE
//*| 460 THRU 471     ISPF GUIDE TAPE                               *   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 distributed on 3480 IDRC cartridges    <<< *   DOC FILE
//* >>>                          and                            <<< *   DOC FILE
//* >>>             has code that pertains to MVS               <<< *   DOC FILE
//* >>>                                                         <<< *   DOC FILE
//* >>>          Online address:     www.cbttape.org            <<< *   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 006.  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 035 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
//*           AS OF VERSION 323, NEW FILES ARE BEING STORED ON      *   FILE 003
//*           THIS TAPE WITH ISPF STATISTICS RELOADABLE.  YOU       *   FILE 003
//*           MUST USE THE PDSLOAD PROGRAM JCL IN FILE 003          *   FILE 003
//*           INSTEAD OF IEBUPDTE TO GET THE STATISTICS INTO YOUR   *   FILE 003
//*           LOADED SOURCE PDS'ES.  A LOAD MODULE FOR PDSLOAD IS   *   FILE 003
//*           ON FILE 035 (SOURCE ON FILE 093).  INSTRUCTIONS ON    *   FILE 003
//*           HOW TO USE PDSLOAD INSTEAD OF IEBUPDTE ARE INCLUDED   *   FILE 003
//*           IN THE NEW COMMENTS IN FILE 003.  THOSE FILES THAT    *   FILE 003
//*           HAVE ISPF STATS INCLUDED ARE MARKED IN THE "FILE      *   FILE 003
//*           STATUS SECTION" ABOVE, WITH AN "S" NEAR TO THE        *   FILE 003
//*           COUNT OF THE NUMBER OF RECORDS.                       *   FILE 003
//*                                                                 *   FILE 003
//***FILE 004 is source for an assembler program called CBTUPD.     *   FILE 004
//*           CBTUPD inserts ./ ADD NAME=xxxxxxxx cards into        *   FILE 004
//*           File 001 of this tape, so the tape documentation,     *   FILE 004
//*           which is very large, can be broken up into a pds,     *   FILE 004
//*           with smaller pieces as members.                       *   FILE 004
//*                                                                 *   FILE 004
//*           After making a copy of this file with the extra       *   FILE 004
//*           separator cards, using the CBTUPD program, you can    *   FILE 004
//*           then use the PDSLOAD or IEBUPDTE programs to load     *   FILE 004
//*           a partitioned dataset with the appropriate            *   FILE 004
//*           members.  Member names are in their original order,   *   FILE 004
//*           using the EBCDIC collating sequence.                  *   FILE 004
//*                                                                 *   FILE 004
//*           The member names inserted, are in alphabetical        *   FILE 004
//*           order, so that when you re-constitute the File 001    *   FILE 004
//*           with the OFFLOAD or LISTPDS programs, or with the     *   FILE 004
//*           =OFFLOAD subcommand of REVIEW, etc, the members       *   FILE 004
//*           will go back together in the proper order.            *   FILE 004
//*                                                                 *   FILE 004
//*      Questions:   email   sbgolob@attglobal.net                 *   FILE 004
//*                        or sbgolob@aol.com                       *   FILE 004
//*                                                                 *   FILE 004
//*           Please see File 006 for more related tools.           *   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
//*                   email:  gshedloc@chepusa.com                  *   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 CONTAINS SEVERAL PROGRAMS USED FOR MANIPULATION OF    *   FILE 006
//*           THE CBT TAPE AND CBT OVERFLOW TAPE DOCUMENTATION.     *   FILE 006
//*                                                                 *   FILE 006
//*           The program called CBTUPD is for the purpose of       *   FILE 006
//*           introducing appropriately named ./ ADD NAME= cards    *   FILE 006
//*           into strategic places of the CBT Tape Documentation.  *   FILE 006
//*           The CBT Tape doc can then be conveniently broken      *   FILE 006
//*           up into a pds.  The member names of the pds are       *   FILE 006
//*           in collating sequence order (EBCDIC), so that the     *   FILE 006
//*           members can be put back together as a sequential      *   FILE 006
//*           file, in their proper order.                          *   FILE 006
//*                                                                 *   FILE 006
//*           The program called DOCFILE is from Arnold Casinghino  *   FILE 006
//*           and it puts the indicators in columns 73-80 of the    *   FILE 006
//*           CBT Tape documentation, to indicate your current      *   FILE 006
//*           position within the documentation.                    *   FILE 006
//*                                                                 *   FILE 006
//*           The original idea of the DOCFILE program is from      *   FILE 006
//*           a COBOL program written by Sam Barr of Northrop.      *   FILE 006
//*                                                                 *   FILE 006
//*           DOCFILE has been updated by Sam Golob (03/99) to      *   FILE 006
//*           take into account the fact that there may be lower    *   FILE 006
//*           case characters in the CBT Tape Documentation         *   FILE 006
//*           nowadays.                                             *   FILE 006
//*                                                                 *   FILE 006
//*           This file was moved from File 130 and the former      *   FILE 006
//*           File 006 was moved to File 130.  The reason for       *   FILE 006
//*           that, was that this file should be near the           *   FILE 006
//*           beginning of the CBT Tape, since it is used to        *   FILE 006
//*           process the CBT Tape Documentation File.              *   FILE 006
//*                                                                 *   FILE 006
//*           (Actually both of them are.  I just put this file     *   FILE 006
//*           more "forward", because I think more people are       *   FILE 006
//*           going to use it.  File 130 is for loading the         *   FILE 006
//*           CBT documentation into an INFO/MVS database.)         *   FILE 006
//*                                                                 *   FILE 006
//*           I've included the OSTARXMT package in this file       *   FILE 006
//*           to make it more available.  Documentation for         *   FILE 006
//*           running this package is in File 365.  The load        *   FILE 006
//*           module for the OSTAREDC assembler program to          *   FILE 006
//*           speed up error checking, is in File 035.  If you      *   FILE 006
//*           get CBT Tape files in OSTARXMT format (LRECL=88),     *   FILE 006
//*           the presence of the OSTARREC exec here, will make     *   FILE 006
//*           it easier for you to handle this format.  Just        *   FILE 006
//*           copy OSTARREC into your SYSPROC or SYSEXEC library    *   FILE 006
//*           and invoke it, against your .XMT files.               *   FILE 006
//*                                                                 *   FILE 006
//*    Note:  This file also contains copies of the ISPF Edit       *   FILE 006
//*           Macros  CBTUPDTE  and  COVUPDTE, which are used       *   FILE 006
//*           to introduce ./ ADD NAME= cards into the CBT Tape     *   FILE 006
//*           and CBT Overflow Tape documentation files.  That      *   FILE 006
//*           will allow them to be converted into partitioned      *   FILE 006
//*           datasets, using IEBUPDTE ,PARM=NEW , or PDSLOAD       *   FILE 006
//*           programs.                                             *   FILE 006
//*                                                                 *   FILE 006
//*           However, the CBTUPD assembler program supersedes      *   FILE 006
//*           these two edit macros, because it is more accurate    *   FILE 006
//*           in checking where to insert the ./ ADD cards,         *   FILE 006
//*           and is less prone to some other errors.               *   FILE 006
//*                                                                 *   FILE 006
//*           As of CBTUPD Version 1.3 (or higher), the changes     *   FILE 006
//*           for each version of the tape are separated out as     *   FILE 006
//*           distinct members, sorted in reverse order.  None of   *   FILE 006
//*           the edit macros did that job, so CBTUPD is distinctly *   FILE 006
//*           better than the CBTUPDTE edit macro.                  *   FILE 006
//*                                                                 *   FILE 006
//*           Version 1.3 of the CBTUPD program was developed and   *   FILE 006
//*           tested on the IBM PC using the Tachyon Cross          *   FILE 006
//*           Assembler and the Tachyon Operating System.  This     *   FILE 006
//*           is a vendor product from Tachyon Software, Denver     *   FILE 006
//*           Colorado, 1-303-722-1341.                             *   FILE 006
//*                www.tachyonsoft.com/tachyon                      *   FILE 006
//*           This product allows you to develop MVS assembler      *   FILE 006
//*           programs on an IBM PC, test them on the PC, and       *   FILE 006
//*           port them to MVS.  The object deck produced by        *   FILE 006
//*           the Tachyon Assembler is compatible with HLASM.       *   FILE 006
//*                                                                 *   FILE 006
//***FILE 007 IS A COPY OF THE SHARE RACF MODS TAPE FROM MR JIM     *   FILE 007
//*           BLALOCK OF CLEMSON UNIVERSITY IN ANDERSON, SOUTH      *   FILE 007
//*           CAROLINA.  THIS FILE IS IN IEBUPDTE SYSIN FORMAT.     *   FILE 007
//*           FOR ADDITIONAL INFORMATION SEE THE MEMBERS CALLED     *   FILE 007
//*           $$$DOC AND $$INDEX.                                   *   FILE 007
//*                                                                 *   FILE 007
//*           email:   carey@clemson.edu                            *   FILE 007
//*                                                                 *   FILE 007
//***FILE 008 THIS WAS FOR ARNIE'S USE TO SHOW SOME STATS.  THE     *   FILE 008
//*           LENGTH OF HIS RUNS, EXACT FOOTAGES, AND BYTE COUNTS   *   FILE 008
//*           ARE PRETTY MUCH WHAT HE HAS HERE.  ARNIE'S DATA ON    *   FILE 008
//*           THIS FILE EXTENDS THROUGH VERSION 320 OF THIS TAPE.   *   FILE 008
//*           ARNIE SUPPORTED THIS TAPE THROUGH VERSION 321.        *   FILE 008
//*                                                                 *   FILE 008
//*           IN THE FUTURE, I MAY MAKE SIMILAR USE OF THIS FILE,   *   FILE 008
//*           BUT SOME OF ITS INFORMATION IS NOW BEING REPORTED     *   FILE 008
//*           ABOVE IN THE VERSION SECTION.  IN PARTICULAR, EXACT   *   FILE 008
//*           FOOTAGES AND BYTE COUNTS FOR VERSIONS 321 AND BEYOND  *   FILE 008
//*           ARE RECORDED ABOVE IN THE VERSION SECTION.  TO SEE    *   FILE 008
//*           HOW THIS TAPE HAS GROWN (FLUCTUATED), YOU CAN LOOK    *   FILE 008
//*           AT THE DATA RECORDED HERE ON THIS FILE, AND CONTINUE  *   FILE 008
//*           BY LOOKING AT THE END OF THE VERSION SECTION ABOVE.   *   FILE 008
//*                                                                 *   FILE 008
//***FILE 009 IS FROM MR GENE LEW OF MCI OF ROCKVILLE, MARYLAND     *   FILE 009
//*           AND CONTAINS A COPY OF THEIR RACF EXITS TO            *   FILE 009
//*           IMPLEMENT RACF 1.7 TAPE DATASET PROTECTION IN         *   FILE 009
//*           "WARNING" MODE.  THIS FILE IS IN IEBUPDTE SYSIN       *   FILE 009
//*           FORMAT.                                               *   FILE 009
//*                                                                 *   FILE 009
//***FILE 010 IS FROM MR CHUCK HOFFMAN OF GTE IN WALTHAM, MASS,     *   FILE 010
//*           AND CONTAINS A COPY OF HIS TSO COMMAND CALLED         *   FILE 010
//*           ISPFPRIM WHICH ENABLES A USER TO INVOKE AN ISPF       *   FILE 010
//*           DIALOG FROM READY OR FROM WITHIN ISPF, AND TO USE     *   FILE 010
//*           AN OPTIONAL PANEL SELECTION NUMBER.  FOR ADDITIONAL   *   FILE 010
//*           INFORMATION SEE THE MEMBER CALLED $$$DOC.  THIS       *   FILE 010
//*           FILE IS IN IEBUPDTE SYSIN FORMAT.                     *   FILE 010
//*                                                                 *   FILE 010
//***FILE 011 IS FROM INTEL CORPORATION AND CONTAINS SEVERAL OF     *   FILE 011
//*           THEIR PROGRAMS.  THIS FILE IS IN IEBUPDTE SYSIN       *   FILE 011
//*           FORMAT.  FOR ADDITIONAL INFORMATION SEE THE MEMBER    *   FILE 011
//*           CALLED $$DOC :                                        *   FILE 011
//*                                                                 *   FILE 011
//*           $$DOC.....THIS MEMBER                                 *   FILE 011
//*           ADEBE.....JCL TO ASSEMBLE AND LINK DEBE               *   FILE 011
//*           AMSG2USR..JCL TO ASSEMBLE AND LINK MSG2USER           *   FILE 011
//*           ATSO051...JCL TO ASSEMBLE AND LINK TSO051             *   FILE 011
//*           DEBE......THIS VERSION WAS MODIFIED TO RUN UNDER      *   FILE 011
//*                     MVS/XA AND WILL NOW SUPPORT BOTH 3420 AND   *   FILE 011
//*                     3480 TAPE DRIVES                            *   FILE 011
//*           MSG2USER..THIS IS A WTO EXIT. THIS EXIT WILL SEND A   *   FILE 011
//*                     MESSAGE TO A TSO USER WHO IS ENQUEUED ON A  *   FILE 011
//*                     DATASET NEEDED BY A BATCH JOB.  THE FORMAT  *   FILE 011
//*                     OF THE MESSAGE IS :                         *   FILE 011
//*                          NTL861I THE FOLLOWING RESERVED DATASET *   FILE 011
//*                                  NAMES UNAVAILABLE TO JJJJ      *   FILE 011
//*                          NTL863I DSN=DSN                        *   FILE 011
//*           TSO051....THIS PROGRAM WILL GET INFORMATION FROM JCT  *   FILE 011
//*                     AND WILL FILL IN VARIOUS CLIST VARIABLES.   *   FILE 011
//*                                                                 *   FILE 011
//***FILE 012 IS FROM JOHN HANCOCK MUTUAL LIFE INSURANCE COMPANY    *   FILE 012
//*           AND IS THEIR ISPF BACKGROUND JOBS DRIVER.             *   FILE 012
//*                                                                 *   FILE 012
//*       THIS FILE CONSISTS OF OPTIONS DESIGNED TO BE USED WITH    *   FILE 012
//*       THE INTERACTIVE SYSTEM PRODUCTIVITY FACILITY/PROGRAM      *   FILE 012
//*       DEVELOPMENT FACILITY (ISPF/PDF).                          *   FILE 012
//*                                                                 *   FILE 012
//*       NOTE:  SOME OF THESE OPTIONS WILL WORK ONLY UNDER ISPF    *   FILE 012
//*       VERSION 2.  PANELS/SKELETONS/MESSAGES PROVIDED FOR USE    *   FILE 012
//*       WITH JH#PDF8 ARE INTENDED ONLY AS SAMPLES.  SOME          *   FILE 012
//*       MODIFICATION (E.G. ACCOUNTING FIELDS) WOULD BE            *   FILE 012
//*       REQUIRED AT YOUR INSTALLATION.  PANELS THAT CONTAIN A     *   FILE 012
//*       "VOLUME SERIAL" FIELD DETERMINE A UNIT NAME IN THEIR      *   FILE 012
//*       )PROC SECTION.  THIS SHOULD BE CHECKED FOR                *   FILE 012
//*       INSTALLATION COMPATIBILITY.                               *   FILE 012
//*                                                                 *   FILE 012
//*       CHANGES 03/04/85:  MODIFICATIONS TO EXPLOIT ISPF          *   FILE 012
//*              VERSION 2:  MACRO ISPCALL NOW SUPPORTS ISPEXEC     *   FILE 012
//*              FORMAT (SEE NEW JH#PDF8 FOR EXAMPLE); JH#PDF8      *   FILE 012
//*              MODIFIED TO USE LM SERVICES TO ENABLE VIO          *   FILE 012
//*              ISPCTLN DATA SETS TO BE EDITED (UNDER V1           *   FILE 012
//*              JH#PDF8 WORKS AS BEFORE); PANEL JHAEFR01 ADDED     *   FILE 012
//*              (USED BY JH#PDF8 UNDER V2); JH ISR^PRIM            *   FILE 012
//*              REPLACED FOR V2; MSGS JHA^M04 ADDED; MANY          *   FILE 012
//*              PANELS/SKELETONS/MESSAGES FORMERLY PREFIXED Z*     *   FILE 012
//*              ARE NOW PREFIXED JHA*; CLIST ISRCTBL RENAMED       *   FILE 012
//*              JH#YCTBL; JH EDIT INTERFACE ALTERED FOR V2;        *   FILE 012
//*              CLIST TSEDITPR RENAMED JH#TEDPR AND CHANGED TO     *   FILE 012
//*              PROCESS PDF V2 FIELDS; ADDED JH#GTDSN (A DIALOG    *   FILE 012
//*              PROGRAM THAT RETURNS VOLUME SERIAL AND DATA SET    *   FILE 012
//*              NAME WHEN PROVIDED A DDNAME - USED BY OTHER        *   FILE 012
//*              DIALOGS); ADDED JH#TEDRT TO DISPLAY AND EDIT A     *   FILE 012
//*              USER'S PDF EDIT RECOVERY TABLE; ADDED ISRUOLJH,    *   FILE 012
//*              IBM'S ISRUOL (PDF 3.8) MODIFIED TO RUN FASTER      *   FILE 012
//*              BY USING TEMPORARY DATA SETS; ADDED JH#TPRGM TO    *   FILE 012
//*              INVOKE IEHPROGM FOREGROUND; ADDED JH#EDTMP TO      *   FILE 012
//*              ALLOW EDITING OF VIO ISPCTLN DATA SETS.            *   FILE 012
//*                                                                 *   FILE 012
//*       CHANGES 10/18/83: TABLE DISPLAY UTILITY REWRITTEN AND     *   FILE 012
//*              ENHANCED.  CLIST RENAMED JH#YDTBL FROM             *   FILE 012
//*              ISRYDTBL.                                          *   FILE 012
//*                                                                 *   FILE 012
//*       CHANGES 10/3/83: JOHN HANCOCK EDIT INTERFACE IS           *   FILE 012
//*              ENHANCED TO ALLOW USER-DEFINED ABBREVIATIONS       *   FILE 012
//*              (SEE #3 BELOW); SMALL CHANGES TO JH#PDF8 AND       *   FILE 012
//*              ASSOCIATED SAMPLE PANELS; ADDED #MAXTOP #8, #9.    *   FILE 012
//*                                                                 *   FILE 012
//*       1. JOHN HANCOCK BATCH JOBS DRIVER (JH#PDF8) IS A          *   FILE 012
//*          GENERAL PURPOSE ISPF FUNCTION FOR THE GENERATION OF    *   FILE 012
//*          JCL BASED ON DATA ENTERED ON PANELS.  PROCESSING IS    *   FILE 012
//*          CONTROLLED BY AN INITIAL PARM AND BY ISPF              *   FILE 012
//*          VARIABLES.  SEE THE COMMENTS AT THE BEGINNING OF       *   FILE 012
//*          THE JH#PDF8 SOURCE FOR ADDITIONAL INFORMATION.         *   FILE 012
//*                                                                 *   FILE 012
//*          SOME DIFFERENCES BETWEEN PDF OPTION 5 AND JH#PDF8:     *   FILE 012
//*          JH#PDF8 DOES NOT ALLOCATE DATA SETS FOR                *   FILE 012
//*          VERIFICATION, WHERE OPTION 5 OPTIONALLY ALLOCATES      *   FILE 012
//*          THE INPUT DATA SET (ONLY); JH#PDF8 ALLOWS A USER TO    *   FILE 012
//*          EDIT THE TEMPORARY GENERATED JCL IN ADDITION TO        *   FILE 012
//*          SUBMITTING OR CANCELING THE JOB; JH#PDF8 ALLOWS        *   FILE 012
//*          INITIAL AND FINAL SKELETONS TO BE TAILORED FOR EACH    *   FILE 012
//*          INVOCATION; JH#PDF8 ALLOWS TWO OR MORE PANELS TO       *   FILE 012
//*          PROVIDE INPUT TO ONE TAILORING OPERATION; WITH         *   FILE 012
//*          JH#PDF8 PROCESSING SUCH AS JOB CHARACTER               *   FILE 012
//*          INCREMENTATION IS DONE IN THE PANELS (SEE SAMPLE       *   FILE 012
//*          JHABP^B) INSTEAD OF IN THE DRIVER PROGRAM.             *   FILE 012
//*                                                                 *   FILE 012
//*          SAMPLE PANELS, SKELETONS, AND MESSAGES ARE PROVIDED    *   FILE 012
//*          FOR USE WITH JH#PDF8.  IT IS POSSIBLE, HOWEVER, TO     *   FILE 012
//*          CREATE TOTALLY DIFFERENT ISPF COMPONENTS FOR USE       *   FILE 012
//*          WITH THIS DRIVER.  THE ONLY REQUIREMENTS ARE THAT      *   FILE 012
//*          THERE BE A PSEUDO-SELECTION PANEL WHOSE NAME IS        *   FILE 012
//*          PASSED VIA A PARM TO JH#PDF8 (SAMPLE IS JHABP^A)       *   FILE 012
//*          AND THAT THE COMPONENTS SET ISPF VARIABLES TO          *   FILE 012
//*          DICTATE PROCESSING (AGAIN, SEE THE COMMENTS).          *   FILE 012
//*                                                                 *   FILE 012
//*          JH#PDF8 CODE IS REENTRANT; THE MODULE MAY BE           *   FILE 012
//*          PLACED IN LPALIB WITH OTHER ISPF MODULES.              *   FILE 012
//*                                                                 *   FILE 012
//*       2. CLIST JH#YDTBL WILL DISPLAY THE CONTENTS               *   FILE 012
//*          (NON-EXTENSION VARIABLES) OF ANY TABLE IN TABLE        *   FILE 012
//*          DISPLAY (SCROLLABLE) FORMAT.  AS PROVIDED HERE IT      *   FILE 012
//*          SUPPORTS FIVE DIFFERENT TABLE DISPLAY FORMATS.  IT     *   FILE 012
//*          MAY BE INVOKED FROM ISPF/PDF OPTION 6, VIA THE ISPF    *   FILE 012
//*          TSO COMMAND, OR FROM A SELECTION PANEL (E.G.,          *   FILE 012
//*          ISRYXD1).                                              *   FILE 012
//*                                                                 *   FILE 012
//*       3. PANEL JHTEPE01 IS A JOHN HANCOCK EDIT INTERFACE.       *   FILE 012
//*          TO USE IT, ADD THE FOLLOWING ENTRY TO A SELECTION      *   FILE 012
//*          PANEL:                                                 *   FILE 012
//*                N,'PGM(ISREDIT) PARM(P,JHTEPE01)                 *   FILE 012
//*                  NEWAPPL(ISR)'                                  *   FILE 012
//*          NOTE: FUTURE RELEASES OF PDF MAY NOT SUPPORT THIS      *   FILE 012
//*          METHOD OF IMPLEMENTATION.                              *   FILE 012
//*                                                                 *   FILE 012
//*       4. CLIST JH#TEDPR WILL DISPLAY THE CONTENTS OF A          *   FILE 012
//*          USER'S CURRENT EDIT PROFILE (FOR THE APPLICATION       *   FILE 012
//*          HE HAS ENTERED).  IT MAY BE INVOKED FROM ISPF/PDF      *   FILE 012
//*          OPTION 6, VIA THE ISPF TSO COMMAND, OR FROM A          *   FILE 012
//*          SELECTION PANEL.  THE CLIST MUST BE MODIFIED FOR       *   FILE 012
//*          YOUR INSTALLATION'S ISPF PROFILE NAMING                *   FILE 012
//*          CONVENTION.                                            *   FILE 012
//*                                                                 *   FILE 012
//*       5. CLIST TSCMDTB WILL DISPLAY THE CONTENTS OF THE         *   FILE 012
//*          CURRENT SYSTEM COMMAND TABLE.  THIS MAY BE USED BY     *   FILE 012
//*          END-USERS, SINCE THE "DESCRIPTION," NOT THE            *   FILE 012
//*          "ACTION," IS DISPLAYED.  IF THIS CLIST IS TO BE        *   FILE 012
//*          USED, IT IS RECOMMENDED THAT A COPY OF THE SYSTEM      *   FILE 012
//*          COMMAND TABLE (ISPCMDS) BE MADE UNDER A DIFFERENT      *   FILE 012
//*          NAME (SYSCMDS IS USED IN THE CLIST).  STRANGE          *   FILE 012
//*          THINGS WILL HAPPEN IF YOU ATTEMPT TO OPEN AND CLOSE    *   FILE 012
//*          A COMMAND TABLE THAT ISPF HAS ALREADY OPENED.          *   FILE 012
//*          TSCMDTB MAY BE INVOKED FROM ISPF/PDF OPTION 6, VIA     *   FILE 012
//*          THE ISPF TSO COMMAND, OR FROM A SELECTION PANEL.       *   FILE 012
//*                                                                 *   FILE 012
//*       6. CLIST JH#YCTBL DRIVES THE TABLE RECONSTRUCTION         *   FILE 012
//*          UTILITY.  THIS ALLOWS FIELDS TO BE ADDED TO/REMOVED    *   FILE 012
//*          FROM TABLES WITHOUT LOSING THE TABLE DATA.  IT MAY     *   FILE 012
//*          BE INVOKED FROM ISPF/PDF OPTION 6, OR FROM A           *   FILE 012
//*          SELECTION PANEL (E.G., ISRYXD1).                       *   FILE 012
//*                                                                 *   FILE 012
//*       7. PANEL JHAYP14^ PROVIDES ENTRY TO A FOREGROUND          *   FILE 012
//*          INTERFACE TO THE IBM-SUPPLIED SELECTION PANEL          *   FILE 012
//*          UPDATE UTILITY (ISPPUP).  THIS MAY BE ENTERED FROM     *   FILE 012
//*          A HIGHER-LEVEL SELECTION PANEL (XX,'PANEL(ZYPUP^)')    *   FILE 012
//*          OR FROM TSO READY (ISPSTART PANEL(ZYPUP^)).            *   FILE 012
//*                                                                 *   FILE 012
//*       8. CLIST ISRALTK ALLOWS A USER TO DEFINE AND ACTIVATE     *   FILE 012
//*          A SECOND SET OF PROGRAM FUNCTION KEY DEFINITIONS.      *   FILE 012
//*          READ HELP PANEL XALTK BEFORE USING.  IT MAY BE         *   FILE 012
//*          INVOKED FROM A SELECTION PANEL (E.G.,ISPOPTA) BY       *   FILE 012
//*          "'XX,CMD(%ISRALTK)'."  AN ENTRY IN A COMMAND TABLE     *   FILE 012
//*          IS ALSO A GOOD IDEA:                                   *   FILE 012
//*                    VERB    ACTION                               *   FILE 012
//*                     K2     SELECT CMD(%ISRALTK PARM('&ZPARM'))  *   FILE 012
//*                                                                 *   FILE 012
//*       9. PANEL PANELID IS A EXAMPLE OF HOW "PANELID ON" MAY     *   FILE 012
//*          BE SET WITHOUT THE USER HAVING TO ENTER THE ISPF       *   FILE 012
//*          COMMAND.  THE CODE IN THIS PANEL COULD BE USED IN      *   FILE 012
//*          ANY SELECTION PANEL, INCLUDING ISR^PRIM AND            *   FILE 012
//*          ISP^MSTR.                                              *   FILE 012
//*                                                                 *   FILE 012
//*      10. CLIST JH#TEDRT ALLOWS THE DISPLAYING AND               *   FILE 012
//*          MODIFICATION OF A USER'S EDIT RECOVERY TABLE.  IT      *   FILE 012
//*          MAY BE INVOKED FROM ISPF/PDF OPTION 6, OR FROM A       *   FILE 012
//*          SELECTION PANEL.  THE CLIST MUST BE MODIFIED FOR       *   FILE 012
//*          YOUR INSTALLATION'S ISPF PROFILE NAMING CONVENTION.    *   FILE 012
//*                                                                 *   FILE 012
//*      11. CLIST ISRUOLJH IS JOHN HANCOCK'S MODIFIED ISRUOL,      *   FILE 012
//*          THE CLIST THAT DRIVES PDF OPTION 3.8.  IT HAS BEEN     *   FILE 012
//*          MODIFIED TO RUN FASTER BY USING TEMPORARY DATA         *   FILE 012
//*          SETS, BYPASSING CATALOGING AND DELETION.  IT USES      *   FILE 012
//*          PROVIDED DIALOG PROGRAM JH#GTDSN (WHICH CAN BE IN      *   FILE 012
//*          LPA IF HEAVILY USED).  (THIS CLIST HAS ALSO BEEN       *   FILE 012
//*          MODIFIED TO USE THE SAME JOB CARDS AS OPTION 3.6.)     *   FILE 012
//*                                                                 *   FILE 012
//*      12. CLIST JH#TPRGM PROVIDES A PANEL TO RUN IEHPROGM IN     *   FILE 012
//*          FOREGROUND.  TO USE IT ADD THE FOLLOWING ENTRY TO A    *   FILE 012
//*          SELECTION PANEL:                                       *   FILE 012
//*             NN,'CMD(%JH#TPRGM PANEL(JHTEP0M)                    *   FILE 012
//*                PANEL2(JHTEP0M2) SKEL(JHTES0M))'                 *   FILE 012
//*                                                                 *   FILE 012
//*      13. PROGRAM JH#EDTMP PUTS THE USER INTO EDIT OF AN ISPF    *   FILE 012
//*          TEMPORARY CONTROL DATA SET (ISPCTLN).  IT SUPPORTS     *   FILE 012
//*          VIO AS WELL AS DASD DATA SETS.  IF NO PARM IS          *   FILE 012
//*          SUPPLIED, THE DATA SET ASSOCIATED WITH THE CURRENT     *   FILE 012
//*          LOGICAL SCREEN IS USED.  TO ACCESS THE DATA SET        *   FILE 012
//*          USED BY THE PDF SUBMIT COMMAND, USE A PARM OF 0        *   FILE 012
//*          (ZERO).  THIS PROGRAM MAY BE INVOKED VIA THE ISPF      *   FILE 012
//*          SELECT SERVICE FROM ANOTHER DIALOG FUNCTION.  AN       *   FILE 012
//*          ENTRY MAY ALSO BE PLACED IN A COMMAND TABLE:           *   FILE 012
//*                                                                 *   FILE 012
//*            VERB      T  ACTION                                  *   FILE 012
//*            EDTEMP    3  SELECT PGM(JH#EDTMP) PARM(&ZPARM)       *   FILE 012
//*                         NEWAPPL(ISR)                            *   FILE 012
//*                                                                 *   FILE 012
//*          THEN A USER CAN ENTER THE EDTEMP COMMAND ON ANY        *   FILE 012
//*          SCREEN AND EDIT THE DATA SET.                          *   FILE 012
//*                                                                 *   FILE 012
//*       CONTENTS OF THIS PDS:                                     *   FILE 012
//*                                                                 *   FILE 012
//*          SOURCE:    JH#EDTMP                                    *   FILE 012
//*                     JH#GTDSN                                    *   FILE 012
//*                     JH#PDF8                                     *   FILE 012
//*                                                                 *   FILE 012
//*          MACROS:    ENTER                                       *   FILE 012
//*                     ISPCALL                                     *   FILE 012
//*                     LEAVE                                       *   FILE 012
//*                     REQUS                                       *   FILE 012
//*                     SCANLINE                                    *   FILE 012
//*                                                                 *   FILE 012
//*          JCL:       $INSTALL (COPY ISPF COMPONENTS AND          *   FILE 012
//*                     ASSEMBLE PROGRAMS)                          *   FILE 012
//*                                                                 *   FILE 012
//*                     $LOAD    (SAMPLE JCL TO LOAD                *   FILE 012
//*                     DISTRIBUTION LIB FROM TAPE)                 *   FILE 012
//*                                                                 *   FILE 012
//*          CLISTS:    SEE IEBCOPY STATEMENTS IN $INSTALL          *   FILE 012
//*                     MEMBER                                      *   FILE 012
//*                                                                 *   FILE 012
//*          PANELS:    SEE IEBCOPY STATEMENTS IN $INSTALL          *   FILE 012
//*                     MEMBER PLUS MODIFIED ISR^PRIM               *   FILE 012
//*                                                                 *   FILE 012
//*          SKELETONS: SEE IEBCOPY STATEMENTS IN $INSTALL          *   FILE 012
//*                     MEMBER                                      *   FILE 012
//*                                                                 *   FILE 012
//*          MESSAGES:  SEE IEBCOPY STATEMENTS IN $INSTALL          *   FILE 012
//*                     MEMBER                                      *   FILE 012
//*                                                                 *   FILE 012
//***FILE 013 IS FROM PENN MUTUAL LIFE AND CONTAINS A PROGRAM TO    *   FILE 013
//*           PROCESS FILE 001 OF THIS TAPE TO COMPRESS THE SPACE   *   FILE 013
//*           IT REQUIRES ON DISK.                                  *   FILE 013
//*                                                                 *   FILE 013
//***FILE 014 IS FROM SAM GOLOB AND CONTAINS A SERIES OF ARTICLES   *   FILE 014
//*           WRITTEN FOR TECHNICAL SUPPORT MAGAZINE OF NASPA.      *   FILE 014
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT.  FOR           *   FILE 014
//*           ADDITIONAL INFORMATION, SEE THE MEMBER CALLED         *   FILE 014
//*           $$$INTRO.  THESE ARE SAM'S OLDER ARTICLES. (SEE       *   FILE 014
//*           FILE 120 FOR THE COLLECTION OF SAM'S "MVS TOOLS AND   *   FILE 014
//*           TRICKS OF THE TRADE" COLUMNS.)                        *   FILE 014
//*                                                                 *   FILE 014
//*           THIS FILE CONSISTS OF ARTICLES SUBMITTED BY SAM       *   FILE 014
//*           GOLOB TO "TECHNICAL SUPPORT" MAGAZINE OF NASPA,       *   FILE 014
//*           THE NATIONAL SYSTEMS PROGRAMMERS ASSOCIATION,         *   FILE 014
//*           HEADQUARTERED IN MILWAUKEE, WISCONSIN.                *   FILE 014
//*                                                                 *   FILE 014
//*           THE MATERIAL PERTAINS LARGELY TO PROGRAMS ON THE CBT  *   FILE 014
//*           TAPE, AND TO TOPICS OF GENERAL SYSTEMS PROGRAMMER     *   FILE 014
//*           INTEREST.  WITH THE KIND PERMISSION OF BOB BECKER,    *   FILE 014
//*           FORMER EDITOR OF "TECHNICAL SUPPORT", THEY ARE BEING  *   FILE 014
//*           DISTRIBUTED WITH THE CBT TAPE TO FURTHER THE          *   FILE 014
//*           USEFULNESS OF OTHER FILES ON THE TAPE, AND THE TAPE   *   FILE 014
//*           IN GENERAL.                                           *   FILE 014
//*                                                                 *   FILE 014
//*           CBTCNR1   -  A COLUMN ON USEFUL PROGRAMS ON THE CBT   *   FILE 014
//*                          TAPE.  INSTALLMENT 1.                  *   FILE 014
//*                                                                 *   FILE 014
//*           CBTCNR2   -  A COLUMN ON USEFUL PROGRAMS ON THE CBT   *   FILE 014
//*                          TAPE.  INSTALLMENT 2.                  *   FILE 014
//*                                                                 *   FILE 014
//*           CBTINTRO  -  AN INTRODUCTION TO THE CBT TAPE IN       *   FILE 014
//*                          GENERAL.  THE ARTICLE SHOWS HOW THE    *   FILE 014
//*                          CBT TAPE CAN IMPROVE YOUR INSTALLATION *   FILE 014
//*                          GREATLY BY PROVIDING POWERFUL TOOLS.   *   FILE 014
//*                          THIS IS MEANT AS AN INTRODUCTION ONLY, *   FILE 014
//*                          AND SUGGESTS A FEW OF THE TOOLS WHICH  *   FILE 014
//*                          THE AUTHOR HAS FOUND USEFUL IN HIS     *   FILE 014
//*                          WORK.                                  *   FILE 014
//*                                                                 *   FILE 014
//*           IOCOUNT   -  DESCRIPTION OF THE AMAZING IO-COUNT ZAP  *   FILE 014
//*                          TO THE OPERATING SYSTEM, WHICH         *   FILE 014
//*                          PROVIDES EXCP-COUNT INFORMATION IN JCL *   FILE 014
//*                          LISTINGS, FOR ALL ALLOCATED DDNAMES.   *   FILE 014
//*                          THE MODIFICATION IS FOUND ON FILE 369  *   FILE 014
//*                          OF THE CBT TAPE.  THIS IS A DETAILED   *   FILE 014
//*                          DESCRIPTION OF HOW TO INSTALL IT.      *   FILE 014
//*                                                                 *   FILE 014
//*           JESART    -  THIS IS A DESCRIPTION OF HOW TO CONVERT  *   FILE 014
//*                          FROM JES2 VERSION 1.3.4 TO THE HIGHER  *   FILE 014
//*                          RELEASES OF JES2.                      *   FILE 014
//*                                                                 *   FILE 014
//*           SMPART    -  I BELIEVE THIS MATERIAL IS FOUND NOWHERE *   FILE 014
//*                          ELSE IN THIS FORM.  THIS ARTICLE IS    *   FILE 014
//*                          MEANT TO INTRODUCE NEW AND OLD SYSTEMS *   FILE 014
//*                          PROGRAMMERS TO THE CONCEPTS OF SMP.    *   FILE 014
//*                          IT CAN BE USED AS A "HOW-TO-DO-IT"     *   FILE 014
//*                          INTRODUCTION TO ANY LEVEL OF SMP.  IT  *   FILE 014
//*                          IS CLEAR, CONCEPTUAL, AND COMPLETELY   *   FILE 014
//*                          STEP-BY-STEP.  IT COVERS CONCEPTS OF   *   FILE 014
//*                          ALL RELEASES OF SMP, BOTH SMP4 AND     *   FILE 014
//*                          SMP/E.  THE ARTICLE WAS TESTED BY      *   FILE 014
//*                          BEING GIVEN TO NON-SYSTEMS-PROGRAMMERS *   FILE 014
//*                          TO READ, AND IS MEANT FOR ANYONE WHO   *   FILE 014
//*                          HAS ANYTHING TO DO WITH MVS SYSTEM     *   FILE 014
//*                          MAINTENANCE.  THIS MEANS NON-TECHNICAL *   FILE 014
//*                          MANAGERS AS WELL AS TECHNICAL PEOPLE.  *   FILE 014
//*                                                                 *   FILE 014
//*                  A SERIES OF THREE ARTICLES HAS BEEN WRITTEN AS *   FILE 014
//*           A COURSE TO TEACH THE SUBCOMMANDS OF THE FANTASTIC    *   FILE 014
//*           "PDS" PROGRAM THAT CAN BE FOUND ON FILE 182 OF THE    *   FILE 014
//*           CBT TAPE (WITH UTILITIES ON FILE 296).  THESE         *   FILE 014
//*           ARTICLES ARE NOW DISTRIBUTED WITH THE PDS PACKAGE ON  *   FILE 014
//*           FILE 182, AND WILL NOT BE REPEATED HERE.              *   FILE 014
//*                                                                 *   FILE 014
//***FILE 015 IS FROM WARNER BROTHERS INC OF BURBANK, CA AND        *   FILE 015
//*           CONTAINS SEVERAL OF THEIR UTILTIES.  THIS FILE IS     *   FILE 015
//*           IN IEBUPDTE SYSIN FORMAT.                             *   FILE 015
//*                                                                 *   FILE 015
//*           TABLES AND JOBS NECESSARY TO GET SMF TYPE 32 TSO      *   FILE 015
//*           COMMAND ACCOUNTING RECORDS RUNNING.  USEFUL TO SEE    *   FILE 015
//*           WHAT RESOURCES OEM TSO PRODUCTS USE.                  *   FILE 015
//*                                                                 *   FILE 015
//*           A FEW PDF EDIT MACROS AND HELP MEMBERS.  A PDF        *   FILE 015
//*           FRONT END FOR DYNASOFT'S TSO WORD PROCESSOR AND       *   FILE 015
//*           SPREADSHEET.  A PRIMARY PDF PANEL THAT CAN SCROLL     *   FILE 015
//*           IN ALL FOUR DIRECTIONS TO ALLOW DISPLAY OF LOTS OF    *   FILE 015
//*           PDF OPTIONS.                                          *   FILE 015
//*                                                                 *   FILE 015
//*           A COUPLE OF ACF2 ASM ROUTINES TO DO RESOURCE          *   FILE 015
//*           VALIDATION AND INQUIRY FUNCTIONS.                     *   FILE 015
//*                                                                 *   FILE 015
//*           VERSION OF CLIP THAT WORKS WITH DSF REL9 AND XA OR    *   FILE 015
//*           370.                                                  *   FILE 015
//*                                                                 *   FILE 015
//*           TWO JES EXITS.  ONE PROVIDES A MASKABLE VERSION OF    *   FILE 015
//*           $D'NAME***.  WAS A SOURCE MOD TO HASPCOMM             *   FILE 015
//*           RE-WRIITEN AS AN EXIT.  EXIT FOUR ALLOWS FOR CODING   *   FILE 015
//*           DSN= ON SETUP CARDS.  EXIT CONVERTS DSN NAMES TO      *   FILE 015
//*           VOLSER'S SO USER DOES NOT HAVE TO LOOK THEM UP.       *   FILE 015
//*           SOME LOCAL CODE IN THIS BUT WOULD BE EASY TO DROP     *   FILE 015
//*           OR CHANGE.                                            *   FILE 015
//*                                                                 *   FILE 015
//*           MVS/XA MOD TO INSTALL CUSTOM CONSOLE PFK DEFINITIONS. *   FILE 015
//*           ONE SAMPLE DEFINITION INCLUDED.  THIS ALLOWS FOR      *   FILE 015
//*           SIMPLE RE-DEFINES AFTER GENS OR MAINTENANCE.  WE      *   FILE 015
//*           HAVE TEN CONSOLES SO THIS HELPS.                      *   FILE 015
//*                                                                 *   FILE 015
//*           MVS/XA MOD TO ALLOW RESTART OF JOBS THAT USE GDG'S    *   FILE 015
//*           AND REFER TO THEM AS +1 IN LATER STEPS.  WITHOUT      *   FILE 015
//*           THIS MOD JOBS RESTARTED WOULD HAVE TO HAVE ALL        *   FILE 015
//*           REFERENCES TO +1 CHANGED TO 0.  THIS IS AN ERROR      *   FILE 015
//*           PRONE AND TIME CONSUMING TASK.  TESTED AND RUNNING    *   FILE 015
//*           UNDER XA 2.1.7 DFP 2.2.3.  THIS IS A VERY STABLE      *   FILE 015
//*           MOD.  HAS NOT CHANGE SIZE OR LOCATION IN YEARS.       *   FILE 015
//*           LAST CHANGE WAS A "DISPLACEMEMNT" CHANGE WHEN SIZE    *   FILE 015
//*           OF MODULE WAS CHANGED.                                *   FILE 015
//*                                                                 *   FILE 015
//*           MEMBER                     DESCRIPTION                *   FILE 015
//*           $JCL           JCL USED TO CREATE THIS FILE.          *   FILE 015
//*           $DSCLAIM       STANDARD CYA DISCLAIMER                *   FILE 015
//*           $README        THIS STUFF                             *   FILE 015
//*           #RESTORE       HELP FOR RESTORE EDIT MACRO.           *   FILE 015
//*           #TRAP          HELP FOR TRAP EDIT MACRO.              *   FILE 015
//*           #VPS           HELP FOR VPS  EDIT MACRO.              *   FILE 015
//*           ACF2INQ        ASM SUBROUTINE TO RETURN ACF2 UID      *   FILE 015
//*                          STRING TO A REQUESTING CICS            *   FILE 015
//*                          TRANSACTION.                           *   FILE 015
//*           ACF2VALD       ASM PGM THAT DOES A RESOURCE           *   FILE 015
//*                          VALIDATION FROM BATCH OR TSO.  CAN     *   FILE 015
//*                          BE USED TO CONTROL POWERFUL TSO CP'S   *   FILE 015
//*                          LIKE SPY, QUEUE, ETC. OR TO CONTROL    *   FILE 015
//*                          BATCH ACCESS TO CRITICAL RESOURCES.    *   FILE 015
//*           ASKUID         ASM SUBROUTINE TO RETURN ACF2 UID      *   FILE 015
//*                          STRING TO AS A PDF DIALOG VARIABLE.    *   FILE 015
//*           CLIP           ASM PGM RUNS AS A STARTED TASK.        *   FILE 015
//*                          USED TO RELABEL OR INSPECT DASD FROM   *   FILE 015
//*                          A CONSOLE. RUNS OK WITH DSF REL9.      *   FILE 015
//*           DYN#C1         PDF CLIST TO INVOKE DYNASOFT PRODUCT   *   FILE 015
//*           DYN#P1         PRIMARY DYNAPLAN PANEL                 *   FILE 015
//*           DYN#T1         FIRST PANEL OF PROPOSED TUTORIAL       *   FILE 015
//*                          SERIES, WOULD ALSO BE A SELECTABLE     *   FILE 015
//*                          OPTION OF DYN#P1.                      *   FILE 015
//*           DYNASEND       JCL USED TO CREATE THIS FILE           *   FILE 015
//*           DYNM00         PDF MESSAGE MEMBER                     *   FILE 015
//*           GDGMOD         VERY USEFUL MOD TO SIMPLIFY            *   FILE 015
//*                          RESTARTING JOBS THAT USE GDG'S.        *   FILE 015
//*           IEEMB846       SOURCE FOR TSO ACCOUNTING TABLE.       *   FILE 015
//*           IEEPK860       SAMPLE INPUT TO CONSOLE PFK MOD.       *   FILE 015
//*           ISPTCM         SOURCE FOR ISPF ACCOUNTING TABLE       *   FILE 015
//*           ISR*PRIM       SAMPLE PRIMARY PANEL USED TO INVOKE    *   FILE 015
//*                          OPTION "DYNA".  KIND OF NEAT AS IT'S   *   FILE 015
//*                          SCROLLABLE IN FOUR DIRECTIONS.         *   FILE 015
//*           JCLJES4        JCL TO ASM + LINK JES EXIT 4           *   FILE 015
//*           JCLJES5        JCL TO ASM + LINK JES EXIT 5           *   FILE 015
//*           JESXIT5D       ADD $D'JOB**** COMMAND TO JES2.        *   FILE 015
//*           JES2XIT4       MOD TO ALL DSN= ON SETUP CARDS IN JES  *   FILE 015
//*                          MAKES IT MUCH EASIER TO PULL TAPES     *   FILE 015
//*                          FOR PRODUCTION JOBS. HAS SOME SITE     *   FILE 015
//*                          DEPENDENT CODE IN IT.                  *   FILE 015
//*           PRIMDOWN       SAMPLE PRIM DOWN PANEL                 *   FILE 015
//*           PRIMLEFT       SAMPLE PRIM LEFT PANEL                 *   FILE 015
//*           PRIMRGHT       SAMPLE PRIM RGHT PANEL                 *   FILE 015
//*           PRIMUP         SAMPLE PRIM UP PANEL                   *   FILE 015
//*           RESTORE        EDIT MACRO.  RELOADS LAST SAVED COPY   *   FILE 015
//*                          OF CURRENT MEMBER.  FASTER THAN DOING  *   FILE 015
//*                          A CANCEL AND SELECTING MEMBER OVER     *   FILE 015
//*                          AGAIN.                                 *   FILE 015
//*           SMFPRM00       SAMPLE SMF PARMS.  NOTE ATE DETAIL     *   FILE 015
//*                          MUST BE CODED FOR TCB, IO, ECT. TO     *   FILE 015
//*                          BE RECORDED IN SMF32.                  *   FILE 015
//*           SMF32SAS       SAS PGM TO ANALYSIS SMF32 RECORDS.     *   FILE 015
//*           SMPEIEE        SAMPLE SMPEJCL TO INSTALL IEEMB846     *   FILE 015
//*           SMPEPFK        SAMPLE SMPEJCL TO INSTALL CONSOLE      *   FILE 015
//*                          PFK MOD.                               *   FILE 015
//*           SMPETCM        SAMPLE SMPEJCL TO INSTALL ISPTCM       *   FILE 015
//*           SWTSO          SOURCE CODE TO SMF FRONT END PGM.      *   FILE 015
//*                          THIS IS A GENERAL PURPOSE PGM WHICH    *   FILE 015
//*                          SETS UP THE SMF32 ENVIRONMENT.         *   FILE 015
//*                          BECAUSE OF INTERNAL WB STANDARDS A     *   FILE 015
//*                          LMODLIB DD STATEMENT IS REQUIRED.      *   FILE 015
//*                          THE CODE COULD VERY EASILY BE ADDED    *   FILE 015
//*                          TO DYNAPLAN OR THE FRONTEND PGM        *   FILE 015
//*                          SUPPLIED AS A USER OPTION.  THE SVC    *   FILE 015
//*                          STARTS AND STOPS SMF32 ACCOUNTING.     *   FILE 015
//*           TRAP           EDIT MACRO.  WILL TRAP THE OUTPUT OF   *   FILE 015
//*                          A TSO CP AND PLACE IT AT THE BOTTOM    *   FILE 015
//*                          OF THE CURRENT EDIT DATASET.  GOOD     *   FILE 015
//*                          EXAMPLE OF SOME OF THE NEAT THINGS     *   FILE 015
//*                          YOU CAN DO UNDER TSO/E.  WILL ONLY     *   FILE 015
//*                          WORK WITH TSO CP'S THAT USE PUTLINE.   *   FILE 015
//*                          WILL NOT WORK WITH FULLSCREEN          *   FILE 015
//*                          TPUT'S.                                *   FILE 015
//*           VPS            EDIT MACRO.  QUICK WAY TO GET A        *   FILE 015
//*                          VPSPRINT OF CURRENT EDIT DATA.  NOTE:  *   FILE 015
//*                          DOES A SAVE FIRST.  THIS TECHNIQUE     *   FILE 015
//*                          COULD BE USED FOR ANY TSOCP OR         *   FILE 015
//*                          UTILITY.                               *   FILE 015
//*                                                                 *   FILE 015
//***FILE 016 IS FROM SCOTT AND WHITE HOSPITAL IN TEMPLE, TEXAS     *   FILE 016
//*           AND CONTAINS SOME OF THEIR UTILITIES.  SEE THE        *   FILE 016
//*           MEMBER CALLED $$$$$DOC FOR ADDITIONAL INFORMATION.    *   FILE 016
//*                                                                 *   FILE 016
//*           SWHJ2006     CONVERT UNIT=TAPE TO UNIT=3480 ON THE    *   FILE 016
//*                        FLY (JES2 EXIT 6)                        *   FILE 016
//*                                                                 *   FILE 016
//*           SWHUSER      CHEAP WAY TO CONTROL SDSF COMMANDS FOR   *   FILE 016
//*                        OPERATORS AND THE LIKE.  (SAMPLE SDSF    *   FILE 016
//*                        USER EXIT)                               *   FILE 016
//*                                                                 *   FILE 016
//*           PDFXIT15     WE HAVE ISPF/PDF V2R3M0, AND WE NOW      *   FILE 016
//*                        HAVE FORMAL EXITS.  WE USE EXIT 15 TO    *   FILE 016
//*                        CONTROL THE PRIMARY PANEL A USER GETS,   *   FILE 016
//*                        WHICH ALLOWED US TO CUT FROM 20 TO 3     *   FILE 016
//*                        THE NUMBER OF TSO LOGON PROCS WE USE.    *   FILE 016
//*                                                                 *   FILE 016
//*           *=AT SIGN    BLOCK LETTER MACRO USED IN ABOVE         *   FILE 016
//*                        MODULES.                                 *   FILE 016
//*                                                                 *   FILE 016
//***FILE 017 IS A COPY OF THE TSO CP CALLED LISTDD FROM FIREMAN'S  *   FILE 017
//*           FUND OF CALIFORNIA.  THIS CP WILL LIST ALLOCATION     *   FILE 017
//*           INFORMATION SORTED BY DDNAME.  SEE THE CODE FOR       *   FILE 017
//*           ADDITIONAL INFORMATION                                *   FILE 017
//*                                                                 *   FILE 017
//***FILE 018 IS THE DOCUMENTATION FROM CONRAIL FOR THEIR PROGRAM   *   FILE 018
//*           CALLED TSUPDATE WHICH IS CONTAINED IN LOAD MODULE     *   FILE 018
//*           FORM IN FILE 035 OF THIS TAPE.  THIS IS A PROGRAM     *   FILE 018
//*           WHICH IS A VERY FLEXIBLE,  DYNAMIC MASS CHANGE PDS    *   FILE 018
//*           TO MANIPULATE PDS'S.  UNFORTUNATELY THERE IS NO       *   FILE 018
//*           SOURCE AVAILABLE.  YOU WILL FIND IF YOU EXECUTE THE   *   FILE 018
//*           CODE THAT IT IS A PROPRIETARY PROGRAM FROM CONRAIL    *   FILE 018
//*           BUT THEY HAVE GIVEN PERMISSION THAT IT BE PUT         *   FILE 018
//*           ON THIS TAPE.  THIS FILE IS 133 X 32718 FBA.          *   FILE 018
//*                                                                 *   FILE 018
//***FILE 019 IS FROM JOHN HOOPER OF FOOD LION INCORPORATED IN      *   FILE 019
//*           SALISBURY, NORTH CAROLINA.  THIS FILE CONTAINS A      *   FILE 019
//*           COLLECTION OF THEIR UTILITIES.                        *   FILE 019
//*                                                                 *   FILE 019
//*           email:   jvh@interpath.com                            *   FILE 019
//*                                                                 *   FILE 019
//*                       FOOD LION UTILITIES                       *   FILE 019
//*                                                                 *   FILE 019
//*    THIS DATASET CONTAINS SEVERAL UTILITY PROGRAMS WHICH         *   FILE 019
//*    MAY BE OF GENERAL INTEREST TO OTHER INSTALLATIONS.  THEY     *   FILE 019
//*    ARE, OF COURSE, AVAILABLE ON AN AS-IS CONDITION WITH         *   FILE 019
//*    THE USUAL DISCLAIMER.  THEY ALL WORK IN OUR CURRENT          *   FILE 019
//*    OS/390 1.2 AND DFSMS 1.3 ENVIRONMENT.  THEY SHOULD ALL       *   FILE 019
//*    WORK ON ANY LEVEL OF ESA SYSTEM.  SOME MAY NOT WORK ON       *   FILE 019
//*    XA OR EARLIER SYSTEMS.                                       *   FILE 019
//*                                                                 *   FILE 019
//*    EACH UTILITY PROGRAM HAS AN ASSOCIATED MEMBER OF A           *   FILE 019
//*    SIMILAR NAME STARTING WITH A '$' TO PROVIDE                  *   FILE 019
//*    DOCUMENTATION FOR THAT UTILITY.  THERE ARE ALSO MEMBERS      *   FILE 019
//*    STARTING WITH A '@' WHICH ARE EXAMPLES OF WAYS TO            *   FILE 019
//*    EXECUTE THOSE UTILITIES.  READ THE DOCUMENTATION             *   FILE 019
//*    CAREFULLY TO DETERMINE THE UTILITY'S APPLICABILITY TO        *   FILE 019
//*    YOUR ENVIRONMENT.                                            *   FILE 019
//*                                                                 *   FILE 019
//*    GOOD LUCK!                                                   *   FILE 019
//*                                                                 *   FILE 019
//*    1)  BLKSCAN                                                  *   FILE 019
//*                                                                 *   FILE 019
//*        THIS PROGRAM WILL SEARCH EACH INDIVIDUAL MEMBER OF A     *   FILE 019
//*        PARTITIONED DATA SET CONTAINING JCL FOR SPECIFIED        *   FILE 019
//*        BLOCK SIZES.  IF ONE IS FOUND, THE JOBNAME, STEPNAME,    *   FILE 019
//*        PROGRAM NAME, DDNAME AND BLOCKSIZE WILL BE LISTED.       *   FILE 019
//*        IT DOES NOT HANDLE CATALOGED PROCEDURES OR INCLUDE       *   FILE 019
//*        STATEMENTS.  THE REPORT CAN BE USED TO DETECT            *   FILE 019
//*        IMPROPERLY SPECIFIED BLOCK SIZES.  OUR LOCAL STANDARD    *   FILE 019
//*        IS TO ALLOW THE SYSTEM TO SET THE BLOCKSIZE OF THE       *   FILE 019
//*        OUTPUT DATASET USING THE SYSTEM DETERMINED BLOCKSIZE     *   FILE 019
//*        FACILITY OF DFP VERSION 3.  THIS REPORT ALLOWS US TO     *   FILE 019
//*        SEE BOTH THE POORLY SPECIFIED BLOCKSIZES AS WELL AS      *   FILE 019
//*        THOSE JOBS WHICH NEED CHANGING TO ALLOW THE SYSTEM TO    *   FILE 019
//*        SET THE APPROPRIATE BLOCKSIZE.                           *   FILE 019
//*                                                                 *   FILE 019
//*    2)  CHECKPVT                                                 *   FILE 019
//*                                                                 *   FILE 019
//*        THIS PROGRAM IS DESIGNED TO RUN IMMEDIATELY AFTER AN     *   FILE 019
//*        IPL TO CHECK THE SIZE OF THE PRIVATE AREA BELOW THE      *   FILE 019
//*        16 MEG LINE.  SOFTWARE MAINTENANCE OR IMPLEMENTATION     *   FILE 019
//*        OF NEW PRODUCTS MAY SHIFT THE PRIVATE AREA SIZE DOWN     *   FILE 019
//*        AN EXTRA MEG IN ESA.  THE PARM VALUE ENTERED             *   FILE 019
//*        SPECIFIES THE MINIMUM SIZE OF THE PRIVATE AREA IN 'K'    *   FILE 019
//*        UNITS THAT IS EXPECTED.  IF THE AREA IS SMALLER THAN     *   FILE 019
//*        THIS VALUE, A NON-ROLL DELETABLE MESSAGE WILL BE         *   FILE 019
//*        WRITTEN TO THE SYSTEM CONSOLE.                           *   FILE 019
//*                                                                 *   FILE 019
//*    3)  COMMAND                                                  *   FILE 019
//*                                                                 *   FILE 019
//*        THIS PROGRAM WILL EXECUTE MVS OR JES2 COMMANDS WITHIN    *   FILE 019
//*        A BATCH JOB OR STARTED TASK.  THE COMMAND(S) CAN BE      *   FILE 019
//*        REQUESTED FROM THE PARM PARAMETER ON THE EXECUTE CARD    *   FILE 019
//*        OR FROM AN OPTIONAL PARAMETER FILE DEFINED BY THE        *   FILE 019
//*        DDNAME IEFRDER OR BOTH THE PARM AND THE FILE.  IF        *   FILE 019
//*        COMMANDS ARE ENTERED ON BOTH THE PARM AND THE OPTIONAL   *   FILE 019
//*        IEFRDER FILE, THE COMMANDS IN THE PARM ARE EXECUTED      *   FILE 019
//*        FIRST.  BECAUSE MOST MVS AND JES2 COMMANDS MAY BE        *   FILE 019
//*        EXECUTED BY THIS PROGRAM, IT SHOULD BE PROTECTED BY      *   FILE 019
//*        YOUR SECURITY SYSTEM FROM UNAUTHORIZED USE.              *   FILE 019
//*                                                                 *   FILE 019
//*        MOST INSTALLATIONS HAVE A SIMILAR PROGRAM TO THIS OR     *   FILE 019
//*        HAVE AN AUTOMATED OPERATIONS SOFTWARE PRODUCT TO DO      *   FILE 019
//*        THE SAME THING.  WHAT MAKES THIS BATCH PROGRAM           *   FILE 019
//*        DIFFERENT FROM MOST IN-HOUSE PROGRAMS IS TWO INTERNAL    *   FILE 019
//*        COMMANDS:                                                *   FILE 019
//*                                                                 *   FILE 019
//*        DELAY=NNN   WHERE NNN IS THE NUMBER OF SECONDS TO WAIT   *   FILE 019
//*                                                                 *   FILE 019
//*        THIS WILL CAUSE THE PROGRAM TO WAIT THE SPECIFIED        *   FILE 019
//*        NUMBER OF SECONDS BEFORE ISSUING THE NEXT COMMAND.       *   FILE 019
//*        THIS MAY GIVE TIME FOR THE PREVIOUS COMMAND TO BE        *   FILE 019
//*        COMPLETED.                                               *   FILE 019
//*                                                                 *   FILE 019
//*         REPLY JOBNAME 'MESSAGE TEXT' 'REPLY TEXT'               *   FILE 019
//*                                                                 *   FILE 019
//*        THIS ALLOWS THE PROGRAM TO REPLY TO AN OUTSTANDING       *   FILE 019
//*        MESSAGE FOR A SPECIFIC JOB OR TASK WITHOUT KNOWING       *   FILE 019
//*        THE REPLY NUMBER.                                        *   FILE 019
//*                                                                 *   FILE 019
//*        BY USING A COMBINATION OF WAIT, REPLY, AND NORMAL MVS    *   FILE 019
//*        AND JES2 COMMANDS, WE ARE ABLE TO BRING DOWN OUR         *   FILE 019
//*        SYSTEM FOR IPL INCLUDING STOPPING ALL OF OUR STARTED     *   FILE 019
//*        TASKS (OTHER THAN JES2) AND ONLINE SYSTEMS IN A SMALL    *   FILE 019
//*        FRACTION OF THE TIME THAT IT USED TO TAKE.               *   FILE 019
//*                                                                 *   FILE 019
//*    4)  FLCACHE                                                  *   FILE 019
//*                                                                 *   FILE 019
//*        THIS PROGRAM IS DESIGNED TO ALLOW THE OPERATOR TO        *   FILE 019
//*        DISPLAY OR MODIFY THE 3990-3 CACHE SUBSYSTEM FROM THE    *   FILE 019
//*        MVS OPERATOR'S CONSOLE.  THE ONLY PROVIDED MEANS OF      *   FILE 019
//*        CONTROL FOR THE CACHE SUBSYSTEM IS EXECUTING THE IBM     *   FILE 019
//*        IDCAMS UTILITY AS A BATCH JOB AND THEN LOOKING AT THE    *   FILE 019
//*        OUTPUT TO DETERMINE THE RESULTS OR USING THE ISMF        *   FILE 019
//*        FACILITIES UNDER ISPF TO MAKE CHANGES.  THIS FLCACHE     *   FILE 019
//*        PROGRAM WILL ACCEPT 'SIMPLE' COMMANDS FROM THE           *   FILE 019
//*        CONSOLE AND GENERATE THE APPROPRIATE IDCAMS STATEMENT    *   FILE 019
//*        AND CALL IDCAMS INTERACTIVELY TO ACTUALLY PERFORM THE    *   FILE 019
//*        FUNCTION.  ALL MESSAGES FROM IDCAMS WILL BE DISPLAYED    *   FILE 019
//*        ON THE OPERATOR'S CONSOLE.                               *   FILE 019
//*                                                                 *   FILE 019
//*        WHEN ANY DEVICE ON THE 3990 CACHE SUBSYSTEM MUST BE      *   FILE 019
//*        ALTERED FROM THE CONSOLE, IT IS OFTEN BECAUSE OF A       *   FILE 019
//*        HARDWARE PROBLEM WHEN PROMPT ACTION MUST BE TAKEN.       *   FILE 019
//*        THE IBM PUBLICATION WHICH DESCRIBES THESE SPECIAL        *   FILE 019
//*        COMMANDS IS NOT ALWAYS EASY TO LOCATE OR UNDERSTAND.     *   FILE 019
//*        HOPEFULLY, THIS PROGRAM WILL MAKE THESE FUNCTIONS        *   FILE 019
//*        EASY TO PERFORM WHEN REQUIRED.  AS ALWAYS, TECHNICAL     *   FILE 019
//*        SUPPORT SHOULD BE INVOLVED ANY TIME THIS FACILITY IS     *   FILE 019
//*        USED TO ALTER THE STATUS OF THE SUBSYSTEM.               *   FILE 019
//*                                                                 *   FILE 019
//*    5)  FLSMFCAT                                                 *   FILE 019
//*                                                                 *   FILE 019
//*        THIS UTILITY IS INTENDED TO SHOW ICF CATALOG ACTIVITY    *   FILE 019
//*        AT A DATASET LEVEL.  IT IS DESIGNED PRIMARILY TO         *   FILE 019
//*        TRACK DOWN THE JOB OR USER THAT ALLOCATED, DELETED,      *   FILE 019
//*        OR RENAMED A SPECIFIC DATASET.  SINCE THIS ACTIVITY      *   FILE 019
//*        MAY HAVE BEEN OPENED AT THAT TIME, ONLY THE CATALOG      *   FILE 019
//*        ACTIVITY SMF RECORD HAS THE INFORMATION.                 *   FILE 019
//*                                                                 *   FILE 019
//*    6)  FLSMFDSN                                                 *   FILE 019
//*                                                                 *   FILE 019
//*        THIS UTILITY IS INTENDED TO LIST VSAM AND NONVSAM        *   FILE 019
//*        DATASET ACTIVITY FOR ALL BATCH JOBS, STARTED TASKS,      *   FILE 019
//*        AND TSO USERS ON THE MVS SYSTEM.  THIS PROGRAM CAN       *   FILE 019
//*        DISPLAY DATASETS WITH SMALL BLOCK SIZES OR DATASETS      *   FILE 019
//*        WITH THE HIGH I/O ACTIVITY TO PINPOINT AREAS NEEDING     *   FILE 019
//*        CLOSER EXAMINATION.  IT PROVIDES A FLEXIBLE SELECTION    *   FILE 019
//*        AND SORT MECHANISM TO TAILOR THE REPORT.  PROGRAM        *   FILE 019
//*        PERFORMANCE CAN BE SERIOUSLY HAMPERED BY HAVING TOO      *   FILE 019
//*        SMALL OF A BLOCKSIZE ON INPUT OR OUTPUT FILES.  EVEN     *   FILE 019
//*        USING THE SYSTEM DETERMINED BLOCKSIZE FACILITY OF DFP    *   FILE 019
//*        RELEASE 3 MAY NOT ALWAYS GIVE THE DESIRED RESULTS        *   FILE 019
//*        SINCE SOME PROGRAM PRODUCTS MAY OVERRIDE THAT VALUE.     *   FILE 019
//*        THE REPORTS FROM THIS UTILITY HAVE ALLOWED US TO         *   FILE 019
//*        SIGNIFICANTLY REDUCE THE RUN TIME OF SOME OF OUR         *   FILE 019
//*        CRITICAL BATCH JOBS BY JUST CORRECTING THE BLOCKSIZE     *   FILE 019
//*        SPECIFICATIONS.  ALL OF THE STANDARDS IN THE WORLD       *   FILE 019
//*        ARE NOT WORTH ANYTHING IF YOU DON'T ENFORCE THEIR        *   FILE 019
//*        USE.                                                     *   FILE 019
//*                                                                 *   FILE 019
//*    7)  FLSMFJOB                                                 *   FILE 019
//*                                                                 *   FILE 019
//*        THIS UTILITY IS INTENDED TO LIST JOB ACTIVITY AT THE     *   FILE 019
//*        STEP OR JOB LEVEL FOR ALL BATCH JOBS, STARTED TASKS,     *   FILE 019
//*        AND TSO USERS ON THE MVS SYSTEM.  IT PROVIDES A          *   FILE 019
//*        FLEXIBLE SELECTION AND SORT MECHANISM TO TAILOR THE      *   FILE 019
//*        REPORT.  THE REPORTS FROM THIS PROGRAM ALLOWED US TO     *   FILE 019
//*        DETERMINE OUR BIGGEST USERS OF SYSTEM RESOURCES SO       *   FILE 019
//*        THAT THE PROGRAMS COULD BE EXAMINED FOR WAYS TO          *   FILE 019
//*        OPTIMIZE THEIR CODE.  WE WERE ABLE TO CUT MANY HOURS     *   FILE 019
//*        A WEEK OF CPU TIME BY CLOSELY EXAMINING ONLY A FEW       *   FILE 019
//*        PROGRAMS FOR INEFFICIENT CODING TECHNIQUES.  THIS HAS    *   FILE 019
//*        ALLOWED US TO DELAY A PREVIOUSLY NEEDED PROCESSOR        *   FILE 019
//*        UPGRADE.                                                 *   FILE 019
//*                                                                 *   FILE 019
//*    8)  FLSMFSRT                                                 *   FILE 019
//*                                                                 *   FILE 019
//*        THIS UTILITY IS INTENDED TO LIST SORT ACTIVITY BASED     *   FILE 019
//*        UPON SMF RECORDS GENERATED BY THE SYNCSORT PRODUCT.      *   FILE 019
//*        IT PROVIDES A FLEXIBLE SELECTION AND SORT MECHANISM      *   FILE 019
//*        TO TAILOR THE REPORT.  THE REPORTS FROM THIS PROGRAM     *   FILE 019
//*        ALLOWS US TO MONITOR OUR LARGER SORTS SINCE DYNAMIC      *   FILE 019
//*        ALLOCATION OF SORTWORK DATASETS MASKS THE LARGER         *   FILE 019
//*        SORTS.                                                   *   FILE 019
//*                                                                 *   FILE 019
//*    9)  FLVOLLST                                                 *   FILE 019
//*                                                                 *   FILE 019
//*        THIS PROGRAM IS DESIGNED TO PRINT A REPORT LISTING ALL   *   FILE 019
//*        OF THE DATASETS ON A VOLUME BASED UPON INFORMATION       *   FILE 019
//*        FROM THE SYSTEM CATALOGS.  THIS LIST COULD BE CRITICAL   *   FILE 019
//*        IN CASE OF A DASD FAILURE WHICH DESTROYS THE VTOC ON     *   FILE 019
//*        THE VOLUME.  WITH VOLUME POOLING NOW AVAILABLE THROUGH   *   FILE 019
//*        THE USE OF DF/SMS AND OTHER PROGRAM PRODUCTS, IT IS      *   FILE 019
//*        NOT ALWAYS EASY TO DETERMINE THE DATASETS WHICH ARE ON   *   FILE 019
//*        A SPECIFIC VOLUME.                                       *   FILE 019
//*                                                                 *   FILE 019
//*        THE INPUT TO THIS PROGRAM MUST BE THE OUTPUT FROM AN     *   FILE 019
//*        IDCAMS LISTCAT COMMAND.  IT IS EXPECTED THAT AN          *   FILE 019
//*        IDCAMS 'LISTCAT VOL CAT(USER.CATALOG.NAME)' COMMAND      *   FILE 019
//*        WILL BE EXECUTED FOR EACH CATALOG IN THE SYSTEM.  THE    *   FILE 019
//*        CONTENTS OF THESE REPORTS CAN THEN BE PASSED TO THIS     *   FILE 019
//*        UTILITY PROGRAM TO PRODUCE THE REPORT BY VOLUME AND      *   FILE 019
//*        DATASET NAME.                                            *   FILE 019
//*                                                                 *   FILE 019
//*    10) MODLOOK                                                  *   FILE 019
//*                                                                 *   FILE 019
//*        THIS PROGRAM IS DESIGNED TO RUN AS A TSO COMMAND,        *   FILE 019
//*        STARTED TASK OR A BATCH JOB TO LOOK UP THE SELECTED      *   FILE 019
//*        MODULE(S) IN THE SYSTEM LINK LIST OR LINK PACK AREA.     *   FILE 019
//*        IF THE MODULE IS IN THE LINK LIST, THE LINK LIST         *   FILE 019
//*        LIBRARY NAME WILL BE DISPLAYED.  IF THE MODULE IS IN     *   FILE 019
//*        THE LINK PACK AREA, ITS ADDRESS WILL BE DISPLAYED        *   FILE 019
//*        ALONG WITH THE NAME OF THE RESIDENT AREA IN WHICH IT     *   FILE 019
//*        IS LOCATED SUCH AS PLPA, FLPA, ECSA, ETC.  THE FIRST     *   FILE 019
//*        PART OF EACH MODULE IS DISPLAYED ALSO SINCE IT CAN       *   FILE 019
//*        CONTAIN DATE, TIME, OR COPYRIGHT INFORMATION WHICH       *   FILE 019
//*        MAY BE OF INTEREST.                                      *   FILE 019
//*                                                                 *   FILE 019
//*        WITH MANY LIBRARIES NOW IN THE SYSTEM LINK LIST, IT      *   FILE 019
//*        MAY NOT ALWAYS BE APPARENT WHICH DATASET CONTAINS        *   FILE 019
//*        WHICH PROGRAM OR EVEN MORE IMPORTANTLY, IT MAY BE        *   FILE 019
//*        DIFFICULT TO DETERMINE WHICH LIBRARY CONTAINS A          *   FILE 019
//*        MODULE IF DUPLICATE MODULE NAMES EXIST.                  *   FILE 019
//*                                                                 *   FILE 019
//*    11) SMAP                                                     *   FILE 019
//*                                                                 *   FILE 019
//*        THIS PROGRAM IS DESIGNED TO PRINT THE STARTING           *   FILE 019
//*        ADDRESS, ENDING ADDRESS, AND SIZE OF EACH OF THE         *   FILE 019
//*        MAIN STORAGE AREAS IN THE MVS SYSTEM.  THIS              *   FILE 019
//*        INFORMATION CAN BE DISPLAYED USING MOST OF THE           *   FILE 019
//*        POPULAR MONITORS CURRENTLY AVAILABLE, BUT NOT            *   FILE 019
//*        EVERYONE HAS ONE, PLUS THIS PROGRAM CAN RUN AS A         *   FILE 019
//*        BATCH JOB PRODUCING A HARDCOPY REPORT.                   *   FILE 019
//*                                                                 *   FILE 019
//*    12) JES$LF                                                   *   FILE 019
//*                                                                 *   FILE 019
//*        THIS JES2 EXIT PROGRAM IS DESIGNED TO PROCESS THE        *   FILE 019
//*        $LF COMMAND WHEN ENTERED.  IT WILL GIVE DETAILED         *   FILE 019
//*        INFORMATION AT THE OUTPUT GROUP LEVEL FOR JOBS           *   FILE 019
//*        AWAITING PRINT.  IT IS, IN EFFECT, A DETAILED            *   FILE 019
//*        VERSION OF THE $DF COMMAND.                              *   FILE 019
//*                                                                 *   FILE 019
//*                           DISCLAIMER                            *   FILE 019
//*                                                                 *   FILE 019
//*      THE AUTHORS INCLUDING FOOD LION, ITS OFFICERS,             *   FILE 019
//*      DIRECTORS, AND EMPLOYEES MAKE NO REPRESENTATION OR         *   FILE 019
//*      WARRANTY OF ANY KIND WHATSOEVER, INCLUDING, BUT NOT        *   FILE 019
//*      LIMITED TO, REPRESENTATIONS OR WARRANTIES, EXPRESS OR      *   FILE 019
//*      IMPLIED, OR MERCHANTABILITY, FITNESS FOR USE OR            *   FILE 019
//*      PURPOSE, ACCURACY OR COMPLETENESS OF PROCESSES,            *   FILE 019
//*      PROCEDURES, DESIGNS, DEFINITIONS, INSTRUCTIONS,            *   FILE 019
//*      INFORMATION, OR FUNCTIONING OF ANY PROGRAMS, DOCUMENTS,    *   FILE 019
//*      OR RELATED MATERIALS; THE AUTHORS FURTHER EXPRESSLY        *   FILE 019
//*      DISCLAIM ANY KNOWLEDGE OF PURPOSE FOR WHICH THESE          *   FILE 019
//*      PROGRAMS, DOCUMENTS, OR RELATED MATERIAL MAY BE            *   FILE 019
//*      UTILIZED OR THEIR APPLICABILITY FOR SUCH USE, NOR SHALL    *   FILE 019
//*      THE FACT OF MAKING THEM AVAILABLE CONSTITUTE ANY SUCH      *   FILE 019
//*      REPRESENTATION, WARRANTY, OR KNOWLEDGE; NOR DO THE         *   FILE 019
//*      AUTHORS ASSUME ANY LIABILITY, RESPONSIBILITY, OR           *   FILE 019
//*      OBLIGATION ARISING FROM THE USE OR MALFUNCTIONING OF OF    *   FILE 019
//*      THESE COMPUTER PROGRAMS, DOCUMENTATION, OR RELATED         *   FILE 019
//*      MATERIALS.                                                 *   FILE 019
//*                                                                 *   FILE 019
//***FILE 020 IS A COLLECTION OF VERY HANDY TSO/E REXX EXECS        *   FILE 020
//*           THAT WAS CONTRIBUTED ANONYMOUSLY.  THESE REXX         *   FILE 020
//*           EXECS DO VARIOUS FUNCTIONS, FROM SIMPLE TO HIGHLY     *   FILE 020
//*           SOPHISTICATED ONES.  THIS FILE IS WORTH A GOOD        *   FILE 020
//*           LOOK IF YOU HAVE TSO/E REXX OR WANT TO LEARN MORE     *   FILE 020
//*           ABOUT WHAT REXX CAN DO FOR YOU.                       *   FILE 020
//*                                                                 *   FILE 020
//***FILE 021 IS FROM BELL AND HOWELL AND COMPANY OF EVANSTON,      *   FILE 021
//*           ILLINOIS, AND CONTAINS A COPY OF SOME OF THEIR        *   FILE 021
//*           UTILITIES.  THIS FILE IS IN IEBUPDTE SYSIN FORMAT,    *   FILE 021
//*           SEE THE MEMBER CALLED $$DOC FOR ADDITIONAL            *   FILE 021
//*           INFORMATION                                           *   FILE 021
//*                                                                 *   FILE 021
//*           SOURCE        FUNCTION                                *   FILE 021
//*                                                                 *   FILE 021
//*           IBHDRPLY       AUTOMATIC REPLY PROGRAM                *   FILE 021
//*            IBHWTORG      GET REPLIES                            *   FILE 021
//*            ENTER         IBHDRPLY MACRO                         *   FILE 021
//*            LEAVE         IBHDRPLY MACRO                         *   FILE 021
//*           OCX            EXECUTE OPERATOR COMMANDS              *   FILE 021
//*            $EPILOG       OCX MACRO                              *   FILE 021
//*            $PROLOG       OCX MACRO                              *   FILE 021
//*            $REG          OCX MACRO                              *   FILE 021
//*            $STCK         OCX MACRO                              *   FILE 021
//*           IBHLSPAC       LIST DASD VOLUME SPACE                 *   FILE 021
//*                          INFORMATION                            *   FILE 021
//*           IBHJ2001       JES2 EXIT(1.3.4/1.3.6)                 *   FILE 021
//*                          CONTROL XEROX 2700 PRINTER             *   FILE 021
//*           IBHJ2005       $DP COMMAND TO LIST JOES,              *   FILE 021
//*                          AND ENHANCED $DA COMMAND.              *   FILE 021
//*           IBHJ2015       JES2 EXIT(1.3.4/1.3.6)                 *   FILE 021
//*                          INITIAL FONT CONTROL ON                *   FILE 021
//*                          XEROX 9700                             *   FILE 021
//*                          PRINTER SUBSYSTEM.                     *   FILE 021
//*           IBHJESPM       SAMPLE JES2 PARMS FOR THE              *   FILE 021
//*                          JES2 EXIT SUPPLIED                     *   FILE 021
//*                          SUPPLIED IN THIS PDS.                  *   FILE 021
//*                          (JES2 1.3.4 / 1.3.6)                   *   FILE 021
//*                                                                 *   FILE 021
//***FILE 022 IS FROM MR MARK HEDGES, FORMERLY OF ADRIA             *   FILE 022
//*           LABORATORIES IN DUBLIN OHIO.  THIS FILE CONTAINS      *   FILE 022
//*           SEVERAL OF THEIR UTILITIES.  THIS FILE IS IN          *   FILE 022
//*           IEBUPDTE SYSIN FORMAT.  FOR ADDITIONAL INFORMATION    *   FILE 022
//*           SEE THE MEMBER CALLED $$DOC.                          *   FILE 022
//*                                                                 *   FILE 022
//*      MARK HEDGES IS NO LONGER AT ADRIA LABORATORIES...          *   FILE 022
//*                                                                 *   FILE 022
//*           CURRENT ADDRESS:  MARK HEDGES                         *   FILE 022
//*                             11951 SENTINEL POINT COURT          *   FILE 022
//*                             RESTON, VA  22091                   *   FILE 022
//*           CURRENT PHONE:    (703) 758-8825                      *   FILE 022
//*                                                                 *   FILE 022
//*           current email:    mark.hedges@landmark.com            *   FILE 022
//*                                                                 *   FILE 022
//*           -ASSEMBLER-                                           *   FILE 022
//*            ADRMCLVL   DETERMINES LEVEL OF DFDSS RUNNING IN      *   FILE 022
//*                       YOUR SYSTEM                               *   FILE 022
//*            CATSTRIP   EXAMINE OUTPUT OF LISTCAT FOR             *   FILE 022
//*                       ICF-CATALOGS - USED IN CONJUNCTION WITH   *   FILE 022
//*                       SASCATS                                   *   FILE 022
//*            DATERC     SETS RRC BASED ON DATE-OF-WEEK            *   FILE 022
//*            DI215      DISPLAY INITIATORS FOR JES 2.1.5/JES      *   FILE 022
//*                       2.1.7                                     *   FILE 022
//*            ICHRIN03   MODULE USED BY RACF IN CREATING THE       *   FILE 022
//*                       STARTED TASK TABLE - THIS IS A MACRO      *   FILE 022
//*                       WITH EXAMPLES TO CODE THIS TABLE          *   FILE 022
//*            IDMSLOGS   PROCESSES IDMS/R SHUTDOWN STATS           *   FILE 022
//*            JOBSTAT    DETERMINES IF JOB/STC/TSO IS CURRENTLY    *   FILE 022
//*                       RUNNING                                   *   FILE 022
//*            MRGJNLOG   MERGES IDMS/R JOURNALS AND LOGS TO        *   FILE 022
//*                       TAPE FILES - NICE                         *   FILE 022
//*            PUTCVRL    PRINT COVER LETTERS FROM SEQUENTIAL PTF   *   FILE 022
//*                       TAPES, NOT TOO THRILLING                  *   FILE 022
//*            RACFPGM    TO GENERATE RACF PROTECTION FOR PROGRAMS  *   FILE 022
//*                       - FOR ALL YOU FOLKS PRE-RACF 1.7          *   FILE 022
//*            RACFST     PROGRAM TO DISPLAY RACF STATUS            *   FILE 022
//*                       INFORMATION:  DSNS, FLAGS, STOR - NICE    *   FILE 022
//*                       IF YOU WANT TO KNOW WHERE ALL RACF 1.7    *   FILE 022
//*                       DATASETS ARE                              *   FILE 022
//*            RESCUE     CREATES A JOB STREAM TO CREATE A          *   FILE 022
//*                       ONE-PACK-SYSTEM - INCLUDES SPOOL, CKPT,   *   FILE 022
//*                       PAGE DATASETS, RACF TOO                   *   FILE 022
//*            ROUTDESC   EXAMPLE OF ROUTING AND DESCRIPTOR CODES   *   FILE 022
//*                       FOR WTO/WTOR'S                            *   FILE 022
//*            SMF5       PROCESSES SMF TYPE 5 RECORDS              *   FILE 022
//*            SMPLIST    PROCESSES OUTPUT OF AN SMP/E 'LIST        *   FILE 022
//*                       FUNCTIONS'                                *   FILE 022
//*            SYSLOG     PROCESSES MVS/XA SYSLOGS FOR SCANNING     *   FILE 022
//*                       AND REPORTING                             *   FILE 022
//*            SYSLOC     USED IN CONJUNCTION WITH SYSLOG:          *   FILE 022
//*                       PROCESSES GDG'S                           *   FILE 022
//*            SYSTAT     EVERYTHING AN MVS SYSTEMS PROGRAMMER      *   FILE 022
//*                       WANTS TO KNOW                             *   FILE 022
//*                       - MY BEST CODE, MUST BE AT LEAST MVS/XA   *   FILE 022
//*                         2.1.3                                   *   FILE 022
//*                       - GIVES IPL INFO, CONTROL BLOCK INFO      *   FILE 022
//*                         (ADDRESSES), MAPS STORAGE AND DRAWS     *   FILE 022
//*                         MAP OF VIRTUAL STORAGE, LISTS ALL APF   *   FILE 022
//*                         DATASETS AND ISSUES A 'LOCATE' TO       *   FILE 022
//*                         CHECK CATALOG STATUS.                   *   FILE 022
//*                       - RUNS AS BATCH/TSO/STC                   *   FILE 022
//*            UCBSVC78   PARM INPUT THAT WRITES 1 LINER ON         *   FILE 022
//*                       AVAILABLE SPACE                           *   FILE 022
//*            UCBSCAN    SCANS ALL SYSTEM UCB'S AND GIVES          *   FILE 022
//*                       'CHANNEL-PATHS'                           *   FILE 022
//*                       - RUNS UNDER TSO, AS A BATCH JOB, OR      *   FILE 022
//*                         STC                                     *   FILE 022
//*                       - GIVES UCB INFO, ISSUES LSPACE SVC       *   FILE 022
//*                       - HAS CLIST.  EASY TO RUN AS STC TO       *   FILE 022
//*                         ISSUE EVERY 8 HRS                       *   FILE 022
//*            UCBTYPES   USED BY MEM(UCBSCAN) TO DETERMINE         *   FILE 022
//*                       DEVICE TYPES                              *   FILE 022
//*            WTONROLL   PROGRAM TO ISSUE WTO'S TO CONSOLE W/O     *   FILE 022
//*                       ROLLING THEM                              *   FILE 022
//*           -SAS 5.16-                                            *   FILE 022
//*            SASCATS    READS OUTPUT OF MEM(CATSTRI#) AND SENDS   *   FILE 022
//*                       IT THROUGH SAS                            *   FILE 022
//*                       - USES A 'LISTCAT ALL' AND CP 'VTOC' AS   *   FILE 022
//*                         INPUT TO                                *   FILE 022
//*                       - GIVE STATS ON ALL VSAM, NONVSAM, AND    *   FILE 022
//*                         ICF-CATALOG INFO                        *   FILE 022
//*            SASDDDEF   A LOGICAL LISTING OF DDDEFS FROM SMP/E    *   FILE 022
//*                       FOR ANY ZONE                              *   FILE 022
//*            SASSMP     READS OUTPUT OF 'LIST FUNCTIONS'          *   FILE 022
//*                       COMMAND, PROCESSING FMIDS                 *   FILE 022
//*            SASSMP     SAS, TO PROCESSES NON-APPLIED SYSMODS     *   FILE 022
//*                       IN ANY CSI ZONE                           *   FILE 022
//*            SASTMS     PROCESSES OUTPUT OF 'TMSGRW' INTO SAS     *   FILE 022
//*                       FOR REPORTING                             *   FILE 022
//*            SASVTOC    SAS/GRAPH TO PROCESS ALL VTOCS BY         *   FILE 022
//*                       DSORG, NOTING FREE SPACE                  *   FILE 022
//*            SMPELIST   PROCESSES OUTPUT '//SMPELIST' FOR A       *   FILE 022
//*                       'LIST FUNCTIONS'                          *   FILE 022
//*            TMSMACRO   PROCESSES OUTPUT OF TMC FROM TMCGRW PGM   *   FILE 022
//*            SASSMF30   PROCESS SMF TYPE 30                       *   FILE 022
//*            - CLIST -                                            *   FILE 022
//*            CLISTSOE   DISPLAYS ALL NEW FUNCTIONS UNDER TSO/E 3  *   FILE 022
//*            SYSTAT$    PROCESS SYSTAT PGM                        *   FILE 022
//*            UCBSCAN$   PROCESS UCBSCAN ROUTINE                   *   FILE 022
//*            ADRMCLVL$  PROCESS DFDSS LEVEL                       *   FILE 022
//*            - ISPF V2.3 PANELS -                                 *   FILE 022
//*            SYSLOG$$   FOR SYSLOG$ CLIST                         *   FILE 022
//*            - ISREDIT MACROS -                                   *   FILE 022
//*            $AMODGEN    BROWSE AMODGEN                           *   FILE 022
//*            $ASMHCL     BUILD ASSEMBLE AND LINK JCL AROUND       *   FILE 022
//*                        SOURCE CODE, OR FOREGROUND               *   FILE 022
//*            $BROWSE     BROWSE FROM EDIT SESSION                 *   FILE 022
//*            $COPY       USE ADVANCED LMCOPY FUNCTION             *   FILE 022
//*            $EXEC       ISSUE THE TSO 'EXEC' COMMAND FOR         *   FILE 022
//*                        CURRENT CLIST ONE IS EDI                 *   FILE 022
//*            $GENER      EXEC IEBGENER                            *   FILE 022
//*            $HASPSRC    BROWSE 'SYS1.HASPSRC'                    *   FILE 022
//*            $IEHMAP     MAP A VOLUME                             *   FILE 022
//*            $JOB        PUT A JOBCARD AND DOCUMENTATION IN       *   FILE 022
//*                        FRONT OF JCL                             *   FILE 022
//*            $JUL        GET TODAY'S DATE                         *   FILE 022
//*            $LC         PERFORM LISTCAT                          *   FILE 022
//*            $LD         PERFORM LISTD ON CURRENT DATASET         *   FILE 022
//*            $LDI        PERFORM LISTDSI ON CURRENT DATASET       *   FILE 022
//*            $LISTLVL    PERFORM LISTCAT LEVEL                    *   FILE 022
//*            $LM         LIST ALL MEMBERS: PGM=LM                 *   FILE 022
//*            $LS         LIST FREE SPACE: PGM=LS; PGM=CLEAR       *   FILE 022
//*            $MACLIB     BROWSE MACLIB                            *   FILE 022
//*            $PEND       PUT A PEND AND EXEC AT THE END OF A      *   FILE 022
//*                        PROC                                     *   FILE 022
//*            $PRINT      USE PRINTOFF TO PRINT CURRENT MEMBER     *   FILE 022
//*            $PROCLIB    EDIT SYS1.PROCLIB                        *   FILE 022
//*            $RECEIVE    BUILD SMP/E JCL TO RECEIVE A             *   FILE 022
//*                        PRODUCT/MAINT                            *   FILE 022
//*            $SPACE      DETERMINE DISK/TAPE BLKSIZE BASED ON     *   FILE 022
//*                        LRECL                                    *   FILE 022
//*                                                                 *   FILE 022
//***FILE 023 IS FROM MR SCOTT C DIMOND OF NOVA IN ALBERTA          *   FILE 023
//*           CANADA AND CONTAINS A COPY OF ALTJES (ALTERNATE       *   FILE 023
//*           JES2 TSO LOGON).  THIS FILE IS IN IEBUPDTE SYSIN      *   FILE 023
//*           FORMAT.  FOR ADDITIONAL INFORMATION SEE THE           *   FILE 023
//*           MEMBER CALLED $$DOC.                                  *   FILE 023
//*                                                                 *   FILE 023
//*           THIS EXIT AND MODIFICATION WILL ALLOW A TSO USER TO   *   FILE 023
//*           LOGON TO AN ALTERNATE JES2 (SECONDARY JES2 RUNNING    *   FILE 023
//*           UNDER A PRIMARY JES2).  THE TSO LOGON PROCESS IS      *   FILE 023
//*           IDENTICAL TO THE NORMAL PROCESSING PERFORMED BY A     *   FILE 023
//*           PRIMARY JES2 (UNLIKE OTHER TECHNIQUES WHICH START A   *   FILE 023
//*           TSO SESSION UNDER A DIFFERENT NAME ON THE SECONDARY   *   FILE 023
//*           JES2 (I.E. SYSLOG)).                                  *   FILE 023
//*                                                                 *   FILE 023
//*           THE TSO ADDRESS SPACE IS STARTED BY THE SPECIFIED     *   FILE 023
//*           SECONDARY JES2 AND ALL TSO FUNCTIONS REQUESTING JES2  *   FILE 023
//*           SERVICES (SUBMIT  STATUS  OUTPUT  CANCEL  ISPF 3.8    *   FILE 023
//*           ETC.) ARE HANDLED BY THE SECONDARY JES2.  JOBS        *   FILE 023
//*           SUBMITTED FROM A TSO SESSION RUNNING UNDER A          *   FILE 023
//*           SECONDARY JES2, WILL RUN UNDER THE SAME SECONDARY     *   FILE 023
//*           JES2.                                                 *   FILE 023
//*                                                                 *   FILE 023
//***FILE 024 IS A COPY OF XFERDUMP FROM MCI.  THIS FILE            *   FILE 024
//*           IS IN IEBUPDTE SYSIN FORMAT.  FOR ADDITIONAL          *   FILE 024
//*           INFORMATION SEE THE MEMBER CALLED $$DOC.              *   FILE 024
//*                                                                 *   FILE 024
//*           XFERDUMP IS A SOFTWARE SYSTEM THAT ARCHIVES           *   FILE 024
//*           'SYS1.DUMPXX' DATA TO TAPE FOR A SPECIFIED PERIOD     *   FILE 024
//*           OF TIME, PLUS AUTOMATICALLY CLEARING THE DUMP         *   FILE 024
//*           DATASETS AS WELL AS MAINTAINING AN ENTRY IN AN        *   FILE 024
//*           'INDEX' DATASET OF THE DUMP TITLES WITH THEIR         *   FILE 024
//*           ASSOCIATED TAPE VOLSER TO WHICH THEY WERE ARCHIVED.   *   FILE 024
//*                                                                 *   FILE 024
//*           THE ORIGINAL SOFTWARE WAS WRITTEN BY HOWARD DEAN OF   *   FILE 024
//*           KAISER PERMANENTE IN WALNUT CREEK, CALIFORNIA.        *   FILE 024
//*           THE PRESENT SOFTWARE IN PRODUCTION AT MCI             *   FILE 024
//*           TELECOMMUNICATIONS CORPORATION HAS BEEN MODIFIED      *   FILE 024
//*           QUITE EXTENSIVELY, AS WELL AS HAVING THE ADDITION     *   FILE 024
//*           OF OTHER DESIRABLE FEATURES TO SUCH A SYSTEM.         *   FILE 024
//*                                                                 *   FILE 024
//***FILE 025 IS FROM TEXAS UTILITY SERVICES AND IT CONTAINS        *   FILE 025
//*           SEVERAL OF THEIR TSO COMMANDS.  THIS FILE IS IN       *   FILE 025
//*           IEBUPDTE SYSIN FORMAT.  THIS FILE CONTAINS THE        *   FILE 025
//*           FOLLOWING CODE.  FOR ADDITIONAL INFORMATION SEE       *   FILE 025
//*           THE MEMBER CALLED $DOC.                               *   FILE 025
//*                                                                 *   FILE 025
//*           KLEENUP  -  REXX EXEC TO GENERATE HMIGRATE COMMANDS   *   FILE 025
//*                       FOR ALL BUT THE CURRENT GENERATIONS OF    *   FILE 025
//*                       THE REQUESTED DISK DATASET.               *   FILE 025
//*                                                                 *   FILE 025
//*           GETOPR  -   COMMAND FOR THE OPERATORS TO USE TO       *   FILE 025
//*                       FIND OUT THE RACF INFORMATION ASSOCIATED  *   FILE 025
//*                       WITH A GIVEN USERID AND DISPLAY IT ON THE *   FILE 025
//*                       CONSOLE.                                  *   FILE 025
//*                                                                 *   FILE 025
//*           SASSRCHD -  SAS PROGRAM THAT READS SMF DATA AT MVS    *   FILE 025
//*                       3.1.3 LEVEL AND GIVES A REPORT ON WHO     *   FILE 025
//*                       OPENED NONVSAM DATASETS, THEIR BLOCKSIZE  *   FILE 025
//*                       THAT THEY WERE OPENED WITH, AND WHO       *   FILE 025
//*                       DELETED THEM.                             *   FILE 025
//*                                                                 *   FILE 025
//*           SASSRCHV -  SAS PROGRAM THAT READS SMF DATA AT MVS    *   FILE 025
//*                       3.1.3 LEVEL AND GIVES A REPORT ON WHO     *   FILE 025
//*                       OPENED VSAM DATASETS AND WHO DELETED      *   FILE 025
//*                       THEM.                                     *   FILE 025
//*                                                                 *   FILE 025
//*           CONS390  -  CONSOLE PROGRAM MODIFIED FOR OS/390.      *   FILE 025
//*                       DISPLAYS CONSOLES AS A TSO COMMAND UNDER  *   FILE 025
//*                       ISPF OR TSO.  FEATURES:                   *   FILE 025
//*                                                                 *   FILE 025
//*                         HIGHLIGHTED MESSAGES ON CONSOLE ARE     *   FILE 025
//*                            HIGHLIGHTED                          *   FILE 025
//*                         AUTOMATIC UPDATE FEATURE                *   FILE 025
//*                         ENTER OPERATOR COMMANDS                 *   FILE 025
//*                         DISPLAY LAST IPL AND IF CLPA WAS DONE   *   FILE 025
//*                                                                 *   FILE 025
//*           CURRENT FILE IS UPDATED FOR OS/390 RELEASE 2.4.       *   FILE 025
//*           OLDER STUFF FOR ESA RELEASE 3 IS PACKAGED AS MEMBER   *   FILE 025
//*           "OLDVERS".  ESA 4.2.2 STUFF IS 2 MEMBERS:             *   FILE 025
//*           "OLDESAVR" AND "RESTESA".                             *   FILE 025
//*                                                                 *   FILE 025
//*           CONESA   -  CONSOLE PROGRAM MODIFIED FOR ESA.         *   FILE 025
//*                       DISPLAYS CONSOLES AS A TSO COMMAND UNDER  *   FILE 025
//*                       ISPF OR TSO.  FEATURES:                   *   FILE 025
//*                                                                 *   FILE 025
//*                         HIGHLIGHTED MESSAGES ON CONSOLE ARE     *   FILE 025
//*                            HIGHLIGHTED                          *   FILE 025
//*                         AUTOMATIC UPDATE FEATURE                *   FILE 025
//*                         ENTER OPERATOR COMMANDS                 *   FILE 025
//*                         DISPLAY LAST IPL AND IF CLPA WAS DONE   *   FILE 025
//*                                                                 *   FILE 025
//*           PRESENTLY WORKS UNDER OS/390 2.4 AND CORRESPONDING    *   FILE 025
//*           DFSMS.  SOME OF THE CONTROL BLOCKS THAT IT USED WERE  *   FILE 025
//*           MOVED INTO THE CONSOLE ADDRESS SPACE AFTER DFP 2.2.   *   FILE 025
//*                                                                 *   FILE 025
//*                                                                 *   FILE 025
//*           CONSOLE  -  PROGRAM TO DISPLAY CONSOLE ACTIVITY AS A  *   FILE 025
//*                       TSO COMMAND UNDER ISPF OR TSO.  FEATURES: *   FILE 025
//*                                                                 *   FILE 025
//*                         HIGHLIGHTED MESSAGES ON CONSOLE ARE     *   FILE 025
//*                             HIGHLIGHTED                         *   FILE 025
//*                         AUTOMATIC UPDATE FEATURE                *   FILE 025
//*                         ENTER OPERATOR COMMANDS                 *   FILE 025
//*                         DISPLAY LAST IPL AND IF CLPA WAS DONE   *   FILE 025
//*                                                                 *   FILE 025
//*                       PRESENTLY WORKS UNDER MVS/XA UNDER DFP    *   FILE 025
//*                       RELEASE 1 AND 2.1.                        *   FILE 025
//*                                                                 *   FILE 025
//*           MTTESA   -  USES CROSS MEMORY SERVICES TO READ AND    *   FILE 025
//*                       DISPLAY THE MASTER TRACE TABLE AS A TSO   *   FILE 025
//*                       COMMAND PROCESSOR.  THIS IS THE XA        *   FILE 025
//*                       VERSION OF THE PROGRAM THAT ORIGINATED AS *   FILE 025
//*                       MTT UNDER SP1.3.  GOOD FOR OS/390 TOO.    *   FILE 025
//*                       FEATURES:                                 *   FILE 025
//*                                                                 *   FILE 025
//*                             READ/DISPLAY MASTER TRACE TABLE     *   FILE 025
//*                             ENTER OPERATOR COMMANDS             *   FILE 025
//*                             CAN USE FIND TO SEARCH THE MASTER   *   FILE 025
//*                                 TRACE TABLE                     *   FILE 025
//*                             F 'SEARCH ARGUMENT IN QUOTES'       *   FILE 025
//*                                                                 *   FILE 025
//*             UPDATED FOR MVS/ESA 4.2.2.  OLD STUFF STILL HERE.   *   FILE 025
//*                                                                 *   FILE 025
//*           MTTXA    -  USES CROSS MEMORY SERVICES TO READ AND    *   FILE 025
//*                       DISPLAY THE MASTER TRACE TABLE AS A       *   FILE 025
//*                       TSO COMMAND PROCESSOR.  THIS IS THE XA    *   FILE 025
//*                       VERSION OF THE PROGRAM THAT ORIGINATED    *   FILE 025
//*                       AS MTT UNDER SP1.3.  FEATURES:            *   FILE 025
//*                                                                 *   FILE 025
//*                             READ/DISPLAY MASTER TRACE TABLE     *   FILE 025
//*                             ENTER OPERATOR COMMANDS             *   FILE 025
//*                             CAN USE FIND TO SEARCH THE MASTER   *   FILE 025
//*                                 TRACE TABLE                     *   FILE 025
//*                             F 'SEARCH ARGUMENT IN QUOTES'       *   FILE 025
//*                                                                 *   FILE 025
//*           MTT      -  SAME AS ABOVE FOR SP1.X SYSTEMS. WE HAVE  *   FILE 025
//*                       NOT USED FOR 3 YEARS SINCE GOING TO XA.   *   FILE 025
//*                                                                 *   FILE 025
//*           SWAPIN   -  WILL SYSEVENT A JOB TO NEW PERFORMANCE    *   FILE 025
//*                       GROUP.                                    *   FILE 025
//*                                                                 *   FILE 025
//*           AUTOWTOR -  MPF EXIT TO REPLY M.  CAN USE FOR         *   FILE 025
//*                       IEC701D WITH CARTRIDGES TO BE             *   FILE 025
//*                       INITIALIZED (THAT IS THE WAY WE USE       *   FILE 025
//*                       IT).  THE OPERATOR SETS THE MPF TO THE    *   FILE 025
//*                       PARMLIB MEMBER THAT HAS THE IEC701D       *   FILE 025
//*                       AND AUTOWTOR (SEE MPFLST03 FOR AN         *   FILE 025
//*                       EXAMPLE OF A PARMLIB MEMBER).  THE        *   FILE 025
//*                       AUTOWTOR WILL GIVE M TO THE IEC701D       *   FILE 025
//*                       AND THE OPERATOR LOOKS AT THE VISUAL      *   FILE 025
//*                       DISPLAY ON THE 3480 TO SEE WHAT           *   FILE 025
//*                       CARTRIDGE NUMBER TO INSERT.               *   FILE 025
//*                                                                 *   FILE 025
//*           IGGPRE00 -  DADSM ALLOCATION EXIT TO KEEP CERTAIN     *   FILE 025
//*                       PROBLEM DATASETS FROM BEING ALLOCATED     *   FILE 025
//*                       ON PACKS BEGINNING WITH STG (STORAGE      *   FILE 025
//*                       PACKS).                                   *   FILE 025
//*                                                                 *   FILE 025
//*           IGGPRETB -  TABLE LOADED BY IGGPRE00 THAT CONTAINS    *   FILE 025
//*                       THE FIRST 1 TO 12 CHARACTERS OF DATASET   *   FILE 025
//*                       NAMES NOT TO BE ALLOCATED ON THE PACKS    *   FILE 025
//*                       BEGINNING WITH STG.                       *   FILE 025
//*                                                                 *   FILE 025
//*           ZTPP0210 -  PROGRAM TO WRITE HEX 'FF' TO FIRST PDS    *   FILE 025
//*                       DIRECTORY ENTRY THEREBY DELETING ALL      *   FILE 025
//*                       MEMBERS OF THE PDS AND LEAVING THE        *   FILE 025
//*                       LIBRARY.                                  *   FILE 025
//*                                                                 *   FILE 025
//*           ZTPP210J -  SAMPLE EXECUTION JCL TO RUN ZTPP0210.     *   FILE 025
//*                                                                 *   FILE 025
//*           ZTPPASM  -  JCL TO ASSEMBLE ZTPP0210.                 *   FILE 025
//*                                                                 *   FILE 025
//*           SASTSOMN -  SAS PROGRAM TO PRINT TSOMON'S RECORDING   *   FILE 025
//*                       OF COMMANDS ON TSO.                       *   FILE 025
//*                                                                 *   FILE 025
//*     NOTE:  ANY MEMBERS THAT MIGHT SEEM TO BE MISSING, WILL BE   *   FILE 025
//*            FOUND IN THE OLD VERSIONS THAT ARE PACKAGED WITH     *   FILE 025
//*            THIS FILE:  SEE MEMBERS OLDVERS, OLDESAVR, RESTESA.  *   FILE 025
//*                                                                 *   FILE 025
//***FILE 026 CONTAINS A SYSTEM TO RECORD AND REPORT PERFORMANCE    *   FILE 026
//*           SATISFACTION LEVELS.  DURING LOGOFF, THE USER IS      *   FILE 026
//*           PROMPTED FOR A RATING OF BOTH TSO AND BATCH SUBMIT    *   FILE 026
//*           PERFORMANCE.  THIS INFORMATION IS RECORDED VIA SMF    *   FILE 026
//*           FOR LATER POST PROCESSING.  THIS FILE IS IN IEBUPDTE  *   FILE 026
//*           SYSIN FORMAT.  FOR ADDITIONAL INFORMATION SEE THE     *   FILE 026
//*           MEMBER CALLED $$DOC.                                  *   FILE 026
//*                                                                 *   FILE 026
//***FILE 027 IS FROM DAYCO PRODUCTS INC OF DAYTON OHIO AND         *   FILE 027
//*           CONTAINS A COPY OF THEIR DATE CHECK UTILITY.          *   FILE 027
//*                                                                 *   FILE 027
//*           THIS UTILITY WAS CREATED TO ALLOW PROGRAMMERS WHO     *   FILE 027
//*           BUILD SYSTEMS THAT REQUIRE DATE INPUT TO THE PARM     *   FILE 027
//*           OF A PROGRAM, TO ENSURE THAT IF THE DATE IS ENTERED   *   FILE 027
//*           WRONG THE OPERATOR DOES NOT GET AWAY WITH IT.         *   FILE 027
//*                                                                 *   FILE 027
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT AND CONTAINS    *   FILE 027
//*           THE FOLLOWING MEMBERS.  SEE MEMBER $$DOC FOR          *   FILE 027
//*           ADDITIONAL INFORMATION                                *   FILE 027
//*                                                                 *   FILE 027
//*           $CLEAR    -    CLEAR FLAG MACRO.  USED WITH           *   FILE 027
//*                          $FLAG, $DFLAG AND $TEST MACROS.        *   FILE 027
//*                                                                 *   FILE 027
//*           $DFLAG    -    DEFINE FLAG BYTE MACRO.  USED WITH     *   FILE 027
//*                          $FLAG, $CLEAR AND $TEST MACROS.        *   FILE 027
//*                                                                 *   FILE 027
//*           $EPILOG   -    END AND EXIT A PROGRAM CSECT.          *   FILE 027
//*                          USED WITH $PROLOG MACRO.               *   FILE 027
//*                                                                 *   FILE 027
//*           $FLAG     -    SET A FLAG BIT MACRO.  USED WITH       *   FILE 027
//*                          $CLEAR, $DFLAG AND $TEST MACROS.       *   FILE 027
//*                                                                 *   FILE 027
//*           $HEAD     -    CREATE HEADER INFO BLOCKS IN           *   FILE 027
//*                          ASSEMBLY LISTINGS.                     *   FILE 027
//*                                                                 *   FILE 027
//*           $PROLOG   -    CREATE STANDARD ENTRY LINKAGE TO A     *   FILE 027
//*                          PROGRAM CSECT.  USED WITH $EPILOG      *   FILE 027
//*                          MACRO.                                 *   FILE 027
//*                                                                 *   FILE 027
//*           $REGS     -    INTERNAL MACRO USED BY $PROLOG TO      *   FILE 027
//*                          GENERATE REGISTER EQUATES.             *   FILE 027
//*                                                                 *   FILE 027
//*           $TEST     -    TEST A FLAG AND BRANCH ON              *   FILE 027
//*                          CONDITION MACRO.  USED WITH $FLAG,     *   FILE 027
//*                          $DFLAG AND $CLEAR MACROS.              *   FILE 027
//*                                                                 *   FILE 027
//*           #CONVDAT  -    CONVERT JULIAN DATE TO GREGORIAN       *   FILE 027
//*                          DATE MACRO.                            *   FILE 027
//*                                                                 *   FILE 027
//*           DATECHCK  -    DATE CHECK PROGRAM SOURCE.             *   FILE 027
//*                                                                 *   FILE 027
//*           DAYC ? ? ?-    THESE ARE ISPF TUTORIAL MENUS TO       *   FILE 027
//*                          EXPLAIN USAGE OF DATECHCK              *   FILE 027
//*                          UTILITY.                               *   FILE 027
//*                                                                 *   FILE 027
//*           THE MACROS EXCEPT THE $DFLAG, $TEST, $FLAG AND        *   FILE 027
//*           $CLEAR ARE FROM VARIOUS FILES IN THE UTILITIES TAPE.  *   FILE 027
//*           THE #CONVDAT MACRO WAS MODIFIED FOR REENTRANCY.       *   FILE 027
//*                                                                 *   FILE 027
//***FILE 028 IS A SET OF CLISTS TO CONVERT A LIST OF DATASET       *   FILE 028
//*           NAMES TO DISK-TO-TAPE BACKUP JCL FROM SAM GOLOB.      *   FILE 028
//*           THE FOLLOWING IS WHAT THIS CLIST PDS CAN DO FOR       *   FILE 028
//*           YOU.  THIS FILE IS IN IEBCOPY FORMAT AND IS           *   FILE 028
//*                                                                 *   FILE 028
//*              LRECL = 255 BLKSIZE = 15300 RECFM = VB             *   FILE 028
//*                                                                 *   FILE 028
//*                *****      BACKEMUP      *****                   *   FILE 028
//*                                                                 *   FILE 028
//*              FUNCTION OF CLISTS:                                *   FILE 028
//*                 CONVERT A LIST OF DATASET NAMES TO              *   FILE 028
//*                 DISK-TO-TAPE BACKUP JCL.                        *   FILE 028
//*                                                                 *   FILE 028
//*              READ THE MEMBERS CALLED $$$DOC, $$$DOC2 AND        *   FILE 028
//*                                      $$$DOC3                    *   FILE 028
//*                                                                 *   FILE 028
//*              SHORT DESCRIPTION:                                 *   FILE 028
//*                                                                 *   FILE 028
//*                 THIS FAMILY OF CLISTS SOLVES AN OLD,            *   FILE 028
//*                 NAGGING PROBLEM OF IBM PROGRAMMERS,             *   FILE 028
//*                 NAMELY, THAT OF BACKING UP A LARGE NUMBER       *   FILE 028
//*                 OF PDS'ES AND SEQUENTIAL DATASETS TO TAPE.      *   FILE 028
//*                 THE USUAL WAYS OF DOING THIS REQUIRES           *   FILE 028
//*                 SETTING UP A PROC, AND CODING A LARGE           *   FILE 028
//*                 NUMBER OF EXECUTIONS OF THE PROC, FOR           *   FILE 028
//*                 DIFFERENT DATASETS.  YOU HAVE TO KEEP TRACK     *   FILE 028
//*                 OF THE FILE NUMBERS ON TAPE, AND IT'S A         *   FILE 028
//*                 BIG PAIN IN THE (YOU FILL IN THE BLANK),        *   FILE 028
//*                 AT ITS EASIEST.                                 *   FILE 028
//*                                                                 *   FILE 028
//*                 WITH "BACKEMUP" CLISTS YOU JUST HAVE TO         *   FILE 028
//*                 MAKE A LIST OF THE DATASETS ON A                *   FILE 028
//*                 CARD-IMAGE FILE, RUN A CLIST AGAINST THE        *   FILE 028
//*                 LIST, AND IN A FEW SECONDS, YOU HAVE YOUR       *   FILE 028
//*                 IEBCOPY JCL !                                   *   FILE 028
//*                                                                 *   FILE 028
//*              FURTHER HELP AND DESCRIPTION:                      *   FILE 028
//*                                                                 *   FILE 028
//*                 PLEASE SEE MEMBER TSOBATV FOR GREAT             *   FILE 028
//*                 ASSISTANCE IN BACKING UP PO AND PS              *   FILE 028
//*                 DATASETS ON A GIVEN VOLUME.  OUTPUT OF          *   FILE 028
//*                 THIS JOB IS CLOSE TO THE FORMAT USED FOR        *   FILE 028
//*                 INPUT TO THE CLIST CALLED "GENVOL".  ONLY       *   FILE 028
//*                 MINOR MASSAGING WITH ISPF EDIT IS               *   FILE 028
//*                 NECESSARY.  "VTOC" PGM FOUND ON CBT TAPE -      *   FILE 028
//*                 FILE 112.                                       *   FILE 028
//*                                                                 *   FILE 028
//*                 JEFF BROIDO WROTE THE ORIGINAL CLIST,           *   FILE 028
//*                 GENUNLD.  I HAVE MODIFIED HIS ORIGINAL          *   FILE 028
//*                 VERSION FOR SEVERAL OF MY PURPOSES, AND         *   FILE 028
//*                 HAVE WRITTEN ANOTHER ONE, GENPOPS, THAT         *   FILE 028
//*                 ADDED THE CAPABILITY OF DUMPING SEQUENTIAL      *   FILE 028
//*                 DATASETS AFTER DOING THE PDS'ES.  I USE         *   FILE 028
//*                 DAVE COLE'S DSCOPY PROGRAM PRODUCT FOR          *   FILE 028
//*                 SEQUENTIAL DATASET DUMPING TO TAPE.  IT'S       *   FILE 028
//*                 A REAL GEM, BUT IT'S NOT FREE.  YOU CAN         *   FILE 028
//*                 SUBSTITUTE THE PROGRAM CALLED "FTL" FROM        *   FILE 028
//*                 FILE 270 OF THIS TAPE, INSTEAD OF DSCOPY.       *   FILE 028
//*                 (SEE MEMBER CALLED $$$DOC3).  OTHERWISE,        *   FILE 028
//*                 YOU CAN REWRITE THAT CLIST FOR IEBGENER,        *   FILE 028
//*                 OR SYSREPRO (CBT TAPE FILE 316) OR              *   FILE 028
//*                 WHATEVER YOU USE.  THE ADVANTAGE OF DSCOPY      *   FILE 028
//*                 IS (AMONG OTHER USES IT HAS) THAT MANY          *   FILE 028
//*                 FILES CAN BE COPIED WITHIN ONE EXEC CARD.       *   FILE 028
//*                                                                 *   FILE 028
//*                 MY CLISTS USE THE TAPEMAP PROGRAM (ORIGINAL     *   FILE 028
//*                 WAS FROM UCLA) WHICH IS ON CBT TAPE FILE        *   FILE 028
//*                 299.  THEY ALSO USE THE INIMITABLE PDS          *   FILE 028
//*                 PROGRAM FROM FILE 182, AND I (HAD) THE          *   FILE 028
//*                 VENDOR PRODUCT PDSFAST, WHICH SUBSTITUTES       *   FILE 028
//*                 FOR IEBCOPY WITH THE SAME JCL, EXCEPT FOR       *   FILE 028
//*                 PROGRAM NAME.  THESE CLISTS MAY NEED TSO/E,     *   FILE 028
//*                 BUT IF YOU'RE CLEVER, YOU CAN GET AROUND        *   FILE 028
//*                 THAT (IT'S ONLY NEEDED DURING THE INPUT         *   FILE 028
//*                 FILE READ, IN WHICH THE DATASET NAMES ARE       *   FILE 028
//*                 CONVERTED INTO A HUGE STRING).                  *   FILE 028
//*                                                                 *   FILE 028
//***FILE 029 IS A PROCEDURE TO ENLARGE THE VTOC OF AN ACTIVE       *   FILE 029
//*           PACK FROM MR SAM GOLOB.  THIS FILE IS IN IEBUPDTE     *   FILE 029
//*           SYSIN FORMAT.                                         *   FILE 029
//*                                                                 *   FILE 029
//*           THIS PROCEDURE PRESENTS A "COOKBOOK-STYLE" RECIPE     *   FILE 029
//*           FOR ENLARGING THE VTOC OF AN ACTIVE DASD PACK.  THE   *   FILE 029
//*           VTOC INDEX HAS TO BE DEACTIVATED FIRST.  EVERYTHING   *   FILE 029
//*           IS HERE, AND ALL THE "INGREDIENTS" IN THE RECIPE      *   FILE 029
//*           ARE ON THIS TAPE.  IT'S AN EASY TO FOLLOW PATH.       *   FILE 029
//*           ONCE YOU'VE DONE IT A FEW TIMES (BEING CAREFUL OF     *   FILE 029
//*           COURSE) IT'S A PIECE OF CAKE.                         *   FILE 029
//*                                                                 *   FILE 029
//*           THE PROCEDURE INVOLVES BUILDING AN EXTENSION TO THE   *   FILE 029
//*           END OF THE EXISTING VTOC.  THEREFORE, ANY DATASETS    *   FILE 029
//*           LYING ON THE TRACKS FOLLOWING THE END OF THE VTOC,    *   FILE 029
//*           HAVE TO BE MOVED OUT OF THE WAY.                      *   FILE 029
//*                                                                 *   FILE 029
//***FILE 030 IF FROM MR SAM GOLOB, AND CONTAINS THE CODE           *   FILE 030
//*           NECESSARY TO CHANGE THE CONSOLE DEFAULT PFKEYS        *   FILE 030
//*           ON MVS SYSTEMS BEFORE THE XA 2.2 LEVEL.               *   FILE 030
//*           SEE THE MEMBER CALLED $$DOC FOR ADDITIONAL            *   FILE 030
//*           INFORMATION.                                          *   FILE 030
//*                                                                 *   FILE 030
//*                 MOD TO CHANGE CONSOLE DEFAULT PFKEYS.           *   FILE 030
//*                                                                 *   FILE 030
//*           ATTENTION MVS SP1.3.X AND SP2.1.X USERS ....          *   FILE 030
//*                                                                 *   FILE 030
//*               NOW YOU DON'T HAVE TO BE SATISFIED WITH IBM'S     *   FILE 030
//*           SELECTION OF *** DEFAULT *** PFKEYS ANYMORE.  YOU     *   FILE 030
//*           CAN SET 'EM THE WAY YOU WANT 'EM, AND THEY WON'T      *   FILE 030
//*           FALL OFF AFTER AN IOGEN.                              *   FILE 030
//*                                                                 *   FILE 030
//*               I'VE CODED 2 SIMPLE USERMODS TO THE SYSGEN MACRO  *   FILE 030
//*           SGIEA2D2 ON AGENLIB.  VERY SIMILAR CODING CAN BE      *   FILE 030
//*           USED EITHER ON SP1.3 OR ON XA.  ONLY THE SEQUENCE     *   FILE 030
//*           NUMBERS ARE DIFFERENT.  THIS IS GOOD AT LEAST UNTIL   *   FILE 030
//*           SP2.2.  AFTER SP 2.2.X AND ESA, THESE MODS ARE        *   FILE 030
//*           NOT NECESSARY, BECAUSE PFKEYS ARE SET IN A PARMLIB    *   FILE 030
//*           MEMBER.                                               *   FILE 030
//*                                                                 *   FILE 030
//*               PLEASE MAKE NOTE OF THE ONE FACT THAT THIS        *   FILE 030
//*           PROCESS SETS ALL CONSOLES WITH THE SAME PFKEYS.       *   FILE 030
//*           AT LEAST YOU CAN GET THE DEFAULTS CLOSER TO WHAT      *   FILE 030
//*           YOU WANT.                                             *   FILE 030
//*                                                                 *   FILE 030
//*               TWO USERMODS ARE SUPPLIED.  THEY WILL HAVE TO     *   FILE 030
//*           BE EDITED AND CUSTOMIZED TO YOUR SHOP.  THEY MUST     *   FILE 030
//*           BE ACCEPTED, TO HAVE AN EFFECT IN A SYSGEN OR         *   FILE 030
//*           IOGEN, UNLESS YOU CONCATENATE THE MTS ABOVE           *   FILE 030
//*           AGENLIB IN YOUR SYSGEN ASSEMBLY JCL.  SAVE A COPY     *   FILE 030
//*           OF THE ORIGINAL MACRO FOR A BACKUP.                   *   FILE 030
//*                                                                 *   FILE 030
//*               JUST USE MY SYSMODS AS MODELS.  COMPARE THEM TO   *   FILE 030
//*           THE VERSION OF MACRO SGIEA2D2 THAT YOU HAVE ON YOUR   *   FILE 030
//*           AGENLIB LIBRARY.  BE VERY CAREFUL WITH THE SEQUENCE   *   FILE 030
//*           NUMBERS, AND IT'D PROBABLY BE BEST TO FOLLOW MY       *   FILE 030
//*           SCHEME CAREFULLY.  GOOD LUCK.                         *   FILE 030
//*                                                                 *   FILE 030
//*               ONE FURTHER NOTE.  THIS USERMOD IS RUNNING ON     *   FILE 030
//*           MY MVS/370 SYSTEM, BUT I AM UNABLE TO TEST THE XA     *   FILE 030
//*           VERSION HERE.  A FRIEND ASSEMBLED AN XA SYSGEN WITH   *   FILE 030
//*           THE "IEBUPDTE"ED MACRO, AND THIS WAS SUCCESSFUL.  I   *   FILE 030
//*           COULDN'T PERSONALLY TEST THE RECEIVE, APPLY, AND      *   FILE 030
//*           ACCEPT OF THE XA USERMOD.  IT'S OK, HOWEVER.          *   FILE 030
//*                                                                 *   FILE 030
//***FILE 031 IS A IGGPRE00 EXIT FROM THE FORD AEROSPACE &          *   FILE 031
//*           COMMUNICATIONS CORPORATION IN COLORADO SPRINGS,       *   FILE 031
//*           COLORADO.  THIS EXIT WILL ALLOW DASD ALLOCATION OF    *   FILE 031
//*           NEW DATASETS ONLY ON VOLUMES MOUNTED STORAGE OR       *   FILE 031
//*           PUBLIC UNLESS THE USER HAS BEEN GIVEN RACF            *   FILE 031
//*           "OPERATIONS".                                         *   FILE 031
//*                                                                 *   FILE 031
//***FILE 032 IS FROM MR SAM GOLOB AND CONTAINS THREE PROGRAMS      *   FILE 032
//*           THAT WERE PREVIOUSLY ON THIS TAPE.  THEY WERE         *   FILE 032
//*           GOTTEN FROM THE HUGE "MEMOREX" FILE OF AN OLD CBT     *   FILE 032
//*           TAPE (VERSION 260 OR EARLIER - IT WAS FILE 313.)      *   FILE 032
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT.  FOR           *   FILE 032
//*           ADDITIONAL INFORMATION SEE THE MEMBERS CALLED         *   FILE 032
//*           $$DOC*** IN THIS PDS.                                 *   FILE 032
//*                                                                 *   FILE 032
//*           COPYPACK  -  A BATCH UTILITY WHICH COPIES (AND        *   FILE 032
//*                        OPTIONALLY RECATALOGS) GROUPS OF         *   FILE 032
//*                        DATASETS, BY PARTIAL NAME, FROM ONE      *   FILE 032
//*                        DISK PACK TO ANOTHER.  IT CAN HANDLE     *   FILE 032
//*                        DSORG=PO, PS, OR DA.  ALL SUCH DATASETS  *   FILE 032
//*                        ON THE ENTIRE PACK CAN BE MOVED.         *   FILE 032
//*                        ALLOCATION OF THE TARGET DATASETS IS     *   FILE 032
//*                        DONE BY THE PROGRAM AUTOMATICALLY.       *   FILE 032
//*                        PARM INPUT PROVIDES MUCH POWER AND       *   FILE 032
//*                        FLEXIBILITY.  THIS CAN SAVE YOU A LOT    *   FILE 032
//*                        OF WORK.  IF YOU HAVE FDR, FDRCOPY IS    *   FILE 032
//*                        BETTER FOR MOST PURPOSES.  SO IS DFDSS   *   FILE 032
//*                        COPY.  COPYPACK WILL DO A NICE JOB       *   FILE 032
//*                        COPYING MODEL DSCB'S FROM ONE PACK TO    *   FILE 032
//*                        ANOTHER.  COPYPACK HAS BEEN FIXED TO     *   FILE 032
//*                        RUN UNDER XA.                            *   FILE 032
//*                                                                 *   FILE 032
//*           DOWNDATE   - A UTILITY WHICH CREATES AN IEBUPDTE      *   FILE 032
//*                        FORMAT DIFFERENCE DECK BETWEEN TWO       *   FILE 032
//*                        VERSIONS OF A SOURCE PROGRAM.  THIS NOT  *   FILE 032
//*                        ONLY FLAGS DIFFERENCES, BUT ALLOWS YOU   *   FILE 032
//*                        TO CONVERT FROM ONE SOURCE DECK TO THE   *   FILE 032
//*                        OTHER BY MEANS OF THE DIFFERENCE DECK.   *   FILE 032
//*                                                                 *   FILE 032
//*           JCLSCAN   -  A TSO COMMAND PROCESSOR WHICH CALLS THE  *   FILE 032
//*                        MVS JCL CONVERTER TO CHECK A DATASET OF  *   FILE 032
//*                        JCL FOR ERRORS.  SINCE THE ACTUAL        *   FILE 032
//*                        CONVERTER FROM IBM IS USED, YOU GET THE  *   FILE 032
//*                        SAME RESULT AS IF YOU DID TYPRUN=SCAN,   *   FILE 032
//*                        BUT WITHOUT RUNNING A JOB.  IT USES AN   *   FILE 032
//*                        SVC TO DO THE CALLING OF THE CONVERTER.  *   FILE 032
//*                        OUTPUT IS DISPLAYED AT THE TUBE IN A     *   FILE 032
//*                        VERY CONVENIENT FORMAT.                  *   FILE 032
//*                                                                 *   FILE 032
//***FILE 033 IS PUTXREF FROM THE DEPARTMENT OF THE TREASURY OF     *   FILE 033
//*           THE STATE OF NEW JERSEY.  THIS FILE IS IN IEBUPDTE    *   FILE 033
//*           SYSIN FORMAT.  FOR ADDITIONAL INFORMATION SEE THE     *   FILE 033
//*           SOURCE CODE ITSELF.  THIS PROGRAM TAKES THE PUT       *   FILE 033
//*           PTF FILE (FILE 1 FROM A STANDARD IBM PUT TAPE),       *   FILE 033
//*           AND PRODUCES A CROSS REFERENCE OF THE PTF'S           *   FILE 033
//*           INCLUDED, SORTED BY FMID.  IT CAN TAKE                *   FILE 033
//*           CONCATENATED INPUT, BUT THE TAPE IDENTITY ON WHICH    *   FILE 033
//*           THE PTF IS FOUND WILL BE LOST.  THE PROGRAM SHOULD    *   FILE 033
//*           BE USEFUL TO QUICKLY IDENTIFY WHAT PTF'S ARE ON A     *   FILE 033
//*           GIVEN TAPE, WHAT FMID'S HAVE MAINTENANCE ON A         *   FILE 033
//*           TAPE, AND TO DOUBLE CHECK THE STERLING FOREST         *   FILE 033
//*           CROSS REFERENCE (IT LIES ONCE IN A WHILE.)  ALSO      *   FILE 033
//*           SEE THE MATERIAL ON FILE 118, WHICH IS RELATED,       *   FILE 033
//*           AND WHICH MAY BE MORE HELPFUL.                        *   FILE 033
//*                                                                 *   FILE 033
//***FILE 034 IS FROM NORTHEAST LOUISIANA UNIVERSITY AND            *   FILE 034
//*           CONTAINS A COPY OF THEIR PROGRAM CALLED RACFUSER.     *   FILE 034
//*           THIS IS AN ASSEMBLER PROGRAM WHICH WILL READ THE      *   FILE 034
//*           RACF MASTER DATA SET, PRINT THE PASSWORD              *   FILE 034
//*           EXPIRATION DATE, AND CLASSIFY A USERID INTO ONE OF    *   FILE 034
//*           THE FOLLOWING CATEGORIES :                            *   FILE 034
//*                                                                 *   FILE 034
//*             A. PASSWORD WILL EXPIRE BEFORE A SPECIFIED          *   FILE 034
//*                THRUDATE (WHICH IS SPECIFIED ON A PARM OR        *   FILE 034
//*                ALLOWED TO DEFAULT TO SEVEN DAYS FROM            *   FILE 034
//*                TODAY).                                          *   FILE 034
//*             B. PASSWORD WILL REMAIN ACTIVE AFTER THE            *   FILE 034
//*                THRUDATE,                                        *   FILE 034
//*             C. PASSWORD CURRENTLY EXPIRED,           OR         *   FILE 034
//*             D. USERID HAS NEVER BEEN USED                       *   FILE 034
//*                                                                 *   FILE 034
//*           THIS INFORMATION CAN BE USED BY A SECURITY            *   FILE 034
//*           ADMINISTRATOR TO CONTROL THE CONTENTS OF THE RACF     *   FILE 034
//*           MASTER DATA SET WHICH INCLUDES ELIMINATING UNUSED     *   FILE 034
//*           OR OBSOLETE USERIDS AND NOTIFYING DATA CONTROL        *   FILE 034
//*           ABOUT UPCOMING PASSWORD EXPIRATIONS IN SELDOM RUN     *   FILE 034
//*           BATCH JOBS.  THIS HELPS PREVENT JCL ERRORS DUE TO     *   FILE 034
//*           AN EXPIRED PASSWORD.                                  *   FILE 034
//*                                                                 *   FILE 034
//***FILE 035 IS A LOAD MODULE LIBRARY WITH USEFUL PROGRAMS IN IT.  *   FILE 035
//*                                                                 *   FILE 035
//*           SOURCE FILE           LOAD MODULE NAME                *   FILE 035
//*             002  SOURCE           CBT973 - uncompres tape files *   FILE 035
//*             006  SOURCE           CBTUPD - insert ./ ADD cards  *   FILE 035
//*                                            into this doc        *   FILE 035
//*             018  DOCUMENTATION    TSUPDATE                      *   FILE 035
//*             044  SOURCE           ASMTOZAF - PL1/F ASMTOZAP     *   FILE 035
//*             044  SOURCE           ASMTOZAP - PL/1 OPTIMIZER     *   FILE 035
//*                                    good with PL/1 V1.3 or more  *   FILE 035
//*             093  SOURCE           OFFLOAD                       *   FILE 035
//*             093  SOURCE           PDSLOAD                       *   FILE 035
//*             094  SOURCE           DAF                           *   FILE 035
//*             102  SOURCE           TAPESC46 - Version 4.6 (64K)  *   FILE 035
//*             102  SOURCE           TAPESCAN - Version 5.2 (64K)  *   FILE 035
//*             112  SOURCE           VTOC                          *   FILE 035
//*             134  SOURCE           HEL  (moved to FILE 135)      *   FILE 035
//*             134  SOURCE           REVIEW  (moved to FILE 135)   *   FILE 035
//*             134  SOURCE           ZAP  (moved to FILE 135)      *   FILE 035
//*             147  SOURCE           ARCHINIT  \\                  *   FILE 035
//*             147  SOURCE           ARCHIVER   >>  ARCHIVER       *   FILE 035
//*             147  SOURCE           ARCHPARS  //                  *   FILE 035
//*             182  SOURCE           PDS85 - PDS Vers 8.5 loadmod. *   FILE 035
//*                                    (Needs PANELS and MSGS to    *   FILE 035
//*                                    run in ISPMODE.  Will run    *   FILE 035
//*                                    in line mode as is.  Use     *   FILE 035
//*                                    XISPM keyword when invoking. *   FILE 035
//*                                    SEE FILE 182 FOR PANELS AND  *   FILE 035
//*                                    MESSAGES.                    *   FILE 035
//*             193  SOURCE           TCOPY - Tape copying utility  *   FILE 035
//*             218  SOURCE           VSAMMAPP                      *   FILE 035
//*             229  SOURCE           COPYMODS                      *   FILE 035
//*             264  SOURCE           LOOK                          *   FILE 035
//*             266  SOURCE           SS0104 tape mapping program   *   FILE 035
//*             294  SOURCE           VSAMADTL  VSAMANAL            *   FILE 035
//*             294  SOURCE           VSAMAGET  VSAMANAL            *   FILE 035
//*             294  SOURCE           VSAMAHLP  VSAMANAL            *   FILE 035
//*             294  SOURCE           VSAMANAL  VSAMANAL            *   FILE 035
//*             294  SOURCE           VSAMANDX  VSAMANAL            *   FILE 035
//*             294  SOURCE           VSAMSIZE  VSAMANAL            *   FILE 035
//*             296  SOURCE           BLKDISK BLK3380 BLK3390       *   FILE 035
//*             296  SOURCE           BLK3375 BLK9345 BLK3350       *   FILE 035
//*             299  SOURCE           TAPEMAP & TAPEMAPO            *   FILE 035
//*             316  SOURCE           COPYFILE - copies SL tape fls *   FILE 035
//*             316  SOURCE           COPYSLNL - copies SL to NL    *   FILE 035
//*             316  SOURCE           COPYNLNL - copies NL to NL    *   FILE 035
//*             316  SOURCE           IGG019WD - with COPYFILE      *   FILE 035
//*             316  SOURCE           IGG019WE - with COPYFILE      *   FILE 035
//*             316  SOURCE           LISPDS (really LISTPDS)       *   FILE 035
//*             316  SOURCE           TAPEL - used with COPYFILE    *   FILE 035
//*             365  SOURCE           OSTAREDC - OSTARXMT error     *   FILE 035
//*                                     checking assembler program  *   FILE 035
//*                                                                 *   FILE 035
//***FILE 036 IS A FIXPDS UTILITY FROM MR SAM GOLOB.  THIS CODE     *   FILE 036
//*           WAS WRITTEN BY MR ROBERT B. WEINSTEIN.  THIS          *   FILE 036
//*           UTILITY RESURRECTS DELETED MEMBERS OF A PDS, BUT IT   *   FILE 036
//*           DOES SO WITHOUT USING THE DIRECTORY.  THIS FILE IS    *   FILE 036
//*           IN IEBUPDTE SYSIN FORMAT.                             *   FILE 036
//*                                                                 *   FILE 036
//*           THIS PROGRAM STOWS NEW DIRECTORY ENTRIES FOR          *   FILE 036
//*           PHYSICAL FILES IN A DATASET WHICH WOULD LOOK LIKE A   *   FILE 036
//*           PDS MEMBER.  IT LOCATES THESE FILES WITHOUT BENEFIT   *   FILE 036
//*           OF A PREVIOUS GOOD DIRECTORY.  ALL IT NEEDS IS A      *   FILE 036
//*           BLANK DIRECTORY.                                      *   FILE 036
//*                                                                 *   FILE 036
//*           THIS FIXPDS PROGRAM RESTORES DELETED MEMBERS OF A     *   FILE 036
//*           PDS WITH A BACKWARD SEARCH, STARTING FROM THE END     *   FILE 036
//*           OF THE DATASET AND BROWSING EACH MEMBER (DELETED OR   *   FILE 036
//*           NOT) WITH ISPF BROWSE.  AFTER ENDING EACH BROWSE,     *   FILE 036
//*           YOU HAVE AN OPPORTUNITY TO STOW A NAME IN THE         *   FILE 036
//*           DIRECTORY FOR THAT MEMBER.  THE PROGRAM PROCEEDS      *   FILE 036
//*           BACKWARDS, MEMBER BY MEMBER, UNTIL YOU EXIT, OR       *   FILE 036
//*           UNTIL YOU REACH THE BEGINNING OF THE LIBRARY.         *   FILE 036
//*                                                                 *   FILE 036
//*           TWO FEATURES DISTINGUISH THIS PROGRAM FROM OTHERS     *   FILE 036
//*           OF THIS TYPE.  ONE, THE MEMBER SEARCH GOES            *   FILE 036
//*           BACKWARDS, STARTING FROM THE END OF THE DATASET AND   *   FILE 036
//*           GOING BACK, ONE MEMBER AT A TIME.  THIS ALLOWS YOU    *   FILE 036
//*           TO LOOK AT THE MOST RECENT ACTIVITY FIRST.  TWO,      *   FILE 036
//*           EACH MEMBER IS ISPF BROWSED.  IT CAN BE EXAMINED IN   *   FILE 036
//*           ITS ENTIRETY, AND IN DETAIL, BEFORE YOU DECIDE        *   FILE 036
//*           WHETHER TO STOW A DIRECTORY ENTRY FOR IT OR NOT.      *   FILE 036
//*                                                                 *   FILE 036
//*           IF YOU DO STOW A DIRECTORY ENTRY, IT DOESN'T MATTER   *   FILE 036
//*           IF ONE ALREADY EXISTS FOR THAT MEMBER.  THE NEW ONE   *   FILE 036
//*           IS CREATED ALSO.  IF AN OLD ENTRY WAS THERE TOO,      *   FILE 036
//*           UNDER A DIFFERENT NAME, AN "APPARENT ALIAS" IS        *   FILE 036
//*           CREATED.  USING THE "PDS" PROGRAM (IN CBT TAPE FILE   *   FILE 036
//*           182), ALL THE APPARENT ALIASES CREATED CAN BE FLAGGED *   FILE 036
//*           IN A JIFFY, USING THE "VERIFY" SUBCOMMAND OF PDS.     *   FILE 036
//*                                                                 *   FILE 036
//*           EDITOR'S NOTE.  IF ALL YOU WANT TO DO IS RESTORE      *   FILE 036
//*           DELETED MEMBERS OF A PDS, THE "PDS" PROGRAM ON FILE   *   FILE 036
//*           182 (WITH UTILITIES ON FILES 296 AND 112) IS          *   FILE 036
//*           PROBABLY BETTER THAN FIXPDS, AND PDS IS MUCH          *   FILE 036
//*           QUICKER.  A THIRD REFERENCE IS THE "PDSGAS" PROGRAM   *   FILE 036
//*           - FILE 316.  ALSO, THE "PDS" PROGRAM DOES MANY MORE   *   FILE 036
//*           THINGS, AND PDS IS NOT TOO HARD TO INSTALL.  I        *   FILE 036
//*           PERSONALLY HAVE RECEIVED MANY INQUIRIES FROM PEOPLE   *   FILE 036
//*           TRYING TO INSTALL FIXPDS, BECAUSE MY NAME IS ON THE   *   FILE 036
//*           CALL LIST.  I AM SPEAKING FROM MUCH EXPERIENCE.       *   FILE 036
//*           FIXPDS IS NICE TO HAVE, THOUGH, AND I DO NOT MEAN     *   FILE 036
//*           TO DISCOURAGE PEOPLE FROM INSTALLING IT.  SBG.        *   FILE 036
//*                                                                 *   FILE 036
//***FILE 037 IS AN MVS VERSION OF COPYCAT TO MOVE, SPLIT,          *   FILE 037
//*           AND/OR REORGANIZE CVOL CATALOGS.  THIS VERSION        *   FILE 037
//*           RUNS UNDER MVS AND THE RESULTANT CVOL MAY BE          *   FILE 037
//*           LISTED WITH IEHLIST.  THIS VERSION HAS 3380 AND       *   FILE 037
//*           3375 SUPPORT ADDED FROM UCLA.  THIS FILE IS IN        *   FILE 037
//*           IEBUPDTE SYSIN FORMAT SEE THE MEMBER CALLED $$DOC     *   FILE 037
//*           FOR ADDITIONAL INFORMATION.                           *   FILE 037
//*                                                                 *   FILE 037
//*         $CBTJCL .. THE JCL USED AT CBT TO INSTALL               *   FILE 037
//*         $MANUAL .. THE COPYCAT MANUAL                           *   FILE 037
//*         $UCLAJCL.  THE JCL USED AT UCLA TO INSTALL              *   FILE 037
//*         COPYCAT .. COPYCAT CODE ITSELF                          *   FILE 037
//*         FIX1    .. FIX ESATE01 - CONVERTS COPYCAT FROM STAE TO  *   FILE 037
//*                    ESTAE USE AND CORRECTS AN S30A ABEND THAT    *   FILE 037
//*                    OCCURS FOLLOWING AN X37 ABEND.               *   FILE 037
//*         FIX2 ..... FIX XCP200  - CORRECTS AN S200 ABEND THAT    *   FILE 037
//*                    INTERMITTENTLY OCCURS IN COPYCAT AFTER AN    *   FILE 037
//*                    'X37' ABEND, DUE TO ALL OF THE I/O NOT       *   FILE 037
//*                    HAVING COMPLETED BEFORE SVC55 IS ISSUED      *   FILE 037
//*                    FOR AN END-OF-VOLUME INDICATION.             *   FILE 037
//*         OAC1 ..... FIX DEV3380 - ADDS 3380 SUPPORT TO COPYCAT   *   FILE 037
//*         OAC2 ..... FIX HASH001 - UCLA LOCAL MODE.  SEE MEMBER   *   FILE 037
//*                    FOR ADDITIONAL INFORMATION.                  *   FILE 037
//*                                                                 *   FILE 037
//***FILE 038 IS FROM MR LARRY WILLIAMS AND CONTAINS A VERY         *   FILE 038
//*           ELABORATE SPACE WAR GAME CALLED " KLINGON ".  IT      *   FILE 038
//*           IS A LOT LIKE MOST STAR TREK GAMES EXCEPT YOU GET     *   FILE 038
//*           TO BE THE BAD GUYS.  THE GAME CAN RUN EITHER IN       *   FILE 038
//*           LINE MODE OR IN FULL SCREEN MODE UNDER TSO ON A       *   FILE 038
//*           3270 TYPE TERMINAL.  THIS FILE IS IN IEBUPDTE         *   FILE 038
//*           SYSIN FORMAT.  SEE THE MEMBER CALLED ##DOC FOR        *   FILE 038
//*           ADDITIONAL INFORMATION.                               *   FILE 038
//*                                                                 *   FILE 038
//*           NOTE.  FOR PEOPLE HAVING PROBLEMS COMPILING THIS      *   FILE 038
//*           WITH FORTRAN H, YOU CAN COMPILE IT WITH FORTRAN G.    *   FILE 038
//*                                                                 *   FILE 038
//*                LARRY WILLIAMS                                   *   FILE 038
//*                ILLINOIS BOARD OF GOVERNORS                      *   FILE 038
//*                COOPERATIVE COMPUTER CENTER                      *   FILE 038
//*                GOVERNORS STATE UNIVERSITY                       *   FILE 038
//*                UNIVERSITY PARK, IL  60466                       *   FILE 038
//*                (630) 235-2138                                   *   FILE 038
//*                                                                 *   FILE 038
//***FILE 039 is from Citibank in New York and contains :           *   FILE 039
//*                                                                 *   FILE 039
//*           1.  An SMF program to process type 14 and 15 records  *   FILE 039
//*               using IBM DFSORT.                                 *   FILE 039
//*           2.  A modification to the IPOUPDTE program so it      *   FILE 039
//*               will run against any partitioned dataset, and     *   FILE 039
//*               it doesn't require the presence of a member       *   FILE 039
//*               nameed $$$COIBM.                                  *   FILE 039
//*           3.  A modification to the CPPUPDTE program so it      *   FILE 039
//*               will run against any partitioned dataset, and     *   FILE 039
//*               it doesn't require the presence of a member       *   FILE 039
//*               nameed $$$COIBM.  (from Sam Golob  10/99)         *   FILE 039
//*                                                                 *   FILE 039
//***FILE 040 IS FROM PEOPLES NATIONAL BANK OF WASHINGTON AND       *   FILE 040
//*           CONTAINS SEVERAL OF THEIR UTILITIES.  THIS FILE IS    *   FILE 040
//*           IN IEBUPDTE SYSIN FORMAT.  FOR ADDITIONAL             *   FILE 040
//*           INFORMATION SEE THE MEMBER CALLED $$DOC.              *   FILE 040
//*                                                                 *   FILE 040
//*           DBACONSL - WTO/WTOR ASSIST SUBROUTINE                 *   FILE 040
//*                                                                 *   FILE 040
//*           DBAIOB   - DSECT FOR AN IOB                           *   FILE 040
//*                                                                 *   FILE 040
//*           PDSCLEAN - CLEANS OUT A PDS WITHOUT REQUIRING A       *   FILE 040
//*                      DELETE/DEFINE.  THE NUMBER OF DIRECTORY    *   FILE 040
//*                      BLOCKS MAY BE CHANGED AT THE SAME TIME.    *   FILE 040
//*                      SEVERAL PDS'S MAY BE CLEANED IN ONE        *   FILE 040
//*                      STEP.  CAN BE EXECUTED IN TSO              *   FILE 040
//*                      FOREGROUND                                 *   FILE 040
//*                                                                 *   FILE 040
//*           PDSPDS   - A PDS MASS SCAN/UPDATE UTILITY.  LOOK      *   FILE 040
//*                      AT ALL OR A SUBSET OF MEMBERS OF A PDS.    *   FILE 040
//*                      CHANGE AS REQUESTED.  SINCE RECORDS ARE    *   FILE 040
//*                      NOT USUALLY ADDED OR DELETED UPDATES IN    *   FILE 040
//*                      PLACE SAVING COMPRESSES.  XPDS TSO         *   FILE 040
//*                      CLIST AND PROCPDS PROC ARE INCLUDED        *   FILE 040
//*                                                                 *   FILE 040
//*           RDOC72   - A DOCUMENTATION FORMATTER.  PROVIDES       *   FILE 040
//*                      HEADERS, FOOTERS, TABLE OF CONTENTS,       *   FILE 040
//*                      PAGE NUMBERS, AND LOTS MORE                *   FILE 040
//*                                                                 *   FILE 040
//*           REGS     - REGISTER EQUATE MACRO                      *   FILE 040
//*                                                                 *   FILE 040
//*           SUPERGEN - SUPER IEBGENER.  FIND AND (LIMITED)        *   FILE 040
//*                      CHANGE RECORDS IN A SEQUENTIAL FILE.       *   FILE 040
//*                      RELATIVE RECORD NUMBER, TTR, OR MBBCCHHR   *   FILE 040
//*                      ADDRESSES CAN BE USED.  IDEAL FOR LOOKING  *   FILE 040
//*                      AT 'ACTUAL' DATA IN A LARGE FILE IN        *   FILE 040
//*                      FOREGROUND.  SPGEN TSO CLIST AND PROCGEN   *   FILE 040
//*                      PROC ARE INCLUDED                          *   FILE 040
//*                                                                 *   FILE 040
//*           VDBS$DDF - SUBROUTINE TO SCAN TIOT TO FIND A DD       *   FILE 040
//*                                                                 *   FILE 040
//*           VDBS$HEX - HEX PRINT UTILITY SUBROUTINE               *   FILE 040
//*                                                                 *   FILE 040
//***FILE 041 IS FROM BENJAMIN FRANKLIN FEDERAL SAVINGS AND         *   FILE 041
//*           LOAN ASSOCIATION OF PORTLAND OREGON AND CONTAINS      *   FILE 041
//*           EXITS TO MVS/SP JES2 TO PROVIDE TABLE DRIVEN FORMS    *   FILE 041
//*           CONTROL FOR XEROX 8700 / 9700 LASER PRINTERS.         *   FILE 041
//*           THE EXITS INSERT XEROX DJDE COMMANDS BETWEEN REPORTS  *   FILE 041
//*           GOING TO THE PRINTERS BASED ON THE SYSOUT CLASS AND   *   FILE 041
//*           FORMS ID SPECIFIED IN STANDARD JCL.  THIS FILE        *   FILE 041
//*           IS IN IEBUPDTE SYSIN FORMAT                           *   FILE 041
//*                                                                 *   FILE 041
//***FILE 042 IS FROM DAVE DROUIN FROM CONN   NATIONAL BANK THIS    *   FILE 042
//*           CODE WILL TAKE FILE 001 OF THIS TAPE AND PUT IT INTO  *   FILE 042
//*           INFO/MVS FORMAT SO IT CAN BE LOADED INTO A INFO/MVS   *   FILE 042
//*           DATABASE.  THIS FILE IS IN IEBUPDTE SYSIN FORMAT.     *   FILE 042
//*           SEE THE MEMBER CALLED $DOC FOR ADDTIONAL INFORMATION  *   FILE 042
//*                                                                 *   FILE 042
//*            A COMMENT ABOUT LOADING THIS FILE INTO AN INFO/MVS   *   FILE 042
//*            DATA BASE. WE DO NOT USE VERSION 2 BUT IF YOU TAKE   *   FILE 042
//*            THE INPUT TO LOAD VERSION 1 AND CONVERT IT TO FIXED  *   FILE 042
//*            BLOCK WITH AN LRECL OF 80 BYTES AND SHIFT EVERYTHING *   FILE 042
//*            LEFT 8 BYTES (WITH THE PROPER JCL) YOU SHOULD BE     *   FILE 042
//*            OKAY - USE THE LAST JOB IN FILE 003 FOR THE JCL TO   *   FILE 042
//*            CREATE THE INPUT TO THE INFO/MVS DATA BASE AND THEN  *   FILE 042
//*            CHANGE IT TO FIXED BLOCK AND SHIFT 8 BYTES LEFT.     *   FILE 042
//*            YOU HAVE WILL TO CREATE YOUR OWN JCL TO LOAD THE     *   FILE 042
//*            VERSION 2 DATA BASE                                  *   FILE 042
//*                                                                 *   FILE 042
//***FILE 043 IS FROM DAVE DROUIN FROM CONN NATIONAL BANK.  THIS    *   FILE 043
//*           FILE CONTAINS THE DATA FOR THE HEADER INFORMATION     *   FILE 043
//*           FOR USE WITH FILE 042 ON THIS TAPE.  THIS FILE IS     *   FILE 043
//*           IS LRECL=255,BLKSIZE=3120,RECFM=VB                    *   FILE 043
//*                                                                 *   FILE 043
//***FILE 044 IS FROM YALE UNIVERSITY AND CONTAINS A COPY OF        *   FILE 044
//*           ASMTOZAP. THIS FILE IS IN IEBUPDTE SYSIN FORMAT,  FOR *   FILE 044
//*           ADDITIONAL INFORMATION SEE THE MEMBER CALLED $DOC.    *   FILE 044
//*                                                                 *   FILE 044
//*           ASMTOZAP IS A UTILITY WHICH READS AN ASSEMBLER        *   FILE 044
//*           LISTING AND PRODUCES AMASPZAP CONTROL CARDS.  THIS    *   FILE 044
//*           ALLOWS NON-TRIVIAL PATCHES TO BE WRITTEN IN           *   FILE 044
//*           ASSEMBLER LANGUAGE WITH FULL USE OF SYMBOLIC          *   FILE 044
//*           REFERENCES, DSECTS, AND MACROS.  CODE IS              *   FILE 044
//*           POSITIONED AT THE CORRECT OFFSETS BY USE OF ORG.      *   FILE 044
//*           SYMBOLIC ADDRESSES CAN BE GENERATED BY ORG, OR        *   FILE 044
//*           FAKED BY EQU, OR COPYED, ETC.  THERE IS LESS ROOM     *   FILE 044
//*           FOR ERROR, IMPROVED LEGIBILITY, AND CONVERSION        *   FILE 044
//*           FROM ONE RELEASE TO ANOTHER USUALLY INVOLVES ONLY     *   FILE 044
//*           CHANGING A FEW ORG'S TO REFLECT THE NEW ADDRESSES     *   FILE 044
//*           OF THE PATCH AREA OR ZAPPED INSTRUCTIONS.             *   FILE 044
//*                                                                 *   FILE 044
//*           ASMTOZAP HAS BEEN TESTED USING ASSEMBLER H VERS 2     *   FILE 044
//*           AND THE IBM HIGH-LEVEL ASSEMBLER (HLASM).             *   FILE 044
//*                                                                 *   FILE 044
//*  NOTE.    THIS PROGRAM IS WRITTEN IN PL/1.  HOWEVER, WE HAVE    *   FILE 044
//*           TRIED TO MAKE IT POSSIBLE FOR ALL MVS SHOPS TO USE    *   FILE 044
//*           ASMTOZAP.  FIRST, THERE IS A VERSION THAT RUNS        *   FILE 044
//*           UNDER PL1/F - THE FREE VERSION OF PL/1 WHOSE          *   FILE 044
//*           COMPILER AND LIBRARY IS ON THIS TAPE - FILE 092.      *   FILE 044
//*           SECOND, THE LOAD MODULE FOR ASMTOZAP THAT IS ON       *   FILE 044
//*           FILE 035 IS AN OLD LOAD MODULE THAT WAS COMPILED      *   FILE 044
//*           USING THE PL/1 OPTIMIZER VERSION 1.3.0.  THEREFORE    *   FILE 044
//*           YOU CAN RUN THAT MODULE, EVEN ON A VERY OLD VERSION   *   FILE 044
//*           OF THE PL/1 OPTIMIZER TRANSIENT LIBRARY.  (AND OF     *   FILE 044
//*           COURSE YOU CAN RUN IT ON THE NEWER VERSIONS           *   FILE 044
//*           OF PL/1.)                 SG - 03/22/94               *   FILE 044
//*                                                                 *   FILE 044
//*           PL1/F RETURN CODE PROCESSING PUT IN (AS WITH PL/1     *   FILE 044
//*           OPTIMIZER).  THANKS TO JIM MARSHALL WHO SENT ME A     *   FILE 044
//*           SET OF PL1/F MANUALS.  SEE ALSO ASMTOZAF LOAD         *   FILE 044
//*           MODULE ON FILE 035.       SG - 04/11/94               *   FILE 044
//*                                                                 *   FILE 044
//***FILE 045 IS AN ENHANCEMENT TO THE YALE COMPARE PROGRAM THAT IS *   FILE 045
//*       IN FILE 226 OF THIS TAPE.  THE PURPOSE OF THIS CODE IT TO *   FILE 045
//*       ALLOW THE COMPARE PGM TO PROCESS TWO PDS FILES RATHER     *   FILE 045
//*       THAN TWO SEQUENTIAL FILES. THE PROGRAM IS SELF CONTAINED. *   FILE 045
//*       SIMPLY ASSEMBLE AND LINK AND IT'S READY TO USE.           *   FILE 045
//*       ADDITIONAL INFORMATION ON HOW TO USE THE PROGRAM IS       *   FILE 045
//*       CONTAINED AS COMMENTS AT THE BEGINNING OF THE CODE        *   FILE 045
//*       ITSELF.  ALSO INCLUDED IS THE JES2 SOURCE COMPARE SYSTEM. *   FILE 045
//*                                                                 *   FILE 045
//*        COMPONENTS OF THIS FILE :                                *   FILE 045
//*             $$DOC    - DOCUMENTATION OF THE JES2 COMPARE SYSTEM *   FILE 045
//*             PDSCMPR  - ORIGINAL PDS COMPARE PROGRAM             *   FILE 045
//*                                                                 *   FILE 045
//*        JES2 SOURCE COMPARE SYSTEM                               *   FILE 045
//*             JES2CMPR - AN ASSEMBLY LANGUAGE PROGRAM THAT        *   FILE 045
//*                        IS A MODIFICATION OF THE PDSCMPR         *   FILE 045
//*                        PROGRAM.  THIS PROGRAM CREATES A         *   FILE 045
//*                        PDS THAT CONTAINS ALL OF THE             *   FILE 045
//*                        CHANGES BETWEEN TWO RELEASES.            *   FILE 045
//*             JES2LIST - AN ASSEMBLY LANGUAGE PROGRAM THAT        *   FILE 045
//*                        READS THE ABOVE PDS,  THE SYSPRINT       *   FILE 045
//*                        OUTPUT FROM THE ASSEMBLER AND            *   FILE 045
//*                        PRINTS A NEW ASSEMBLY LISTING            *   FILE 045
//*                        SHOWING WERE CHANGES HAVE                *   FILE 045
//*                        OCCURRED                                 *   FILE 045
//*             CMPRPDS  - A JCL STREAM THAT EXECUTES JES2CMPR      *   FILE 045
//*             JES2ASM2 - A PROC THAT EXECUTES                     *   FILE 045
//*                        THE ASSEMBLER AND THEN JES2LIST TO       *   FILE 045
//*                        CREATE THE POST ASSEMBLY LISTING         *   FILE 045
//*             ASM88888 - A JCL STREAM THAT ASSEMBLES ALL OF       *   FILE 045
//*                        THE JES2 MODULES                         *   FILE 045
//*           THIS FILE IN IS IEBUPDTE SYSIN FORMAT                 *   FILE 045
//*                                                                 *   FILE 045
//***FILE 046 IS THE MASS MUTUAL DISK PACK MAINTENANCE PROGRAM,     *   FILE 046
//*           "PACKRAT".  ITS ONLY FUNCTION IS TO EXAMINE THE       *   FILE 046
//*           VTOC OF A PARTICULAR VOLUME AND SCRATCH THE           *   FILE 046
//*           DATASETS SPECIFIED.  THE UNCATALOG ONLY OCCURS IF     *   FILE 046
//*           THE DATA SET IS CATALOGED ON THE VOLUME CURRENTLY     *   FILE 046
//*           BEING EXAMINED.  IF IT IS A MULTI-VOLUME DATA SET     *   FILE 046
//*           IT IS NOT SCRATCHED OR UNCATALOGED.  THIS PROGRAM     *   FILE 046
//*           HAS BEEN USED ON 3330, 3350, 3380, AND 3390           *   FILE 046
//*           DEVICES.  IT HAS BEEN RUN UNDER MVS SP 1.3, MVS/XA,   *   FILE 046
//*           AND MVS/ESA.  THIS "PACKRAT" PROGRAM MUST RUN         *   FILE 046
//*           AUTHORIZED AND THE USER MUST HAVE OPERATOR            *   FILE 046
//*           AUTHORIZATION.  THE PROMPT SCREEN ALLOWS YOU TO       *   FILE 046
//*           ENTER THE VOLSER YOU WISH TO EXAMINE AND THE SCAN     *   FILE 046
//*           DATE.  A FULL SCREEN OF DATA SETS CAN BE SCRATCHED    *   FILE 046
//*           AT A TIME.  HITTING THE ENTER KEY PAGES YOU           *   FILE 046
//*           FORWARD THROUGH THE VTOC.  ADDITIONAL INFORMATION     *   FILE 046
//*           MAY BE FOUND IN THE COMMENTS OF THE CODE ITSELF.      *   FILE 046
//*                                                                 *   FILE 046
//***FILE 047 IS FROM TORONTO HYDRO IN TORONTO, ONTARIO, CANADA.    *   FILE 047
//*           THIS FILE CONTAINS THE FOLLOWING, FOR ADDITIONAL      *   FILE 047
//*           INFORMATION SEE THE MEMBER CALLED $INDEX : (THIS      *   FILE 047
//*           FILE ALSO USES SOME MACROS THAT ARE IN FILES 435 AND  *   FILE 047
//*           OR 464. THIS FILE HAS BEEN SUBMITTED BY MR JIM LANE   *   FILE 047
//*                                                                 *   FILE 047
//*           THE CURRENT FILE IS A REFRESH AS OF 12/09/93.         *   FILE 047
//*                                                                 *   FILE 047
//*           THIS FILE ALSO CONTAINS AN ESA VERSION OF CMD1.       *   FILE 047
//*           (SEE THE BF GOODRICH VERSION ON FILE 261 WHICH MAY    *   FILE 047
//*           BE FOR A HIGHER LEVEL OF MVS/ESA.)                    *   FILE 047
//*                                                                 *   FILE 047
//*           JIM'S CURRENT ADDRESS:                                *   FILE 047
//*                                                                 *   FILE 047
//*                JIM LANE                                         *   FILE 047
//*                TORONTO HYDRO                                    *   FILE 047
//*                TECHNICAL SERVICES                               *   FILE 047
//*                14 CARLTON STREET                                *   FILE 047
//*                TORONTO, ONTARIO  M5B 1K5                        *   FILE 047
//*                CANADA                                           *   FILE 047
//*                416-542-2820   direct line                       *   FILE 047
//*                                                                 *   FILE 047
//*   Note:  Jim Lane is now doing AIX, and this file is            *   FILE 047
//*          now "functionally stabilized" until somebody           *   FILE 047
//*          else takes it over.    (SG - 07/99)                    *   FILE 047
//*                                                                 *   FILE 047
//*            THIS PDS CONTAINS THE FOLLOWING MEMBERS:             *   FILE 047
//*                                                                 *   FILE 047
//*           EDX      - "PERSONAL DATASET MANAGER" ISPF DIALOG.    *   FILE 047
//*           EXITS    - SOME JES2 AND MPF EXITS.                   *   FILE 047
//*           JCLFLOW  - AN ISPF PROGRAM EDIT MACRO TO NEATLY       *   FILE 047
//*                      FORMAT JCL                                 *   FILE 047
//*           LISTICAT - A BATCH PROGRAM TO 1-UP LIST DATASETS IN   *   FILE 047
//*                      AN ICF CATALOG.                            *   FILE 047
//*           NOCELL   - A BATCH PROGRAM TO LIST DISK, TAPE AND     *   FILE 047
//*                      HSM MIGRATED DATASETS                      *   FILE 047
//*           RMFIII   - A POST PROCEESOR FOR RMF MONITOR III       *   FILE 047
//*                      DATA.                                      *   FILE 047
//*           SASEREP  - A SAS PROGRAM TO PROCESS LOGREC RECORDS.   *   FILE 047
//*           SASGTF   - A SAS PROGRAM TO PROCESS GTF SVC TRACE     *   FILE 047
//*                      RECORDS.                                   *   FILE 047
//*           SASHSM   - A SET OF SAS PROGRAM TO ANALYZE HSM USAGE  *   FILE 047
//*           SASRMF79 - A SAS PROGRAM TO PROCESS RMF TYPE 79       *   FILE 047
//*                      RECORDS.                                   *   FILE 047
//*           SASSYSLG - A SAS PROGRAM TO PROCESS SYSLOG DATA.      *   FILE 047
//*           SASTLMS  - A SAS PROGRAM TO PROCESS THE TLMS II       *   FILE 047
//*                      VOLUME MASTER FILE.                        *   FILE 047
//*           SMPELIST - A BATCH PROGRAM TO 1-UP LIST ENTRIES FROM  *   FILE 047
//*                      AN SMP-E CSI.                              *   FILE 047
//*                                            - EDX -              *   FILE 047
//*              AN ISPF DIALOG CALLED "PERSONAL DATASET MANAGER".  *   FILE 047
//*              EDX MAINTAINS AND DISPLAYS A TABLE OF DATASET      *   FILE 047
//*              NAMES (OPTIONALLY INCLUDING A MEMBER NAME). THE    *   FILE 047
//*              FOLLOWING OPERATIONS CAN BE REQUESTED ON ANY OF    *   FILE 047
//*              THE DATASETS:                                      *   FILE 047
//*             ?         TO DISPLAY INFORMATION ABOUT THE          *   FILE 047
//*                       DATASET'S ATTRIBUTES.                     *   FILE 047
//*             A         TO ALLOCATE A NEW DATASET USING THIS ONE  *   FILE 047
//*                       AS A MODEL.                               *   FILE 047
//*             B         TO ISPF BROWSE THE DATASET.               *   FILE 047
//*             D         TO DELETE THE DATASET.                    *   FILE 047
//*             E         TO ISPF EDIT THE DATASET.                 *   FILE 047
//*             HM        TO MIGRATE THE DATASET WITH DFHSM.        *   FILE 047
//*             HR        TO RECALL THE DATASET FROM DFHSM          *   FILE 047
//*                       MIGRATION.                                *   FILE 047
//*             P         TO INVOKE THE PDS84 DIALOG ON THE         *   FILE 047
//*                       DATASET.                                  *   FILE 047
//*             PR        TO PRINT THE DATASET.                     *   FILE 047
//*             V         TO SET OR UPDATE THE VOLSER FIELD.        *   FILE 047
//*             X         TO DROP THE DATASET FROM THE LIST.        *   FILE 047
//*                                                                 *   FILE 047
//*              EDX PICKS UP ON THE FACT THAT A DATASET HAS BEEN   *   FILE 047
//*              MIGRATED AND DISPLAYS A MESSAGE TO THAT EFFECT IF  *   FILE 047
//*              YOU TRY TO DO SOMETHING THAT NEEDS THE DATASET     *   FILE 047
//*              UNMIGRATED. YOU HAVE TO EXPLICITLY HRECALL IT      *   FILE 047
//*              FIRST.                                             *   FILE 047
//*                                                                 *   FILE 047
//*              THIS DATASET ALSO CONTAINS UPDATED VERSIONS OF     *   FILE 047
//*              THE ED AND BR COMMAND TABLE COMMANDS THAT ADD THE  *   FILE 047
//*              DATASET YOU EDIT OR BROWSE TO THE EDX DATASET      *   FILE 047
//*              TABLE. THEY ALSO ACCEPT AN OPERAND OF "*" TO MEAN  *   FILE 047
//*              THE MOST RECENT DATASET YOU EITHER EDITED OR       *   FILE 047
//*              BROWSED.                                           *   FILE 047
//*                                           - EXITS -             *   FILE 047
//*              A SET OF JES2 AND MPF EXITS:                       *   FILE 047
//*                EXIT02   - ENFORCE JOBNAME AND JOBCLASS          *   FILE 047
//*                           STANDARDS                             *   FILE 047
//*                EXIT03   - CANCEL JOBS FLAGGED BY EXIT02         *   FILE 047
//*                EXIT04   - DUMMY OUT JOBCAT AND STEPCAT DD       *   FILE 047
//*                           STATEMENTS                            *   FILE 047
//*                MPFABEND - HIGHLIGHTED WTO FOR ABENDING          *   FILE 047
//*                           PRODUCTION JOB                        *   FILE 047
//*                MPFHOLD  - REPLY NOHOLD TO IEF433D               *   FILE 047
//*                MPFJCLER - HIGHLIGHTED WTO FOR PRODUCTION JOB    *   FILE 047
//*                           WITH JCL ERROR                        *   FILE 047
//*                MPFVINIT - START TSO AFTER VTAM IS UP            *   FILE 047
//*                MPFVTAM  - HIGHLIGHTED WTO WHEN NETWORK NODES    *   FILE 047
//*                           GO INACT                              *   FILE 047
//*                                            - JCLFLOW -          *   FILE 047
//*              THIS PROGRAM WAS "OBTAINED" FROM FILE352 OF THE    *   FILE 047
//*              CBT TAPE. IN ITS ORIGINAL FORM IT WAS A BATCH      *   FILE 047
//*              UTILITY, READING JCL FROM SYSUT1 AND WRITING THE   *   FILE 047
//*              REFORMATTED STUFF ONTO SYSUT2. I CHANGED IT BY     *   FILE 047
//*              ALTERING THE I/O LOGIC TO USE ISPF EDIT MACRO      *   FILE 047
//*              SERVICES. THE BASIC LOGIC IS TO START AT THE TOP   *   FILE 047
//*              OF THE DECK ASSIGNING EACH LINE TO VARIABLE        *   FILE 047
//*              "CARD". ANYTHING OTHER THAN PART OF A DD           *   FILE 047
//*              STATEMENT IS LEFT AS IS. WHEN A DD STATEMENT IS    *   FILE 047
//*              FOUND EACH LINE IS DELETED AFTER BEING READ. THE   *   FILE 047
//*              LINE NUMBER AFTER WHICH TO INSERT REFORMATTED JCL  *   FILE 047
//*              IS REMEMBERED IN VARIABLE "ADDLINE". AN ENTIRE DD  *   FILE 047
//*              STATEMENT IS READ IN, CONTINUATION LINES AND ALL   *   FILE 047
//*              AND STORED IN "TABLEIN", EACH INPUT LINE BEING     *   FILE 047
//*              DELETED AFTER ASSIGNMENT. THE DD STATEMENT IS      *   FILE 047
//*              THEN FORMATTED BY BEING COPIED ONE PARAMETER AT A  *   FILE 047
//*              TIME OVER TO "TABLEOUT". FROM "TABLEOUT" NEW       *   FILE 047
//*              LINES ARE INSERTED INTO THE DATASET TO CONTAIN     *   FILE 047
//*              THE REFORMATTED DD STATEMENT. SINCE THE NUMBER OF  *   FILE 047
//*              LINES IN THE DATASET COULD HAVE INCREASED, THE     *   FILE 047
//*              LINE NUMBER OF THE LAST LINE IS RE-CALCULATED AS   *   FILE 047
//*              NECESSARY AND REMEMBERED IN VARIABLE "LLINE".      *   FILE 047
//*                                            - LISTICAT -         *   FILE 047
//*            NAME         LISTICAT                                *   FILE 047
//*            FUNCTION     LIST THE CONTENTS OF AN ICF CATALOG     *   FILE 047
//*                         AND SELECTED DSCB AND VVDS FIELDS.      *   FILE 047
//*            DESCRIPTION  THE UCBS OF ALL ONLINE DASD VOLUMES     *   FILE 047
//*                         ARE LOCATED AND AN ATTEMPT IS MADE TO   *   FILE 047
//*                         ALLOCATE SYS1.VVDS.VVOLSER.  IF THIS    *   FILE 047
//*                         WORKS AN ACB AND RPL ARE GENERATED AND  *   FILE 047
//*                         THEIR ADDRESSES ARE SAVED IN A LOOKUP   *   FILE 047
//*                         TABLE.  THE BCS CLUSTER IS OPENED AS A  *   FILE 047
//*                         DATASET AND READ SEQUENTIALLY. THE BCS  *   FILE 047
//*                         RECORDS ARE SCANNED FOR CELL TYPES AND  *   FILE 047
//*                         THE FOLLOWING CELLS ARE LISTED:         *   FILE 047
//*                           NONVSAM                               *   FILE 047
//*                           CLUSTER                               *   FILE 047
//*                           INDEX                                 *   FILE 047
//*                           DATA                                  *   FILE 047
//*                           AIX                                   *   FILE 047
//*                           PATH                                  *   FILE 047
//*                           GDG BASE                              *   FILE 047
//*                           GDG ENTRY                             *   FILE 047
//*                         FOR NONVSAM ENTRIES THE FORMAT1 AND,    *   FILE 047
//*                         IF IT EXISTS THE FORMAT 3, DSCB IS      *   FILE 047
//*                         "OBTAINED" TO DETERMINE IF THE OBJECT   *   FILE 047
//*                         EXISTS. IF IT DOES THE LRECL, BLKSIZE   *   FILE 047
//*                         AND TOTAL TRACKS ALLOCATED ARE          *   FILE 047
//*                         EXTRACTED.  IF THE OBJECT IS            *   FILE 047
//*                         CATALOGED TO VOLSER "MIGRAT" THE        *   FILE 047
//*                         DFHSM MIGRATION CONTROL DATASET IS      *   FILE 047
//*                         OPENED (SYSUT2) AND USED INSTEAD OF     *   FILE 047
//*                         THE VTOC.                               *   FILE 047
//*                                                                 *   FILE 047
//*                         FOR DATA AND INDEX ENTRIES THE VVDS OF  *   FILE 047
//*                         THE VOLUME IN QUESTION, IF AVAILABLE,   *   FILE 047
//*                         IS SCANNED TO DETERMINE THE LRECL,      *   FILE 047
//*                         BLKSIZE AND TRACK ALLOCATION OF THE     *   FILE 047
//*                         OBJECT.                                 *   FILE 047
//*                                                                 *   FILE 047
//*            ENVIRONMENT  OS/VS2 MVS, JDM1113 OR HDQ1102          *   FILE 047
//*                         MVS/XA 2.1.7 DF/HSM 2.1.0               *   FILE 047
//*                         (HAS BEEN RUN ON MVS/ESA.)              *   FILE 047
//*            INPUT        THE BCS OF THE ICF CATALOG TO BE        *   FILE 047
//*                         LISTED.                                 *   FILE 047
//*            OUTPUT       OUTPUT CONSISTS OF A LISTING OF THE     *   FILE 047
//*                         CATALOG.                                *   FILE 047
//*                                             - NOCELL -          *   FILE 047
//*            NAME         NOCELL                                  *   FILE 047
//*             INTRODUCTION                                        *   FILE 047
//*             NOCELL IS A UTILITY THE PURPOSE OF WHICH IS TO      *   FILE 047
//*             ANALYZE ALLOCATED DATASETS.  THE  PROGRAM  CAN      *   FILE 047
//*             PROCESS ALL DATASETS OR SELECT A SUBSET, AND        *   FILE 047
//*             PRODUCE DETAIL LISTINGS OR SUMMARY REPORTS.         *   FILE 047
//*             JCL REQUIREMENTS.                                   *   FILE 047
//*             NOCELL CAN BE EXECUTED USING THE FOLLOWING JCL:     *   FILE 047
//*               //STEP     EXEC PGM=NOCELL,REGION=4096K           *   FILE 047
//*               //STEPLIB  DD DSN=<YOUR.LOADLIB>,DISP=SHR         *   FILE 047
//*               //SYSUT1   DD DSN=<HSM.MCDS>,DISP=SHR             *   FILE 047
//*               //SYSUT2   DD DSN=<HSM.BCDS>,DISP=SHR             *   FILE 047
//*               //VMF      DD DSN=<TLMSII.VMF>,DISP=SHR           *   FILE 047
//*               //CATALOG  DD DSN=<ASM2.ARCHIVE.CATALOG>,DISP=SHR *   FILE 047
//*               //SYSUDUMP DD SYSOUT=                             *   FILE 047
//*               //SYSIN    DD                                     *   FILE 047
//*               /*                                                *   FILE 047
//*            INSTALLATION  JCL TO INSTALL NOCELL IS CONTAINED IN  *   FILE 047
//*                          MEMBER $INSTALL WHICH ASSEMBLES AND    *   FILE 047
//*                          LINKS THE CODE AND COPIES THE          *   FILE 047
//*                          ELEMENTS OF THE ISPF DIALOG TO THE     *   FILE 047
//*                          PROPER LIBRARIES                       *   FILE 047
//*            DOCUMENTATION A USER'S GUIDE COMPLETE WITH JCL       *   FILE 047
//*                          EXAMPLES IS IN MEMBER $DOC. YOU WILL   *   FILE 047
//*                          NEED IBM'S DCF TO PRINT THIS MEMBER.   *   FILE 047
//*                                             - RMFIII -          *   FILE 047
//*             NAME         ERB3POST                               *   FILE 047
//*             FUNCTION     READS THE DATASET PRODUCED BY RMF 3.4  *   FILE 047
//*                          MONITOR III, WRITES A REPORT OF        *   FILE 047
//*                          POSSIBLE ANOMALIES AND WRITES TWO      *   FILE 047
//*                          SEQUENTIAL FILES (ONE ABOUT ADDRESS    *   FILE 047
//*                          SPACES AND ONE ABOUT DEVICES)          *   FILE 047
//*                          SUMMARIZING THE MONITOR III            *   FILE 047
//*                          MEASUREMENTS.                          *   FILE 047
//*             DESCRIPTION  THE DATASET PRODUCED BY RMF MONITOR    *   FILE 047
//*                          III AS OF 3.4 IS NOT IN ANY WAY        *   FILE 047
//*                          NORMAL. IT IS A VSAM ESDS OF 32K       *   FILE 047
//*                          RECORDS. THE 1ST RECORD, AFTER SOME    *   FILE 047
//*                          DESCRIPTIVE DATA IS FILLED WITH AN     *   FILE 047
//*                          ARRAY OF 28 BYTE POINTERS DESCRIBING   *   FILE 047
//*                          "SETS OF SAMPLES". A SET OF SAMPLES    *   FILE 047
//*                          IS WHAT MONITOR III CALCULATES EVERY   *   FILE 047
//*                          "MINTIME" SECONDS.  THE SAMPLE DATA    *   FILE 047
//*                          FILLS RECORDS 2 THROUGH N.  THE CATCH  *   FILE 047
//*                          IS THAT MONITOR III KEEPS TRACK OF     *   FILE 047
//*                          WHERE THINGS ARE IN THE DATASET BY     *   FILE 047
//*                          USING OFFSET FIELDS THAT ARE RELATIVE  *   FILE 047
//*                          TO BYTE 0 OF RECORD 1. IN EFFECT WHAT  *   FILE 047
//*                          YOU HAVE IS A CHECKPOINTED COPY OF AN  *   FILE 047
//*                          INCORE ARRAY OF SOME KIND, NOTHING IN  *   FILE 047
//*                          RECORDS 2 TO N IS IN ANY NECESSARY     *   FILE 047
//*                          ORDER. THEREFORE, IN ORDER TO PROCESS  *   FILE 047
//*                          THIS MESS YOU NEED THE WHOLE THING IN  *   FILE 047
//*                          CORE.                                  *   FILE 047
//*                                                                 *   FILE 047
//*                          ERB3POST PROCESSES BY READING THE      *   FILE 047
//*                          ENTIRE DATASET INTO MEMORY AND THEN    *   FILE 047
//*                          LOOPING OVER ALL SET OF SAMPLES        *   FILE 047
//*                          POINTERS IN RECORD 1. FOR EACH OF      *   FILE 047
//*                          THESE, TWO SUBROUTINES ARE CALLED ONE  *   FILE 047
//*                          TO PROCESS ASID'S AND ONE TO PROCESS   *   FILE 047
//*                          DEVICES. ASIDS AND DEVICES ARE EACH    *   FILE 047
//*                          HELD IN A TABLE POINTED TO BY THE SET  *   FILE 047
//*                          OF SAMPLES HEADER WHICH IS POINTED TO  *   FILE 047
//*                          FROM RECORD 1. THE SUBROUTINES PRINT   *   FILE 047
//*                          A LINE OF THE REPORT IF THE DELAY      *   FILE 047
//*                          PERCENTS SEEM HIGH AND WRITE A RECORD  *   FILE 047
//*                          TO THE EXTRACT FILES.  THE DATA        *   FILE 047
//*                          WRITTEN TO THE EXTRACT FILES IS        *   FILE 047
//*                          ESSENTIALLY WHAT YOU WOULD SEE WITH    *   FILE 047
//*                          THE "DELAYJ" AND "DEVR" COMMANDS       *   FILE 047
//*                          UNDER RMFWDM.                          *   FILE 047
//*            ENVIRONMENT   MVS/XA 2.1.7                           *   FILE 047
//*                          RMF 3.4                                *   FILE 047
//*                          DFP/XA 2.2                             *   FILE 047
//*            INPUT         A DATASET PRODUCED BY RMF MONITOR      *   FILE 047
//*                          III.                                   *   FILE 047
//*            OUTPUT        A PRINTED REPORT OF JOBS AND DEVICES   *   FILE 047
//*                          WITH HIGH DELAYS                       *   FILE 047
//*                          A SEQUENTIAL FILE, ONE RECORD PER      *   FILE 047
//*                          ASID PER SET OF SAMPLES.               *   FILE 047
//*                          A SEQUENTIAL FILE, ONE RECORD PER      *   FILE 047
//*                          DEVICE PER SET OF SAMPLES.             *   FILE 047
//*                                             - SASGTF -          *   FILE 047
//*            SASGTF   - A SAS PROGRAM TO DECODE GTF SVC TRACE     *   FILE 047
//*                       RECORDS.                                  *   FILE 047
//*                                             - SASHSM -          *   FILE 047
//*            THIS MEMBER CONTAINS 3 SAS PROGRAMS:                 *   FILE 047
//*             HLIST  - READS THE DFHSM CONTROL DATASETS AND       *   FILE 047
//*                      PRINTS REPORTS.  INTENDED TO ANALYZE THE   *   FILE 047
//*                      EFFECTIVENESS OF HSM IMPLEMENTATION.       *   FILE 047
//*             HSMFSR - READS THE "FUNCTION STATISTICS RECORDS"    *   FILE 047
//*                      THAT DFHSM WRITES TO SMF. REPORTS ON       *   FILE 047
//*                      FUNCTIONS THAT DIDN'T WORK, HOW OFTEN      *   FILE 047
//*                      THINGS HAPPENED AND HOW LONG THEY TOOK.    *   FILE 047
//*             HSMLOG - READS THE DFHSM LOG DATASET AND PRINTS     *   FILE 047
//*                      PLOTS OF WHEN THINGS HAPPENED.             *   FILE 047
//*                                            - SASRMF79 -         *   FILE 047
//*            SASRMF79 - A SAS PROGRAM TO PROCESS RMF TYPE 79      *   FILE 047
//*                       RECORDS. SPECIFICALLY IT DEALS WITH       *   FILE 047
//*                       RECORDS PRODUCED BY THE OPTIONS ASD,      *   FILE 047
//*                       SRCS AND SPAG TO PLOT DATA ON 3090        *   FILE 047
//*                       EXTENDED STORAGE USAGE (SUCH LITTLE DATA  *   FILE 047
//*                       AS THERE IS, ANYWAY).                     *   FILE 047
//*                                            - SASSYSLG -         *   FILE 047
//*            SASSYSLG - A SET OF SAS PROGRAMS TO POST-PROCESS     *   FILE 047
//*                       SYSLOG DATA. WE USED THESE TO DESIGN OUR  *   FILE 047
//*                       MPF LIST AMONG OTHER THINGS.              *   FILE 047
//*                                            - SASTLMS -          *   FILE 047
//*            SASTLMS  - A SAS PROGRAM TO REDUCE THE CONTENTS OF   *   FILE 047
//*                       THE TLMSII VOLUME MASTER FILE TO A SAS    *   FILE 047
//*                       DATABASE AND TO PRODUCE A REPORT  FROM    *   FILE 047
//*                       IT ON LOW VOLUME TAPE DATASETS.           *   FILE 047
//*                                            - SMPELIST -         *   FILE 047
//*            SMPELIST - AN ASSEMBLER PROGRAM TO PRODUCE A         *   FILE 047
//*                       SOMEWHAT MORE COMPACT LISTING OF THE      *   FILE 047
//*                       MAC, MOD AND SYSMOD ENTRIES IN AN SMP-E   *   FILE 047
//*                       CSI DATASET.                              *   FILE 047
//*                                                                 *   FILE 047
//***FILE 048 is a pds which contains the LISTVOL and LISTSPC       *   FILE 048
//*           TSO commands, and it contains the LOCINDEX            *   FILE 048
//*           subroutine, which they both need.                     *   FILE 048
//*                                                                 *   FILE 048
//*           HELP data for both commands is also contained in      *   FILE 048
//*           this file.  These programs used to exist in separate  *   FILE 048
//*           files on the tape (since 1976 or so), and now these   *   FILE 048
//*           files have been combined into one file.               *   FILE 048
//*                                                                 *   FILE 048
//***FILE 049 IS CURRENTLY EMPTY                                    *   FILE 049
//*                                                                 *   FILE 049
//***FILE 050 is an Internet Surfing file, which contains some      *   FILE 050
//*           URL addresses for MVS-related sites on the Internet.  *   FILE 050
//*           This file is intended to make looking for tools a     *   FILE 050
//*           little easier.  Sometimes, a good tool is available   *   FILE 050
//*           on the Internet, but for some reason, it isn't a      *   FILE 050
//*           good candidate to put on the CBT Tapes themselves.    *   FILE 050
//*           This file is therefore intended as a pointer, to      *   FILE 050
//*           help you get these materials yourself.                *   FILE 050
//*                                                                 *   FILE 050
//*           File 050 lists sites which have free software         *   FILE 050
//*           that is dowloadable, whereas File 051 lists vendor    *   FILE 050
//*           software sites.                                       *   FILE 050
//*                                                                 *   FILE 050
//*  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  *   FILE 050
//*                                                                 *   FILE 050
//*           No responsibility is assumed by anybody connected     *   FILE 050
//*           with the CBT Tape materials, for anything that was    *   FILE 050
//*           downloaded by anybody from any of these sites.        *   FILE 050
//*           These sites are not under our control, and they may   *   FILE 050
//*           change at any time.  The URL's to get there, are      *   FILE 050
//*           provided, just so that people can find out about      *   FILE 050
//*           those materials, to determine if they are useful      *   FILE 050
//*           to them.  We do not guarantee in any way, that any    *   FILE 050
//*           URL's will stay up-to-date.                           *   FILE 050
//*                                                                 *   FILE 050
//*           Actually, the purpose for creating this file, is to   *   FILE 050
//*           let people know about materials that are specifically *   FILE 050
//*           NOT on the CBT Tape in the form that they are in.     *   FILE 050
//*           Either they belong to somebody, or are copyrighted by *   FILE 050
//*           somebody, but the bottom line is that somebody else   *   FILE 050
//*           controls them.  It is understood that there is no     *   FILE 050
//*           implied or explicit responsibility assumed by any     *   FILE 050
//*           individual or corporate entity having to do with the  *   FILE 050
//*           CBT Tape materials in any way, concerning anything    *   FILE 050
//*           obtained at these sites, in the past or in the        *   FILE 050
//*           future.  Use all of these materials at your own       *   FILE 050
//*           risk, or don't use them at all.                       *   FILE 050
//*                                                                 *   FILE 050
//*  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  *   FILE 050
//*                                                                 *   FILE 050
//*     Member    -  Short Description of Materials Available       *   FILE 050
//*     ------       ----------------------------------------       *   FILE 050
//*                                                                 *   FILE 050
//*     ALCOCK    -  Dave Alcock's home page                        *   FILE 050
//*     CBTTAPE   -  Online CBT Tape site                           *   FILE 050
//*     DAVECOLE  -  Dave Cole's updated free software              *   FILE 050
//*     FADH      -  VM-like TSO/MVS tools and other stuff          *   FILE 050
//*     FREEC     -  Free C Language Compiler that runs under       *   FILE 050
//*                  OS/390 Open Edition                            *   FILE 050
//*     LORIAUX   -  A tremendous collection of links to MVS        *   FILE 050
//*                  sites and S390 job information                 *   FILE 050
//*     NADEL     -  Doug Nadel's site.  Contains TASID and a       *   FILE 050
//*                  lot of other good stuff.  Could not be put     *   FILE 050
//*                  on the CBT Tape because of IBM copyright.      *   FILE 050
//*                                                                 *   FILE 050
//***FILE 051 is an Internet Surfing file, which contains some      *   FILE 051
//*           URL addresses for MVS-related sites on the Internet.  *   FILE 051
//*           This file is intended to make looking for tools a     *   FILE 051
//*           little easier.  Sometimes, a good tool is available   *   FILE 051
//*           on the Internet, but for some reason, it isn't a      *   FILE 051
//*           good candidate to put on the CBT Tapes themselves.    *   FILE 051
//*           This file is therefore intended as a pointer, to      *   FILE 051
//*           help you get these materials yourself.                *   FILE 051
//*                                                                 *   FILE 051
//*           File 051 lists commercial (or pay, or vendor-         *   FILE 051
//*           supported software), downloadable or listed at        *   FILE 051
//*           Internet sites.                                       *   FILE 051
//*                                                                 *   FILE 051
//*  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  *   FILE 051
//*                                                                 *   FILE 051
//*           No responsibility is assumed by anybody connected     *   FILE 051
//*           with the CBT Tape materials, for anything that was    *   FILE 051
//*           downloaded by anybody from any of these sites.        *   FILE 051
//*           These sites are not under our control, and they may   *   FILE 051
//*           change at any time.  The URL's to get there, are      *   FILE 051
//*           provided, just so that people can find out about      *   FILE 051
//*           those materials, to determine if they are useful      *   FILE 051
//*           to them.  We do not guarantee in any way, that any    *   FILE 051
//*           URL's will stay up-to-date.                           *   FILE 051
//*                                                                 *   FILE 051
//*           Actually, the purpose for creating this file, is to   *   FILE 051
//*           let people know about materials that are specifically *   FILE 051
//*           NOT on the CBT Tape in the form that they are in.     *   FILE 051
//*           Either they belong to somebody, or are copyrighted by *   FILE 051
//*           somebody, but the bottom line is that somebody else   *   FILE 051
//*           controls them.  It is understood that there is no     *   FILE 051
//*           implied or explicit responsibility assumed by any     *   FILE 051
//*           individual or corporate entity having to do with the  *   FILE 051
//*           CBT Tape materials in any way, concerning anything    *   FILE 051
//*           obtained at these sites, in the past or in the        *   FILE 051
//*           future.  Use all of these materials at your own       *   FILE 051
//*           risk, or don't use them at all.                       *   FILE 051
//*                                                                 *   FILE 051
//*  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  *   FILE 051
//*                                                                 *   FILE 051
//*     Member    -  Short Description of Materials Available       *   FILE 051
//*     ------       ----------------------------------------       *   FILE 051
//*                                                                 *   FILE 051
//*     DIGNUS    -  Dignus SYSTEMS/C C compiler to BAL             *   FILE 051
//*                  assembler.  This is like PL/X, except that     *   FILE 051
//*                  it's a standard C language compiler.           *   FILE 051
//*                  Output is IBM S390 assembler code.             *   FILE 051
//*                  (This is a vendor product.)                    *   FILE 051
//*                  At this site you can do C compiles online      *   FILE 051
//*                  (up to 200 lines), and get assembler output,   *   FILE 051
//*                  so you can see how this compiler works.        *   FILE 051
//*                  See also Files 419 and 420.                    *   FILE 051
//*                                                                 *   FILE 051
//*     FASTPATH  -  FastPath Inc. provides inexpensive (a la       *   FILE 051
//*                  MacKinney) software products, currently        *   FILE 051
//*                  emphasizing backup and recovery.  ReMember     *   FILE 051
//*                  saves many copies of program source code       *   FILE 051
//*                  during the development process.  FX2000        *   FILE 051
//*                  provides quick VSAM and IAM backups and        *   FILE 051
//*                  restores, saving a lot of time from your       *   FILE 051
//*                  batch window.                                  *   FILE 051
//*                                                                 *   FILE 051
//*     MACKINNE  -  MacKinney Systems index of products.           *   FILE 051
//*                  MacKinney is a provider of inexpensive but     *   FILE 051
//*                  useful software for MVS, CICS, and VSE.        *   FILE 051
//*                  This is contact information for the company    *   FILE 051
//*                  and an informal list of their products.        *   FILE 051
//*                                                                 *   FILE 051
//***FILE 052 IS CURRENTLY EMPTY                                    *   FILE 052
//*                                                                 *   FILE 052
//***FILE 053 IS FROM DELUXE CHECK PRINTERS AND IS PART OF THE      *   FILE 053
//*           ISPF SYSTEM THEY SENT TO THE TAPE.  THIS FILE IS      *   FILE 053
//*           IN IEBUPDTE SYSIN FORMAT AND CONTAINS SOURCE          *   FILE 053
//*                                                                 *   FILE 053
//***FILE 054 IS FROM DELUXE CHECK PRINTERS AND IS PART OF THE      *   FILE 054
//*           ISPF SYSTEM THEY SENT TO THE TAPE.  THIS FILE IS      *   FILE 054
//*           IN IEBUPDTE SYSIN FORMAT AND CONTAINS ISPF PANELS     *   FILE 054
//*                                                                 *   FILE 054
//***FILE 055 IS FROM DELUXE CHECK PRINTERS AND IS PART OF THE      *   FILE 055
//*           ISPF SYSTEM THEY SENT TO THE TAPE.  THIS FILE IS      *   FILE 055
//*           IN IEBUPDTE SYSIN FORMAT AND CONTAINS ISPF MSGS       *   FILE 055
//*                                                                 *   FILE 055
//***FILE 056 IS FROM DELUXE CHECK PRINTERS AND IS PART OF THE      *   FILE 056
//*           ISPF SYSTEM THEY SENT TO THE TAPE.  THIS FILE IS IN   *   FILE 056
//*           IEBUPDTE SYSIN FORMAT AND CONTAINS ISPF SKELETONS     *   FILE 056
//*                                                                 *   FILE 056
//***FILE 057 IS FROM DELUXE CHECK PRINTERS AND IS PART OF THE      *   FILE 057
//*           ISPF SYSTEM THEY SENT TO THE TAPE.  THIS FILE IS      *   FILE 057
//*           IN IEBCOPY FORMAT AND CONTAINS ISPF CLISTS            *   FILE 057
//*                                                                 *   FILE 057
//***FILE 058 IS A TSO COMMAND CALLED LINKLIST FROM MR CHUCK        *   FILE 058
//*           HOFFMAN OF GTE LABS IN WALTHAM, MA.  THIS TSO         *   FILE 058
//*           COMMAND PROCESSOR SHOWS THE SYSTEM ID AND THE         *   FILE 058
//*           LINKLIST FOR THE RUNNING SYSTEM                       *   FILE 058
//*                                                                 *   FILE 058
//***FILE 059 IS A COMBINATION OF CLISTS AND ASSEMBLER PROGRAMS     *   FILE 059
//*           TO DISPLAY LAST IPL INFORMATION AND TODAY'S DATE      *   FILE 059
//*           ON A HANDY ISPF PANEL.  THIS FILE IS FROM KEN TOMIAK  *   FILE 059
//*           OF THE DEPT OF INFORMATION TECHNOLOGY AND TELECOMMU-  *   FILE 059
//*           NICATIONS (DOITT) OF NEW YORK CITY.                   *   FILE 059
//*                                                                 *   FILE 059
//*           THERE IS A SMALL ADDITION FROM SAM GOLOB.  THIS IS    *   FILE 059
//*           A PANEL CALLED "IDPANEL" WITH A REXX EXEC CALLED      *   FILE 059
//*           "SMCASID".  THIS PANEL IS MEANT TO BE EXECUTED VIA    *   FILE 059
//*           AN ENTRY IN YOUR ISPF COMMAND TABLE ISPCMDS.  THIS    *   FILE 059
//*           PANEL SHOWS USEFUL INFORMATION ABOUT YOUR CURRENT     *   FILE 059
//*           ISPF SESSION THAT IS INVOKING IT.  THE REXX EXEC      *   FILE 059
//*           "SMCASID" OBTAINS YOUR SYSTEM ID AND PUTS IT INTO     *   FILE 059
//*           AN ISPF VARIABLE IN THE SHARED POOL.  THIS IS GOOD    *   FILE 059
//*           IF YOU HAVE MULTIPLE SYSTEMS LIKE WE HAVE.  IF YOU    *   FILE 059
//*           HAVE ONLY ONE SYSTEM, YOU CAN CHANGE IDPANEL TO       *   FILE 059
//*           DELETE THE REFERENCES TO &SYSID AND THE COMMAND       *   FILE 059
//*           SMCASID WHICH OBTAINS IT.  THEN YOU DON'T NEED THE    *   FILE 059
//*           REXX EXEC.  IF YOU HAVE TSO/E 1.4 OR BELOW (WITHOUT   *   FILE 059
//*           REXX) YOU HAVE TO DO THIS ANYWAY, OR USE AN           *   FILE 059
//*           ASSEMBLER PROGRAM TO GET THE SYSTEM ID INTO A         *   FILE 059
//*           VARIABLE INSTEAD.                                     *   FILE 059
//*                                                                 *   FILE 059
//***FILE 060 IS THE SOFTWARE STATUS REPORT ISPF APPLICATION FROM   *   FILE 060
//*           MR CHARLES WELLS OF THE GEORGIA DEPARTMENT OF LABOR.  *   FILE 060
//*           SOFTWARE STATUS REPORT IS AN ISPF APPLICATION         *   FILE 060
//*           CONSISTING OF 3 LOAD MODULES, 2 CLISTS, 5 ISPF        *   FILE 060
//*           PANELS, 5 ISPF TUTORIAL PANELS, AND 4 ISPF MESSAGE    *   FILE 060
//*           MEMBERS.  IT ALLOWS RECORDING OF SOFTWARE PRODUCTS    *   FILE 060
//*           INSTALLED ON YOUR SYSTEM AND MAINTENANCE HISTORY FOR  *   FILE 060
//*           EACH PRODUCT. PRODUCTS CAN BE DISPLAYED BY PRODUCT    *   FILE 060
//*           NAME, ACRONYM, VENDOR, CATEGORY, FMID OR PTF/MOD. A   *   FILE 060
//*           FORMATTED HARDCOPY REPORT CAN BE PRODUCED, WITH       *   FILE 060
//*           PRODUCTS ORGANIZED ON THE REPORT ACCORDING TO         *   FILE 060
//*           CUSTOMIZABLE COMBINATIONS OF VENDOR AND CATEGORY.     *   FILE 060
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT AND CONTAINS    *   FILE 060
//*           ALL THE SOURCE AND ISPF PANELS                        *   FILE 060
//*           THIS FILE GOES WITH FILES 061 062 063 064             *   FILE 060
//*                                                                 *   FILE 060
//***FILE 061 IS THE SOFTWARE STATUS REPORT FROM THE GEORGIA        *   FILE 061
//*           DEPARTMENT OF LABOR.  THIS FILE CONTAINS THE          *   FILE 061
//*           THE LOAD MODULES AND IS IN IEBCOPY FORMAT             *   FILE 061
//*           THIS FILE GOES WITH FILES 060 062 063 064             *   FILE 061
//*                                                                 *   FILE 061
//***FILE 062 IS THE SOFTWARE STATUS REPORT FROM THE GEORGIA        *   FILE 062
//*           DEPARTMENT OF LABOR.  THIS FILE CONTAINS THE          *   FILE 062
//*           ONE RECORD FOR INITIALIZING SSRV.SOFTSTAT.INDXTBL     *   FILE 062
//*           IT IS LRECL=2040 BLKSIZE=2040 RECFM=FB                *   FILE 062
//*           THIS FILE GOES WITH FILES 060 061 063 064             *   FILE 062
//*                                                                 *   FILE 062
//***FILE 063 IS THE SOFTWARE STATUS REPORT FROM THE GEORGIA        *   FILE 063
//*           DEPARTMENT OF LABOR.  THIS FILE CONTAINS THE          *   FILE 063
//*           ONE RECORD FOR INITIALIZING SSRV.SOFTSTAT.PRODTBL     *   FILE 063
//*           IT IS LRECL=8180 BLKSIZE=8180 RECFM=FB                *   FILE 063
//*           THIS FILE GOES WITH FILES 060 061 062 064             *   FILE 063
//*                                                                 *   FILE 063
//***FILE 064 IS THE SOFTWARE STATUS REPORT FROM THE GEORGIA        *   FILE 064
//*           DEPARTMENT OF LABOR.  THIS FILE CONTAINS THE          *   FILE 064
//*           ONE RECORD FOR INITIALIZING SSRV.SOFTSTAT.HISTORY     *   FILE 064
//*           IT IS LRECL=53   BLKSIZE=53   RECFM=FB                *   FILE 064
//*           THIS FILE GOES WITH FILES 060 061 062 063             *   FILE 064
//*                                                                 *   FILE 064
//***FILE 065 IS FROM MR JAMES PURDY OF REVLON IN NEW JERSEY AND    *   FILE 065
//*           CONTAINS A MODIFICATION TO MODULE IEAVNP03 TO         *   FILE 065
//*           RECOGNIZE A DATASET IN THE LINKLIST THAT IS EITHER    *   FILE 065
//*           NOT CATALOGED OR IS CATALOGED BUT NOT IN THE MVS      *   FILE 065
//*           MASTER CATALOG. THERE ARE SEVERAL LEVELS OF THE       *   FILE 065
//*           MODIFICATION IN THIS FILE                             *   FILE 065
//*                                                                 *   FILE 065
//*           WHAT ELSE IS NEW?  JIM ISN'T AT REVLON ANY MORE.      *   FILE 065
//*           HIS CURRENT ADDRESS IS:                               *   FILE 065
//*                                                                 *   FILE 065
//*                JAMES PURDY                                      *   FILE 065
//*                ANDERSEN CONSULTING                              *   FILE 065
//*                1345 MEADOW GLEN                                 *   FILE 065
//*                SOUTHLAKE, TX  76092                             *   FILE 065
//*                (214) 402-7511                                   *   FILE 065
//*                                                                 *   FILE 065
//***FILE 066 IS FROM MR ALAN FIELD OF SUPER VALU IN EDEN PRAIRIE,  *   FILE 066
//*           MINNESOTA AND CONTAINS SEVERAL OF THEIR UTILITIES.    *   FILE 066
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT AND CONTAINS    *   FILE 066
//*           THE FOLLOWING                                         *   FILE 066
//*                                                                 *   FILE 066
//*              email:    alan.field@supervalu.com                 *   FILE 066
//*                                                                 *   FILE 066
//*           1. CLIST    - SOME CLISTS TO DEMONSTRATE THE USE      *   FILE 066
//*                         OF SOME OF THE UTILITIES INCLUDED IN    *   FILE 066
//*                         THIS FILE.                              *   FILE 066
//*                                                                 *   FILE 066
//*           2. CNTL     - JCL TO RUN SOME OF THE UTILITIES        *   FILE 066
//*                         INCLUDED IN THIS FILE.                  *   FILE 066
//*                                                                 *   FILE 066
//*           3. ASM      - ASSEMBLER LANGUAGE SOURCE FOR SOME      *   FILE 066
//*                         USEFUL UTILITIES.                       *   FILE 066
//*                                                                 *   FILE 066
//*                  CPCMD    - ENABLES MVS USERS RUNNING UNDER     *   FILE 066
//*                             VM TO ISSUE CP COMMANDS AND GET     *   FILE 066
//*                             THE RESPONSES BACK AT THEIR TSO     *   FILE 066
//*                             TERMINAL. CAN ALSO EXECUTED AS A    *   FILE 066
//*                             BATCH PROGRAM OR STARTED TASK.      *   FILE 066
//*                             LINK IT WITH AN ALIAS OF CP.  ON    *   FILE 066
//*                             TSO THEN ENTER CP Q DASD FOR        *   FILE 066
//*                             EXAMPLE, OR CP ATT 58A MVS.         *   FILE 066
//*                                                                 *   FILE 066
//*                  DASDSUB  - SUBROUTINE TO OBTAIN UCB            *   FILE 066
//*                             INFORMATION                         *   FILE 066
//*                                                                 *   FILE 066
//*                  DISASM3B - THE SVC TABLE FROM THE              *   FILE 066
//*                             DISASSEMBLER ON THE CBT TAPE.       *   FILE 066
//*                             MODIFIED FOR MVSXA AND COPIED       *   FILE 066
//*                             INTO SVCTAB.                        *   FILE 066
//*                                                                 *   FILE 066
//*                  DSSLVL   - DISPLAY CURRENT DF/DSS PROGRAM      *   FILE 066
//*                             LEVEL.                              *   FILE 066
//*                                                                 *   FILE 066
//*                  JULSUB   - DATE CONVERSION SUBROUTINE.         *   FILE 066
//*                                                                 *   FILE 066
//*                  LASTCLPA - COMMAND TO DISPLAY DATE AND TIME    *   FILE 066
//*                             OF LAST CLPA. A COMPANION           *   FILE 066
//*                             PROGRAM TO LASTIPL WHICH IS ON      *   FILE 066
//*                             THE CBT TAPE.                       *   FILE 066
//*                                                                 *   FILE 066
//*                  LNKLST   - DISPLAY NAMES OF LINK LIST          *   FILE 066
//*                             DATASETS CURRENTLY IN USE.          *   FILE 066
//*                                                                 *   FILE 066
//*                  RACFDS   - DISPLAY DATA ABOUT THE RACF         *   FILE 066
//*                             DATASET(S) IN USE.                  *   FILE 066
//*                                                                 *   FILE 066
//*                  SMFDS    - DISPLAY DATA ABOUT CURRENT SMF      *   FILE 066
//*                             DATASET USAGE.                      *   FILE 066
//*                                                                 *   FILE 066
//*                  SVCTAB   - PROGRAM TO DISPLAY SVCTABLE.        *   FILE 066
//*                                                                 *   FILE 066
//*                  TODCN    - PROGRAM TO CONVERT TIMESTAMPS       *   FILE 066
//*                             INTO REAL DATES AND TIMES.          *   FILE 066
//*                                                                 *   FILE 066
//*                  VSAMNAME - CONVERT AND DISPLAY 'REAL'          *   FILE 066
//*                             DATASET NAMES ASSIGNED BY VSAM      *   FILE 066
//*                             FOR PAGE, MAN ETC.                  *   FILE 066
//*                                                                 *   FILE 066
//*           4. MACROS   - MACROS NECESSARY TO ASSEMBLE SOURCE     *   FILE 066
//*                         IN MEMBER ASM.                          *   FILE 066
//*                                                                 *   FILE 066
//*           5. PLI      - SOME PL/I UTILITIES.                    *   FILE 066
//*                                                                 *   FILE 066
//***FILE 067 IS FROM COCA COLA IN ATLANTA AND CONTAINS TWO EXITS   *   FILE 067
//*           THAT ARE USED TO CONTROL VIO ALLOCATION, SIZE,        *   FILE 067
//*           FORCE TSO TEMPORARY DATA SETS TO DEDICATED TSO        *   FILE 067
//*           "PUBLIC" VOLUMES AND A FEW OTHER MISCELLANEOUS        *   FILE 067
//*           FUNCTIONS.  THIS FILE IS IN IEBUDPTE SYSIN FORMAT     *   FILE 067
//*           AND CONTAINS THE FOLLOWING :                          *   FILE 067
//*                                                                 *   FILE 067
//*            IEFDB401:                                            *   FILE 067
//*                                                                 *   FILE 067
//*              SVC99 EXIT TO ALLOCATE TSO TEMPORARY DATASETS TO   *   FILE 067
//*              A TSO ONLY SCRATCH PACK AND CONTROL THE SIZE OF    *   FILE 067
//*              VIO DATA SETS FROM TSO.  THIS EXIT CHANGES THE     *   FILE 067
//*              UNIT NAME FOR ALL DYNAMIC ALLOCATIONS TO SUPPORT   *   FILE 067
//*              THE FOLLOWING FUNCTIONS:                           *   FILE 067
//*                                                                 *   FILE 067
//*                 1) CONTROL VIO ALLOCATION SIZE.  THIS REQUIRES  *   FILE 067
//*                     THE USER TO SPECIFY UNIT(VIOALLOC).         *   FILE 067
//*                     UNIT=VIOALLOC IS NOT VALID IN THE SYSGEN    *   FILE 067
//*                     PARAMETERS.  IF THE SPACE= SPECIFIES A      *   FILE 067
//*                     VALID AMOUNT OF DISK SPACE, THE UNIT= IS    *   FILE 067
//*                     CHANGED TO UNIT=VIODA WHICH IS A 3340.  IF  *   FILE 067
//*                     UNIT=VIODA IS CODED IN THE JCL OR THE       *   FILE 067
//*                     SPACE= IS TOO LARGE, THE UNIT= IS CHANGED   *   FILE 067
//*                     TO UNIT=SYSDA.                              *   FILE 067
//*                                                                 *   FILE 067
//*                 2) FORCE TSO TEMPORARY DATASETS TO A DEDICATED  *   FILE 067
//*                     "PUBLIC" VOLUME.  UNIT(VIOALLOC) IS         *   FILE 067
//*                     SPECIFIED TO INVOKE THIS SERVICE.  IF THE   *   FILE 067
//*                     SPACE= IS MET IN 1) ABOVE, THE DATASET GOES *   FILE 067
//*                     TO VIO; OTHERWISE A CHECK IS MADE TO VERIFY *   FILE 067
//*                     THAT THE DYNAMIC ALLOCATION IS MADE BY A    *   FILE 067
//*                     TSO USER.  IF IT IS A TSO USER, UNIT=TSODA  *   FILE 067
//*                     IS USED TO FORCE TSO DATASETS TO DEDICATED  *   FILE 067
//*                     TSO "PUBLIC" VOLUMES.  ANY ATTEMPT TO CODE  *   FILE 067
//*                     UNIT(TSODA) IS REPLACED BY UNIT(SYSDA).     *   FILE 067
//*                                                                 *   FILE 067
//*                 3) VERIFY THAT ALL IMS ALLOCATION OF AN         *   FILE 067
//*                     INTERNAL READER COMES FROM PROGRAM          *   FILE 067
//*                     O9061S75.  THIS IS TO ENSURE THAT ACF2 HAS  *   FILE 067
//*                     THE CORRECT SYSTEM ID FOR JOBS SUBMITTED BY *   FILE 067
//*                     IMS TRANSACTIONS.  AN ATTEMPT TO VIOLATE    *   FILE 067
//*                     ACF2 REQUIREMENTS GETS THE USER A S0C3.     *   FILE 067
//*                                                                 *   FILE 067
//*                 4) UNIT=DISK IS SUBSTITUTED FOR ALL UNIT=XXXX   *   FILE 067
//*                     WHERE XXXX IS EXACTLY FOUR CHARACTERS LONG. *   FILE 067
//*                                                                 *   FILE 067
//*            IEFUJV:                                              *   FILE 067
//*                                                                 *   FILE 067
//*              SMF EXIT TO CHANGE JCL TO MEET COMPANY STANDARDS.  *   FILE 067
//*              IT SUPPORTS THE MSVGP= PARAMETER FOR A NON-3850    *   FILE 067
//*              ENVIRONMENT, CONTROLS VIO SPACE ALLOCATION AND     *   FILE 067
//*              SEVERAL OTHER MISCELLANEOUS FUNCTIONS.  SUPPORTS   *   FILE 067
//*              THE FOLLOWING FUNCTIONS:                           *   FILE 067
//*                                                                 *   FILE 067
//*               I. JOB CARD -- NO ACTION                          *   FILE 067
//*                                                                 *   FILE 067
//*              II. EXEC CARD                                      *   FILE 067
//*                                                                 *   FILE 067
//*                 1) WRITE AN SMF TYPE 131 RECORD IF A PROC IS    *   FILE 067
//*                     EXECUTED.  THIS IS TO ALLOW DETERMINATION   *   FILE 067
//*                     WHICH PROCS ARE USED AND WHICH ARE NOT      *   FILE 067
//*                                                                 *   FILE 067
//*             III. DD CARD                                        *   FILE 067
//*                                                                 *   FILE 067
//*                 1) CONTROL VIO ALLOCATION SIZE.  THIS REQUIRES  *   FILE 067
//*                     THE USER TO SPECIFY UNIT=VIOALLOC.          *   FILE 067
//*                     UNIT=VIOALLOC IS NOT VALID IN THE SYSGEN    *   FILE 067
//*                     PARAMETERS.  IF THE SPACE= SPECIFIES A      *   FILE 067
//*                     VALID AMOUNT OF DISK SPACE, THE UNIT= IS    *   FILE 067
//*                     CHANGED TO UNIT=VIODA WHICH IS A 3340.  IF  *   FILE 067
//*                     UNIT=VIODA IS CODED IN THE JCL OR THE       *   FILE 067
//*                     SPACE= IS TOO LARGE, THE UNIT= IS CHANGED   *   FILE 067
//*                     TO UNIT=SYSDA.  THIS JOB HAS THE NAME OF    *   FILE 067
//*                     TWO BATCH JOBS THAT ARE ALLOWED TO USE VIO, *   FILE 067
//*                     OTHERWISE VIO IS RESTRICTED TO TSO USERS    *   FILE 067
//*                     ONLY.  BOTH UNIT= AND SPACE= MUST BE ON THE *   FILE 067
//*                     SAME CARD FOR THIS TO WORK.  UNIT= MUST     *   FILE 067
//*                     ALSO BE THE LAST PARAMETER ON THE LAST CARD *   FILE 067
//*                     OF A DD CARD CONCATENATION.                 *   FILE 067
//*                                                                 *   FILE 067
//*                 2) FORCE TSO TEMPORARY DATASETS TO A DEDICATED  *   FILE 067
//*                     "PUBLIC" VOLUME.  UNIT=VIOALLOC IS          *   FILE 067
//*                     SPECIFIED TO INVOKE THIS SERVICE.  IF THE   *   FILE 067
//*                     SPACE= IS MET IN 1) ABOVE, THE DATASET GOES *   FILE 067
//*                     TO VIO; OTHERWISE A CHECK IS MADE TO VERIFY *   FILE 067
//*                     THAT THE DYNAMIC ALLOCATION IS MADE BY A    *   FILE 067
//*                     TSO USER.  IF IT IS A TSO USER, UNIT=TSODA  *   FILE 067
//*                     IS USED TO FORCE TSO DATASETS TO DEDICATED  *   FILE 067
//*                     TSO "PUBLIC" VOLUMES.  ANY ATTEMPT TO CODE  *   FILE 067
//*                     UNIT(TSODA) IS REPLACED BY UNIT(SYSDA).     *   FILE 067
//*                     BOTH UNIT= AND SPACE= MUST BE ON THE SAME   *   FILE 067
//*                     CARD FOR THIS TO WORK.                      *   FILE 067
//*                                                                 *   FILE 067
//*                 3) MSVGP=GDGDAN IS OUR INSTALLATION             *   FILE 067
//*                     SPECIFICATION FOR DISK GDG DATASETS         *   FILE 067
//*                     (CURRENTLY 2 3380-BE4 UNITS WORTH).  THE    *   FILE 067
//*                     CODE TO IMPLEMENT THIS IS IN THIS EXIT.     *   FILE 067
//*                     MSVGP= MUST BE THE ONLY USEFUL INFORMATION  *   FILE 067
//*                     ON THE LAST CARD OF A DD CARD CONTINUATION  *   FILE 067
//*                     FOR THIS TO WORK BECAUSE THE ENTIRE CARD IS *   FILE 067
//*                     REPLACED.                                   *   FILE 067
//*                                                                 *   FILE 067
//*                 4) THE ARCHAIC FORM OF THE INTERNAL READER IS   *   FILE 067
//*                     CHANGED TO THE CURRENTLY SUPPORTED VERSION. *   FILE 067
//*                                                                 *   FILE 067
//***FILE 068 IS CURRENTLY EMPTY                                    *   FILE 068
//*                                                                 *   FILE 068
//***FILE 069 IS FROM CARMINE A. CANNATELLO OF NEW YORK CITY        *   FILE 069
//*           AND CONTAINS MACHINE-READABLE COPY   OF THE           *   FILE 069
//*           CODING EXAMPLES FROM HIS EXCELLENT BOOK, "ADVANCED    *   FILE 069
//*           ASSEMBLER LANGUAGE AND MVS INTERFACES", PUBLISHED     *   FILE 069
//*           BY JOHN WILEY AND SONS.                               *   FILE 069
//*                                                                 *   FILE 069
//*           This file contains coding examples from the           *   FILE 069
//*           Second Edition of Carmine's book - revised 1999.      *   FILE 069
//*                                                                 *   FILE 069
//*       THE ADDRESS OF THE PUBLISHER IS:                          *   FILE 069
//*                                                                 *   FILE 069
//*              John Wiley & Sons Inc.                             *   FILE 069
//*              Professional, Reference and Trade Group            *   FILE 069
//*              605 Third Avenue                                   *   FILE 069
//*              New York, NY 10158-0012                            *   FILE 069
//*              (212) 850-6000   MAIN NUMBER                       *   FILE 069
//*                                                                 *   FILE 069
//*         web site:  http://www.wiley.com/compbooks               *   FILE 069
//*                                                                 *   FILE 069
//*       To order a copy of the second edition of this book,       *   FILE 069
//*       please call:   1-800-225-5945  extension 2497             *   FILE 069
//*           ISBN number:   0471-361-763                           *   FILE 069
//*                                                                 *   FILE 069
//*           THIS BOOK IS A CLEAR GUIDE TO JUST ABOUT EVERY        *   FILE 069
//*           TYPE OF ASSEMBLER CODING YOU MIGHT DO IN A SYSTEMS    *   FILE 069
//*           PROGRAMMING APPLICATION.  THE KNOWLEDGE GIVEN IN      *   FILE 069
//*           HIS BOOK WILL HELP YOU TO UNDERSTAND THE METHODS      *   FILE 069
//*           BEHIND MUCH OF THE CODING THAT YOU'LL FIND ON THIS    *   FILE 069
//*           TAPE.  I HIGHLY RECOMMEND THAT YOU GET THIS BOOK      *   FILE 069
//*           FOR YOUR OWN PROFESSIONAL IMPROVEMENT.  (SAM GOLOB)   *   FILE 069
//*                                                                 *   FILE 069
//*           CARMINE NORMALLY SELLS THIS MATERIAL ON A DISKETTE    *   FILE 069
//*           FOR 50 DOLLARS.  HE HAS GRACIOUSLY ALLOWED THE        *   FILE 069
//*           MATERIAL TO APPEAR ON THIS TAPE FOR THE BENEFIT       *   FILE 069
//*           OF WORKING PRACTITIONERS IN THIS FIELD.  THIS FILE    *   FILE 069
//*           WAS CREATED FROM CARMINE'S DISKETTE.                  *   FILE 069
//*                                                                 *   FILE 069
//***FILE 070 SEVERAL MVS MODIFICATIONS IN SMP FORMAT THAT          *   FILE 070
//*           HAVE BEEN RECEIVED FROM COMPUTER SCIENCES CORP.       *   FILE 070
//*           SAN DIEGO, CALIFORNIA 92123.  AS WITH EVERYTHING      *   FILE 070
//*           ON THIS TAPE USE AT YOUR OWN RISK.                    *   FILE 070
//*                                                                 *   FILE 070
//*           CURRENT ADDRESS FOR INQUIRIES:                        *   FILE 070
//*                                                                 *   FILE 070
//*               C.M. SINGER                                       *   FILE 070
//*               COMPUTER SCIENCES CORPORATION - TMD               *   FILE 070
//*               MAIL ZONE W1-5311                                 *   FILE 070
//*               5021 KEARNY VILLA ROAD                            *   FILE 070
//*               SAN DIEGO, CALIFORNIA 92123-1407                  *   FILE 070
//*                                                                 *   FILE 070
//*               TELEPHONE 619-573-3020                            *   FILE 070
//*                                                                 *   FILE 070
//*           THE FOLLOWING IS A LIST OF THE MODIFICATIONS FROM     *   FILE 070
//*           GENERAL DYNAMICS THAT ARE INCLUDED IN THIS FILE.      *   FILE 070
//*           NOTE !.  CODE THAT IS PROPRIETARY OR COPYRIGHTED IS   *   FILE 070
//*           NOT INCLUDED EVEN THOUGH THE FOLLOWING LIST MAY IMPLY *   FILE 070
//*           THAT IT IS.                                           *   FILE 070
//*                                                                 *   FILE 070
//*             ALLOW DF/DSS TO RESTORE TO ALLOC VOL                *   FILE 070
//*             DF/DSS ENQ EXIT - SKIP ENQ FOR ALL VOLS             *   FILE 070
//*             FORCE DF/DSS TO RESTORE DSN LIKE FDRDSF             *   FILE 070
//*             UPDATE GDG BASE LEVEL AT STEP END                   *   FILE 070
//*             MAKE '#' TAB CHARACTER FOR TSO EDIT                 *   FILE 070
//*             CHANGE VARY ON MOUNT ATTRIB TO PRIVATE              *   FILE 070
//*             DO NOT ALLOW VIO FOR LARGE DATASETS, ETC.           *   FILE 070
//*             IMS/VS AND NETEX RESOURCE CLEANUP MOD               *   FILE 070
//*             IGC0805A ZAP FOR IMSVS FORMATTED DUMPS              *   FILE 070
//*             IEFU83 TO NOT WRITE CERTAIN RECORDS, ETC            *   FILE 070
//*             MAKE DEFAULT TSO ALLOC DISP=SHR                     *   FILE 070
//*             BYPASS 'DATA SET NOT FREED MESSAGE'                 *   FILE 070
//*             REGION LIMIT VALUES                                 *   FILE 070
//*             EXTEND CERTAIN TSO USERS WAIT TIME TO 5 HR          *   FILE 070
//*             LIMIT NUMBER OF RECORDS FOR SYS1.BROADCAST          *   FILE 070
//*             LOGON PARAMTER CSECT                                *   FILE 070
//*             INSTALL STEP END STATISTICS MODULE                  *   FILE 070
//*             MAKE REAL DASD NOT IN VATLST PRIV/RSVD              *   FILE 070
//*             MAKE 'RETAIN' DEFAULT VOL SPECIFICATION             *   FILE 070
//*             USE IEASYSXX AS DEFAULT (XX=F(CPU SERIAL))          *   FILE 070
//*             TSO SUBMIT EXIT - KILL BAD JOBNAMES                 *   FILE 070
//*             CHANGES TO HOT IO DETECTION CONSTANTS               *   FILE 070
//*             SUPPLY OUR IEAVMXIT (CHANGE ROUTE CODES)            *   FILE 070
//*             ADD X AS SUBCOMMAND OF EDIT                         *   FILE 070
//*             PUT ACCT NUMBER IN ACF2 ACCT FIELD                  *   FILE 070
//*             DECREASE GVTOLINT AND GVTMEINT                      *   FILE 070
//*             INCREASE NIP SQA ALLOCATION                         *   FILE 070
//*             SMF EXIT TO CATCH TYPE04 & 34 RECORDS               *   FILE 070
//*             ZAP DYNALLOC TO SYSDA FROM SYSALLDA                 *   FILE 070
//*             ZAP EXTERNAL WTR FOR JESLOGX (AJSW040)              *   FILE 070
//*             UPDATE MACRO FOR SYSOUT COST EST.(AJSW042)          *   FILE 070
//*             INCREASE NUMBER OF DEVICES ALLOWED TO 512           *   FILE 070
//*             INTERACTIVE DATA TRANSMISSION OPTIONS DSECT         *   FILE 070
//*             ACF2 PRE-VALIDATION EXIT                            *   FILE 070
//*             ACF2 VIOLATION EXIT                                 *   FILE 070
//*             ACF2 LOGON POST VALIDATION EXIT                     *   FILE 070
//*             COMMAND LIMITING LIST FOR ACF2                      *   FILE 070
//*             ACF2/IMS INSTALLATION OPTIONS PROD & TEST           *   FILE 070
//*             ACF2 FDR RECORD DEFINITION                          *   FILE 070
//*             SKIP SECURITY CHECK FOR TAPES OUTSIDE TMS           *   FILE 070
//*             ADD INFO TO TYPE 26 SMF RECORD                      *   FILE 070
//*             SET TRANSMISSION SEQUENCE FOR NJE SECTIONS          *   FILE 070
//*             INSTALL NOTE11 NEXT-KEY FUNCTION                    *   FILE 070
//*             NOTE12 INSTALLATION UM12001                         *   FILE 070
//*             MAKE OLDGENER ALIAS                                 *   FILE 070
//*             ALLOW ISAM UPDATES WITH DISP=SHR                    *   FILE 070
//*             IF DATASET IS VIO THEN BUFNO=1                      *   FILE 070
//*             PUT CHARGE NUMBER IN FMT1 DSCB                      *   FILE 070
//*             DF/DS DASD ALLOCATION PREPROCESSING EXIT            *   FILE 070
//*             DF/DS DASD ALLOCATION POSTPROCESSING EXIT           *   FILE 070
//*             CHANGES TO SYSGEN JOBCARD MACRO                     *   FILE 070
//*             SPF COMMAND TO FRONT END ISPF/PDF                   *   FILE 070
//*             TSO COMMAND IN ISPF COMMAND TABLE                   *   FILE 070
//*             MIGRATION VOLUME EXIT                               *   FILE 070
//*             HSM TAPE DATASET EXIT                               *   FILE 070
//*             HSM - ACF2 INTERFACE EXIT                           *   FILE 070
//*             HSM MIGRATION EXIT - LIMIT TO < 50 CYL.             *   FILE 070
//*             ACF2,RINGCHK,EXPDTCHK,STARS FOR IMS,CICS            *   FILE 070
//*             ACCT + MAKE LINES FOR STC + TSO = OUTLIM            *   FILE 070
//*             NON-STANDARD LABEL VERIFY ROUTINE                   *   FILE 070
//*             ALLOW GENERAL INQUIRY CMDS FROM RJP TERMS           *   FILE 070
//*             UPDATE GDG BASE LEVEL AT STEP END                   *   FILE 070
//*             JOB HEADER PAGE INFORMATION                         *   FILE 070
//*             ACCT (ACCT #) VALIDATION + DSP DICT.                *   FILE 070
//*             (PRE AJSW003) / RESTRICTED CLASS CHECKING           *   FILE 070
//*             DO NOT ALLOW PRTY=0 TO BE RELEASED                  *   FILE 070
//*             MAKE ANYLOCAL MEAN PRT3800 + PRT3211                *   FILE 070
//*             COMPUTE OSE PRIORITIES, CANCEL JUNK,                *   FILE 070
//*             MAKE SOME STARTED TASKS CLASS A                     *   FILE 070
//*             DEFINE USER FIELDS IN MACRO IATYTVT                 *   FILE 070
//*             COMPUTE JOB PRIORITY + CHANGE CLASS                 *   FILE 070
//*             JOB TRAILER PAGE INFORMATION                        *   FILE 070
//*             DON'T MLOG VERIFY MESSAGES DURING CONNECT           *   FILE 070
//*             ALLOW *T ALL COMMAND TO SEND TO ALL SYSTEMS         *   FILE 070
//*             ALLOW GENERIC STATUS AND CHECK OWNERSHIP            *   FILE 070
//*             SMF RECORDING FOR NJE SYSOUT DATASETS               *   FILE 070
//*             CHANGE MULTILEAVING DELAY TO .50 SECS               *   FILE 070
//*             RETURN NEW SECOND LEVEL MESSAGE TO STATUS           *   FILE 070
//*             PUT JULIAN DATE IN MLG MESSAGES(FROM EDSC)          *   FILE 070
//*             DELETE TIME STAMP FROM 3277 MESSAGES                *   FILE 070
//*             USE RQNETID IF NET = *NET-ID* FOR DJC WTO           *   FILE 070
//*             ALLOW ALL AS MPNAME ON *I G AND *F G CMDS           *   FILE 070
//*             BYPASS DESTINATION VALIDATION FOR XWTRS             *   FILE 070
//*             PUT DATASET LINECOUNT IN SSOB FOR XWTR              *   FILE 070
//*             ACF2 CODE FOR JCL PROCESSING                        *   FILE 070
//*             DON'T PRINT JESMSG, SYSMSG, JESJCL HEADERS          *   FILE 070
//*             DSP DICTIONARY ENTRIES                              *   FILE 070
//*             ADD INIT BLIP MESSAGE IAT0001                       *   FILE 070
//*             CREATE WRITE-TO-PROGRAMMER DSP (WTP)                *   FILE 070
//*             *V XXX,ALL WILL VARY DEVICE TO ALL SYSTEMS          *   FILE 070
//*             SYSLOG/EXTERNAL WTR EXECUTIVE                       *   FILE 070
//*             COST ESTIMATE INFO                                  *   FILE 070
//*             ENHANCEMENTS TO THE *I,B COMMAND                    *   FILE 070
//*             MODS TO JSM TO SCAN ALL JOBS + NO CANCEL            *   FILE 070
//*             PROGRAM TO ISSUE JES3 COMMANDS                      *   FILE 070
//*             JESOPER COMMAND                                     *   FILE 070
//*             ISSUE DEVICE CLOSE IF UNDER VM                      *   FILE 070
//*             SILO JES3 SUPPORT MODS                              *   FILE 070
//*             RESTRICTED CLASS VERIFICATON USERMOD                *   FILE 070
//*             VTAM USER EXIT (FRANK NASH)                         *   FILE 070
//*             3767 USER OUTPUT EXIT ROUTINE                       *   FILE 070
//*                                                                 *   FILE 070
//***FILE 071 IS A COLLECTION OF DOCUMENTATION FILES FROM OTHER     *   FILE 071
//*           TAPES.  INCLUDED TAPES ARE:                           *   FILE 071
//*                                                                 *   FILE 071
//*  ===>>   CBT OVERFLOW TAPE (HAS OTHER MATERIALS SUCH AS         *   FILE 071
//*          EUROPEAN AND AUSTRALIAN G.U.I.D.E. TAPES, FULL         *   FILE 071
//*          CONTENTS OF THE SPLA MVS TAPE - FINAL VERSION)         *   FILE 071
//*  ===>>   CICS SHARE TAPE                                        *   FILE 071
//*  ===>>   SHARE SOFTWARE DISTRIBUTION DISKETTES (FROM THE PC     *   FILE 071
//*          WHICH CONTAINS CONTRIBUTED SOFTWARE AT SHARE MEETINGS) *   FILE 071
//*  ===>>   JES2 SHARE TAPE                                        *   FILE 071
//*  ===>>   JES2 NON-SP SHARE TAPE                                 *   FILE 071
//*  ===>>   JES3 SHARE/GUIDE TAPE                                  *   FILE 071
//*  ===>>   LOS ANGELES MVS USERS GROUP TAPE (NOW IN CBT OVERFLOW) *   FILE 071
//*  ===>>   NASPA VIP MVS TAPE                                     *   FILE 071
//*  ===>>   NASPA VIP VM/VSE TAPE                                  *   FILE 071
//*  ===>>   NASPA BEEM TAPE                                        *   FILE 071
//*  ===>>   PL/I SHARE TAPE                                        *   FILE 071
//*  ===>>   SPLA MVS TAPE                                          *   FILE 071
//*  ===>>   CBT TAPE VERSION 249 (BEFORE MASSIVE DELETION)         *   FILE 071
//*  ===>>   XEPHON ARTICLES AND CODE, DOWNLOADABLE FROM            *   FILE 071
//*          WWW.XEPHON.COM - 2 YEARS OLD OR MORE, ARE FREE...      *   FILE 071
//*                                                                 *   FILE 071
//*           PUTTING THESE DOCUMENTATION FILES TOGETHER MAKES      *   FILE 071
//*           INFORMATION RESIDING ON OTHER PUBLIC TAPES EASIER     *   FILE 071
//*           TO FIND.                                              *   FILE 071
//*                                                                 *   FILE 071
//*           ALSO SEE FILE 077 WHICH CONTAINS A TAPEMAP OF THE     *   FILE 071
//*           LOS ANGELES MVS USERS GROUP TAPE.                     *   FILE 071
//*                                                                 *   FILE 071
//***FILE 072 IS FROM MORRIS KARLIN OF THE HUMAN RESOURCES          *   FILE 072
//*           ADMINISTRATION OF NEW YORK CITY, AND CONTAINS HIS     *   FILE 072
//*           ISPF INTERFACE TO THE PANEXEC PRODUCT.  IN ORDER      *   FILE 072
//*           TO RUN THIS INTERFACE, YOU HAVE TO BE LICENSED FOR    *   FILE 072
//*           THE PANEXEC PRODUCT, FORMERLY FROM PANSOPHIC, AND     *   FILE 072
//*           NOW FROM COMPUTER ASSOCIATES.  THIS FILE, AND FILES   *   FILE 072
//*           073 THRU 076 WHICH COME TOGETHER WITH IT, CONTAIN     *   FILE 072
//*           NO LICENSED MATERIALS.                                *   FILE 072
//*                                                                 *   FILE 072
//*           THIS FILE CONTAINS PANELS, SKELETONS, MESSAGES, AND   *   FILE 072
//*           TABLES FOR THE PANEXEC ISPF INTERFACE.                *   FILE 072
//*                                                                 *   FILE 072
//*           INSTALLATION MATERIAL FOR THIS PACKAGE IS CONTAINED   *   FILE 072
//*           IN MEMBERS PXP000B1 THRU PXP000B8 OF THIS FILE.       *   FILE 072
//*           THE INSTALLATION MATERIALS APPEAR IN ISPF TUTORIAL    *   FILE 072
//*           PANEL FORMAT.                                         *   FILE 072
//*                                                                 *   FILE 072
//***FILE 073 IS FROM MORRIS KARLIN OF THE HUMAN RESOURCES          *   FILE 073
//*           ADMINISTRATION OF NEW YORK CITY, AND CONTAINS THE     *   FILE 073
//*           LOAD MODULES FOR HIS PANEXEC ISPF INTERFACE.          *   FILE 073
//*                                                                 *   FILE 073
//***FILE 074 IS FROM THE NATIONAL SYSTEMS PROGRAMMERS ASSOCIATION  *   FILE 074
//*           (NASPA) AND CONTAINS A COLLECTION OF ASSEMBLER MACROS *   FILE 074
//*           TO INTERFACE TO ISPF.  THE MACROS WERE WRITTEN BY     *   FILE 074
//*           ROBERT BECKER, AND SOME OF THEM WERE MODIFIED BY      *   FILE 074
//*           MORRIS KARLIN.  THESE MACROS ARE NECESSARY TO         *   FILE 074
//*           ASSEMBLE THE SOURCE CODE ON FILE 075.                 *   FILE 074
//*                                                                 *   FILE 074
//***FILE 075 IS FROM MORRIS KARLIN OF THE HUMAN RESOURCES          *   FILE 075
//*           ADMINISTRATION OF NEW YORK CITY, AND CONTAINS THE     *   FILE 075
//*           ASSEMBLER SOURCE FOR HIS PANEXEC ISPF INTERFACE.      *   FILE 075
//*                                                                 *   FILE 075
//***FILE 076 IS FROM MORRIS KARLIN OF THE HUMAN RESOURCES          *   FILE 076
//*           ADMINISTRATION OF NEW YORK CITY, AND CONTAINS THE     *   FILE 076
//*           PANEXEC COMMAND PROCEDURES NECESSARY TO RUN THE       *   FILE 076
//*           ISPF DIALOGS FOR HIS PANEXEC ISPF INTERFACE.          *   FILE 076
//*                                                                 *   FILE 076
//***FILE 077 IS CURRENTLY EMPTY                                    *   FILE 077
//*                                                                 *   FILE 077
//***FILE 078 IS FROM JOHN KALINICH OF THE U.S. ARMY IN ST LOUIS,   *   FILE 078
//*           MISSOURI, WITH ONE ADDITION FROM LIONEL DYCK OF       *   FILE 078
//*           KAISER PERMANENTE IN WALNUT CREEK, CA.  THIS FILE     *   FILE 078
//*           CONTAINS A COLLECTION OF ISPF EDIT MACROS AND OTHER   *   FILE 078
//*           ISPF GOODIES.  THIS FILE COMES FROM JOHN AND          *   FILE 078
//*           LIONEL'S ISPF FILES ON THE SHARE CD ROM (SHARE        *   FILE 078
//*           85 CURRENTLY), BUT JOHN PREPARED THIS VERSION FOR     *   FILE 078
//*           CBT TAPE DISTRIBUTION SPECIFICALLY.                   *   FILE 078
//*                                                                 *   FILE 078
//*      ISPF Edit Macros & Dialogs                                 *   FILE 078
//*      July 16, 1998                                              *   FILE 078
//*                                                                 *   FILE 078
//*             John Kalinich                                       *   FILE 078
//*             USA Logistics Systems                               *   FILE 078
//*              Support Center                                     *   FILE 078
//*             AMSEL-SE-BSD-LS-TD, Room 7.103                      *   FILE 078
//*             1222 Spruce Street                                  *   FILE 078
//*             St. Louis, MO.  63103-2834                          *   FILE 078
//*                                                                 *   FILE 078
//*             314-331-4521                                        *   FILE 078
//*             314-331-4520 (FAX)                                  *   FILE 078
//*                                                                 *   FILE 078
//*     SHARE Installation Code:  ALM                               *   FILE 078
//*     Internet mailbox:  jkalinic@csc.com                         *   FILE 078
//*                                                                 *   FILE 078
//*    .------------------------------------------------------.     *   FILE 078
//*    |     Feel free to call if you have any problems       |     *   FILE 078
//*    |       with this code.                                |     *   FILE 078
//*    |     If you can't reach me by phone, then send me     |     *   FILE 078
//*    |       an e-mail or fax.                              |     *   FILE 078
//*    '------------------------------------------------------'     *   FILE 078
//*                                                                 *   FILE 078
//*     File     Ext    Description                                 *   FILE 078
//*                                                                 *   FILE 078
//*     $CHANGE  LOG    Changes to macros/dialogs since SHARE 78    *   FILE 078
//*     $INSTALL ME     An attempt at install instructions          *   FILE 078
//*     $READ    ME     What you are reading                        *   FILE 078
//*     $WARRAN  TEE    The standard "mods" disclaimer              *   FILE 078
//*     #ACFCOMP PAN    Tutorial panel for ACFCOMP macro            *   FILE 078
//*     #ACFTRAP PAN    Tutorial panel for ACFTRAP macro            *   FILE 078
//*     #ASA2PC  PAN    Tutorial panel for ASA2PC macro             *   FILE 078
//*     #BROWSE4 PAN    Tutorial panel for BROWSE4 macro            *   FILE 078
//*     #EOL     PAN    Tutorial panel for EOL macro                *   FILE 078
//*     #FX      PAN    Tutorial panel for FX macro                 *   FILE 078
//*     #FXC     PAN    Tutorial panel for FXC macro                *   FILE 078
//*     #GO      PAN    Tutorial panel for GO macro                 *   FILE 078
//*     #JC      PAN    Tutorial panel for JC macro                 *   FILE 078
//*     #LISTDSI PAN    Tutorial panel for LISTDSI macro            *   FILE 078
//*     #MEMLIST PAN    Tutorial panel for MEMLIST macro            *   FILE 078
//*     #OPER    PAN    Tutorial panel for OPER macro               *   FILE 078
//*     #PLUG    PAN    Tutorial panel for PLUG macro               *   FILE 078
//*     #PROFSET PAN    Tutorial panel for PROFSET macro            *   FILE 078
//*     #RUN     PAN    Tutorial panel for RUN macro                *   FILE 078
//*     #RUNACF  PAN    Tutorial panel for RUNACF macro             *   FILE 078
//*     #SHOWCUT PAN    Tutorial panel for SHOWCUT macro            *   FILE 078
//*     #TESTACF PAN    Tutorial panel for TESTACF macro            *   FILE 078
//*     #UNX     PAN    Tutorial panel for UNX macro                *   FILE 078
//*     #WEAVE   PAN    Tutorial panel for WEAVE macro              *   FILE 078
//*     ACFCOMP  REX    ACFCOMP macro - Compile the ACF2 rule       *   FILE 078
//*                     currently being edited                      *   FILE 078
//*     ACFTRAP  REX    ACFTRAP macro - Queue ACF subcommands and   *   FILE 078
//*                     trap output                                 *   FILE 078
//*     ASA2PC   REX    ASA2PC macro - Convert ASA printer control  *   FILE 078
//*                     to ASCII code                               *   FILE 078
//*     BROWSE4  CLI    BROWSE4 macro - Invoke ISPF Browse/View     *   FILE 078
//*                     while in edit                               *   FILE 078
//*     BROWZE   CLI    CLIST dialog to browse data sets (for ISPF  *   FILE 078
//*                     command table usage)                        *   FILE 078
//*     CALCP    PAN    Pop-up window used in CALC                  *   FILE 078
//*                     command/COMPUTE dialog                      *   FILE 078
//*     CEILING  REX    REXX function to find smallest integer      *   FILE 078
//*                     >= argument                                 *   FILE 078
//*     CLONEID  REX    REXX dialog to decomp a logonid into        *   FILE 078
//*                     INSERT format for cloning                   *   FILE 078
//*     COMPUTE  REX    REXX dialog to calculate Rexx               *   FILE 078
//*                     arithmetic expressions                      *   FILE 078
//*     DSK33XX  CLI    CLIST dialog for disk space calculation     *   FILE 078
//*                     (3350/3380/3390)                            *   FILE 078
//*     DSK33XX  PAN    ISPF panel for disk space calculation       *   FILE 078
//*                     (3350/3380/3390)                            *   FILE 078
//*     DVOL     CLI    CLIST dialog to display disk free space     *   FILE 078
//*                     stats from DVOL command                     *   FILE 078
//*     DVOL     PAN    ISPF panel for DVOL dialog                  *   FILE 078
//*     DVOLTBLH PAN    Tutorial panel for DVOL table display       *   FILE 078
//*                     (short)                                     *   FILE 078
//*     DVOLTBLL PAN    ISPF panel used by DVOL table display       *   FILE 078
//*                     (long)                                      *   FILE 078
//*     DVOLTBLS PAN    ISPF panel used by DVOL table display       *   FILE 078
//*                     (short)                                     *   FILE 078
//*     EB       CLI    CLIST dialog to Edit/Browse by the          *   FILE 078
//*                     numbers from a menu of DSNs                 *   FILE 078
//*     EBH01A   PAN    Tutorial panel for Edit/Browse menu         *   FILE 078
//*     EBH01B   PAN    Turorial panel for Edit/Browse set          *   FILE 078
//*                     default modes and libraries                 *   FILE 078
//*     EB00     MSG    ISPF messages for Edit/Browse dialog        *   FILE 078
//*     EB01A    PAN    ISPF panel for Edit/Browse menu             *   FILE 078
//*     EB01B    PAN    ISPF panel for Edit/Browse set default      *   FILE 078
//*                     modes and libraries                         *   FILE 078
//*     EDET     CLI    CLIST dialog to edit data sets (for         *   FILE 078
//*                     ISPF command table usage)                   *   FILE 078
//*     EDITALL  REX    Run an ISPF Edit macro against every        *   FILE 078
//*                     member of a PDS.  (from Lionel Dyck)        *   FILE 078
//*     EOL      REX    EOL macro - Set cursor at end of            *   FILE 078
//*                     current screen line                         *   FILE 078
//*     FLOOR    REX    REXX function to find largest integer       *   FILE 078
//*                     <= argument                                 *   FILE 078
//*     FX       CLI    FX macro  - FIND 'str' ALL                  *   FILE 078
//*                     after EXCLUDE ALL                           *   FILE 078
//*     FX       SPF    FX macro  - REXX version for SPF/PC         *   FILE 078
//*                     Version 3.0                                 *   FILE 078
//*     FXC      CLI    FXC macro - FIND 'str @ cursor' ALL         *   FILE 078
//*                     after EXCLUDE ALL                           *   FILE 078
//*     GETACCT  REX    REXX sub-function to get accounting         *   FILE 078
//*                     info from ACT                               *   FILE 078
//*     GETACF2  REX    REXX sub-function to get ACF2 release       *   FILE 078
//*                     identifier from ACCVT                       *   FILE 078
//*     GETATTR  REX    REXX sub-function to get TSO user           *   FILE 078
//*                     attributes from PSCB                        *   FILE 078
//*     GETCIB   REX    REXX sub-function to get command verb       *   FILE 078
//*                     code from 1st CIB                           *   FILE 078
//*     GETCPUM  REX    REXX sub-function to get CPU model          *   FILE 078
//*                     from CVT prefix                             *   FILE 078
//*     GETDEST  REX    REXX sub-function to get TSO SYSOUT         *   FILE 078
//*                     destination from PSCB                       *   FILE 078
//*     GETDFPL  REX    REXX sub-function to get DFP level          *   FILE 078
//*                     from DFA                                    *   FILE 078
//*     GETGRPN  REX    REXX sub-function to get group              *   FILE 078
//*                     connect name from ACEE                      *   FILE 078
//*     GETIPLD  REX    REXX sub-function to get IPL date           *   FILE 078
//*                     from SMCA                                   *   FILE 078
//*     GETIPLT  REX    REXX sub-function to get IPL time           *   FILE 078
//*                     from SMCA                                   *   FILE 078
//*     GETJES2  REX    REXX sub-function to get JES2 product       *   FILE 078
//*                     name from HASPSSSM                          *   FILE 078
//*     GETJOBID REX    REXX sub-function to get JES2 job id        *   FILE 078
//*                     from SSIB                                   *   FILE 078
//*     GETLPAR  REX    REXX sub-function to get LPAR mode          *   FILE 078
//*                     from SCCB                                   *   FILE 078
//*     GETNAME  REX    REXX sub-function to get user name          *   FILE 078
//*                     from ACEE                                   *   FILE 078
//*     GETPLEX  REX    REXX sub-function to get SYSPLEX name       *   FILE 078
//*                     from ECVT                                   *   FILE 078
//*     GETPRGNM REX    REXX sub-function to get programmer         *   FILE 078
//*                     name from ACT                               *   FILE 078
//*     GETREALM REX    REXX sub-function to get real memory        *   FILE 078
//*                     size at IPL                                 *   FILE 078
//*     GETREGK  REX    REXX sub-function to get region size        *   FILE 078
//*                     from LDA                                    *   FILE 078
//*     GETSCPN  REX    REXX sub-function to get MVS SCP name       *   FILE 078
//*                     from CVT prefix                             *   FILE 078
//*     GETSMFID REX    REXX sub-function to get smfid              *   FILE 078
//*                     from SMCA                                   *   FILE 078
//*     GETSMS   REX    REXX sub-function to get SMS status         *   FILE 078
//*                     from JESCTEXT                               *   FILE 078
//*     GETSWA   REX    REXX sub-function to get location of        *   FILE 078
//*                     SWA from JCT                                *   FILE 078
//*     GETTRID  REX    REXX sub-function to get terminal id        *   FILE 078
//*                     from ACEE                                   *   FILE 078
//*     GETUID   REX    REXX sub-function to get ACF2 userid        *   FILE 078
//*                     string                                      *   FILE 078
//*     GO       CLI    GO macro - SUBMIT job then invoke IOF       *   FILE 078
//*     IDCAMS   REX    IDCAMS macro - execute IDCAMS commands      *   FILE 078
//*                     (like =3.2.V 'exec')                        *   FILE 078
//*     IEBUPDTE BAT    DOS batch file #2 to consolidate            *   FILE 078
//*                     members for upload to MVS                   *   FILE 078
//*     INFO     ABC    Action bar choice panel code to             *   FILE 078
//*                     display system information                  *   FILE 078
//*     ISFP     CLI    World's shortest CLIST                      *   FILE 078
//*     ISFPANEL PAN    SDSF panel modifications for OPER macro     *   FILE 078
//*     ISPCMDS  TBL    ISPF commands to be added to ISPCMDS        *   FILE 078
//*                     for dialog invocation                       *   FILE 078
//*     ISR@PRIM PAN    ISPF Primary Option Menu (Version 3.3)      *   FILE 078
//*     ISRUTIL  PAN    ISPF (Version 2.3) utility panel            *   FILE 078
//*                     modifications for =3.14B                    *   FILE 078
//*     ISRZ00   MSG    ISPF messages ISRZ000W and ISRZ001W         *   FILE 078
//*                     displayed in windows                        *   FILE 078
//*     JC       CLI    JC macro - JOB card generator               *   FILE 078
//*     JC       PAN    ISPF panel used by JC and JCI macros        *   FILE 078
//*     JCI      CLI    JCI macro - JOB card generator (for         *   FILE 078
//*                     use after file tailoring)                   *   FILE 078
//*     LIBDIR   REX    REXX exec to display a CA-Librarian         *   FILE 078
//*                     index                                       *   FILE 078
//*     LISTDSI  CLI    LISTDSI macro - List dataset info in        *   FILE 078
//*                     OPT32 format                                *   FILE 078
//*     LOGLIST  CLI    CLIST dialog to define output               *   FILE 078
//*                     descriptors for ISPLOG/ISPLIST              *   FILE 078
//*     LOGLIST  JCL    ISPF skeleton used by LOGLIST dialog        *   FILE 078
//*     LOGLIST  PAN    ISPF panel used by LOGLIST dialog           *   FILE 078
//*     MEMLIST  CLI    MEMLIST macro - Display member list         *   FILE 078
//*                     of PDS on =NOTE= lines                      *   FILE 078
//*     MVS      BAS    MVS basica program - Pseudo-display         *   FILE 078
//*                     of ISPF Primary Option Menu                 *   FILE 078
//*     NOWARN   REX    REXX exec that issues RECOVERY OFF          *   FILE 078
//*                     NOWARN (used with PROFSET)                  *   FILE 078
//*     OPER     CLI    OPER macro - Issued canned operator         *   FILE 078
//*                     commands via SDSF                           *   FILE 078
//*     PDSDIR   REX    REXX exec to display a PDS directory        *   FILE 078
//*     PDSFTP   PAN    ISPF pop-up panel used by PDSFTP dialog     *   FILE 078
//*     PDSFTP   REX    REXX dialog to automate PDS member FTP's    *   FILE 078
//*     PDSFTPLM PAN    ISPF member list panel used by PDSFTP       *   FILE 078
//*     PDSFTPT  PAN    Tutorial panel for PDSFTP                   *   FILE 078
//*     PLUG     REX    PLUG macro - Plug data into a range         *   FILE 078
//*                     of lines at a given column                  *   FILE 078
//*     PLUG     SPF    PLUG macro - REXX version for SPF/PC        *   FILE 078
//*                     Version 3.0                                 *   FILE 078
//*     PROFSET  REX    PROFSET macro - Mass change all edit        *   FILE 078
//*                     profiles for an applid                      *   FILE 078
//*     RESETID  REX    REXX exec to reduce ACF2 password           *   FILE 078
//*                     violation count by 1                        *   FILE 078
//*     RUN      CLI    RUN macro - EXECute the CLIST/EXEC          *   FILE 078
//*                     that is being edited                        *   FILE 078
//*     RUNACF   REX    RUNACF macro - Issue ACF subcommands        *   FILE 078
//*                     currently being edited                      *   FILE 078
//*     SHOWCUT  CLI    SHOWCUT macro - Browse the ISPF CUT         *   FILE 078
//*                     table(s) - PDS 8.5 CUT                      *   FILE 078
//*     SHOWCUTP PAN    ISPF panel used by SHOWCUT table            *   FILE 078
//*                     display                                     *   FILE 078
//*     SORTWORK PAN    ISPF panel used by SORTWORK dialog          *   FILE 078
//*     SORTWORK REX    REXX dialog to calculate SYNCSORT           *   FILE 078
//*                     sortwork space                              *   FILE 078
//*     STARTUP  CLI    CLIST code run during TSO start-up to       *   FILE 078
//*                     execute @LOGLIST                            *   FILE 078
//*     SUPERC   CLI    CLIST dialog for SEARCH-FOR batch job       *   FILE 078
//*                     (OPT314B)                                   *   FILE 078
//*     SUPERC   JCL    ISPF skeleton JCL to invoke SUPERC          *   FILE 078
//*                     program in batch                            *   FILE 078
//*     SYSLOG   CLI    CLIST dialog for browsing of current        *   FILE 078
//*                     or previous SYSLOG                          *   FILE 078
//*     SYSLOG   PAN    ISPF panel used by SYSLOG dialog            *   FILE 078
//*     TESTACF  REX    TESTACF macro - Test ACF2 rules based       *   FILE 078
//*                     on DSN= values in JCL                       *   FILE 078
//*     TRAPCMD  REX    REXX dialog to trap TSO/REXX output         *   FILE 078
//*                     and display in ISPF table                   *   FILE 078
//*     TRAPTBL  PAN    ISPF panel used by TRAPCMD table            *   FILE 078
//*                     display                                     *   FILE 078
//*     TRICMDS  PAN    Tutorial panel for ISPF command help        *   FILE 078
//*     TRIJOBS  PAN    ISPF panel used to display key jobs         *   FILE 078
//*                     with SDSF or IOF                            *   FILE 078
//*     TRIMACS  PAN    Tutorial panel for edit macro help          *   FILE 078
//*     UNX      CLI    UNX macro - Show the first n line(s)        *   FILE 078
//*                     from each X-cluded block                    *   FILE 078
//*     UPLOAD   BAT    DOS batch file #1 to consolidate            *   FILE 078
//*                     members for upload to MVS                   *   FILE 078
//*     WEAVE    REX    WEAVE macro - Interlace CUT table           *   FILE 078
//*                     into a range of lines                       *   FILE 078
//*                                                                 *   FILE 078
//***FILE 079 IS FROM WILLIAM SMITH, FORMERLY OF CHARLES SCHWAB IN  *   FILE 079
//*           SAN FRANCISCO, CALIFORNIA.  THIS FILE CONTAINS A      *   FILE 079
//*           ROBUSTLY IMPLEMENTED "PRODUCTION" ISPF INTERFACE      *   FILE 079
//*           FOR IBM'S DCF SCRIPT/VS.  A PROTOTYPE ADDON IS        *   FILE 079
//*           ALSO INCLUDED, TO CONVERT THIS INTERFACE INTO A       *   FILE 079
//*           CUA COMPLIANT FORMAT.                                 *   FILE 079
//*                                                                 *   FILE 079
//*         ADDRESS:   WILLIAM SMITH                                *   FILE 079
//*                    IBM                                          *   FILE 079
//*                    STORAGE SYSTEMS DIVISION                     *   FILE 079
//*                    5600 COTTLE ROAD                             *   FILE 079
//*                    DEPT. W98A                                   *   FILE 079
//*                    DRIVER BUILD & INTEGRATION                   *   FILE 079
//*                    BUILDING 50, ROOM A382                       *   FILE 079
//*                    SAN JOSE, CA 95193-0001                      *   FILE 079
//*                    (408) 256-1557 OR                            *   FILE 079
//*                    TIE LINE 276-1557                            *   FILE 079
//*                                                                 *   FILE 079
//*         email:     smithwj@us.ibm.com                           *   FILE 079
//*                    goldens@ibm.net                              *   FILE 079
//*                                                                 *   FILE 079
//*           THERE ARE OTHER INTERESTING ITEMS IN THIS             *   FILE 079
//*           FILE, WHICH ARE MOSTLY DESCRIBED BELOW:               *   FILE 079
//*                                                                 *   FILE 079
//*    THIS COLLECTION OF TOOLS COMPRISES:                          *   FILE 079
//*                                                                 *   FILE 079
//*    DCF SCRIPT/VS ISPF INTERFACE, AS FOLLOWS:                    *   FILE 079
//*                                                                 *   FILE 079
//*    1)  A COMPLETE PRODUCTION ISPF DIALOG INTERFACE TO           *   FILE 079
//*        IBM'S DCF SCRIPT/VS FACILITY.                            *   FILE 079
//*                                                                 *   FILE 079
//*        TO INSTALL THIS INTERFACE, YOU NEED MEMBERS:             *   FILE 079
//*        PLIB1, MSGS, CLIST1 TO BE IEBUPDTE-LOADED TO             *   FILE 079
//*        A PANEL LIBRARY, A MESSAGE LIBRARY, AND A                *   FILE 079
//*        CLIST LIBRARY, RESPECTIVELY.  ALSO, YOU WILL             *   FILE 079
//*        NEED ASSEMBLED, MEMBER IKJCT44B FROM THE SOURCE          *   FILE 079
//*        MEMBER IN THIS PDS.  THIS SOURCE MUST BE ASSEMBLED,      *   FILE 079
//*        LINKEDITED, AND PLACED IN A (LINKLIST) LIBRARY           *   FILE 079
//*        THAT IS ACCESSIBLE TO YOUR TSO SESSION.                  *   FILE 079
//*                                                                 *   FILE 079
//*        THIS PRODUCTION INTERFACE IS NOT CUA COMPLIANT           *   FILE 079
//*        AS IT IS.                                                *   FILE 079
//*                                                                 *   FILE 079
//*    2)  A PROTOTYPE MODIFICATION TO THE ABOVE DCF SCRIPT/VS      *   FILE 079
//*        INTERFACE, TO MAKE IT CUA COMPLIANT.  THIS CONSISTS      *   FILE 079
//*        OF PANELS AND CLISTS TO SUBSTITUTE FOR LIKE-NAMED        *   FILE 079
//*        MEMBERS IN THE PANEL AND CLIST LIBRARIES CREATED         *   FILE 079
//*        BY THE ABOVE INSTALLATION.                               *   FILE 079
//*                                                                 *   FILE 079
//*        PART OF THIS PROTOTYPE ADDITION CONSISTS OF AN           *   FILE 079
//*        ISPF PRIMARY OPTION MENU CONTAINING A CALENDAR           *   FILE 079
//*        AND ACTION BAR PULL-DOWNS.                               *   FILE 079
//*                                                                 *   FILE 079
//*        TO INSTALL THIS INTERFACE, YOU NEED MEMBERS:             *   FILE 079
//*        PLIB2, CLIST2 TO BE IEBUPDTE-LOADED INTO PANEL           *   FILE 079
//*        AND CLIST LIBRARIES THAT WILL BE CONCATENATED AHEAD      *   FILE 079
//*        OF THE RESPECTIVE LIBRARIES CREATED BY THE INSTALL       *   FILE 079
//*        PROCESS IN ITEM 1) ABOVE.                                *   FILE 079
//*                                                                 *   FILE 079
//*    IN ADDITION TO THE DCF SCRIPT/VS ISPF INTERFACE, THIS        *   FILE 079
//*    FILE CONTAINS THE FOLLOWING OTHER MEMBERS:                   *   FILE 079
//*                                                                 *   FILE 079
//*     SOURCE    -  A COLLECTION OF VARIOUS EXITS TO JES2          *   FILE 079
//*                  RELATING TO TSO.  THERE IS ALSO A TSO          *   FILE 079
//*                  SESSION MANAGER EXIT, AND A GDDM PLOTTER       *   FILE 079
//*                  EXIT.  THIS MEMBER IS IN IEBUPDTE UNLOADED     *   FILE 079
//*                  FORMAT AND MUST BE IEBUPDTE-LOADED INTO A      *   FILE 079
//*                  PARTITIONED DATASET.                           *   FILE 079
//*                                                                 *   FILE 079
//*                  INCLUDED IN THIS MEMBER IS A CLIST VARIABLE    *   FILE 079
//*                  EXTENSION EXIT (IKJCT44B) THAT IS REQUIRED     *   FILE 079
//*                  BY MEMBER PLIB1.  THIS MEMBER ADDS SOME        *   FILE 079
//*                  BUILT-IN FUNCTIONS TO THE CLIST LANGUAGE       *   FILE 079
//*                  AND IS REQUIRED FOR THE DCF SCRIPT/VS          *   FILE 079
//*                  INTERFACE.                                     *   FILE 079
//*                                                                 *   FILE 079
//*     USERMODS  -  A COLLECTION OF ASSORTED MVS AND JES2          *   FILE 079
//*                  LOCAL MODS PACKAGED IN SMP FORMAT.  THE        *   FILE 079
//*                  USEFULNESS OF THIS COLLECTION LIES IN          *   FILE 079
//*                  THE FACT THAT THEY ARE SAMPLE MODS TO          *   FILE 079
//*                  IBM PRODUCTS, WHICH IBM NEVER PROVIDED         *   FILE 079
//*                  SAMPLES FOR.                                   *   FILE 079
//*                                                                 *   FILE 079
//*     DOCLIB    -  THIS IS A 30-PAGE DOCUMENT DESCRIBING          *   FILE 079
//*                  THE DCF SCRIPT/VS DIALOG FRONTEND, AND         *   FILE 079
//*                  ITS HISTORY.  THIS WAS A PRESENTATION          *   FILE 079
//*                  GIVEN AT SHARE 80 IN SAN FRANCISCO.            *   FILE 079
//*                                                                 *   FILE 079
//*     DEFMACRO  -  A COLLECTION OF SCRIPT MACROS FOR VIRTUALLY    *   FILE 079
//*                  EVERY FONT FAMILY MARKETED BY IBM.  THIS       *   FILE 079
//*                  COLLECTION ALLOWS EASY USE OF MANY FONTS       *   FILE 079
//*                  BY A SCRIPT USER.                              *   FILE 079
//*                                                                 *   FILE 079
//*     PUBTOOLS  -  THE COMPLETE CHARLES SCHWAB IN-HOUSE           *   FILE 079
//*                  STANDARDS GUIDE FOR MAINFRAME-BASED DESKTOP    *   FILE 079
//*                  PUBLISHING, IN SCRIPT FORMAT.  (THIS TAKES     *   FILE 079
//*                  TIME TO FORMAT AND PRINT ON AN IBM PRINTER--   *   FILE 079
//*                  ABOUT 40 MINUTES ON A 3820.)                   *   FILE 079
//*                                                                 *   FILE 079
//***FILE 080 IS FROM THE CITY OF LONG BEACH. CA., AND CONTAINS     *   FILE 080
//*           THE SOURCE CODE FOR FIVE PROGRAMS, ALL OF             *   FILE 080
//*           WHICH EXTRACT DATA FROM THE RACF DATASET(S)           *   FILE 080
//*           AND FORMAT IT INTO OUTPUT FILES SUITABLE FOR          *   FILE 080
//*           USE WITH REPORT WRITERS OR INPUT TO USER              *   FILE 080
//*           WRITTEN PROGRAMS.                                     *   FILE 080
//*                                                                 *   FILE 080
//*           EACH OF THESE PROGRAMS PROCESSES A DIFFERENT          *   FILE 080
//*           KIND OF RACF PROFILE.  THE PROFILE TYPE               *   FILE 080
//*           PROCESSED IS INDICATED IN THE PROGRAM NAME;           *   FILE 080
//*           I.E., RACFUSER PROCESSES USER PROFILES,               *   FILE 080
//*           RACFDSET PROCESSES DATASET PROFILES, RACFGRES         *   FILE 080
//*           PROCESSES GENERAL RESOURCE PROFILES, AND              *   FILE 080
//*           RACFGRP1 AND RACFGRP2 PROCESS GROUP PROFILES.         *   FILE 080
//*           GENERIS IS A PROGRAM WHICH RETURNS THE PROTECTING     *   FILE 080
//*           RACF PROFILE NAME FOR ANY INPUT DATASET(S).           *   FILE 080
//*                                                                 *   FILE 080
//***FILE 081 IS OS DEBE THAT HAS BEEN MODIFIED TO RUN UNDER MVS.   *   FILE 081
//*           THERE IS A PROBLEM WITH THIS VERSION OF THE PROGRAM   *   FILE 081
//*           IN THAT IT WILL NOT DUPLICATE A 32K BLOCK OF DATA     *   FILE 081
//*           ON A TAPE TO TAPE OPERATION.  IT DOES NOT TELL YOU    *   FILE 081
//*           THIS EITHER, SNEAKY FELLOW.  YOU JUST GET A LOT OF    *   FILE 081
//*           SHORT BLOCKS.                                         *   FILE 081
//*                                                                 *   FILE 081
//***FILE 082 IS THE REFERENCE MANUAL FOR IEHMAP, MAPLPA, PTXREF    *   FILE 082
//*           AND SUPERZAP (RECFM=FBA, LRECL=80)                    *   FILE 082
//*                                                                 *   FILE 082
//***FILE 083 IS THE IEHMAP PROGRAM   (WITH A LOT OF                *   FILE 083
//*           DISASSEMBLED SOURCE THAT WAS UPDATED BY MR GUY        *   FILE 083
//*           ALBERTELLI OF B.F. GOODRICH IN AKRON, OHIO.)          *   FILE 083
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT.  THIS FILE     *   FILE 083
//*           CONSISTS OF THE ORIGINAL IEHMAP PROGRAM (OBJECT)      *   FILE 083
//*           AND ALL THE PUBLISHED ZAPS, PLUS SOME UNPUBLISHED     *   FILE 083
//*           ZAPS.  IT ALSO UPDATES IEHMAP SO THAT IT WILL WORK    *   FILE 083
//*           ON EITHER SP, XA, OR ESA.  THE LIBRARY CONTAINS THE   *   FILE 083
//*           ORIGINAL IEHMAP OBJECT DECK IN TWO MEMBERS,  AN       *   FILE 083
//*           MVS / XA CSECT THAT WAS CREATED VIA THE DISASSEMBLER  *   FILE 083
//*           AND THE NECESSARY ZAPS IN SEPARATE MEMBERS.           *   FILE 083
//*           SEE THE MEMBERS CALLED $DOC390 AND $DOC370 FOR        *   FILE 083
//*           ADDITIONAL INFORMATION.  $DOC390 IS FOR MVS/ESA.      *   FILE 083
//*                                                                 *   FILE 083
//*           NOW FIXED TO RECOGNIZE THE RES PACK IF IT HAS A       *   FILE 083
//*           DYNAMIC UCB.  ALSO INCLUDES DISASSEMBLIES OF THE      *   FILE 083
//*           OBJECT DECKS, WITH APPROPRIATE ZAP FIXES ALREADY      *   FILE 083
//*           APPLIED.  (FOR REFERENCE ONLY)  (S.GOLOB - SEP 95)    *   FILE 083
//*                                                                 *   FILE 083
//***FILE 084 IS THE OBJECT DECK FOR MAPLPA (SORRY NO SOURCE)       *   FILE 084
//*                                                                 *   FILE 084
//***FILE 085 IS THE OBJECT DECK FOR PTXREF (SORRY NO SOURCE)       *   FILE 085
//*                                                                 *   FILE 085
//***FILE 086 IS THE OBJECT DECK FOR SUPERZAP (SORRY NO SOURCE)     *   FILE 086
//*                                                                 *   FILE 086
//***FILE 087 IS FROM MARK DIEHL OF HERCULES/ALLEGANY BALLISTICS    *   FILE 087
//*           AND IS A COPY OF THEIR ISPF SYSLOG UTILITY.           *   FILE 087
//*                                                                 *   FILE 087
//*           THIS SYSLOG UTILITY WAS WRITTEN AS A RESULT OF A      *   FILE 087
//*           REQUIREMENT WHICH DICTATED THAT THE SYSLOG BE PRINTED *   FILE 087
//*           AND RETAINED.  THE PRACTICAL ALTERNATIVE IS TO RETAIN *   FILE 087
//*           THE SYSLOG ON SOME MACHINE-READABLE MEDIUM.  TO       *   FILE 087
//*           ACHIEVE THIS END, THE ABL ISPF SYSLOG UTILITY WAS     *   FILE 087
//*           CREATED.  THE UTILITY IS COMPRISED OF ASSEMBLER       *   FILE 087
//*           PROGRAMS, CLISTS, JCL, AND, OF COURSE, MAKES USE OF   *   FILE 087
//*           THE VARIOUS ISPF CAPABILITIES.  MENU OPTIONS PROVIDE  *   FILE 087
//*           THE ABILITY TO 'AUTOMATICALLY' RETAIN THE SYSLOG      *   FILE 087
//*           DATA; SUBSEQUENTLY EXTRACT PERTINENT PORTIONS OF      *   FILE 087
//*           THE RETAINED SYSLOG; PERFORM VARIOUS UTILITY          *   FILE 087
//*           FUNCTIONS (E.G., LABEL TAPES); OBTAIN REPORTS         *   FILE 087
//*           CONTAINING USER-SPECIFIED 'EXCEPTION' EVENTS (SYSLOG  *   FILE 087
//*           POST-PROCESSOR).  EXTRA EFFORT WAS SPENT ATTEMPTING   *   FILE 087
//*           TO CREATE THE ISPF TUTORIAL PANELS TO SUPPORT THIS    *   FILE 087
//*           UTILITY WITH A MINIMUM EFFORT ON THE PART OF SYSTEMS. *   FILE 087
//*           SEE MEMBER $$$INDEX FOR A DESCRIPTION OF THE SYSLOG   *   FILE 087
//*           UTILITY COMPONENTS.  THIS FILE IS IN IEBUPDTE SYSIN   *   FILE 087
//*           FORMAT.                                               *   FILE 087
//*                                                                 *   FILE 087
//***FILE 088 is from Brian Westerman of Syzygy Inc. of Cary,       *   FILE 088
//*           North Carolina and Pismo Beach, California.           *   FILE 088
//*           The following is a list of what is in the file.       *   FILE 088
//*           This file is in IEBUPDTE SYSIN format.                *   FILE 088
//*                                                                 *   FILE 088
//*     My new address and phone number are                         *   FILE 088
//*                                                                 *   FILE 088
//*           Brian Westerman                                       *   FILE 088
//*           Director of Research & Development                    *   FILE 088
//*           Syzygy Incorporated          Syzygy Incorporated      *   FILE 088
//*           1381 Kildaire Farm Road      897 Oak Park Blvd        *   FILE 088
//*           Suite 326                    Suite 500                *   FILE 088
//*           Cary, NC 27511-5525          Pismo Beach, CA 93449    *   FILE 088
//*                                                                 *   FILE 088
//*                        Phone:(800) 767-2244                     *   FILE 088
//*                        Fax:  (800) 366-4082                     *   FILE 088
//*                                                                 *   FILE 088
//*     email:    brian_westerman@juno.com                          *   FILE 088
//*               brianw45@aol.com                                  *   FILE 088
//*                                                                 *   FILE 088
//*   This is the File abstract as of 02/20/00.                     *   FILE 088
//*                                                                 *   FILE 088
//*   Unless otherwise noted, all programs support OS/390 V2.8      *   FILE 088
//*   and below (within reason)                                     *   FILE 088
//*                                                                 *   FILE 088
//*   Current Operating Systems at Syzygy (we support these         *   FILE 088
//*   for customer testing)                                         *   FILE 088
//*                                                                 *   FILE 088
//*               MVS 3.8E                                          *   FILE 088
//*               MVS/SP 1.3.6                                      *   FILE 088
//*               MVS/XA 2.2.3                                      *   FILE 088
//*               MVS/ESA 3.1                                       *   FILE 088
//*               MVS/ESA 4.3                                       *   FILE 088
//*               MVS/ESA 5.1                                       *   FILE 088
//*               OS/390 1.3                                        *   FILE 088
//*               OS/390 2.4                                        *   FILE 088
//*               OS/390 2.5                                        *   FILE 088
//*               OS/390 2.7                                        *   FILE 088
//*               OS/390 2.8                                        *   FILE 088
//*               OS/390 2.9  --- testing                           *   FILE 088
//*                                                                 *   FILE 088
//*   We also have various releases of VM, VM/ESA and DOS/VSE       *   FILE 088
//*   but they don't apply to this file.                            *   FILE 088
//*                                                                 *   FILE 088
//*   The following Items have been added as of 2/20/00.            *   FILE 088
//*                                                                 *   FILE 088
//*   AUTO  -  Automatic command and job scheduler.  This code      *   FILE 088
//*            was originaly on the CBT tape many years ago, but    *   FILE 088
//*            stopped working when MVS/ESA V5 came out because     *   FILE 088
//*            of some new ways of doing things with that version   *   FILE 088
//*            of MVS.  This program allows you to schedule jobs    *   FILE 088
//*            or commands to run at any time of day, any day of    *   FILE 088
//*            week any month of (well you get the picture).  It    *   FILE 088
//*            runs as a started task (time=1440) and you can use   *   FILE 088
//*            it to automatically schedule anything.  You can      *   FILE 088
//*            also fire off anything in it's files (by time or     *   FILE 088
//*            jobname) at any time.  There are 2 datasets that     *   FILE 088
//*            you will need to create, in the code they are        *   FILE 088
//*            SYZYGY.AUTO.COMMANDS and SYZYGY.AUTO.JOBS, (you      *   FILE 088
//*            should probably rename those) and the directions     *   FILE 088
//*            are easy to follow and are located in the first      *   FILE 088
//*            few hundred lines of hte code. We have used this     *   FILE 088
//*            as our ONLY scheduling system for years, and when    *   FILE 088
//*            we go to customer sites for contracts, we normally   *   FILE 088
//*            set it up for our stuff and the customer typically   *   FILE 088
//*            moves over to using it before we leave.  It's very   *   FILE 088
//*            easy to use and uses no resources.  You can give     *   FILE 088
//*            it a very high priority, (and probably should), we   *   FILE 088
//*            have thousands of jobs and commands scheduled with   *   FILE 088
//*            this guy every day, and it typically uses less       *   FILE 088
//*            than 1 minute (between 25 and 45 sec) of CPU time    *   FILE 088
//*            per month, (We IPL once per month wheather we need   *   FILE 088
//*            to or not). You can concatonate command and/or job   *   FILE 088
//*            libraries as needed so that you can have             *   FILE 088
//*            production and test jobs.  You can run as many       *   FILE 088
//*            copies of this little address space as you want      *   FILE 088
//*            for different purposes (test and production), but    *   FILE 088
//*            don't forget to use different command libraries      *   FILE 088
//*            because you will end up doing everything multiple    *   FILE 088
//*            times if you don't remember.                         *   FILE 088
//*                                                                 *   FILE 088
//*   COMMANDZ  -  This program was originally copied from          *   FILE 088
//*           the CBT tape and was originally written by John V.    *   FILE 088
//*           Hooper to execute a stack of commands to automate     *   FILE 088
//*           processing.  I have added a slew of code to this      *   FILE 088
//*           program so that now you can use it for scheduling     *   FILE 088
//*           and also I have included IF/Then logic parameters.    *   FILE 088
//*           The added code allows the following functions:        *   FILE 088
//*                                                                 *   FILE 088
//*           IFSTARTED JOBNAME - THIS GIVES THE ABILITY TO         *   FILE 088
//*                EXECUTE COMMANDS WHICH FOLLOW THIS COMMAND       *   FILE 088
//*                ONLY IF THE SPECIFIED JOBNAME IS ACTIVE.  THE    *   FILE 088
//*                ENDIF COMMAND ENDS THE IF NEST OF COMMANDS       *   FILE 088
//*                                                                 *   FILE 088
//*           IFSTOPPED JOBNAME - THIS GIVES THE ABILITY TO         *   FILE 088
//*                EXECUTE COMMANDS WHICH FOLLOW THIS COMMAND       *   FILE 088
//*                ONLY IF THE SPECIFIED JOBNAME IS NOT ACTIVE.     *   FILE 088
//*                THE ENDIF COMMAND ENDS THE IF NEST OF COMMANDS   *   FILE 088
//*                                                                 *   FILE 088
//*           WTO=TEXT  - ALLOWS YOU TO ISSUE WTOS OF ANYTHING      *   FILE 088
//*                YOU WANT TO SAY, UP TO 72 CHARACTERS THE         *   FILE 088
//*                FORMAT IS WTO=TEXT YOU WANT TO SAY               *   FILE 088
//*                                                                 *   FILE 088
//*           STOPCODE=NNNN -  ALLOWS YOU TO END PROCESSING         *   FILE 088
//*                AND OPTIONALLY SET A CONDITION CODE OF UP TO     *   FILE 088
//*                4 NUMERIC DIGITS.                                *   FILE 088
//*                THE FORMAT IS STOPCODE OR STOPCODE=NNNN WHERE    *   FILE 088
//*                NNNN IS FROM 1 TO 4 DIGITS, IF YOU SPECIFY MORE  *   FILE 088
//*                THAN 4 DIGITS, THE NUMBERS AFTER THE 4TH WILL    *   FILE 088
//*                BE IGNORED.                                      *   FILE 088
//*                                                                 *   FILE 088
//*   SHUTDOWN  -  Sample command file which shows how to use       *   FILE 088
//*           the new featurs of COMMANDZ to control the            *   FILE 088
//*           shutdown of the system.                               *   FILE 088
//*                                                                 *   FILE 088
//*   NOKEEP  -   This is an MPF exit which will COMPLETELY         *   FILE 088
//*           suppress messages from everywhere so you need to be   *   FILE 088
//*           careful, if you have messages that you have           *   FILE 088
//*           successfully kept from going to to console but        *   FILE 088
//*           still go to syslog then this is what you need.  We    *   FILE 088
//*           have a large phantom network and therefore we used    *   FILE 088
//*           to get over 1 million lines from VTAM/TCP about the   *   FILE 088
//*           nodes that were not up.  We used this little exit     *   FILE 088
//*           to keep from sending those to syslog and we have      *   FILE 088
//*           saved ourseleves a lot of time and it make looking    *   FILE 088
//*           for problems easier because you don't have to         *   FILE 088
//*           search around the useless messages in syslog.         *   FILE 088
//*                                                                 *   FILE 088
//*   REDMSG  -  This program was also originally from the CBT      *   FILE 088
//*           Tape, and was changed somewhat. It allows you to      *   FILE 088
//*           display a message on the console if the preceding     *   FILE 088
//*           step had a non-zero return code.                      *   FILE 088
//*                                                                 *   FILE 088
//*   SLSUX06 -  Storage Tek Silo Exit 6.  This code has also been  *   FILE 088
//*           given to STK as of 1/99 and will be distributed by    *   FILE 088
//*           them, but since I wrote it, I wanted to put it here   *   FILE 088
//*           as well.  This exit gets invoked on cartridge         *   FILE 088
//*           insert/eject processing.  We had a problem whereby    *   FILE 088
//*           when the operators printed the CA-1 scratch pick      *   FILE 088
//*           list, they didn't know which tapes were already in    *   FILE 088
//*           the silo and which ones were outside (and available   *   FILE 088
//*           to be picked).  This exit was already being used to   *   FILE 088
//*           flag tapes as scratch as soon as they were entered,   *   FILE 088
//*           (the one that STK has in their book and on the        *   FILE 088
//*           sample tapes does not work), so I changed it so that  *   FILE 088
//*           the tapes are now flagged as in or out of the silo.   *   FILE 088
//*           I had a talk with Computer Associates and they were   *   FILE 088
//*           nice enough to designate a flag which shows in or     *   FILE 088
//*           out of the silo, you can even show which silo it's    *   FILE 088
//*           in, (if you have more than 1) with this code.  It     *   FILE 088
//*           allows a lot of flexibility and has saved us the      *   FILE 088
//*           cost of a lot of operator overtime.  They also get    *   FILE 088
//*           less upset about who has to pick tapes now!           *   FILE 088
//*                                                                 *   FILE 088
//*   SYZYGYEJ  -  This program will take the output from a         *   FILE 088
//*           TMSGRW run and create SLUADMIN input to eject the     *   FILE 088
//*           tapes.  This is a follow on to the STK exit 6         *   FILE 088
//*           previously outlined.  The member SYZYGYE$ is the      *   FILE 088
//*           JCL for this program.                                 *   FILE 088
//*                                                                 *   FILE 088
//*   SYZYGYVR  -  This program will produce a VERY fast scratch    *   FILE 088
//*           listing and it is in a format which lends itself      *   FILE 088
//*           very nicely to multi columnizing with SAS for the     *   FILE 088
//*           operators to pick tapes from.                         *   FILE 088
//*                                                                 *   FILE 088
//*   MULTICOL -  Small SAS program from somewhere that             *   FILE 088
//*           demonstrates the multi column stuff for the           *   FILE 088
//*           SYZYGYVR program.                                     *   FILE 088
//*                                                                 *   FILE 088
//*   SYZREORG  -  Program which will greatly increase the speed    *   FILE 088
//*           of load/unload/reorg jobs for VSAM KSDS datasets.     *   FILE 088
//*           The buffers are altered automatically by the job      *   FILE 088
//*           which tends to increase the speed of the job by a     *   FILE 088
//*           great deal.  You can also do this by changing the     *   FILE 088
//*           JCL, but this is easier.                              *   FILE 088
//*                                                                 *   FILE 088
//*   The following files are also in this dataset:                 *   FILE 088
//*                                                                 *   FILE 088
//*     CATLIST - EXEC TO READ CATALOG AND CREATE A COMPLETE        *   FILE 088
//*               IDCAMS EXPORT JCL TO BACKUP ALL CATALOGS IN       *   FILE 088
//*               THE SYSTEM.  ANY TIME YOU CREATE A NEW            *   FILE 088
//*               CATALOG, (OR DELETE ONE) ALL YOU NEED TO DO       *   FILE 088
//*               IS RUN THE SYSBLD00 JOB WHICH EXECUTES THIS       *   FILE 088
//*               EXEC AND WILL BUILD A SYSCATBK JOBSTREAM.         *   FILE 088
//*               (ONE IS INCLUDED HERE AS WELL)                    *   FILE 088
//*                                                                 *   FILE 088
//*     EX8     - OS/390 COMPATABLE EXIT 8 FOR SENDING JOB END      *   FILE 088
//*               MAX COND CODE.  (SEE EXIT08 STUFF BELOW)          *   FILE 088
//*                                                                 *   FILE 088
//*     EX16    - OS/390 COMPATABLE EXIT 16 FOR SENDING JOB END     *   FILE 088
//*               MAX COND CODE.  (SEE EXIT16 STUFF BELOW)          *   FILE 088
//*                                                                 *   FILE 088
//*     EXIT004 - JCL SCAN EXIT (4) TO MAKE /** CARD A COMMENT      *   FILE 088
//*               (WE HAVE SOME PRETTY DUMB USERS, AND TO MAKE      *   FILE 088
//*               THE /*NOSETUP CARD A COMMENT SINCE WE USED TO     *   FILE 088
//*               REQUIRE EITHER A SETUP OR A NOSETUP IN THE        *   FILE 088
//*               PAST WE HAD TO AT LEAST IGNORE IT UNTIL OUR       *   FILE 088
//*               USERS CHANGED ALL OF THERE JCL (IT'S BEEN OVER    *   FILE 088
//*               A YEAR NOW AND THEY STILL SAY THAT THEY ARE       *   FILE 088
//*               WORKING ON IT!!!)                                 *   FILE 088
//*                                                                 *   FILE 088
//*     EXIT010 - NOTIFY EXIT (10) TO SEND THE JOB ENDED NOTIFY     *   FILE 088
//*               MESSAGE TO WYLBUR USERS WHO SUBMIT JOBS,  IT      *   FILE 088
//*               LOOKS FOR A NOTIFY MESSAGE FOR A WYLBUR USER      *   FILE 088
//*               AND REFORMATS IT INTO A F WYLBUR,TO XXXXXX        *   FILE 088
//*               AND THEN THE MESSAGE TEXT.                        *   FILE 088
//*                                                                 *   FILE 088
//*     EXITP20 - END OF JOB INPUT EXIT (20) WHICH WILL CAUSE A     *   FILE 088
//*               JOB TO BE ROUTED TO ANOTHER CPU IN A MULTI        *   FILE 088
//*               ACCESS SPOOL COMPLEX AUTOMATICALLY WITHOUT        *   FILE 088
//*               MAKING THE USER TYPE IN THE /*ROUTE STUFF         *   FILE 088
//*                                                                 *   FILE 088
//*     EXIT020 - END OF JOB INPUT EXIT (20) WHICH CHECKS THE       *   FILE 088
//*               JCT OF THE JOB ALSO THE JCL TO SE IF THE GUY      *   FILE 088
//*               ASKED FOR A SPECIAL PRIORITY AND IF SO HE WILL    *   FILE 088
//*               ISSUE A MESSAGE TO THE OPERATOR WHICH WILL BE     *   FILE 088
//*               HIGHLIGHTED AND NOT ROLL OFF THE SCREEN WHICH     *   FILE 088
//*               TELLS HIM THAT A SPECIAL PRIORITY JOB WAS         *   FILE 088
//*               SUBMITTED.                                        *   FILE 088
//*                                                                 *   FILE 088
//*     EX05... - 3   JES2 COMMAND EXITS (5) WHICH WILL DO          *   FILE 088
//*               VARIOUS THINGS LIKE NOT ALLOW THE OPERATOR TO     *   FILE 088
//*               PURGE THE ENTIRE QUEUE AND WILL DISPLAY JOB       *   FILE 088
//*               SETUPS WITH A COMMAND.                            *   FILE 088
//*                                                                 *   FILE 088
//*     EX005UD - JES2 EXIT(5) WHICH WILL GIVE YOU THE $UNDUMP      *   FILE 088
//*               COMMAND THIS ALLOWS YOU TO UNDO EVERTHING         *   FILE 088
//*               THAT YOU HAVE DONE WITH THE $DUMP COMMAND, SO     *   FILE 088
//*               THAT YOU DON'T HAVE TO DUMP AND RELOAD            *   FILE 088
//*               EVERTHING JUST BECAUSE YOU FORGOT A PARAMETER     *   FILE 088
//*               ON YOUR $DUMP COMMAND.                            *   FILE 088
//*                                                                 *   FILE 088
//*     JX05    - JES 2.2.0 VERSION OF THE ABOVE EX05... STUFF      *   FILE 088
//*                                                                 *   FILE 088
//*     J005$DV - JES 2.2.0 $DV COMMAND TO DISPLAY DASD VOLUMES     *   FILE 088
//*               FROM JES2                                         *   FILE 088
//*                                                                 *   FILE 088
//*     J005LOAD- JES 2.2.0 $LOAD COMMAND TO LOAD NEW COPIES OF     *   FILE 088
//*               EXITS                                             *   FILE 088
//*                                                                 *   FILE 088
//*     EXIT008 - JCT WRITE EXIT FOR JES2 EXIT(8) WHICH WILL        *   FILE 088
//*               PUT THE CONDITION CODE OF THE JOB STEP INTO       *   FILE 088
//*               THE JCT IF IT IS GREATER THAN WHAT IS ALREADY     *   FILE 088
//*               THERE.  THIS EXIT WORKS IN CONJUNCTION WITH       *   FILE 088
//*               EXIT016 AND EXIT008 MUST BE IN LPALIB.  IT IS     *   FILE 088
//*               VERY SMALL SO THERE IS LITTLE WORRY ABOUT         *   FILE 088
//*               PUTTING IT THERE.                                 *   FILE 088
//*                                                                 *   FILE 088
//*     JX08    - MVS/XA 2.2.0 VERSION OF EXIT008 ABOVE             *   FILE 088
//*                                                                 *   FILE 088
//*     EXIT016 - THIS JES EXIT(16) GETS INVOKED AT JOB             *   FILE 088
//*               TERMINATION AND WILL TAKE THE DATA PLACED IN      *   FILE 088
//*               THE JCT BY EXIT8 AND FORMAT A NOTIFY MESSAGE      *   FILE 088
//*               FOR TSO USERS AS TO THE MAX CONDITION CODE OF     *   FILE 088
//*               THE STEP AS WELL AS WHETHER IT ABENDED OR NOT     *   FILE 088
//*               WITH EITHER A SYSTEM OR USER ABEND. THE USERS     *   FILE 088
//*               ARE VERY PLEASED.                                 *   FILE 088
//*                                                                 *   FILE 088
//*     JX16    - JES 2.2.0 VERSION OF THE ABOVE EXIT016            *   FILE 088
//*                                                                 *   FILE 088
//*     EXIT212 - THIS JES EXIT(212) IS A DUMPER/LOADER EXIT        *   FILE 088
//*               WHICH ALLOWS YOU TO DYNAMICALLY ALLOCATE THE      *   FILE 088
//*               DUMPER/LOADER TAPE DSN INSTEAD OF ALWAYS          *   FILE 088
//*               HAVING TO HAVE A PRE-ALLOCATED TAPE DSN.          *   FILE 088
//*               THIS HAS SOLVED ALOT OF HEADACHES FOR THE         *   FILE 088
//*               OPERATIONS STAFF ... AND ME.  THIS REQUIRES       *   FILE 088
//*               THE PRCJ2212 USERMOD TO JES.  ALL THE MOD         *   FILE 088
//*               DOES IS ADD THE $EXIT POINT INTO HASPSTAM.        *   FILE 088
//*                                                                 *   FILE 088
//*     EX99 ---- PROGRAM USED BY PRCM0005 SYSMOD                   *   FILE 088
//*                                                                 *   FILE 088
//*     FINDASCB- PROGRAM INDEXES THROUGH ASVT AND WILL LOCATE      *   FILE 088
//*               A JOB OR ADDRESS SPACE WHO'S NAME MATCHES WHAT    *   FILE 088
//*               YOU PUT IN REG1.                                  *   FILE 088
//*                                                                 *   FILE 088
//*     GETINFO - PROGRAM ORIGINALLY FROM NTL BUT HAS SOME          *   FILE 088
//*               MINOR CHANGES AND ALSO HAS BEEN CHANGED TO        *   FILE 088
//*               RUN ON A MVS/SP SYSTEM INSTEAD OF OR I SHOULD     *   FILE 088
//*               SAY AS WELL AS MVS/XA.                            *   FILE 088
//*                                                                 *   FILE 088
//*     IEFACTRT- THIS IS PRETTY STANDARD STUFF EXCEPT THAT IT      *   FILE 088
//*               UPDATES THE JOBS OUTPUT RESOLUTION MESSAGE        *   FILE 088
//*               AREA WITH WHAT WE LIKE TO CALL "BOX SCORES".      *   FILE 088
//*               THIS IS SIMILAR TO WHAT IBM'S FREEBEE DOES        *   FILE 088
//*               BUT PUTS IT IN A BETTER PLACE.  YOU MAY WANT      *   FILE 088
//*               TO CHANGE SOME CODE SINCE WE ALSO DO A COUPLE     *   FILE 088
//*               OF CALCULATIONS TO TELL THE USER APPROXIMATELY    *   FILE 088
//*               WHAT THE JOB COST TO RUN.  THE CHARGE CODE IS     *   FILE 088
//*               VERY SIMPLE SO NO ONE SHOULD HAVE ANY             *   FILE 088
//*               PROBLEMS.                                         *   FILE 088
//*                                                                 *   FILE 088
//*     JES215MD- TWO MODS TO JES 2.1.5 THE FIRST IS TO HASPSSSM    *   FILE 088
//*               TO PUT THE DATE ON THE INITIATOR STARTED          *   FILE 088
//*               MESSAGE $HASP373 THE SECOND MOD IS TO HASPCOMM    *   FILE 088
//*               IT ALLOWS THE $D'JOBNAME COMMAND TO ACT AS A      *   FILE 088
//*               GENERIC JOBNAME DISPLAY IE. IF YOU ENTERED        *   FILE 088
//*               $D'IMS   , YOU WOULD GET A LIST OF ALL JOBS IN    *   FILE 088
//*               ALL QUEUES WHO'S PREFIX MATCHED THE LETTERS       *   FILE 088
//*               "IMS".  OPERATORS LIKE IT A LOT.                  *   FILE 088
//*                                                                 *   FILE 088
//*     MCS  ---- A VERY UNIQUE SPY COMMAND FROM ONE OF THE PRC     *   FILE 088
//*               SUBSIDIARIES.  I'M NOT SURE WHICH ONE, BUT I      *   FILE 088
//*               LIKE THE CODE.                                    *   FILE 088
//*                                                                 *   FILE 088
//*     MINIGEN - THE GOOD OLD MINIGEN, WE HAVE USED IT FOR         *   FILE 088
//*               YEARS AND CONTRARY TO POPULAR BELIEF IT CAN BE    *   FILE 088
//*               USED EVEN IF YOU ARE ADDING A NEW DEVICE TYPE.    *   FILE 088
//*               THE BEST WAY TO USE THIS GUY IS TO BROWSE YOUR    *   FILE 088
//*               STAGE1 OUTPUT AND FIND ALL OCCURRENCES OF "       *   FILE 088
//*               EXEC  ASMS"  THE MOD=XXXXXXX PARAMETER ON EACH    *   FILE 088
//*               ONE OF THESE GUYS SHOULD BE PUT IN THE ASSEM (    *   FILE 088
//*               SECTION OF THE MINIGEN.  THIS IS A HELL OF A      *   FILE 088
//*               LOT SAFER THAN A IOGEN AND THIS WAY WE NEVER      *   FILE 088
//*               LOSE ANY USERMODS                                 *   FILE 088
//*                                                                 *   FILE 088
//*     PANBKPRT- THIS GUY WILL TAKE A PANVALET BACKUP TAPE AND     *   FILE 088
//*               CREATE A LISTING OF WHAT PROGRAMS AND VERSIONS    *   FILE 088
//*               AND SIZE AND ALL IS ON THE TAPE. JUST AS IF IT    *   FILE 088
//*               WERE STILL ON DISK.  THIS WAY YOU DONT HAVE TO    *   FILE 088
//*               RESTORE THE WHOLE TAPE DOWN JUST TO FIND          *   FILE 088
//*               SOMTHING THAT YOU DON'T REALLY KNOW THE NAME      *   FILE 088
//*               OF OR EVEN GUESS AT.                              *   FILE 088
//*                                                                 *   FILE 088
//*     POSTER -- DOES WHAT IT SAYS, CREATES POSTERS-BANNERS.       *   FILE 088
//*                                                                 *   FILE 088
//*     PRCJ2001- JES2/SP 1.3.4 MOD TO ALLOW GENERIC $D'XXX' FOR    *   FILE 088
//*               PARTIAL JOBNAMES.                                 *   FILE 088
//*                                                                 *   FILE 088
//*     PRCJ2004- JES2/SP 1.3.4 MOD TO MAKE THE DEFAULT TSU AND     *   FILE 088
//*               STC MESSAGE CLASS A FOR JOBS THAT THEY SUBMIT.    *   FILE 088
//*               THIS ALLOWS YOU TO STILL SET THE &STCMCLAS AND    *   FILE 088
//*               &TSUMCLAS TO A DELETE CLASS TO KEEP FROM          *   FILE 088
//*               GETTING ALL OF THE USELESS JCL AND STILL NOT      *   FILE 088
//*               HAVE TO PUT A MSGCLASS= PARM ON ALL JOBCARDS.     *   FILE 088
//*               YOU DON'T NEED THIS IF YOU HAVE TSO/E FOR TSO     *   FILE 088
//*               BUT WE DON'T HAVE THE MONEY TO THROW AWAY ON      *   FILE 088
//*               THAT KIND OF PRODUCT AND WE ALSO HAVE A COUPLE    *   FILE 088
//*               OF STC'S THAT SUBMIT JOBS AND THIS HAS BEEN       *   FILE 088
//*               INDISPENSABLE.                                    *   FILE 088
//*                                                                 *   FILE 088
//*     PRCJ2212- JES2/SP 1.3.4 MOD TO ADD $EXIT 212 TO             *   FILE 088
//*               HASPSTAM FOR DYNAMIC DUMPER/LOADER DSN'S.         *   FILE 088
//*                                                                 *   FILE 088
//*     PRCM0001- SET IEALIMIT TO NOT GIVE ANY EXTRA MEMORY.        *   FILE 088
//*               IN MOST SHOPS POEPLE DON'T CARE ABOUT GIVING      *   FILE 088
//*               A JOB A LITTLE EXTRA, BUT OUR ACCOUNTING          *   FILE 088
//*               SYSTEM IS MEMORY INTENSIVE SO WE CAN'T ALLOW      *   FILE 088
//*               JOBS TO GET ANY MORE THAN THEY ASK FOR.           *   FILE 088
//*                                                                 *   FILE 088
//*     PRCM0002- THIS MOD WILL ALLOW DEFAULT TSO DYNAMIC           *   FILE 088
//*               ALLOCATION TO BE SHR INSTEAD OF OLD.  THIS IS     *   FILE 088
//*               FOR NON-TSO/E SYSTEMS, IF YOU HAVE TSO/E          *   FILE 088
//*               THERE IS ALREADY ANOTHER MOD ON THE CBT TAPE      *   FILE 088
//*               FOR THIS SAME TYPE OF THING. BUT IT IS ALOT       *   FILE 088
//*               BIGGER.  I GUESS THAT'S BECAUSE YOU HAVE TO       *   FILE 088
//*               ACTUALLY PAY FOR TSO/E.                           *   FILE 088
//*                                                                 *   FILE 088
//*     PRCM0003- THIS MOD MUST BE APPLIED WITH THE PRCM0004 MOD    *   FILE 088
//*     PRCM0004- WHICH IS ON THIS SAME FILE.  THE FIRST ONE IS A   *   FILE 088
//*               DUMMY MOD SO THAT I WILL BE INFORMED IF THERE     *   FILE 088
//*               IS ANY MAINTENANCE THAT EFFECTS THIS MOD BEFORE   *   FILE 088
//*               ITS TOO LATE.  YOU DON'T NEED TO PUT IT ON IF     *   FILE 088
//*               YOU DON'T WANT TO.  THIS MOD WILL PUT THE EXCP    *   FILE 088
//*               COUNTS ON THE IEF285I MESSAGE THAT COMES OUT ON   *   FILE 088
//*               YOUR JOB LISTING IE.                              *   FILE 088
//*                                                                 *   FILE 088
//*             IEF285I  C7BRIAN.VTOC.LOAD    KEPT     2123 EXCP    *   FILE 088
//*             IEF285I  DATASET.NAME         KEPT        0 EXCP    *   FILE 088
//*                                                                 *   FILE 088
//*     PRCM0005- MOD TO ALLOW YOU TO HAVE TSO DEFAULT ALLOCATE     *   FILE 088
//*               TO PACKS THAT ARE NOT MOUNTED AS PUBLIC OR        *   FILE 088
//*               STORAGE.  IT COMES WITH A PROGRAM CALLED EX99     *   FILE 088
//*               WHICH IS THE ACTUAL PCF EXIT THAT IS USED.        *   FILE 088
//*               YOU DO NOT HAVE TO HAVE PCF TO USE THIS MOD.      *   FILE 088
//*               WE DON'T HAVE IT AND WE RUN FINE.  YOU CAN        *   FILE 088
//*               SET THE ATTR2 FIELD IN THE PSCB TO ANY VOLUME     *   FILE 088
//*               THAT YOU WANT OR YOU CAN USE THE SETVOL           *   FILE 088
//*               PROGRAM ON THIS FILE TO DO IT FOR YOU             *   FILE 088
//*               AUTOMATICALLY                                     *   FILE 088
//*                                                                 *   FILE 088
//*     PRCM0010- THIS MOD WILL ELIMINATE THE DATASET NOT           *   FILE 088
//*               FREED; IS NOT ALLOCATED MESSAGE. FROM THE TSO     *   FILE 088
//*               ALLOC COMMAND.                                    *   FILE 088
//*                                                                 *   FILE 088
//*     PRCM0017- THIS MOD WILL ELIMINATE THE CN(00) BEING          *   FILE 088
//*               APPEND TO MESSAGES FROM THE OPERATOR AND ON       *   FILE 088
//*               THE NOTIFY OF JOB ENDED STUFF.                    *   FILE 088
//*                                                                 *   FILE 088
//*     TALK ---- CLIST TO DO ISPF FULL SCREEN SENDS TO PEOPLE      *   FILE 088
//*                                                                 *   FILE 088
//*     TALKP---- PANEL TO USE WITH THE TALK CLIST (PUT IT IN       *   FILE 088
//*               ISPPLIB CONCAT)                                   *   FILE 088
//*                                                                 *   FILE 088
//*     ULX..---- ISPF BASED VTOC ANALYSIS AND REPORTING            *   FILE 088
//*               FACILITY                                          *   FILE 088
//*                                                                 *   FILE 088
//*     USAGE   - TSO COMMAND TO DISPLAY SESSION COST.              *   FILE 088
//*                                                                 *   FILE 088
//*     WAITPROG- RUNS AS A BATHC JOB AND WILL ACCEPT A PARM        *   FILE 088
//*               THAT HAS THE NUMBER OF SECONDS THAT YOU WOULD     *   FILE 088
//*               LIKE TO WAIT AND DISPLAYS IT ON THE OS            *   FILE 088
//*               CONSOLE FOR THE OPERATOR IT HIGHLIGHTS IT AND     *   FILE 088
//*               WILL NOT ROLL OFF THE SCREEN.  WHEN THE TIME      *   FILE 088
//*               EXPIRES IT WILL ISSUE A DOM TO DELETE THE         *   FILE 088
//*               MESSAGE AND PUT OUT A REGULAR MESSAGE ABOUT       *   FILE 088
//*               REQUESTED TIME EXPIRED. THE JOBNAME IS ALSO       *   FILE 088
//*               PUT IN BOTH MESSAGES.                             *   FILE 088
//*                                                                 *   FILE 088
//*     XJ2PTP -- THIS IS A JES 2.1.5 EXIT TO DRAIN ALL OF THE      *   FILE 088
//*               TP LINES IN THE NETWORK WITH A SINGLE COMMAND     *   FILE 088
//*               $PTP. IT IS EXTREMELY USEFULL EVEN IF YOU         *   FILE 088
//*               DON'T HAVE OVER 600 LINES LIKE US.  YOU CAN       *   FILE 088
//*               ALSO START ALL TP WITH $STP OR RESTART WITH       *   FILE 088
//*               $ETP TO ACCOMPLISH A LOT OF WORK QUICKLY.         *   FILE 088
//*                                                                 *   FILE 088
//*     XJ2NET -- THIS IS A JES2 EXIT13 WHICH IS REQUIRED IF        *   FILE 088
//*               YOU WANT TO NOTIFY A TSO USER WHEN DATA IS        *   FILE 088
//*               RECEIVED FROM ANOTHER JES NODE. IT ADDS SOME      *   FILE 088
//*               NEAT STUFF LIKE HOW MANY LINES AND SUCH.          *   FILE 088
//*                                                                 *   FILE 088
//*     IEFUJV -- SMF UJV EXIT TO FORCE STANDARDS FOR MVS/XA        *   FILE 088
//*               2.2.0                                             *   FILE 088
//*                                                                 *   FILE 088
//*     ITACCTBL- TABLE USED BY THE MVS 2.2.0 VERSION OF IEFUJV     *   FILE 088
//*               FOR ACCOUNT #S                                    *   FILE 088
//*                                                                 *   FILE 088
//*     IEFUTL  - MVS/XA 2.2.0 SMF UTL EXIT                         *   FILE 088
//*                                                                 *   FILE 088
//*     IEFU29  - MVS/XA 2.2.0 SMF U29 EXIT                         *   FILE 088
//*                                                                 *   FILE 088
//*     IEFU83  - MVS/XA 2.2.0 SMF U83 EXIT                         *   FILE 088
//*                                                                 *   FILE 088
//*     IGGPRE00- MVS/XA 2.2.0 DADSM IGGPRE00 EXIT.  THIS EXIT      *   FILE 088
//*               USES 2 TABLES TSOTABL AND NODTABL WHICH ARE       *   FILE 088
//*               LOADED DYNAMICALLY AND CAN BE CHANGED ON THE      *   FILE 088
//*               FLY.  THIS EXIT WILL ALLOW STUFF TO BE            *   FILE 088
//*               ALLOCATED OR RENAMED ONLY TO THE PACKS WHICH      *   FILE 088
//*               WE DECIDE SHOULD GET THE PREFIXES.  THIS EXIT     *   FILE 088
//*               IS VERY POWERFUL AND IS EXTREMELY VERSATILE.      *   FILE 088
//*               THIS EXIT REQUIRES THE  MACROS CONNECT,           *   FILE 088
//*               EQUREGS, RELEASE, SETAMODE WHICH ARE ALSO         *   FILE 088
//*               INCLUDED IN THIS DATASET.                         *   FILE 088
//*                                                                 *   FILE 088
//*     NODTAB22- MVS/XA 2.2.0 VERSION OF THE NODETABLE FOR THE     *   FILE 088
//*               IGGPRE00 EXIT.  THIS ONE GOES IN LINKLIST.        *   FILE 088
//*                                                                 *   FILE 088
//*     TSOTAB22- MVS/XA 2.2.0 VERSION OF THE TSO UID TABLE FOR     *   FILE 088
//*               THE IGGPRE00 EXIT.  THIS ONE GOES IN LINKLIST.    *   FILE 088
//*                                                                 *   FILE 088
//*     Good Luck!                                                  *   FILE 088
//*                                                                 *   FILE 088
//***FILE 089 IS THE SOURCE FOR A DYNAMIC ALLOCATION INTERFACE      *   FILE 089
//*           FOR HIGH LEVEL LANGUAGES FROM THE UNIVERSITY OF       *   FILE 089
//*           MANITOBA                                              *   FILE 089
//*                      MR P.A. MACDONALD                          *   FILE 089
//*                      SYSTEMS PROGRAMMING                        *   FILE 089
//*                      THE UNIVERSITY OF MANITOBA                 *   FILE 089
//*                      COMPUTER SERVICES,  ENGINEERING BLDG       *   FILE 089
//*                      WINNIPEG,  MANITOBA                        *   FILE 089
//*                      CANADA   R36 2N2                           *   FILE 089
//*                      (204) 474-9870                             *   FILE 089
//*                                                                 *   FILE 089
//*           PAT MACDONALD HAS NOW RETIRED.                        *   FILE 089
//*                                                                 *   FILE 089
//*           INCLUDED IN FILE 089 IS THE DOCUMENTATION FOR THE     *   FILE 089
//*           DYNAMIC ALLOCATION INTERFACE THAT WAS FORMERLY        *   FILE 089
//*           CONTAINED IN FILE 089 OF THIS TAPE.  THE DCB FOR      *   FILE 089
//*           THE DOCUMENTATION MEMBER IS FBA.  ANSI PRINT          *   FILE 089
//*           CONTROL CHARACTERS ARE INCLUDED.                      *   FILE 089
//*                                                                 *   FILE 089
//***FILE 090 is from David Noon and is a DELINKER program, which   *   FILE 090
//*           converts load modules into 80-byte object decks.      *   FILE 090
//*           This file was prepared for the CBT Tape by Greg       *   FILE 090
//*           Price.                                                *   FILE 090
//*                                                                 *   FILE 090
//*     This file (CBT File 90) contains the "Delinker" package     *   FILE 090
//*     written by David W. Noon which consists of source code      *   FILE 090
//*     (PL/I and Assembler) and documentation.                     *   FILE 090
//*                                                                 *   FILE 090
//*     David Noon's email:  dwnoon@ibm.net      -or-               *   FILE 090
//*                       dwnoon@compuserve.com                     *   FILE 090
//*                                                                 *   FILE 090
//*     In March 1999, someone asked how to read and write          *   FILE 090
//*     RECFM=U data from PL/I in the comp.lang.pl1 USENET          *   FILE 090
//*     newsgroup.  David Noon posted that if a delinker written    *   FILE 090
//*     in PL/I was wanted then just ask.  That's not what the      *   FILE 090
//*     original poster wanted, but I asked instead, and Dave       *   FILE 090
//*     duly emailed it to me.                                      *   FILE 090
//*                                                                 *   FILE 090
//*     The package turned out to be a powerful batch utility       *   FILE 090
//*     to delink, resize and even package for later processing     *   FILE 090
//*     (such as distribution and reinstallation) some or all       *   FILE 090
//*     CSECTs of nominated load modules.  It could, for            *   FILE 090
//*     example, be used in a job stream to replace certain         *   FILE 090
//*     CSECTs with newer versions.                                 *   FILE 090
//*                                                                 *   FILE 090
//*     I ended up plugging it into REVIEW R31.0 (CBT File 134),    *   FILE 090
//*     so that members tagged in the member list (or all           *   FILE 090
//*     members if none are tagged) can be dynamically delinked.    *   FILE 090
//*                                                                 *   FILE 090
//*     Please note that this Delinker will not process             *   FILE 090
//*     scatter-load or segment-overlay programs correctly.  It     *   FILE 090
//*     will only process load modules, and not program objects.    *   FILE 090
//*                                                                 *   FILE 090
//*     In case you do not have a suitable PL/I compiler handy,     *   FILE 090
//*     I have supplied DELINKI and DWNSPDSR load modules in CBT    *   FILE 090
//*     File 135.  I proposed calling the program DELINK1 to        *   FILE 090
//*     distinguish it from the DELINK/DELINK0 OS/360 FE Tool       *   FILE 090
//*     (and its derivatives), but Sam Golob preferred DELINKI,     *   FILE 090
//*     so DELINKI it is.  (The 1 or I denotes that it is written   *   FILE 090
//*     in PL/I.)                                                   *   FILE 090
//*                                                                 *   FILE 090
//*     A member contents list follows.                             *   FILE 090
//*                                      Greg Price, July 1999.     *   FILE 090
//*                                                                 *   FILE 090
//*     -MEMBER-   -CONTENTS------------------------------------    *   FILE 090
//*                                                                 *   FILE 090
//*     $$DOC    - This member.                                     *   FILE 090
//*                                                                 *   FILE 090
//*     DCFDOC   - This is a documentation source file Dave made    *   FILE 090
//*                in SGML.  It can easily be converted to GML      *   FILE 090
//*                and run through SCRIPT/VS.  It can be TEXT       *   FILE 090
//*                transferred to DELINK.IPF on the PC for          *   FILE 090
//*                processing by the IPF compiler.  I resolved a    *   FILE 090
//*                lot (but not all) of character symbolics to      *   FILE 090
//*                get it to fit into an 80-column file.  It        *   FILE 090
//*                also made the uncompiled source more             *   FILE 090
//*                readable.                                        *   FILE 090
//*                                                                 *   FILE 090
//*                   &apos.             was replaced by   '        *   FILE 090
//*                   &asterisk.         was replaced by   *        *   FILE 090
//*                   &colon.            was replaced by   :        *   FILE 090
//*                   &comma.            was replaced by   ,        *   FILE 090
//*                   &eq.               was replaced by   =        *   FILE 090
//*                   &hyphen.           was replaced by   -        *   FILE 090
//*                   &lpar.             was replaced by   (        *   FILE 090
//*                   &per.              was replaced by   .        *   FILE 090
//*                   &plus.             was replaced by   +        *   FILE 090
//*                   &rpar.             was replaced by   )        *   FILE 090
//*                   &slash.            was replaced by   /        *   FILE 090
//*                                                                 *   FILE 090
//*     DELINK   - This is the main PL/I source member.             *   FILE 090
//*                It should be compiled with OS PL/I Version 2     *   FILE 090
//*                or with PL/I for MVS & VM.  Requires DWNSCAN     *   FILE 090
//*                and DWNSHEX to be linked into the program        *   FILE 090
//*                executable, and DWNSPDSR to be fetchable         *   FILE 090
//*                during execution.                                *   FILE 090
//*                                                                 *   FILE 090
//*     DWNMPRLG - PL/I prologue macro used by DWNSCAN and          *   FILE 090
//*                DWNSHEX.  Seems to work for OS PL/I Version 2    *   FILE 090
//*                and PL/I for MVS & VM.                           *   FILE 090
//*                                                                 *   FILE 090
//*     DWNSCAN  - Performs the same function as the PL/I SEARCH    *   FILE 090
//*                built-in function.  The SEARCH and SEARCHR       *   FILE 090
//*                built-in functions are not yet available under   *   FILE 090
//*                MVS (OS/390) at the time of writing.  This       *   FILE 090
//*                module should be assembled and made available    *   FILE 090
//*                at bind (ie. link-edit) time for inclusion       *   FILE 090
//*                into the main program.                           *   FILE 090
//*                                                                 *   FILE 090
//*     DWNSHEX  - Performs a similar function to the PL/I HEX      *   FILE 090
//*                built-in function.  The HEX and HEXIMAGE         *   FILE 090
//*                built-in functions are not yet available         *   FILE 090
//*                under MVS (OS/390) at the time of writing.       *   FILE 090
//*                This module should be assembled and made         *   FILE 090
//*                available at bind (ie. link-edit) time for       *   FILE 090
//*                inclusion into the main program.                 *   FILE 090
//*                                                                 *   FILE 090
//*     DWNSPDSR - Provides BPAM support for the main PL/I          *   FILE 090
//*                program.  It should be assembled and made        *   FILE 090
//*                available for dynamic fetching at execute        *   FILE 090
//*                time.                                            *   FILE 090
//*                                                                 *   FILE 090
//*     DWNYBLDL - PL/I source structure for PDS program            *   FILE 090
//*                directory entry.  It was obviously meant to      *   FILE 090
//*                be included in the source by some strange        *   FILE 090
//*                control card (not %INCLUDE), so I just copied    *   FILE 090
//*                it into the source.  This member is therefore    *   FILE 090
//*                no longer used.                                  *   FILE 090
//*                                                                 *   FILE 090
//*     FMBLOCK  - Housekeeping macros used by DWNSPDSR, all of     *   FILE 090
//*     FMCREDT    which were probably contributed to the SHARE     *   FILE 090
//*     FMSTART    tape by Ken True of Fairchild MSS (hence FM,     *   FILE 090
//*     FMWORK1    no doubt).  They were moved from from the        *   FILE 090
//*     FMWORK2    SHARE tape to the Fairchild MSS "Mods" tape,     *   FILE 090
//*                later called the Intel MVS "Mods" tape, circa    *   FILE 090
//*                1982.                                            *   FILE 090
//*                                                                 *   FILE 090
//*     PLIICB   - PL/I Interrupt Control Block macro used by       *   FILE 090
//*                DWNSHEX on error conditions.                     *   FILE 090
//*                                                                 *   FILE 090
//*     PLISIG   - PL/I Signal macro used by DWNSHEX on error       *   FILE 090
//*                conditions.                                      *   FILE 090
//*                                                                 *   FILE 090
//*     XMITBOOK - TSO/E transmit file of DELINK.INF which was      *   FILE 090
//*                created by compiling DELINK.IPF (source in       *   FILE 090
//*                member DCFDOC) with IPFC under OS/2.  Process    *   FILE 090
//*                with INDATASET operand of the TSO/E RECEIVE      *   FILE 090
//*                command to get a RECFM=U sequential data set.    *   FILE 090
//*                BINARY transfer this file to the PC (byte        *   FILE 090
//*                counts should match).  Use the VIEW command of   *   FILE 090
//*                OS/2 or PC-DOS to look at DELINK.INF which       *   FILE 090
//*                contains the Delinker documentation.  The        *   FILE 090
//*                PC-DOS VIEW command also works from the MS-DOS   *   FILE 090
//*                prompt (including under Win95).  Apparently,     *   FILE 090
//*                there is an IVIEW command downloadable from      *   FILE 090
//*                IBM designed to work under Win95.                *   FILE 090
//*                                                                 *   FILE 090
//***FILE 091 IS FROM JIM MARSHALL, FORMERLY OF THE US AIR FORCE.   *   FILE 091
//*                                                                 *   FILE 091
//*           JIM HAS RETIRED FROM THE AIR FORCE.  HIS ADDRESS IS:  *   FILE 091
//*                                                                 *   FILE 091
//*                 JIM MARSHALL, US TREASURY                       *   FILE 091
//*                 FINANCIAL MANAGEMENT SERVICE                    *   FILE 091
//*                 PRINCE GEORGES PLAZA II - ROOM 400B             *   FILE 091
//*                 3700 EAST-WEST HIGHWAY                          *   FILE 091
//*                 HYATTSVILLE, MD  20782                          *   FILE 091
//*                 202-874-8353                                    *   FILE 091
//*                                                                 *   FILE 091
//*              THIS IS A FILE OF THE JCL PROCEDURES FOR           *   FILE 091
//*              USE WITH FILE 092, WHICH IS THE PL1/F COMPILER.    *   FILE 091
//*              ALSO INCLUDED NOW ARE PROCEDURES FOR FORTRAN       *   FILE 091
//*              (IN FILE 326), RPG (IN FILE 327), AND ALGOL        *   FILE 091
//*              (IN FILE 176).  THERE ARE SOME OTHER PROCEDURES    *   FILE 091
//*              FROM THE MVT (OS RELEASE 21.8) PROCLIB.  THE       *   FILE 091
//*              ENTIRE PROCLIB MAY BE FOUND ON THE CBT OVERFLOW    *   FILE 091
//*              TAPE (FILE 081 THERE).  THE ENTIRE SYS1.SAMPLIB    *   FILE 091
//*              MAY BE FOUND ON THE CBT OVERFLOW TAPE, FILE 079    *   FILE 091
//*              THERE.                                             *   FILE 091
//*                                                                 *   FILE 091
//*              PL1L**** - THESE ARE PROCEDURES FOR PL1F.  THE     *   FILE 091
//*                         LIBRARY FOR PL1/F IS IN FILE 092.       *   FILE 091
//*                                                                 *   FILE 091
//*              FORTG*** - THESE ARE PROCEDURES FOR FORTRAN G AND  *   FILE 091
//*              FORTH***   H.  THE LIBRARY FOR FORTRAN G AND H IS  *   FILE 091
//*                         IN FILE 326.                            *   FILE 091
//*                                                                 *   FILE 091
//*              RPG****  - THESE ARE THE PROCEDURES FOR RPG/F      *   FILE 091
//*                         THE LIBRARY FOR RPG IS IN FILE 327.     *   FILE 091
//*                                                                 *   FILE 091
//*              ALGO**** - THESE ARE THE PROCEDURES FOR ALGOL      *   FILE 091
//*                         THE LIBRARY FOR ALGOL IS IN FILE 176.   *   FILE 091
//*                                                                 *   FILE 091
//*              NOTES:  YOU CAN FIND OUT ALL THE DEFAULTS BY       *   FILE 091
//*                      EXECUTING THE COMPILERS WITH A PARM=       *   FILE 091
//*                      AND LOOK AT WHAT IS SET.                   *   FILE 091
//*                                                                 *   FILE 091
//***FILE 092 IS FROM JIM MARSHALL, FORMERLY OF THE US AIR FORCE.   *   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 CONTAINS A SYSTEM TO SEQUENTIALIZE A PDS (ANY         *   FILE 093
//*           LRECL) FROM MR SAM GOLOB.  SOME OF THIS CODE IS       *   FILE 093
//*           FROM THE SHARE PL1 TAPE.  FOR ADDITIONAL              *   FILE 093
//*           INFORMATION SEE THE MEMBERS CALLED $$$$DOC AND        *   FILE 093
//*           $$$$DOC2.                                             *   FILE 093
//*                                                                 *   FILE 093
//*           THIS SYSTEM SHOULD PROVE USEFUL IF YOU WANT           *   FILE 093
//*           TO "SEQUENTIALIZE" A PDS.                             *   FILE 093
//*                                                                 *   FILE 093
//*           THIS LIBRARY CONTAINS TWO PAIRS OF PROGRAMS:          *   FILE 093
//*                                                                 *   FILE 093
//*           1.  OFFLOADW AND PDSLOADW    (MODIFIED FROM           *   FILE 093
//*               CBT TAPE BY GREG PRICE.)                          *   FILE 093
//*                                                                 *   FILE 093
//*           2.  UNUPDTE AND UPDTE       (FROM PL1 MODS            *   FILE 093
//*               TAPE - SPLA.  UNUPDTE WAS ENHANCED BY ART         *   FILE 093
//*               TANSKY OF SUNGARD.)                               *   FILE 093
//*                                                                 *   FILE 093
//*           EACH PAIR IS A SELF-CONTAINED SYSTEM THAT IS          *   FILE 093
//*           INDEPENDENT OF THE OTHER PAIR.                        *   FILE 093
//*                                                                 *   FILE 093
//*           OFFLOADW AND PDSLOADW ALLOW IEBUPDTE-TYPE UNLOADING   *   FILE 093
//*           AND RELOADING OF PDS'ES TO SEQUENTIAL DATASETS.       *   FILE 093
//*           THIS IS NOT RESTRICTED TO RECORD LENGTHS OF 80 FOR    *   FILE 093
//*           THE DATA.  ALMOST ANY PARTITIONED DATASETS ARE        *   FILE 093
//*           ELIGIBLE FOR THIS TREATMENT.  THIS OPENS              *   FILE 093
//*           IEBUPDTE-TYPE UNLOADS TO TAPE OR DISK-SEQUENTIAL      *   FILE 093
//*           DATASETS TO MUCH WIDER APPLICATION THAN HERETOFORE.   *   FILE 093
//*           (ALSO SEE THE "=OFFLOAD" OPTION OF THE "REVIEW" TSO   *   FILE 093
//*           COMMAND THAT IS ON FILE 134 OF THIS TAPE.)            *   FILE 093
//*                                                                 *   FILE 093
//*           OFFLOAD AND PDSLOAD NOW AUTOMATICALLY ALLOW           *   FILE 093
//*           FOR LRECL FROM 1 TO 256 NOW (FROM GREG PRICE)         *   FILE 093
//*           WITH NO CONDITIONAL ASSEMBLY.                         *   FILE 093
//*                                                                 *   FILE 093
//*           THE RESULT WAS ACHIEVED BY SLIGHTLY MODIFYING         *   FILE 093
//*           EXISTING PROGRAMS PDSLOAD (FROM CBT TAPE FILE         *   FILE 093
//*           316) AND OFFLOAD (FROM CBT TAPE FILE 225).            *   FILE 093
//*           YOU CAN GET THE IEBUPDTE-TYPE UNLOAD AND              *   FILE 093
//*           RELOAD TREATMENT, COMPLETE WITH THE   ./ ADD          *   FILE 093
//*           CARDS AND ISPF STATISTICS PRESERVED.  AFTER           *   FILE 093
//*           GREG PRICE'S MODIFICATIONS, OFFLOAD AND PDSLOAD       *   FILE 093
//*           ARE NOW A MATCHED PAIR OF PROGRAMS TO PERFORM         *   FILE 093
//*           OPPOSITE FUNCTIONS:  OFFLOAD SEQUENTIALIZES A PDS,    *   FILE 093
//*           AND PDSLOAD RELOADS THE PDS FROM THE SEQUENTIAL       *   FILE 093
//*           OFFLOADED FILE.                                       *   FILE 093
//*                                                                 *   FILE 093
//*           THE UPDTE AND UNUPDTE PROGRAMS WERE LIFTED            *   FILE 093
//*           FROM THE PL1 MODS TAPE THAT CAN BE OBTAINED           *   FILE 093
//*           FROM SPLA (ORDER NUMBER 370D-03.2.019).               *   FILE 093
//*                                                                 *   FILE 093
//*           THESE PROGRAMS ARE MORE FLEXIBLE THAN                 *   FILE 093
//*           PDSLOADW AND OFFLOADW IN THAT:                        *   FILE 093
//*                                                                 *   FILE 093
//*            1.  THEY HANDLE RECFM=F AND ALSO RECFM=V             *   FILE 093
//*                DATASETS.                                        *   FILE 093
//*                                                                 *   FILE 093
//*            2.  THE DATASET CAN HAVE ANY LRECL PERMITTED         *   FILE 093
//*                BY THE SYSTEM.                                   *   FILE 093
//*                                                                 *   FILE 093
//*        PROCESSING WITH THESE PROGRAMS SEQUENTIALIZES A          *   FILE 093
//*        PDS BY LOADING EACH MEMBER TO A SEQUENTIAL               *   FILE 093
//*        DATASET, PRECEDED BY A CONTROL RECORD THAT LOOKS         *   FILE 093
//*        LIKE   ./ ADD NAME=MEMBNAME , SIMILAR TO AN              *   FILE 093
//*        IEBUPDTE CONTROL CARD.                                   *   FILE 093
//*                                                                 *   FILE 093
//*        THE PROGRAM UNUPDTE CONVERTS A PARTITIONED               *   FILE 093
//*        DATASET INTO SEQUENTIAL FORMAT DESCRIBED BY THE          *   FILE 093
//*        PRECEDING PARAGRAPH.  THE PROGRAM UPDTE LOADS            *   FILE 093
//*        THE SEQUENTIALIZED DATASET OF THE ABOVE FORMAT           *   FILE 093
//*        BACK INTO A PDS THAT HAS THE SAME DCB ATTRIBUTES         *   FILE 093
//*        (EXCEPT FOR DSORG OF COURSE).                            *   FILE 093
//*                                                                 *   FILE 093
//*        IT IS ALSO ADVANTAGEOUS TO HAVE PDSLOADW AND             *   FILE 093
//*        OFFLOADW AROUND, BECAUSE THEY HAVE SOME OPTIONS          *   FILE 093
//*        WHICH UPDTE AND UNUPDTE DO NOT HAVE, SUCH AS             *   FILE 093
//*        AUTOMATICALLY CONVERTING THE STRING ./ WITHIN A          *   FILE 093
//*        MEMBER (IN COLUMNS 1-2) TO SOME OTHER STRING,            *   FILE 093
//*        SUCH AS ><.  THEREFORE I AM INCLUDING BOTH PAIRS         *   FILE 093
//*        OF PROGRAMS IN THIS PACKAGE.                             *   FILE 093
//*                                                                 *   FILE 093
//*        JCL TO RUN THESE PROGRAMS IS OF THE SAME FORMAT          *   FILE 093
//*        AS IEBUPDTE JCL, TO THE POINT WHERE EACH PROGRAM         *   FILE 093
//*        MIMICS THE FUNCTION OF IEBUPDTE.  FOR INSTANCE,          *   FILE 093
//*        UNUPDTE, WHICH UNLOADS A PDS TO A SEQUENTIAL             *   FILE 093
//*        DATASET, HAS DDCARDS SYSPRINT, SYSUT1, AND               *   FILE 093
//*        SYSUT2.  UPDTE, WHICH DOES THE OPPOSITE, HAS             *   FILE 093
//*        CONTROL CARDS SYSPRINT, SYSIN, AND SYSUT2.  YOU          *   FILE 093
//*        GET THE PICTURE.                                         *   FILE 093
//*                                                                 *   FILE 093
//*        THESE FOUR PROGRAMS (TWO PAIRS) TAKEN TOGETHER,          *   FILE 093
//*        PROVIDE POWERFUL TOOLS FOR SEQUENTIALIZATION OF          *   FILE 093
//*        PARTITIONED DATASETS.                                    *   FILE 093
//*                                                                 *   FILE 093
//*  -------------------------------------------------------------  *   FILE 093
//*                                                                 *   FILE 093
//*  PDSLOAD update notes from Greg Price:  (see File 134 - REVIEW) *   FILE 093
//*                                                                 *   FILE 093
//*       PDSLOAD has now been further enhanced to handle any       *   FILE 093
//*       LRECL for both fixed-length and variable-length           *   FILE 093
//*       records.  The LRECL of the input sequential data set      *   FILE 093
//*       can but need not match the LRECL of the output            *   FILE 093
//*       partitioned data set.                                     *   FILE 093
//*                                                                 *   FILE 093
//*       When the output PDS has fixed-length records, the input   *   FILE 093
//*       file may have fixed-length or variable-length records.    *   FILE 093
//*       (Text files transferred from PCs often go to variable-    *   FILE 093
//*       length record files on MVS.)                              *   FILE 093
//*                                                                 *   FILE 093
//*       When the output PDS has variable-length records, only     *   FILE 093
//*       variable-length record input data is acceptable.          *   FILE 093
//*                                                                 *   FILE 093
//*       Undefined record format files cannot be used for input    *   FILE 093
//*       or output.                                                *   FILE 093
//*                                                                 *   FILE 093
//*       The minimum input LRECL is 80.  The minimum output        *   FILE 093
//*       LRECL is 1 (plus 4 for RDWs, if present).                 *   FILE 093
//*                                                                 *   FILE 093
//*       PARM=NEW is used to specify that, like IEBUPDTE, the      *   FILE 093
//*       input control+data stream is to be loaded from SYSIN,     *   FILE 093
//*       instead of SYSUT1.  In any event, if an OPEN for SYSUT1   *   FILE 093
//*       does not open successfully (and no abend occurs) the      *   FILE 093
//*       OPEN is retried with SYSIN as the DDname.                 *   FILE 093
//*                                                                 *   FILE 093
//*       PARM=SPF can still be used to generate ISPF               *   FILE 093
//*       "statistics".  SSI information will be lost when this     *   FILE 093
//*       is selected.  The "userid" of generated stats is          *   FILE 093
//*       'PDSLOAD'.                                                *   FILE 093
//*                                                                 *   FILE 093
//*       John Kalinich's Y2K windowing fix allows for 2-digit      *   FILE 093
//*       years below 66 to be deemed to belong to the 21st         *   FILE 093
//*       century.  This is necessary because the PDSLOAD stats     *   FILE 093
//*       format on the ./ ADD statement only allows for 2-digit    *   FILE 093
//*       years.  (Generated stats did not have a Y2K bug.)         *   FILE 093
//*                                                                 *   FILE 093
//*       The SPF stats current record count will always be set     *   FILE 093
//*       from the record count processed by PDSLOAD, even when     *   FILE 093
//*       this differs from the data supplied on a ./ ADD card.     *   FILE 093
//*       Other data will not be overridden.  Apart from the        *   FILE 093
//*       userid, supplied stats are now verified to consist of     *   FILE 093
//*       numeric characters.                                       *   FILE 093
//*                                                                 *   FILE 093
//*       The asterisk (*), question mark (?) and percent sign      *   FILE 093
//*       (%) are now treated as generic character placeholders     *   FILE 093
//*       for member selection.  The three mask characters          *   FILE 093
//*       function identically, and cause a match for the           *   FILE 093
//*       corresponding byte position of the member name.  Thus,    *   FILE 093
//*       S(ABC****X) will select all members beginning with        *   FILE 093
//*       'ABC' and ending in 'X' in the eighth byte, and S(****)   *   FILE 093
//*       will select all members with names no longer than four    *   FILE 093
//*       non-blank characters.                                     *   FILE 093
//*                                                                 *   FILE 093
//*       The IBM OS utility DDname override parameter can now be   *   FILE 093
//*       used by PDSLOAD.  The SYSIN, SYSPRINT and SYSUT2          *   FILE 093
//*       "slots" are relevant.  (This was done to facilitate       *   FILE 093
//*       dynamic invocation from the REVIEW TSO command.)  See     *   FILE 093
//*       the leading comments in the source code for more          *   FILE 093
//*       information on DDname overrides.                          *   FILE 093
//*                                                                 *   FILE 093
//*       Parameter order is 'NEW,SPF,S(********),UPDTE(><)' for    *   FILE 093
//*       example.  Unwanted options can be omitted, but the        *   FILE 093
//*       order is fixed.                                           *   FILE 093
//*                                                                 *   FILE 093
//*    Greg Price    20 April, 1999                                 *   FILE 093
//*                                                                 *   FILE 093
//***FILE 094 is from Michael Cleary, and contains a copy of        *   FILE 094
//*           DAF (Dataset Audit Facility).  This file is in        *   FILE 094
//*           IEBUPDTE SYSIN format.                                *   FILE 094
//*                                                                 *   FILE 094
//*     MIKE CLEARY HAS A NEW ADDRESS:                              *   FILE 094
//*                                                                 *   FILE 094
//*        email:  mcleary@pacbell.net                              *   FILE 094
//*                                                                 *   FILE 094
//*     Contact:   Michael J. Cleary                                *   FILE 094
//*                Mainframe Technical Services                     *   FILE 094
//*                Bergen Brunswig                                  *   FILE 094
//*                4000 Metropolitan Drive                          *   FILE 094
//*                Orange, California  92868                        *   FILE 094
//*                Voice:  714.385.4052                             *   FILE 094
//*                Fax     714.704.7052                             *   FILE 094
//*                Email:  mike.cleary@bergenbrunswig.com           *   FILE 094
//*                                                                 *   FILE 094
//*           THE CURRENT VERSION OF DAF IS WRITTEN IN ASSEMBLER.   *   FILE 094
//*                                                                 *   FILE 094
//*           DOCUMEMTATION IS INCLUDED IN THE CODE, AND I WILL     *   FILE 094
//*           INCLUDE MORE DOCUMENTATION OF THE BAL VERSION IF IT   *   FILE 094
//*           BECOMES AVAILABLE.                                    *   FILE 094
//*                                                                 *   FILE 094
//*           The PL/I version of DAF, V1.3, is also included       *   FILE 094
//*           here, as member OLDDAF, with its documentation        *   FILE 094
//*           included.                                             *   FILE 094
//*                                                                 *   FILE 094
//*           DAF IS A BATCH UTILITY PROGRAM THAT READS SMF         *   FILE 094
//*           RECORDS AND GENERATES A REPORT.                       *   FILE 094
//*                                                                 *   FILE 094
//*           THE FOLLOWING CONTROL RECORDS CAN BE USED TO MODIFY   *   FILE 094
//*           THE SELECTION CRITERIA.                               *   FILE 094
//*                                                                 *   FILE 094
//*             DDN=    DEFAULT:  ALL DDNAMES   <###  NOTE:         *   FILE 094
//*                                              EACH TYPE OF       *   FILE 094
//*             DSN=    DEFAULT:  ALL DATASETS  <###  CONTROL       *   FILE 094
//*                                              RECORD CAN OCCUR   *   FILE 094
//*             JOB=    DEFAULT:  ALL JOBS      <###  BETWEEN 0 AND *   FILE 094
//*                                              32 TIMES.          *   FILE 094
//*             VOL=    DEFAULT:  ALL VOLUMES   <###                *   FILE 094
//*                                                                 *   FILE 094
//*             SD=YYDDD    DEFAULT:  START DATE 86001              *   FILE 094
//*             ED=YYDDD    DEFAULT:  END DATE 99365                *   FILE 094
//*                                                                 *   FILE 094
//*           DAF CAN SOLVE MANY COMMON MYSTERIES BY SHOWING:       *   FILE 094
//*                                                                 *   FILE 094
//*               DATASET CREATE, ACCESS, RENAME, DELETE            *   FILE 094
//*                       HOW MANY EXCPS ?                          *   FILE 094
//*                       WHAT DDNAME ?                             *   FILE 094
//*                       WHAT JOB ?                                *   FILE 094
//*                       WHAT TIME ?                               *   FILE 094
//*                       WHAT VOLUME ?                             *   FILE 094
//*                                                                 *   FILE 094
//*           DAF CAN SOLVE SOME UNIQUE MYSTERIES BY SHOWING:       *   FILE 094
//*                                                                 *   FILE 094
//*               WHAT VOLUMES DOES AN APPLICATION USE ?            *   FILE 094
//*               WAS A CERTAIN DATASET USED LAST WEEKEND ?         *   FILE 094
//*                                                                 *   FILE 094
//***FILE 095 IS FROM MR PAUL G. DAVIS OF EDS IN LOUISVILLE, CO AND *   FILE 095
//*           CONTAINS A COPY OF HIS ISPF EDIT MACROS AND A PROGRAM *   FILE 095
//*           CALLED WHOIS WHICH MAY BE OF INTEREST TO ACF2 USERS   *   FILE 095
//*                                                                 *   FILE 095
//*    EMAIL ADDRESS:    Paul G Davis <miststuck@juno.com>          *   FILE 095
//*                                                                 *   FILE 095
//*   SEE FILE 251 WHICH HAS AN ALMOST ENTIRELY NEW COLLECTION      *   FILE 095
//*   OF PAUL DAVIS' EDIT MACROS.  LOOK BOTH AT THIS FILE AND       *   FILE 095
//*   AT FILE 251 ALSO.                                             *   FILE 095
//*                                                                 *   FILE 095
//*           WHOIS IS A PROGRAM                                    *   FILE 095
//*                                                                 *   FILE 095
//*   EDS AND ENRON CORP IN NO WAY ASSUMES ANY RESPONSIBILITY FOR   *   FILE 095
//*   THE USE OF ANY PART OF THIS CODE.  HOWEVER, IF YOU            *   FILE 095
//*   HAVE ANY QUESTIONS, FEEL FREE TO EMAIL.                       *   FILE 095
//*                                                                 *   FILE 095
//*   With a heavy heart, we regret to mention the passing of       *   FILE 095
//*   Paul Davis on July 19, 2000.  (SG)                            *   FILE 095
//*                                                                 *   FILE 095
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT, FOR ADDITIONAL *   FILE 095
//*           INFORMATION PLEASE READ THE MEMBERS THAT START WITH   *   FILE 095
//*           A DOLLAR SIGN ($).  THIS FILE CONTAINS THE FOLLOWING: *   FILE 095
//*                                                                 *   FILE 095
//*           $BASIC        BASIC INSTRUCTIONS FOR USE OF EDIT      *   FILE 095
//*                         MACROS                                  *   FILE 095
//*           $CHANGES      CHANGES AND MODIFICATIONS TO MEMBERS    *   FILE 095
//*           $DESCRPT      DESCRIPTION OF MACROS                   *   FILE 095
//*           $DOC          THIS MEMBER                             *   FILE 095
//*           $SAMPJCL      JCL TO COPY NEEDED MODULES AND COMPILE  *   FILE 095
//*                         LOAD MODULES                            *   FILE 095
//*           $SETUP        SET UP FOR EDIT MACRO USE               *   FILE 095
//*           COBLCAS       COBOL SOURCE FOR LCASE (LOWER CASE)     *   FILE 095
//*                         EDIT MACRO                              *   FILE 095
//*           COBSEPL       COBOL SOURCE FOR SEPLINE EDIT MACRO     *   FILE 095
//*           COBUCAS       COBOL SOURCE FOR UCASE (UPPER CASE)     *   FILE 095
//*                         EDIT MACRO                              *   FILE 095
//*                                                                 *   FILE 095
//*                      $MACROS                                    *   FILE 095
//*                                                                 *   FILE 095
//*           ADDCMDS   CLIST TO ADD ASSIST IN ADDING COMMANDS TO   *   FILE 095
//*                     ISPF COMMAND TABLE                          *   FILE 095
//*           ASMBOX    DRAW A BOX AROUND ASSEMBLY CODE LINES       *   FILE 095
//*                     (COMMENT THEM OUT)                          *   FILE 095
//*           B         BROWSE A MEMBER IN SAME PDS WHEN IN EDIT    *   FILE 095
//*           BIG       CREATE BIG LETTERS IN YOUR TEXT             *   FILE 095
//*           BIGS      CREATE BIG SLANTED LETTERS IN YOUR TEXT     *   FILE 095
//*           BLDCOPY   BUILD IEBCOPY SYSIN STATEMENTS TO COPY      *   FILE 095
//*                     MEMBER OF A PDS                             *   FILE 095
//*           BRODUPDT  NEATLY UPDATE SYS1.BRODCAST MESSAGES        *   FILE 095
//*           CENTER    CENTER TEXT IN YOUR TEXT                    *   FILE 095
//*           CHGALL    QUICK CHANGE ALL COMMAND                    *   FILE 095
//*           CLISTBOX  DRAW A BOX AROUND CLIST LINES (COMMENT THEM *   FILE 095
//*                     OUT)                                        *   FILE 095
//*           CLONE     CLIST TO INVOKE CLONES AND CLONEP FROM ISPF *   FILE 095
//*                     (3.4 ALSO)                                  *   FILE 095
//*           CLONEP    BUILD JCL TO CLONE A PDS                    *   FILE 095
//*           CLONES    BUILD JCL TO CLONE A SEQUENTIAL FILE        *   FILE 095
//*           CMDS      DISPLAY COMMAND TABLE ENTRIES               *   FILE 095
//*           CMDUPDT1  EDIT MACRO CALLED BY ADDCMDS CLIST          *   FILE 095
//*           COBBOX    DRAW A BOX AROUND COBOL CODE LINES (COMMENT *   FILE 095
//*                     THEM OUT)                                   *   FILE 095
//*           COMMENTS  FIND ALL THE COMMENTS IN YOUR DATASET       *   FILE 095
//*           COMPRESS  COMPRESS CURRENT PDS IN PLACE               *   FILE 095
//*           CONLY     CHANGE "ONLY" COMMAND WITH SUB PARAMETERS   *   FILE 095
//*           CONT      PUT CONTINUATION CHARACTER IN COL 72        *   FILE 095
//*           CUSTBOX   DRAW A CUSTOM BOX TO SPECIFICATION LENGTH X *   FILE 095
//*                     WIDTH IN YOUR CODE                          *   FILE 095
//*           CUT       CUT TEXT LINES FROM DATASET TO BE PASTED    *   FILE 095
//*                     LATER                                       *   FILE 095
//*           CUTTO     CUT TEXT LINES FROM DATASET TO ANOTHER      *   FILE 095
//*                     DATASET                                     *   FILE 095
//*           D         DELETE A MEMBER OF THE CURRENT PDS          *   FILE 095
//*           DELCUT    REMOVE A LEVEL OF CUT FROM PROFILE          *   FILE 095
//*           DSIGENP   CREATE IEBCOPY JCL FOR A PDS                *   FILE 095
//*           DSIGENS   CREATE IEBGENER JCL FOR A SEQUENTIAL        *   FILE 095
//*                     DATASET                                     *   FILE 095
//*           E         EDIT ANOTHER MEMBER OF THE CURRENT PDS      *   FILE 095
//*           EDITPDS   CLIST: PERFORM A COMMAND ON ALL MEMBERS OF  *   FILE 095
//*                     A CLIST                                     *   FILE 095
//*           EMACS     LIST TABLE SHOWING EDIT MACRO DESCRIPTIONS  *   FILE 095
//*           FC        FIND PENDING LINE COMMANDS                  *   FILE 095
//*           FIXJCL    TIDY UP YOUR JCL                            *   FILE 095
//*           INIT      INITIAL MACRO FOR EDIT MACRO PURPOSES       *   FILE 095
//*           INITIAL   INITIALIZE DATASET HEADERS FILL IN THE      *   FILE 095
//*                     BLANK INFO                                  *   FILE 095
//*           JC        CREATE A JOBCARD                            *   FILE 095
//*           JCLBOX    DRAW A BOX AROUND JCL LINES (COMMENT THEM   *   FILE 095
//*                     OUT)                                        *   FILE 095
//*           JC2       CREATE A SPECIALIZED JOBCARD                *   FILE 095
//*           JC3       CREATE A JOBCARD WITH REFER INFO            *   FILE 095
//*           JOBCARD   CREATE A JOBCARD                            *   FILE 095
//*           LCASE     CHANGE ENTIRE DATASET TO LOWER CASE         *   FILE 095
//*           LCASEC    CLIST MACRO TO CONVERT A DATASET TO LOWER   *   FILE 095
//*                     CASE                                        *   FILE 095
//*           LJUST     CHANGE AN ENTIRE DATASET TO UPPER CASE      *   FILE 095
//*           MACHELP   GET HELP FOR INDIVIDUAL MACROS              *   FILE 095
//*           MACLIST   DISPLAY A TABLE OF CURRENT ISPF EDIT MACROS *   FILE 095
//*           MEMLIST   SHOW THE MEMBERS IN THE CURRENT PDS         *   FILE 095
//*           MOVECOLS  MOVE COLUMNS OF DATA WITHIN DATASET         *   FILE 095
//*           MRCLEAN   WIPE THE DATA OUT OF MEMBER BUT PRESERVE    *   FILE 095
//*                     THE BLANK LINES                             *   FILE 095
//*           MSTATS    PROVIDE ISPF STATS ON MEMBER WITHOUT        *   FILE 095
//*                     LEAVING EDIT                                *   FILE 095
//*           ONLY      FIND ONLY THE DATA WANTED                   *   FILE 095
//*           OTHER     SAMPLE MACRO TO USE WITH PFSET (CHANGE TO   *   FILE 095
//*                     SUIT NEEDS)                                 *   FILE 095
//*           PARA      WORD PROCESSING POWER FOR ISPF EDIT         *   FILE 095
//*           PARADOC   DOCUMENTATION FOR PARA MACRO                *   FILE 095
//*           PASTE     PASTE DATASET LINE THAT WERE CUT EARLIER    *   FILE 095
//*           PBOX      DRAW A FLOWCHART BOX                        *   FILE 095
//*           PFCAN     RESET PFKEYS BACK TO NORMAL                 *   FILE 095
//*           PFSET     SET PFKEYS TO SPECIAL PURPOSE               *   FILE 095
//*           PRTIT     VPSPRINT CURRENT DATASET                    *   FILE 095
//*           QCREATE   QUICK CREATE TO CURRENT DATASET             *   FILE 095
//*           QREP      QUICK REPLACE TO CURRENT DATASET            *   FILE 095
//*           RCOLDEL   DEL RULE LINES                              *   FILE 095
//*           RCOLS     FANCY RULE                                  *   FILE 095
//*           REPOTHER  QUICK REPLACE TO OTHER DATASET              *   FILE 095
//*           RJUST     RIGHT JUSTIFY TEXT                          *   FILE 095
//*           RNAME     RENAME A MEMBER WHILE IN EDIT               *   FILE 095
//*           S         EDIT A MEMBER OF CURRENT PDS                *   FILE 095
//*           SEPLINE   ADD SEPARATION LINES IN YOUR TEXT           *   FILE 095
//*           SHOWCUT   SHOW TEXT PREVIOUSLY CUT                    *   FILE 095
//*           SHOWCUT2  SHOW ONE LINE OF EACH CUT LEVEL             *   FILE 095
//*           SHOWDCB   SHOW CURRENT DATSET DCB                     *   FILE 095
//*           SHOWFLOW  SHOW THE LOGIC FLOW OF CLIST OR PL/1        *   FILE 095
//*                     PROGRAM                                     *   FILE 095
//*           SHOWMACS  SEE HELP FOR ALL EDITMACS ONE AT A TIME     *   FILE 095
//*           SLINE     PLACE A SINGLE SEPARATION LINE WHERE NEEDED *   FILE 095
//*                     IN TEXT                                     *   FILE 095
//*           SORTDUPS  SORT CURRENT EDIT DATASET AND FIND DUPES    *   FILE 095
//*           ST        SUPERTYPE, TYPE A STRING OF BLOCK LETTERS   *   FILE 095
//*                     NICE....                                    *   FILE 095
//*           STAMP     STAMP DATA INTO YOUR TEXT                   *   FILE 095
//*           STEDITY   EDIT MACRO CALLED BY WHERMEM2               *   FILE 095
//*           STEDIT2   EDIT MACRO CALLED BY WHEREMEM               *   FILE 095
//*           SUM       SUM COLUMNS OF NUMBERS                      *   FILE 095
//*           T         WHAT TIME IS IT                             *   FILE 095
//*           TABLBLD   CLIST: CREATE ISPF TABLE FROM $DESCRPT      *   FILE 095
//*                     MEMBER USED BY EMACS                        *   FILE 095
//*           TYPE      TYPE BLOCK CHARACTERS WITH EASE AND AUTO    *   FILE 095
//*                     SPACING                                     *   FILE 095
//*           TYPESET   EDIT MACRO TO USE WITH PFSET TO SET UP FOR  *   FILE 095
//*                     "TYPE"                                      *   FILE 095
//*           UCASE     CHANGE ENTIRE TEXT TO UPPER CASE            *   FILE 095
//*           UCASEC    CLIST MACRO TO CONVERT A DATASET TO UPPER   *   FILE 095
//*                     CASE                                        *   FILE 095
//*           UNSEP     REMOVE SEPARATION LINES CREATED BY SEPLINE  *   FILE 095
//*           WHEREMEM  CLIST: SHOW OCCURENCE OF MEMBER IN DD       *   FILE 095
//*                     CONCATENATION -- USEFUL                     *   FILE 095
//*           WHERMEM2  CLIST: SAME AS WHEREMEM MORE COMMANDS AND   *   FILE 095
//*                     INFO          -- USEFUL                     *   FILE 095
//*           WIPEIT    ERASE ALL LINES IN DATASET BUT MAINTAIN     *   FILE 095
//*                     BLANK LINES                                 *   FILE 095
//*           XCOPY     COPY A DATASET OTHER THAN THE PDS YOU ARE   *   FILE 095
//*                     WORKING IN                                  *   FILE 095
//*                                                                 *   FILE 095
//*           THESE ARE A COLLECTION OF VARIOUS EDIT MACROS         *   FILE 095
//*           THAT MAY BE SOMEWHAT USEFUL AT YOUR INSTALLATION.     *   FILE 095
//*           SOME OF THEM ARE MY ORIGINAL, AND OTHERS ARE FROM     *   FILE 095
//*           OTHER SHARE USERS.  ALL OF THEM WORK AT THIS SITE.    *   FILE 095
//*           SOME MAY WILL NEED TO BE MODIFIED TO WORK AT YOUR     *   FILE 095
//*           SITE.  TO USE THEM YOU WILL NEED TO HAVE ISPF 2.2 OR  *   FILE 095
//*           LATER AND TSO/E REL 3 OR LATER.                       *   FILE 095
//*                                                                 *   FILE 095
//***FILE 096 CONTAINS SEVERAL UTILITIES AND SYSTEM EXITS USED AT   *   FILE 096
//*           THE UNIVERSITY OF MISSOURI HOSPITAL AND CLINICS OF    *   FILE 096
//*           COLUMBUS, MISSOURI.                                   *   FILE 096
//*                                                                 *   FILE 096
//*           THE FOLLOWING UTILITIES ARE INCLUDED IN THIS DATASET  *   FILE 096
//*           (NOTE IF THE FIRST CHARACTER OF THE MEMBER IS "=" IT  *   FILE 096
//*            IS REALLY AN AT-SIGN)                                *   FILE 096
//*                                                                 *   FILE 096
//*             ***** DASD ALLOCATION/RENAME CONTROL *****          *   FILE 096
//*                                                                 *   FILE 096
//*           HCCDADSM - EXIT TO RESTRICT DASD DATASET ALLOCATIONS  *   FILE 096
//*                      BY DSNAME, VOLUME, AND USER RACF           *   FILE 096
//*                      AUTHORITY.                                 *   FILE 096
//*           IGGPRE00 - DADSM EXIT TO CONDITIONALLY LINK TO        *   FILE 096
//*                      HCCDADSM ONLY IF IT IS PRESENT.            *   FILE 096
//*           INIDADSM - PROGRAM TO PROCESS PARAMETERS AND SETUP    *   FILE 096
//*                      HCCDADSM CONTROL BLOCK (DADSMBLK)          *   FILE 096
//*           INITNCT  - PROGRAM TO BUILD USER CVT (WE CALL THIS    *   FILE 096
//*                      CONTROL BLOCK THE NETWORK CONTROL TABLE    *   FILE 096
//*                      OR NCT) AND PLACE ITS ADDRESS IN THE       *   FILE 096
//*                      CVTUSER FIELD.  THIS CONTROL BLOCK IS      *   FILE 096
//*                      USED AS THE ANCHOR FOR THE DADSMBLK        *   FILE 096
//*                      ABOVE.                                     *   FILE 096
//*           IPLDATE  - TSO CP TO EXTRACT AND FORMAT THE LAST IPL  *   FILE 096
//*                      DATE AND TIME FROM THE NCT (SINCE THE NCT  *   FILE 096
//*                      IS CREATED FAIRLY LATE IN THE IPL, THIS    *   FILE 096
//*                      IS A BETTER APPROXIMATION OF THE ACTUAL    *   FILE 096
//*                      "SYSTEM AVAILABLE" DATE AND TIME THAN      *   FILE 096
//*                      THAT IN THE SMCA).                         *   FILE 096
//*           DADSMMOD - TSO CP TO ALLOW AUTHORIZED USERS TO        *   FILE 096
//*                      TEMPORARILY MODIFY DADSM PROTECTION        *   FILE 096
//*                      ATTRIBUTES IN DADSMBLK.                    *   FILE 096
//*           =DADSMMD - TSO HELP FOR DADSMMOD COMMAND.             *   FILE 096
//*           =INIDASD - SAMPLE INITIALIZATION PARAMETERS FOR       *   FILE 096
//*                      INIDADSM ABOVE.                            *   FILE 096
//*           =DADSM   - SAMPLE JCL FOR DADSM STARTED TASK TO SET   *   FILE 096
//*                      UP DADSMBLK.                               *   FILE 096
//*           =INITSYS - SAMPLE JCL FOR INITSYS STARTED TASK TO     *   FILE 096
//*                      SET UP NCT.                                *   FILE 096
//*           =NCTDOC  - GENERAL COMMENTS ABOUT THE NCT, WHEN/HOW   *   FILE 096
//*                      IT IS CREATED, ETC.                        *   FILE 096
//*                                                                 *   FILE 096
//*             ***** RETURN CODE CHECKER *****                     *   FILE 096
//*                                                                 *   FILE 096
//*           HCCRCCK  - PROGRAM TO FORCE AN ABEND ON A BAD RETURN  *   FILE 096
//*                      CODE, ALLOWING CONDITIONAL DISP TO BE      *   FILE 096
//*                      TAKEN FOR DATA SETS.                       *   FILE 096
//*           ATTCHATH - ATTACH/REAUTH SUBROUTINE USED BY HCCRCCK.  *   FILE 096
//*           =HCCRCCK - SAMPLE JCL FOR EXECUTING THE HCCRCCK       *   FILE 096
//*                      PROGRAM.                                   *   FILE 096
//*                                                                 *   FILE 096
//*             ***** JES2 CHECKPOINT PERFORMANCE MONITOR ****      *   FILE 096
//*                                                                 *   FILE 096
//*           HJUX2530 - SAMPLE JES EXIT 253 TO CUT SMF RECORDS     *   FILE 096
//*                      FOR JES2 CHECKPOINT PERFORMANCE            *   FILE 096
//*                      MONITORING.                                *   FILE 096
//*           TSJESSMF - PL/1 PROGRAM TO REDUCE AND ANALYZE SMF     *   FILE 096
//*                      RECORDS PRODUCED BY HJUX2530 ABOVE.        *   FILE 096
//*           PDUMP    - SUBROUTINE FOR TSJESSMF (PL/1 DATA AREA    *   FILE 096
//*                      FORMATTED DUMP)                            *   FILE 096
//*           =JESSMF  - SAMPLE JCL TO EXECUTE THE TSJESSMF         *   FILE 096
//*                      PROGRAM.                                   *   FILE 096
//*           =JESPARM - SAMPLE JES2 INITIALIZATION PARAMETERS FOR  *   FILE 096
//*                      HJUX2530.                                  *   FILE 096
//*           =JESCKPT - VARIOUS STUFF ABOUT JES2 CHECKPOINT        *   FILE 096
//*                      PROCESSING                                 *   FILE 096
//*                                                                 *   FILE 096
//*             ***** JCL PRESCAN AND REPLACEMENT ****              *   FILE 096
//*                                                                 *   FILE 096
//*           IEFUJV   - SMF EXIT TO SCAN AND CONDITIONALLY         *   FILE 096
//*                      REPLACE CERTAIN SYMBOLIC PARAMETERS IN     *   FILE 096
//*                      JCL PRIOR TO CONVERSION (E.G., HOST NAME,  *   FILE 096
//*                      DAY OF WEEK, DATE, ETC. CAN BE PLACED IN   *   FILE 096
//*                      APPROPRIATE PLACES IN YOUR JCL PRIOR TO    *   FILE 096
//*                      CONVERSION).                               *   FILE 096
//*           =IEFUJV  - INSTRUCTIONS FOR USING IEFUJV MODULE AS    *   FILE 096
//*                      SHIPPED.                                   *   FILE 096
//*                                                                 *   FILE 096
//*             ***** VARIOUS PL/1 STUFF ****                       *   FILE 096
//*                                                                 *   FILE 096
//*           PLIARRV  - MACRO TO GENERATE PL/1 STANDARD ENTRY      *   FILE 096
//*                      POINT TO ASSEMBLY LANGUAGE SUBROUTINES.    *   FILE 096
//*           PLIRETN  - MACRO TO GENERATE PL/1 STANDARD RETURN     *   FILE 096
//*                      SEQUENCE FOR ASSEMBLY LANGUAGE             *   FILE 096
//*                      SUBROUTINES.                               *   FILE 096
//*           DSAD     - MACRO TO GENERATE A DSECT DESCRIBING THE   *   FILE 096
//*                      PL/1 DYNAMIC STORAGE AREA (DSA).           *   FILE 096
//*           TRIM     - ASSEMBLY LANGUAGE SUBROUTINE TO CHOP       *   FILE 096
//*                      LEADING AND TRAILING BLANKS FROM A         *   FILE 096
//*                      CHARACTER STRING.                          *   FILE 096
//*           FINDCHR  - ASSEMBLY LANGUAGE SUBROUTINE TO LOCATE     *   FILE 096
//*                      THE FIRST CHARACTER IN A STRING MATCHING   *   FILE 096
//*                      ANY CHARACTER IN AN INDEX STRING.          *   FILE 096
//*                                                                 *   FILE 096
//*             ***** SMP/E SUPPORT FOR ABOVE FUNCTIONS ****        *   FILE 096
//*                                                                 *   FILE 096
//*           MDL0101  - SMP/E USERMOD TO INSTALL                   *   FILE 096
//*                      HCCDADSM/IGGPRE00 INTO YOUR (MVS/SP        *   FILE 096
//*                      1.3.6) SYSTEM.                             *   FILE 096
//*           MDL0103  - SMP/E USERMOD TO INSTALL                   *   FILE 096
//*                      HCCDADSM/IGGPRE00 INTO YOUR (MVS/SP 2.2)   *   FILE 096
//*                      SYSTEM.                                    *   FILE 096
//*           MJL1401  - SMP/E USERMOD TO INSTALL EXIT POINTS FOR   *   FILE 096
//*                      EXIT 253 INTO YOUR JES2 (1.3.6) HASPCKPT   *   FILE 096
//*                      MODULE.                                    *   FILE 096
//*           MJL1501  - SMP/E USERMOD TO ADD KNOWLEDGE OF          *   FILE 096
//*                      HJUX2530 (EXIT 253) TO YOUR JES2 (1.3.6)   *   FILE 096
//*                      SYSTEM.                                    *   FILE 096
//*           MSL0101  - SMP/E USERMOD TO ADD KNOWLEDGE OF IEFUJV   *   FILE 096
//*                      INTO YOUR MVS (1.3.6) SYSTEM.              *   FILE 096
//*           MSL0103  - SMP/E USERMOD TO ADD KNOWLEDGE OF IEFUJV   *   FILE 096
//*                      INTO YOUR MVS (2.2) SYSTEM.                *   FILE 096
//*                                                                 *   FILE 096
//*                                                                 *   FILE 096
//***FILE 097 IS FROM U.S. BANK OF WASHINGTON AND CONTAINS ALL THE  *   FILE 097
//*           SOURCE CODE, JCL, AND DOCUMENTATION FOR THE COMPLETE  *   FILE 097
//*           DISK MANAGEMENT SYSTEM OF PEOPLES NATIONAL BANK OF    *   FILE 097
//*           WASHINGTON.  ALL DISK MANAGEMENT SYSTEMS REQUIRE      *   FILE 097
//*           CUSTOMIZATION TO FIT THE PARTICULAR NEEDS OF EACH     *   FILE 097
//*           INSTALLATION.  EXTENSIVE CUSTOMIZATION DOCUMENTATION  *   FILE 097
//*           IS PROVIDED IN THE DOCPROG (PROGRAMMER'S              *   FILE 097
//*           DOCUMENTATION) MEMBER.  RUN PROCEDURES, REPORT        *   FILE 097
//*           FORMATS, AND RECORD LAYOUTS ARE PROVIDED IN DOCUSER   *   FILE 097
//*           (USER'S DOCUMENTATION).  SAMPLE JCL AND CONTROL FILES *   FILE 097
//*           ARE PROVIDED IN OTHER MEMBERS OF THIS PDS.            *   FILE 097
//*                                                                 *   FILE 097
//*           ALL OF THESE PROGRAMS HAVE BEEN COMPILED AND RUN IN   *   FILE 097
//*           UNDER MVS/SP JES3.  TO THE BEST OF OUR KNOWLEDGE THEY *   FILE 097
//*           HAVE NO XA OR JES DEPENDENCIES.                       *   FILE 097
//*                                                                 *   FILE 097
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT SEE THE MEMBER  *   FILE 097
//*           CALLED =DOC (WHERE = IS THE AT-SIGN) FOR ADDITIONAL   *   FILE 097
//*           INFORMATION                                           *   FILE 097
//*                                                                 *   FILE 097
//***FILE 098 IS AN ISPF APPLICATION FOR USE WITH THE TSO/E XMIT    *   FILE 098
//*           AND RECEIVE FUNCTION FROM DAYCO PRODUCT INC OF DAYTON *   FILE 098
//*           OHIO.  THIS FILE IS IN IEBUPDTE SYSIN FORMAT AND      *   FILE 098
//*           CONTAINS A COPY OF THE DOCUMENTATION,  CLISTS,        *   FILE 098
//*           PANELS AND SKELETONS.  FOR ADDITIONAL INFORMATION SEE *   FILE 098
//*           THE MEMBER CALLED $$$PROSE.  FILE 099 OF THIS TAPE    *   FILE 098
//*           CONTAINS A FILE THAT IS NEEDED BY THIS SYSTEM         *   FILE 098
//*                                                                 *   FILE 098
//***FILE 099 IS AN ISPF APPLICATION FOR USE WITH THE TSO/E XMIT    *   FILE 099
//*           AND RECEIVE FUNCTION FROM DAYCO PRODUCT INC OF DAYTON *   FILE 099
//*           OHIO.  THIS FILE IS IN NEEDED BY FILE 098 OF THIS     *   FILE 099
//*           TAPE.  THIS FILE IS IN IEBGENER FORMAT,  THE DCB IS   *   FILE 099
//*           LRECL=251 BLKSIZE=32630 RECFM=FB                      *   FILE 099
//*                                                                 *   FILE 099
//***FILE 100 IS FROM DELUXE CHECK PRINTERS AND CONTAINS THEIR SPF  *   FILE 100
//*           MENUS,  PANELS AND MESSAGES FOR THE NEW ISPF/PDF.     *   FILE 100
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT,  SEE THE       *   FILE 100
//*           MEMBER CALLED $$$DOC FOR ADDITIONAL INFORMATION.      *   FILE 100
//*           FILE 101 OF THIS TAPE CONTAINS THE CLISTS REQUIRED BY *   FILE 100
//*           THESE SPF MENUS.  THE FOLLOWING IS A CONDENSED        *   FILE 100
//*           VERSION OF WHAT IS IN THE $$$DOC MEMBER :             *   FILE 100
//*                                                                 *   FILE 100
//*    ALL PANELS AND OR MENUS AND OR MESSAGES AND OR               *   FILE 100
//*    SKELETONS HAVE BEEN CONVERTED TO THE NEWEST ISPF             *   FILE 100
//*    AND ISPF/PDF FORMATS 5668-960 AND 5665-268 I THINK           *   FILE 100
//*                                                                 *   FILE 100
//*    $$$$DISC  DISCLAIMER ON CONTENTS                             *   FILE 100
//*                                                                 *   FILE 100
//*                    SPF MENUS                                    *   FILE 100
//*                                                                 *   FILE 100
//*    ABR*****  ABR UTILITY SELECTION AND FUNCTIONS PANELS         *   FILE 100
//*    COBOL2    FOREGROUND COBOL COMPILE PANEL                     *   FILE 100
//*    COBOL2B   BACKGROUND COBOL COMPILE PANEL                     *   FILE 100
//*    GENER1    FOREGROUND IEBGENER PANEL                          *   FILE 100
//*    INFOMGT1  INFO MANAGEMENT PANEL                              *   FILE 100
//*    INFOSEL   INFO MANAGEMENT DATABASE SELECTION PANEL           *   FILE 100
//*    ISR         PRIM  REPLACEMENT FOR PRIMARY OPTION MENU        *   FILE 100
//*    LINK3     FOREGROUND LINKAGE EDIT PANEL                      *   FILE 100
//*    LINK3B    BACKGROUND LINKAGE EDIT PANEL                      *   FILE 100
//*    PLTCMPR1  COMPARE UTILITY PANEL                              *   FILE 100
//*    PSWDSEL   PASSWORD (OS) MAINTENANCE SELECTION PANEL          *   FILE 100
//*    PWADD     PASSWORD (OS) ADDITION PANEL                       *   FILE 100
//*    PWCHNG    PASSWORD (OS) CHANGE PANEL                         *   FILE 100
//*    PWDEL     PASSWORD (OS) DELETION PANEL                       *   FILE 100
//*    S1ASM1    FOREGROUND SERIES 1 HOST ASSEMBLER PANEL           *   FILE 100
//*    S1ASM1B   BACKGROUND SERIES 1 HOST ASSEMBLER PANEL           *   FILE 100
//*    S1OBJ1    FOREGROUND SERIES 1 OBJECT SHIPPING PANEL          *   FILE 100
//*    USERSEL   USER UTILITY SELECTION MENU                        *   FILE 100
//*    USERSELB  USER BACKGROUND SELECTION MENU                     *   FILE 100
//*    USERVTOC  VTOC UTILITY PANEL                                 *   FILE 100
//*                                                                 *   FILE 100
//*                    SPF TUTORIAL MENUS                           *   FILE 100
//*                                                                 *   FILE 100
//*    TABR****  ABR UTILITY FUNCTIONS TUTORIAL PANELS              *   FILE 100
//*    TPLTCMP*  COMPARE UTILITY TUTORIAL PANELS                    *   FILE 100
//*    TS1ASM1   SERIES1 OBJECT SHIPPING TUTORIAL PANEL             *   FILE 100
//*    TVTOC**   VTOC UTILITY TUTORIAL PANELS                       *   FILE 100
//*                                                                 *   FILE 100
//*                    CLISTS                                       *   FILE 100
//*                                                                 *   FILE 100
//*    ABR*****  ABR CLISTS                                         *   FILE 100
//*    ****PASS  PASSWORD (OS) MAINTENANCE CLISTS                   *   FILE 100
//*    GENER1    IEBGENER CLIST                                     *   FILE 100
//*    INFOMGT1  INFO MANAGEMENT CLIST                              *   FILE 100
//*    PLTCMPR   FOREGROUND COMPARE UTILITY CLIST                   *   FILE 100
//*              (REQUIRED SYNCSORT)                                *   FILE 100
//*    S1ASM1    FOREGROUND SERIES 1 HOST ASSEMBLER CLIST           *   FILE 100
//*    S1ASM1B   BACKGROUND SERIES 1 HOST ASSEMBLER CLIST           *   FILE 100
//*    S1OBJ1    FOREGROUND SERIES 1 OBJECT SHIPPING CLIST          *   FILE 100
//*    USERCOB   FOREGROUND COBOL COMPILER CLIST                    *   FILE 100
//*    USERCOBB  BACKGROUND COBOL COMPILER CLIST                    *   FILE 100
//*    USERLNK   FOREGROUND LINK EDIT CLIST                         *   FILE 100
//*    USERLNKB  BACKGROUND LINK EDIT CLIST                         *   FILE 100
//*    USERSELB  BACKGROUND SELECTION PROCESSING CLIST              *   FILE 100
//*    VTOCCMD1  VTOC UTILITY - REQUIRES VTOC COMMAND FROM CBT TAPE *   FILE 100
//*                                                                 *   FILE 100
//*                    SPF MESSAGES                                 *   FILE 100
//*                                                                 *   FILE 100
//*    ABR00     ABR UTILITY FUNCTIONS MESSAGES                     *   FILE 100
//*    PLTCM00   COMPARE MESSAGES                                   *   FILE 100
//*    SASM00    SERIES 1 MESSAGES                                  *   FILE 100
//*    VTOC00    VTOC UTILITY MESSAGES                              *   FILE 100
//*                                                                 *   FILE 100
//***FILE 101 IS FROM DELUXE CHECK PRINTERS AND CONTAINS THEIR SPF  *   FILE 101
//*           CLISTS FOR THE NEW ISPF/PDF.  THIS FILE IS IN         *   FILE 101
//*           IEBUPDTE SYSIN FORMAT,  SEE THE MEMBER CALLED $$$DOC  *   FILE 101
//*           IN FILE 100 ABOVE FOR ADDITIONAL INFORMATION          *   FILE 101
//*                                                                 *   FILE 101
//***FILE 102 is the TAPESCAN program, from Frank Pajerski of       *   FILE 102
//*           Sacramento, California, and fixed to handle tapes     *   FILE 102
//*           that have up to 64K blocks of data, by Sam Golob.     *   FILE 102
//*                                                                 *   FILE 102
//*            email:  fpajerski@earthlink.net                      *   FILE 102
//*                    "Pajerski, Frank" <fpajerski@calfarm.com>    *   FILE 102
//*                                                                 *   FILE 102
//*            email:  sbgolob@attglobal.net or sbgolob@aol.com     *   FILE 102
//*                                                                 *   FILE 102
//*           ABSTRACT - A PROGRAM TO PROVIDE AN OVERVIEW OF THE    *   FILE 102
//*                      DATA SETS ON A TAPE, COPY FILES AND        *   FILE 102
//*                      RECOVER DATA PAST THE FIRST END OF         *   FILE 102
//*                      VOLUME INDICATOR.  INFORMATION PRESENTED   *   FILE 102
//*                      INCLUDES RECORD AND BYTE COUNT, LENGTH     *   FILE 102
//*                      ESTIMATE, DISPLAY OF THE FIRST 100 BYTES   *   FILE 102
//*                      OF THE FIRST FOUR RECORDS OF EACH DATA     *   FILE 102
//*                      SET, AND THE PHYSICAL TAPE FILE NUMBER.    *   FILE 102
//*                                                                 *   FILE 102
//*           WARNINGS - WHEN DATA IS RECOVERED PAST THE END OF     *   FILE 102
//*                      VOLUME INDICATOR, THE FIRST RECORD MAY     *   FILE 102
//*                      HAVE BEEN TRUNCATED.  IF ACCEPTED, IT      *   FILE 102
//*                      MAY LEAD TO PROBLEMS EVEN AFTER IT IS      *   FILE 102
//*                      COPIED.  WHEN COPYING DATA SETS FROM A     *   FILE 102
//*                      STANDARD LABEL TAPE, THE DATA SET          *   FILE 102
//*                      SEQUENCE NUMBER STORED IN THE HEADER       *   FILE 102
//*                      RECORD ISN'T CHANGED.  THIS HAS CAUSED     *   FILE 102
//*                      NO PROBLEMS SO FAR, BUT IS NOT SUPPORTED   *   FILE 102
//*                      BY IBM.  SOME OPERATIONS OF THIS PROGRAM   *   FILE 102
//*                      ARE BASED ON THE NUMBER OF TAPE MARKS      *   FILE 102
//*                      ENCOUNTERED.                               *   FILE 102
//*                                                                 *   FILE 102
//*           TAPESCAN'S REPORTING HAS NOW (VERSION 5.2) BEEN       *   FILE 102
//*           IMPROVED WHEN READING CARTRIDGES.  I AM ALSO          *   FILE 102
//*           INCLUDING THE OLDER VERSION (4.6A), JUST IN CASE.     *   FILE 102
//*           VERSION 4.6A CAN READ CARTRIDGES, BUT REPORTS         *   FILE 102
//*           THE FOOTAGES AS IF 6250 BPI TAPES.                    *   FILE 102
//*                                                                 *   FILE 102
//*    ABOUT TAPESCAN VERSION 5.2 -                                 *   FILE 102
//*                                                                 *   FILE 102
//*    I've now included my 64K fix to Frank Pajerski's update      *   FILE 102
//*    to Howard Dean's version of TAPESCAN.  This version has      *   FILE 102
//*    better 3480 support, and I also improved the report line     *   FILE 102
//*    if you mounted a tape with a different VOLSER than the JCL   *   FILE 102
//*    said.  The report now shows both VOLSERs, so you can see     *   FILE 102
//*    them.  This version is called TAPESCAN Version 5.2.          *   FILE 102
//*    Old Version 4.6 is being included for reference, and it      *   FILE 102
//*    has also been fixed to show the JCL VOLSER and the internal  *   FILE 102
//*    VOLSER that is on the VOL1 label of the tape, if they are    *   FILE 102
//*    different.     (SG 06/00)                                    *   FILE 102
//*                                                                 *   FILE 102
//***FILE 103 CONTAINS ISPF/DIALOGS FROM MR WILLIAM R HORTON OF     *   FILE 103
//*           EASTMAN CHEMICAL COMPANY OF KINGSPORT, TN, WHICH      *   FILE 103
//*           CONTAINS A COPY OF THEIR ISPF CONSOLE DIALOG AND      *   FILE 103
//*           GRS/ENQ DIALOG.  SEE THE MEMBER CALLED $INSTALL FOR   *   FILE 103
//*           COMPREHENSIVE DOCUMENTATION PLUS INSTALLATION         *   FILE 103
//*           INSTRUCTIONS.  THIS FILE IS IN IEBUPDTE SYSIN FORMAT. *   FILE 103
//*                                                                 *   FILE 103
//*           BILL HORTON                                           *   FILE 103
//*           EASTMAN CHEMICAL COMPANY                              *   FILE 103
//*           BUILDING 284                                          *   FILE 103
//*           KINGSPORT, TENNESSEE 37662                            *   FILE 103
//*           PHONE (423) 229-3388  FAX (423) 229-3254              *   FILE 103
//*           IBMMAIL: USECHV58 (OV/VM), USECHU6L (TSO/MVS)         *   FILE 103
//*                                                                 *   FILE 103
//*    email address:  bhorton@cs.utk.edu                           *   FILE 103
//*                    bhorton@eastman.com                          *   FILE 103
//*                                                                 *   FILE 103
//*           THIS  FILE  CONTAINS  SAMPLE ISPF DIALOGS AND EDIT    *   FILE 103
//*           MACROS DEVELOPED AT TENNESSEE EASTMAN COMPANY.        *   FILE 103
//*           NO GUARANTEES  ARE MADE AS TO THE ACCURACY,           *   FILE 103
//*           SUITABILITY FOR YOUR INSTALLATION, ORIGINALITY,       *   FILE 103
//*           NOVELTY, OR CLEVERNESS OF ANY OF  THE  PANELS,        *   FILE 103
//*           CLISTS, OR PROGRAMS CONTAINED HEREIN.                 *   FILE 103
//*                                                                 *   FILE 103
//*           HERE ARE THE DESCRIPTIONS OF THE VARIOUS DIALOGS      *   FILE 103
//*           CONTAINED IN THIS FILE:  (UPDATED FOR OS/390 - 01-98) *   FILE 103
//*                                                                 *   FILE 103
//*           BROADCAST DATASET DIALOG                              *   FILE 103
//*                                                                 *   FILE 103
//*           THIS IS A DIALOG WHICH CAN BE USED TO KEEP            *   FILE 103
//*           TRACK OF UPDATES TO THE TSO BROADCAST DATASET.        *   FILE 103
//*           IT STORES INFORMATION ABOUT EACH MESSAGE IN           *   FILE 103
//*           AN ISPF TABLE, AND STORES EACH BROADCAST              *   FILE 103
//*           MESSAGE AS A PDS MEMBER.  MESSAGES CAN BE             *   FILE 103
//*           ADDED, MODIFIED, OR DELETED;  ENTRY AND UPDATE        *   FILE 103
//*           OF MESSAGES IS VIA ISPF EDIT.  MESSAGES ARE           *   FILE 103
//*           GIVEN AN EXPIRATION DATE AND WILL BE REMOVED          *   FILE 103
//*           FROM THE BROADCAST DATASET THE NEXT TIME THE          *   FILE 103
//*           DIALOG IS INVOKED (AND A BROADCAST MESSAGE IS         *   FILE 103
//*           CHANGED) AFTER THE EXPIRATION DATE.                   *   FILE 103
//*                                                                 *   FILE 103
//*           ISPF TABLE EDIT DIALOG                                *   FILE 103
//*                                                                 *   FILE 103
//*           THIS DIALOG CAN BE USED TO EDIT A COMMAND             *   FILE 103
//*           TABLE, INCLUDING ISRCMDS AND ISPCMDS.  THIS IS        *   FILE 103
//*           DONE BY COPYING THE TABLE TO THE USER'S PROFILE       *   FILE 103
//*           DATASET (ASSUMED TO BE ALLOCATED TO DDNAME            *   FILE 103
//*           ISPTABL) AND INVOKING THE ISPF COMMAND TABLE          *   FILE 103
//*           EDIT PROGRAM, ISPUCM, AGAINST IT.  IF THE TABLE       *   FILE 103
//*           IS CHANGED BY ISPUCM, THEN IT IS COPIED BACK TO       *   FILE 103
//*           ITS SOURCE.  ISPF MUST BE RECYCLED TO SEE THE         *   FILE 103
//*           EFFECTS OF THE CHANGE.                                *   FILE 103
//*                                                                 *   FILE 103
//*           CONSOLE DISPLAY FACILITY (CDF)                        *   FILE 103
//*                                                                 *   FILE 103
//*           THIS IS AN ISPF DIALOG TO DISPLAY MVS CONSOLE         *   FILE 103
//*           INFORMATION (AS IN SPY).  IF THE INVOKER IS           *   FILE 103
//*           AUTHORIZED (HAS OPER AUTHORITY), THEN MVS             *   FILE 103
//*           COMMANDS MAY ALSO BE ENTERED.  I DIDN'T WRITE         *   FILE 103
//*           THIS MYSELF.  I GOT IT FROM A MODS TAPE               *   FILE 103
//*           (PROBABLY THE CBT TAPE) AND MODIFIED IT               *   FILE 103
//*           FOR EXTENDED DATA STREAM CONSOLES (E.G., 3290S        *   FILE 103
//*           AND 3179S) AND FOR MVS SP 2.2.0.  THERE ARE A         *   FILE 103
//*           LOT OF WAYS TO ENTER MVS COMMANDS AND GET             *   FILE 103
//*           RESPONSES NOWADAYS, BUT WE STILL LIKE THIS            *   FILE 103
//*           WAY BEST.  THIS CODE WORKS WITH MVS/SP 3.1.0E         *   FILE 103
//*           (MVS/ESA).                                            *   FILE 103
//*                                                                 *   FILE 103
//*           GRS/ENQ DIALOG                                        *   FILE 103
//*                                                                 *   FILE 103
//*           THIS DIALOG DISPLAYS ENQUEUE INFORMATION.  YOU        *   FILE 103
//*           CAN REQUEST THAT ONLY CONTENTION INFORMATION          *   FILE 103
//*           BE DISPLAYED, OR YOU CAN SPECIFY JOBNAME, QNAME,      *   FILE 103
//*           AND / OR RNAME.  THIS IS CODE I GOT SOMEWHERE         *   FILE 103
//*           ELSE AND ADDED ISPF AROUND IT.                        *   FILE 103
//*                                                                 *   FILE 103
//*           PC3270 FILE TRANSFER DIALOG.                          *   FILE 103
//*                                                                 *   FILE 103
//*           THIS DIALOG IS MOSTLY JUST A PANEL WHICH              *   FILE 103
//*           FACILITATES THE USE OF THE PC3270 FILE                *   FILE 103
//*           TRANSFER PROGRAM WHILE IN ISPF.  THE PANEL HAS        *   FILE 103
//*           TUTORIAL PANELS WHICH GIVE SYNTAX AND SAMPLES         *   FILE 103
//*           FOR THE PC SEND AND RECEIVE COMMANDS.                 *   FILE 103
//*                                                                 *   FILE 103
//*           THE DIALOG IS INVOKED BY ENTERING "PC" ON THE         *   FILE 103
//*           COMMAND LINE OF THE BOTTOM PANEL OF ISPF.  A          *   FILE 103
//*           COMMAND TABLE ENTRY CAUSES THE CLIST VPCC TO          *   FILE 103
//*           BE INVOKED.  THIS CLIST DISPLAYS PANEL VPC WHICH      *   FILE 103
//*           PUTS THE COMMAND LINE AT THE BOTTOM                   *   FILE 103
//*           (REQUIRED BY IND$FILE).  THE USER CAN NOW ENTER       *   FILE 103
//*           THE SEND OR RECEIVE COMMAND ON HIS DOS SCREEN.        *   FILE 103
//*                                                                 *   FILE 103
//*           WHEN  THE FILE TRANSFER PROGRAM ENTERS "IND$FILE      *   FILE 103
//*           ..." ON THE ISPF THE COMMAND LINE, A COMMAND          *   FILE 103
//*           TABLE ENTRY INVOKES A CLIST (VPCTRAN)  WHICH          *   FILE 103
//*           ACTUALLY  INVOKES  THE  IND$FILE  COMMAND.            *   FILE 103
//*           VPCTRAN IS BASED ON ADMUPCFT FROM IBM VIA GDDM.       *   FILE 103
//*                                                                 *   FILE 103
//*           DIALOG TO DISPLAY LOGO OF SUBMITTER                   *   FILE 103
//*                                                                 *   FILE 103
//*           THIS  PROGRAM  DISPLAYS  THE  LOGO OF THE             *   FILE 103
//*           SUBMITTER OF THESE MODS ON AN ISPF PANEL.  IT         *   FILE 103
//*           MAY BE INVOKED VIA COMMAND  TABLE ENTRY LOGO.         *   FILE 103
//*           NOTE THAT ENTERING "LOGO DEBUG" WILL CAUSE SOME       *   FILE 103
//*           PROGRAM  VARIABLES  TO BE WRITTEN TO SYSPRINT,        *   FILE 103
//*           AND WILL DISPLAY SOME OF THE ARCS USED TO DRAW        *   FILE 103
//*           THE LOGO.                                             *   FILE 103
//*                                                                 *   FILE 103
//*           EXIT DIALOG                                           *   FILE 103
//*                                                                 *   FILE 103
//*           THIS  DIALOG  WILL  END  THE  ISPF  SESSION (IF       *   FILE 103
//*           NOT IN SPLIT SCREEN), AND (OPTIONALLY) LOG THE        *   FILE 103
//*           USER OFF TSO, AND LOG  ANOTHER USER  ON TSO.          *   FILE 103
//*           IT IS INVOKED BY ENTERING "EXIT" FROM ANY ISPF        *   FILE 103
//*           COMMAND LINE TO TERMINATE ISPF (GO TO  TSO            *   FILE 103
//*           READY), ENTERING  "LOGOFF"  TO  TERMINATE  ISPF       *   FILE 103
//*           AND LOG THE USER OFF TSO, OR "LOGON" TO               *   FILE 103
//*           TERMINATE ISPF, LOG THE USER OFF TSO, AND LOG         *   FILE 103
//*           ANOTHER USER ON TSO (THIS IS CONSIDERABLY             *   FILE 103
//*           QUICKER  THAN LOGGING COMPLETELY OFF THEN             *   FILE 103
//*           LOGGING BACK ON).                                     *   FILE 103
//*                                                                 *   FILE 103
//*           PC3270 SCREEN COPY EDIT MACRO (COPYSCRN)              *   FILE 103
//*                                                                 *   FILE 103
//*           THIS  MACRO FACILITATES THE ENTRY OF DATA INTO        *   FILE 103
//*           ISPF EDIT VIA THE WORK STATION CONTROL COPY           *   FILE 103
//*           FUNCTION OF PC 3270S.  IT PRESENTS A PANEL INTO       *   FILE 103
//*           WHICH  UP  TO  80  BYTE  RECORDS  MAY  BE             *   FILE 103
//*           COPIED.    AFTER THE DATA IS COPIED ONTO THE          *   FILE 103
//*           PANEL, PRESSING THE ENTER KEY ADDS THE DATA TO        *   FILE 103
//*           THE END OF THE  CURRENT  EDIT SESSION DATA AND        *   FILE 103
//*           CLEARS THE COPY PANEL TO ACCEPT MORE INPUT.           *   FILE 103
//*                                                                 *   FILE 103
//*           ELIST EDIT MACRO                                      *   FILE 103
//*                                                                 *   FILE 103
//*           ELIST IS A MACRO WHICH CAN BE USED TO LIST THE        *   FILE 103
//*           DATA CURRENTLY BEING EDITED VIA ISPF EDIT,            *   FILE 103
//*           INCLUDING CHANGES WHICH HAVE BEEN MADE, WITHOUT       *   FILE 103
//*           HAVING TO LEAVE EDIT OR SAVE THE DATA.  SYNTAX IS:    *   FILE 103
//*                                                                 *   FILE 103
//*             ELIST ATTR                                          *   FILE 103
//*                                                                 *   FILE 103
//*           WHERE "ATTR" IS ANY VALID SYSOUT ATTRIBUTE WHICH      *   FILE 103
//*           CAN BE SPECIFIED WITH THE TSO ALLOCATE COMMAND.       *   FILE 103
//*           EXAMPLES:                                             *   FILE 103
//*                                                                 *   FILE 103
//*         ELIST DEST(NYC.RMT21)  LIST ON AN RJE PRINTER ON        *   FILE 103
//*                                ANOTHER NODE                     *   FILE 103
//*         ELIST DEST(VM1.USER66) SEND TO A VM USER'S VIRTUAL      *   FILE 103
//*                                READER                           *   FILE 103
//*         ELIST CHARS(GT12)      LIST ON 3800                     *   FILE 103
//*                                                                 *   FILE 103
//*           IF NO ATTRIBUTE IS ENTERED, THE DEFAULT               *   FILE 103
//*           DESTINATION  OF  THE TSO USER'S SESSION WILL BE       *   FILE 103
//*           USED.                                                 *   FILE 103
//*                                                                 *   FILE 103
//*           INFO EDIT MACRO                                       *   FILE 103
//*                                                                 *   FILE 103
//*           THE INFO MACRO GETS INFORMATION ABOUT THE             *   FILE 103
//*           DATASET AND MEMBER BEING  EDITED,  AND DISPLAYS       *   FILE 103
//*           IT IN THE DATA VIA MSG AND NOTE LINES.   THE          *   FILE 103
//*           INFORMATION WILL  NOT  BE  SAVED,  AND  MAY  BE       *   FILE 103
//*           CLEARED VIA THE RESET COMMAND.                        *   FILE 103
//*                                                                 *   FILE 103
//*           SPELL EDIT MACRO                                      *   FILE 103
//*                                                                 *   FILE 103
//*           SPELL    INVOKES   IBM'S   DOCUMENT                   *   FILE 103
//*           COMPOSITION   FACILITY (SCRIPT/VS) TO CHECK           *   FILE 103
//*           SPELLING OF THE  DATA  CURRENTLY  BEING EDITED.       *   FILE 103
//*           LINES CONTAINING MISSPELLED WORDS HAVE A NOTE         *   FILE 103
//*           LINE INSERTED AFTER THEM, LISTING THE MISSPELLED      *   FILE 103
//*           WORDS  FOR  THE LINE.                                 *   FILE 103
//*                                                                 *   FILE 103
//*           ISPF SUPPORT FOR THE QUEUE COMMAND                    *   FILE 103
//*                                                                 *   FILE 103
//*           THIS  IS  AN UPDATE TO THE JES2 2.2.0 LEVEL OF        *   FILE 103
//*           QUEUE TO PROVIDE RUDIMENTARY ISPF SUPPORT.  THE       *   FILE 103
//*           RESULT IS NOT VERY  ELEGANT BUT THE MODS TO           *   FILE 103
//*           QUEUE ARE SMALL SO THAT THE CODE CAN BE REWORKED      *   FILE 103
//*           EASILY  FOR NEW VERSIONS OF QUEUE.  DETAILS ARE       *   FILE 103
//*           IN MEMBER $$ISPF.  THE QUEUE COMMAND ITSELF  IS       *   FILE 103
//*           NOT  CONTAINED HERE, JUST THE MODULES WHICH HAVE      *   FILE 103
//*           CHANGES FOR ISPF SUPPORT.                             *   FILE 103
//*                                                                 *   FILE 103
//*           TSO/E RACF CONVERSION AID                             *   FILE 103
//*                                                                 *   FILE 103
//*           THIS PROGRAM CAN BE USED, WHEN CONVERTING TSO         *   FILE 103
//*           LOGON INFORMATION FROM  SYS1.UADS TO RACF, TO         *   FILE 103
//*           MIGRATE THE FIRST TSO COMMAND TO BE ISSUED FROM       *   FILE 103
//*           SYS1.UADS TO RACF (WHICH IS NOT  DONE BY THE          *   FILE 103
//*           RACONVRT COMMAND).                                    *   FILE 103
//*                                                                 *   FILE 103
//*           INPUT  IS  A  FLAT  FILE OF 172 BYTE SYS1.UADS        *   FILE 103
//*           RECORDS.  YOU SHOULD CONCATENATE ALL SYS1.UADS        *   FILE 103
//*           MEMBERS TO PROVIDE THIS INPUT PUT.                    *   FILE 103
//*                                                                 *   FILE 103
//*           WHEN THE PROGRAM FINDS A TSO COMMAND TO BE            *   FILE 103
//*           ISSUED,  IT  UPDATES THE  APPROPRIATE FIELD IN        *   FILE 103
//*           THE RACF DATA BASE, SO THAT THIS COMMAND WILL         *   FILE 103
//*           NOT BE LOST  ACROSS  THE  CONVERSION  FROM            *   FILE 103
//*           SYS1.UADS TO RACF.                                    *   FILE 103
//*                                                                 *   FILE 103
//*           TSO LOGON UPDATE DIALOG                               *   FILE 103
//*                                                                 *   FILE 103
//*           THIS IS AN ISPF DIALOG TO FACILITATE THE              *   FILE 103
//*           UPDATING OF CERTAIN TSO  LOGON  INFORMATION           *   FILE 103
//*           FIELDS.  SOME OF THESE FIELDS CAN BE UPDATED          *   FILE 103
//*           FROM THE TSO/E FULLSCREEN LOGON PANEL, BUT  MANY      *   FILE 103
//*           OF OUR  TSO  USERS NEVER SEE THIS PANEL, AS WE        *   FILE 103
//*           HAVE A WINDOWING PACKAGE WHICH AUTOMATICALLY          *   FILE 103
//*           SUPPLIES THEIR PASSWORD.   ALSO, IT'S  MORE           *   FILE 103
//*           CONVENIENT TO CHANGE THESE FIELDS WHEN YOU THINK      *   FILE 103
//*           OF IT, RATHER THAN HAVING TO WAIT UNTIL YOUR          *   FILE 103
//*           NEXT LOGON.                                           *   FILE 103
//*                                                                 *   FILE 103
//*           INFORMATION WHICH MAY BE UPDATED IN THIS DIALOG       *   FILE 103
//*           IS:                                                   *   FILE 103
//*                                                                 *   FILE 103
//*               NAME                                              *   FILE 103
//*               STATION (FIRST FOUR BYTES OF INSTALLATION         *   FILE 103
//*                        DATA)                                    *   FILE 103
//*               ACCOUNT                                           *   FILE 103
//*               LOGON PROCEDURE                                   *   FILE 103
//*               INITIAL COMMAND                                   *   FILE 103
//*                                                                 *   FILE 103
//*           ALL OF THE ABOVE ARE THE  STANDARD  RACF  DATA        *   FILE 103
//*           BASE  FIELDS TSO/E  USES  AFTER  THE  CONVERSION      *   FILE 103
//*           FROM SYS1.UADS TO RACF.                               *   FILE 103
//*                                                                 *   FILE 103
//*           FIELDS WHICH REQUIRE RACF AUTHORIZATION TO USE        *   FILE 103
//*           SPECIFIC VALUES WILL BE CHECKED AND ERROR             *   FILE 103
//*           MESSAGES ISSUED IF THE USER IS NOT AUTHORIZED.        *   FILE 103
//*                                                                 *   FILE 103
//*    CONTENTS OF EACH MEMBER OF THIS DATASET                      *   FILE 103
//*                                                                 *   FILE 103
//*   MEMBER   CONTENTS                                             *   FILE 103
//*   ------   --------                                             *   FILE 103
//*   $$ISPF   DOCUMENTATION FOR ISPF SUPPORT FOR THE               *   FILE 103
//*            QUEUE COMMAND                                        *   FILE 103
//*   $$SCRIPT SCRIPT SOURCE FOR THIS DOCUMENT                      *   FILE 103
//*   $DOC     SHORT DESCRIPTION OF MODS                            *   FILE 103
//*   $INSTALL INSTALLATION INSTRUCTIONS (THIS                      *   FILE 103
//*            DOCUMENT)                                            *   FILE 103
//*   $LEVEL   MODIFICATIONS AND SOURCE SYSTEM LEVEL                *   FILE 103
//*   #COPYSCR TUTORIAL PANEL FOR COPYSCRN EDIT MACRO               *   FILE 103
//*   #ELIST   TUTORIAL PANEL FOR ELIST EDIT MACRO                  *   FILE 103
//*   #INFO    TUTORIAL PANEL FOR INFO EDIT MACRO                   *   FILE 103
//*   #SPELL   TUTORIAL PANEL FOR SPELL EDIT MACRO                  *   FILE 103
//*   CDF      SOURCE FOR MVS CONSOLE DIALOG (ASSEMBLER)            *   FILE 103
//*   CDFDATAB PANEL USED BY MVS CONSOLE DIALOG                     *   FILE 103
//*   CDFHELP  TUTORIAL PANEL FOR MVS CONSOLE DIALOG                *   FILE 103
//*   COPYSCRN EDIT MACRO FOR SCREEN COPY                           *   FILE 103
//*   COPYSCT1 TUTORIAL PANEL FOR SCREEN COPY EDIT MACRO            *   FILE 103
//*   COPYSCT2 TUTORIAL PANEL FOR SCREEN COPY EDIT MACRO            *   FILE 103
//*   COPYSC01 PANEL FOR SCREEN COPY EDIT MACRO                     *   FILE 103
//*   DISPLAY  SOURCE CODE FOR QUEUE COMMAND MODULE                 *   FILE 103
//*            DISPLAY MODIFIED FOR ISPF                            *   FILE 103
//*   ELIST    EDIT MACRO FOR LISTING DATA                          *   FILE 103
//*   INFO     EDIT MACRO FOR DISPLAYING DATASET INFORMATION        *   FILE 103
//*   INIT     SOURCE CODE FOR QUEUE COMMAND MODULE                 *   FILE 103
//*            INIT MODIFIED FOR ISPF                               *   FILE 103
//*   QCOMMON  SOURCE CODE FOR QUEUE COMMAND MODULE                 *   FILE 103
//*            QCOMMON MODIFIED FOR ISPF                            *   FILE 103
//*   QUECMDS  ISPF COMMAND TABLE FOR RUNNING QUEUE                 *   FILE 103
//*   QUEPROF  ISPF APPLICATION PROFILE FOR RUNNING QUEUE           *   FILE 103
//*   QUEUE    SOURCE CODE FOR QUEUE COMMAND MODULE                 *   FILE 103
//*            QUEUE MODIFIED FOR ISPF                              *   FILE 103
//*   RACFTSO5 JOBSTREAM (JCL + SOURCE) TO MIGRATE                  *   FILE 103
//*            "FIRST TSO COMMAND" FROM                             *   FILE 103
//*            UADS TO RACF AFTER RUNNING RACONVRT                  *   FILE 103
//*   REPOS    SOURCE CODE FOR QUEUE COMMAND MODULE                 *   FILE 103
//*            REPOS MODIFIED FOR ISPF                              *   FILE 103
//*   SPELL    EDIT MACRO TO CHECK SPELLING                         *   FILE 103
//*   TECMODS  PANEL USED TO INVOKE SOME OF THE MODS.               *   FILE 103
//*   TECZ00   MESSAGES USED BY SEVERAL DIALOGS                     *   FILE 103
//*   TVENQ1   TUTORIAL PANEL FOR GRS/ENQ DIALOG                    *   FILE 103
//*   TVENQ11  TUTORIAL PANEL FOR GRS/ENQ DIALOG                    *   FILE 103
//*   TVENQ12  TUTORIAL PANEL FOR GRS/ENQ DIALOG                    *   FILE 103
//*   TVENQ2   TUTORIAL PANEL FOR GRS/ENQ DIALOG                    *   FILE 103
//*   VBROAD   CLIST USED BY BROADCAST MESSAGE DIALOG               *   FILE 103
//*   VBROADE  ISPF EDIT MACRO USED BY BROADCAST MESSAGE DIALOG     *   FILE 103
//*   VBROADI  CLIST USED TO INITIALIZE BROADCAST MESSAGE DIALOG    *   FILE 103
//*   VBROAD0  PANEL USED BY BROADCAST MESSAGE DIALOG               *   FILE 103
//*   VBROAD1  PANEL USED BY BROADCAST MESSAGE DIALOG               *   FILE 103
//*   VBROAD2  PANEL USED BY BROADCAST MESSAGE DIALOG               *   FILE 103
//*   VCMDEDIC CLIST USED BY COMMAND TABLE EDIT DIALOG              *   FILE 103
//*   VCMDEDIT PANEL USED BY COMMAND TABLE EDIT DIALOG              *   FILE 103
//*   VENQ1    PANEL USED BY GRS/ENQ DIALOG                         *   FILE 103
//*   VENQ2    PANEL USED BY GRS/ENQ DIALOG                         *   FILE 103
//*   VEXIT    PANEL USED WITH FAST EXIT/LOGOFF/LOGON DIALOG        *   FILE 103
//*   VEXITC   CLIST USED WITH FAST EXIT/LOGOFF/LOGON DIALOG        *   FILE 103
//*   VISPFG2  SOURCE + JCL FOR LOGO PROGRAM (PL/I)                 *   FILE 103
//*   VLOGO    PANEL USED WITH LOGO PROGRAM                         *   FILE 103
//*   VLOGOC   CLIST USED WITH LOGO PROGRAM                         *   FILE 103
//*   VLOGON   RACF UPDATE DIALOG SOURCE (BAL)                      *   FILE 103
//*   VLOGONP  PANEL USED BY RACF UPDATE DIALOG                     *   FILE 103
//*   VPC      PANEL USED BY PC FILE TRANSFER DIALOG                *   FILE 103
//*   VPCC     CLIST USED BY PC FILE TRANSFER DIALOG                *   FILE 103
//*   VPCTRAN  CLIST USED BY PC FILE TRANSFER DIALOG                *   FILE 103
//*   VPCT000  TUTORIAL PANEL FOR PC FILE TRANSFER DIALOG           *   FILE 103
//*   VPCT001  TUTORIAL PANEL FOR PC FILE TRANSFER DIALOG           *   FILE 103
//*   VPCT002  TUTORIAL PANEL FOR PC FILE TRANSFER DIALOG           *   FILE 103
//*   VPCT003  TUTORIAL PANEL FOR PC FILE TRANSFER DIALOG           *   FILE 103
//*   VPCT010  TUTORIAL PANEL FOR PC FILE TRANSFER DIALOG           *   FILE 103
//*   VPCT011  TUTORIAL PANEL FOR PC FILE TRANSFER DIALOG           *   FILE 103
//*   VPCT012  TUTORIAL PANEL FOR PC FILE TRANSFER DIALOG           *   FILE 103
//*   VPCT013  TUTORIAL PANEL FOR PC FILE TRANSFER DIALOG           *   FILE 103
//*   VPCT014  TUTORIAL PANEL FOR PC FILE TRANSFER DIALOG           *   FILE 103
//*   VPCT015  TUTORIAL PANEL FOR PC FILE TRANSFER DIALOG           *   FILE 103
//*   VPCT016  TUTORIAL PANEL FOR PC FILE TRANSFER DIALOG           *   FILE 103
//*   VPCT017  TUTORIAL PANEL FOR PC FILE TRANSFER DIALOG           *   FILE 103
//*   VPCT018  TUTORIAL PANEL FOR PC FILE TRANSFER DIALOG           *   FILE 103
//*   VUTL16   SOURCE FOR GRS/ENQ DIALOG (ASSEMBLER)                *   FILE 103
//*                                                                 *   FILE 103
//*                                                                 *   FILE 103
//***FILE 104 is JRP from David Cartwright of Sutton Coldfield,     *   FILE 104
//*           England.  This file was modified from previous files  *   FILE 104
//*           File 104 and File 158 from this tape.                 *   FILE 104
//*                                                                 *   FILE 104
//*             DAVID CARTWRIGHT                                    *   FILE 104
//*             103, DARNICK ROAD,                                  *   FILE 104
//*             SUTTON COLDFIELD                                    *   FILE 104
//*             UK - B73  6PF                                       *   FILE 104
//*             TEL.  ++44 (0)121 355 3190                          *   FILE 104
//*                                                                 *   FILE 104
//*             email address:   dcuk@dcuk.demon.co.uk              *   FILE 104
//*                                                                 *   FILE 104
//*           JRP IS A DSPRINT REPLACEMENT                          *   FILE 104
//*                                                                 *   FILE 104
//*                J R P         (JES2 REMOTE PRINTERS)             *   FILE 104
//*                                                                 *   FILE 104
//*           THIS PRODUCT WAS DESIGNED AND WRITTEN WITH THE        *   FILE 104
//*           INTENT OF INCREASING USER AS WELL AS PROGRAMMER       *   FILE 104
//*           PRODUCTIVITY.  IT("JRP") MAKES USE OF 3270 PRINTER    *   FILE 104
//*           DEVICES TO PRINT SPOOLED JES2 OUTPUT.  OUTPUT         *   FILE 104
//*           DEVICES ARE DEFINED TO "JRP" VIA A SEQUENTIAL DATA    *   FILE 104
//*           SET.  EACH CONTROL CARD IN THIS DATA SET DESCRIBES    *   FILE 104
//*           THE ATTRIBUTES OF ONE PRINTER.                        *   FILE 104
//*                                                                 *   FILE 104
//*               AFTER "JRP" INITIALIZATION,A SUBSYSTEM REQUEST    *   FILE 104
//*           IS ISSUED TO JES2 BASED ON EACH PRINTER'S             *   FILE 104
//*           DESCRIPTION.  IF JES2 CONFIRMS THAT OUTPUT IS         *   FILE 104
//*           AVAILABLE FOR THE PRINTER DESCRIBED, A SUBTASK IS     *   FILE 104
//*           CREATED, USING THE ATTRIBUTES DEFINED FOR THAT        *   FILE 104
//*           PARTICULAR DEVICE.  THE SPOOL DATASET IS READ,        *   FILE 104
//*           BUFFERED, THEN WRITTEN TO THE PRINTER VIA "VTAM".     *   FILE 104
//*                                                                 *   FILE 104
//*               "JRP" SUPPORTS VTAM SNA AND NONSNA TERMINALS AS   *   FILE 104
//*           "JRP" CONTROL TERMINALS.  A MAXIMUM OF 25(TWENTY      *   FILE 104
//*           FIVE) TERMINALS ARE SUPPORT SIMULTANEOUSLY.  ALL      *   FILE 104
//*           FUNCTIONS REQUIRED TO SUPPORT "JRPS" PRINTER          *   FILE 104
//*           DEVICES ARE AVAILIBLE FROM A "JRP" CONTROL            *   FILE 104
//*           TERMINAL.                                             *   FILE 104
//*                                                                 *   FILE 104
//*           MODIFIED TO HANDLE SUPPRESS PRINT CONTROL CHARACTER.  *   FILE 104
//*           CAN NOW BE USED TO PRINT SAS GRAPHS.                  *   FILE 104
//*                                                                 *   FILE 104
//*           Tested on OS/390 Version 2.6.                         *   FILE 104
//*                                                                 *   FILE 104
//***FILE 105 IS FROM MARK DIEHL OF HERCULES/ALLEGANY BALLISTICS    *   FILE 105
//*           AND IS A COPY OF THEIR ISPF OUTLIST UTILITY.          *   FILE 105
//*           THIS UTILITY WAS WRITTEN AS A REPLACEMENT FOR         *   FILE 105
//*           ISPF/PDF'S 3.8 "OUTLIST" UTILITY.  IT MAKES USE OF    *   FILE 105
//*           ISPF'S TABLE SERVICES TO PROVIDE A SIMPLE, YET        *   FILE 105
//*           EFFECTIVE USER INTERFACE TO THE JOB QUEUE.  A SINGLE  *   FILE 105
//*           CLIST DRIVES THIS VERSION OF THE OUTLIST UTILITY. THE *   FILE 105
//*           CLIST COMMENTS COMBINED WITH THE ISPF TUTORIAL PANELS *   FILE 105
//*           PROVIDE A SELF-DOCUMENTING SYSTEM. SEE MEMBER $$INDEX *   FILE 105
//*           FOR A DESCRIPTION OF THE OUTLIST UTILITY COMPONENTS.  *   FILE 105
//*           MODIFICATIONS TO SUIT YOUR SHOP'S STANDARDS GOES      *   FILE 105
//*           WITHOUT SAYING.  IT IS STRONGLY ADVISABLE THAT ALL    *   FILE 105
//*           COMPONENTS BE THOROUGHLY REVIEWED IN THEIR ENTIRETY   *   FILE 105
//*           BEFORE IMPLEMENTING AT YOUR SHOP.                     *   FILE 105
//*                                                                 *   FILE 105
//*           THIS UTILITY IS GREAT FOR 4381-TYPE SHOPS WHO CAN'T   *   FILE 105
//*           AFFORD THE LIKES OF 'WE WON'T MENTION NAMES' TO       *   FILE 105
//*           PERFORM THE BASIC FUNCTIONS IT PROVIDES.  THIS FILE   *   FILE 105
//*           IS IN IEBUPDTE SYSIN FORMAT                           *   FILE 105
//*                                                                 *   FILE 105
//***FILE 106 IS A PROGRAM TO TELL WHAT RACF ACCESS THE LISTED      *   FILE 106
//*           USERS HAVE TO THE LISTED DATASETS, PROFILES,          *   FILE 106
//*           ENTITIES OR WHATEVER.  FOR ADDITIONAL INFORMATION     *   FILE 106
//*           SEE THE MEMBER CALLED $DOC.  THIS FILE IS IN          *   FILE 106
//*           IEBUPDTE SYSIN FORMAT.                                *   FILE 106
//*                                                                 *   FILE 106
//*           THIS PROGRAM IS FROM:                                 *   FILE 106
//*                                                                 *   FILE 106
//*                ART TANSKY                                       *   FILE 106
//*                SUNGARD                                          *   FILE 106
//*                600 LAUREL OAK ROAD   -  NEW ADDRESS             *   FILE 106
//*                VOORHEES, NJ  08043                              *   FILE 106
//*                (609) 566-3611   NEW PHONE                       *   FILE 106
//*                                                                 *   FILE 106
//***FILE 107 is the Clemson University Structured Macro Library    *   FILE 107
//*           from Mr James C Blalock.  This file contains the      *   FILE 107
//*           Macro Library and docmentation members on how to use  *   FILE 107
//*           the system.  This file is in IEBUPDTE SYSIN format.   *   FILE 107
//*           For additional information see the members called     *   FILE 107
//*           $$README and $$DOC.  File 108 of this tape contains   *   FILE 107
//*           the SAMPLIB Library for these structured macros.      *   FILE 107
//*                                                                 *   FILE 107
//*           email :   carey@clemson.edu                           *   FILE 107
//*                                                                 *   FILE 107
//*           The information in this file was downloaded from      *   FILE 107
//*           Jim Blalock's home page at:                           *   FILE 107
//*                                                                 *   FILE 107
//*           http://people.clemson.edu/~carey                      *   FILE 107
//*                                                                 *   FILE 107
//*           The following explanations accompany the download     *   FILE 107
//*           web page.                                             *   FILE 107
//*                                                                 *   FILE 107
//*           Note:  The Users Guide is written in DCF              *   FILE 107
//*           (SCRIPT/VS) using GML.  If anyone needs it and        *   FILE 107
//*           doesn't have access to GML, the samplib contains      *   FILE 107
//*           an FBM IEBGENER-able version:  It isn't pretty        *   FILE 107
//*           but you can read it.                                  *   FILE 107
//*                                                                 *   FILE 107
//*           Support (yeah right):  It's like this, folks:         *   FILE 107
//*           We're all seasoned professionals here, and busy       *   FILE 107
//*           people besides.  I'll answer questions if I have      *   FILE 107
//*           time, but please take a shot at figuring a            *   FILE 107
//*           problem out on your own first.  The SAMPLIB           *   FILE 107
//*           should contain enough examples to get you past        *   FILE 107
//*           the how-do-I questions.  I'll try to add some         *   FILE 107
//*           more stuff like MPF exits later.                      *   FILE 107
//*                                                                 *   FILE 107
//*              COPYRIGHT CLEMSON UNIVERSITY, 1989, 1998           *   FILE 107
//*                                                                 *   FILE 107
//*           THE MATERIALS CONTAINED IN FILES 107 AND 108 OF       *   FILE 107
//*           THIS TAPE ARE PROVIDED FOR GENERAL USE BY CLEMSON     *   FILE 107
//*           UNIVERSITY.  ALTHOUGH THE PACKAGE HAS BEEN TESTED     *   FILE 107
//*           TO CLEMSON UNIVERSITY'S SATISFACTION FOR THE          *   FILE 107
//*           PURPOSE FOR WHICH IT WAS INTENDED, NO WARRANTY,       *   FILE 107
//*           EXPRESSED OR IMPLIED, IS MADE BY CLEMSON UNIVERSITY   *   FILE 107
//*           AS TO THE ACCURACY AND FUNCTIONING OF THE             *   FILE 107
//*           PROGRAM(S) AND RELATED MATERIALS.  CLEMSON            *   FILE 107
//*           UNIVERSITY ASSUMES NO LIABILITY FOR ANY DAMAGE THAT   *   FILE 107
//*           MAY BE CAUSED BY ANY USE OF THIS PACKAGE.             *   FILE 107
//*                                                                 *   FILE 107
//*           THE MATERIALS CONTAINED IN THIS PACKAGE ARE           *   FILE 107
//*           DISTRIBUTED ON AN 'AS-IS' BASIS.  CLEMSON             *   FILE 107
//*           UNIVERSITY IS UNDER NO OBLIGATION TO MAINTAIN OR      *   FILE 107
//*           UPGRADE THIS PACKAGE, NOR IS CLEMSON UNIVERSITY       *   FILE 107
//*           UNDER ANY OBLIGATION TO FURNISH ASSISTANCE OR         *   FILE 107
//*           ADDITIONAL MATERIALS.                                 *   FILE 107
//*                                                                 *   FILE 107
//*           BY USE OF THIS PACKAGE, THE ORGANIZATION AGREES TO    *   FILE 107
//*           ACKNOWLEDGE CLEMSON UNIVERSITY AS THE ORIGINATOR OF   *   FILE 107
//*           THE PACKAGE.                                          *   FILE 107
//*                                                                 *   FILE 107
//***FILE 108 is the Clemson University Structured Macro SAMPLIB    *   FILE 108
//*           from Mr James C Blalock.  This file contains the      *   FILE 108
//*           SAMPLIB for the Macro System contained in File 107    *   FILE 108
//*           of this tape.                                         *   FILE 108
//*                                                                 *   FILE 108
//*           See documentation for this package in the doc for     *   FILE 108
//*           File 107.  The contents of this package was           *   FILE 108
//*           downloaded from the author's home page at:            *   FILE 108
//*                                                                 *   FILE 108
//*           http://people.clemson.edu/~carey                      *   FILE 108
//*                                                                 *   FILE 108
//*           email:   carey@clemson.edu                            *   FILE 108
//*                                                                 *   FILE 108
//*   -----------------------------------------------------------   *   FILE 108
//*                                                                 *   FILE 108
//*    Clemson University Structured Macros SAMPLIB Contents        *   FILE 108
//*                                                                 *   FILE 108
//*     JCL Procedures:                                             *   FILE 108
//*                                                                 *   FILE 108
//*       ASMP     - Run structured listing pgm only                *   FILE 108
//*       ASMPC    - Run list pgm, Assembler H                      *   FILE 108
//*       ASMPCL   - Run list pgm, Assembler H, linkedit            *   FILE 108
//*       ASMPCLG  - Run list pgm, Assembler H, linkedit,           *   FILE 108
//*                  execute user pgm                               *   FILE 108
//*                                                                 *   FILE 108
//*     Sample Programs:                                            *   FILE 108
//*                                                                 *   FILE 108
//*       BAR      - ISPF edit macro: puts ' | ' in col 38-40       *   FILE 108
//*                  of source code                                 *   FILE 108
//*       CC       - ISPF edit macro: puts '*' in column 72         *   FILE 108
//*       FLIP     - ISPF edit macro: swaps excluded,               *   FILE 108
//*                  nonexcluded lines                              *   FILE 108
//*       MASKDATA - ISPF edit macro: applies maskline to           *   FILE 108
//*                  existing source code                           *   FILE 108
//*       MSC0150$ - Structured listing pgm.  Example of            *   FILE 108
//*                  reentrant code.  Used in ASMPxxx procs.        *   FILE 108
//*       STGMAP   - Prints addresses of MVS/XA storage areas       *   FILE 108
//*                  (ECSA, LPA, etc).  Example of AMODE            *   FILE 108
//*                  switching.  Writes to //SYSPRINT.              *   FILE 108
//*                                                                 *   FILE 108
//*     Other Tools:                                                *   FILE 108
//*                                                                 *   FILE 108
//*       CMTCLIST - ISPF edit macro (in CLIST) which will          *   FILE 108
//*                  insert various types of comment 'blocks'       *   FILE 108
//*                  for different block structures.  Refer to      *   FILE 108
//*                  the member for details.                        *   FILE 108
//*                                                                 *   FILE 108
//***FILE 109 CONTAINS AN IEFACTRT SMF EXIT FROM FIRST CHICAGO,     *   FILE 109
//*           THIS VERSION OF THE CODE RUNS UNDER MVS/ESA.  THIS    *   FILE 109
//*           FILE ALSO CONTAINS CODE TO SUPPORT 2260'S UNDER ESA.  *   FILE 109
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT.  SEE FILE 110  *   FILE 109
//*           FOR A SAMPLE OF THE OUTPUT                            *   FILE 109
//*                                                                 *   FILE 109
//*           ASMACTRT IS THE JCL WE USE TO ASSEMBLE THE SMF        *   FILE 109
//*                    EXIT IEFACTRT.  YOU WILL NEED TO CHANGE      *   FILE 109
//*                    THE JCL ACCORDINGLY.                         *   FILE 109
//*                                                                 *   FILE 109
//*           IEFACTRT IS THE SOURCE CODE FOR THE IEFACTRT EXIT     *   FILE 109
//*                    AS WE USE IT.  THIS SOURCE IS A              *   FILE 109
//*                    COMBINATION OF VARIOUS IEFACTRT ROUTINES     *   FILE 109
//*                    FROM PREVIOUS CBT TAPES AND SOME OF MY       *   FILE 109
//*                    OWN ENHANCEMENTS.  IT HAS BEEN WRITTEN       *   FILE 109
//*                    TO USE THE SMF TYPE 30 RECORD AND TO RUN     *   FILE 109
//*                    IN 31 BIT ADDRESSING MODE.  AN EXAMPLE       *   FILE 109
//*                    OF THE OUTPUT IS INCLUDED IN ANOTHER         *   FILE 109
//*                    FILE ON THIS TAPE. THIS EXIT WILL WORK       *   FILE 109
//*                    UNDER MVS/XA 2.2 AND MVS/ESA.  IT SHOULD     *   FILE 109
//*                    BE ABLE TO RUN UNDER PREVIOUS XA             *   FILE 109
//*                    RELEASES.                                    *   FILE 109
//*                                                                 *   FILE 109
//*                    FEATURES - ISSUSES A WTO TO THE SYSTEM       *   FILE 109
//*                               CONSOLE WITH THE COMPLETION       *   FILE 109
//*                               CODE OF EACH STEP.                *   FILE 109
//*                                                                 *   FILE 109
//*                             - WRITES THE WTO INFORMATION TO     *   FILE 109
//*                               THE JOBLOG                        *   FILE 109
//*                                                                 *   FILE 109
//*                             - GIVES EXCP STATS FOR EACH DD      *   FILE 109
//*                               ALLOCATED.                        *   FILE 109
//*                                                                 *   FILE 109
//*                             - DDNAME, CONCATENATION NUMBER,     *   FILE 109
//*                               AND DEVICE ADDRESS ARE            *   FILE 109
//*                               INCLUDED. ON MESSAGE LOG.         *   FILE 109
//*                                                                 *   FILE 109
//*            LNKACTRT JCL USED TO LINK THE IEFACTRT EXIT.         *   FILE 109
//*                     THE JCL WILL HAVE TO BE CHANGED.            *   FILE 109
//*                                                                 *   FILE 109
//*            CBPUC001 THIS MODULE IS THE USER INTERFACE           *   FILE 109
//*                     MODULE (UIM) WE WROTE TO SUPPORT 2260       *   FILE 109
//*                     UNDER MVS/XA 2.2.  IT ALSO WORKS FOR        *   FILE 109
//*                     ESA                                         *   FILE 109
//*                                                                 *   FILE 109
//*            IEAMLT99 THIS MODULE IS ALSO REQUIRED TO SUPPORT     *   FILE 109
//*                     THE 2260'S                                  *   FILE 109
//*                                                                 *   FILE 109
//*                               DISCLAIMER                        *   FILE 109
//*                                                                 *   FILE 109
//*            THESE PROGRAMS ARE BEING USED SUCCESSFULLY IN        *   FILE 109
//*            OUR ENVIRONMENT.  SUPPORT IS ON AN AS IS BASIS.      *   FILE 109
//*            THESE MODULES HAVE BEEN RUNNING SUCCESSFULLY         *   FILE 109
//*            UNDER MVS/XA 2.2 AND MVS/ESA.  THEY SHOULD BE        *   FILE 109
//*            ABLE TO RUN WITH EARLIER RELEASES OF MVS/XA.         *   FILE 109
//*                                                                 *   FILE 109
//***FILE 110 CONTAINS A SAMPLE OUTPUT OF THE IEFACTRT SMF EXIT     *   FILE 110
//*           WHICH IS CONTAINED IN FILE 109 OF THIS TAPE           *   FILE 110
//*           THIS FILE IS IN IEBGENER FORMAT RECFM = FBA           *   FILE 110
//*           LRECL = 133 BLKSIZE = 32718                           *   FILE 110
//*                                                                 *   FILE 110
//***FILE 111 IS FROM MR JIM PURDY, FORMERLY OF REVLON.  JIM'S      *   FILE 111
//*           NEW ADDRESS:                                          *   FILE 111
//*                                                                 *   FILE 111
//*                JIM PURDY                                        *   FILE 111
//*                ANDERSEN CONSULTING                              *   FILE 111
//*                1345 MEADOW GLEN                                 *   FILE 111
//*                SOUTHLAKE, TX  76092                             *   FILE 111
//*                (214) 402-7511                                   *   FILE 111
//*                                                                 *   FILE 111
//*           THIS FILE CONTAINS SOME MPF EXITS, A TSO COMMAND      *   FILE 111
//*           PROCESSOR FOR GDG'S AND A TSO SUBMIT EXIT.  THIS      *   FILE 111
//*           FILE IS IN IEBUPDTE SYSIN FORMAT AND CONTAINS         *   FILE 111
//*           THE FOLLOWING MEMBERS                                 *   FILE 111
//*                                                                 *   FILE 111
//*           MEMBERS WTOETPS1 & WTOETPS2 ARE MODIFICATIONS OF ALL  *   FILE 111
//*             THE COCA-COLA WTO EXITS.  THESE EXITS WILL WRITE AN *   FILE 111
//*             SMF RECORD FOR EACH MOUNT AND DISMOUNT IN ADDITION  *   FILE 111
//*             TO THE DISPLAY OF WHERE A TAPE WAS IF IT WAS        *   FILE 111
//*             RECENTLY MOUNTED.  MODIFICATIONS HAVE ALSO BEEN     *   FILE 111
//*             MADE TO CREATE A USER CVT WHICH WAS NEEDED BY THE   *   FILE 111
//*             EXITS.                                              *   FILE 111
//*                                                                 *   FILE 111
//*           MEMBER WTOTAPMT MAY BE USED TO WRITE AN SMF RECORD    *   FILE 111
//*             FOR EACH TAPE MOUNT IF THE WTOETPS1 AND WTOETPS2    *   FILE 111
//*             MODULES ARE NOT USED.                               *   FILE 111
//*                                                                 *   FILE 111
//*           MEMBER WTOERWAT IS A MODIFICATION OF THE COCA-COLA    *   FILE 111
//*             EXIT WHICH WILL RESPOND 'WAIT' TO MESSAGE IEF238D   *   FILE 111
//*             AND WRITE AN SMF RECORD TO INDICATE THE ALLOCATION  *   FILE 111
//*             RECOVERY CONDITION.                                 *   FILE 111
//*                                                                 *   FILE 111
//*           MEMBER WTOTAPAL IS THE EXIT TO ONLY WRITE THE SMF     *   FILE 111
//*             RECORD FOR ALLOCATION RECOVERY.                     *   FILE 111
//*                                                                 *   FILE 111
//*           MEMBERS LISTGDGC AND LISTGDGP ARE A PAIR OF PROGRAMS  *   FILE 111
//*             THAT COMPRISE THE LISTGDG TSO COMMAND.  THIS        *   FILE 111
//*             COMMAND WILL LIST THE ATTRIBUTES OF A GDG AND THE   *   FILE 111
//*             MOST RECENTLY CREATED GENERATIONS.  THE NUMBER OF   *   FILE 111
//*             GENERATIONS RETAINED IN THE CATALOG MAY BE CHANGED  *   FILE 111
//*             UPON REQUEST.  NEW GDG BASE ENTRIES MAY ALSO BE     *   FILE 111
//*             CREATED. THIS COMMAND WORKS WITH ICF CATALOGS AND   *   FILE 111
//*             HAS SUPPORT FOR 3380 DISK AND 3480 CARTS. THE       *   FILE 111
//*             COMMAND IS IN TWO PARTS:  THE ALLOCATION PIECE      *   FILE 111
//*             WHICH IS WRITTEN IN ASSEMBLER; AND THE LOGIC PIECE  *   FILE 111
//*             WRITTEN IN PL1.                                     *   FILE 111
//*                                                                 *   FILE 111
//*           MEMBER IKJEFF10 IS A TSO SUBMIT EXIT THIS EXIT WILL   *   FILE 111
//*             CONDITIONALLY CHECK THE JOB CARD SUBMITTED TO       *   FILE 111
//*             VERIFY THAT THE JOBNAME STARTS WITH THE USERID OR   *   FILE 111
//*             FIRST N CHAR OF USERID.  THE EXECUTION CLASS,       *   FILE 111
//*             MSGCLASS, AND TIME PARAMETERS ARE ALSO              *   FILE 111
//*             CONDITIONALLY CHECKED AND MAY BE MANDATORY AND/OR   *   FILE 111
//*             IN THE APPROPRIATE TABLES.   A TIME PARAMETER MAY   *   FILE 111
//*             ALSO BE INSERTED BY THE EXIT.  ALL CHECKING IS      *   FILE 111
//*             BASED ON THE USERID AND THE PRIVILEGES ALLOWED THAT *   FILE 111
//*             USER IN THE UIDTABLE.  JOB CLASSES MAY HAVE FLAGS   *   FILE 111
//*             TO REQUIRE TIME PARAMETERS OR REQUIRE NOT TO HAVE   *   FILE 111
//*             THEM. ALSO, THERE MAY BE MAX TIME AND DEFAULT TIME  *   FILE 111
//*             BY CLASS.  COMMAND AND CERTAIN JES 2 CONTROL CARDS  *   FILE 111
//*             WILL NOT BE ALLOWED IN THE SUBMITTED JCL.           *   FILE 111
//*                                                                 *   FILE 111
//***FILE 112 IS THE SOURCE FOR THE TSO COMMAND PROMPTER CALLED     *   FILE 112
//*          VTOC.  THIS FILE IS IN IEBUPDTE FORM.  THIS COMMAND    *   FILE 112
//*          ALLOWS YOU TO SEARCH THE VOLUME TABLE OF CONTENTS OF   *   FILE 112
//*          ONE OR MORE DISK VOLUMES AND OBTAIN LISTINGS OR TOTALS *   FILE 112
//*          OF DATA SETS MEETING SOME CRITERIA.  THE SPECIFICATION *   FILE 112
//*          IS QUITE FLEXIBLE.  THIS FILE ALSO CONTAINS THE HELP   *   FILE 112
//*          DATA SET FOR THIS COMMAND.   IT ALSO CONTAINS          *   FILE 112
//*          INSTALLATION NOTES,  SOME COMMENTS ON DEFAULTS THAT MAY*   FILE 112
//*          NOT BE TYPICAL ELSEWHERE,  A LIST OF THE KNOWN ERRORS  *   FILE 112
//*          IN THE COMMAND,  AND IDEAS FOR FUTURE EXPANSION.       *   FILE 112
//*          THIS VERSION SUPPORTS SU60,  CATALOG DATASETS AND THE  *   FILE 112
//*          ABILITY TO SORT THE OUTPUT ON ANYTHING.  FOR ADDITIONAL*   FILE 112
//*          CHANGES SEE THE HELP MEMBER OF THE PDS.                *   FILE 112
//*          THIS VERSION WILL RUN ON A SYSTEM THAT DOES NOT HAVE   *   FILE 112
//*          SU60 INSTALLED,  HOWEVER IF YOU TRY TO ASSEMBLE        *   FILE 112
//*          ON A SYSTEMS THAT DOES NOT HAVE SU60 MACROS YOU WILL   *   FILE 112
//*          GET ASSEMBLE ERRORS.  YOU CAN GO IN AND JUST NO OP     *   FILE 112
//*          THOSE INSTRUCTIONS.  ITS LOAD MODULE IS IN FILE 035    *   FILE 112
//*          AND IS CALLED VTOC.                                    *   FILE 112
//*                                                                 *   FILE 112
//*          VTOC IS CALLED BY A SUBCOMMAND OF PDS VERSION 8.5      *   FILE 112
//*          FROM FILE 182.  IF YOU HAVE INSTALLED PDS VERSION 8.5  *   FILE 112
//*          YOU SHOULD ALSO INSTALL VTOC.                          *   FILE 112
//*                                                                 *   FILE 112
//*          IF YOU INSTALL PDS VERSION 8.5, SEE THE NOTES IN       *   FILE 112
//*          THIS FILE AS TO WHICH VERSION OF THE VTOCPRNT MODULE   *   FILE 112
//*          YOU SHOULD ASSEMBLE AND LINKEDIT INTO THIS COMMAND.    *   FILE 112
//*                                                                 *   FILE 112
//*          BUGS FIXED, AND SUPPORT ADDED FOR 3990 MODEL 9.        *   FILE 112
//*          YOU SHOULD RE-INSTALL VTOC.    (UPDATED 08-94)         *   FILE 112
//*          FIXED FOR MVS/ESA 5.1.         (UPDATED 07-95)         *   FILE 112
//*          FIXED FOR Y2K SUPPORT.         (UPDATED 12-97)         *   FILE 112
//*          David Spiegel fixes - dyn UCBs (UPDATED 05-99)         *   FILE 112
//*          John Hooper fixes              (UPDATED 07-99)         *   FILE 112
//*                                                                 *   FILE 112
//*           (Thanks also to Seymour Metz.)                        *   FILE 112
//*                                                                 *   FILE 112
//*          ****************************************************   *   FILE 112
//*          * IT APPEARS THAT THERE ARE ADDITIONAL MACROS      *   *   FILE 112
//*          * THAT ARE MISSING FROM THIS FILE  THIS IS IN FACT *   *   FILE 112
//*          * NOT TRUE. WHAT APPEARS TO BE OTHER MACROS WERE   *   *   FILE 112
//*          * JUST AN IDEA AND THOSE MACROS WERE NEVER         *   *   FILE 112
//*          * WRITTEN.  I KNOW ! I SPENT WEEKS TRYING TO TRACK *   *   FILE 112
//*          * THEM DOWN.                                       *   *   FILE 112
//*          *           ARNIE                                  *   *   FILE 112
//*          ****************************************************   *   FILE 112
//*                                                                 *   FILE 112
//* KEYWORDS TSO CP COMMAND PROCESSOR VTOC COMMAND                  *   FILE 112
//*                                                                 *   FILE 112
//*   Note:  The VTOC command processor is called by the LISTV      *   FILE 112
//*          subcommand of PDS Version 8.x (see File 182).          *   FILE 112
//*          If you're installing PDS, then it is very helpful      *   FILE 112
//*          to also install VTOC.                                  *   FILE 112
//*                                                                 *   FILE 112
//***FILE 113 IS FROM COMMERCIAL UNION INSURANCE COMPANIES IN       *   FILE 113
//*           BOSTON MASS AND CONTAINS A COPY OF THEIR SMPSCAN      *   FILE 113
//*           SYSTEM. THE SMPSCAN PROGRAM WAS FIRST DEVELOPED AS A  *   FILE 113
//*           GENERAL UTILITY TO REPLACE OUR EARLIER PTSSCAN        *   FILE 113
//*           PROGRAM AND HELP US WITH SPECIAL CIRCUMSTANCES THAT   *   FILE 113
//*           ARE NOT HANDLED WELL BY SMP/E.  SMPSCAN READS SMP/E   *   FILE 113
//*           LIST DATA SETS AS INPUT AND CAN DO ELEMENT SELECTION  *   FILE 113
//*           AND CROSS - ZONE MATCHING FOR UP TO 16 LISTINGS       *   FILE 113
//*           CONCURRENTLY.  THE MAXIMUM NUMBER OF LISTINGS THAT    *   FILE 113
//*           CAN BE CONCURRENTLY PROCESSED IS EASILY CHANGED       *   FILE 113
//*           THROUGH RECOMPILATION.  THE PROGRAM DOES WHAT IT WAS  *   FILE 113
//*           DESIGNED TO DO,  BUT SETUP CAN BE A BIT UNWIELDY.  WE *   FILE 113
//*           HAD TO DECIDE WHETHER TO DEVELOP A BOOLEAN ALGEBRA    *   FILE 113
//*           INPUT AND CODE A SYNTAX CHECKER,  OR USE ARRAYS AND   *   FILE 113
//*           FILL THEM UP USING PL/I GET DATA. WE FOUND THE CHOICE *   FILE 113
//*           FAIRLY EASY TO MAKE.  THE SAMPLE MEMBERS (FILES 113   *   FILE 113
//*           AND 114) SHOULD BE OF HELP TO SOMEONE TRYING TO USE   *   FILE 113
//*           THE PROGRAM.  LAST YEAR WE USED SMPSCAN AS A          *   FILE 113
//*           PERFORMANCE TUNING AID TO HELP RELIEVE VIRTUAL        *   FILE 113
//*           STORAGE CONSTRAINTS IN MVS/XA SO WE COULD INCREASE    *   FILE 113
//*           THE PRIVATE AREA SIZE BELOW 16M FOR CICS AND HELP     *   FILE 113
//*           IMPROVE PERFORMANCE.  WE HAVE INCLUDED THE MEMBERS    *   FILE 113
//*           AND JOBSTREAMS WE USED FOR THIS ACTIVITY ON FILES     *   FILE 113
//*           113 AND 114 OF THIS TAPE.                             *   FILE 113
//*           FILE 115 OF THIS TAPE CONTAINS THE SMPSCAN SOURCE     *   FILE 113
//*           WHICH IS WRITTEN IN PL/I OPTIMIZING COMPILER CODE.    *   FILE 113
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT AND CONTAINS    *   FILE 113
//*           THE FOLLOWING :                                       *   FILE 113
//*                                                                 *   FILE 113
//*      $$$DOC      DOCUMENTATION MEMBER                           *   FILE 113
//*      SMPLGBL     SAMPLE JOB TO LIST GLOBAL ZONE FOR INPUT       *   FILE 113
//*      SMPL220     SAMPLE JOB TO LIST DLIB   ZONE FOR INPUT       *   FILE 113
//*      SMPLTMA     SAMPLE JOB TO LIST TARGET ZONE FOR INPUT       *   FILE 113
//*      SMPLPKA     SAMPLE JOB TO LIST TARGET ZONE FOR INPUT       *   FILE 113
//*      SMPSBTAM    SAMPLE JOB TO LOCATE BTAM ELEMENTS             *   FILE 113
//*      SMPSCLUP    SAMPLE JOB TO LOCATE LPALIB VSCR DELETES       *   FILE 113
//*      SMPSINFL    SAMPLE JOB TO LOCATE LMOD DOWN-LEVELING        *   FILE 113
//*      SMPSLPA2    SAMPLE JOB TO LOCATE 2-SYSLIB LPALIB LMODS     *   FILE 113
//*      SMPSTCAM    SAMPLE JOB TO LOCATE TCAM ELEMENTS             *   FILE 113
//*      SMPSCAN     SAMPLE CATALOGED PROCEDURE FOR SMPSCAN         *   FILE 113
//*                                                                 *   FILE 113
//*******************************************************************   FILE 113
//*                                                                 *   FILE 113
//*>>>>>>>>>>>>>>C U I C   D I S C L A I M E R<<<<<<<<<<<<<<<<<<<<<<*   FILE 113
//*                                                                 *   FILE 113
//*******************************************************************   FILE 113
//*            THE INFORMATION OR MATERIAL BEING PROVIDED           *   FILE 113
//*      BY COMMERCIAL UNION INSURANCE COMPANY (CUIC),              *   FILE 113
//*      WHETHER IN HARD COPY OR MACHINE READABLE FORM,             *   FILE 113
//*      HAS BEEN DEVELOPED BY CUIC FOR ITS OWN PURPOSE             *   FILE 113
//*      AND FOR USE ON ITS OWN EQUIPMENT AND WITHIN ITS            *   FILE 113
//*      OWN DATA PROCESSING SYSTEM.  CUIC MAKES NO                 *   FILE 113
//*      REPRESENTATIONS OR WARRANTIES WHATSOEVER WITH              *   FILE 113
//*      RESPECT TO THE INFORMATION OR MATERIAL FURNISHED           *   FILE 113
//*      HEREUNDER, EXPRESSED OR IMPLIED, INCLUDING BUT             *   FILE 113
//*      NOT LIMITED TO ANY REPRESENTATION OR WARRANTY OF           *   FILE 113
//*      MERCHANTABILITY OR FITNESS FOR ANY PARTICULAR USE          *   FILE 113
//*      OR PURPOSE OR THAT THE USE OF THE INFORMATION OR           *   FILE 113
//*      MATERIAL WILL NOT INFRINGE ANY PATENT, COPYRIGHT,          *   FILE 113
//*      TRADEMARK, OR OTHER PROPRIETARY INTEREST.  YOU             *   FILE 113
//*      ARE, THEREFORE, ACCEPTING THIS INFORMATION OR              *   FILE 113
//*      MATERIAL ON AN "AS IS" BASIS AND WILL BE USING IT          *   FILE 113
//*      AT YOUR OWN RISK.  NEITHER CUIC NOR ANY OF ITS             *   FILE 113
//*      AFFILIATES SHALL BE LIABLE WITH RESPECT TO ANY             *   FILE 113
//*      CLAIM, ACTION, OR DEMAND BY ANY USER OR OTHER              *   FILE 113
//*      PARTY (INCLUDING ANY CLAIM, ACTION, OR DEMAND FOR          *   FILE 113
//*      CONSEQUENTIAL DAMAGES EVEN IF CUIC HAS BEEN                *   FILE 113
//*      ADVISED OF THE POSSIBILITY OF SUCH DAMAGES)                *   FILE 113
//*      ARISING FROM THE USE OF THE INFORMATION OR THE             *   FILE 113
//*      MATERIALS AND CONCEPTS RELATED THERETO.                    *   FILE 113
//*      FURTHERMORE, CUIC WILL NOT MAINTAIN, CORRECT, OR           *   FILE 113
//*      UPDATE THIS INFORMATION OR MATERIAL IN THE                 *   FILE 113
//*      FUTURE.                                                    *   FILE 113
//*                                              01/26/83           *   FILE 113
//*******************************************************************   FILE 113
//*                                                                 *   FILE 113
//***FILE 114 IS FROM COMMERCIAL UNION INSURANCE COMPANIES IN       *   FILE 114
//*           BOSTON MASS AND CONTAINS A COPY OF THEIR SMPSCAN      *   FILE 114
//*           SYSTEM.  SEE FILE 113 ABOVE FOR A DETAILED            *   FILE 114
//*           DESCRIPTION OF THEIR SMPSCAN SYSTEM                   *   FILE 114
//*           THIS FILE CONTAINS SAMPLES OF ONE OF THEIR JOBSTREAMS *   FILE 114
//*           FILE 115 OF THIS TAPE CONTAINS THE SMPSCAN SOURCE     *   FILE 114
//*           WHICH IS WRITTEN IN PL/I OPTIMIZING COMPILER CODE.    *   FILE 114
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT AND CONTAINS    *   FILE 114
//*           THE FOLLOWING :                                       *   FILE 114
//*                                                                 *   FILE 114
//*      $$$DOC      DOCUMENTATION MEMBER                           *   FILE 114
//*      SMPSBTAM    SAMPLE CTL MBR TO LOCATE BTAM ELEMENTS         *   FILE 114
//*      SMPSCLUP    SAMPLE CTL MBR TO LOCATE LPALIB VSCR DELS      *   FILE 114
//*      SMPSINFL    SAMPLE CTL MBR TO LOCATE LMOD DOWN-LEVELING    *   FILE 114
//*      SMPSLPA2    SAMPLE CTL MBR TO LOC 2-SYSLIB LPALIB LMODS    *   FILE 114
//*      SMPSTCAM    SAMPLE CTL MBR TO LOCATE TCAM ELEMENTS         *   FILE 114
//*                                                                 *   FILE 114
//*******************************************************************   FILE 114
//*                                                                 *   FILE 114
//*>>>>>>>>>>>>>>C U I C   D I S C L A I M E R<<<<<<<<<<<<<<<<<<<<<<*   FILE 114
//*                                                                 *   FILE 114
//*******************************************************************   FILE 114
//*            THE INFORMATION OR MATERIAL BEING PROVIDED           *   FILE 114
//*      BY COMMERCIAL UNION INSURANCE COMPANY (CUIC),              *   FILE 114
//*      WHETHER IN HARD COPY OR MACHINE READABLE FORM,             *   FILE 114
//*      HAS BEEN DEVELOPED BY CUIC FOR ITS OWN PURPOSE             *   FILE 114
//*      AND FOR USE ON ITS OWN EQUIPMENT AND WITHIN ITS            *   FILE 114
//*      OWN DATA PROCESSING SYSTEM.  CUIC MAKES NO                 *   FILE 114
//*      REPRESENTATIONS OR WARRANTIES WHATSOEVER WITH              *   FILE 114
//*      RESPECT TO THE INFORMATION OR MATERIAL FURNISHED           *   FILE 114
//*      HEREUNDER, EXPRESSED OR IMPLIED, INCLUDING BUT             *   FILE 114
//*      NOT LIMITED TO ANY REPRESENTATION OR WARRANTY OF           *   FILE 114
//*      MERCHANTABILITY OR FITNESS FOR ANY PARTICULAR USE          *   FILE 114
//*      OR PURPOSE OR THAT THE USE OF THE INFORMATION OR           *   FILE 114
//*      MATERIAL WILL NOT INFRINGE ANY PATENT, COPYRIGHT,          *   FILE 114
//*      TRADEMARK, OR OTHER PROPRIETARY INTEREST.  YOU             *   FILE 114
//*      ARE, THEREFORE, ACCEPTING THIS INFORMATION OR              *   FILE 114
//*      MATERIAL ON AN "AS IS" BASIS AND WILL BE USING IT          *   FILE 114
//*      AT YOUR OWN RISK.  NEITHER CUIC NOR ANY OF ITS             *   FILE 114
//*      AFFILIATES SHALL BE LIABLE WITH RESPECT TO ANY             *   FILE 114
//*      CLAIM, ACTION, OR DEMAND BY ANY USER OR OTHER              *   FILE 114
//*      PARTY (INCLUDING ANY CLAIM, ACTION, OR DEMAND FOR          *   FILE 114
//*      CONSEQUENTIAL DAMAGES EVEN IF CUIC HAS BEEN                *   FILE 114
//*      ADVISED OF THE POSSIBILITY OF SUCH DAMAGES)                *   FILE 114
//*      ARISING FROM THE USE OF THE INFORMATION OR THE             *   FILE 114
//*      MATERIALS AND CONCEPTS RELATED THERETO.                    *   FILE 114
//*      FURTHERMORE, CUIC WILL NOT MAINTAIN, CORRECT, OR           *   FILE 114
//*      UPDATE THIS INFORMATION OR MATERIAL IN THE                 *   FILE 114
//*      FUTURE.                                                    *   FILE 114
//*                                              01/26/83           *   FILE 114
//*******************************************************************   FILE 114
//*                                                                 *   FILE 114
//***FILE 115 IS FROM COMMERCIAL UNION INSURANCE COMPANIES IN       *   FILE 115
//*           BOSTON MASS AND CONTAINS A COPY OF THEIR SMPSCAN      *   FILE 115
//*           SYSTEM.  SEE FILE 113 ABOVE FOR A DETAILED            *   FILE 115
//*           DESCRIPTION OF THEIR SMPSCAN SYSTEM                   *   FILE 115
//*           THIS FILE CONTAINS THE SOURCE AND IS IN IEBUPDTE      *   FILE 115
//*           SYSIN FORMAT AND CONTAINS THE FOLLOWING :             *   FILE 115
//*                                                                 *   FILE 115
//*      SCANDOC   SMPSCAN PROGRAM DOCUMENTATION                    *   FILE 115
//*      SMPSCAN   PROGRAM TO SCAN ONE OR MORE ZONE LISTINGS        *   FILE 115
//*                                                                 *   FILE 115
//*******************************************************************   FILE 115
//*                                                                 *   FILE 115
//*>>>>>>>>>>>>>>C U I C   D I S C L A I M E R<<<<<<<<<<<<<<<<<<<<<<*   FILE 115
//*                                                                 *   FILE 115
//*******************************************************************   FILE 115
//*            THE INFORMATION OR MATERIAL BEING PROVIDED           *   FILE 115
//*      BY COMMERCIAL UNION INSURANCE COMPANY (CUIC),              *   FILE 115
//*      WHETHER IN HARD COPY OR MACHINE READABLE FORM,             *   FILE 115
//*      HAS BEEN DEVELOPED BY CUIC FOR ITS OWN PURPOSE             *   FILE 115
//*      AND FOR USE ON ITS OWN EQUIPMENT AND WITHIN ITS            *   FILE 115
//*      OWN DATA PROCESSING SYSTEM.  CUIC MAKES NO                 *   FILE 115
//*      REPRESENTATIONS OR WARRANTIES WHATSOEVER WITH              *   FILE 115
//*      RESPECT TO THE INFORMATION OR MATERIAL FURNISHED           *   FILE 115
//*      HEREUNDER, EXPRESSED OR IMPLIED, INCLUDING BUT             *   FILE 115
//*      NOT LIMITED TO ANY REPRESENTATION OR WARRANTY OF           *   FILE 115
//*      MERCHANTABILITY OR FITNESS FOR ANY PARTICULAR USE          *   FILE 115
//*      OR PURPOSE OR THAT THE USE OF THE INFORMATION OR           *   FILE 115
//*      MATERIAL WILL NOT INFRINGE ANY PATENT, COPYRIGHT,          *   FILE 115
//*      TRADEMARK, OR OTHER PROPRIETARY INTEREST.  YOU             *   FILE 115
//*      ARE, THEREFORE, ACCEPTING THIS INFORMATION OR              *   FILE 115
//*      MATERIAL ON AN "AS IS" BASIS AND WILL BE USING IT          *   FILE 115
//*      AT YOUR OWN RISK.  NEITHER CUIC NOR ANY OF ITS             *   FILE 115
//*      AFFILIATES SHALL BE LIABLE WITH RESPECT TO ANY             *   FILE 115
//*      CLAIM, ACTION, OR DEMAND BY ANY USER OR OTHER              *   FILE 115
//*      PARTY (INCLUDING ANY CLAIM, ACTION, OR DEMAND FOR          *   FILE 115
//*      CONSEQUENTIAL DAMAGES EVEN IF CUIC HAS BEEN                *   FILE 115
//*      ADVISED OF THE POSSIBILITY OF SUCH DAMAGES)                *   FILE 115
//*      ARISING FROM THE USE OF THE INFORMATION OR THE             *   FILE 115
//*      MATERIALS AND CONCEPTS RELATED THERETO.                    *   FILE 115
//*      FURTHERMORE, CUIC WILL NOT MAINTAIN, CORRECT, OR           *   FILE 115
//*      UPDATE THIS INFORMATION OR MATERIAL IN THE                 *   FILE 115
//*      FUTURE.                                                    *   FILE 115
//*                                              01/26/83           *   FILE 115
//*******************************************************************   FILE 115
//*                                                                 *   FILE 115
//***FILE 116 IS THE SOURCE FOR A DISK SEEK ANALYSIS PROGRAM        *   FILE 116
//*           WRITTEN IN ASSEMBLER.  USE A PARM OF SMAP AND CHECK   *   FILE 116
//*           THE CODE FOR ADDITIONAL INFORMATION.  THIS PGM WILL   *   FILE 116
//*           SHOW WHERE YOU ARE SPENDING YOUR TIME VIA THE         *   FILE 116
//*           DATA SET NAME RATHER THAN BY A TRACK ADDRESS          *   FILE 116
//*           THIS CODE WILL SUPPORT 3380'S.   THIS VERSION WILL    *   FILE 116
//*           RUN UNDER MVS / XA                                    *   FILE 116
//*                                                                 *   FILE 116
//*           *** THIS CODE HAS NOT BEEN MODIFIED TO HANDLE ***     *   FILE 116
//*           *** INDEXED VTOCS OR ICF DATASETS THAT HAVE   ***     *   FILE 116
//*           *** MORE THAT 15 EXTENTS                      ***     *   FILE 116
//*                                                                 *   FILE 116
//***FILE 117 IS A SERIES OF WTO EXITS FROM JAMES COOK OF COCA      *   FILE 117
//*           COLA IN ATLANTA GEORGIA                               *   FILE 117
//*                                                                 *   FILE 117
//*           USING THE "MESSAGE PROCESSING FACILITY"               *   FILE 117
//*             OTHERWISE KNOWN AS "MANY WTO EXITS"                 *   FILE 117
//*                                                                 *   FILE 117
//*      ENCLOSED ARE SEVERAL WTO EXITS WRITTEN ACCORDING TO        *   FILE 117
//*      THE STANDARDS OF THE "MESSAGE PROCESSING FACILITY"         *   FILE 117
//*      UNDER MVS/SP2.1.2.  THESE EXITS HAVE REPLACED "R2D2"       *   FILE 117
//*      FROM THE CBT TAPE.  OTHER FEATURES OF "R2D2" ARE NOT       *   FILE 117
//*      USED AT OUR CENTER.  NO CHANGE WAS MADE TO RUN UNDER       *   FILE 117
//*      MVS/SP2.1.3.                                               *   FILE 117
//*                                                                 *   FILE 117
//*      THE EXITS MUST BE ASSEMBLED AS "RENT,NOALIGN" AND          *   FILE 117
//*      LINK-EDITED WITH THE OPTIONS "RENT,REUS" INTO THE LINK     *   FILE 117
//*      LIST.  THE "MPFLSTXX" MUST BE IN SYS1.PARMLIB AND AN       *   FILE 117
//*      ENTRY MADE IN "IEASYSXX".                                  *   FILE 117
//*                                                                 *   FILE 117
//*      THESE EXITS CAN ABEND ANYWHERE AND NOT CAUSE ANY           *   FILE 117
//*      PROBLEMS.  THE ONLY PROBLEM THAT I HAVE NOTICED IN         *   FILE 117
//*      IMPLEMENTING ANY MPF EXIT IS THAT THE IEZMGCR MACRO        *   FILE 117
//*      FROM IBM MUST HAVE AN "ORG" IMMEDIATELY AFTER IT TO        *   FILE 117
//*      PREVENT PROBLEMS.                                          *   FILE 117
//*                                                                 *   FILE 117
//*      IF "IEAVMXIT" IS LINKED INTO THE LINKLIST, IT WILL BE      *   FILE 117
//*      USED.  IT NEEDS NO ENTRY IN "MPFLSTXX".                    *   FILE 117
//*                                                                 *   FILE 117
//*      MOST OF THE EXITS ARE SELF-EXPLANATORY.  THE ONES THAT     *   FILE 117
//*      ARE IMPLEMENTED NOW ARE:                                   *   FILE 117
//*                                                                 *   FILE 117
//*        01 WTODB103  WTO EXIT- DATACOM/DB BACKOUT MESSAGE        *   FILE 117
//*        02 WTOD1001  WTO EXIT TO SCHEDULE DATACOM PXX CLEAR TASK *   FILE 117
//*        03 WTOECVT   MACRO TO STORE FIELDS FROM IMS /DIS A       *   FILE 117
//*        04 WTOEDB30  WTO EXIT TO DUMP DATACOM-DB LOG             *   FILE 117
//*        05 WTOEF97I  WTO EXIT TO SUPPRESS MSG IEF097I            *   FILE 117
//*        06 WTOEIUTL  WTO EXIT TO ISSUE IMS /DIS A                *   FILE 117
//*        07 WTOEI000  WTO EXIT TO INTERPRET IMS /DIS A            *   FILE 117
//*        08 WTOEI554  WTO EXIT TO INTERPRET IMS /DIS A            *   FILE 117
//*        09 WTOEI996  WTO EXIT TO SAVE IMS REPLY NUMBER           *   FILE 117
//*        10 WTOENROL  WTO EXIT TO STOP A MESSAGE FROM ROLLING     *   FILE 117
//*        11 WTOERD    WTOR EXIT TO REPLY "D" TO MESSAGE           *   FILE 117
//*        12 WTOERHLD  WTOR EXIT TO REPLY "HOLD" TO MSG IEF225D    *   FILE 117
//*        13 WTOERM    WTOR EXIT TO REPLY "M" TO MESSAGE           *   FILE 117
//*        14 WTOERNHL  WTOR EXIT TO REPLY "NOHOLD" TO MESSAGE      *   FILE 117
//*        15 WTOEROLL  WTO EXIT TO CAUSE A MESSAGE TO ROLL         *   FILE 117
//*        16 WTOERU    WTOR EXIT TO REPLY "U" TO MESSAGE           *   FILE 117
//*        17 WTOERWAT  WTOR EXIT TO REPLY "WAIT" TO MESSAGE        *   FILE 117
//*        18 WTOERY    WTOR EXIT TO REPLY "Y"                      *   FILE 117
//*        19 WTOER301  WTOR EXIT TO REPLY "JOBNAME" TO IEC301A     *   FILE 117
//*        20 WTOETPS1  WTO EXIT TO CAPTURE TAPE UNLOAD DATA        *   FILE 117
//*        21 WTOETPS2  WTO EXIT TO DISPLAY TAPE UNLOADED DATA      *   FILE 117
//*        22 WTOE176I  WTO EXIT TO STOP EXTERNAL WRITER            *   FILE 117
//*        23 WTOE315I  PROCESS NPM MSGFNM315I AT SHUTDOWN          *   FILE 117
//*        24 WTOE362A  WTO EXIT TO DUMP AN SMF MANX DATASET        *   FILE 117
//*                                                                 *   FILE 117
//*      THE TWO EXITS "WTOETPSN" ARE USED TO STORE THE LAST        *   FILE 117
//*      TAPE USED ON EACH TAPE DRIVE AND DISPLAY IT FOR THE        *   FILE 117
//*      OPERATOR WHEN ANOTHER MOUNT FOR THAT TAPE IS ISSUED.       *   FILE 117
//*      THE MESSAGE IS "TAPE XXXXXX MAY STILL BE ON DRIVE          *   FILE 117
//*      XXX".  THIS WAS DESIGNED FOR THE IBM 3480 TAPE DRIVE       *   FILE 117
//*      WITH THE TAPE STACKER FEATURE BECAUSE IT CAN HOLD SIX      *   FILE 117
//*      "USED" TAPES PER DRIVE.  IN OUR SHOP, THAT WORKS OUT       *   FILE 117
//*      TO A MAXIMUM OF 148 TAPES THAT ARE STILL ON THE TAPE       *   FILE 117
//*      DRIVES (UP FROM 28 BEFORE THE TAPE STACKER FEATURE)        *   FILE 117
//*      AND EFFECTIVELY LOST AS FAR AS THE TAPE OPERATORS ARE      *   FILE 117
//*      CONCERNED.  THE TAPE CONFIGURATION MUST BE ASSEMBLED       *   FILE 117
//*      INTO THE WTOETPS1 EXIT WITH THE INTERNALLY DEFINED         *   FILE 117
//*      "STRING" MACRO.  THE TABLE TO HOLD THE TAPE VOLUME         *   FILE 117
//*      SERIAL NUMBER AND THE TAPE DRIVE ADDRESS IS IN             *   FILE 117
//*      EXTENDED CSA. THE TABLE IS POINTED TO BY A FIELD IN        *   FILE 117
//*      OUR USERCVT (NOT SUPPLIED) THAT IS ANCHORED IN THE         *   FILE 117
//*      CVTUSER FIELD OF THE MVS CVT.  THE EXITS DO A LOT OF       *   FILE 117
//*      VALIDITY CHECKING SO EITHER EXIT CAN BE INSTALLED          *   FILE 117
//*      FIRST.                                                     *   FILE 117
//*                                                                 *   FILE 117
//*      THE "WTOEIXXX" EXITS ARE TO AUTOMATICALLY CANCEL IMS       *   FILE 117
//*      BMPS THROUGH THE OUTSTANDING REPLY.  THEY DEPEND           *   FILE 117
//*      HEAVILY ON OUR USERCVT AND WILL NOT ASSEMBLE WITHOUT       *   FILE 117
//*      IT OR A REPLACEMENT.  THEY ARE INCLUDED AS AN EXAMPLE      *   FILE 117
//*      OF WHAT CAN BE DONE USING WTO EXITS TO PROCESS             *   FILE 117
//*      MULTIPLE, ASYNCHRONOUS MESSAGES.                           *   FILE 117
//*                                                                 *   FILE 117
//*      SUPPORTED BY:                                              *   FILE 117
//*           JAMES F. COOK                                         *   FILE 117
//*           THE COCA-COLA COMPANY                                 *   FILE 117
//*           ONE COCA-COLA PLAZA, N.W.                             *   FILE 117
//*           ATLANTA, GA  30313                                    *   FILE 117
//*           (404) 676-8522                                        *   FILE 117
//*                                                                 *   FILE 117
//*      email:  jacook@na.ko.com                                   *   FILE 117
//*                                                                 *   FILE 117
//***FILE 118 IS FROM SAM GOLOB.  THIS FILE IS IN IEBUPDTE SYSIN    *   FILE 118
//*           FORMAT.  FOR ADDITIONAL INFORMATION SEE THE MEMBER    *   FILE 118
//*           CALLED $$NEWDOC                                       *   FILE 118
//*                                                                 *   FILE 118
//*     Jerry Lawson's email:    jlawson@thehartford.com            *   FILE 118
//*                                                                 *   FILE 118
//*     Sam Golob's email:       sbgolob@attglobal.net   OR         *   FILE 118
//*                              sbgolob@aol.com                    *   FILE 118
//*                                                                 *   FILE 118
//*              NOTE:  COBOL PROGRAMS WERE UPDATED FOR LE/370      *   FILE 118
//*                     AND COMPILE-LINK JOBS ARE NOW INCLUDED.     *   FILE 118
//*                                                                 *   FILE 118
//*              THIS FILE, WHICH CONSISTS OF SEVERAL PROGRAMS      *   FILE 118
//*              AND SAMPLE JCL, ALLOWS THE SYSTEMS PROGRAMMER      *   FILE 118
//*              TO PRE-VIEW AND INDEX, AND THOROUGHLY KEEP         *   FILE 118
//*              TRACK OF HIS SMPPTFIN-FORMAT TAPES BEFORE SMP/E    *   FILE 118
//*              HAS A CHANCE TO LOOK AT THEM.  ANY TAPE OR DISK    *   FILE 118
//*              SMPPTFIN FILE CAN GET THIS TREATMENT.  FULL        *   FILE 118
//*              FORFMID CAPABILITY IS PROVIDED, EXTERNAL TO        *   FILE 118
//*              SMP/E. SINCE THIS PROCESSING HAS NOTHING TO DO     *   FILE 118
//*              WITH SMP/E, IT IS COMPLETELY RELEASE-INDEPENDENT,  *   FILE 118
//*              AND CAN BE USED WITH ANY SMPPTFIN-FORMAT FILE      *   FILE 118
//*              REGARDLESS OF SMP RELEASE (STARTING WITH SMP4      *   FILE 118
//*              AND THROUGH ALL RELEASES OF SMP/E.)                *   FILE 118
//*                                                                 *   FILE 118
//*              THE CORE OF THIS FILE IS THE PUTXREF PROGRAM       *   FILE 118
//*              FROM JERRY LAWSON OF THE HARTFORD INSURANCE        *   FILE 118
//*              GROUP, WHICH WAS SOMEWHAT MODIFIED BY ME.  THIS    *   FILE 118
//*              PROGRAM SORTS ALL SYSMODS IN A SMPPTFIN FILE BY    *   FILE 118
//*              OWNING FMID.  THE OUTPUT OF JERRY'S PUTXREF        *   FILE 118
//*              PROGRAM IS A REPORT SHOWING THE FMID NAME AND      *   FILE 118
//*              THE SYSMODS BELONGING TO IT LISTED AFTERWARDS.     *   FILE 118
//*              (SEE FILE 033 OF THE CBT TAPE FOR ANOTHER          *   FILE 118
//*              MODIFICATION OF PUTXREF, WHICH ALLOWS              *   FILE 118
//*              SELECTIVITY BY FMID AND OTHER CRITERIA.  THAT      *   FILE 118
//*              ONE IS BY GENE CRAY OF THE NEW JERSEY TREASURY     *   FILE 118
//*              DEPARTMENT IN TRENTON (GENE HAS SINCE MOVED ON).   *   FILE 118
//*                                                                 *   FILE 118
//*              MY PROGRAM SMPFMUPV TAKES THE OUTPUT OF THE        *   FILE 118
//*              PUTXREF PROGRAM AND MAKES IT "INPUTABLE" TO AN     *   FILE 118
//*              SMP JOB.  OUTPUT OF SMPFMUPV LOOKS LIKE:           *   FILE 118
//*                                                                 *   FILE 118
//*   ./  ADD  NAME=EBB1102                                         *   FILE 118
//*   UY04130 /*  FMID - EBB1102 - FROM PUT TAPE - DONE 09/15/87  */*   FILE 118
//*   UY09531 /*  FMID - EBB1102 - FROM PUT TAPE - DONE 09/15/87  */*   FILE 118
//*   UY10163 /*  FMID - EBB1102 - FROM PUT TAPE - DONE 09/15/87  */*   FILE 118
//*   UY10354 /*  FMID - EBB1102 - FROM PUT TAPE - DONE 09/15/87  */*   FILE 118
//*   UY10882 /*  FMID - EBB1102 - FROM PUT TAPE - DONE 09/15/87  */*   FILE 118
//*   ./  ADD  NAME=EDM1102                                         *   FILE 118
//*   UY10582 /*  FMID - EDM1102 - FROM PUT TAPE - DONE 09/15/87  */*   FILE 118
//*                                                                 *   FILE 118
//*              YOU CAN OBVIOUSLY USE THIS AS INPUT TO ANOTHER     *   FILE 118
//*              SMP/E JOB, AND THIS GIVES YOU FULL FORFMID POWER   *   FILE 118
//*              FOR EACH PUT TAPE.                                 *   FILE 118
//*                                                                 *   FILE 118
//*              THE THIRD FEATURE OF THIS PROCESSING IS MY         *   FILE 118
//*              SMPUPD PROGRAM, WHICH ALLOWS THE BREAKING UP OF A  *   FILE 118
//*              SMPPTFIN FILE INTO A PDS, WHOSE MEMBERS ARE THE    *   FILE 118
//*              SEPARATE SYSMODS.  SUPPORT IS PROVIDED FOR APAR,   *   FILE 118
//*              USERMOD, AND FUNCTION SYSMODS AS WELL AS FOR       *   FILE 118
//*              PTFS.  THIS PROGRAM IS A RATHER QUICK-AND-DIRTY    *   FILE 118
//*              WAY OF DOING THINGS, BUT IT GETS ITS JOB DONE      *   FILE 118
//*              SUPERBLY, AND THAT'S WHAT COUNTS.  BASICALLY, IT   *   FILE 118
//*              LOOKS IN A FILE FOR ++ PTF OR ++ APAR OR ++        *   FILE 118
//*              USERMOD ETC.  IT PARSES FOR THE 7-CHARACTER        *   FILE 118
//*              SYSMOD NUMBER.  IN THE PROCESS OF MAKING A         *   FILE 118
//*              TEMPORARY COPY OF THE SMPPTFIN FILE, IT INSERTS A  *   FILE 118
//*              CARD IN FRONT OF EACH SYSMOD, WITH THE FORMAT:     *   FILE 118
//*                                                                 *   FILE 118
//*          ./  ADD  NAME=SYSMDNO                                  *   FILE 118
//*                                                                 *   FILE 118
//*              IN ADDITION, ALL "./" STRINGS IN COLUMNS 1 TO 2    *   FILE 118
//*              OF THE COPIED SYSMOD FILE ARE CHANGED TO "><".     *   FILE 118
//*              THEN THE PDSLOAD PROGRAM (FROM FILE 093 OF THE     *   FILE 118
//*              CBT TAPE) CAN BE USED TO LOAD ALL THE SYSMODS      *   FILE 118
//*              SEPARATELY INTO PDS MEMBERS, AND TO CONVERT THE    *   FILE 118
//*              "><" STRINGS WITHIN THE SYSMODS, BACK TO "./".     *   FILE 118
//*                                                                 *   FILE 118
//*              A SAMPLE JOBSTREAM, CALLED SMPUPDJ IN THIS PDS,    *   FILE 118
//*              WILL SHOW YET ANOTHER STEP AT THE END.  IT MAY     *   FILE 118
//*              NOT BE WIDELY PUBLICIZED YET, BUT THE PDS          *   FILE 118
//*              COMMAND PROCESSOR (FROM FILE 182 OF THE CBT        *   FILE 118
//*              TAPE) AT VERSION 8.5, HAS THE CAPABILITY OF        *   FILE 118
//*              SUPPLYING FULL ISPF STATISTICS TO A SOURCE PDS     *   FILE 118
//*              MEMBER.  THIS CAN ALSO BE DONE IN BATCH MODE.  I   *   FILE 118
//*              ADD A STEP AT THE END OF THE JOBSTREAM SMPUPDJ     *   FILE 118
//*              WHICH RUNS TSO IN BATCH, AND ADDS ISPF             *   FILE 118
//*              STATISTICS TO ALL THE SYSMODS, SO YOU KNOW HOW     *   FILE 118
//*              MANY LINES EACH ONE HAS.  ONCE THE PTFS OR         *   FILE 118
//*              OTHER SYSMODS HAVE BEEN SEPARATED, YOU MAY         *   FILE 118
//*              INQUIRE ABOUT THEM BY BROWSING OR EDITING THEM     *   FILE 118
//*              INDIVIDUALLY.  ALSO, SINCE THIS JOBSTREAM IS A     *   FILE 118
//*              QUICK AND REPRODUCIBLE PROCESS (IT TAKES A FEW     *   FILE 118
//*              MINUTES TO RUN ON MY MACHINE), YOU CAN LEAVE       *   FILE 118
//*              THE OUTPUT DATASET ON A WORK PACK FOR A FEW        *   FILE 118
//*              HOURS IF YOU'RE SHORT OF PERMANENT DISK SPACE.     *   FILE 118
//*              THEN YOU CAN RECREATE IT AGAIN THE NEXT DAY.       *   FILE 118
//*                                                                 *   FILE 118
//*              ONE MORE NOTE.  SOMETIMES IBM WILL SEND OUT        *   FILE 118
//*              DUPLICATE PTFS ON THE SAME PUT OR CBPDO TAPE.      *   FILE 118
//*              THIS WILL OBVIOUSLY CREATE DELETED MEMBERS ON      *   FILE 118
//*              YOUR OUTPUT LIBRARY, SINCE THE SECOND STOW OF A    *   FILE 118
//*              PDS MEMBER WILL DELETE THE FIRST MEMBER THAT       *   FILE 118
//*              HAS THE SAME NAME.  THEREFORE, I USE ANOTHER       *   FILE 118
//*              CAPABILITY OF THE PDS PROGRAM, WHICH IS THE        *   FILE 118
//*              RESTORE FUNCTION TO RESURRECT DELETED MEMBERS.     *   FILE 118
//*              THE DELETED MEMBERS ARE PUT BACK UNDER THE         *   FILE 118
//*              NAMES $PTF0001, $PTF0002, ETC. SO THEY CAN BE      *   FILE 118
//*              BROWSED AND COMPARED TO THE "REAL" ONES WHICH      *   FILE 118
//*              HAD THE SAME NAME.  (ACTUALLY, IN A RECEIVE        *   FILE 118
//*              JOB, THE DELETED VERSION WOULD BE RECEIVED,        *   FILE 118
//*              SINCE IT OCCURS FIRST IN THE FILE.)  THE PDS       *   FILE 118
//*              COMMAND IN PDS VERSION 8.5 WHICH DOES THIS IS:     *   FILE 118
//*                                                                 *   FILE 118
//*                 RESTORE $PTF REPEAT NOPROMPT                    *   FILE 118
//*                                                                 *   FILE 118
//***FILE 119 IS FROM MR HOWARD DEAN, FORMERLY OF SYNTEX, AND       *   FILE 119
//*           CONTAINS SEVERAL OF THEIR UTILITIES AND PROGRAMS.     *   FILE 119
//*                                                                 *   FILE 119
//*           CURRENT ADDRESS:                                      *   FILE 119
//*                                                                 *   FILE 119
//*            Howard M. Dean                                       *   FILE 119
//*            Kaiser Foundation Health Plan                        *   FILE 119
//*            25 Via Monte Avenue                                  *   FILE 119
//*            2nd Floor                                            *   FILE 119
//*            Walnut Creek, CA 94598                               *   FILE 119
//*                                                                 *   FILE 119
//*            (925) 926-3121                                       *   FILE 119
//*                                                                 *   FILE 119
//*            EMAIL - Howard.M.Dean@kp.org                         *   FILE 119
//*                                                                 *   FILE 119
//*           ==================================================    *   FILE 119
//*                       STARTED TASK ACCOUNTING AND               *   FILE 119
//*                       JES2 CONTROL CARDS IN STARTED             *   FILE 119
//*                       TASKS                                     *   FILE 119
//*           ==================================================    *   FILE 119
//*           JOBNAME     FRONT END TO 'STARTED TASK                *   FILE 119
//*                       CONTROL' FOR ADDING JOB                   *   FILE 119
//*                       ACCOUNTING AND JES2 CONTROL CARDS         *   FILE 119
//*                       * THIS CODE IS ON FILE 426 OF THE         *   FILE 119
//*                       CBT MODS TAPE *                           *   FILE 119
//*           LM00038     PART 1 LOCAL MODIFICATION FOR             *   FILE 119
//*                       STARTED TASK ACCOUNTING                   *   FILE 119
//*           LM00039     PART 2 LOCAL MODIFICATION FOR             *   FILE 119
//*                       STARTED TASK ACCOUNTING                   *   FILE 119
//*           STCADOC     FORMAT OF 'SYS3.STCACCT' MEMBERS          *   FILE 119
//*           X           EXAMPLE OF STC ACCOUNTING (STARTS)        *   FILE 119
//*           ==================================================    *   FILE 119
//*                       IEFDB401 AND JES2 USER EXIT 6             *   FILE 119
//*           ==================================================    *   FILE 119
//*           DYNANAME    SAMPLE DYNAMIC UNIT NAME INPUT            *   FILE 119
//*                       FOR DYNAMASK                              *   FILE 119
//*           DYNAJOB     DYNAMASK CATALOGED PROCEDURE              *   FILE 119
//*           IEFDB401    DYNAMIC ALLOCATION EXIT TO                *   FILE 119
//*                       SUPPORT DYNAMIC UNIT NAMES                *   FILE 119
//*           JESUX006    JES2 USER EXIT TO SUPPORT DYNAMIC         *   FILE 119
//*                       UNIT NAMES                                *   FILE 119
//*           UNITDOC     DOCUMENTATION AND JUSTIFICATION           *   FILE 119
//*                       FOR DYNAMIC UNIT NAME                     *   FILE 119
//*                       MODIFICATION.                             *   FILE 119
//*           ==================================================    *   FILE 119
//*                       DUMP TRANSFER UTILITY                     *   FILE 119
//*           ==================================================    *   FILE 119
//*           B           CLIST FOR INVOKING ISPF BROWSE            *   FILE 119
//*                       FROM EITHER READY MODE OR AN ISPF         *   FILE 119
//*                       ENVIRONMENT.                              *   FILE 119
//*           E           CLIST FOR INVOKING ISPF 'EDIT'            *   FILE 119
//*                       FROM EITHER READY MODE OR AN ISPF         *   FILE 119
//*                       ENVIRONMENT                               *   FILE 119
//*           JULDATE     INNER CLIST FOR EXTRACTING                *   FILE 119
//*                       TIME/DATE/DAY OF WEEK                     *   FILE 119
//*                       ===>   (THIS CLIST CAN BE USED AS         *   FILE 119
//*                       A GENERAL DATE ROUTINE)                   *   FILE 119
//*           MAKEDAY     CLIST TO INITIALIZE DUMP TRANSFER         *   FILE 119
//*                       PDS                                       *   FILE 119
//*           XFERJOB     JOB TO TRANSFER SYSTEM DUMP               *   FILE 119
//*                       DATASET TO TAPE                           *   FILE 119
//*           XFERINST    HINTS ON INSTALLATION OF THE DUMP         *   FILE 119
//*                       TRANSFER UTILITY                          *   FILE 119
//*           XFERUTIL    TSO COMMAND SUBROUTINE TO                 *   FILE 119
//*                       DETERMINE DUMP DATASET VOLUME             *   FILE 119
//*                       SERIAL.                                   *   FILE 119
//*           XFERVOL     SUBROUTINE OF XFERUTIL TO                 *   FILE 119
//*                       DETERMINE VOLUME SERIAL #                 *   FILE 119
//*           XFERWTO     PROGRAM TO ISSUE WTO FROM SYSIN           *   FILE 119
//*                       (USED WITH CLISTS)                        *   FILE 119
//*           XFER1       CLIST INVOKED UNDER TMP IN BATCH          *   FILE 119
//*                       TO UPDATE XFER PDS                        *   FILE 119
//*           XFER2       CLIST INVOKED UNDER TMP IN BATCH          *   FILE 119
//*                       TO UPDATE XFER PDS                        *   FILE 119
//*           XIX         CLIST TO INQUIRE INTO THE DUMP            *   FILE 119
//*                       TITLE DATABASE                            *   FILE 119
//*           XIXHELP     HELP MEMBER FOR XIX CLIST                 *   FILE 119
//*           ==================================================    *   FILE 119
//*                       TSO COMMANDS AND UTILITIES                *   FILE 119
//*           ==================================================    *   FILE 119
//*           ASID        COMMAND TO PRINT ADDRESS SPACE            *   FILE 119
//*                       DATA CONVERTED TO WORK IN 31 BIT          *   FILE 119
//*                       MODE UNDER MVS/XA (WORKS ON               *   FILE 119
//*                       NON-XA SYSTEMS TOO, IF VARIABLE           *   FILE 119
//*                       SET)                                      *   FILE 119
//*           ASHELP      HELP TEXT FOR THE 'ASID' COMMAND          *   FILE 119
//*           CLR3270     COMMAND TO CLEAR SCREEN OF 3270           *   FILE 119
//*                       TERMINAL. CHECKS FOR SESSION              *   FILE 119
//*                       MANAGER ACTIVE AND RETURNS NULL           *   FILE 119
//*                       STRING TO AVOID FLICKER.                  *   FILE 119
//*           CLRHELP     HELP TEXT FOR THE 'CLR3270'               *   FILE 119
//*                       COMMAND                                   *   FILE 119
//*           HMDCHRON    TIME OF DAY UTILITY - CONVERT             *   FILE 119
//*                       TIME-OF-DAY                               *   FILE 119
//*           JULGREG     JULIAN-GREGORIAN AND VICE-VERSA           *   FILE 119
//*                       CONVERSION (SUBROUTINE OF                 *   FILE 119
//*                       HMDCHRON)                                 *   FILE 119
//*           HTIME       TSO COMMAND TO FORMAT THE DATE            *   FILE 119
//*                       AND TIME OF DAY (CALLS HMDCHRON           *   FILE 119
//*                       AS SUBROUTINE)                            *   FILE 119
//*           PDFINIT     PROGRAM FOR ALLOCATING THE "ISPF"         *   FILE 119
//*                       PROFILE DATASET AND OPTIONALLY            *   FILE 119
//*                       INVOKING EITHER A COMMAND OR              *   FILE 119
//*                       "USERID.PROFILE.CLIST" UPON               *   FILE 119
//*                       LOGON. CAN BE SET UP SIMILIAR TO          *   FILE 119
//*                       VM PROFILE EXEC INVOCATION.               *   FILE 119
//*           PDFHELP     HELP TEXT FOR THE 'PDFINIT'               *   FILE 119
//*                       COMMAND                                   *   FILE 119
//*           SM          COMMAND TO TURN SESSION MANAGER           *   FILE 119
//*                       ON/OFF. WORKS IN MVX/XA MODE              *   FILE 119
//*                       WHERE SESSION MANAGER CONTROL             *   FILE 119
//*                       BLOCKS ARE MOVED 'ABOVE THE               *   FILE 119
//*                       LINE'.                                    *   FILE 119
//*           ==================================================    *   FILE 119
//*                       MACROS AND SUBROUTINES                    *   FILE 119
//*           ==================================================    *   FILE 119
//*           EPUTL       PUTLINE SUBROUTINE TO ACCEPT PARM         *   FILE 119
//*                       LIST "ABOVE THE LINE"                     *   FILE 119
//*           APUT        MACRO TO INVOKE 'EPUTL' INSTEAD           *   FILE 119
//*                       OF TPUT                                   *   FILE 119
//*           --------------------------------------------------    *   FILE 119
//*           CALL#       INTERNAL STRUCTURED MACROS USED           *   FILE 119
//*                       BY XFER UTILITY                           *   FILE 119
//*           DATA#       INTERNAL STRUCTURED MACROS USED           *   FILE 119
//*                       BY XFER UTILITY                           *   FILE 119
//*           END#        INTERNAL STRUCTURED MACROS USED           *   FILE 119
//*                       BY XFER UTILITY                           *   FILE 119
//*           ENDDATA#    INTERNAL STRUCTURED MACROS USED           *   FILE 119
//*                       BY XFER UTILITY                           *   FILE 119
//*           ENTRE#      INTERNAL STRUCTURED MACROS USED           *   FILE 119
//*                       BY XFER UTILITY                           *   FILE 119
//*           EXIT#       INTERNAL STRUCTURED MACROS USED           *   FILE 119
//*                       BY XFER UTILITY                           *   FILE 119
//*           IEXIT#      INTERNAL STRUCTURED MACROS USED           *   FILE 119
//*                       BY XFER UTILITY                           *   FILE 119
//*           INIT#       INTERNAL STRUCTURED MACROS USED           *   FILE 119
//*                       BY XFER UTILITY                           *   FILE 119
//*           --------------------------------------------------    *   FILE 119
//*           INUSE       INNER MACRO FOR                           *   FILE 119
//*                       TSOENTER/TSOLEAVE/SETREG/EOJ              *   FILE 119
//*           LUSE        INNER MACRO FOR                           *   FILE 119
//*                       TSOENTER/TSOLEAVE/SETREG/EOJ              *   FILE 119
//*           LDROP       INNER MACRO FOR                           *   FILE 119
//*                       TSOENTER/TSOLEAVE/SETREG/EOJ              *   FILE 119
//*           CSPL        INNER MACRO FOR TSOENTER/TSOLEAVE         *   FILE 119
//*           IOPL        INNER MACRO FOR TSOENTER/TSOLEAVE         *   FILE 119
//*           CPPL        INNER MACRO FOR TSOENTER/TSOLEAVE         *   FILE 119
//*           TSOENTER    MACRO TO SET UP COMMAND PROCESSOR         *   FILE 119
//*                       ENVIRONMENT                               *   FILE 119
//*           TSOLEAVE    MACRO TO RETURN TO TMP (USED              *   FILE 119
//*                       W/TSOENTER)                               *   FILE 119
//*           SETREG      ENTRY SETUP MACRO  - NON/TSO              *   FILE 119
//*                       ENVIRONMENT                               *   FILE 119
//*           EOJ         EXIT  RETURN MACRO - NON/TSO              *   FILE 119
//*                       ENVIRONMENT                               *   FILE 119
//*           XABSM       BRANCH AND SET MODE MACRO FOR             *   FILE 119
//*                       MVS/XA 31 BIT CODING                      *   FILE 119
//*                                                                 *   FILE 119
//***FILE 120 IS FROM SAM GOLOB AND CONTAINS HIS COLUMNS FROM       *   FILE 120
//*           "TECHNICAL SUPPORT" MAGAZINE ENTITLED "MVS TOOLS      *   FILE 120
//*           AND TRICKS OF THE TRADE".  THERE ARE NOW OVER 11      *   FILE 120
//*           YEARS' WORTH OF ARTICLES, WHICH ARE INCLUDED HERE     *   FILE 120
//*           BY CONSENT FROM THE PUBLISHER OF THE MAZAGINE.        *   FILE 120
//*           (FOR SAM'S OLD ARTICLES, SEE FILE 014.)               *   FILE 120
//*                                                                 *   FILE 120
//*           THIS FILE CONTAINS THE ORIGINAL VERSIONS OF SAM'S     *   FILE 120
//*           COLUMN BEFORE THEY WERE EDITED, OR SHORTENED BY       *   FILE 120
//*           THE MAGAZINE BECAUSE OF SPACE LIMITATIONS.            *   FILE 120
//*                                                                 *   FILE 120
//*           IT IS PERHAPS CONVENIENT TO INCLUDE THESE ARTICLES    *   FILE 120
//*           ON THE CBT TAPE ITSELF, BECAUSE MANY OF THEM TALK     *   FILE 120
//*           ABOUT HOW TO MAKE BEST USE OF SOFTWARE OFFERINGS      *   FILE 120
//*           WHICH ARE DISTRIBUTED WITH THIS TAPE.                 *   FILE 120
//*                                                                 *   FILE 120
//*              SUBJECT MATTER INDEX TO THE COLUMNS                *   FILE 120
//*                   (TOPICS THAT WERE COVERED)                    *   FILE 120
//*                                                                 *   FILE 120
//*     PDS MEMBER    SUBJECT MATTER OR TITLE                       *   FILE 120
//*     ----------    -----------------------                       *   FILE 120
//*                                                                 *   FILE 120
//*     $$$CPYRT  :  COPYRIGHT NOTICE                               *   FILE 120
//*     $$$INDEX  :  MEMBER NAMING SCHEME FOR THIS FILE             *   FILE 120
//*     $$$PERMT  :  PERMISSION TO DISTRIBUTE THIS MATERIAL         *   FILE 120
//*     $$DIRECT  :  ONE-LINE SUBJECT MATTER INDEX TO THE COLUMNS   *   FILE 120
//*     $$DIRFMT  :  FORMATTED SUBJECT MATTER INDEX TO THE COLUMNS  *   FILE 120
//*     $$INTRO   :  AUTHOR'S PREFACE AND "QUICK INTRO"             *   FILE 120
//*     ----------------------------------------------------------- *   FILE 120
//*     BM0009SE  :  THE JOY OF "SHARE" (SEPARATE ARTICLE - NOT     *   FILE 120
//*                  PUBLISHED - DOES NOT BELONG TO NASPA)          *   FILE 120
//*     CL8901JA  :  INTRO TO THE COLUMN, MISCELLANEOUS TOOLS,      *   FILE 120
//*                  THE CBT TAPE                                   *   FILE 120
//*     CL8902FE  :  VARIOUS DATASET AND DASD MANAGEMENT TRICKS     *   FILE 120
//*     CL8903MA  :  ISPF COMMAND TABLE, LPA LOADING AT IPL, THE    *   FILE 120
//*                  ABE EDITOR  (SEE INCLUDED CORRECTIONS FOR LPA) *   FILE 120
//*     CL8904AP  :  ENLARGING THE VTOC OF AN ACTIVE DISK PACK      *   FILE 120
//*     CL8905MY  :  DELINK AND RELINK OF LOAD MODULES              *   FILE 120
//*     CL8905X1  :  FURTHER NOTES ON ISPF COMMAND TABLE ADDITIONS  *   FILE 120
//*     CL8906JN  :  RETRIEVING MATERIAL FROM IBM'S SOURCE TAPES    *   FILE 120
//*     CL8907JL  :  THE AMAZING EXCP-COUNT ZAP                     *   FILE 120
//*     CL8909SE  :  THE SLAC MODS TO ASSEMBLER H                   *   FILE 120
//*     CL8910OC  :  VIEW JOBS AND OUTPUT DIRECTLY FROM             *   FILE 120
//*                  SPOOL--QUEUE & SDF                             *   FILE 120
//*     CL8911NV  :  NO-COST SUBSYSTEMS:  TSSO, ETPS, AND CMD1      *   FILE 120
//*     CL8912DE  :  CONVERT CLIST LIBRARIES FROM VB TO FB AND      *   FILE 120
//*                  VICE-VERSA                                     *   FILE 120
//*     CL9001JA  :  TAPE MAPPING, TAPE LOOKING, AND TAPE COPYING   *   FILE 120
//*     CL9002FE  :  SOME CHANGING TOOLS ON THE CBT TAPE;           *   FILE 120
//*                  THE SLAC ASSEMBLER, UPDATE 2                   *   FILE 120
//*     CL9004AP  :  THE PDS PROGRAM PRODUCT, PART 1                *   FILE 120
//*     CL9005MY  :  THE PDS PROGRAM PRODUCT, PART 2                *   FILE 120
//*     CL9006JN  :  THE EFFECT OF CHANGING SOME OF THE FIELDS IN   *   FILE 120
//*                  THE VTOC                                       *   FILE 120
//*     CL9007JL  :  PRE-PROCESSING SMPPTFIN DATA (NOT DEPENDENT ON *   FILE 120
//*                  SMP/E)                                         *   FILE 120
//*     CL9008AU  :  SMP/E HACKING EXAMPLE - REGRESSING VTAM,       *   FILE 120
//*                  PART 1                                         *   FILE 120
//*     CL9009SE  :  SMP/E HACKING EXAMPLE - REGRESSING VTAM,       *   FILE 120
//*                  PART 2                                         *   FILE 120
//*     CL9010OC  :  MAPXA AND BLKDISK: TWO USEFUL TSO COMMANDS     *   FILE 120
//*     CL9011NV  :  BILL GODFREY'S CONTRIBUTIONS; THE NEW          *   FILE 120
//*                  REVIEW COMMAND                                 *   FILE 120
//*     CL9012DE  :  THE ARCHIVER - PART 1 -                        *   FILE 120
//*                  A NEW PRODUCT AND CONCEPT                      *   FILE 120
//*     CL9101JA  :  THE ARCHIVER - PART 2 -                        *   FILE 120
//*                  MORE ABOUT THIS NEW PRODUCT                    *   FILE 120
//*     CL9102FE  :  CONVERSION BETWEEN CLIST FORMATS:              *   FILE 120
//*                  VB-FB, FB-VB                                   *   FILE 120
//*     CL9103MA  :  PUBLIC SOFTWARE TAPES REVISITED                *   FILE 120
//*     CL9104AP  :  BROWSING VIRTUAL STORAGE:                      *   FILE 120
//*                  THE "LOOK" TSO COMMAND                         *   FILE 120
//*     CL9105MY  :  MEMBER GROUP SELECTION IN PARTITIONED DATASETS *   FILE 120
//*     CL9106JN  :  DYNAMASK - CHANGING DEVICE NAMES ON A LIVE     *   FILE 120
//*                  SYSTEM                                         *   FILE 120
//*     CL9107JL  :  MAKING YOUR OWN PTFS, A VALUABLE TECHNIQUE     *   FILE 120
//*                  - PART 1                                       *   FILE 120
//*     CL9108AU  :  MAKING YOUR OWN PTFS, A VALUABLE TECHNIQUE     *   FILE 120
//*                  - PART 2                                       *   FILE 120
//*     CL9109SE  :  EXPLOITING PDS DIRECTORY FIELDS - PART 1       *   FILE 120
//*     CL9110OC  :  EXPLOITING PDS DIRECTORY FIELDS - PART 2       *   FILE 120
//*     CL9111NV  :  EXPLOITING PDS DIRECTORY FIELDS - PART 3       *   FILE 120
//*     CL9112DE  :  ABOUT DATASET BLOCK SIZES AND I/O              *   FILE 120
//*                  EFFICIENCY - PART 1                            *   FILE 120
//*     CL9201JA  :  ABOUT DATASET BLOCK SIZES AND I/O              *   FILE 120
//*                  EFFICIENCY - PART 2                            *   FILE 120
//*     CL9202FE  :  ABOUT DATASET BLOCK SIZES AND I/O              *   FILE 120
//*                  EFFICIENCY - PART 3                            *   FILE 120
//*     CL9203MA  :  A TOUR OF THE WORLD THROUGH                    *   FILE 120
//*                  FULLSCREEN ZAP - PART 1                        *   FILE 120
//*     CL9204AP  :  A TOUR OF THE WORLD THROUGH                    *   FILE 120
//*                  FULLSCREEN ZAP - PART 2                        *   FILE 120
//*     CL9205MY  :  MAKING THE MOST OF YOUR TOOLS                  *   FILE 120
//*     CL9206JN  :  PUBLIC SOFTWARE TAPES REVISITED                *   FILE 120
//*     CL9207JL  :  SOME ASSEMBLER THOUGHTS:                       *   FILE 120
//*                  THE NEW HIGH-LEVEL ASSEMBLER - PART 1          *   FILE 120
//*     CL9208AU  :  SOME ASSEMBLER THOUGHTS:                       *   FILE 120
//*                  THE NEW HIGH-LEVEL ASSEMBLER - PART 2          *   FILE 120
//*     CL9209SE  :  SMP/E TOOLS YOU SHOULD HAVE - PART 1           *   FILE 120
//*     CL9210OC  :  SMP/E TOOLS YOU SHOULD HAVE - PART 2           *   FILE 120
//*     CL9211NV  :  HOW I FOLLOWED MY OWN ADVICE, AND              *   FILE 120
//*                  HOW NOT TO UPGRADE JES2 EXITS                  *   FILE 120
//*     CL9212DE  :  PUTTING YOUR TOOLS TOGETHER - PART 1           *   FILE 120
//*                  - ISPF COMMAND TABLES                          *   FILE 120
//*     CL9301JA  :  PUTTING YOUR TOOLS TOGETHER - PART 2           *   FILE 120
//*                  - TOOL PACKAGES                                *   FILE 120
//*     CL9302FE  :  PUTTING YOUR TOOLS TOGETHER - PART 3 -         *   FILE 120
//*                  EDIT MACROS, TSO COMMANDS, AND                 *   FILE 120
//*                  MISCELLANEOUS TECHNIQUES                       *   FILE 120
//*     CL9303MA  :  "SHOW ME MVS" IN ONE PLACE -                   *   FILE 120
//*                  THE SHOWMVS COMMAND                            *   FILE 120
//*     CL9304AP  :  COPYING TAPES CORRECTLY                        *   FILE 120
//*     CL9305JL  :  MAKING SEQUENTIAL FILES OUT OF PDS'ES,         *   FILE 120
//*                  AND VICE-VERSA                                 *   FILE 120
//*     CL9306SE  :  TSO HELP, WITHOUT THE DRAWBACKS:               *   FILE 120
//*                  THE HEL COMMAND                                *   FILE 120
//*     CL9307NV  :  IEHMAP, AND OTHER STORIES.                     *   FILE 120
//*     CL9401JA  :  THE FASCINATION OF THE DISASSEMBLER - PART 1   *   FILE 120
//*     CL9402MA  :  THE FASCINATION OF THE DISASSEMBLER - PART 2   *   FILE 120
//*     CL9403MY  :  ASSEMBLING PROGRAM PATCHES - THE ASMTOZAP      *   FILE 120
//*                  PROGRAM                                        *   FILE 120
//*     CL9404JL  :  2 TOPICS: REBIRTH OF IEHMOVE, LOADING JES2     *   FILE 120
//*                  EXITS DYNAMICALLY                              *   FILE 120
//*     CL9405OC  :  THE "REVIEW" COMMAND REVISITED                 *   FILE 120
//*     CL9406NV  :  YOUR TSO SESSION - USING THE PSCB              *   FILE 120
//*     CL9407DE  :  YOUR TSO SESSION - USING THE TSO               *   FILE 120
//*                  SESSION MANAGER                                *   FILE 120
//*     CL9501JA  :  ON FINDING PROGRAMS - BLDL AND LLA             *   FILE 120
//*     CL9502FE  :  ON DATASET RECOVERY - INTRODUCTION             *   FILE 120
//*     CL9503MA  :  DATASET RECOVERY METHODOLOGY - PART 2          *   FILE 120
//*     CL9504AP  :  VTOC TIDBITS - PART 1                          *   FILE 120
//*     CL9505MY  :  VTOC TIDBITS - PART 2                          *   FILE 120
//*     CL9506JN  :  A VTOC ADVENTURE - PART 3                      *   FILE 120
//*     CL9507JL  :  EXPLORING SYS1.BRODCAST                        *   FILE 120
//*     CL9508AU  :  A NOVICE'S GUIDE TO ASSEMBLER                  *   FILE 120
//*                  PROGRAMMING - PART 1                           *   FILE 120
//*     CL9509SE  :  A NOVICE'S GUIDE TO ASSEMBLER                  *   FILE 120
//*                  PROGRAMMING - PART 2                           *   FILE 120
//*     CL9510OC  :  WORKING WITH TSO - PART 1                      *   FILE 120
//*     CL9511NV  :  WORKING WITH TSO - PART 2                      *   FILE 120
//*     CL9512DE  :  KEEPING UP WITH THE UNIT CONTROL               *   FILE 120
//*                  BLOCK - PART 1                                 *   FILE 120
//*     CL9601JA  :  KEEPING UP WITH THE UNIT CONTROL               *   FILE 120
//*                  BLOCK - PART 2                                 *   FILE 120
//*     CL9602FE  :  EDIT AND SYSTEM RECOVERY                       *   FILE 120
//*     CL9603MA  :  YOUR OWN WORLD OF EDIT MACROS                  *   FILE 120
//*     CL9604AP  :  THE PLACE OF FREE SOFTWARE IN TODAY'S          *   FILE 120
//*                  MVS SHOP                                       *   FILE 120
//*     CL9605MY  :  EYES - PART 1                                  *   FILE 120
//*     CL9606JN  :  EYES - PART 2                                  *   FILE 120
//*     CL9607JL  :  EYES - PART 3 - USING SMP/E                    *   FILE 120
//*     CL9608AU  :  PERSONAL TOOLS FOR YOUR SMP WORK               *   FILE 120
//*     CL9609SE  :  TIDBITS                                        *   FILE 120
//*     CL9610OC  :  GETTING STARTED WITH PUBLIC MVS SOFTWARE       *   FILE 120
//*     CL9611NV  :  ALTERNATIVES AND DATASET RECOVERY              *   FILE 120
//*     CL9612DE  :  ON FINDING THINGS                              *   FILE 120
//*     CL9702FE  :  CREATIVE ENQUEUING                             *   FILE 120
//*     CL9703MA  :  HARNESSING MACRO POWER - PART 1                *   FILE 120
//*     CL9704AP  :  HARNESSING MACRO POWER - PART 2                *   FILE 120
//*     CL9705MY  :  IT'S A BIRD, IT'S A PLANE, IT'S SUPRNAME       *   FILE 120
//*     CL9706JN  :  TIMING OUT                                     *   FILE 120
//*     CL9707JL  :  OLD CODE--OLD GOLD                             *   FILE 120
//*     CL9708AU  :  PROFILES IN CREATIVITY                         *   FILE 120
//*     CL9709SE  :  SYSTEM PROGRAMMER CREATIVITY                   *   FILE 120
//*     CL9710OC  :  WHY NOT RUN A BATCH JOB?                       *   FILE 120
//*     CL9711NV  :  HELP IN KEEPING YOUR SYSTEM UP                 *   FILE 120
//*     CL9712DE  :  REMEMBERING TSSO                               *   FILE 120
//*     CL9801JA  :  LOOKING AT VIRTUAL STORAGE                     *   FILE 120
//*     CL9802FE  :  ASSORTED UTILITIES - PART 1                    *   FILE 120
//*     CL9803MA  :  ASSORTED UTILITIES - PART 2                    *   FILE 120
//*     CL9804AP  :  OTHER PEOPLE'S PROBLEMS                        *   FILE 120
//*     CL9805MY  :  UNDELETING DATA - PART 1                       *   FILE 120
//*     CL9806JN  :  UNDELETING DATA - PART 2                       *   FILE 120
//*     CL9807JL  :  WHEN IBM SAYS YOU CAN'T... SOMETIMES YOU CAN   *   FILE 120
//*     CL9808SE  :  WHEN IBM SAYS YOU CAN'T... SOMETIMES YOU CAN   *   FILE 120
//*                  - PART 2                                       *   FILE 120
//*     CL9809OC  :  AN IMPORTANT Y2K TECHNIQUE                     *   FILE 120
//*     CL9810NV  :  EXPANDING YOUR HORIZONS                        *   FILE 120
//*     CL9811DE  :  SETTING YOURSELF UP                            *   FILE 120
//*     CL9901JA  :  CBT TAPE SUPPORT ONLINE                        *   FILE 120
//*     CL9902FE  :  RESOURCE AFFINITY IMPLEMENTATION EFFORTS       *   FILE 120
//*     CL9903MA  :  SMP/E PREPROCESSING                            *   FILE 120
//*     CL9904AP  :  AWARENESS                                      *   FILE 120
//*     CL9905MY  :  HIGHLIGHTS OF CBT TAPE VERSION 420             *   FILE 120
//*     CL9906JN  :  SELECTIONS FROM CBT TAPE VERSION 420 (AND 421) *   FILE 120
//*     CL9907JL  :  WRITING YOUR OWN TSO COMMAND PROCESSOR         *   FILE 120
//*                  - PART 1                                       *   FILE 120
//*     CL9908AU  :  WRITING YOUR OWN TSO COMMAND PROCESSOR         *   FILE 120
//*                  - PART 2                                       *   FILE 120
//*     CL9908SE  :  PC'S, C, AND ASSEMBLER                         *   FILE 120
//*     CL9910OC  :  ZAPPING, DISASSEMBLING, DELINKING, AND         *   FILE 120
//*                  RE-LINKEDITING                                 *   FILE 120
//*     CL9911NV  :  LEARNING OUR TRADE                             *   FILE 120
//*     CL9912DE  :  USING XMIT TO PACKAGE MVS FILES                *   FILE 120
//*     CM0001JA  :  RECENT CBT TAPE NEWS                           *   FILE 120
//*     CM0002FE  :  ASSEMBLER MACRO COLLECTIONS - PART 1           *   FILE 120
//*     CM0003MA  :  ASSEMBLER MACRO COLLECTIONS - PART 2           *   FILE 120
//*     CM0004AP  :  LEARNING ABOUT YOUR MVS SYSTEM                 *   FILE 120
//*     CM0005MY  :  ACCUMULATING ASSEMBLER TECHNIQUES              *   FILE 120
//*     CM0006JN  :  COPYING TAPES                                  *   FILE 120
//*     CM0007JL  :  SCANNING FOR PARMS IN A BATCH PROGRAM          *   FILE 120
//*     CM0008AU  :  THE CVT - THE BACKBONE OF MVS                  *   FILE 120
//*                                                                 *   FILE 120
//***FILE 121 IS FROM SAM GOLOB AND CONTAINS WIDE ILLUSTRATIONS     *   FILE 121
//*           FROM HIS COLUMNS IN "TECHNICAL SUPPORT" MAGAZINE.     *   FILE 121
//*           THE COLUMNS THEMSELVES ARE IN FILE 120.  THIS FILE    *   FILE 121
//*           IS IN IEBCOPY UNLOADED FORMAT.                        *   FILE 121
//*                                                                 *   FILE 121
//***FILE 122 CONTAINS THE RMSG SUB-SYSTEM AND SOME JES2 EXITS      *   FILE 122
//*            USED AT ALLERGAN INC OF IRVINE CALIFORNIA.  THIS     *   FILE 122
//*            FILE IS IN IEBUPDTE SYSIN FORMAT,  FOR ADDITIONAL    *   FILE 122
//*            INFORMATION SEE THE MEMBER CALLED $$DOC              *   FILE 122
//*                                                                 *   FILE 122
//*            THE RMSG SUB-SYSTEM IS AN 'AUTOMATIC OPERATOR'       *   FILE 122
//*            SYSTEM THAT MONITORS AND REACTS TO SELECTED          *   FILE 122
//*            CONSOLE TRAFFIC AND USER WRITTEN COMMANDS.           *   FILE 122
//*                                                                 *   FILE 122
//*            THE RMSG SUB-SYSTEM RUNS ON MVS/SP AND MVS/XA        *   FILE 122
//*            WITHOUT ANY MODIFICATION.  THE J2SRB01 ROUTINE RUNS  *   FILE 122
//*            ON MVS/SP AND MVS/XA WITHOUT ANY MODIFICATION.       *   FILE 122
//*                                                                 *   FILE 122
//*                                                                 *   FILE 122
//*             MEMBER              DESCRIPTION                     *   FILE 122
//*                                                                 *   FILE 122
//*            CMDRMSG  SAMPLE MVS STARTUP COMMANDS ISSUED BY       *   FILE 122
//*                     RMSGLOAD                                    *   FILE 122
//*                      PLACE THIS MEMBER IN SYS1.PARMLIB.  THIS   *   FILE 122
//*                      IS A LIST OF COMMANDS THAT ARE ISSUED BY   *   FILE 122
//*                      RMSGLOAD AFTER RMSG IS INITIALIZED.  SEE   *   FILE 122
//*                      QUITMVS FOR SHUTDOWN COMMANDS THE PROC     *   FILE 122
//*                      RMSGLOAD REFERS TO THIS MEMBER             *   FILE 122
//*                                                                 *   FILE 122
//*            COMEIN   ENTRY MACRO FOR SOME ROUTINES               *   FILE 122
//*                      PLACE THIS MEMBER IN YOUR USER MACLIB      *   FILE 122
//*                                                                 *   FILE 122
//*            GETOUT   EXIT MACRO FOR SOME ROUTINES                *   FILE 122
//*                      PLACE THIS MEMBER IN YOUR USER MACLIB      *   FILE 122
//*                                                                 *   FILE 122
//*            IEFSSN00 SAMPLE SUB-SYSTEM NAME TABLE                *   FILE 122
//*                      ADD AN ENTRY FOR "RMSG" TO YOUR            *   FILE 122
//*                      SUB-SYSTEM NAME TABLE IN SYS1.PARMLIB.     *   FILE 122
//*                                                                 *   FILE 122
//*            JES2PARM SAMPLE JES2 PARMS                           *   FILE 122
//*                      THESE JES2 PARMS ACTIVATE ALL OF OUR       *   FILE 122
//*                      JES2 EXITS AND STARTS A NJE/NJI LINK       *   FILE 122
//*                      BETWEEN MVS AND VM.  BEWARE OF THE         *   FILE 122
//*                      VIRTUAL PRINTER NUMBERS. THEY ARE          *   FILE 122
//*                      CRITICAL BEWARE OF THE NJE NODE NAMES.     *   FILE 122
//*                                                                 *   FILE 122
//*            J2SRB01  SRB TO CLOSE VIRTUAL PRINTERS               *   FILE 122
//*                      THIS SRB ISSUES A DIAGNOSE 8 TO CLOSE      *   FILE 122
//*                      VIRTUAL PRINTERS.  IT IS LOADED BY         *   FILE 122
//*                      RMSGLOAD AND ACTIVATED BY J2XIT01.  THE    *   FILE 122
//*                      LOAD MODULE MUST RESIDE IN THE SAME        *   FILE 122
//*                      LINKLIB AS RMSG.  SEE THE //LOADLIB DD     *   FILE 122
//*                      IN THE RMSGSUB PROC.  THE SSVT FOR RMSG    *   FILE 122
//*                      IS ALSO THE ANCHOR FOR J2SRB01             *   FILE 122
//*                                                                 *   FILE 122
//*            J2TBL03  ACCOUNT NUMBER TABLE FOR J2XIT03 ACCOUNT    *   FILE 122
//*                      NUMBER VALIDATION ROUTINE FOR BOTH MVS     *   FILE 122
//*                      AND CMS.  THIS ROUTINE IS LOADED AND       *   FILE 122
//*                      CALLED BY J2XIT03.  THIS ROUTINE, WHEN     *   FILE 122
//*                      ASSEMBLED UNDER CMS, CAN BE USED TO        *   FILE 122
//*                      VALIDATE ACCOUNT NUMBERS.                  *   FILE 122
//*                                                                 *   FILE 122
//*            J2XIT01  JES2 EXIT 1 TO CLOSE VIRTURAL PRINTERS      *   FILE 122
//*                      THIS ROUTINE KNOWS, BY PRINTER NUMBER,     *   FILE 122
//*                      WHICH PRINTERS ARE VIRTUAL PRINTERS.  NO   *   FILE 122
//*                      ACTION IS TAKEN FOR REAL PRINTERS.  IF     *   FILE 122
//*                      THE ENTRY IS FOR A START BANNER PAGE, A    *   FILE 122
//*                      1 LINE BANNER PAGE IS CREATED.  IF THE     *   FILE 122
//*                      ENTRY IS FOR A ENDING BANNER PAGE, THEN    *   FILE 122
//*                      THE PRINTER ADDRESS (CUU) AND OTHER        *   FILE 122
//*                      INFORMATION IS FORMATTED FOR J2SRB01 AND   *   FILE 122
//*                      J2SRB01 IS CALLED TO SCHEDULE A SRB TO     *   FILE 122
//*                      CLOSE THE PRINTER.  ENDING BANNER PAGES    *   FILE 122
//*                      ARE NOT PRODUCED FOR VIRTUAL PRINTERS.     *   FILE 122
//*                                                                 *   FILE 122
//*            J2XIT02  JES2 EXIT 2 TO MODIFY JOB CARD AND INSERT   *   FILE 122
//*                     /*ROUTE CARD.                               *   FILE 122
//*                      1) CHECK FOR STARTED TASKS AND INSERT AN   *   FILE 122
//*                         ACCOUNT NUMBER IN THE STC JOB CARD.     *   FILE 122
//*                      2) INSERT A /*ROUTE CARD IF THE JOB CAME   *   FILE 122
//*                         FROM THE NJE/NJI LINK.                  *   FILE 122
//*                                                                 *   FILE 122
//*            J2XIT03  JES2 EXIT 3 TO VALIDATE ACCOUNT NUMBERS     *   FILE 122
//*                      THIS ROUTINE LOADS J2TBL03 TO VALIDATE     *   FILE 122
//*                      ACCOUNT NUMBERS.  SELECTED JOB NUMBERS     *   FILE 122
//*                      (SEE THE CODE) WILL CAUSE J2TBL03 TO BE    *   FILE 122
//*                      REFRESHED (RE-LOADED) OR INACTIVATED.      *   FILE 122
//*                                                                 *   FILE 122
//*            J2XIT04  JES2 EXIT 3 TO MODIFY JCL                   *   FILE 122
//*                      THIS ROUTINE COMMENTS OUT JOBCAT AND       *   FILE 122
//*                      STEPCAT CARDS FOR SELECTED JOB CLASSES.    *   FILE 122
//*                      IT ALSO ADDS SOME 'OUTPUT' CARDS TO        *   FILE 122
//*                      ROUTE THE JOBLOG ETC TO THE LOCAL NODE.    *   FILE 122
//*                                                                 *   FILE 122
//*            J2XIT09  JES2 EXIT 9 TO ENFORCE OUTPUT EXCESSION     *   FILE 122
//*                     FOR TEST JOBS                               *   FILE 122
//*                      THIS EXIT WILL ALLOW OUTPUT EXCESSION      *   FILE 122
//*                      FOR PRODUCTION JOBS.  TEST JOBS WILL       *   FILE 122
//*                      ABEND WHEN OUTPUT EXCESSION OCCURS.        *   FILE 122
//*                                                                 *   FILE 122
//*            QUITMVS  A LIST OF COMMANDS TO SHUT MVS DOWN BEFORE  *   FILE 122
//*                     AN IPL                                      *   FILE 122
//*                      PLACE THIS MEMBER IN SYS1.PARMLIB.  WHEN   *   FILE 122
//*                      THE OPERATOR ISSUES THE COMMAND 'QUIT      *   FILE 122
//*                      MVS' THESE COMMANDS WILL BE PUT ON THE     *   FILE 122
//*                      INTRDR BY RMSG.                            *   FILE 122
//*                                                                 *   FILE 122
//*            RCMD     ISSUE SELECTED JES2 COMMANDS                *   FILE 122
//*                      WE DON'T WANT OUR PROGRAMMERS ISSUING      *   FILE 122
//*                      JES2 OR OPERATOR COMMANDS.                 *   FILE 122
//*                       RCMD IS USED TO SEND A REQUEST TO RMSG    *   FILE 122
//*                       TO ISSUE SELECTED COMMANDS.  RCMD IS      *   FILE 122
//*                       PARM DRIVEN AND WILL ISSUE THE            *   FILE 122
//*                       FOLLOWING COMMANDS.                       *   FILE 122
//*                                                                 *   FILE 122
//*             PARM          COMMAND                               *   FILE 122
//*             SUPRA         $TI10,V        CHANGE INITIATOR CLASS *   FILE 122
//*                           $SI10          START THE INITIATOR.   *   FILE 122
//*             RLSE JOBNAME  $A'JOBNAME'    RELEASE A HELD JOB     *   FILE 122
//*             REFRESH       F LLA,REFRESH  REFRESH THE LLA FOR XA *   FILE 122
//*                                                                 *   FILE 122
//*                        * THE PRODUCTION CONTROL GROUP LINKS     *   FILE 122
//*                          ALL PRODUCTION PROGRAMS INTO A         *   FILE 122
//*                          LINKLIST DATASET.  RCMD WITH THE       *   FILE 122
//*                          REFRESH PARM IS THE LAST STEP OF THE   *   FILE 122
//*                          LKED JOB.                              *   FILE 122
//*                                                                 *   FILE 122
//*                        * IF THE F LLA,REFRESH COMMAND LOOKS A   *   FILE 122
//*                          LITTLE STRANGE, IT IS BECAUSE WE       *   FILE 122
//*                          HAVE MSX IN HOUSE AND ISSUE THE        *   FILE 122
//*                          COMMAND ON ALL PROCESSORS.  REMOVE     *   FILE 122
//*                          THE '^ALL' AND THE COMMAND SHOULD      *   FILE 122
//*                          WORK FINE.                             *   FILE 122
//*                                                                 *   FILE 122
//*                      EXAMINE THE CODE FOR ADDITIONAL FEATURES.  *   FILE 122
//*                                                                 *   FILE 122
//*            RMSG     AUTOMATIC OPERATOR SUB-SYSTEM               *   FILE 122
//*                      RMSG IS A SUB-SYSTEM THAT MONITORS ALL     *   FILE 122
//*                      CONSOLE TRAFFIC AND REACTS TO SELECTED     *   FILE 122
//*                      MESSAGES AND COMMANDS.  THE SSVT FOR RMSG  *   FILE 122
//*                      IS ALSO THE ANCHOR FOR J2SRB01 RMSG        *   FILE 122
//*                      CONTAINS THE FOLLOWING FEATURES:           *   FILE 122
//*                      1) REPLY TO SELECTED WTOR MESSAGES.        *   FILE 122
//*                         EX: REPLY 'NOHOLD' TO THE REPLY HOLD    *   FILE 122
//*                             OR NOHOLD MSG.                      *   FILE 122
//*                      2) RESPOND TO SELECTED WTO MESSAGES -      *   FILE 122
//*                         EX: WHEN RMSG SEES  THE 'VTAM ACTIVE'   *   FILE 122
//*                             MSG IT WILL START TSO.              *   FILE 122
//*                      3) ALLOW USER COMMANDS.                    *   FILE 122
//*                         EX: THE COMMAND 'QUIT MVS' WILL ISSUE A *   FILE 122
//*                             SERIES OF COMMANDS TO SHUT DOWN MVS *   FILE 122
//*                             (SEE QUITMVS MEMBER).  JES2 WILL BE *   FILE 122
//*                             STOPPED AND A Z EOD WILL BE ISSUED. *   FILE 122
//*                                                                 *   FILE 122
//*            RMSGCMD  PROC USED BY RMSG TO WRITE COMMANDS TO THE  *   FILE 122
//*                     INTRDR                                      *   FILE 122
//*                      PLACE THIS MEMBER IN A PROCLIB             *   FILE 122
//*                                                                 *   FILE 122
//*            RMSGLOAD INITIALIZE RMSG AND LOAD J2SRB01 THIS       *   FILE 122
//*                     ROUTINE INITIALIZES THE RMSG SUB-SYSTEM     *   FILE 122
//*                     AND LOADS THE J2SRB01 ROUTINE.  IT ALSO     *   FILE 122
//*                     READS THE CMDRMSG MEMBER OF SYS1.PARMLIB    *   FILE 122
//*                     AND PUTS THE COMMANDS ON THE INTRDR.        *   FILE 122
//*                                                                 *   FILE 122
//*            RMSGSUB  PROC TO RUN RMSGLOAD AND INITIALIZE RMSG    *   FILE 122
//*                     SUB-SYSTEM                                  *   FILE 122
//*                      PLACE THIS MEMBER IN A PROCLIB             *   FILE 122
//*                      POINT TO THE LINKLIB THAT CONTAINS BOTH    *   FILE 122
//*                      RMSG AND J2SRB01.                          *   FILE 122
//*                      TO START RMSG ENTER THE COMMAND 'S RMSGSUB'*   FILE 122
//*                       WE PUT THIS COMMAND IN CMD00.             *   FILE 122
//*                      TO REFRESH RMSG AND J2SRB01 ENTER THE      *   FILE 122
//*                      COMMAND:                                   *   FILE 122
//*                      'S RMSGSUB,OPTION=FORCE'.                  *   FILE 122
//*                                                                 *   FILE 122
//***FILE 123 IS CURRENTLY EMPTY                                    *   FILE 123
//*                                                                 *   FILE 123
//***FILE 124 IS FROM THE STATE OF WISCONSIN REGIONAL COMPUTING     *   FILE 124
//*           CENTER OF MADISON, WISCONSIN AND CONTAINS             *   FILE 124
//*           SEVERAL OF THEIR ISPF/PDF APPLICATIONS. THEY ARE      *   FILE 124
//*           CURRENTLY WORKING UNDER ISPF/PDF V2 R3 M0.            *   FILE 124
//*                                                                 *   FILE 124
//*           NO WARRANTY IS GIVEN OR IMPLIED BY WSRCC.             *   FILE 124
//*           NO LIABILITY IS ASSUMED BY WSRCC FOR ANY OF           *   FILE 124
//*           THE CODE IN THIS FILE.                                *   FILE 124
//*                                                                 *   FILE 124
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT                 *   FILE 124
//*                                                                 *   FILE 124
//*           THIS FILE CONTAINS THE FOLLOWING MEMBERS :            *   FILE 124
//*                                                                 *   FILE 124
//*           AUTH        -  MACRO, USED BY SPF (SEE BELOW).  AUTH  *   FILE 124
//*                          IS USED BY THE SPF PROGRAM TO INVOKE   *   FILE 124
//*                          SVC 233 TO TURN ON AND OFF JSCB        *   FILE 124
//*                          AUTHORIZATION.                         *   FILE 124
//*                                                                 *   FILE 124
//*           BPPL        -  MACRO TAKEN FROM CBT TAPE VERSION 259  *   FILE 124
//*                          FILE 270.  USED IN ASSEMBLY OF STACK   *   FILE 124
//*                          PROGRAM.                               *   FILE 124
//*                                                                 *   FILE 124
//*           EDPRD       -  ISREDIT MACRO TO INVOKE THE PRINTDS    *   FILE 124
//*                          COMMAND FOR THE DATASET BEING EDITED.  *   FILE 124
//*                          USES THE PDPANL PANEL TO PROMPT FOR    *   FILE 124
//*                          OPTIONS WHICH ARE SAVED IN THE         *   FILE 124
//*                          PROFILE.  THE MACRO WORKS AGAINST THE  *   FILE 124
//*                          DISK VERSION OF THE DATASET SO IF      *   FILE 124
//*                          CHANGES HAVE BEEN MADE THE DATASET     *   FILE 124
//*                          MUST BE "SAVE"ED BEFORE INVOKING       *   FILE 124
//*                          EDPRD.                                 *   FILE 124
//*                                                                 *   FILE 124
//*           EDPRT       -  ISREDIT MACRO TO INVOKE THE PRINTOFF   *   FILE 124
//*                          COMMAND FOR THE DATASET BEING EDITED.  *   FILE 124
//*                          USES THE PRPANL PANEL TO PROMPT FOR    *   FILE 124
//*                          OPTIONS WHICH ARE SAVED IN THE         *   FILE 124
//*                          PROFILE.  THE MACRO WORKS AGAINST THE  *   FILE 124
//*                          DISK VERSION OF THE DATASET SO IF      *   FILE 124
//*                          CHANGES HAVE BEEN MADE THE DATASET     *   FILE 124
//*                          MUST BE "SAVE"ED BEFORE INVOKING       *   FILE 124
//*                          EDPRT.                                 *   FILE 124
//*                                                                 *   FILE 124
//*           EDSCR       -  ISREDIT MACRO TO INVOKE THE SCRIPT     *   FILE 124
//*                          COMMAND FOR THE DATASET BEING EDITED.  *   FILE 124
//*                          USES THE SCPANL PANEL TO PROMPT FOR    *   FILE 124
//*                          OPTIONS WHICH ARE SAVED IN THE         *   FILE 124
//*                          PROFILE.  THE MACRO WORKS AGAINST THE  *   FILE 124
//*                          DISK VERSION OF THE DATASET SO IF      *   FILE 124
//*                          CHANGES HAVE BEEN MADE THE DATASET     *   FILE 124
//*                          MUST BE "SAVE"ED BEFORE INVOKING       *   FILE 124
//*                          EDSCR.                                 *   FILE 124
//*                                                                 *   FILE 124
//*           ENTERR      -  MACRO TAKEN FROM CBT TAPE VERSION 259  *   FILE 124
//*                          FILE 270.  USED IN ASSEMBLY OF STACK   *   FILE 124
//*                          PROGRAM.                               *   FILE 124
//*                                                                 *   FILE 124
//*           GDGUTIL     -  ISPF CLIST WHICH INVOKES SEVERAL       *   FILE 124
//*                          FUNCTIONS ONE MIGHT WANT TO DO TO A    *   FILE 124
//*                          GDG.  CREATE, LIST INDEX, LIST         *   FILE 124
//*                          DATASETS MODIFY LIMIT AND DELETE.      *   FILE 124
//*                          CAN BE USED FROM PANEL 6 OR INCLUDED   *   FILE 124
//*                          AS A SELECTION ENTRY ON ANOTHER        *   FILE 124
//*                          PANEL.  USES GDGUTILP PANEL AND        *   FILE 124
//*                          RESETGDG PROGRAM TO DO THE WORK.       *   FILE 124
//*                                                                 *   FILE 124
//*           GDGUTILP    -  ISPF PANEL USED BY GDGUTIL, SEE ABOVE. *   FILE 124
//*                                                                 *   FILE 124
//*           IGC0023C    -  SVC 233.  THIS IS A NON-AUTHORIZED     *   FILE 124
//*                          TYPE 3 SVC THAT TURNS BITS IN THE      *   FILE 124
//*                          JSCB ON OR OFF BASED ON AN ENTRY       *   FILE 124
//*                          CODE IS REGISTER 1.  IT IS CALLED BY   *   FILE 124
//*                          THE AUTH MACRO WHICH IS USED BY THE    *   FILE 124
//*                          SPF PROGRAM (SEE BELOW).               *   FILE 124
//*                                                                 *   FILE 124
//*           IKJCVT      -  MACRO TAKEN FROM CBT TAPE VERSION 259  *   FILE 124
//*                          FILE 270.  USED IN ASSEMBLY OF STACK   *   FILE 124
//*                          PROGRAM.                               *   FILE 124
//*                                                                 *   FILE 124
//*           ISR=PDOC    -  ISPF/PDF PRIMARY OPTION PANEL          *   FILE 124
//*                          DOCUMENTAION.                          *   FILE 124
//*                                                                 *   FILE 124
//*           ISR=PRIM    -  ISPF/PDF PRIMARY OPTION PANEL AS USED  *   FILE 124
//*                          BY WSRCC.  SEE THE MEMBER ISR=PDOC FOR *   FILE 124
//*                          DESCRIPTION.                           *   FILE 124
//*                                                                 *   FILE 124
//*           KPPL        -  MACRO TAKEN FROM CBT TAPE VERSION 259  *   FILE 124
//*                          FILE 270.  USED IN ASSEMBLY OF STACK   *   FILE 124
//*                          PROGRAM.                               *   FILE 124
//*                                                                 *   FILE 124
//*           LEAVER      -  MACRO TAKEN FROM CBT TAPE VERSION 259  *   FILE 124
//*                          FILE 270.  USED IN ASSEMBLY OF STACK   *   FILE 124
//*                          PROGRAM.                               *   FILE 124
//*                                                                 *   FILE 124
//*           MOVE        -  MACRO TAKEN FROM CBT TAPE VERSION 259  *   FILE 124
//*                          FILE 270.  USED IN ASSEMBLY OF STACK   *   FILE 124
//*                          PROGRAM.                               *   FILE 124
//*                                                                 *   FILE 124
//*           PDPANL      -  PROMPTING PANEL FOR USE WITH EDPRD     *   FILE 124
//*                          MACRO.                                 *   FILE 124
//*                                                                 *   FILE 124
//*           PRPANL      -  PROMPTING PANEL FOR USE WITH EDPRT     *   FILE 124
//*                          MACRO.                                 *   FILE 124
//*                                                                 *   FILE 124
//*           PRT         -  3.4 PRINTOFF CLIST, SAME AS J.PRT,     *   FILE 124
//*                          ALSO MAIN MEMBER FOR ALIASES PR1 AND   *   FILE 124
//*                          PR2 3.4 PRINTOFF CLISTS.               *   FILE 124
//*                                                                 *   FILE 124
//*           PRTPNL00    -  MEMBERS SELECTION LIST PANEL USED BY   *   FILE 124
//*                          J.PRT, J.PR1, J.PR2, AND THE 3.4       *   FILE 124
//*                          CLISTS PRT, PR1, AND PR2.              *   FILE 124
//*                                                                 *   FILE 124
//*           PR1 (ALIAS) -  3.4 PRINTOFF CLIST, USES SAME OPTIONS  *   FILE 124
//*                          AS J.PR1                               *   FILE 124
//*                                                                 *   FILE 124
//*           PR2 (ALIAS) -  3.4 PRINTOFF CLIST, USES SAME OPTIONS  *   FILE 124
//*                          AS J.PR2                               *   FILE 124
//*                                                                 *   FILE 124
//*           REGEQU      -  MACRO TAKEN FROM CBT TAPE VERSION 259  *   FILE 124
//*                          FILE 270.  USED IN ASSEMBLY OF STACK   *   FILE 124
//*                          PROGRAM.                               *   FILE 124
//*                                                                 *   FILE 124
//*           RESETGDG    -  PROGRAM TO RESET THE LIMIT ON GDG'S.   *   FILE 124
//*                          SEE PROGRAM FOR ADDITIONAL             *   FILE 124
//*                          INFORMATION.  CALLED BY GDGUTIL CLIST. *   FILE 124
//*                                                                 *   FILE 124
//*           SCPANL      -  PROMPTING PANEL FOR USE WITH SCPRT     *   FILE 124
//*                          MACRO.                                 *   FILE 124
//*                                                                 *   FILE 124
//*           SPF         -  WSRCC'S PREPROCESSOR WHICH ALLOCATES   *   FILE 124
//*                          ISPF/PDF FILES AND INVOKES ISPF/PDF.   *   FILE 124
//*                                                                 *   FILE 124
//*           SPFDOC      -  DOCUMENTATION FOR WSRCC'S ISPF/PDF     *   FILE 124
//*                          PREPROCESSOR                           *   FILE 124
//*                                                                 *   FILE 124
//*           STACK       -  STACK PROGRAM AS TAKEN FROM CBT TAPE   *   FILE 124
//*                          259 FILE 270, USED FOR ISPF/PDF XL     *   FILE 124
//*                          (EXIT AND LOGOFF) AND XLN (EXIT AND    *   FILE 124
//*                          LOGON) OPTIONS.                        *   FILE 124
//*                                                                 *   FILE 124
//*           STACKDOC    -  STACK PROGRAM DOCUMENTATION, ALSO AS   *   FILE 124
//*                          TAKEN FROM CBT TAPE VERSION 259, FILE  *   FILE 124
//*                          270.                                   *   FILE 124
//*                                                                 *   FILE 124
//*           WPROFILE    -  SAMPLE MEMBER FOR USE BY WSRCC         *   FILE 124
//*                          ISPF/PDF PREPROCESSOR, ALLOCATES       *   FILE 124
//*                          ISPF/PDF FILES AS USED BY WSRCC        *   FILE 124
//*                          CUSTOMER RATHER THAN AS WSRCC SYSTEMS  *   FILE 124
//*                          PROGRAMMER.                            *   FILE 124
//*                                                                 *   FILE 124
//*           WSRCCEP1    -  THIS PANEL IS CALLED BY ALL OF THE J   *   FILE 124
//*                          COMMANDS (EXCEPT FOR SET), IT DECODES  *   FILE 124
//*                          THE COMMAND'S SELECTION CODE INTO A    *   FILE 124
//*                          FULL DATA SET NAME AND INVOKES THE     *   FILE 124
//*                          WSRCEPCL CLIST TO HANDLE THE REQUESTED *   FILE 124
//*                          COMMAND.                               *   FILE 124
//*                                                                 *   FILE 124
//*                          SEVERAL DATASETS AND SELECTION CODES   *   FILE 124
//*                          ARE CODED INTO THE WSRCCEP1 PANEL AND  *   FILE 124
//*                          DO NOT NEED TO BE ADDED TO EACH        *   FILE 124
//*                          INDIVIDUAL'S SELECTIONS, THEY ARE      *   FILE 124
//*                          FREQUENTLY USED PDS'S:                 *   FILE 124
//*                                                                 *   FILE 124
//*                             CODE         LIBRARY                *   FILE 124
//*                              S1        SYS1.PROCLIB             *   FILE 124
//*                              S2        SYS2.PROCLIB             *   FILE 124
//*                              PA        SYS1.PARMLIB             *   FILE 124
//*                              C2        SYS2.CLISTLIB            *   FILE 124
//*                              TSO       SYS2.TSOPROCS            *   FILE 124
//*                              STC       SYS2.STCPROCS            *   FILE 124
//*                                                                 *   FILE 124
//*           WSRCCLPN    - THIS PANEL IS THE J JUMP COMMAND        *   FILE 124
//*                         SELECTION PANEL.  ALL OF THE COMMAND    *   FILE 124
//*                         OPTIONS ARE ALSO ADDED TO THE ISR=PRIM  *   FILE 124
//*                         PRIMARY PANEL SO YOU DO NOT NEED TO     *   FILE 124
//*                         ENTER J IN FRONT OF EACH OPTION, THIS   *   FILE 124
//*                         PANEL IS MAINLY USED TO SHOW WHICH      *   FILE 124
//*                         FUNCTIONS WORK WITH THE DATA SET NAME   *   FILE 124
//*                         SELECTION CODES.                        *   FILE 124
//*                                                                 *   FILE 124
//*           WSRCEPCL    - THIS IS THE MAIN JUMP COMMAND CLIST.    *   FILE 124
//*                         THIS CLIST IS CALLED BY ALL OF THE J    *   FILE 124
//*                         PANEL OPTIONS (EXCEPT SET) AND IT       *   FILE 124
//*                         INVOKES ALL OF THE J PANEL COMMANDS.    *   FILE 124
//*                                                                 *   FILE 124
//*           WSRCESET    - SELECTION CODE AND DATA SET NAME        *   FILE 124
//*                         SETTING FOR J OPTIONS.  THIS PANEL IS   *   FILE 124
//*                         CALLED BY OPTION J.SET AND IT ALLOWS    *   FILE 124
//*                         YOU TO SET UP SELECTION CODES AND DATA  *   FILE 124
//*                         SET NAMES AND THE PRINTOFF OPTIONS FOR  *   FILE 124
//*                         PR1 AND PR2.                            *   FILE 124
//*                                                                 *   FILE 124
//*           WSRCMDS     - XSPLIT                                  *   FILE 124
//*                         THIS IS AN EXAMPLE OF THE ENTRY IN OUR  *   FILE 124
//*                         ISPCMDS WHICH ALLOWS US TO ENTER        *   FILE 124
//*                         XSPLIT (ABRV. XS) ON ANY COMMAND LINE   *   FILE 124
//*                         AND BRING UP A NEW PRIMARY OPTION       *   FILE 124
//*                         PANEL (ISR=PRIM) ON TOP OF THE CURRENT  *   FILE 124
//*                         ISPF/PDF SCREEN.  YOU CAN THEN DO ANY   *   FILE 124
//*                         ISPF/PDF (ALMOST) OPTIONS AND WHEN YOU  *   FILE 124
//*                         ARE THROUGH YOU ENTER =X AND GO BACK    *   FILE 124
//*                         TO THE SCREEN YOU ENTERED THE XSPLIT    *   FILE 124
//*                         ON.  THIS WORKS SORT OF LIKE AN EXTRA   *   FILE 124
//*                         SPLIT, BUT YOU STILL ONLY HAVE 2        *   FILE 124
//*                         SCREENS TO SWAP BETWEEN.                *   FILE 124
//*                                                                 *   FILE 124
//*           WSRCPRTC    - PDS MEMBER LIST, SELECT, AND PRINTOFF   *   FILE 124
//*                         CLIST.  THIS CLIST IS USED BY OTHER     *   FILE 124
//*                         CLISTS (WSRCEPCL, PRT, AND PRT'S        *   FILE 124
//*                         ALIASES) TO DISPLAY A PDS MEMBER        *   FILE 124
//*                         SELECTION LIST AND THEN PRINTOFF EACH   *   FILE 124
//*                         OF THE MEMBERS SELECTED.                *   FILE 124
//*                                                                 *   FILE 124
//*           TP          - MACRO TAKEN FROM CBT TAPE VERSION 259   *   FILE 124
//*                         FILE 270.  USED IN ASSEMBLY OF STACK    *   FILE 124
//*                         PROGRAM.                                *   FILE 124
//*                                                                 *   FILE 124
//*           XABGN       - MACRO, USED BY SPF PROGRAM TO SET UP    *   FILE 124
//*                         STANDARD LINKAGE AT THE BEGINNING OF    *   FILE 124
//*                         THE PROGRAM.                            *   FILE 124
//*                                                                 *   FILE 124
//*           XAFIN       - MACRO, USED BY SPF PROGRAM TO EXIT AND  *   FILE 124
//*                         FREE UP WORK AREA GETMAINED BY XABGN.   *   FILE 124
//*                                                                 *   FILE 124
//*           XL          - EXIT ISPF AND LOGOFF CLIST              *   FILE 124
//*                         THIS SMALL CLIST ISSUES THE STACK       *   FILE 124
//*                         COMMAND TO STACK A LOGOFF COMMAND, IT   *   FILE 124
//*                         IS CALLED BY OPTION XL IN ISR=PRIM.     *   FILE 124
//*                                                                 *   FILE 124
//*           XLN         - EXIT ISPF AND LOGON CLIST               *   FILE 124
//*                         THIS SMALL CLIST ISSUES THE STACK       *   FILE 124
//*                         COMMAND TO STACK A LOGON COMMAND, IT    *   FILE 124
//*                         IS CALLED BY OPTION XLN IN ISR=PRIM.    *   FILE 124
//*                         THE CLIST DOES A VGET FOR 2 VARIABLES,  *   FILE 124
//*                         XT1 AND XT2.  X1 IS THE LOGON-ID TO BE  *   FILE 124
//*                         LOGGED ON AND XT2 (IF SPECIFIED) IS AN  *   FILE 124
//*                         ALTERNATE LOGON PROC TO BE USED.        *   FILE 124
//*                                                                 *   FILE 124
//***FILE 125 IS FROM THE STATE OF CONNECTICUT AND CONTAINS SEVERAL *   FILE 125
//*           SAS PROGRAMS.  THE FOLLOWING IS A LIST OF MEMBERS IN  *   FILE 125
//*           THIS FILE.                                            *   FILE 125
//*                                                                 *   FILE 125
//*           $$README  IMPORTANT INFORMATION. READ THIS BEFORE     *   FILE 125
//*                     USING.                                      *   FILE 125
//*           $FILE1    INSTRUCTIONS AND JCL TO UNLOAD TAPE         *   FILE 125
//*           $MEMINFO  DOCUMENTATION MEMBER                        *   FILE 125
//*           $SASDOC   SHORT DECRIPTION OF SYSTEM                  *   FILE 125
//*           ALLOCPDS  JCL TO ALLOCATE SOURCE PDS                  *   FILE 125
//*           ALLOCSAS  JCL TO ALLOCATE SAS DATASET                 *   FILE 125
//*           COPYDT    IEBGENER TO COPY SMF/RMF DATA FROM DISK TO  *   FILE 125
//*                     TAPE                                        *   FILE 125
//*           CPTOT     SAS PROGRAM TO READ SUMMARIZED RMF RECORDS  *   FILE 125
//*                     PRODUCED BY CPUT.                           *   FILE 125
//*           CPTOTJ    JCL TO RUN CPTOT IN BATCH.                  *   FILE 125
//*           CPUT      SAS PROGRAM TO READ RMF RECORDS. USED TO    *   FILE 125
//*                     FIND TOTAL UTIL.  OF A PHYSICAL PROCESSOR   *   FILE 125
//*                     COMPLEX.                                    *   FILE 125
//*           CPUTJ     JCL TO RUN CPUT IN BATCH                    *   FILE 125
//*           DOC1      LONG DESRIPTION OF SYSTEM                   *   FILE 125
//*           LOADTP    JCL TO LOAD TAPE WITH INSTRUCTIONS AND PDS  *   FILE 125
//*           RMF70     SAS PROGRAM TO READ RMF TYPE 70 RECS        *   FILE 125
//*           RMF70J    JCL TO RUN RMF70 IN BATCH                   *   FILE 125
//*           RMF70W    SAME AS RMF70 EXCEPT OUTPUT STATEMENTS ARE  *   FILE 125
//*                     DIFFERENT                                   *   FILE 125
//*           RMF70WJ   JCL TO RUN RMF70W IN BATCH                  *   FILE 125
//*           RMF71     SAS PROGRAM TO READ RMF TYPE 71 RECS        *   FILE 125
//*           RMF71J    JCL TO RUN RMF71 IN BATCH                   *   FILE 125
//*           RMF71W    SAME AS RMF71 EXCEPT OUTPUT STATEMENTS ARE  *   FILE 125
//*                     DIFFERENT                                   *   FILE 125
//*           RMF71WJ   JCL TO RUN RMF71W IN BATCH                  *   FILE 125
//*           RMF72     SAS PROGRAM TO READ RMF TYPE 72 RECS        *   FILE 125
//*           RMF72J    JCL TO RUN RMF72 IN BATCH                   *   FILE 125
//*           RMF72W    SAME AS RMF72 EXCEPT OUTPUT STATEMENTS ARE  *   FILE 125
//*                     DIFFERENT                                   *   FILE 125
//*           RMF72WJ   JCL TO RUN RMF72W IN BATCH                  *   FILE 125
//*           SORTWEEK  JCL TO SORT RMF RECORDS                     *   FILE 125
//*           UNLOAD    JCL TO UNLOAD INSTRUCTIONS AND SOURCE PDS   *   FILE 125
//*                     FROM TAPE                                   *   FILE 125
//*           XY9910    ASM PROGRAM TO PULL OFF RMF 70-79 RECORDS   *   FILE 125
//*                     FROM TAPE                                   *   FILE 125
//*           XY9910AS  JCL TO ASSEMBLE/LINK XY9910                 *   FILE 125
//*           XY9910J   JCL TO RUN PROGRAM XY9910                   *   FILE 125
//*                                                                 *   FILE 125
//*           THE MEMBERS BELOW ARE SAS PROGRAMS THAT GRAPH SOME OF *   FILE 125
//*           THE DATA SAVED IN THE SAS DATASET BY RMF70, RMF71,    *   FILE 125
//*           RMF72 AND OTHER DATA REDUCTION PROGRAMS.              *   FILE 125
//*                                                                 *   FILE 125
//*           MEMBER   DESCRIPTION                                  *   FILE 125
//*                                                                 *   FILE 125
//*           BATCH    JCL TO PRINT GRAPHS TO A LOCAL PRINTER(S)    *   FILE 125
//*                    WITHOUT HAVING TO USE TSO.                   *   FILE 125
//*           CPUCPW   2-DIM GRAPH OF AVERAGE CPU UTILIZATION BY    *   FILE 125
//*                    MACHINE. PLOTTED BY DAY, FOR ONE WEEK.       *   FILE 125
//*           CPUNDL   3-DIM GRAPH OF AVERAGE CPU UTILIZATION BY    *   FILE 125
//*                    MACHINE (SCATTER DIAGRAM). EACH RMF INTERVAL *   FILE 125
//*                    IS SHOWN AND GROUPED BY LOW, MED., OR HIGH   *   FILE 125
//*                    CPU UTILIZATION. BEST WHEN PRINTED IN COLOR. *   FILE 125
//*           CPUUT    2-DIM GRAPH OF AVERAGE CPU UTILIZATION BY    *   FILE 125
//*                    MACHINE. PLOTTED BY DAY.                     *   FILE 125
//*           D2BAV    2-DIM GRAPH OF AVERAGE BATCH USERS AND ASIDS *   FILE 125
//*                    OUT/READY. PLOTTED BY DAY.                   *   FILE 125
//*           D2BMM    2-DIM GRAPH OF AVERAGE MAX BATCH USERS.      *   FILE 125
//*           D2CPU    2-DIM GRAPH OF AVERAGE CPU UTILIZATION.      *   FILE 125
//*                    PLOTTED BY DAY.                              *   FILE 125
//*           D2PPS    2-DIM GRAPH OF PAGES PER SECOND.             *   FILE 125
//*                    PLOTTED BY DAY.                              *   FILE 125
//*           D2PPS2   2-DIM GRAPH OF PAGES PER SECOND FOR SYSTEM   *   FILE 125
//*                    2.  PLOTTED BY DAY.                          *   FILE 125
//*           D2PPS3   2-DIM GRAPH OF PAGES PER SECOND FOR SYSTEM   *   FILE 125
//*                    3.  PLOTTED BY DAY.                          *   FILE 125
//*           D2RT2    2-DIM GRAPH OF AVERAGE TSO RESPONSE TIME FOR *   FILE 125
//*                    ALL PERIODS AND ALSO THE AVERAGE. PLOTTED BY *   FILE 125
//*                    DAY.                                         *   FILE 125
//*           D2RT2P1  2-DIM GRAPH OF AVERAGE TSO RESPONSE FOR      *   FILE 125
//*                    PERFORMANCE GROUP 2, PERIOD 1 (TRIVIAL).     *   FILE 125
//*                    CAN BE USED FOR ANY PERFORMANCE GROUP BY     *   FILE 125
//*                    CHANGING THE INPUT. PLOTTED BY DAY.          *   FILE 125
//*           D2RT2H   2-DIM GRAPH OF AVERAGE TSO RESPONSE TIME FOR *   FILE 125
//*                    FIRST PERIOD.  X-AXIS IS 1/2 HOUR INTERVALS  *   FILE 125
//*                    STRUNG OUT BY DAY.  (I.E 9-4 DAY 1, 9-4 DAY  *   FILE 125
//*                    2, ETC.)                                     *   FILE 125
//*           D2TMM    2-DIM GRAPH OF AVERAGE OF MAX TSO USERS      *   FILE 125
//*                    LOGGED ON. PLOTTED BY DAY.                   *   FILE 125
//*           M1HH     SHOWS CPU UTILIZATION (BY MACHINE)           *   FILE 125
//*                    SUMMARIZED BY HOURS. GIVES MAX UTIL FOR 1    *   FILE 125
//*                    HOUR, HIGHEST HOURLY AVERAGE, AND MONTHLY    *   FILE 125
//*                    AVERAGE OF ALL THE HOURS.                    *   FILE 125
//*           PGSECC   3-DIM CONTOUR GRAPH OF PAGES/SEC BY HOUR BY  *   FILE 125
//*                    DAY.  NOT THE GREATEST.                      *   FILE 125
//*           PPS3D    3-DIM GRAPH OF PAGES/SEC BY HOUR BY DAY.     *   FILE 125
//*           PPS3DS   3-DIM SCATTER DIAGRAM OF PAGES/SEC BY HOUR   *   FILE 125
//*                    BY DAY.                                      *   FILE 125
//*           REGCPU   REGRESSION ANALYSIS OF CPU UTILIZATION.      *   FILE 125
//*                    BY DAY.                                      *   FILE 125
//*           RM1CPMAX REGRESSION ANALYSIS OF MAXIMUM CPU           *   FILE 125
//*                    UTILIZATION FOR ONE MACHINE.  BY DAY.        *   FILE 125
//*           RM1CPU   REGRESSION ANALYSIS OF TOTAL CPU UTILIZATION *   FILE 125
//*                    FOR ONE MACHINE.  BY DAY.                    *   FILE 125
//*           REGPPS1  REGRESSION ANALYSIS OF PAGES PER SECOND.     *   FILE 125
//*                    BY DAY.                                      *   FILE 125
//*           RT213D   3-DIM GRAPH OF AVERAGE TSO FIRST PERIOD      *   FILE 125
//*                    RESPONSE TIME.  BY 1/2 HOUR BY DAY.          *   FILE 125
//*                                                                 *   FILE 125
//***FILE 126 IS FROM JAMES GIBSON OF L.L. BEAN IN FREEPORT,        *   FILE 126
//*           MAINE, AND CONTAINS EXITS AND MODIFICATIONS           *   FILE 126
//*           THAT ALLOW:                                           *   FILE 126
//*                                                                 *   FILE 126
//*    email:   jim.gibson@llbean.com                               *   FILE 126
//*                                                                 *   FILE 126
//*           1) AUTO REPLY TO WTOR AND AUTO ISSUE OF COMMANDS      *   FILE 126
//*              FOR WTO OR WTOR BY EXIT IEAVMXIT.  **JOBNAMES      *   FILE 126
//*                                THAT HAVE A + IN FRONT OF        *   FILE 126
//*                                THEIR NAMES, THAT + IS           *   FILE 126
//*                                REALLY AN AT-SIGN **             *   FILE 126
//*              JOBNAME  MEMBER   DESC                             *   FILE 126
//*                       USED                                      *   FILE 126
//*              +SMVMXIT IEAVMXIT WTO EXIT INCLUDES R2D2 AND       *   FILE 126
//*                                PSWD SUPPORT                     *   FILE 126
//*              +SMC3PO  IEEC3PO  SETS TABLE FOR IEAVMXIT          *   FILE 126
//*              +SMC3PO  KEYSCAN  KEYWORD PARSING ROUTINE          *   FILE 126
//*              +SMC3PO  C3POTABL DSECT FOR C3PO TABLE IN CSA      *   FILE 126
//*              +SMC3PO  MSGENT   DSECT FOR ENTRY IN TABLE         *   FILE 126
//*                                                                 *   FILE 126
//*           2) PUTTING PASSWORD'S IN JCL FOR NON-RACF SHOPS       *   FILE 126
//*              JOBNAME  MEMBER   DESC                             *   FILE 126
//*                       USED                                      *   FILE 126
//*              +SM0025B IGC0025B PASSWORD MOD SVC                 *   FILE 126
//*              +SMEXIT8  SMEXIT8 PASSWORD MOD HASPSSSM            *   FILE 126
//*                                UPDATE                           *   FILE 126
//*              +SMEXIT8  SMEXIT8 PASSWORD MOD $HASPEQU            *   FILE 126
//*                                UPDATE                           *   FILE 126
//*              +SMEXIT8 HASPSJ08 PASSWORD MOD JES2 JCT            *   FILE 126
//*                                READ/WRITE EXIT (SSSM)           *   FILE 126
//*              +SMEXIT4 HASPXJ04 PASSWORD MOD JES2 CONTROL        *   FILE 126
//*                                CARD EXIT                        *   FILE 126
//*              +SMEXIT7 HASPXJ07 PASSWORD MOD JES2 JCT            *   FILE 126
//*                                READ/WRITE EXIT (JES2)           *   FILE 126
//*              +ZAPRDPS  ZAPRDPS PASSWORD MOD READPSWD ZAP        *   FILE 126
//*               WTOR    WTOR     A PROGRAM THAT PUTS OUT          *   FILE 126
//*                                REQUESTED WTO'S OR WTOR'S        *   FILE 126
//*                                FOR TESTING OF IEAVMXIT.         *   FILE 126
//*                                                                 *   FILE 126
//*           FOR ADDITIONAL INFORMATION SEE THE MEMBER CALLED      *   FILE 126
//*           $$DOC.  THIS FILE IS IN IEBUPDTE SYSIN FORMAT         *   FILE 126
//*                                                                 *   FILE 126
//*           THIS FILE HAS BEEN UPDATED TO THE MVS/ESA 4.2.0       *   FILE 126
//*           AND DFP 3.3 LEVELS.  THE PREVIOUS VERSION WHICH       *   FILE 126
//*           WAS AT MVS/XA 2.2 IS INCLUDED AS MEMBER $MODS220.     *   FILE 126
//*                                                                 *   FILE 126
//***FILE 127 IS IN IEBUPDTE FORMAT FROM                            *   FILE 127
//*      **FILE 127 REPLACEMENT FROM: CLARK HUNTER                  *   FILE 127
//*      **                           COMPUWARE CORPORATION         *   FILE 127
//*      **                           SOUTHFIELD, MICHIGAN          *   FILE 127
//*      **                           313-540-0900                  *   FILE 127
//*      **                                                         *   FILE 127
//*      **COMMENTS FROM V232 VERSION OF CBT TAPE WITH MY UPDATES:  *   FILE 127
//*                                                                 *   FILE 127
//*      **FILE 127 IS IN IEBUPDTE FORMAT FROM CHRYSLER AND         *   FILE 127
//*                 CONTAINS :                                      *   FILE 127
//*                                                                 *   FILE 127
//*                   1. DASD SEEK ANALYSIS PROGRAM.  THIS          *   FILE 127
//*                   PROGRAM READS IN GTF DATA AND SUMMARIZED      *   FILE 127
//*                   DASD SIO/IO RECORDS.   THIS PROGRAM IS IN     *   FILE 127
//*                   IEBUPDTE SYSIN FORMAT AND REQUIRES THE        *   FILE 127
//*                   VTOC MACROS THAT ARE CONTAINED IN FILE 112    *   FILE 127
//*                                                                 *   FILE 127
//*                        BY DEVICE CALCULATE NUMBER SIO CC = 0-3  *   FILE 127
//*                         TOTAL CYLINDERS SEEKED                  *   FILE 127
//*                         AVERAGE CYLINDERS SEEKED                *   FILE 127
//*                         AVERAGE IO TIME                         *   FILE 127
//*                         MAXIMUM IO TIME OVER RUN                *   FILE 127
//*                   **10JAN85 FIXED FOR XA, MISC PROGRAM BUGS     *   FILE 127
//*                   FIXED                                         *   FILE 127
//*                   2. A SAMPLE IEECVXIT PROGRAM                  *   FILE 127
//*                      **10JAN85 REMOVED DUE TO LACK OF           *   FILE 127
//*                      INTEREST                                   *   FILE 127
//*                   3. SUBROUTINE TO PRODUCE A NICE PRINTABLE     *   FILE 127
//*                      HEADER DATE                                *   FILE 127
//*                   4  TSO CP FOR STANDALONE DIDOCS (DCMS)        *   FILE 127
//*                      AUTO UPDATE                                *   FILE 127
//*                      **10JAN85 REMOVED DUE TO LACK OF           *   FILE 127
//*                      INTEREST                                   *   FILE 127
//*                   5  PROGRAM TO LOCATE, ALLOC, DUMP THE         *   FILE 127
//*                      MVS/SE2 SMF D.S.                           *   FILE 127
//*                      **10JAN85 REMOVED DUE TO LACK OF           *   FILE 127
//*                      INTEREST                                   *   FILE 127
//*                   6  COMPANY USER MODS IN SMP4 FORMAT           *   FILE 127
//*                      **10JAN85 REMOVED DUE TO LACK OF           *   FILE 127
//*                      INTEREST                                   *   FILE 127
//*                   7  SEE NEW STUFF BELOW:                       *   FILE 127
//*                                                                 *   FILE 127
//*      PDS CONTAINS:                                              *   FILE 127
//*                                                                 *   FILE 127
//*       MACROS:  - @ENT @RET @STCK CLEAR CONV ENTER ENTERX        *   FILE 127
//*                  LEAVE MSG PDEDSNAM REGS SYSGET SYSPUT          *   FILE 127
//*                  TSCVDATE VTCALL VTEXCP VTFMT VTOC VTOCMSG      *   FILE 127
//*                  VTOCOM VTOCPARS                                *   FILE 127
//*                                                                 *   FILE 127
//*      $DOC      - DOCUMENTATION FILE                             *   FILE 127
//*                                                                 *   FILE 127
//*      JCL       - SAMPLE JCL USED TO DUMP PDS.                   *   FILE 127
//*                  AND TRY TO CHECK THAT I DIDN'T FORGET ANY      *   FILE 127
//*                  MACROS                                         *   FILE 127
//*                                                                 *   FILE 127
//*      TSGTFMAP  - PGM TO REDUCE GTF SIO/IO TRACE RECORDS.        *   FILE 127
//*                  SEE COMMENTS AT BEGINNING OF PROGRAM FOR       *   FILE 127
//*                  HOW TO RUN.  USES SUBR: TSCVDATE, VTOCEXCP     *   FILE 127
//*                  NOW SUPPORTS XA FORMAT OF GTF RECORDS          *   FILE 127
//*                                                                 *   FILE 127
//*      TSCALL    - TSOCP TO CALL PROGRAMS FROM                    *   FILE 127
//*                  "TASKLIB"/STEPLIB/ LNKLST/LPALIB. IDEA IS      *   FILE 127
//*                  TO NOT USE TSO "CALL" WITH HARDCODED           *   FILE 127
//*                  LOADLIBS THAT HAVE TO BE OPENED.               *   FILE 127
//*                                                                 *   FILE 127
//*      TSCVDAT   - SUBROUTINE TO MAKE NICE PRINTABLE DATE FOR     *   FILE 127
//*                  HEADINGS.                                      *   FILE 127
//*                                                                 *   FILE 127
//*      TSDYNLXA  - PGM XA DYNALIST TO LIST ESOTERIC UNIT NAMES    *   FILE 127
//*                  (NOTE: USES ESTAES TO EXECUTE                  *   FILE 127
//*                  UNAUTHORIZED!!)                                *   FILE 127
//*                                                                 *   FILE 127
//*      TSENQSP3  - TSOCP (AKA $DENQ) SCAN FOR GENERIC SYSDSN      *   FILE 127
//*                  ENQS, LOOK FOR ENQ LOCKOUTS, LOOK FOR          *   FILE 127
//*                  RESERVE ENQS.  (NOTE USES GQSCAN)              *   FILE 127
//*                                                                 *   FILE 127
//*      TSSPACE   - TSO CP TO LIST SPACE, IXVTOC STATUS,           *   FILE 127
//*                  PATH(CHAN/CHPID), LSPACE(FREE) SPACE,          *   FILE 127
//*                  #USERS, DEVTYPE, AND ADDRESS FOR DASD. CAN     *   FILE 127
//*                  ASK FOR ALL DASD WITH LESS THAN N PATHS TO     *   FILE 127
//*                  SEE IF ANY DASD PATHS ARE MISSING.             *   FILE 127
//*                                                                 *   FILE 127
//*      TSSYSTEM  - TSO CP TO SHOW RELEASE, CPUTYPE, CPUSERIAL#,   *   FILE 127
//*                  SYSRES, REAL STORAGE, HOW LONG SINCE           *   FILE 127
//*                  (IPL/SET IPS).                                 *   FILE 127
//*                                                                 *   FILE 127
//*      VTOC      - TSO CP VTOC - FIXED FOR SP3/XA UCBSCAN,        *   FILE 127
//*                  HANDLES 123 EXTENTS WITH DF/EF.  (NOTE I       *   FILE 127
//*                  USE ENTRY VTOCEXCP FOR VTOC READING IN         *   FILE 127
//*                  TSGTFMAP)                                      *   FILE 127
//*                                                                 *   FILE 127
//*      ** EVERYTHING HAS BEEN USED ON SP3 AND XA2.1.1.            *   FILE 127
//*                                                                 *   FILE 127
//***FILE 128 IS FROM THE INFORMATION SYSTEMS DEPARTMENT            *   FILE 128
//*           OF THE CHURCH OF JESUS CHRIST OF LATTER-DAY SAINTS.   *   FILE 128
//*                                                                 *   FILE 128
//*           THIS PDS CONTAINS THREE APPLICATIONS :                *   FILE 128
//*           1) ISPF APPLICATION THAT ALLOWS THE ENTRY OF          *   FILE 128
//*              VTAM COMMANDS AND THE VIEWING OF THE               *   FILE 128
//*              RESULTS.                                           *   FILE 128
//*           2) A MVS/XA (2.2) ACTIVITY DISPLAY (BASED ON          *   FILE 128
//*              CHIMP)                                             *   FILE 128
//*           3) A SYSLOG SCAN FACILITY.  THE SYSLOG SCAN           *   FILE 128
//*              FACILITY HAS BEEN TESTED UNDER MVS/XA 2.1.7        *   FILE 128
//*              AND MVS 2.2.0 WITH JES2 2.1.5.  ANY OTHER          *   FILE 128
//*              RELEASES OF MVS OR JES2 MAY REQUIRE PROGRAM        *   FILE 128
//*              MODIFICATIONS AS THE PROGRAM IS DEPENDENT ON       *   FILE 128
//*              MESSAGE NUMBERS.  SEE MEMBER UT017DOC FOR          *   FILE 128
//*              MORE DETAILS.                                      *   FILE 128
//*                                                                 *   FILE 128
//*                 ******************************************      *   FILE 128
//*                 ***                                    ***      *   FILE 128
//*                 *** SUMMARY OF THE MEMBERS IN THIS PDS ***      *   FILE 128
//*                 ***                                    ***      *   FILE 128
//*                 ******************************************      *   FILE 128
//*                                                                 *   FILE 128
//*             ACT                                                 *   FILE 128
//*                MVS ACTIVITY DISPLAY.                            *   FILE 128
//*             APPLVTAM                                            *   FILE 128
//*                OUR VTAMLST MEMBER FOR THE VTAM/ISPF             *   FILE 128
//*                COMMAND FACILITY.                                *   FILE 128
//*             SP1TC014                                            *   FILE 128
//*                THE PROGRAM (ASSEMBLER) FOR THE VTAM/ISPF        *   FILE 128
//*                COMMAND FACILITY.  IT ALLOWS THE ENTRY OF        *   FILE 128
//*                VTAM COMMANDS WITH THE RECEIPT OF THE            *   FILE 128
//*                RESPONSES.  IT HAS MANY SHORT CUTS - "R          *   FILE 128
//*                NODENAME" TO DO A "V                             *   FILE 128
//*                NET,INACT,R,ID=NODENAME" FOR EXAMPLE.            *   FILE 128
//*             SP1UT017                                            *   FILE 128
//*                THE SYSLOG SCAN PROGRAM.                         *   FILE 128
//*             SP1VO00                                             *   FILE 128
//*                THE ISPF PANEL FOR THE VTAM/ISPF COMMAND         *   FILE 128
//*                FACILITY.                                        *   FILE 128
//*             SP1VO00A                                            *   FILE 128
//*                THE ISPF HELP PANEL FOR THE VTAM/ISPF            *   FILE 128
//*                COMMAND FACILITY.                                *   FILE 128
//*             SP10                                                *   FILE 128
//*                THE ISPF MESSAGES MEMBER FOR THE VTAM/ISPF       *   FILE 128
//*                COMMAND FACILITY.                                *   FILE 128
//*             SYSENTER                                            *   FILE 128
//*                A VERY GENERAL PURPOSE ASSEMBLER PROGRAM         *   FILE 128
//*                ENTRY MACRO.  IT SUPPORTS BOTH REENTRANT         *   FILE 128
//*                AND NON-REENTRANT PROGRAMS AND WILL ALSO         *   FILE 128
//*                GETMAIN YOUR WORK AREA ALONG WITH YOUR           *   FILE 128
//*                SAVE AREA.  SEE THE INTERNAL DOCUMENTATION       *   FILE 128
//*                FOR MORE DETAILS.  USED BY BOTH SP1TC014         *   FILE 128
//*                AND SP1UT017.                                    *   FILE 128
//*             SYSRETRN                                            *   FILE 128
//*                THE RETURN MACRO CORRESPONDING TO                *   FILE 128
//*                SYSENTER.  IT USES GLOBAL VARIABLES SET IN       *   FILE 128
//*                SYSENTER TO DETERMINE WHETHER OR NOT TO          *   FILE 128
//*                FREEMAIN THE SAVE AND WORK AREAS.  SEE THE       *   FILE 128
//*                INTERNAL DOCUMENTATION FOR MORE DETAILS.         *   FILE 128
//*             UT017DOC                                            *   FILE 128
//*                DOCUMENTATION (FBA FORMAT) FOR THE SYSLOG        *   FILE 128
//*                SCAN FACILITY.                                   *   FILE 128
//*                                                                 *   FILE 128
//***FILE 129 is from James Erwin of MCRB Service Bureau, Inc.      *   FILE 129
//*           and contains a modification to allow for shared       *   FILE 129
//*           DASD CKPT.  This is at various OS/390 levels.         *   FILE 129
//*                                                                 *   FILE 129
//***FILE 130 IS FROM SOUTHWESTERN PUBLIC SERVICE COMPANY           *   FILE 130
//*           OF AMARILLO, TEXAS AND CONTAINS THE FOLLOWING         *   FILE 130
//*           UTILITY PROGRAMS FROM THEM IN IEBUPDTE SYSIN          *   FILE 130
//*           FORMAT                                                *   FILE 130
//*                                                                 *   FILE 130
//*           BLGS11    CREATES VERSION 2 INFO/SYS SESSION          *   FILE 130
//*                     PARAMETER WITH THE CBTMODS INFO/MVS         *   FILE 130
//*                     DATABASE AS FILE 1 (SE =1).                 *   FILE 130
//*                                                                 *   FILE 130
//*           CBT$      INSTRUCTIONS FOR INSTALLING THE VERSION 2   *   FILE 130
//*                     CBTMODS INFO/MVS DATABASE.                  *   FILE 130
//*                                                                 *   FILE 130
//*           CBTAMS    IDCAMS DELETE AND DEFINE OF THE VERSION 2   *   FILE 130
//*                     CBTMODS INFO/MVS SDDS AND SDIDS FILES AND   *   FILE 130
//*                     INITIALIZATION BY THE BLGUT2 UTILITY.       *   FILE 130
//*                                                                 *   FILE 130
//*           CBTBLD    USES THE BLGOZUD UTILITY TO BUILD THE       *   FILE 130
//*                     VERSION 2 CBTMODS INFO/MVS DATABASE.        *   FILE 130
//*                                                                 *   FILE 130
//*           CBTOZD    PL/I PROGRAM THAT READS FILE 001 OF THE     *   FILE 130
//*                     CBT MODS TAPE AND CREATES AN INPUT FILE     *   FILE 130
//*                     FOR THE BLGOZUD UTILITY.                    *   FILE 130
//*                                                                 *   FILE 130
//*           CDF       CONSOLE DISPLAY FACILITY -  THIS VERSION    *   FILE 130
//*                     WORKED UNCHANGED UNDER MVS/SP 1.3.4 AT AN   *   FILE 130
//*                     8409 LEVEL AND MVS/XA 2.1.3 AT AN 8509      *   FILE 130
//*                     LEVEL.                                      *   FILE 130
//*                                                                 *   FILE 130
//*           CDF$      INSTALLATION INSTRUCTIONS FOR THE CONSOLE   *   FILE 130
//*                     DISPLAY FACILITY                            *   FILE 130
//*                                                                 *   FILE 130
//*           CDFDATAB  PANEL FOR THE CONSOLE DISPLAY FACILITY      *   FILE 130
//*                                                                 *   FILE 130
//*           CDFHELP   HELP PANEL FOR THE CONSOLE DISPLAY          *   FILE 130
//*                     FACILITY                                    *   FILE 130
//*                                                                 *   FILE 130
//*           CDF00     MESSAGES FOR THE CONSOLE DISPLAY FACILITY   *   FILE 130
//*                                                                 *   FILE 130
//*           IGC0023E  ISPF AUTHORIZATION SVC.  YOU CAN'T CALL     *   FILE 130
//*                     ISPF SERVICES FROM AN AUTHORIZED PROGRAM    *   FILE 130
//*                     (BELIEVE ME - I TRIED IT).                  *   FILE 130
//*                                                                 *   FILE 130
//*           INFOMGT   TSO CLIST DRIVER FOR INFORMATION/SYSTEM     *   FILE 130
//*                     DIALOG                                      *   FILE 130
//*                                                                 *   FILE 130
//*           INFOMGTP  PANEL FOR INFOMATION/SYSTEM DIALOG          *   FILE 130
//*                                                                 *   FILE 130
//*           IN00      MESSAGES FOR INFORMATION/SYSTEM DIALOG      *   FILE 130
//*                                                                 *   FILE 130
//*           ISR@PRIM  EXAMPLE PRIMARY OPTIONS MENU                *   FILE 130
//*                                                                 *   FILE 130
//***FILE 131 IS FROM BOB SIRKIS OF BRIDGESTONE SOFTWARE OF         *   FILE 131
//*           TENNESSEE.  THIS FILE CONTAINS 2 EXITS, ONE IS AN     *   FILE 131
//*           SAR SECURITY USER EXIT, THE OTHER IS AN AUTO RESTORE  *   FILE 131
//*           EXIT FOR DMS/OS                                       *   FILE 131
//*                                                                 *   FILE 131
//***FILE 132 IS FROM FIRST NATIONWIDE BANK OF DALY CITY, CA        *   FILE 132
//*           THIS FILE CONTAINS SEVERAL UTILITIES FROM MR          *   FILE 132
//*           GEORGE L. RAMAS.  THIS FILE IS IN IEBUPDTE SYSIN      *   FILE 132
//*           FORMAT.                                               *   FILE 132
//*                                                                 *   FILE 132
//*                A.  DAYTIMER  THIS CLIST IS TO NOTIFY YOU        *   FILE 132
//*                    OF CALENDAR APPOINTMENTS. YOU CAN ADD TO     *   FILE 132
//*                    YOUR CALENDAR FOR AN APPOINTMENT LATER TODAY *   FILE 132
//*                    OR FUTURE DATES                              *   FILE 132
//*                                                                 *   FILE 132
//*                B.  PSUTABND  THIS UTILITY IS USED TO HALT       *   FILE 132
//*                    PROCESSING IN A PROCEDURE IF A SELECTED      *   FILE 132
//*                    CONDITION CODE IS RECEIVED.                  *   FILE 132
//*                                                                 *   FILE 132
//*                C.  PSUTDUMP  THIS UTILITY IS A SUPER IEBGENER.  *   FILE 132
//*                    IT WILL ALLOW YOU TO HAVE UP TO 99 INPUTS    *   FILE 132
//*                    AND 99 OUTPUTS.                              *   FILE 132
//*                                                                 *   FILE 132
//*                D.  PSUTGDG   THIS PROGRAM IS USED TO LIST THE   *   FILE 132
//*                    NUMBER OF GDG ENTRIES FOR A SELECT GROUP OF  *   FILE 132
//*                    DATA SETS OR NODE LEVEL.  IT SELECTS CERTAIN *   FILE 132
//*                    FIELDS FROM AN IDCAMS LISTCAT OUTPUT.        *   FILE 132
//*                                                                 *   FILE 132
//*                E.  YREGS     REGISTER EQUATE MACRO              *   FILE 132
//*                                                                 *   FILE 132
//***FILE 133 IS FROM ALAN C FIELD OF SUPER VALU INC. AND CONTAINS  *   FILE 133
//*           SEVERAL OF THEIR UTILITIES,  THIS FILE IS IN IEBUPDTE *   FILE 133
//*           SYSIN FORMAT AND CONTAINS THE FOLLOWING MEMBERS       *   FILE 133
//*                                                                 *   FILE 133
//*           CLIST    - SOME CLISTS TO DEMONSTRATE THE USE OF SOME *   FILE 133
//*                      OF THE UTILITIES INCLUDED IN THIS FILE.    *   FILE 133
//*                                                                 *   FILE 133
//*           CNTL     - JCL TO RUN SOME OF THE UTILITIES INCLUDED  *   FILE 133
//*                      IN THIS FILE.                              *   FILE 133
//*                                                                 *   FILE 133
//*           ASM      - ASSEMBLER LANGUAGE SOURCE FOR SOME USEFUL  *   FILE 133
//*                      UTILITIES.                                 *   FILE 133
//*                                                                 *   FILE 133
//*                 CPCMD    - ENABLES MVS USERS RUNNING UNDER VM   *   FILE 133
//*                            TO ISSUE CP COMMANDS AND GET THE     *   FILE 133
//*                            RESPONSES BACK AT THEIR TSO          *   FILE 133
//*                            TERMINAL.  CAN ALSO EXECUTED AS A    *   FILE 133
//*                            BATCH PROGRAM OR STARTED TASK.       *   FILE 133
//*                            LINK IT WITH AN ALIAS OF CP.  ON     *   FILE 133
//*                            TSO THEN ENTER CP Q DASD FOR         *   FILE 133
//*                            EXAMPLE, OR CP ATT 58A MVS.          *   FILE 133
//*                                                                 *   FILE 133
//*                 DASDSUB  - GET DASD DEVICE INFORMATION FROM     *   FILE 133
//*                            UCB. (USED BY SVTOC IN PLI.)         *   FILE 133
//*                                                                 *   FILE 133
//*                 DISASM3B - THE SVC TABLE FROM THE               *   FILE 133
//*                            DISASSEMBLER ON THE CBT TAPE.        *   FILE 133
//*                            MODIFIED FOR MVSXA AND COPIED INTO   *   FILE 133
//*                            SVCTAB.                              *   FILE 133
//*                                                                 *   FILE 133
//*                 DSSLVL   - DISPLAY CURRENT DF/DSS PROGRAM       *   FILE 133
//*                            LEVEL.                               *   FILE 133
//*                                                                 *   FILE 133
//*                 JULSUB   - DATE CONVERSION SUBROUTINE.          *   FILE 133
//*                                                                 *   FILE 133
//*                 LASTCLPA - COMMAND TO DISPLAY DATE AND TIME     *   FILE 133
//*                            OF LAST CLPA. A COMPANION PROGRAM    *   FILE 133
//*                            TO LASTIPL WHICH IS ON THE CBT       *   FILE 133
//*                            TAPE.                                *   FILE 133
//*                                                                 *   FILE 133
//*                 LNKLST   - DISPLAY NAMES OF LINKLST DATASETS    *   FILE 133
//*                            CURRENTLY IN USE.                    *   FILE 133
//*                                                                 *   FILE 133
//*                 RACFDS   - DISPLAY DATA ABOUT THE RACF          *   FILE 133
//*                            DATASET(S) IN USE.                   *   FILE 133
//*                                                                 *   FILE 133
//*                 SMFDS    - DISPLAY DATA ABOUT CURRENT SMF       *   FILE 133
//*                            DATASET USAGE.                       *   FILE 133
//*                                                                 *   FILE 133
//*                 SVCTAB   - PROGRAM TO DISPLAY SVCTABLE.         *   FILE 133
//*                                                                 *   FILE 133
//*                 TODCN    - PROGRAM TO CONVERT TIMESTAMPS INTO   *   FILE 133
//*                            REAL DATES AND TIMES.                *   FILE 133
//*                                                                 *   FILE 133
//*                 VSAMNAME - CONVERT AND DISPLAY 'REAL' DATASET   *   FILE 133
//*                            NAMES ASSIGNED BY VSAM FOR PAGE,     *   FILE 133
//*                            MAN ETC.                             *   FILE 133
//*                                                                 *   FILE 133
//*           MACROS   - MACROS NECESSARY TO ASSEMBLE SOURCE IN     *   FILE 133
//*                      MEMBER ASM.                                *   FILE 133
//*                                                                 *   FILE 133
//*           PLI      - A PL/I UTILITY TO SORT IEHLIST LISTVTOC    *   FILE 133
//*                      OUTPUT INTO ADDRESS ORDER.                 *   FILE 133
//*                                                                 *   FILE 133
//***FILE 134 IS FROM MR GREG PRICE OF PRYCROFT SIX                 *   FILE 134
//*           IN MELBOURNE,  VICTORIA,  AUSTRALIA.                  *   FILE 134
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT AND CONTAINS    *   FILE 134
//*           THE FOLLOWING :                                       *   FILE 134
//*                                                                 *   FILE 134
//*           $$IEFU83 - IEFU83 EXIT PACKAGE WITH MPF EXITS.        *   FILE 134
//*                      SHOWS I/O COUNTS ETC. IN JOB MESSAGES.     *   FILE 134
//*                                                                 *   FILE 134
//*           $$TSDDOC - DOCUMENTATION FOR THE $SPACE AND $LISTC    *   FILE 134
//*                      TSO COMMANDS FROM THE SECV.                *   FILE 134
//*                                                                 *   FILE 134
//*           $$CRYPT  - OBJECT DECK OF $ENCRYPT AND $DECRYPT TSO   *   FILE 134
//*                      COMMANDS FROM THE SECV.                    *   FILE 134
//*                                                                 *   FILE 134
//*           $FREEAL# - TSO HELP FOR $FREEALL.                     *   FILE 134
//*                                                                 *   FILE 134
//*           $FREEALL - ONE OF THE MANY 'FREE ALL'-LIKE COMMANDS.  *   FILE 134
//*                      THIS ONE HAS TERMINAL AND NON-TERMINAL     *   FILE 134
//*                      DDNAME EXEMPTION LISTS.  READ THE TSO      *   FILE 134
//*                      HELP MEMBER TO GET THE FEEL OF IT.         *   FILE 134
//*                                                                 *   FILE 134
//*           $HBLIST  - LIST HSM BACKUP DETAILS FOR DATA SETS BY   *   FILE 134
//*                      LEADING CHARACTER STRING.  IT EVEN WORKS   *   FILE 134
//*                      WHEN HSM IS DOWN, UNLIKE HLIST.  REQUIRES  *   FILE 134
//*                      RACF READ ACCESS TO THE HSM BCDS.          *   FILE 134
//*                                                                 *   FILE 134
//*           $HBLIST# - TSO HELP FOR $HBLIST.                      *   FILE 134
//*                                                                 *   FILE 134
//*           $HMLIST  - SIMILAR TO $HBLIST EXCEPT FOR HSM MIGRATED *   FILE 134
//*                      DATA SETS.  ALSO WORKS WHEN HSM IS DOWN.   *   FILE 134
//*                      REQUIRES RACF READ ACCESS TO THE HSM MCDS. *   FILE 134
//*                                                                 *   FILE 134
//*           $HMLIST# - TSO HELP FOR $HMLIST.                      *   FILE 134
//*                                                                 *   FILE 134
//*           $HMLISTW - SAME AS $HMLIST EXCEPT THAT DETAIL FORMAT  *   FILE 134
//*                      HAS MORE ITEMS TO BE 120 BYTES WIDE.       *   FILE 134
//*                                                                 *   FILE 134
//*           $INSTALL - JCL FOR ASSEMBLING $LISTC/$SPACE - SEE     *   FILE 134
//*                      $$TSDDOC.                                  *   FILE 134
//*                                                                 *   FILE 134
//*           $LISTC   - TSO HELP FOR $LISTC.                       *   FILE 134
//*                                                                 *   FILE 134
//*           $LISTM   - CLIST FOR INVOKING $LISTX IN AN SPF        *   FILE 134
//*                      ENVIRONMENT OR FROM TSO READY.             *   FILE 134
//*                                                                 *   FILE 134
//*           $LISTX   - LEX EREMIN'S FULLSCREEN VERSION OF         *   FILE 134
//*                      LISTMEM.  VALID MEMBER SELECTION CODES ARE *   FILE 134
//*                      'D' TO DELETE, 'R' TO RENAME (ANY          *   FILE 134
//*                      CHARACTER ON THE KEYBOARD OTHER THAN SPACE *   FILE 134
//*                      MAY BE USED IN THE NEW MEMBER NAME), 'E'   *   FILE 134
//*                      TO EDIT, 'B' TO BROWSE.  'L' FOR LOCATE,   *   FILE 134
//*                      'N' FOR DIRECTORY REFRESH, AND MEMBER      *   FILE 134
//*                      COMMANDS ARE VALID FROM PRIMARY INPUT      *   FILE 134
//*                      AREA.  PF7/19/8/20 FOR SCROLLING.  PF3/15  *   FILE 134
//*                      TO EXIT AND TO CANCEL A RENAME BEFORE THE  *   FILE 134
//*                      NEW NAME IS ENTERED.  'MAX' UP AND DOWN    *   FILE 134
//*                      ARE ALSO ALLOWED.                          *   FILE 134
//*                                                                 *   FILE 134
//*           $SPACE   - TSO HELP FOR $SPACE.                       *   FILE 134
//*                                                                 *   FILE 134
//*           $SP3MODS - MEMBER CONTAINING MVS AND RELATED PRODUCT  *   FILE 134
//*                      USERMODS IN IEBUPDTE/PDSLOAD INPUT FORMAT. *   FILE 134
//*                      THESE ARE AT THE SP3 LEVEL.  INCLUDED ARE  *   FILE 134
//*                      JES2 EXITS FOR MAX COND CODE REPORTING IN  *   FILE 134
//*                      THE NOTIFY MESSAGE, SDSF MOD TO SHOW NJE   *   FILE 134
//*                      AND "AWAITING OUTPUT" QUEUES IN 'SDSF I'   *   FILE 134
//*                      BY DEFAULT, MOD TO STOP TSO TEST 'LIST I'  *   FILE 134
//*                      STOPPING AT BAD OPCODE, MPF EXIT TO TELL   *   FILE 134
//*                      TSO USER OF ALLOCATED DATA SET THAT BATCH  *   FILE 134
//*                      JOB IS WAITING FOR, MOD TO GET SYSIN AND   *   FILE 134
//*                      SYSOUT DD I/O COUNT IN TCT AND SMF DD      *   FILE 134
//*                      LEVEL STATISTICS, AND RELATED SAMPLE       *   FILE 134
//*                      PARMLIB MEMBERS.                           *   FILE 134
//*                                                                 *   FILE 134
//*           $SP4MODS - MEMBER CONTAINING MVS AND RELATED PRODUCT  *   FILE 134
//*                      USERMODS IN IEBUPDTE/PDSLOAD INPUT FORMAT. *   FILE 134
//*                      THE MODS ARE THE SAME AS IN $SP3MODS, BUT  *   FILE 134
//*                      HAVE BEEN UPDATED TO THE SP4 LEVEL.  THIS  *   FILE 134
//*                      COPY OF 'MSG2USER' IS GOOD FOR ALL LEVELS. *   FILE 134
//*                                                                 *   FILE 134
//*           $43MODS  - SOME BITS OF $SP4MODS UPDATED FOR SP4.3.   *   FILE 134
//*                                                                 *   FILE 134
//*           #PDSTBL  - MEMBER FOR PDS 8.3 AND PDS 8.4 COPIED FROM *   FILE 134
//*                      CBT FILE 182 AND UPDATED SO 'REVIEW :'     *   FILE 134
//*                      AND 'PRINTOFF :' PROCESS THE WHOLE DATA    *   FILE 134
//*                      SET ONCE, RATHER THAN EACH MEMBER          *   FILE 134
//*                      INDIVIDUALLY.  GOES WITH MEMBER @PRINTO.   *   FILE 134
//*                                                                 *   FILE 134
//*           @PRINTO  - MEMBER FOR PDS 8.3 AND PDS 8.4 COPIED FROM *   FILE 134
//*                      CBT FILE 182 AND UPDATED SO 'REVIEW :'     *   FILE 134
//*                      AND 'PRINTOFF :' PROCESS THE WHOLE DATA    *   FILE 134
//*                      SET ONCE, RATHER THAN EACH MEMBER          *   FILE 134
//*                      INDIVIDUALLY.  GOES WITH MEMBER #PDSTBL.   *   FILE 134
//*                                                                 *   FILE 134
//*           ABEND    - FAMOUS TSO HELP.  LIFTED FROM CBT MODS     *   FILE 134
//*                      FILE OF SHARE TAPE BUT HAS HAD SEVERAL     *   FILE 134
//*                      HUNDRED LINES ADDED TO IT.                 *   FILE 134
//*                                                                 *   FILE 134
//*           ANIM1-7  - SAMPLE ANIMATION BY CRAIG H???????.        *   FILE 134
//*                      INCLUDED HERE IN THE HOPE THAT IT WILL     *   FILE 134
//*                      INSPIRE SOMEONE TO PRODUCE A FULL-LENGTH   *   FILE 134
//*                      ANIMATION FEATURE FOR 3270 WITH VECTOR     *   FILE 134
//*                      GRAPHICS.                                  *   FILE 134
//*                                                                 *   FILE 134
//*           CLRSCRN  - OBJECT DECK OF ASSEMBLER SUBROUTINE OF     *   FILE 134
//*                      "PROGRAM" INCLUDED FOR COMPLETENESS.       *   FILE 134
//*                                                                 *   FILE 134
//*           CONCAT$  - JCL TO ASSEMBLE CONCATEM.                  *   FILE 134
//*                                                                 *   FILE 134
//*           CONCAT#  - TSO HELP FOR CONCAT.                       *   FILE 134
//*                                                                 *   FILE 134
//*           CONCATEM - FUNCTIONING REENTRANT VERSION OF THE       *   FILE 134
//*                      CONCAT TSO COMMAND FROM FILE 270.          *   FILE 134
//*                                                                 *   FILE 134
//*           CUBE     - STATIC VECTOR GRAPHICS SAMPLE BY THE SAME  *   FILE 134
//*                      CONTRIBUTOR AS ANIM1 ETC.                  *   FILE 134
//*                                                                 *   FILE 134
//*           DATABASE - INPUT DECK TO PROGRAM.                     *   FILE 134
//*                                                                 *   FILE 134
//*           DCPU     - PROGRAM TO DISPLAY CPU UTILIZATION AT OS   *   FILE 134
//*                      CONSOLE OR TSO TERMINAL.  PROGRAM          *   FILE 134
//*                      PARAMETER CAN BE USED TO CONTROL DURATION  *   FILE 134
//*                      OF SAMPLE.  CAN BE HANDY TO INSTALL AS A   *   FILE 134
//*                      STARTED TASK ON A SYSTEM WITHOUT MUCH      *   FILE 134
//*                      THIRD PARTY STUFF SO OPERATOR/SYSPROG CAN  *   FILE 134
//*                      SEE WHO IS HOGGING THE CPU WHEN TSO        *   FILE 134
//*                      RESPONSE DIES.  MAKE MAKE SURE YOU GIVE    *   FILE 134
//*                      THE STARTED TASK HIGH PRIORITY IN YOUR     *   FILE 134
//*                      ICS.  I/O CODE PINCHED FROM                *   FILE 134
//*                      DJOBS/DTSO/DDASD/DTAPES OR SOME SUCH.      *   FILE 134
//*                      SUPPORTS MVS/XA AND MVS/ESA.               *   FILE 134
//*                                                                 *   FILE 134
//*           DCS      - THE DEFINE CONSTANTS FOR SCREEN MACRO USED *   FILE 134
//*                      BY REVIEW AND ENHANCED A BIT TO SUPPORT    *   FILE 134
//*                      EXTENDED COLOURS AND HIGHLIGHTING.  HANDY  *   FILE 134
//*                      FOR ANY 3270 FULLSCREEN PROGRAMMING.       *   FILE 134
//*                                                                 *   FILE 134
//*           DDASD    - XA ONLY VERSION OF THE DDASD COMMAND       *   FILE 134
//*                      LIFTED FROM SOME SHARE TAPE IN 1981.       *   FILE 134
//*                      UPDATED TO WORK ON BOTH RELEASE 1 AND 2 OF *   FILE 134
//*                      MVS/XA (2.1.X AND 2.2.0).  WORKS OKAY ON   *   FILE 134
//*                      MVS/ESA.  NOW UPDATED FOR SP4.             *   FILE 134
//*                                                                 *   FILE 134
//*           DECDATE  - ASSEMBLER SUBROUTINES OF PROGRAM.          *   FILE 134
//*                                                                 *   FILE 134
//*           DECIDER  - CLIST FOR VOCATIONAL GUIDANCE.             *   FILE 134
//*                                                                 *   FILE 134
//*           DIVER    - TSO TPUT PROGRAM WRITTEN BY STEVE BEER.    *   FILE 134
//*                      IT USES EXTENDED COLOUR AND GRAPHICS       *   FILE 134
//*                      ESCAPE.                                    *   FILE 134
//*                                                                 *   FILE 134
//*           DIVEROBJ - OBJECT DECK OF DIVER PREVIOUSLY SHIPPED    *   FILE 134
//*                      AS MEMBER 'DIVER'.  X'0A23' AT OFFSET      *   FILE 134
//*                      X'38' HAS BEEN ZAPPED TO X'0A32'.          *   FILE 134
//*                                                                 *   FILE 134
//*           DUPTIME  - TSO COMMAND OR BACKGROUND PROGRAM TO       *   FILE 134
//*                      DISPLAY UP-TIME (TIME SINCE LAST IPL).     *   FILE 134
//*                      IF A JOB NAME IS SUPPLIED AS AN OPERAND    *   FILE 134
//*                      OR PROGRAM PARAMETER THEN THE ADDRESS      *   FILE 134
//*                      SPACE TRANSACTION RESIDENT TIME IS SHOWN.  *   FILE 134
//*                      FOR NON-SWAPPABLE TASKS OR JOBS THIS IS    *   FILE 134
//*                      THE UP-TIME SO YOU CAN TELL HOW LONG DB2   *   FILE 134
//*                      OR IMS HAS BEEN UP.  USE AN ASTERISK TO    *   FILE 134
//*                      PROCESS ALL ACTIVE ADDRESS SPACES.         *   FILE 134
//*                                                                 *   FILE 134
//*           DYNALC   - HANDY DYNAMIC ALLOCATION MACRO FROM BRUCE  *   FILE 134
//*                      BORDONARO.  USED BY ZAP.                   *   FILE 134
//*                                                                 *   FILE 134
//*           EDBOX    - DAVID PRICE EDIT MACRO FOR 3278T SUPPORT.  *   FILE 134
//*                                                                 *   FILE 134
//*           EDICAT   - ISPF EDIT MACRO FOR LISTICAT OUTPUT -      *   FILE 134
//*                      PART OF THE PACKAGE IN LISTICAT.           *   FILE 134
//*                                                                 *   FILE 134
//*           EDPRT    - DAVID PRICE EDIT MACRO FOR 3278T SUPPORT.  *   FILE 134
//*                                                                 *   FILE 134
//*           EDUNBOX  - DAVID PRICE EDIT MACRO FOR 3278T SUPPORT.  *   FILE 134
//*                                                                 *   FILE 134
//*           EDUNPRT  - DAVID PRICE EDIT MACRO FOR 3278T SUPPORT.  *   FILE 134
//*                                                                 *   FILE 134
//*           EDVIO    - CLIST TO SPF EDIT THE TEMPORARY ISPCTL     *   FILE 134
//*                      FILE.  MANY DIALOGS LIKE SMPE GIVE THE     *   FILE 134
//*                      OPPORTUNITY TO EDIT/BROWSE/ SUBMIT THE     *   FILE 134
//*                      GENERATED JCL.  SUBMIT (BEING *REAL* TSO)  *   FILE 134
//*                      HAS NO PROBLEM BUT EDIT/BROWSE DOES NOT    *   FILE 134
//*                      SUPPORT VIO.  BROWSE IS EASILY REPLACED BY *   FILE 134
//*                      REVIEWING THE DDNAME.  THIS CLIST (TO BE   *   FILE 134
//*                      INVOKED FROM THE PRIMARY COMMAND AREA OF   *   FILE 134
//*                      THE APPROPRIATE SPLIT SCREEN) ALLOWS FINAL *   FILE 134
//*                      EDITING BEFORE JOB SUBMISSION.  WRITTEN    *   FILE 134
//*                      BY TONY WATSON.                            *   FILE 134
//*                                                                 *   FILE 134
//*           FLAG     - STATIC VECTOR GRAPHICS SAMPLE BY C.H.      *   FILE 134
//*                                                                 *   FILE 134
//*           FSHELP   - FULLSCREEN TSO HELP COMMAND - AN ALIAS     *   FILE 134
//*                      OF 'REVIEW'.  SEE MEMBER 'REVINST' FOR     *   FILE 134
//*                      INSTALLATION DETAILS.  PREFERRED NAME OF   *   FILE 134
//*                      'HEL' BY SOME.  'FSH' FOR SHORT.           *   FILE 134
//*                                                                 *   FILE 134
//*           FSHELP#  - TSO HELP FOR FSHELP.  SEE MEMBER REVINST.  *   FILE 134
//*                                                                 *   FILE 134
//*           GE2      - TPUT PROGRAM (CARD GAME PROTOTYPE).        *   FILE 134
//*                                                                 *   FILE 134
//*           GRPSTR   - TSO COMMAND FOR WITHIN CLISTS ONLY.        *   FILE 134
//*                      RETURNS THE RACF GROUP NAME INTO A CLIST   *   FILE 134
//*                      VARIABLE CALLED &GRPSTR.                   *   FILE 134
//*                                                                 *   FILE 134
//*           HEL      - FULLSCREEN TSO HELP COMMAND - AN ALIAS     *   FILE 134
//*                      OF 'REVIEW'.  SEE MEMBER 'REVINST' FOR     *   FILE 134
//*                      INSTALLATION DETAILS.                      *   FILE 134
//*                                                                 *   FILE 134
//*           HEL#     - TSO HELP FOR HEL.                          *   FILE 134
//*                                                                 *   FILE 134
//*           IEFUJI   - SMF EXIT FOR JOB ACCOUNTING.  HANDLES      *   FILE 134
//*                      STARTED TASKS SO STEP ACCOUNTING IS        *   FILE 134
//*                      NOT NEEDED.  (ACF2 IN THIS EXAMPLE.)       *   FILE 134
//*                                                                 *   FILE 134
//*           IEFUJV   - SMF EXIT FOR JOB ACCOUNTING.  HANDLES      *   FILE 134
//*                      STARTED TASKS SO STEP ACCOUNTING IS        *   FILE 134
//*                      NOT NEEDED.  GOES WITH IEFUJI ABOVE.       *   FILE 134
//*                                                                 *   FILE 134
//*           IKJEFF10 - TSO SUBMIT EXIT FROM CBT FILE 369.         *   FILE 134
//*                      SEE MEMBER $$INDEX9 FOR DISCUSSION.        *   FILE 134
//*                                                                 *   FILE 134
//*           IKJEFF53 - TSO FIB EXIT FROM IBM IPO.                 *   FILE 134
//*                      SEE MEMBER $$INDEX9 FOR DISCUSSION.        *   FILE 134
//*                                                                 *   FILE 134
//*           IMAGE1-2 - STATIC VECTOR GRAPHICS SAMPLE BY C.H.      *   FILE 134
//*                      PRODUCING NON-STANDARD COLOURS.            *   FILE 134
//*                                                                 *   FILE 134
//*           IMSSIGN  - USERMOD FOR IMS V3R1.  CAN EASILY BE       *   FILE 134
//*                      REWORKED FOR IMS V4.  IMS TYPES SHOULD     *   FILE 134
//*                      DEFINITELY CHECK THIS OUT.                 *   FILE 134
//*                                                                 *   FILE 134
//*           ISR@PRIM - SAMPLE FOR INSTALLING OPTIONS "U" AND "W". *   FILE 134
//*                      SEE $$TSDDOC REGARDING OPTION "U".         *   FILE 134
//*                      SEE $$INDEX9 REGARDING OPTION "W".         *   FILE 134
//*                      SEE $$INDX11 REGARDING XSPLIT AND "XO".    *   FILE 134
//*                                                                 *   FILE 134
//*           JOBCLASS - EXAMPLE OF A SUGGESTED METHOD FOR KEEPING  *   FILE 134
//*                      USERS INFORMED OF THE EVER-CHANGING        *   FILE 134
//*                      CRITERIA FOR JOB CLASS SELECTION.          *   FILE 134
//*                                                                 *   FILE 134
//*           JOTTO    - LEX EREMIN CLIST FOR WORDY TYPES.          *   FILE 134
//*                                                                 *   FILE 134
//*           LASTCC   - HELP MEMBER UPDATED FOR TSO/E V2R3.        *   FILE 134
//*                                                                 *   FILE 134
//*           LDEF.... - EXAMPLES OF INVOKING SOME ISPF             *   FILE 134
//*                      APPLICATIONS USING LIBDEF SERVICES.        *   FILE 134
//*                      SEE MEMBER $$INDEX9 FOR DISCUSSION.        *   FILE 134
//*                                                                 *   FILE 134
//*           LIFE     - LEX EREMIN IMPLEMENTATION OF THE FAMOUS    *   FILE 134
//*                      PROCESS.  SUPPORTS PDS'S CONTAINING YOUR   *   FILE 134
//*                      FAVOURITE SCENARIOS.                       *   FILE 134
//*                                                                 *   FILE 134
//*           LISTBCDS - CLIST TO USE $HBLIST TO PUT A LIST OF ALL  *   FILE 134
//*                      HSM DATA SET BACKUPS INTO A DATA SET.      *   FILE 134
//*                                                                 *   FILE 134
//*           LISTICAT - COPIED FROM FILE 047 WITH CATALOG          *   FILE 134
//*                      RECOVERABILTY ENHANCEMENTS ADDED.          *   FILE 134
//*                      SEE MEMBER $$INDX14 FOR DESCRIPTION.       *   FILE 134
//*                                                                 *   FILE 134
//*           LISTMCDS - CLIST TO USE $HMLIST TO PUT A LIST OF ALL  *   FILE 134
//*                      HSM MIGRATED DATA SETS INTO A DATA SET.    *   FILE 134
//*                                                                 *   FILE 134
//*           LSTWMCDS - CLIST TO USE $HMLISTW TO PUT A LIST OF ALL *   FILE 134
//*                      HSM MIGRATED DATA SETS INTO A DATA SET.    *   FILE 134
//*                                                                 *   FILE 134
//*           LISTVOL  - AN OLD FAVOURITE ADJUSTED TO RUN ON ALL    *   FILE 134
//*                      KNOWN MVS'S.  LISTS DASD FREE SPACE.       *   FILE 134
//*                                                                 *   FILE 134
//*           MSGASIDX - MPF EXIT TO ADD ' - ASID XXXX' TO A WTO    *   FILE 134
//*                      WHERE XXXX IS THE HEX ASID.  USEFUL FOR    *   FILE 134
//*                      IEF403I TO SEE WHICH BATCH JOB(S) CAUSED   *   FILE 134
//*                      STORAGE FRAGMENTATION IN INITIATORS.       *   FILE 134
//*                                                                 *   FILE 134
//*           OAC..... - MACROS USED BY ZAP.                        *   FILE 134
//*                                                                 *   FILE 134
//*           PDSETEST - A SAMPLE PROGRAM TO SHOW DATA FETCHED BY   *   FILE 134
//*                      QSAM WHEN READING A PDSE DIRECTORY.        *   FILE 134
//*                      SEE MEMBER $$INDEX6 FOR DETAILS.           *   FILE 134
//*                                                                 *   FILE 134
//*           PGMINIT  - A CLIST TO DECODE THE SOURCE OF PROGRAM.   *   FILE 134
//*                                                                 *   FILE 134
//*           PGMINST  - SOME INSTALLATION INSTRUCTIONS FOR         *   FILE 134
//*                      PROGRAM.                                   *   FILE 134
//*                                                                 *   FILE 134
//*           PROGRAM  - A PL/1 PROGRAM TAKEN FROM A SHARE TAPE AND *   FILE 134
//*                      MODIFIED.  PL/1 TRANSIENT LIBRARY REQUIRED *   FILE 134
//*                      FOR EXECUTION.                             *   FILE 134
//*                                                                 *   FILE 134
//*           PS-PS7   - VECTOR GRAPHICS TPUT PGMS BY CHRIS S?????. *   FILE 134
//*                                                                 *   FILE 134
//*           RANDU    - FORTRAN SUBROUTINE OF PROGRAM.  GENERATES  *   FILE 134
//*                      NO FORTLIB CALLS.                          *   FILE 134
//*                                                                 *   FILE 134
//*           REVCAT   - SYSCTLG BROWSER ADAPTED FROM REVIEW JUST   *   FILE 134
//*                      BECAUSE CVOLS ARE ORGANIZED LIKE PDS       *   FILE 134
//*                      DIRECTORY BLOCKS.  INCLUDED HERE ON THE    *   FILE 134
//*                      OFF-CHANCE THAT SOMEONE IN THE WORLD OTHER *   FILE 134
//*                      THAN SECV STILL HAS OS CATALOGS.           *   FILE 134
//*                                                                 *   FILE 134
//*           REVCMPBF - 3270 BUFFER COMPRESSION ROUTINE USED BY    *   FILE 134
//*                      REVIEW AND REVCAT.                         *   FILE 134
//*                                                                 *   FILE 134
//*           REVIEW   - THE ORIGINAL REASON FOR THIS WHOLE FILE.   *   FILE 134
//*                      NON-ISPF FULL-COLOUR FULLSCREEN TAPE/DISK  *   FILE 134
//*                      VSAM/NON-VSAM DATA SET AND DB2 TABLESPACE  *   FILE 134
//*                      BROWSER, SMF, LOGREC, VTOC AND GENERAL     *   FILE 134
//*                      DSECT RECORD FORMATTER, PDS OFFLOADER,     *   FILE 134
//*                      DATA RECLAIMER AND TRANSLATOR.  NOW WITH   *   FILE 134
//*                      LOGICAL PARMLIB SUPPORT.  "RELEASE 31."    *   FILE 134
//*                      LIFTED FROM CBT MODS TAPE VERSION 230      *   FILE 134
//*                      CIRCA 1984 AND HAS BEEN A "TERMINAL" CASE  *   FILE 134
//*                      OF CREEPING FEATURISM EVER SINCE.  READ    *   FILE 134
//*                      LEADING COMMENTS FOR CHANGES.  A PIECE OF  *   FILE 134
//*                      RESISTANCE.  SHOULD WORK WITHOUT ERROR ON  *   FILE 134
//*                      ALL KNOWN MVS LEVELS UP TO OS/390.         *   FILE 134
//*                                                                 *   FILE 134
//*           REVIEW$  - JCL TO ASSEMBLE REVIEW.                    *   FILE 134
//*                                                                 *   FILE 134
//*           REVIEW#  - TSO HELP FOR REVIEW.                       *   FILE 134
//*                                                                 *   FILE 134
//*           REVIEW@  - A DISCUSSION OF ADVANCED (UNDOCUMENTED)    *   FILE 134
//*                      'REVIEW' FEATURES/BEHAVIOUR/LOGIC/ILLOGIC. *   FILE 134
//*                      (FOR RELEASE 16, SO IT IS A BIT OLD NOW.)  *   FILE 134
//*                                                                 *   FILE 134
//*           REVINST  - INSTALLATION STEPS FOR 'REVIEW' AND 'HEL'. *   FILE 134
//*                                                                 *   FILE 134
//*           REVLMOD  - LOAD MODULE RECONSTRUCTION PROGRAM USED    *   FILE 134
//*                      BY REVIEW FOR =PDSLOAD PROCESSING.         *   FILE 134
//*                                                                 *   FILE 134
//*           REVLMOD$ - JCL TO ASSEMBLE REVLMOD.                   *   FILE 134
//*                                                                 *   FILE 134
//*           REVSMF   - SMF RECORD FORMATTING ROUTINE OF REVIEW.   *   FILE 134
//*                      HANDLES LOTS OF SMF RECORDS WITH SOME CODE *   FILE 134
//*                      PINCHED FROM $SMFBRWS.  UPDATED TO         *   FILE 134
//*                      MVS/SP5.2 LEVEL.  SEVERAL RECORD FORMATS   *   FILE 134
//*                      ARE NOW LEFT/RIGHT SCROLL SENSITIVE.       *   FILE 134
//*                      SEE MEMBER REVIEW@ FOR DISCUSSION.         *   FILE 134
//*                                                                 *   FILE 134
//*           REVSMF$  - JCL TO ASSEMBLE REVSMF.                    *   FILE 134
//*                                                                 *   FILE 134
//*           REVTAPE  - SAMPLE CLIST SHOWING USE OF REVIEW TO FIND *   FILE 134
//*                      OUT WHAT IS ON A TAPE.  CAN BE HANDY IF    *   FILE 134
//*                      YOU DON'T KNOW WHAT IS ON A TAPE AND YOU   *   FILE 134
//*                      ARE ALLERGIC TO JCL.                       *   FILE 134
//*                                                                 *   FILE 134
//*           RIAWHO   - A CICS TRANSACTION.  SEARCHES THE TCT.     *   FILE 134
//*                      IF USERID SUPPLIED, RETURNS THE TRANSAC-   *   FILE 134
//*                      TION, TERMINAL ID, AND NETNAME.            *   FILE 134
//*                      IF TERMID SUPPLIED, RETURNS THE USERID,    *   FILE 134
//*                      TRANSACTION AND NETNAME.                   *   FILE 134
//*                      APPLID, TIME, AND DATE ARE ALSO DISPLAYED. *   FILE 134
//*                      OKAY FOR AUTOINSTALL.  (FROM ANN AUSTIN.)  *   FILE 134
//*                                                                 *   FILE 134
//*           R062A10  - OBJECT DECK FROM CBT FILE 352.             *   FILE 134
//*                      ASSEMBLER SUBROUTINE OF 'PROGRAM'          *   FILE 134
//*                      INCLUDED HERE FOR COMPLETENESS.            *   FILE 134
//*                                                                 *   FILE 134
//*           SCANX    - PDS SCANNER.  SEARCH ARGUMENTS CAN BE FROM *   FILE 134
//*                      THE SIMPLE TO THE BOOLEAN RIDICULOUS.  CAN *   FILE 134
//*                      ALSO SELECT/EXCLUDE CERTAIN MEMBER GROUPS  *   FILE 134
//*                      (BASED ON MEMBER NAME PREFIX) TO REDUCE    *   FILE 134
//*                      THE SEARCH TIME.  MOST CONVENIENTLY        *   FILE 134
//*                      INVOKED FROM TSD UTILITY PANELS.           *   FILE 134
//*                                                                 *   FILE 134
//*           SHOWDS   - FAMOUS TSO COMMAND LIFTED FROM CBT MODS    *   FILE 134
//*                      FILE OF SHARE TAPE IN 1983 AND MODIFIED    *   FILE 134
//*                      FOR ICF ETC.  A MUST.  WON'T RECALL        *   FILE 134
//*                      MIGRATED DATA SETS BY ACCIDENT.  READ      *   FILE 134
//*                      LEADING COMMENTS IN SOURCE FOR EXACT       *   FILE 134
//*                      DETAILS.  SIMILAR VERSIONS PROBABLY        *   FILE 134
//*                      AVAILABLE FROM ELSEWHERE ON THE CBT TAPE.  *   FILE 134
//*                      SHOULD WORK WITHOUT ERROR ON ALL KNOWN MVS *   FILE 134
//*                      LEVELS UP TO ESA.                          *   FILE 134
//*                                                                 *   FILE 134
//*           SHOWDS$  - JCL TO ASSEMBLE SHOWDS.                    *   FILE 134
//*                                                                 *   FILE 134
//*           SHOWDS#  - TSO HELP FOR SHOWDS.                       *   FILE 134
//*                                                                 *   FILE 134
//*           SKJ..... - SEE $$TSDDOC.                              *   FILE 134
//*                                                                 *   FILE 134
//*           SNAKE    - GREG PRICE'S INTERPRETATION FOR TSO OF A   *   FILE 134
//*                      PROGRAM SEEN ON A UNIX SYSTEM.             *   FILE 134
//*                                                                 *   FILE 134
//*           SNAKE$   - JCL TO ASSEMBLE SNAKE.                     *   FILE 134
//*                                                                 *   FILE 134
//*           SPGSMPE  - SMP/E DIALOG FRONT-END FOR SYSPROGS WHO    *   FILE 134
//*                      ROUTINELY ACCESS MORE THAN ONE GLOBAL      *   FILE 134
//*                      ZONE.  SEE ISR@PRIM FOR INVOCATION.        *   FILE 134
//*                      ALSO SEE MEMBER $$INDEX9 FOR DISCUSSION    *   FILE 134
//*                      ON VARIOUS METHODS OF INVOCATION WITH      *   FILE 134
//*                      LIBDEFS AND SO ON.  (THIS IS OPTION "W".)  *   FILE 134
//*                                                                 *   FILE 134
//*           SPGSMPEP - PANEL FOR SPGSMPE CLIST.                   *   FILE 134
//*                                                                 *   FILE 134
//*           SPGSMPE4 - SPGSMPE CLIST FOR SMP/E RELEASE 4.         *   FILE 134
//*                                                                 *   FILE 134
//*           SPGSMPE5 - SPGSMPE CLIST FOR SMP/E RELEASE 5.1.       *   FILE 134
//*                                                                 *   FILE 134
//*           SVMDSSU  - FRONT END TO DF/DSS TO BACKUP VM VOLUMES   *   FILE 134
//*                      UNDER MVS.  SEE MEMBER $$INDEX2 FOR A      *   FILE 134
//*                      DETAILED DISCUSSION.                       *   FILE 134
//*                                                                 *   FILE 134
//*           TERMTEST - NON-GDDM TSO TERMINAL CAPABLITY TESTER AND *   FILE 134
//*                      SYMBOL EDITOR.  CRANK IT UP FOR A TEST     *   FILE 134
//*                      RUN.  THE SNAZZIER THE TERMINAL THE BETTER *   FILE 134
//*                      (PRETTY WELL).  NEEDS THE DCS MACRO TO     *   FILE 134
//*                      ASSEMBLE.  PROGRAM ORGANIZED LIKE A DOG'S  *   FILE 134
//*                      DINNER BUT IT DOES THE JOB; A TRIUMPH OF   *   FILE 134
//*                      THE MONOLITHIC APPROACH.  A MANTELPIECE.   *   FILE 134
//*                      INSTALLATION RECOMENDATION:                *   FILE 134
//*                      INSTALL INTO LINKLIST SO THAT ANY USER CAN *   FILE 134
//*                      USE IT ON HIS/HER OWN TERMINAL WHILE IN    *   FILE 134
//*                      DIAGNOSTIC TELEPHONIC DIALOG WITH          *   FILE 134
//*                      SYSTEM/NETWORK SUPPORT.  (EG. IS THE QUERY *   FILE 134
//*                      BIT ON?  WHAT SCREEN SIZES DOES THE VTAM   *   FILE 134
//*                      LOGMODE ALLOW?  WHICH APL CHARACTERS ARE   *   FILE 134
//*                      CORRECTLY SUPPORTED?  ETC.)                *   FILE 134
//*                      NEEDLESS TO SAY, FULL-SCREEN PROGRAM       *   FILE 134
//*                      DEVELOPERS MAY FIND TERMTEST HANDY TO      *   FILE 134
//*                      DETERMINE OR VERIFY THE CODES FOR SPECIFIC *   FILE 134
//*                      SCREEN LOCATIONS, GRAPHIC CHARACTERS AND   *   FILE 134
//*                      ATTENTION IDENTIFIERS.  ON THE OTHER HAND, *   FILE 134
//*                      SOMEONE MAY JUST WANT TO PLAY AROUND WITH  *   FILE 134
//*                      FEATURES OF THE TERMINAL HARDWARE.  ALSO   *   FILE 134
//*                      SEE "TERMTEST TALK" IN MEMBER $$INDEX2.    *   FILE 134
//*                                                                 *   FILE 134
//*           TERMTYPE - MACRO TO PERFORM TSS TERMTYPE FUNCTION.    *   FILE 134
//*                      SUPPLIED HERE SO THAT TERMTEST AND VIEW    *   FILE 134
//*                      MAY BE ASSEMBLED WITHOUT SOURCE CHANGES.   *   FILE 134
//*                                                                 *   FILE 134
//*           TESTLSTI - TSO TEST ZAP FROM $SP4MODS UPDATED DUE     *   FILE 134
//*                      PUT MAINTENANCE.                           *   FILE 134
//*                                                                 *   FILE 134
//*           TEWN     - WACKY SCREEN TEST.                         *   FILE 134
//*                                                                 *   FILE 134
//*           TSD..... - SEE $$TSDDOC.                              *   FILE 134
//*                                                                 *   FILE 134
//*           TSOPNAME - DINKY LITTLE PROG TO COPY RACF PROGRAMMER  *   FILE 134
//*                      NAME INTO JES2 JCT PROGRAMMER NAME FIELD.  *   FILE 134
//*                      INTENDED FOR TSO LOGON CLIST SO TSU        *   FILE 134
//*                      GENERATED OUTPUT HAS THE PROGRAMMER NAME   *   FILE 134
//*                      IN THE SEPARATORS.  JES2 2.2.0/3.1.1       *   FILE 134
//*                      VERSION SUPPLIED HERE.  CAN BE CHANGED     *   FILE 134
//*                      EASILY TO SUPPORT TOP SECRET RATHER THAN   *   FILE 134
//*                      RACF.  (NOT NEEDED FOR ACF2.)              *   FILE 134
//*                                                                 *   FILE 134
//*           UIDSTR   - TSO COMMAND FOR WITHIN CLISTS ONLY.        *   FILE 134
//*                      RETURNS THE ACF2 UID STRING INTO A CLIST   *   FILE 134
//*                      VARIABLE CALLED &UIDSTR.                   *   FILE 134
//*                                                                 *   FILE 134
//*           VIEW     - MVS/370 (AND, IF YOU'RE INTERESTED, MSP)   *   FILE 134
//*                      PROGRAM TO PERFORM A SENSE ID TO A         *   FILE 134
//*                      NOMINATED I/O DEVICE, OR A READ BUFFER TO  *   FILE 134
//*                      A NOMINATED GRAPHIC DISPLAY DEVICE.  DOES  *   FILE 134
//*                      NOT SUPPORT EXTENDED ARCHITECTURE.         *   FILE 134
//*                                                                 *   FILE 134
//*           VMUCBZAP - MUCH THE SAME AS SVMDSSU EXCEPT THAT IT    *   FILE 134
//*                      WAS NOT SPECIFICALLY A FRONT END TO        *   FILE 134
//*                      ANYTHING.  LETS YOU BROWSE/REVIEW/ZAP OR   *   FILE 134
//*                      WHATEVER VM MINIDISKS FROM MVS.  SEE       *   FILE 134
//*                      MEMBER $$INDEX2 FOR MORE DETAILS.          *   FILE 134
//*                                                                 *   FILE 134
//*           WORM     - GREG PRICE'S INTERPRETATION FOR TSO OF A   *   FILE 134
//*                      PROGRAM SEEN ON A UNIX SYSTEM.  A          *   FILE 134
//*                      BREAKTHROUGH IN ER... SOMETHING.  USEFUL   *   FILE 134
//*                      (?) TO MEASURE TPUT ELAPSED TIME TO GET AN *   FILE 134
//*                      IDEA OF NETWORK DELAY.  READ COMMENTS IN   *   FILE 134
//*                      SOURCE FOR FULL DOCO.                      *   FILE 134
//*                                                                 *   FILE 134
//*           WORM$    - JCL TO ASSEMBLE WORM.                      *   FILE 134
//*                                                                 *   FILE 134
//*           X....... - COMPONENTS OF THE FAMOUS SUPERLST VTOC     *   FILE 134
//*                      LISTER.  FULLY SUPPORTS THE LATEST VTOC    *   FILE 134
//*                      SNAZZIES.  READ COMMENTS IN XVTCLIST FOR   *   FILE 134
//*                      DETAILS.                                   *   FILE 134
//*                                                                 *   FILE 134
//*           XSPLIT   - CLIST TO CREATE NEW ISPF SESSION OVER      *   FILE 134
//*                      YOUR CURRENT ISPF SESSION.  NEEDS AN       *   FILE 134
//*                      ADDITION TO YOUR ISPCMDS.  SEE $$INDX11.   *   FILE 134
//*                                                                 *   FILE 134
//*           XVTOCASM - JCL TO ASSEMBLE SUPERLST.                  *   FILE 134
//*                                                                 *   FILE 134
//*           ZAP      - UCLA TSO ZAP COMMAND FROM THE CBT MODS     *   FILE 134
//*                      FILE OF VERSION 22 OF THE SHARE TAPE CIRCA *   FILE 134
//*                      1983 WITH SOME EXTRA MODIFICATIONS.        *   FILE 134
//*                      PERHAPS THE MAIN CHANGE IS FULL VOLUME     *   FILE 134
//*                      ZAPPING SUPPORT WHICH, OF COURSE, REQUIRES *   FILE 134
//*                      THE APPROPRIATE APF AND RACF AUTHORITIES.  *   FILE 134
//*                                                                 *   FILE 134
//*           ZAP$     - JCL TO ASSEMBLE ZAP.                       *   FILE 134
//*                                                                 *   FILE 134
//*           ZAP$DOC  - BRUCE BORDONARO'S NOTES ON THIS VERSION    *   FILE 134
//*                      OF THE UCLA ZAP COMMAND.                   *   FILE 134
//*                                                                 *   FILE 134
//*           ZAP#     - TSO HELP FOR ZAP.                          *   FILE 134
//*                                                                 *   FILE 134
//*                                                                 *   FILE 134
//*           FOR ADDITIONAL INFORMATION SEE THE MEMBERS            *   FILE 134
//*           $$INDEX THROUGH $$INDX24.                             *   FILE 134
//*                                                                 *   FILE 134
//***FILE 135 IS FROM MR GREG PRICE OF PRYCROFT SIX                 *   FILE 135
//*           IN MELBOURNE,  VICTORIA,  AUSTRALIA.                  *   FILE 135
//*           THIS FILE IS IN IEBCOPY FORMAT AND CONTAINS           *   FILE 135
//*           READY-TO-USE LOAD MODULES.                            *   FILE 135
//*                                                                 *   FILE 135
//*        ** PROGRAMS AND COMMANDS FROM FILE 134:                  *   FILE 135
//*                                                                 *   FILE 135
//*           $CRYPT   - TSO CP - ALIASES $ENCRYPT AND $DECRYPT     *   FILE 135
//*           $FREEALL - TSO CP                                     *   FILE 135
//*           $HBLIST  - TSO CP - DSNAME 'HSM.BCDS' HARD CODED      *   FILE 135
//*           $HMLIST  - TSO CP - DSNAME 'HSM.MCDS' HARD CODED      *   FILE 135
//*           $HMLISTW - TSO CP - DSNAME 'HSM.MCDS' HARD CODED      *   FILE 135
//*           $LISTX   - TSO CP - ALIAS $LISTM                      *   FILE 135
//*           ANIM1-5  - TSO CP OR PGM                              *   FILE 135
//*           CDSCB    - TSO CP                                     *   FILE 135
//*           CONCAT   - TSO CP                                     *   FILE 135
//*           CUBE     - TSO CP OR PGM                              *   FILE 135
//*           DCPU     - TSO/BATCH/STC PGM                          *   FILE 135
//*           DDASD    - TSO CP OR BATCH/STC PGM                    *   FILE 135
//*           DIVER    - TSO CP OR PGM - GE SUPPORT ASSUMED         *   FILE 135
//*           DUPTIME  - TSO CP OR TSO/BATCH/STC PGM - ALIAS DUP    *   FILE 135
//*           FLAG     - TSO CP OR PGM - TPUT DEMO                  *   FILE 135
//*           FSHELP   - TSO CP - ALIAS FSH - ALIAS OF REVIEW       *   FILE 135
//*           GE2      - TSO CP OR PGM - TPUT DEMO                  *   FILE 135
//*           HEL      - TSO CP - FULLSCREEN HELP - ALIAS OF REVIEW *   FILE 135
//*           IEFU83   - SMF EXIT FROM $$IEFU83                     *   FILE 135
//*           IKJEFF10 - TSO EXIT - ISPF V3.4 OFFSETS ASSUMED       *   FILE 135
//*           IKJEFF53 - TSO EXIT                                   *   FILE 135
//*           IMAGE1-2 - TSO CP OR PGM                              *   FILE 135
//*           LIFE     - TSO CP                                     *   FILE 135
//*           LISTICAT - LIST ICF CATALOG UTILITY                   *   FILE 135
//*           LISTVOL  - TSO CP - ALIAS LISTV                       *   FILE 135
//*           MONO     - TSO PGM - MONOPOLY                         *   FILE 135
//*           MSGASIDX - MPF EXIT                                   *   FILE 135
//*           MSGFLUSH - MPF EXIT FROM $$IEFU83                     *   FILE 135
//*           MSGJOBLG - MPF EXIT FROM $$IEFU83                     *   FILE 135
//*           MSGNOJLG - MPF EXIT FROM $$IEFU83                     *   FILE 135
//*           MSGNOLOG - MPF EXIT FROM $$IEFU83                     *   FILE 135
//*           MSG2USER - MPF EXIT FROM $SP4MODS                     *   FILE 135
//*           PROGRAM  - TSO PGM - PL/1 ADVENTURE                   *   FILE 135
//*           PS-PS7   - TSO CP OR PGM - TPUT DEMO                  *   FILE 135
//*           REVIEW   - TSO CP - ALIAS REV,REVVSAM,HEL,FSHELP,FSH  *   FILE 135
//*           REVLMOD  - TSO/BATCH PGM - MAINLY FOR USE BY REVIEW   *   FILE 135
//*           REVSMF   - EXTERNAL SUBROUTINE OF REVIEW              *   FILE 135
//*           SCANX    - TSO/BATCH PDS SEARCH UTILITY PROGRAM       *   FILE 135
//*           SHOWDS   - TSO CP - ALIAS SDS                         *   FILE 135
//*           SKJ$LC00 - TSO CP - ALIASES $LCSPF, $LISTC AND $SPACE *   FILE 135
//*           SMFJBTIM - SMF TYPE26 POST-PROCESSING UTILITY PROGRAM *   FILE 135
//*           SNAKE    - TSO CP OR PGM -                            *   FILE 135
//*                      ALIASES HALFSNAK, HS, QS AND QUARTERS      *   FILE 135
//*           SUPERLST - VTOC LISTING UTILITY PROGRAM               *   FILE 135
//*           TERMTEST - TSO CP OR PGM - TSO 3270 TERMINAL TESTER   *   FILE 135
//*           TESTDCS-2- TSO CP OR PGM - TPUT DEMO                  *   FILE 135
//*           TEWM     - TSO CP OR PGM - TPUT DEMO                  *   FILE 135
//*           TSOPNAME - TSO CP OR PGM - CHECK JES2/RACF LEVELS     *   FILE 135
//*           UIDSTR   - TSO CP WITHIN CLIST ONLY - ACF2 ONLY       *   FILE 135
//*           VIEW     - TSO PROGRAM - PRE-XA ONLY                  *   FILE 135
//*           WORM     - TSO CP OR PGM - ALIASES HALFTEST, HW, QW,  *   FILE 135
//*                      HALFWORM, QUARTEST AND QUARTERW            *   FILE 135
//*           ZAP      - TSO CP - ALIAS ZAP$ (ZAP$ IS USED BY PDS)  *   FILE 135
//*                                                                 *   FILE 135
//*        ** PROGRAMS AND COMMANDS FROM FILE 90:                   *   FILE 135
//*                                                                 *   FILE 135
//*           DELINKI  - UTILITY WHICH CAN BE USED BY REVIEW        *   FILE 135
//*           DWNSPDSR - EXTERNAL SUBROUTINE OF DELINKI             *   FILE 135
//*                                                                 *   FILE 135
//*        ** PROGRAMS AND COMMANDS FROM FILE 93:                   *   FILE 135
//*                                                                 *   FILE 135
//*           PDSLOAD  - UTILITY WHICH CAN BE USED BY REVIEW        *   FILE 135
//*                                                                 *   FILE 135
//*        ** PROGRAMS AND COMMANDS FROM FILE 182:                  *   FILE 135
//*                                                                 *   FILE 135
//*           PDS85    - TSO CP - ALIAS PDS                         *   FILE 135
//*                      THIS IS FOR (MAINLY NON-U.S.) SITES WHO    *   FILE 135
//*                      PREFER THE DD/MM/YY DATE FORMAT.           *   FILE 135
//*                                                                 *   FILE 135
//*        ** PROGRAMS AND COMMANDS FROM FILE 183:                  *   FILE 135
//*                                                                 *   FILE 135
//*           BR       - TSO CP - ISPF ONLY - BROWSE ANY DSORG      *   FILE 135
//*           FASTPATH - TSO CP - ISPF ONLY - ADDS IN-CORE ISPCMDS  *   FILE 135
//*           LCAT     - TSO CP - ISPF ONLY - ALIAS LC              *   FILE 135
//*           SHOWMVS  - TSO CP OR PGM - ISPF RECOMMENDED           *   FILE 135
//*                                                                 *   FILE 135
//*        ** PROGRAMS AND COMMANDS FROM FILE 296:                  *   FILE 135
//*                                                                 *   FILE 135
//*           COMPARE  - TSO CP - FRONT END TO COMPAREB/IEBCOMPR    *   FILE 135
//*           COMPAREB - YALE COMPARE UTILITY PROGRAM               *   FILE 135
//*                                                                 *   FILE 135
//*        ** PROGRAMS AND COMMANDS FROM FILE 300:                  *   FILE 135
//*                                                                 *   FILE 135
//*           IKJT9FI  - TSO TEST SUBCOMMAND - UPDATE IKJTSO00      *   FILE 135
//*           IKJT9LB  - TSO TEST SUBCOMMAND - UPDATE IKJTSO00      *   FILE 135
//*           LOGO     - GDDM EXAMPLE FROM SOURCE MEMBER GDDM       *   FILE 135
//*           NITEFLT  - GDDM EXAMPLE FROM SOURCE MEMBER GDDM       *   FILE 135
//*           SABREBAT - GDDM EXAMPLE FROM SOURCE MEMBER GDDM       *   FILE 135
//*           SHUTTLE  - GDDM EXAMPLE FROM SOURCE MEMBER GDDM       *   FILE 135
//*                                                                 *   FILE 135
//***FILE 136 is from Mr Howard Dean of Kaiser Permanente           *   FILE 136
//*           IN Walnut Creek, California.                          *   FILE 136
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT AND             *   FILE 136
//*           CONTAINS THE FOLLOWING MEMBERS:  FOR ADDITIONAL       *   FILE 136
//*           INFORMATION SEE THE MEMBER CALLED $INDEX              *   FILE 136
//*                                                                 *   FILE 136
//*           CURRENT ADDRESS:                                      *   FILE 136
//*                                                                 *   FILE 136
//*            Howard M. Dean                                       *   FILE 136
//*            Kaiser Foundation Health Plan                        *   FILE 136
//*            25 Via Monte Avenue                                  *   FILE 136
//*            2nd Floor                                            *   FILE 136
//*            Walnut Creek, CA 94598                               *   FILE 136
//*                                                                 *   FILE 136
//*            (925) 926-3121                                       *   FILE 136
//*                                                                 *   FILE 136
//*            EMAIL - Howard.M.Dean@kp.org                         *   FILE 136
//*                                                                 *   FILE 136
//*           AAHLXXX       WTO EXIT FOR CERTAIN 'GTF' MESSAGES     *   FILE 136
//*           ADFHXXX       WTO EXIT TO PROCESS CICS JOURNALS       *   FILE 136
//*           AFNMXXX       WTO EXIT TO PROCESS NDM LOG SWITCH      *   FILE 136
//*           AIEAXXX       WTO EXIT TO KICK OFF JOB TO COPY        *   FILE 136
//*                         SYS1.DUMPXX TO IPCS                     *   FILE 136
//*           AIEEXXX       WTO EXIT TO HIGHLIGHT SMF DATASET       *   FILE 136
//*                         ERRORS                                  *   FILE 136
//*           APLCAMS       PROGRAM TO CALL IDCAMS TO ALLOW VSAM    *   FILE 136
//*                         ALLOCATION ON SYSDA                     *   FILE 136
//*           APUT          MACRO TO CALL EPUTL FOR ASID TSO        *   FILE 136
//*                         COMMAND                                 *   FILE 136
//*           ASID          TSO/E COMMAND TO SHOW ADDRESS SPACE     *   FILE 136
//*                         DATA (31-BIT MODE)                      *   FILE 136
//*           BANNER        BLOCK PRINT PARM FIELD (REQUIRES        *   FILE 136
//*                         'SYS1.AOSB0(IEFSD095)')                 *   FILE 136
//*           BRODCAST      PROGRAM TO SCAN 'SYS1.BRODCAST' DATASET *   FILE 136
//*                         AND REPORT                              *   FILE 136
//*           CARTCOPY      PROGRAM GENERATE JCL TO CALL CARTPROC   *   FILE 136
//*                         AND INVOKE NEWVOL                       *   FILE 136
//*           CARTPROC      CATALOGED PROCEDURE USED WITH CARTCOPY  *   FILE 136
//*           CONSOLE       TSO COMMAND TO DISPLAY THE OPERATOR     *   FILE 136
//*                         CONSOLE (XA 2.2)                        *   FILE 136
//*           CPPL          MACRO TO GENERATE TSO CPPL BLOCK        *   FILE 136
//*           CSPL          MACRO TO GENERATE TSO CSPL BLOCK        *   FILE 136
//*           DATECONV      CONVERT JULIAN DATE TO GREGORIAN        *   FILE 136
//*           DRDROID       VTAM DYNAMIC RECONFIGURATION DECK       *   FILE 136
//*                         BUILDER                                 *   FILE 136
//*           ENTER         MACRO FOR ENTRY TO PROGRAM (SAVE        *   FILE 136
//*                         REGISTERS, ETC..)                       *   FILE 136
//*           EPUTL         ROUTINE TO SET UP TEXT AND CALL PUTLINE *   FILE 136
//*                         FOR ASID COMMAND                        *   FILE 136
//*           HMDCHRON      TIME KEEPER SUPREME (RETURNS TOD IN     *   FILE 136
//*                         VARIOUS FORMATS)                        *   FILE 136
//*           HMDTIME       MACRO TO MAP HMDCHRON 72 BYTE RETURN    *   FILE 136
//*                         AREA                                    *   FILE 136
//*           IKJEFF10      TSO/E SUBMIT EXIT--MODIFIES JOBNAME,    *   FILE 136
//*                         NOTIFY ACF2 LOGONID                     *   FILE 136
//*           INMXZ02       TSO/E XMIT EXIT TO NOTIFY USER ON SAME  *   FILE 136
//*                         SYSTEM OF MAIL                          *   FILE 136
//*           INUSE         MACRO TO SHOW REGISTERS ASSIGNED BY     *   FILE 136
//*                         LUSE                                    *   FILE 136
//*           IOPL          MACRO TO GENERATE TSO IOPL BLOCK        *   FILE 136
//*           JULGREG       JULIAN/GREGORIAN CONVERSION PROGRAM -   *   FILE 136
//*                         CALLED MY HMDCHRON                      *   FILE 136
//*           LDROP         MACRO TO GENERATE DROP STATEMENT        *   FILE 136
//*           LEAVE         MACRO FOR EXIT FROM PROGRAM (RESTORE    *   FILE 136
//*                         REGS, ETC..)                            *   FILE 136
//*           LSPACE        TSO/E COMMAND TO DISPLAY AVAILABLE      *   FILE 136
//*                         SPACE ON VOLUMES                        *   FILE 136
//*           LSPHELP       HELP TEXT FOR THE LSPACE COMMAND        *   FILE 136
//*           LUSE          MACRO TO GENERATE USING STATEMENT       *   FILE 136
//*           NEWVOL        PROGRAM TO CONVERT 3420-->3480 VIA      *   FILE 136
//*                         FATS/FATAR IN CA-1                      *   FILE 136
//*           PDFINIT       TSO/E COMMAND TO INITIALIZE PROFILE FOR *   FILE 136
//*                         ISPF/PDF                                *   FILE 136
//*           PPL           MACRO TO GENERATE TSO PPL BLOCK         *   FILE 136
//*           REGS          MACRO TO GENERATE REGISTER EQUATES      *   FILE 136
//*           SETUSER       INSERT ACF2 LOGONID AND OTHER FIELDS    *   FILE 136
//*                         FOR TSO IN BATCH                        *   FILE 136
//*           TAPESCAN      TAPE SCANNING PROGRAM - UPDATED FOR     *   FILE 136
//*                         3480 DRIVES                             *   FILE 136
//*           TAPESDOC      DOCUMENTATION FOR THE TAPESCAN PROGRAM  *   FILE 136
//*                         (SOMEWHAT OLD)                          *   FILE 136
//*           TSOENTER      MACRO FOR ENTRY TO TSO COMMANDS         *   FILE 136
//*           TSOLEAVE      MACRO FOR EXITING TSO COMMANDS          *   FILE 136
//*           WRU           TSO/E COMMAND TO DISPLAY USER IDENTITY  *   FILE 136
//*           XABSM         MACRO TO SWITCH BETWEEN 31-BIT AND      *   FILE 136
//*                         24-BIT MODES                            *   FILE 136
//*                                                                 *   FILE 136
//*           =============================================         *   FILE 136
//*                                                                 *   FILE 136
//*           NONE OF THE PROGRAMS, ROUTINES, AND MACROS IN THIS    *   FILE 136
//*           DATASET ARE GUARANTEED TO WORK OR BE "SAFE". AS WITH  *   FILE 136
//*           ANY PUBLIC DOMAIN SOFTWARE IT IS THE RESPONSIBILITY   *   FILE 136
//*           OF THE RECEIVING INSTALLATION TO TEST THE SOFTWARE    *   FILE 136
//*           BEFORE RUNNING IT ON THEIR PRODUCTION SYSTEMS. IT MAY *   FILE 136
//*           CRASH YOUR SYSTEM, AND IF IT DOES, AMERICAN PRESIDENT *   FILE 136
//*           SYSTEMS ASSUMES NO RESPONSIBILITY.  INSTALL THIS      *   FILE 136
//*           SOFTWARE ON YOUR SYSTEM AT YOUR OWN RISK.  ALSO,      *   FILE 136
//*           AMERICAN PRESIDENT SYSTEMS DOES NOT GUARANTEE TO FIX  *   FILE 136
//*           ANY OF THESE PROGRAMS OR UPGRADE THEM WHEN THEY       *   FILE 136
//*           BECOME OBSOLETE. AMERICAN PRESIDENT SYSTEMS MAY       *   FILE 136
//*           PERIODICALLY PUT UPDATED VERSION OF THESE AND OTHER   *   FILE 136
//*           PROGRAMS ON THE CBT TAPE, BUT THEY ARE UNDER NO       *   FILE 136
//*           OBLIGATION TO DO SO.  MANY OF THESE PROGRAMS HAVE RUN *   FILE 136
//*           ON OUR SYSTEM, BUT THAT IS NOT A GURARANTEE THEY WILL *   FILE 136
//*           RUN ON YOUR SYSTEM. CAVEAT EMPTOR.                    *   FILE 136
//*                                                                 *   FILE 136
//*           NOTE ALSO, THAT THE SAME RESTRICTIONS ON              *   FILE 136
//*           RESPONSIBILITY FOR OUR INSTALLATION (AMERICAN         *   FILE 136
//*           PRESIDENT SYSTEMS) HOLD TRUE FOR HOWARD DEAN.  I      *   FILE 136
//*           WILL, HOWEVER, ACCEPT SUGGESTIONS FOR IMPROVEMENTS    *   FILE 136
//*           AND ANSWER QUESTIONS ABOUT THESE PROGRAMS. A PROMPT   *   FILE 136
//*           REPLY, THE CORRECT ANSWER, OR TIMELY IMPROVEMENTS     *   FILE 136
//*           ARE NOT GUARANTEED. IF THERE ARE MISSING PARTS TO     *   FILE 136
//*           THESE PROGRAMS, I WILL TRY TO FORWARD THE MACROS OR   *   FILE 136
//*           ROUTINES TO ARNIE AT CBT, HOWEVER I DO NOT GUARANTEE  *   FILE 136
//*           TO DO THIS IN A TIMELY MANNER.  (YOU CAN'T, HOWARD.   *   FILE 136
//*           YOU'D HAVE TO FORWARD THEM TO ME NOW).  ALSO, JUST    *   FILE 136
//*           BECAUSE THESE ROUTINES ARE ON THE CBT TAPE, I AM NOT  *   FILE 136
//*           AVAILABLE FOR "DEMAND" SUPPORT AND NEITHER IS ARNIE   *   FILE 136
//*           CASINGHINO.  (PLEASE NOTICE THAT I AM NOT SAYING YOU  *   FILE 136
//*           MAY CALL ME EITHER, BUT YOU CAN TRY).  YOU MAY CALL   *   FILE 136
//*           US, BUT WE CANNOT GUARANTEE A CORRECT AND PROMPT      *   FILE 136
//*           ANSWER TO YOUR PROBLEM. AGAIN, YOU ARE ON YOUR OWN!   *   FILE 136
//*           CAVEAT EMPTOR.                                        *   FILE 136
//*                                                                 *   FILE 136
//***FILE 137 IS FROM STEVE KLEEVES OF MAKITA USA FROM LA MIRADA    *   FILE 137
//*           CALIFORNIA.  THIS FILE CONTAINS AN EXTENSION TO       *   FILE 137
//*           ISPF/PDF 3.4 THAT ALLOWS LISTING OF VSAM DATASETS     *   FILE 137
//*           IN ADDITION TO THE NON-VSAM.                          *   FILE 137
//*                                                                 *   FILE 137
//***FILE 138 IS FROM ART TANSKY OF SUNGARD IN VOORHEES, NEW JERSEY *   FILE 138
//*           AND CONTAINS A MODIFIED COPY OF SYSTEM FROM FILE 300  *   FILE 138
//*           OF THIS TAPE.  THIS VERSION WORKS WITH 3090 AND DOES  *   FILE 138
//*           NOT NEED TO BE AUTHORIZED.                            *   FILE 138
//*                                                                 *   FILE 138
//*           (UPDATED 2/94 FROM THE AUTHOR.)                       *   FILE 138
//*                                                                 *   FILE 138
//***FILE 139 IS FROM MR DENNIS LONGNECKER FROM THE ADMINISTRATOR   *   FILE 139
//*           OF THE COURT OF  THE  STATE OF WASHINGTON.  FOR       *   FILE 139
//*           ADDITIONAL INFORMATION SEE THE MEMBER CALLED $$DOC.   *   FILE 139
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT AND CONTAINS    *   FILE 139
//*           THE FOLLOWING MEMBERS                                 *   FILE 139
//*                                                                 *   FILE 139
//*            email:   dennis.longnecker@courts.wa.gov             *   FILE 139
//*                                                                 *   FILE 139
//*           JESEX008  EXIT 8 WHICH WILL SCAN THE JOB'S JCT AND    *   FILE 139
//*                     FIND OUT THE MAX ABEND CODE FOR THE GIVEN   *   FILE 139
//*                     JOB.  THIS PROGRAM MUST BE IN COMMON        *   FILE 139
//*                     STORAGE.  I ADD AN ENTRY IN IEALPAXX TO     *   FILE 139
//*                     LOAD MY VERSION FROM A LINKLIST LIBRARY     *   FILE 139
//*                     (SYS2.LINKLIB).                             *   FILE 139
//*                                                                 *   FILE 139
//*           JESEX016  THIS PROGRAM WORKS IN CONJUNCTION WITH EXIT *   FILE 139
//*                     8.  IT TAKES WHATEVER DATA IS IN THE        *   FILE 139
//*                     JCTUSER1 FIELD AND SENDS IT TO THE USER.    *   FILE 139
//*                                                                 *   FILE 139
//*           OACJCT    SINCE THE JES JCT AND THE MVS JCT USE THE   *   FILE 139
//*                     SAME NAME FOR SOME OF THE FIELDS, AND EXIT  *   FILE 139
//*                     8 USES BOTH JCT'S THERE IS A COMPILE ERROR  *   FILE 139
//*                     IF YOU DON'T DO SOMETHING ABOUT IT.         *   FILE 139
//*                                                                 *   FILE 139
//*           SAS#BLOCK THIS IS A LITTLE SAS PROGRAM WHICH USES A   *   FILE 139
//*                     FDR VTOC LIST AND GIVES RECOMMENDED         *   FILE 139
//*                     BLOCKSIZES FOR THE TYPE OF DEVICE THE DATA  *   FILE 139
//*                     SET IS ON.                                  *   FILE 139
//*                                                                 *   FILE 139
//*           TERMPROG  THIS IS A CICS PROGRAM WHICH DISPLAYS ALL   *   FILE 139
//*                     THE TERMINALS SIGNED ON THE SYSTEM.  IF     *   FILE 139
//*                     YOU PUT THE CURSOR NEXT TO A TERMINAL NAME  *   FILE 139
//*                     AND PRESS ENTER, DETAILED INFORMATION       *   FILE 139
//*                     ABOUT THE TERMINAL IS DISPLAYED.            *   FILE 139
//*                                                                 *   FILE 139
//*           TESTPRTR  IS A PROGRAM WHICH TESTS VTAM PRINTERS.  IT *   FILE 139
//*                     ALSO LOOKS AT THE BIND IMAGE SENT AND SENDS *   FILE 139
//*                     A MESSAGE TO THE PRINTER TELLING IT WHAT    *   FILE 139
//*                     TYPE OF PRINTER IT IS.                      *   FILE 139
//*                                                                 *   FILE 139
//***FILE 140 IS FROM MR MARK DIEHL OF HERCULES/ALLEGANY            *   FILE 140
//*           BALLISTICS LAB AND CONTAINS A COPY OF THEIR 'DATA     *   FILE 140
//*           ARCHIVAL RECOVERY SYSTEM'                             *   FILE 140
//*                                                                 *   FILE 140
//*           THE "DATA ARCHIVAL/RECOVERY SYSTEM" ("DARS") IS       *   FILE 140
//*           AN ISPF/PDF BASED DIALOG THAT PROVIDES AUTOMATED      *   FILE 140
//*           DASD MANAGEMENT. IT REQUIRES DF/DSS VERSION           *   FILE 140
//*           V2.3, TSO/E V1.3, AND ISPF/PDF V2.2.                  *   FILE 140
//*           ESSENTIALLY, DARS IS A MENU-DRIVEN UTILITY THAT       *   FILE 140
//*           AUTOMATES THE ARCHIVING AND RECOVERY OF DASD          *   FILE 140
//*           DATA.  IT IS EASILY MODIFIABLE TO ACCOMMODATE         *   FILE 140
//*           SPECIFIC SITE NEEDS.  IN ITS PRESENT FORM, AN         *   FILE 140
//*           OPERATOR, ON A QUARTERLY SCHEDULE, MENU SELECTS       *   FILE 140
//*           A (DF/DSS) DUMP JOB SUBMITTAL THAT ARCHIVES ALL       *   FILE 140
//*           PUBLIC STORAGE DATASETS THAT HAVE BEEN                *   FILE 140
//*           UNREFERENCED IN THE PAST YEAR OR GREATER.  AN         *   FILE 140
//*           ONLINE RECORD OF ALL ARCHIVED DATA IS KEPT SO         *   FILE 140
//*           THAT A USER MAY INQUIRE OF THE STATUS OF              *   FILE 140
//*           ARCHIVED DATASETS AS WELL AS SUBMIT REQUESTS TO       *   FILE 140
//*           RECOVER ARCHIVED DATA.  PARTICULAR EFFORT WAS         *   FILE 140
//*           PUT FORTH IN WRITING THIS UTILITY SO AS TO            *   FILE 140
//*           ENSURE DATA REDUNDANCY FOR OBVIOUS CONTINGENCY        *   FILE 140
//*           PURPOSES.                                             *   FILE 140
//*                                                                 *   FILE 140
//***FILE 141 IS FROM TIM VANDERWALL FROM FORT BELVOIR, VA AND      *   FILE 141
//*           CONTAINS THE CODE THAT CAN BE USED TO LIST AND        *   FILE 141
//*           ANALYZE YOUR SYS1.BRODCAST DATASET. THIS FILE IS IN   *   FILE 141
//*           IEBUPDTE SYSIN FORMAT, FOR ADDITIONAL INFORMATION     *   FILE 141
//*           SEE THE MEMBER CALLED $$INFO                          *   FILE 141
//*                                                                 *   FILE 141
//***FILE 142 IS FROM MARVIN C CRUZAN FROM FORT BEN. HARRISON,      *   FILE 142
//*           INDIANAPOLIS WHICH CONTAINS A MODULE THAT ALLOWS      *   FILE 142
//*           ACCESS TO OTHER VTAM APPLICATIONS WITHOUT HAVING TO   *   FILE 142
//*           LOGOFF TSO                                            *   FILE 142
//*                                                                 *   FILE 142
//***FILE 143 IS FROM MR RANDALL SMITH, LUTHERAN MEDICAL CENTER OF  *   FILE 143
//*           WHEAT RIDGE, COLORADO AND CONTAINS SEVERAL OF THEIR   *   FILE 143
//*           ISPF/CLISTS AND EDIT MACROS INCLUDING AN ONLINE       *   FILE 143
//*           IDCAMS APPLICATION                                    *   FILE 143
//*                                                                 *   FILE 143
//***FILE 144 IS FROM PAT SHROUT OF WASHINGTON STATE DEPARTMENT OF  *   FILE 144
//*           TRANSPORTATION. THIS FILE CONTAINS A MODIFIED VPS     *   FILE 144
//*           USER EXIT 14 (DATASET ADD EXIT)                       *   FILE 144
//*                                                                 *   FILE 144
//*           THIS EXIT ALLOWS INSERTION OF DATA (PRINT OR          *   FILE 144
//*           CONTROL) BOTH BEFORE AND AFTER EACH DATASET AND       *   FILE 144
//*           SEPARATOR PROCESSED BY VPS.                           *   FILE 144
//*                                                                 *   FILE 144
//*           THIS EXIT IS USED TO SEND PRINTER CONTROL             *   FILE 144
//*           INFORMATION TO THE XEROX LASER PRINTERS AHEAD OF A    *   FILE 144
//*           DATASET.  BEFORE PROCESSING A DATASET, THIS EXIT      *   FILE 144
//*           CHECKS TO SEE IF A FORM WAS ENTERED.  IF A FORM WAS   *   FILE 144
//*           ENTERED, THIS EXIT USES THE FORM NAME AS THE MEMBER   *   FILE 144
//*           NAME AND OPENS A FORMS FILE.  THE MEMBER              *   FILE 144
//*           INFORMATION IS THEN READ AND SENT TO THE PRINTER TO   *   FILE 144
//*           SET IT UP AHEAD OF THE DATASET.  IF THERE WAS NO      *   FILE 144
//*           FORM ENTERED, THIS EXIT IS EXITED.  AFTER PRO-        *   FILE 144
//*           CESSING A DATASET ON A LASER PRINTER, REGARDLESS OF   *   FILE 144
//*           WHETHER A FORM WAS ENTERED OR NOT, A RESET COMMAND    *   FILE 144
//*           IS SENT TO THE PRINTER.                               *   FILE 144
//*                                                                 *   FILE 144
//*           THIS EXIT WAS CODED TO BE USED WITH XEROX LASER       *   FILE 144
//*           PRINTERS, BUT THE ONLY XEROX DEPENDENT CODE IS THE    *   FILE 144
//*           RESET COMMAND.  THIS EXIT COULD EASILY HANDLE ANY     *   FILE 144
//*           OTHER TYPE, OR MANY OTHER TYPES, OF PRINTERS BY       *   FILE 144
//*           CHECKING THE VALUE IN THE PRASEPI FIELD AND TAKING    *   FILE 144
//*           THE APPROPRIATE ACTION.  THIS COULD BE, MOVING IN A   *   FILE 144
//*           DIFFERENT DDNAME, ISSUING A DIFFERENT RESET           *   FILE 144
//*           COMMAND, SENDING OUT A CONTROL STRING, OR WHATEVER.   *   FILE 144
//*                                                                 *   FILE 144
//***FILE 145 IS FROM MR BILL SMITH, FORMERLY OF CHARLES SCHWAB,    *   FILE 145
//*           AND CONTAINS A COPY OF KERMIT FOR TSO.  THIS FILE IS  *   FILE 145
//*           IN IEBCOPY FORMAT AND CONTAINS SOURCE.                *   FILE 145
//*                                                                 *   FILE 145
//*         ADDRESS:   WILLIAM SMITH                                *   FILE 145
//*                    IBM                                          *   FILE 145
//*                    STORAGE SYSTEMS DIVISION                     *   FILE 145
//*                    5600 COTTLE ROAD                             *   FILE 145
//*                    DEPT. W98A                                   *   FILE 145
//*                    DRIVER BUILD & INTEGRATION                   *   FILE 145
//*                    BUILDING 50, ROOM A382                       *   FILE 145
//*                    SAN JOSE, CA 95193-0001                      *   FILE 145
//*                    (408) 256-1557 OR                            *   FILE 145
//*                    TIE LINE 276-1557                            *   FILE 145
//*                                                                 *   FILE 145
//*         email:     smithwj@us.ibm.com                           *   FILE 145
//*                    goldens@ibm.net                              *   FILE 145
//*                                                                 *   FILE 145
//*           THE KERMIT COMMAND INVOKES KERMIT-TSO, AN ASSEMBLY    *   FILE 145
//*           LANGUAGE PROGRAM WHICH IMPLEMENTS THE KERMIT FILE     *   FILE 145
//*           TRANSFER PROTOCOL ON IBM SYSTEM/370 AND XA MAINFRAME  *   FILE 145
//*           COMPUTERS AND COMPATIBLES RUNNING THE MVS (MULTIPLE   *   FILE 145
//*           VIRTUAL STORAGE) OPERATING SYSTEM WITH THE TSO (TIME  *   FILE 145
//*           SHARING OPTION) SUBSYSTEM.  KERMIT-TSO SUPPORTS FILE  *   FILE 145
//*           TRANSFER IN BOTH LINE-MODE AND FULL-SCREEN OPERATION. *   FILE 145
//*                                                                 *   FILE 145
//*           LINE-MODE SUPPORTS ASYNCHRONOUS  HALF-DUPLEX ASCII    *   FILE 145
//*           COMMUNICATIONS THROUGH 3705/3725 OR EQUIVALENT FRONT  *   FILE 145
//*           ENDS, WHILE FULL-SCREEN SUPPORTS ASYNCHRONOUS         *   FILE 145
//*           FULL-DUPLEX ASCII COMMUNICATIONS THROUGH THE IBM      *   FILE 145
//*           SERIES/1 RUNNING THE YALE ASCII COMMUNICATIONS SYSTEM *   FILE 145
//*           (OR EQUIVALENT) OR VARIOUS OTHER CONVERTERS WITH      *   FILE 145
//*           GRAPHICS THROUGHPUT OPTION.                           *   FILE 145
//*                                                                 *   FILE 145
//***FILE 146 IS FROM MR BILL SMITH OF CHARLES SCHWAB AND CONTAINS  *   FILE 146
//*           THE LOAD MODULES FOR KERMIT. THIS FILE IS IN IEBCOPY  *   FILE 146
//*           FORMAT                                                *   FILE 146
//*                                                                 *   FILE 146
//***FILE 147 is from Rick Fochtman, of Chicago Illinois, and       *   FILE 147
//*           contains a copy of "The ARCHIVER".  "The ARCHIVER"    *   FILE 147
//*           has been upgraded to Version 6.1.  This file is in    *   FILE 147
//*           IEBUPDTE SYSIN format.                                *   FILE 147
//*                                                                 *   FILE 147
//*           To my knowledge, there isn't any other software       *   FILE 147
//*           product like this, anywhere.  (SG - 10/99)            *   FILE 147
//*                                                                 *   FILE 147
//*           "The ARCHIVER" is a handy mechanism to store all of   *   FILE 147
//*           your software and data objects--source code, load     *   FILE 147
//*           modules, PSF objects, and the like--in one place,     *   FILE 147
//*           in a single VSAM cluster.  Version 4.0 and higher     *   FILE 147
//*           of The ARCHIVER provide a large amount of data        *   FILE 147
//*           compression, especially for source code.  Version     *   FILE 147
//*           4.0 and higher of "The ARCHIVER" allows item-by-item  *   FILE 147
//*           "export" to tape.  From the tape we can go directly   *   FILE 147
//*           back to pds uncompressed form, without need for the   *   FILE 147
//*           intermediate VSAM cluster.  Version 5.0 of The        *   FILE 147
//*           ARCHIVER was extensively reworked from previous       *   FILE 147
//*           versions.  Files created with previous versions of    *   FILE 147
//*           "The ARCHIVER" are upgradable with the "CONVERT"      *   FILE 147
//*           command.  Rick Fochtman plans to keep "The ARCHIVER"  *   FILE 147
//*           upwardly compatible.                                  *   FILE 147
//*                                                                 *   FILE 147
//*           Version 6.1 of The ARCHIVER is basically a            *   FILE 147
//*           Y2K-ization of Version 5.0.  (Remember here that      *   FILE 147
//*           the general CBT disclaimer about Y2K compatibility    *   FILE 147
//*           being "not guaranteed" applies - SG 10/12/99.)        *   FILE 147
//*                                                                 *   FILE 147
//*           "The ARCHIVER" makes it possible to handily store     *   FILE 147
//*           your personal software tool-kit for transport and     *   FILE 147
//*           archive purposes.  It may also be useful for the      *   FILE 147
//*           installation's stuff to help archive all your shop's  *   FILE 147
//*           software on a tape or two.                            *   FILE 147
//*                                                                 *   FILE 147
//*           THIS FILE CONTAINS SOURCE AND MACROS. ALSO A MEMBER   *   FILE 147
//*           CALLED SAMPLIB CONTAINS AN IEBUPDTE SYSIN STREAM FOR  *   FILE 147
//*           RICK'S SAMPLIB PDS. SEE MEMBER CALLED ARCHDOC.        *   FILE 147
//*                                                                 *   FILE 147
//*           ARCHIVER FUNCTIONS:  (NOT ALL OF THEM LISTED HERE)    *   FILE 147
//*                                                                 *   FILE 147
//*           1. UNLOAD A PDS OR SELECTED PDS MEMBERS TO A VSAM     *   FILE 147
//*              CLUSTER, STORING HISTORICAL AND COMMENT DATA       *   FILE 147
//*              RELATED TO EACH ITEM.                              *   FILE 147
//*                                                                 *   FILE 147
//*           2. LOAD A PDS FROM A VSAM CLUSTER ARCHIVE.            *   FILE 147
//*                                                                 *   FILE 147
//*           3. LIST, COPY OR DELETE ITEMS FROM A VSAM CLUSTER     *   FILE 147
//*              ARCHIVE DATASET.  OPTIONALLY, ADD COMMENT DATA TO  *   FILE 147
//*              ITEMS ON THE ARCHIVE CLUSTER.                      *   FILE 147
//*                                                                 *   FILE 147
//*           4. ITEM-BY-ITEM "EXPORT" OF ALL ENTRIES IN THE VSAM   *   FILE 147
//*              CLUSTER TO TAPE -- STILL IN HIGHLY COMPRESSED      *   FILE 147
//*              FORMAT.  LISTT TO LIST CONTENTS AND LOADT TO       *   FILE 147
//*              LOAD A PDS DIRECTLY FROM TAPE, PARALLEL THE LIST   *   FILE 147
//*              AND LOAD FUNCTIONS DESCRIBED ABOVE FOR THE VSAM    *   FILE 147
//*              CLUSTER ARCHIVE DATASET.                           *   FILE 147
//*                                                                 *   FILE 147
//*           5. PROVIDE A DATA-COMPRESSION MECHANISM TO REDUCE     *   FILE 147
//*              THE MEDIA REQUIREMENTS OF THE VSAM CLUSTER         *   FILE 147
//*              ARCHIVE DATASET AND THE "ITEM-BY-ITEM EXPORT"      *   FILE 147
//*              TAPE.                                              *   FILE 147
//*                                                                 *   FILE 147
//*           6. BACKUP AND RECOVER USING STANDARD IBM UTILITY      *   FILE 147
//*              MECHANISMS.  YOU CAN USE THE "IDCAMS EXPORT"       *   FILE 147
//*              AND "IDCAMS IMPORT" TOO, BUT THEY AREN'T ITEM-     *   FILE 147
//*              BY-ITEM.  THEY MUST DO THE ENTIRE VSAM DATASET.    *   FILE 147
//*                                                                 *   FILE 147
//*    email address:   rick.fochtman@botcc.com                     *   FILE 147
//*                     rfochtman@ync.net                           *   FILE 147
//*                                                                 *   FILE 147
//*    RICK FOCHTMAN PREFERS TO BE CONTACTED AT HIS HOME PHONE      *   FILE 147
//*    EVENINGS FROM 6 TO 9 PM EXCEPT THURSDAYS.  (630) 719-1545.   *   FILE 147
//*    YOU MAY GET A GROUCHO MARX IMITATION ON HIS ANSWERING        *   FILE 147
//*    MACHINE.  HAVE NO FEAR....ALL IS NORMAL.      SG 10/99       *   FILE 147
//*    YOU MAY LEAVE A MESSAGE AND A RETURN PHONE NUMBER ON HIS     *   FILE 147
//*    MACHINE DURING THE DAY HOURS.  (RICK IS ON CENTRAL TIME.)    *   FILE 147
//*                                                                 *   FILE 147
//*    ANOTHER NOTE -- I MIGHT AS WELL MENTION THIS CONCEPT HERE.   *   FILE 147
//*                                                                 *   FILE 147
//*    "THE ARCHIVER" CLASSIFIES "ITEMS" BY FOUR 10-BYTE KEYS AND   *   FILE 147
//*    A VERSION NUMBER THAT CAN GO FROM 1 TO 16MB.  SOME EXAMPLE   *   FILE 147
//*    CONTROL STATEMENTS TO UNLOAD ALL MEMBERS OF A PDS INTO A     *   FILE 147
//*    VSAM CLUSTER MIGHT READ AS FOLLOWS:                          *   FILE 147
//*                                                                 *   FILE 147
//*    SET VSAM1DSN=TST.SAMPLE.SYSTEM.ARCHIVE                       *   FILE 147
//*   *   COMMENT (ASTERISK IN COLUMN 1)                            *   FILE 147
//*   *   SET STATEMENT INSTRUCTS DYNAMIC ALLOCATION.               *   FILE 147
//*   *   VSAM1DSN OR VSAM1DDN STATEMENTS ALLOCATE VSAM CLUSTERS.   *   FILE 147
//*    UNLOAD ITEM=(*,SYS1.LKLIB,10/05/90,MVSRES),DSN=SYS1.LINKLIB  *   FILE 147
//*   *   DSN OR DDN STATEMENTS ALLOCATE NON-VSAM DATASETS.         *   FILE 147
//*                                                                 *   FILE 147
//*    THE COMMAS DELIMIT THE KEY FIELDS.  THE "*" IN THE FIRST     *   FILE 147
//*    FIELD DENOTES THAT ALL MEMBERS OF THE PDS SHOULD BE UNLOADED.*   FILE 147
//*    SYS1.LINKLIB, IF IT IS CATALOGED, IS DYNAMICALLY ALLOCATED   *   FILE 147
//*    BY THE ARCHIVER PROGRAM, AS INSTRUCTED BY THE "DSN" KEYWORD. *   FILE 147
//*    VERSION NUMBER (THE FIFTH PARAMETER) DEFAULTS TO 1.          *   FILE 147
//*                                                                 *   FILE 147
//*    IF AN ITEM EXISTS ON THE VSAM ARCHIVE WITH ALL KEYS AND      *   FILE 147
//*    VERSION NUMBER MATCHING, A NEW COPY WILL BE ARCHIVED WITH    *   FILE 147
//*    VERSION NUMBER INCREMENTED BY ONE.  IT IS EASIER TO STORE    *   FILE 147
//*    AN EXTRA COPY THAN TO RECOVER A DELETED COPY.  IF THE        *   FILE 147
//*    VERSION NUMBER IS EXPLICITLY STATED AND ALL FIVE KEYS MATCH, *   FILE 147
//*    THEN AN ITEM REPLACE IS FORCED.  A VERSION NUMBER MAY BE     *   FILE 147
//*    EXPLICITLY STATED, BUT THIS IS USUALLY NOT PREFERABLE.       *   FILE 147
//*                                                                 *   FILE 147
//* >> PLEASE KEEP LOOKING HERE FOR REPORTS OF NEW DEVELOPMENTS. << *   FILE 147
//*                                                                 *   FILE 147
//*    A.  ARCHIVER VERSION 6.1 HAS A "COMPARE" FUNCTION AND AN     *   FILE 147
//*        "ALIAS" FUNCTION FOR ITEMS, WHICH ARE NEW.  THE FORMAT   *   FILE 147
//*        OF THE ARCHIVE HASN'T CHANGED--VERSION 6.1 WILL READ     *   FILE 147
//*        ARCHIVES CREATED BY VERSION 4.0 WITHOUT CONVERSION,      *   FILE 147
//*        (BUT NOT VICE-VERSA, BECAUSE OF THE NEW ALIAS HEADERS).  *   FILE 147
//*        THERE IS ALSO A NEW FEATURE TO LIST CATEGORIES OF        *   FILE 147
//*        ITEMS.  YOU MAY PICTURE THIS FUNCTION AS DESCRIBING      *   FILE 147
//*        "LOGICAL FILES" WITHIN A SINGLE ARCHIVE VSAM DATASET     *   FILE 147
//*        OR TAPE.  THE FUNCTION IS CALLED "LFILE" (FROM AN        *   FILE 147
//*        ARCHIVE) AND "LFILET" (FROM A TAPE).                     *   FILE 147
//*                                                                 *   FILE 147
//*    B.  IN VERSION 6.1, IF TWO ARCHIVED ITEMS COMPARE TO BE      *   FILE 147
//*        IDENTICAL, IT IS POSSIBLE TO STORE ONLY ONE COPY OF      *   FILE 147
//*        THE ACTUAL DATA, AND STILL GET TO THE ITEM VIA TWO       *   FILE 147
//*        KEYS--ONE IS THE ACTUAL KEY, AND THE OTHER IS AN         *   FILE 147
//*        ALIAS KEY.  THIS CAN RESULT IN ENORMOUS MEDIA SAVINGS.   *   FILE 147
//*        (RICK FOCHTMAN HAS DONE "WONDERS" WITH THIS FACILITY.    *   FILE 147
//*        HE HAS SENT ME A SINGLE CARTRIDGE CONTAINING "THE        *   FILE 147
//*        ARCHIVER 5.0" SOFTWARE, PLUS AN ITEM-BY-ITEM EXPORTED    *   FILE 147
//*        ARCHIVE CONTAINING SIX VERSIONS OF THE CBT TAPE, THE     *   FILE 147
//*        JES2 AND JES3 SHARE TAPES, THE CICS SHARE TAPE, AND      *   FILE 147
//*        MATERIAL FROM OTHER TAPES.  I THINK HE DESERVES AT       *   FILE 147
//*        LEAST A "WOW".)                                          *   FILE 147
//*                                                                 *   FILE 147
//* >>>>  NOTICE - NOTICE - NOTICE - NOTICE - NOTICE - NOTICE  <<<< *   FILE 147
//* >>                                                           << *   FILE 147
//* >>    FOR ARCHIVER USERS, ARCHIVER VERSIONS 1, 2, AND 3      << *   FILE 147
//* >>    WILL NOT BE SUPPORTED AFTER JUNE 1, 1994.  VERSION 6.1 << *   FILE 147
//* >>    WILL CONVERT FILES FROM THE EARLIER FORMATS, TO ITS    << *   FILE 147
//* >>    CURRENT FORMAT.                                        << *   FILE 147
//* >>                                                           << *   FILE 147
//* >>>>  NOTICE - NOTICE - NOTICE - NOTICE - NOTICE - NOTICE  <<<< *   FILE 147
//*                                                                 *   FILE 147
//***FILE 148 IS A PANVALET ISPF SYSTEM FROM MR GEOFFREY MCINTYRE   *   FILE 148
//*           OF FIRST SECURITY SERVICE COMPANY OF SALT LAKE CITY   *   FILE 148
//*           UTAH. THIS FILE CONTAINS A COPY OF THEIR PANVALET     *   FILE 148
//*           ISPF SYSTEM. SEE THE MEMBER CALLED $$DOC FOR          *   FILE 148
//*           ADDITIONAL INFORMATION. THIS FILE IS IN IEBUPDTE      *   FILE 148
//*           SYSIN FORMAT                                          *   FILE 148
//*                                                                 *   FILE 148
//***FILE 149 CONTAINS SEVERAL UTILITIES FROM UCLA.  THIS FILE IS   *   FILE 149
//*           IN IEBUPDTE SYSIN FORMAT - SEE THE MEMBER CALLED      *   FILE 149
//*           $$DOC FOR ADDITIONAL INFORMATION. THE FOLLOWING IS    *   FILE 149
//*           A BRIEF DESCRIPTION OF UTILITIES IN THIS FILE :       *   FILE 149
//*                                                                 *   FILE 149
//*         CCNEDFSE/CCNEDFSH - FULL SCREEN TSO EDIT SUBCOMMAND     *   FILE 149
//*              FOR 3270'S.  THIS INCLUDES MOVE/COPY/DELETE        *   FILE 149
//*              COMMANDS WHICH ALLOW LINE NUMBERS ON UNNUMBERED    *   FILE 149
//*              FILES.  REQUIRES ZAP TO IKJEBEMA TO ADD TO EDIT    *   FILE 149
//*              COMMAND TABLE.  (SEE INFO  CNEDFSE)                *   FILE 149
//*                                                                 *   FILE 149
//*         CMSLOAD - LOAD "DISK DUMP" FILE FROM VM.                *   FILE 149
//*                                                                 *   FILE 149
//*         COMPARE - LOAD MODULE / CSECT COMPARE PROGRAM.          *   FILE 149
//*                   *** REQUIRED ***                              *   FILE 149
//*                                                                 *   FILE 149
//*         DUMPINFO - TSO CP TO DISPLAY SYS1.DUMP DATASET          *   FILE 149
//*                    STATUS.  INCLUDES TITLE, DATE AND TIMES.     *   FILE 149
//*                                                                 *   FILE 149
//*         ENQ      - SP 1.3 ENQ DISPLAY TSO CP                    *   FILE 149
//*                                                                 *   FILE 149
//*         ESDXREF  - LOAD MODULE / CSECT XREF PGM                 *   FILE 149
//*                                                                 *   FILE 149
//*         IEAVNP99 - SAMPLE USER NIP EXIT ROUTINE.                *   FILE 149
//*                    SEE   EAVNP99 FOR SAMPLE SMP INSTALL.        *   FILE 149
//*                                                                 *   FILE 149
//*         IEFU83   - SMF 83 EXIT WITH CODE TO WTO OLD IEC209I     *   FILE 149
//*                    TAPE STATISTICS MESSAGE.  (THE REST OF THE   *   FILE 149
//*                    LOCAL CODE SHOULD BE DELETED).               *   FILE 149
//*                                                                 *   FILE 149
//*         IXTOFMT5 - SUBROUTINE USED TO UPGRADE PGMS TO WORK      *   FILE 149
//*                    ON INDEXED VTOC'S.  RETURNS "FAKE" FMT5'S    *   FILE 149
//*                    FOR INDEXED PACKS.  (USED BY LISTSPC AND     *   FILE 149
//*                    VTOCLIST)                                    *   FILE 149
//*                                                                 *   FILE 149
//*         JOIN     - VERY SIMPLE & POWERFUL GENERAL MATCH MERGE   *   FILE 149
//*                    PGM.                                         *   FILE 149
//*                                                                 *   FILE 149
//*         LISTGRP  - LISTS UNITS IN GENERICS, OR ESOTERICS.       *   FILE 149
//*                                                                 *   FILE 149
//*         LISTSPC  - OLD LISTSPC CP FROM CBT TAPE UPDATED FOR     *   FILE 149
//*                    INDEXED VTOCS.  (USES IXTOFMT5               *   FILE 149
//*                    SUBROUTINE).                                 *   FILE 149
//*                                                                 *   FILE 149
//*         MOVEZAP  - ZAPS TO (COPY) OF IEHMOVE TO ALLOW           *   FILE 149
//*                    RUNNING FASTER & NON-AUTHORIZED.             *   FILE 149
//*                                                                 *   FILE 149
//*         OACFSORT - ASM SUBROUTINE TO DO FIXED LENGTH            *   FILE 149
//*                    QUICKSORTS.  (FINAL ORDER CHECK COULD BE     *   FILE 149
//*                    REMOVED FOR HIGH USAGE CASES)                *   FILE 149
//*                                                                 *   FILE 149
//*         OACMOVE  - IEHMOVE PRELOAD PGM. (SEE ALSO MOVEZAP)      *   FILE 149
//*                                                                 *   FILE 149
//*         OACNSWAP - PGM TO RUN PROBLEM PROGRAMS NON-SWAPPABLE    *   FILE 149
//*                    WITH ONLY ONE PPT ENTRY.  PGM IS NOT APF     *   FILE 149
//*                    AUTHORIZED.  (SEE  ACNSWAP FOR PPT ENTRY     *   FILE 149
//*                    INFO).                                       *   FILE 149
//*                                                                 *   FILE 149
//*         PTFXREF  - PE CHAIN RUNNER (PLIX).                      *   FILE 149
//*                                                                 *   FILE 149
//*         SALVAGE  - HDA / PACK CLEAN UP PGM (& CP).              *   FILE 149
//*                                                                 *   FILE 149
//*         SMPULCMP - SMP LMOD ENTRY (FROM SMP UNLOAD) COMPARE.    *   FILE 149
//*                    USED IN SP 1.0 TO SP 1.3 CONVERSION (AND     *   FILE 149
//*                    OTHER TIMES). (PLIX)                         *   FILE 149
//*                                                                 *   FILE 149
//*         UNIQUE   - VERY SIMPLE PGM TO SELECT ONE OF THINGS.     *   FILE 149
//*                    (SEE ALSO JOIN)                              *   FILE 149
//*                                                                 *   FILE 149
//*         USERS    - TSO USERS CP (SELECTS USERS WITH WILDCARDS). *   FILE 149
//*                                                                 *   FILE 149
//*         VTOCLIST - OLD VTOCLIST PGM UPDATE TO WORK ON           *   FILE 149
//*                    INDEXED VTOCS.  (USES IXTOFMT5 SUBROUTINE)   *   FILE 149
//*                                                                 *   FILE 149
//***FILE 150 IS FROM MARK DIEHL OF HERCULES/ALLGEGANY              *   FILE 150
//*           BALLISTICS LAB AND CONTAINS A COPY OF THEIR ISPF      *   FILE 150
//*           INTERACTIVE DATA XMISSION FACILITY.  THIS FILE IS     *   FILE 150
//*           IN IEBUPDTE SYSIN FORMAT.  PLEASE READ THE $          *   FILE 150
//*           MEMBERS IN THIS FILE FOR ADDITIONAL INFORMATION.      *   FILE 150
//*                                                                 *   FILE 150
//*           THE "TRANSMIT/RECEIVE" UTILITY IS AN                  *   FILE 150
//*           IDPF/PDF-BASED DIALOG THAT AUTOMATES THE USE OF       *   FILE 150
//*           TSO/E'S IDTF COMMANDS "TRANSMIT" & "RECEIVE".  IT     *   FILE 150
//*           WAS DEVELOPED UNDER TSO/E V1.3, AND ISPF/PDF          *   FILE 150
//*           V2.2.                                                 *   FILE 150
//*                                                                 *   FILE 150
//*           FROM ONE PANEL, THE CASUAL USER CAN INITIATE DATA     *   FILE 150
//*           TRANSFER WITHOUT HAVING TO KNOW MUCH DETAIL ABOUT     *   FILE 150
//*           COMMAND OPERANDS BUT ALSO THE CAPABILITY IS           *   FILE 150
//*           PROVIDED  FOR THE EXPERIENCED IDTF USER TO REALLY     *   FILE 150
//*           MAKE DATA DANCE.  NICKNAME PROCESSING CAPABILITY      *   FILE 150
//*           IS PROVIDED.  FOR NEW IDTF USERS, NICKNAME USAGE      *   FILE 150
//*           IS ASSISTED BY THE AUTOMATIC CREATION OF A            *   FILE 150
//*           PROTOTYPE NICKNAMES DATASET, COMPLETE WITH            *   FILE 150
//*           CUSTOMIZATION INSTRUCTIONS CONTAINED WITHIN.          *   FILE 150
//*           IDTF LOG AND RECEIVE PROCESSING IS AVAILABLE FROM     *   FILE 150
//*           THE SAME PANEL.  AS AN ADDED EXTRA, PROVIDED THAT     *   FILE 150
//*           DATA IS TRANSMITTED FROM SAME-NODE TO SAME-NODE,      *   FILE 150
//*           A FRIENDLY TSO MESSAGE (VIA THE OLD TSO "SEND"        *   FILE 150
//*           CMD) NOTIFIES THE TARGETED USER(S) OF INCOMING        *   FILE 150
//*           DATA.  THIS DYNAMIC NOTIFICATION OCCURS EVEN IF       *   FILE 150
//*           TRANSMITTING TO INDIVIDUAL OR GROUP NICKNAMES         *   FILE 150
//*           (EACH USER IN A GROUP WILL BE SENT A "DATA HAS        *   FILE 150
//*           BEEN TRANSMITTED TO YOU" MESSAGE).  OF COURSE,        *   FILE 150
//*           TUTORIAL PANELS ARE INCLUDED.                         *   FILE 150
//*                                                                 *   FILE 150
//***FILE 151 IS FROM MR JOHN D SOSTROM OF DAYCO PRODUCT INC OF     *   FILE 151
//*           DAYCO PRODUCTS INC OF DAYTON, OHIO.  THIS FILE        *   FILE 151
//*           CONTAINS A MODIFIED LISTCAT FROM THE U.S. AIR FORCE.  *   FILE 151
//*           THE LISTCAT MODIFICATIONS CREATE AN INFO/MVS V3       *   FILE 151
//*           DATA BASE FILE FOR A COMPLETE SEARCHABLE LISTCAT      *   FILE 151
//*           ALL OF THE SYSTEM CATALOGS.                           *   FILE 151
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT AND CONTAINS    *   FILE 151
//*           THE FOLLOWING MEMBERS                                 *   FILE 151
//*                                                                 *   FILE 151
//*    $$$$$DOC   THIS DOCUMENTATION FILE                           *   FILE 151
//*    INFOCAT    PL/I PROGRAM SOURCE.  TAKES IN THE LISTCAT ALL    *   FILE 151
//*               AND OUTPUTS A FILE FOR PROCESSING BY BLGOZUD.     *   FILE 151
//*               OUTPUT FILE IS LRECL=80,BLKSIZE=32640.            *   FILE 151
//*    INFOJCL    COMPLETE JOB TO CREATE INFO/MVS DATA BASE FROM    *   FILE 151
//*               LISTCAT.                                          *   FILE 151
//*    INFOPLI    PL/I COMPILE JOB FOR MEMBER INFOCAT               *   FILE 151
//*    INFSSASM   MEMEBER TO ASSEMBLE INFO/MVS SESSION PARAMETERS   *   FILE 151
//*               TABLES (INFSS00) SESSION 00 AND (INFSS11)         *   FILE 151
//*               SESSION 11.                                       *   FILE 151
//*    INFSS00    INFO/MVS SESSION MEMBER FOR SESS=00               *   FILE 151
//*    INFSS11    INFO/MVS SESSION MEMBER FOR SESS=11               *   FILE 151
//*    ISR=PRIM   PRIMARY ISPF OPTION MENU.  SHOWS INVOCATION OF    *   FILE 151
//*               INFO/MVS FOR BOTH SESS00 AND SESS11.              *   FILE 151
//*                                                                 *   FILE 151
//***FILE 152 IS FROM MR HAROLD ZBIEGIEN OF AMERICAN GREETINGS      *   FILE 152
//*           CORPORATION OF CLEVELAND, OHIO AND CONTAINS           *   FILE 152
//*           SOME UTILITY PROGRAMS AND PROGRAMS USED TO            *   FILE 152
//*           MANIUPLATE AFP (PSF) OBJECTS SUCH AS CHARACTER        *   FILE 152
//*           SETS AND OVERLAYS.  THIS FILE IS IN IEBUPDTE          *   FILE 152
//*           SYSIN FORMAT, SEE THE MEMBER CALLED $$DOC FOR         *   FILE 152
//*           ADDITIONAL INFORMATION                                *   FILE 152
//*                                                                 *   FILE 152
//*      email:   harold.zbiegien@amgreetings.com                   *   FILE 152
//*                                                                 *   FILE 152
//*      address:    AMERICAN GREETINGS CORP.                       *   FILE 152
//*                  ONE AMERICAN ROAD                              *   FILE 152
//*                  CLEVELAND, OHIO 44144                          *   FILE 152
//*                                                                 *   FILE 152
//*      phone:   216-252-7300  ext 2317                            *   FILE 152
//*                                                                 *   FILE 152
//*           AGGETVLI   SUBROUTINE USED IN INLINE                  *   FILE 152
//*           AGTERM     SUBROUTINE USED IN INLINE                  *   FILE 152
//*           AMAZING    PRODUCE A MAZE WITH ONE ENTRANCE AND       *   FILE 152
//*                      ONE EXIT (SOURCE)                          *   FILE 152
//*           AMAZING2   RUN THE PROGRAM, PRINT ON A PRINTER        *   FILE 152
//*                      THAT DOES NOT SKIP OVER THE PERFS.         *   FILE 152
//*           CALENDAR   PRINT A COMBINED JULIAN AND GREGORIAN      *   FILE 152
//*                      CALENDAR FOR ANY YEAR                      *   FILE 152
//*           F11UP      PPFA SOURCE, FORM DEFINTION FOR 1-UP       *   FILE 152
//*                      PRINTING                                   *   FILE 152
//*           F12UP      PPFA SOURCE, FORM DEFINITION FOR           *   FILE 152
//*                      ROTATED 2-UP PRINTING                      *   FILE 152
//*           INLINE     COBOL SOURCE FOR A PROGRAM TO COPY         *   FILE 152
//*                      PAGEDEFS AND FORMDEFS INLINE WITH THE      *   FILE 152
//*                      DATA FOR TESTING NEW PAGE AND FORM DEFS    *   FILE 152
//*                      COMPILED WITH THE NORES PARAMETER WITH     *   FILE 152
//*                      THE OLD OS/VS COBOL COMPILER               *   FILE 152
//*           INLINER    RUN TIME JCL FOR INLINE                    *   FILE 152
//*           JOVERBLD   THE SAS JOB TO CREATE PSF TYPE OVERLAYS    *   FILE 152
//*           NCZ93205   AN UPDATED VERSION OF A PDS MEMBER READ    *   FILE 152
//*                      SUBROUTINE FOUND ON THE CBT TAPE, ONE      *   FILE 152
//*                      BUG CORRECTED, EXTRA PARAMETER ADDED SO    *   FILE 152
//*                      THE CALLING PROGRAM CAN PASS A DDNAME      *   FILE 152
//*                      TO READ FROM                               *   FILE 152
//*           O$$DOC     DOCUMENTATION ON THE TWO OVERLAYS          *   FILE 152
//*           O11UP      SOURCE FOR THE PSF 1-UP OVERLAY            *   FILE 152
//*           O12UP      SOURCE FOR THE PSF 2-UP OVERLAY            *   FILE 152
//*           POSTERT    JCL TO RUN POSTER FOR NON-LASER            *   FILE 152
//*                      PRINTERS                                   *   FILE 152
//*           POSTERT2   DECOMPILED SOURCE FOR THE POSTER           *   FILE 152
//*                      PROGRAM FOUND ON THE CBT TAPE, SOME        *   FILE 152
//*                      BUGS FIXED, CARD INPUT NOW ALLOWED         *   FILE 152
//*           POSTER2    JCL TO PRINT POSTER OUTPUT ON A            *   FILE 152
//*                      SIEMENS/STC LASER PRINTER WHICH ARE        *   FILE 152
//*                      COMPATIBLE WITH IBM 3800-3/6 PRINTERS      *   FILE 152
//*                      BUT YOU CAN PRINT PERF TO PERF, HOWEVER    *   FILE 152
//*                      WITH SOME DEGRADATION                      *   FILE 152
//*           PSFSCAN    A SERIES OF SAS PROGRAMS USED TO PRINT     *   FILE 152
//*                      AND MANIPULATE PSF OBJECTS.  I HAVE        *   FILE 152
//*                      USED THEM TO MAKE SIMPLE CHANGES TO        *   FILE 152
//*                      CHARACTER SETS, MODIFY BAR CODE FONTS,     *   FILE 152
//*                      PRODUCE ROTATED FONTS, PRODUCE OUR OWN     *   FILE 152
//*                      GREY BAR PATTERN, AND PRODUCE OUR OWN      *   FILE 152
//*                      SIMPLE OVERLAYS.                           *   FILE 152
//*                      THESE HAVE BEEN DESIGNED AROUND THE        *   FILE 152
//*                      3800 TYPE PRINTER.  THERE ARE DIFFERENCES  *   FILE 152
//*                      WITH 3820/3835 FONTS THAT THESE            *   FILE 152
//*                      PROGRAMS PROBABLY WILL NOT HANDLE.         *   FILE 152
//*                      SINCE WE DO NOT HAVE THE OTHER PRINTERS    *   FILE 152
//*                      I COULD NOT MODIFY AND TEST THE            *   FILE 152
//*                      PROGRAMS.                                  *   FILE 152
//*           PSFSCANA   SAS PROGRAM TO LOAD A PSF CHARACTER        *   FILE 152
//*                      GROUP INTO A SAS FILE                      *   FILE 152
//*           PSFSCANB   SAS PROGRAM TO TAKE SAS DATA AND BUILD     *   FILE 152
//*                      NEW PSF CHARACTER GROUP, I.E. A C1XXXXX    *   FILE 152
//*                      MEMBER                                     *   FILE 152
//*           PSFSCANC   DELETE A CHARACTER FROM THE SAS DATA       *   FILE 152
//*                      SET                                        *   FILE 152
//*           PSFSCAND   ADD A CHARACTER TO THE SAS DATA SET        *   FILE 152
//*           PSFSCANE   PRINT THE SAS FILE DATA AND CHARACTER      *   FILE 152
//*                      RASTER PATTERN                             *   FILE 152
//*           PSFSCANF   PRINT INFO AND THE CHARACTERS FROM THE     *   FILE 152
//*                      SAS DATA FILE                              *   FILE 152
//*           PSFSCANH   LOAD A CODE PAGE INTO A SAS FILE, I.E.     *   FILE 152
//*                      T1XXXXX MEMBER                             *   FILE 152
//*           PSFSCANI   PRINT THE CODE PAGE FROM THE SAS FILE      *   FILE 152
//*           PSFSCANJ   DELETE A CHARACTER FROM THE SAS CODE       *   FILE 152
//*                      PAGE FILE                                  *   FILE 152
//*           PSFSCANK   ADD A CHARACTER TO THE SAS CODE PAGE       *   FILE 152
//*                      FILE                                       *   FILE 152
//*           PSFSCANL   BUILD A NEW CODE PAGE FROM THE SAS FILE    *   FILE 152
//*           PSFSCANM   TAKE 3800-3 "DOWN" FONT AND CHANGE IT      *   FILE 152
//*                      INTO AN "UP" FONT I.E. TAKE A C2XXXXX      *   FILE 152
//*                      MEMBER AND CHANGE INTO A C4XXXXX           *   FILE 152
//*           PSFSCANN   PRINT AN UP RASTER PATTERN FROM THE SAS    *   FILE 152
//*                      FILE                                       *   FILE 152
//*           PSFSCANO   BUILD THE "UP" CHARACTER SET FROM THE      *   FILE 152
//*                      SAS FILE                                   *   FILE 152
//*           PSFSCANP   COMPARE A SAS CHARACTER SET AND SAS        *   FILE 152
//*                      CODE PAGE                                  *   FILE 152
//*           PSFSCANQ   BUILD AN OVERLAY USING SAS AND SOURCE      *   FILE 152
//*                      COMMANDS.  A SAMPLE OVERLAY TESTING OUT    *   FILE 152
//*                      ALL OF THE COMMANDS                        *   FILE 152
//*           PSFSCAN1   READ A GROUP OF X1XXXX FONT MEMBERS,       *   FILE 152
//*                      SORT AND PRINT DATA                        *   FILE 152
//*           PSFSCAN4   PRINT INFO ON ONE T1XXXXX MEMBER, A        *   FILE 152
//*                      CODE PAGE PRINT                            *   FILE 152
//*           PSFSCAN5   PRINT INFO ON 1 C1XXXXX MEMBER, A          *   FILE 152
//*                      CHARACTER GROUP                            *   FILE 152
//*           PSFSCAN6   PRINT INFO ON A GROUP OF CHARACTER         *   FILE 152
//*                      GROUPS                                     *   FILE 152
//*           PSFSCAN7   PRINT A 1 LINE SUMMARY ON A SINGLE         *   FILE 152
//*                      CHARACTER GROUPS                           *   FILE 152
//*           PSFSCAN8   PRINT A 1 PAGE SUMMARY ON A GROUP OF       *   FILE 152
//*                      CHARACTER GROUPS                           *   FILE 152
//*           PSFSCAN9   PRINT INFO AND THE RASTER PATTERN OF       *   FILE 152
//*                      ONE CHARACTER GROUP                        *   FILE 152
//*           P12UP      PPFA SOURCE FOR OUR 2-UP PAGE DEF          *   FILE 152
//*           P18B2      PPFA SOURCE FOR OUR 1-UP PAGE DEF          *   FILE 152
//*           RFIXMOVE   SUBROUTINE USED IN INLINER                 *   FILE 152
//*           RPRINT02   SUBROUTINE USED IN INLINER                 *   FILE 152
//*           RPRINT07   SUBROUTINE USED IN INLINER                 *   FILE 152
//*           RPRINT09   SUBROUTINE USED IN INLINER                 *   FILE 152
//*           T$$DOC     DOC ON OUR CODE PAGES                      *   FILE 152
//*           TIMETAKE   SOURCE FOR A PROGRAM ANALYZER PROGRAM.     *   FILE 152
//*                      THE PROGRAM LOADS AND RUNS A TARGET        *   FILE 152
//*                      PROGRAM.  IT SETS A TIMER WHICH IS USED    *   FILE 152
//*                      TO SAMPLE WHERE A PROGRAM IS (PSW          *   FILE 152
//*                      INSTRUCTION) AND WRITE THE INFO OUT TO     *   FILE 152
//*                      A FILE.  THIS CAN BE USED TO TELL YOU      *   FILE 152
//*                      WHERE YOUR PROGRAM IS SPENDING THE MOST    *   FILE 152
//*                      TIME.  WORKS ON 24 OR 31 BIT PROGRAMS.     *   FILE 152
//*                      THERE ARE MUCH BETTER PROGRAMS ON THE      *   FILE 152
//*                      MARKET.  IT IS BEST IF ALL OF THE          *   FILE 152
//*                      SUBROUTINES ARE LINKED AS PART OF THE      *   FILE 152
//*                      LOAD MODULE.                               *   FILE 152
//*           TIMEHIST   COBOL PROGRAM USED TO PRINT A HISTOGRAM    *   FILE 152
//*                      OF THE DATA GATHERED BY TIMETAKE.  THIS    *   FILE 152
//*                      IS AN OLD OS/VS COBOL PROGRAM.             *   FILE 152
//*           TIMHISTJ   SAMPLE JCL FOR RUNNING TIMEHIST            *   FILE 152
//*           TIMTAKEJ   SAMPLE JCL FOR RUNNING TIMETAKE            *   FILE 152
//*           X$$DOC     DOC ON OUR CHARACTER SETS                  *   FILE 152
//*                                                                 *   FILE 152
//***FILE 153 IS FROM MR HAROLD ZBIEGIEN OF AMERICAN GREETINGS      *   FILE 153
//*           CORPORATION OF CLEVELAND, OHIO AND CONTAINS           *   FILE 153
//*           A FEW CHARACTER SETS FROM THEIR 3800 FONTLIB          *   FILE 153
//*           THAT WERE DEVELOPED FROM THE PROGRAMS IN FILE         *   FILE 153
//*           152 OF THIS TAPE.  THIS FILE IS IN IEBCOPY FORMAT     *   FILE 153
//*           RECFM=VBM,LRECL=8205,BLKSIZE=8209                     *   FILE 153
//*                                                                 *   FILE 153
//***FILE 154 IS FROM MR SAM GOLOB AND IS A COBOL PROGRAM CALLED    *   FILE 154
//*           "GIMELMNQ" THAT READS ELEMENT LISTINGS FROM SMP/E     *   FILE 154
//*           RELEASE 5 APPLY AND ACCEPT REPORTS.  THE OUTPUT       *   FILE 154
//*           CARD-IMAGE FILE CONTAINS THE NAME OF THE ELEMENT,     *   FILE 154
//*           AND THE NAME OF THE DLIB IT IS SUPPOSED TO GO IN      *   FILE 154
//*           TO.  IT ALSO CONTAINS THE NAME OF THE LMOD AND ITS    *   FILE 154
//*           TARGET LIBRARY'S NAME.  THE OUTPUT FILE IS A          *   FILE 154
//*           CARD-IMAGE FILE, WHICH MAY BE EDITED TO CREATE AN     *   FILE 154
//*           IEBCOPY JOB THAT WILL COPY THIS DLIB'S ELEMENTS       *   FILE 154
//*           INTO ANOTHER DLIB.                                    *   FILE 154
//*                                                                 *   FILE 154
//***FILE 155 is from David North and contains two versions of      *   FILE 155
//*           the REXX reformatter exec.  In addition, there are    *   FILE 155
//*           other REXX execs, notably REXX8080, which can         *   FILE 155
//*           reformat VB-255 REXX execs so they can be made into   *   FILE 155
//*           FB-80 REXX execs that work the same way.              *   FILE 155
//*                                                                 *   FILE 155
//*  Subject:  REXXREF - Additional explanation                     *   FILE 155
//*  From:     "North, David (USI)" <david.north@unistudios.com>    *   FILE 155
//*                                                                 *   FILE 155
//*            Technical Services Group                             *   FILE 155
//*            Dave North                                           *   FILE 155
//*            3429 Downing Ave.                                    *   FILE 155
//*            Glendale, CA. 91208                                  *   FILE 155
//*                                                                 *   FILE 155
//* REXXREF and REXREF--------------------------------------------- *   FILE 155
//*     The two execs (ISPF edit macros) REXXREF and REXREF were    *   FILE 155
//*     written for VM CMS.  REXXREF is the full version, does      *   FILE 155
//*     reformatting and cross reference, and REXREF is the same    *   FILE 155
//*     with the cross reference code removed.  In both macros I    *   FILE 155
//*     disabled the VM code and replaced it with ISPF code.        *   FILE 155
//*     Not all of the options work, I have plans to make it all    *   FILE 155
//*     work.                                                       *   FILE 155
//*                                                                 *   FILE 155
//*     The default is to reformat and not attempt the cross        *   FILE 155
//*     reference.  It will indent 3 cols for each level of IF,     *   FILE 155
//*     DO, SELECT, etc.  Comments will be right adjusted to col    *   FILE 155
//*     73.  REXX reserved words will be capitalized with REXX      *   FILE 155
//*     functions in all caps.                                      *   FILE 155
//*                                                                 *   FILE 155
//* REXX8080------------------------------------------------------- *   FILE 155
//*                                                                 *   FILE 155
//*     Here is the atttempt at converting REXX VB-255 files        *   FILE 155
//*     into FB-80 with correct continuation, REXX8080.             *   FILE 155
//*     REXX8080  - 09/28/99 - Reformat REXX program into 80 col    *   FILE 155
//*                 lines by breaking up lines longer than 80       *   FILE 155
//*                 into continuation lines.  Note: line without    *   FILE 155
//*                 blanks or "(", ")", or "=" is not split.        *   FILE 155
//*                                                                 *   FILE 155
//*                 Run this exec from ISPF edit and then move      *   FILE 155
//*                 the edited file to a FB-80 PDS.  Let the        *   FILE 155
//*                 truncation happen,  It's OK.  Everything        *   FILE 155
//*                 past col 80 is now blank.  Run REXREF or        *   FILE 155
//*                 REXXREF after REXX8080 to make it look nice.    *   FILE 155
//*                 Then re-run REXX8080 because the                *   FILE 155
//*                 reformatting may make long lines.               *   FILE 155
//*                                                                 *   FILE 155
//*                 Use the file called JUNK to validate/test       *   FILE 155
//*                 REXX8080. First it must be moved to a FB-255    *   FILE 155
//*                 PDS and the lines concatenated back into long   *   FILE 155
//*                 lines(use SPLITJOIN).                           *   FILE 155
//*                                                                 *   FILE 155
//*        Note:  Please see File 187 for a program to convert      *   FILE 155
//*               CLISTs from VB-255 to FB-80 and vice-versa.       *   FILE 155
//*                                                                 *   FILE 155
//* OTHER STUFF---------------------------------------------------- *   FILE 155
//*     Here are some VM crutches:                                  *   FILE 155
//*     The SPLTJOIN exec is very useful when adding comments to    *   FILE 155
//*     REXX's.                                                     *   FILE 155
//*                                                                 *   FILE 155
//*     ALL(VM)   - Show only lines which containe the specified    *   FILE 155
//*                 string. If no argument is passed the issue a    *   FILE 155
//*                 RESET to show all lines in the file. Syntax     *   FILE 155
//*                 for the string is the same as the EXclude.      *   FILE 155
//*                                                                 *   FILE 155
//*     QQuit(VM) - Cancel and throw away the editing changes to    *   FILE 155
//*                 the file                                        *   FILE 155
//*                                                                 *   FILE 155
//*     SPLTJOIN  - (For the XEDIT folks)                           *   FILE 155
//*                 Split the line at the cursor location, OR, if   *   FILE 155
//*                 there are only blanks following the cursor      *   FILE 155
//*                 then Join the following line to the cursor      *   FILE 155
//*                 line at the cursor position                     *   FILE 155
//*                                                                 *   FILE 155
//*        Hint:  Set a PF key, maybe PF14, to execute the          *   FILE 155
//*               VMSPLIT macro then you can simply                 *   FILE 155
//*               position the cursor at the location of            *   FILE 155
//*               the SPLIT/JOIN and press PF14                     *   FILE 155
//*                                                                 *   FILE 155
//***FILE 156 IS FROM A MID-WESTERN COMPANY WHICH CONTAINS A        *   FILE 156
//*           PROGRAM CALLED IEBASAP WHICH IS USED TO PROCESS       *   FILE 156
//*           THE DATA FROM IBM'S ASAP SERVICE ON IBMLINK.  THE     *   FILE 156
//*           PROGRAM WILL BUILD AND MAINTAIN A DATA BASE OF        *   FILE 156
//*           THE ASAP DATA, ONCE THE USER HAS IT ON HIS HOST       *   FILE 156
//*           MACHINE, AND THEN BOUNCE THE DATA AGAINST THE         *   FILE 156
//*           USER'S SMP/E RELEASE 5 GLOBAL, TARGET, AND DLIB       *   FILE 156
//*           ZONES TO DETERMINE IF ANY KNOWN PE MAINT IS           *   FILE 156
//*           INSTALLED.  THIS FILE CONTAINS THE PROGRAM, USER      *   FILE 156
//*           MACROS, AND SAMPLE JCL.  ALSO IS A COPY OF AN         *   FILE 156
//*           ARTICLE THAT WILL APPEAR IN A FUTURE ISSUE OF         *   FILE 156
//*           TECHNICAL SUPPORT MAGAZINE ABOUT THE PROGRAM.         *   FILE 156
//*           ALSO THE ARTICLE IS THE USER DOC.                     *   FILE 156
//*                                                                 *   FILE 156
//***FILE 157 IS FROM A MID-WESTERN COMPANY WHICH CONTAINS SOME     *   FILE 157
//*           EXAMPLE ASAP DATA AND SAMPLE REPORTS FROM THE         *   FILE 157
//*           PROGRAM WHICH IS CONTAINED IN FILE 156 OF THIS        *   FILE 157
//*           TAPE THIS FILE IS IN IEBGENER FORMAT RECFM = FBA      *   FILE 157
//*           LRECL = 133 BLKSIZE = 32718                           *   FILE 157
//*                                                                 *   FILE 157
//***FILE 158 IS FROM ROBERT IAPPINI OF TEXACO IN HOUSTON, TEXAS.   *   FILE 158
//*           THIS FILE CONTAINS A BUNCH OF REXX EXECS AND ISPF     *   FILE 158
//*           APPLICATIONS.  THIS FILE WAS TAKEN FROM THE SHARE     *   FILE 158
//*           DISKETTES THAT WERE DISTRIBUTED AT SHARE 81 (AUGUST   *   FILE 158
//*           1993).                                                *   FILE 158
//*                                                                 *   FILE 158
//***FILE 159 IS FROM CBT AND CONTAINS A COPY OF THEIR UCBFIND      *   FILE 159
//*           ROUTINE FOR MVS/SP AND MVS/SP XA.  THIS SUBROUTINE    *   FILE 159
//*           HAS TO RUN AUTHORIZED.  THAT IS ACCOMPLISHED THROUGH  *   FILE 159
//*           A USER WRITTEN SVC.  SEE THE CODE FOR COMPLETE        *   FILE 159
//*           DOCUMENTATION.                                        *   FILE 159
//*                                                                 *   FILE 159
//*             UCBFIND IS A SUBROUTINE FOR USE IN SP3 OR X-A       *   FILE 159
//*       SYSTEM FOR UCB LOOK UP FUNCTIONS.  THE CHARTS BELOW       *   FILE 159
//*       DESCRIBE THE FUNCTIONS.                                   *   FILE 159
//*                                                                 *   FILE 159
//*    |-------------------------------------------------------|    *   FILE 159
//*    |FUNC|     INPUT DATA         |  RETURNED OUTPUT DATA   |    *   FILE 159
//*    |CODE|                        |                         |    *   FILE 159
//*    |----|------------------------|-------------------------|    *   FILE 159
//*    | 00 | GENERIC OR ESOTERIC    | ALL MATCHING UCBS       |    *   FILE 159
//*    |    | NAME                   |                         |    *   FILE 159
//*    | 01 | DEV CLASS+TYPE FOR     | ALL MATCHING UCBS       |    *   FILE 159
//*    |    | GENERIC DEVICE         |                         |    *   FILE 159
//*    | 01 | DEV CLASS+TYPE FOR     | CURRENTLY NOT SUPPORTED |    *   FILE 159
//*    |    | ESOTERIC DEVICE        |                         |    *   FILE 159
//*    | 02 | 1 COMPLETE VOL-SER     | CURRENTLY NOT SUPPORTED |    *   FILE 159
//*    | 03 | FIRST 3 CHARS OF       | CURRENTLY NOT SUPPORTED |    *   FILE 159
//*    |    | VOL-SER                |                         |    *   FILE 159
//*    |-------------------------------------------------------|    *   FILE 159
//*      00   DEVICE SEARCH VIA GENERIC NAME:                       *   FILE 159
//*       THE EDT IS SEARCHED FOR GENERIC NAME.  IF                 *   FILE 159
//*       MATCH FOUND, THE COMPLETE MASK (DEVICE CLASS AND          *   FILE 159
//*       DEVICE TYPE) IS RETRIEVED FROM THE EDT.  THE NAME         *   FILE 159
//*       IS GENERIC IF THE DEVICE TYPE NOT 00.  ALL UCBS OF        *   FILE 159
//*       'THAT DEVICE CLASS' ARE REQUESTED FROM THE SCAN           *   FILE 159
//*       SERVICE ROUTINE.  EACH RETRIEVED UCB IS COMPARED          *   FILE 159
//*       WITH THE HELD DEVICE TYPE.  UCB ADDRESSES OF ALL          *   FILE 159
//*       MATCHES ARE STORED IN THE CALLER'S STORAGE AREA WITH      *   FILE 159
//*       A COUNT OF THE NUMBER FOUND.                              *   FILE 159
//*                                                                 *   FILE 159
//*      00   DEVICE SEARCH VIA ESOTERIC NAME:                      *   FILE 159
//*       THE EDT IS SEARCHED FOR ESOTERIC NAME.  IF                *   FILE 159
//*       MATCH FOUND, THE COMPLETE MASK (DEVICE CLASS AND          *   FILE 159
//*       DEVICE TYPE) IS RETRIEVED FROM THE EDT.  THE NAME         *   FILE 159
//*       IS ESOTERIC IF THE DEVICE TYPE = 00.  THE SCAN            *   FILE 159
//*       SERVICE ROUTINE CAN NOT BE USED, IEFAB4UV IS              *   FILE 159
//*       UTILIZED (PROTECT KEY 1)                                  *   FILE 159
//*                                                                 *   FILE 159
//*      01   DEVICE SEARCH VIA DEVICE CLASS + TYPE                 *   FILE 159
//*           FOR GENERIC NAME:                                     *   FILE 159
//*       THE DEVICE IS GENERIC IF THE DEVICE TYPE NOT 00.          *   FILE 159
//*       ALL UCBS OF 'THAT DEVICE CLASS' ARE REQUESTED FROM        *   FILE 159
//*       THE SCAN SERVICE ROUTINE EACH RETRIEVED UCB IS            *   FILE 159
//*       COMPARED WITH THE HELD DEVICE TYPE.  ALL MATCHES ARE      *   FILE 159
//*       STORED IN THE CALLER'S STORAGE AREA WITH A COUNT.         *   FILE 159
//*                                                                 *   FILE 159
//*      01   DEVICE SEARCH VIA DEVICE CLASS + TYPE                 *   FILE 159
//*           FOR ESOTERIC NAME:                                    *   FILE 159
//*       SUPPORTED ONLY UNDER X-A:                                 *   FILE 159
//*       THE DEVICE IS ESOTERIC IF THE DEVICE TYPE = 00.           *   FILE 159
//*       IEFAB4UV IS INVOKED WITH THE UCBTYP AS INPUT              *   FILE 159
//*       REQUESTING A UNIT NAME AS OUTPUT (THIS FUNCTION           *   FILE 159
//*       ONLY WORKS UNDER X-A).  IEFAB4UV IS THEN REINVOKED        *   FILE 159
//*       WITH THE UNIT NAME AS INPUT.  OUTPUT CONSISTS OF THE      *   FILE 159
//*       UCBS AND A COUNT OF THEM.                                 *   FILE 159
//*                                                                 *   FILE 159
//*       IF ALL THE UCB ADDRESSES DO NOT FIT INTO THE OUTPUT       *   FILE 159
//*       AREA, THE CALLER MUST RE-INVOKE THE SUBROUTINE WITH       *   FILE 159
//*       THE SAME REQUEST, ''WITHOUT'' CLEARING OUT THE 100        *   FILE 159
//*       BYTE WORK AREA (INFO IN THAT AREA TELLS THE               *   FILE 159
//*       SUBROUTINE WHERE TO CONTINUE PROCESSING UCBS.)            *   FILE 159
//*         THIS CODE IS NOT COMPLETED                              *   FILE 159
//*                                                                 *   FILE 159
//*         CMD BUFFER (INPUT) POINTED TO BY CPPL:                  *   FILE 159
//*                                                                 *   FILE 159
//*       ____________________________________________              *   FILE 159
//*       |   XX    |XXXXXX|CCCCCCCC|    XXXXXXXX    |              *   FILE 159
//*       |________________|________|________________|              *   FILE 159
//*       |FUNCTION |(NOT  | NAME/  |  ADDRESS OF A  |              *   FILE 159
//*       |  CODE   | USED)| DEVICE | 2K OUTPUT AREA |              *   FILE 159
//*       |         |      |  TYPE  |                |              *   FILE 159
//*       |_________|______|________|________________|              *   FILE 159
//*                                                                 *   FILE 159
//*      F  - XX FUNCTION BITS -                                    *   FILE 159
//*       00: GENERIC/ESOTERIC NAME BEING PASSED FOR UCBS           *   FILE 159
//*       01: UNITTYP (3010200E) IS BEING PASSED FOR MATCHING       *   FILE 159
//*           UCBS                                                  *   FILE 159
//*                   (00012000) ESOTERIC DEVICES   WORKS           *   FILE 159
//*                              ONLY FOR X-A                       *   FILE 159
//*       THE FOLLOWING FUNCTIONS ARE NOT SUPPORTED:                *   FILE 159
//*       02: 1 COMPLETE VOL-SER IS BEING PASSED FOR MATCHING       *   FILE 159
//*           UCB                                                   *   FILE 159
//*       03: FIRST 3 CHARS OF VOL-SER BEING PASSED FOR             *   FILE 159
//*           MATCHING UCBS                                         *   FILE 159
//*         - XXXXXX NOT UTILIZED CURRENTLY                         *   FILE 159
//*      CL8-GENERIC/ESOTERIC/VOL-SER NAME                          *   FILE 159
//*         OR:                                                     *   FILE 159
//*         - XX DEVICE CLASS                                       *   FILE 159
//*         - XXXXXX NOT UTILIZED FOR FUNCTION=01                   *   FILE 159
//*      F  - AN ADDRESS OF A 2K STORAGE AREA WHICH THE CALLER      *   FILE 159
//*          IS RESPONSIBLE TO GET/FREEMAIN.  IT WILL CONTAIN       *   FILE 159
//*          ALL THE OUTPUT FROM THE SUBROUTINE.  THE               *   FILE 159
//*          BREAKDOWN OF ITS CONTENTS IS :                         *   FILE 159
//*          - 100 BYTE WORK AREA WHICH MUST BE INITIALIZED TO      *   FILE 159
//*              BINARY ZEROS 'ONLY' ON THE FIRST CALL TO           *   FILE 159
//*              THIS SUBROUTINE FOR A SPECIFIC FUNCTION.  FOR      *   FILE 159
//*              SUBSEQUENT ACCESSES 'OF SAME' FUNCTION, DO         *   FILE 159
//*              'NOT' TOUCH THE CONTENTS OF THIS WORK AREA.        *   FILE 159
//*          - 4 BYTES (1 FULLWORD) FOR RETURNED COUNT OF # OF      *   FILE 159
//*               UCBS BEING RETURNED. THIS SHOULD BE               *   FILE 159
//*               INITIALIZED TO ZEROS                              *   FILE 159
//*          - 1944 BYTES (486 FULLWORDS) FOR RETURNED UCB          *   FILE 159
//*              ADDRESSES.  THIS SHOULD BE INITIALIZED TO          *   FILE 159
//*              ZEROS.                                             *   FILE 159
//*                                                                 *   FILE 159
//*       RETURN CODE SETTINGS:                                     *   FILE 159
//*       R15 = 00 - ALL UCBS RETURNED                              *   FILE 159
//*       R15 = 04 - NOT ALL UCBS RETURNED, MUST RETURN FOR         *   FILE 159
//*                  THE REST                                       *   FILE 159
//*       R15 = 08 - NO UCBS FOUND                                  *   FILE 159
//*       R15 = 16 - FUNCTION NOT SUPPORTED                         *   FILE 159
//*       R15 = 20 - STORAGE NOT AVAIL TO IEFAB4UV FOR UCB          *   FILE 159
//*                  LIST                                           *   FILE 159
//*       R15 = 24 - DEVICE TYPE NOT DEFINED TO SYSTEM              *   FILE 159
//*       R15 = 28 - NOT ALL UCBS RETURNED, RECODE FOR MORE         *   FILE 159
//*                  THAT 486 UCBS                                  *   FILE 159
//*       R15 = 99 - PROBLEM - ABEND PROGRAM                        *   FILE 159
//*                                                                 *   FILE 159
//***FILE 160 IS FROM MR CHUCK HOFFMAN OF GTE LABS AND THE          *   FILE 160
//*           COMMONWEALTH OF MASSACHUSETTS AND CONTAINS SEVERAL    *   FILE 160
//*           TSO COMMAND PROCESSORS AND MACROS.  THE FOLLOWING     *   FILE 160
//*           ARE CONTAINED IN THIS DATASET :                       *   FILE 160
//*                                                                 *   FILE 160
//*          BULLETIN - A COMMAND FOR PUTTING UP NICELY FORMATTED   *   FILE 160
//*                     BULLETIN MESSAGES INTO THE SYSTEM           *   FILE 160
//*                     BROADCAST DATASET.  THE COMMAND HAS THE     *   FILE 160
//*                     ABILITY TO ADD AND DROP BULLETIN MESSAGES   *   FILE 160
//*                     ON SELECTED DATES.                          *   FILE 160
//*                                                                 *   FILE 160
//*          DSNCHECK - A COMMAND TO CHECK FOR THE EXISTENCE OF A   *   FILE 160
//*                     CATALOGED DATASET NAME, AND, OPTIONALLY,    *   FILE 160
//*                     TO CHECK FOR THE EXISTENCE OF A MEMBER      *   FILE 160
//*                     WITHIN A PDS.  SETS &LASTCC FOR CLIST       *   FILE 160
//*                     WRITERS.                                    *   FILE 160
//*                                                                 *   FILE 160
//*          FREEALL  - A COMPLETELY NEW FREEALL, WITH LOTS OF      *   FILE 160
//*                     NICE OPTIONS, LIKE THE EXCEPT OPERAND.      *   FILE 160
//*                     USES SVC-99, AND CAN BE MAINTAINED BY       *   FILE 160
//*                     MORE JUNIOR SYSTEMS PROGRAMMERS.            *   FILE 160
//*                     COMPATIBLE WITH J/TIP.                      *   FILE 160
//*                                                                 *   FILE 160
//*          INSTREAM - THE INSTREAM COMMAND IS USED TO CREATE      *   FILE 160
//*                     80-BYTE CONTROL CARD IMAGES IN A            *   FILE 160
//*                     TEMPORARY FILE.  THIS COMMAND CAN BE RUN    *   FILE 160
//*                     UNDER CLIST CONTROL, WITH SYMBOLIC          *   FILE 160
//*                     SUBSTITUTION OF VARIABLES ALLOWED.          *   FILE 160
//*                     INSTREAM USES VIO INSTEAD OF DATASETS,      *   FILE 160
//*                     AND USES SYSTEM GENERATED NAMES INSTEAD     *   FILE 160
//*                     OF CATALOGING.                              *   FILE 160
//*                                                                 *   FILE 160
//*          ISPFPROF - THIS IS AN ALIAS OF THE PDF COMMAND         *   FILE 160
//*                     PROCESSOR (SEE DESCRIPTION, BELOW).  WHEN   *   FILE 160
//*                     USING THIS ALIAS, THE PROFILE DATASET       *   FILE 160
//*                     WILL BE ALLOCATED, BUT THE PROGRAM WILL     *   FILE 160
//*                     NOT ENTER ISPF/PDF.                         *   FILE 160
//*                                                                 *   FILE 160
//*          LIBCALL  - LIBCALL TRANSFERS CONTROL TO MODULES WITH   *   FILE 160
//*                     A 'CALL' TYPE OF PARAMETER LIST, WITH A     *   FILE 160
//*                     'STEPLIB' OPTION.  LIBCALL ALSO CAN         *   FILE 160
//*                     ACCEPT PROGRAM PARAMETERS IN LOWER CASE.    *   FILE 160
//*                                                                 *   FILE 160
//*          NEWSPACE - A COMMAND FOR EASILY CREATING NEW,          *   FILE 160
//*                     MODERATELY SIZED, DATASETS AND LIBRARIES.   *   FILE 160
//*                     IT WAS WRITTEN WITH BEGINNERS IN MIND.      *   FILE 160
//*                     CAN BE EXECUTED FROM THE ISPF/PDF COMMAND   *   FILE 160
//*                     LINE (FOR ALLOCATING THAT DATASET YOU       *   FILE 160
//*                     SUDDENLY NEED).                             *   FILE 160
//*                                                                 *   FILE 160
//*          PDF      - THE PDF COMMAND IS USED TO PREALLOCATE      *   FILE 160
//*                     THE ISPF PROFILE DATASET, THEN BRING THE    *   FILE 160
//*                     USER INTO ISPF/PDF.  PDF IS A FRONT END     *   FILE 160
//*                     WHICH USES THE ISRPCP ENTRY POINT OF        *   FILE 160
//*                     ISPF/PDF, ENABLING THE USER TO SELECT       *   FILE 160
//*                     OPTIONAL PANEL NUMBERS WHEN INVOKING THE    *   FILE 160
//*                     PRODUCT.                                    *   FILE 160
//*                                                                 *   FILE 160
//*                    THE PDF COMMAND IS USED TO ENTER THE         *   FILE 160
//*                    ISPF PROGRAM DEVELOPMENT FACILITY            *   FILE 160
//*                    (PDF).  IT IS A FRONT END FOR ISPF/PDF.      *   FILE 160
//*                                                                 *   FILE 160
//*                     SYNTAX -                                    *   FILE 160
//*                          PDF                                    *   FILE 160
//*                              OPTION TEST/TESTX/TRACE/TRACEX     *   FILE 160
//*                     OPERANDS:                                   *   FILE 160
//*                       REQUIRED - NONE                           *   FILE 160
//*                       DEFAULTS - NONE                           *   FILE 160
//*                       OPTIONAL - OPTION, TEST, TESTX, TRACE,    *   FILE 160
//*                                  TRACEX                         *   FILE 160
//*                                                                 *   FILE 160
//*                    OPTION   - AN INITIAL OPTION THAT MAY BE     *   FILE 160
//*                               ENTERED TO BYPASS THE FIRST       *   FILE 160
//*                               DISPLAY OF THE PRIMARY OPTION     *   FILE 160
//*                               MENU AND GO DIRECTLY TO THE       *   FILE 160
//*                               OPTION YOU SELECT.  (THIS IS      *   FILE 160
//*                               NOT A KEYWORD PARAMETER.          *   FILE 160
//*                               SIMPLY ENTER THE OPTION           *   FILE 160
//*                               NUMBER, OR OMIT TO DISPLAY THE    *   FILE 160
//*                               PRIMARY OPTION MENU.)  FOR        *   FILE 160
//*                               EXAMPLE, TYPING "PDF 3.2" IN      *   FILE 160
//*                               TSO WILL TAKE YOU DIRECTLY TO     *   FILE 160
//*                               THE ISPF/PDF DATASET UTILITY      *   FILE 160
//*                               OPTION.                           *   FILE 160
//*                                                                 *   FILE 160
//*                    TEST     - PDF IS TO BE RUN IN TEST MODE.    *   FILE 160
//*                               TEST MODE INCLUDES:               *   FILE 160
//*                                                                 *   FILE 160
//*                                1. RE-READING FROM DISK          *   FILE 160
//*                                   ALL PANELS AND                *   FILE 160
//*                                   MESSAGES.  THIS               *   FILE 160
//*                                   ENHANCES THE ABILITY TO       *   FILE 160
//*                                   TEST PANELS AND               *   FILE 160
//*                                   MESSAGES IN THE SAME          *   FILE 160
//*                                   PDF SESSION THAT THEY         *   FILE 160
//*                                   ARE MODIFIED.                 *   FILE 160
//*                                                                 *   FILE 160
//*                                2. DISABLING ABEND               *   FILE 160
//*                                   RECOVERY.  THIS ALLOWS        *   FILE 160
//*                                   ABENDS TO BE TRACKED          *   FILE 160
//*                                   DOWN USING TSO TEST.          *   FILE 160
//*                                                                 *   FILE 160
//*                                3. DISABLING ATTENTION KEY       *   FILE 160
//*                                   HANDLING.  THIS ALLOWS        *   FILE 160
//*                                   THE ATTENTION KEY TO BE       *   FILE 160
//*                                   USED TO ENTER TSO TEST.       *   FILE 160
//*                                                                 *   FILE 160
//*                    TESTX    - PDF IS TO BE RUN IN TEST          *   FILE 160
//*                               MODE EXTENDED.  IN ADDITION       *   FILE 160
//*                               TO TEST MODE, ANY LINES           *   FILE 160
//*                               THAT ARE WRITTEN TO THE LOG       *   FILE 160
//*                               FILE ARE ALSO DISPLAYED ON        *   FILE 160
//*                               THE DISPLAY SCREEN.               *   FILE 160
//*                                                                 *   FILE 160
//*                    TRACE    - PDF IS TO BE RUN IN TRACE         *   FILE 160
//*                               MODE.  TRACE MODE INCLUDES        *   FILE 160
//*                               ALL OF THE FUNCTIONS OF           *   FILE 160
//*                               TEST MODE.  IN ADDITION,          *   FILE 160
//*                               ALL ISPEXEC SERVICE               *   FILE 160
//*                               INVOCATIONS FROM A DIALOG         *   FILE 160
//*                               WILL BE LOGGED.                   *   FILE 160
//*                                                                 *   FILE 160
//*                    TRACEX   - PDF IS TO BE RUN IN TRACE         *   FILE 160
//*                               MODE EXTENDED.  IN ADDITION       *   FILE 160
//*                               TO TRACE MODE, ANY LINES          *   FILE 160
//*                               THAT ARE WRITTEN TO THE LOG       *   FILE 160
//*                               FILE ARE ALSO DISPLAYED ON        *   FILE 160
//*                               THE DISPLAY SCREEN.               *   FILE 160
//*                                                                 *   FILE 160
//*                    DETAILED INFORMATION:                        *   FILE 160
//*                                                                 *   FILE 160
//*                          PDF FIRST FREES DD(ISPPROF),           *   FILE 160
//*                          THEN TRIES TO ALLOCATE                 *   FILE 160
//*                          DD(ISPPROF) TO                         *   FILE 160
//*                          DSN('&SYSPREF..ISPF.PROFILE')          *   FILE 160
//*                          WITH DISP=(OLD,KEEP,KEEP).  IF         *   FILE 160
//*                          IT CANNOT ALLOCATE BECAUSE OF          *   FILE 160
//*                          LOCATE ERROR 1708 (NOT FOUND IN        *   FILE 160
//*                          CATALOG), IT ALLOCATES THE             *   FILE 160
//*                          DATASET WITH                           *   FILE 160
//*                          DISP=(NEW,CATLG,CATLG),                *   FILE 160
//*                          UNIT=SYSTSO,                           *   FILE 160
//*                          DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120,   *   FILE 160
//*                          DSORG=PO), SPACE=(TRK,(1,2,10)).       *   FILE 160
//*                          FOR ANY OTHER ALLOCATION ERROR         *   FILE 160
//*                          CODE, THE PROGRAM TERMINATES AND       *   FILE 160
//*                          GIVES THE NORMAL IKJEFF18 ERROR        *   FILE 160
//*                          MESSAGES.                              *   FILE 160
//*                                                                 *   FILE 160
//*                          PDF MAKES A NEW COPY OF THE            *   FILE 160
//*                          COMMAND BUFFER (CBUF) AND THE          *   FILE 160
//*                          COMMAND PROCESSOR PARAMETER LIST       *   FILE 160
//*                          (CPPL), POINTING THE NEW CPPL TO       *   FILE 160
//*                          THE NEW CBUF.  IF THE USER USED        *   FILE 160
//*                          'SPF' RATHER THAN 'PDF,' PDF           *   FILE 160
//*                          WILL PUT OUT AN INFO MESSAGE           *   FILE 160
//*                          SAYING THAT 'SPF' HAS BEEN             *   FILE 160
//*                          REPLACED BY 'PDF.'  PDF THEN           *   FILE 160
//*                          PLACES THE LITERAL 'ISP' INTO          *   FILE 160
//*                          THE NEW CBUF BEGINNING AT THE          *   FILE 160
//*                          LOCATION OF THE FIRST NONBLANK         *   FILE 160
//*                          CHARACTER OF THE COMMAND TEXT.         *   FILE 160
//*                          IF DATASET                             *   FILE 160
//*                          '&SYSPREF..ISPF.PROFILE' WAS           *   FILE 160
//*                          ALLOCATED NEW, MESSAGES                *   FILE 160
//*                          CONCERNING THE NEW DATASET ARE         *   FILE 160
//*                          WRITTEN TO THE TERMINAL.               *   FILE 160
//*                                                                 *   FILE 160
//*                          PDF THEN POINTS R1 TO THE NEW          *   FILE 160
//*                          CPPL, AND ATTACHES ISRPCP.  IT         *   FILE 160
//*                          THEN WAITS FOR ISRPCP TO               *   FILE 160
//*                          COMPLETE, DETACHES ISRPCP, FREES       *   FILE 160
//*                          STORAGE AND TERMINATES.                *   FILE 160
//*                                                                 *   FILE 160
//*                        RETURN CODES:                            *   FILE 160
//*                          IF ISP EXECUTES, THE CODE              *   FILE 160
//*                          RETURNED IS THE CODE FROM ISP.         *   FILE 160
//*                          OTHERWISE THE RETURN CODE IS 12.       *   FILE 160
//*                                                                 *   FILE 160
//*          SAFECOPY - THIS PROGRAM IS A TSO COMMAND PROCESSOR     *   FILE 160
//*                     WHICH ENABLES MANY USERS TO COPY DATA INTO  *   FILE 160
//*                     THE SAME DATASET SIMULTANEOUSLY WITHOUT     *   FILE 160
//*                     CONFLICTING WITH EACH OTHER.  INPUT DATA    *   FILE 160
//*                     MAY COME FROM A DATASET, FROM THE           *   FILE 160
//*                     TERMINAL, OR FROM DATA STACKED INSTREAM IN  *   FILE 160
//*                     A CLIST.                                    *   FILE 160
//*                                                                 *   FILE 160
//*                     SAFECOPY IS ESPECIALLY USEFUL IN CLISTS     *   FILE 160
//*                     WHICH WRITE TO A COMMON DATASET.            *   FILE 160
//*                                                                 *   FILE 160
//*                     SAFECOPY ACCOMPLISHES THIS BY PERFORMING A  *   FILE 160
//*                     SYSTEM ENQUEUE BEFORE WRITING TO THE        *   FILE 160
//*                     DATASET.  MAJOR NAME IS USERDSN, MINOR      *   FILE 160
//*                     NAME IS THE NAME OF THE DATASET INTO WHICH  *   FILE 160
//*                     SAFECOPY IS WRITING.                        *   FILE 160
//*                                                                 *   FILE 160
//*                     INPUT AND OUTPUT CAN BE DESIGNATED BY       *   FILE 160
//*                     DATASET NAME, OR BY FILE/DD NAME.  IF THE   *   FILE 160
//*                     OUTPUT DATASET IS NOT PARTITIONED, THE MOD  *   FILE 160
//*                     OPERAND WILL CAUSE THE USE OF THE EXTEND    *   FILE 160
//*                     OPERAND OF OPEN, ALLOWING DATA TO BE ADDED  *   FILE 160
//*                     ON TO THE END OF A SEQUENTIAL DATASET.      *   FILE 160
//*                                                                 *   FILE 160
//*                     THE DEFAULT IS NONUM.  THE USE OF THE NUM   *   FILE 160
//*                     OPERAND WILL CAUSE THE PHYSICAL RELOCATION  *   FILE 160
//*                     OF LINE NUMBERS WHEN SAFECOPYING BETWEEN    *   FILE 160
//*                     VARIABLE AND FIXED RECORD LENGTH DATASETS,  *   FILE 160
//*                     OR BETWEEN FIXED RECORD LENGTH DATASETS OF  *   FILE 160
//*                     DIFFERENT LOGICAL RECORD LENGTHS.           *   FILE 160
//*                                                                 *   FILE 160
//*          SYSDSN   - A COMMAND TO LIST THE NAMES OF EVERYONE     *   FILE 160
//*                     WHO HAS A DATASET ALLOCATED, OR IS          *   FILE 160
//*                     WAITING FOR ALLOCATION.  VERY USEFUL        *   FILE 160
//*                     AFTER 'DATASET IN USE' AND 'WAITING FOR     *   FILE 160
//*                     DATASETS' MESSAGES.                         *   FILE 160
//*                                                                 *   FILE 160
//*          XPRINT   - A FRONT-END COMMAND PROCESSOR FOR A         *   FILE 160
//*                     USER-WRITTEN HEXADECIMAL LISTING UTILITY    *   FILE 160
//*                     PROGRAM.  ALLOCATES THE INPUT AND OUTPUT    *   FILE 160
//*                     FILES, THEN EXECUTES THE UTILITY.  LOADS    *   FILE 160
//*                     THE UTILITY IF IT IS NOT ALREADY LINKED     *   FILE 160
//*                     IN.                                         *   FILE 160
//*                                                                 *   FILE 160
//*       ADDITIONALLY, THIS PDS CONTAINS THE FOLLOWING             *   FILE 160
//*       MACROS USED BY SEVERAL OF THE COMMAND PROCESSORS:         *   FILE 160
//*                                                                 *   FILE 160
//*          EQ$R     - REGISTER EQUATES.                           *   FILE 160
//*          GTEDAALC - EXECUTES DYNAMIC ALLOCATION AND DAIRFAIL.   *   FILE 160
//*          GTEDADAT - CREATES SVC99/IKJEFF18 CONTROL BLOCKS.      *   FILE 160
//*          GTEDADOC - DOCUMENTATION FOR GTEDAXXX MACROS.          *   FILE 160
//*          GTEDASET - LINKS SVC99/IKJEFF18 CONTROL BLOCKS         *   FILE 160
//*                     TOGETHER.                                   *   FILE 160
//*          LINKSAVE - LINKAGE CONVENTIONS UPON ENTRY TO A         *   FILE 160
//*                     MODULE.                                     *   FILE 160
//*          LINKBACK - LINKAGE CONVENTIONS UPON EXIT FROM A        *   FILE 160
//*                     MODULE.                                     *   FILE 160
//*                                                                 *   FILE 160
//***FILE 161 IS FROM JIM MARSHALL (AIR FORCE RETIREE) AND CONTAINS *   FILE 161
//*           VARIOUS ISPF/PDF MENUS, PANELS, SKELETONS, CLISTS,    *   FILE 161
//*           ETC. SEE MEMBER $$PROSE FOR ADDITIONAL INFORMATION.   *   FILE 161
//*           THE FILE IS IN IEBUPDTE SYSIN FORMAT.                 *   FILE 161
//*                                                                 *   FILE 161
//*           JIM HAS RETIRED FROM THE AIR FORCE.  HIS ADDRESS IS:  *   FILE 161
//*                                                                 *   FILE 161
//*                 JIM MARSHALL, US TREASURY                       *   FILE 161
//*                 FINANCIAL MANAGEMENT SERVICE                    *   FILE 161
//*                 PRINCE GEORGES PLAZA II - ROOM 400B             *   FILE 161
//*                 3700 EAST-WEST HIGHWAY                          *   FILE 161
//*                 HYATTSVILLE, MD  20782                          *   FILE 161
//*                 202-874-8353                                    *   FILE 161
//*                                                                 *   FILE 161
//*              email:  jim.marshall@fms.treas.gov                 *   FILE 161
//*                                                                 *   FILE 161
//*       RELEASE  18   -  01 Oct 99                                *   FILE 161
//*                                                                 *   FILE 161
//*                                                                 *   FILE 161
//*       SUMMARY OF THE MODULES CONTAINED. HINT: MEMBER MEANS      *   FILE 161
//*       ALL MEMBERS NEEDED FOR PANELS, SKELS, ETC TO USE A        *   FILE 161
//*       PARTICULAR FUNCTION.                                      *   FILE 161
//*                                                                 *   FILE 161
//*                                                                 *   FILE 161
//*       MEMBER   REL              DESCRIPTION                     *   FILE 161
//*       PREFIX                                                    *   FILE 161
//*                                                                 *   FILE 161
//*       @PNL#CI   1  CLIST USED TO DETERMINE IF YOU ARE A         *   FILE 161
//*                    SYSPROG SO YOU CAN GET 'TOOL BOX' PANEL.     *   FILE 161
//*                    YOU NEVER TELL USER THEY CAN NOT HAVE        *   FILE 161
//*                    SOMETHING BECAUSE THEY MAY COMPLAIN &        *   FILE 161
//*                    BOSS BOWS TO PRESSURE (THE WHIMP). SO YOU    *   FILE 161
//*                    GIVE THE USER SOMETHING, YOU GIVE THEM       *   FILE 161
//*                    SOMETHING OF LITTLE VAULE (LIKE PANEL        *   FILE 161
//*                    '@PNL#PI')                                   *   FILE 161
//*                                                                 *   FILE 161
//*       @PNL#PI   1  THE WORTHLESS PANEL SPECIFIED ABOVE.         *   FILE 161
//*                                                                 *   FILE 161
//*       @PNL#PK   1  PANEL OF TSO COMMANDS FOR USERS.             *   FILE 161
//*                                                                 *   FILE 161
//*       @PNL#PM   1  MY CURRENT MASTER MENU.                      *   FILE 161
//*                                                                 *   FILE 161
//*       @PNL#PX   1  THE SYSTEM PROGRAMMER'S 'TOOL BOX'           *   FILE 161
//*                                                                 *   FILE 161
//*       $TOOL#..  1  USER "TOOL CHEST" INVOKED VIA POPUP MENUS.   *   FILE 161
//*                    GIVES OUR USER THE ILLUSION WE USE PC'S      *   FILE 161
//*                    AND ARE NOT ALL OLD MAINFRAMERS.             *   FILE 161
//*                                                                 *   FILE 161
//*       ABND#     1  MEMBERS FOR USING THE ABEND TSO COMMAND.     *   FILE 161
//*                    THIS WILL PROVIDE A FURTHER EXPLANATION OF   *   FILE 161
//*                    SOME OF THE MORE COMMON ABEND.               *   FILE 161
//*                                                                 *   FILE 161
//*       ACC#      3  MEMBERS FOR USING THE TSO ACCOUNT CMD FOR    *   FILE 161
//*                    FMS.                                         *   FILE 161
//*                                                                 *   FILE 161
//*       ADM#      1  TOOK INSPIRATION FROM BILL SMITH, SYNTEX     *   FILE 161
//*                    TO MAKE PANEL FOR GDDM PRESENTATION          *   FILE 161
//*                    GRAPHICS.GOT AN IBM 3279 AND WANTED TO DO    *   FILE 161
//*                    SOME PGF.  BILL MADE IT EASY BY MAKING       *   FILE 161
//*                    PANELS (LOVE IT).                            *   FILE 161
//*                                                                 *   FILE 161
//*       AMB#      1  MEMBERS FOR INTERACTIVELY INVOKE "AMBLIST".  *   FILE 161
//*                                                                 *   FILE 161
//*       ASMH#     3  MEMBERS FOR USING TSO ASMH CMD. ASMH IS TO   *   FILE 161
//*                    INTERACTIVE COMPILES. THESE SERIES OF        *   FILE 161
//*                    SCREENS ETC, ACTUALLY LIMITS THE USER TO     *   FILE 161
//*                    ONLY RECEIVE THEIR ERRORS TO A SYSTERM DD    *   FILE 161
//*                    CARD. SINCE NO LISTINGS, OBJ MODULES, ETC    *   FILE 161
//*                    CAN BE GENERATED, I CALL IT A 'CHEAP         *   FILE 161
//*                    CHECKER'. UPDATED USING "POPUPS".            *   FILE 161
//*                                                                 *   FILE 161
//*       CALC#     1  MEMBERS FOR USING CALC CMD.                  *   FILE 161
//*                    CALC IS A TSO CALCULATOR.                    *   FILE 161
//*                                                                 *   FILE 161
//*       CALEND#   1  MEMBERS FOR POPUP CALENDAR.                  *   FILE 161
//*                                                                 *   FILE 161
//*       CNTI#     1  MEMBERS FOR ISPF VERSION OF THE COUNT TSO    *   FILE 161
//*                    CMD.  USE THE SUPPLIED "COUNTI" TSO CP.      *   FILE 161
//*                                                                 *   FILE 161
//*       COBMVS#   1  MEMBERS FOR COBOL-FOR-MVS CHEAP CHECKER      *   FILE 161
//*                    UPDATED USING "POPUPS".  TSOCP COBMVS IS     *   FILE 161
//*                    FOUND IN FILE 300.                           *   FILE 161
//*                                                                 *   FILE 161
//*       COBOL#    3  MEMBERS FOR USING COBOLCHK. COBOLCHK IS TO   *   FILE 161
//*                    INTERACTIVE COMPILES. THESE SERIES OF        *   FILE 161
//*                    SCREENS ETC, ACTUALLY LIMITS THE USER TO     *   FILE 161
//*                    ONLY RECEIVE THEIR ERRORS TO A SYSTERM DD    *   FILE 161
//*                    CARD. SINCE NO LISTINGS, OBJ MODULES, ETC    *   FILE 161
//*                    CAN BE GENERATED, I CALL IT A 'CHEAP         *   FILE 161
//*                    CHECKER'.                                    *   FILE 161
//*                                                                 *   FILE 161
//*       COB2#     3  MEMBERS FOR COBOL II VERSION OF CHEAP        *   FILE 161
//*                    CHECKER UPDATED USING "POPUPS".              *   FILE 161
//*                                                                 *   FILE 161
//*       COMPR#    3  MEMBERS FOR USING THE TSO COMPARE CMD.       *   FILE 161
//*                    UPDATED USING "POPUPS".                      *   FILE 161
//*                                                                 *   FILE 161
//*       COPYS#    2  MEMBERS FOR USING TSO COPYSDS CMD. COPYSDS   *   FILE 161
//*                    IS A SEQUENTIAL DATASET COPY. UPDATED        *   FILE 161
//*                    USING "POPUPS".                              *   FILE 161
//*                                                                 *   FILE 161
//*       COUNT#    2  MEMBERS FOR USING THE TSO COUNT COMMAND.     *   FILE 161
//*                    COUNT THE NUMBER OF RECORDS IN A FILE.       *   FILE 161
//*                                                                 *   FILE 161
//*       CUT...    1  BILL GODFREY'S 'CUT' AND 'PASTE' MACROS IN   *   FILE 161
//*                    ALCCODE VERSUS CLIST (IMPRESSIVE). SEE       *   FILE 161
//*                    CUTDOC                                       *   FILE 161
//*                                                                 *   FILE 161
//*       CVDI      1  ISPF VERSION OF CVD TSOCP.                   *   FILE 161
//*                                                                 *   FILE 161
//*       CVDI#     2  MEMBERS FOR CVD TSOCP (CONVERTS HEX TO       *   FILE 161
//*                    DEC). ADDED "POPUP" SUPPORT.                 *   FILE 161
//*                                                                 *   FILE 161
//*       CVXI      1  ISPF VERSION OF CVX TSOCP.                   *   FILE 161
//*                                                                 *   FILE 161
//*       CVXI#     2  MEMBERS FOR CVX TSOCP (CONVERTS DEC TO       *   FILE 161
//*                    HEX). ADDED "POPUP" SUPPORT.                 *   FILE 161
//*                                                                 *   FILE 161
//*       DEFA#     1  MEMBERS FOR USING DEFINING AN ALIAS IN       *   FILE 161
//*                    YOUR MASTER CATALOG.                         *   FILE 161
//*                                                                 *   FILE 161
//*       DELA#     2  MEMBERS FOR USING DELETING AN ALIAS FROM     *   FILE 161
//*                    THE MASTER  CATALOG.                         *   FILE 161
//*                                                                 *   FILE 161
//*       FORT#     1  MEMBERS FOR USING THE FORT CMD. FORT IS TO   *   FILE 161
//*                    DO INTERACTIVE COMPILES WITH FORTRAN G1.     *   FILE 161
//*                    THESE SERIES OF SCREENS, ETC, ACTUALLY       *   FILE 161
//*                    LIMITS THE THE USER TO ONLY RECEIVE THEIR    *   FILE 161
//*                    ERRORS TO A SYSTERM DD CARD. SINCE NO        *   FILE 161
//*                    LISTINGS, OR OBJECT CAN BE GENERATED, I      *   FILE 161
//*                    CALL IT A 'CHEAP CHECKER'                    *   FILE 161
//*                                                                 *   FILE 161
//*       FORTX#    1  MEMBERS FOR USING THE FORTX CMD. FORTX IS    *   FILE 161
//*                    TO DO INTERACTIVE COMPILES, FORTRAN-HX.      *   FILE 161
//*                    THESE SERIES OF SCREENS, ETC, ACTUALLY       *   FILE 161
//*                    LIMITS THE THE USER TO ONLY RECEIVE THEIR    *   FILE 161
//*                    ERRORS TO A SYSTERM DD CARD. SINCE NO        *   FILE 161
//*                    LISTINGS, OBJECT CAN BE GENERATED, I CALL    *   FILE 161
//*                    IT A 'CHEAP CHECKER'                         *   FILE 161
//*                                                                 *   FILE 161
//*       FREEA#    1  MEMBERS FOR USING FREEALL CMD.               *   FILE 161
//*                                                                 *   FILE 161
//*       HLASM#    1  DIALOG FOR USING "HLASM" INVOKING OF HIGH    *   FILE 161
//*                    LEVEL ASSEMBLER, USING "POPUPS".  TSOCP      *   FILE 161
//*                    HLASM IS FOUND IN FILE 300.                  *   FILE 161
//*                                                                 *   FILE 161
//*       IDT#      1  PANELS SUPPORT TSO/E TRANSMIT-RECEIVE. OUR   *   FILE 161
//*                    USERS ARE NOVICES AND NEEDED A WAY OF USING  *   FILE 161
//*                    FUNCTIONS. SEE THE TSO FILE FOR THE RELATED  *   FILE 161
//*                    MODULES CALLED 'INMXPARM' AND 'INMXZ02'      *   FILE 161
//*                    EXIT.  THIS CONTAINS AN UPDATED VERSION OF   *   FILE 161
//*                    WHAT WAS CONTAINED IN THE MEMBERS TRC#.      *   FILE 161
//*                                                                 *   FILE 161
//*       ISG@MSTR  2  IS THE PRIMARY PANEL THAT YOUR GET WITH      *   FILE 161
//*                    YOU GET INTO ISPF/PDF FOR 2ISG SYSTEM        *   FILE 161
//*                    PROGRAMMERS BE CONCATENATED AHEAD OF         *   FILE 161
//*                    IBM'S (ISPPLIB).                             *   FILE 161
//*                                                                 *   FILE 161
//*       ISR@PRIM  2  IS THE PRIMARY PANEL THAT YOUR GET WITH      *   FILE 161
//*                    YOU GET INTO ISPF/PDF. PANEL LIB YOU USE     *   FILE 161
//*                    SHOULD BE CONCATENATED AHEAD OF IBM'S        *   FILE 161
//*                    (ISPPLIB).                                   *   FILE 161
//*                                                                 *   FILE 161
//*       JUL#      2  MEMBERS FOR JULISPF TSO CMD USING            *   FILE 161
//*                    "POPUPS".                                    *   FILE 161
//*                                                                 *   FILE 161
//*       JULISPF   1  ISPF VERSION OF JULIAN TSO CMD.              *   FILE 161
//*                                                                 *   FILE 161
//*       LASTI#    1  LASTIPL TSOCP DIALOG USING "POPUPS".         *   FILE 161
//*                                                                 *   FILE 161
//*       LASTIPL   1  ISPF VERSION OF LASTIPL TSOCP.               *   FILE 161
//*                                                                 *   FILE 161
//*       LISTC#    1  MEMBERS FOR USING LISTCAT CMD.               *   FILE 161
//*                                                                 *   FILE 161
//*       LSTSU#    1  MEMBERS FOR 'LISTSU' TSO CMD                 *   FILE 161
//*                                                                 *   FILE 161
//*       MEMB#     1  MEMBERS FOR USING MEMBER  CMD.               *   FILE 161
//*                                                                 *   FILE 161
//*       NEWS#     1  MEMBERS FOR USING 2ISG NEWS FACILITY.  NOT   *   FILE 161
//*                    TOO APPLICABLE TO OTHER INSTALLATIONS BUT    *   FILE 161
//*                    IT SHOWS ONE HOW TO SELECTIVELY INVOKE       *   FILE 161
//*                    'BROWSE' SERVICE FROM YOUR  OWN PANELS,      *   FILE 161
//*                    ETC.                                         *   FILE 161
//*                                                                 *   FILE 161
//*       NFLE#     1  EL-CHEAPO FILE TRANSFER TO VM VIA NJE.       *   FILE 161
//*                                                                 *   FILE 161
//*       NPRT#     1  EL-CHEAPO FILE TRANSFER TO VM VIA NJE.       *   FILE 161
//*                                                                 *   FILE 161
//*       NPUN#     1  EL-CHEAPO FILE TRANSFER TO VM VIA NJE.       *   FILE 161
//*                                                                 *   FILE 161
//*       OBSL#     1  MEMBER FOR INVOKING 'OBS' WYLBUR PROGRAM     *   FILE 161
//*                    TO DECOMPRESS WYLBUR FILE, THEN INVOKE       *   FILE 161
//*                    ISPF/PDF BROWSE SERVICE TO BROWSE IT.        *   FILE 161
//*                                                                 *   FILE 161
//*       OMEG#     1  MEMBERS FOR INVOKING OMEGAMON IN TSO.        *   FILE 161
//*                                                                 *   FILE 161
//*       PHIX#     1  CLIST FOR INVOKING PHOENIX COMPUTER BASE     *   FILE 161
//*                    TRAINING SYSTEM. INVOKES A FRONT-END TSO     *   FILE 161
//*                    CP TO THE PHOENIX TSO CP (LIMITS WHO CAN     *   FILE 161
//*                    GET INTO PHOENIX AND WHO CAN NOT).           *   FILE 161
//*                                                                 *   FILE 161
//*       PRT#      3  MEMBERS FOR USING PRINTOFF CMD.  THIS IS     *   FILE 161
//*                    THE FAMOUS 'PRINTOFF' FROM MY TSO FILE.      *   FILE 161
//*                                                                 *   FILE 161
//*       SADSYSP   2  THIS IS THE '2ISG'  PANEL MEMBER THAT GOES   *   FILE 161
//*                    IN YOUR PANEL LIBRARY FOR PROGRAM PRODUCTS.  *   FILE 161
//*                    NEEDED ANOTHER PANEL TO ADD THINGS. LOOK     *   FILE 161
//*                    AT ISR@PRIM  AND THIS MEMBER AND IT WILL     *   FILE 161
//*                    WILL MAKE MORE SENSE.                        *   FILE 161
//*                                                                 *   FILE 161
//*       SADTSOP   2  THIS IS THE '2ISG' PANEL MEMBER THAT GOES    *   FILE 161
//*                    IN YOUR PANEL LIBRARY FOR TSO COMMANDS.      *   FILE 161
//*                    LOOK AT ISR@PRIM  AND THIS MEMBER AND IT     *   FILE 161
//*                    IT WILL MAKE MORE SENSE.                     *   FILE 161
//*                                                                 *   FILE 161
//*       SADUTLP   2  THIS IS THE '2ISG' PANEL MEMBER THAT GOES    *   FILE 161
//*                    IN YOUR PANEL LIB FOR UTILITY FUNCTIONS      *   FILE 161
//*                    AND 'CHEAP CHECKERS'. LOOK AT ISR@PRIM AND   *   FILE 161
//*                    THIS MEMBER AND IT WILL MAKE MORE SENSE.     *   FILE 161
//*                                                                 *   FILE 161
//*       SEND#     2  MEMBERS FOR USING SEND TSO CMD.  'SEND'      *   FILE 161
//*                    A MSG TO ANOTHER USER.                       *   FILE 161
//*                                                                 *   FILE 161
//*       SLSS#     2  A MODIFICATION OF THE SLSS ISPF/PDF PANELS   *   FILE 161
//*                    ON THE MODS TAPE. EXCEPT THIS ONE HAS        *   FILE 161
//*                    COBOL PGM AS THE DRIVER. JIM PETERSON        *   FILE 161
//*                    REWROTE THE ISPF APPLICATION MAKING IT       *   FILE 161
//*                    MORE EFFICIENT (I'M IMPRESSED. I TOOK ALL    *   FILE 161
//*                    THE CODE AND REWROTE IT MYSELF WHEN I        *   FILE 161
//*                    TRIED TO IMPLEMENT IT. IT ALL WORKS NOW.     *   FILE 161
//*                    SEE MEMBER SLSS##PR FOR DOC.                 *   FILE 161
//*                                                                 *   FILE 161
//*       SORT#     3  DO A SMALL SORT INACTIVELY.                  *   FILE 161
//*                                                                 *   FILE 161
//*       SORTLNK   2  ALC PGM TO "LINK EP=SORT', ELIMINATES        *   FILE 161
//*                    "CALL".  UPDATED TO USE "POPUPS".            *   FILE 161
//*                                                                 *   FILE 161
//*       SYSLG#    1  MEMBERS FOR USING BROWSING THE SPOOLED TO    *   FILE 161
//*                    DISK, OPERATOR CONSOLE LOGS. PUT IT INTO     *   FILE 161
//*                    DISK FILES FOR THE PAST 3 WEEKS FOR          *   FILE 161
//*                    BROWSING.                                    *   FILE 161
//*                                                                 *   FILE 161
//*       SYSPR#P   1  SECONDAY PANEL FOR GETTING INTO 2ISG         *   FILE 161
//*                    SYSTEM PROG FUNCTIONS. LOOK AT CLIST THAT    *   FILE 161
//*                    IS INVOKED OUT OF ISR@PRIM WHEN ENTER 'S'.   *   FILE 161
//*                    CLIST INVOKED CHECKS TO SEE IF 1ST CHAR      *   FILE 161
//*                    OF USERID BEGINS WITH 'S'. SO YOU ARE ONE    *   FILE 161
//*                    OF SYSTEMS, IF NOT, YOU ARE A BAD GUY AND    *   FILE 161
//*                    RETURNED TO ISR@PRIM.                        *   FILE 161
//*                                                                 *   FILE 161
//*       TMS#      1  MEMBERS FOR USING TMS CMD (INVOKE UCC1 PGM   *   FILE 161
//*                    FOR INTERACTIVE TMS ACCESS). SEE DOC MEMBER  *   FILE 161
//*                    CALLED  TMS##PR.                             *   FILE 161
//*                                                                 *   FILE 161
//*       ULX...    1  BILL GODFREY'S ISPF DISK SPACE INFO PGM.     *   FILE 161
//*                    INDEXED VTOCS ARE SUPPORTED. USER CAN OPT    *   FILE 161
//*                    DISPLAY A LIST OF FREE SPACE.  SEE ULXDOC.   *   FILE 161
//*                                                                 *   FILE 161
//*       USR#      1  USER INTERFACE USING LIBDEF FACS. DON'T      *   FILE 161
//*                    WANT USERS MESSING WITH MY LOGON PROCS.      *   FILE 161
//*                                                                 *   FILE 161
//*       VFORT#    3  MEMBERS FOR USING VSFORT CMD. VSFORT IS TO   *   FILE 161
//*                    DO INTERACTIVE COMPILES WITH VS FORTRAN.     *   FILE 161
//*                    SERIES OF SCREENS, ETC, ACTUALLY LIMITS      *   FILE 161
//*                    THE THE USER TO ONLY RECEIVE THEIR ERRORS    *   FILE 161
//*                    TO A SYSTERM DD CARD. SINCE NO LISTINGS,     *   FILE 161
//*                    OBJECT CAN BE GENERATED, I CALL IT A         *   FILE 161
//*                    'CHEAP CHECKER' UPDATED TO USE "POPUPS".     *   FILE 161
//*                                                                 *   FILE 161
//*       XBE...    1  BILL GODFREY'S PGM TO SET UP ISPF,  CAN      *   FILE 161
//*                    HAVE SHORT CODE WORDS FOR DSNS YOU           *   FILE 161
//*                    FREQUENTLY EDIT OR BROWSE. SEE XBEDOC FOR    *   FILE 161
//*                    DETAILS.                                     *   FILE 161
//*                                                                 *   FILE 161
//*       ZAP#      1  MEMBERS FOR USING ZAP CMD.                   *   FILE 161
//*                                                                 *   FILE 161
//***FILE 162 IS FROM DAVE COLE WHO IS NOW AT COLE SOFTWARE         *   FILE 162
//*           IN AFTON, VIRGINIA.  THIS FILE CONTAINS A COPY OF     *   FILE 162
//*           A GLOBAL CROSS-REFERENCE LISTING GENERATOR CALLED     *   FILE 162
//*           XREFASM.  THIS FILE IS IN IEBUPDTE SYSIN FORMAT.      *   FILE 162
//*           THE MACROS NEEDED FOR THIS CODE ARE CONTAINED IN      *   FILE 162
//*           FILE 408 OF THIS TAPE.   PLEASE SEE BELOW FOR         *   FILE 162
//*           ADDITIONAL INFORMATION ON XREFASM.                    *   FILE 162
//*                                                                 *   FILE 162
//*    Dave Cole has updated most of his contributions, and         *   FILE 162
//*    they are available for direct download from his web          *   FILE 162
//*    site at www.colesoft.com.  The following list of             *   FILE 162
//*    his software is currently available there:                   *   FILE 162
//*                                                                 *   FILE 162
//*         Cole Software LLC's File Upload/Download Area           *   FILE 162
//*                                                                 *   FILE 162
//*       The following shareware is available for download         *   FILE 162
//*                                                                 *   FILE 162
//*      Filename   Platform            Description                 *   FILE 162
//*    asm2zap.zip   OS/390    A utility for converting an          *   FILE 162
//*                            assembly listing into SUPERZAP       *   FILE 162
//*                            cards.                               *   FILE 162
//*                                                                 *   FILE 162
//*    blksptrk.zip  OS/390    A TSO command that computes and      *   FILE 162
//*                            displays track capacities for any    *   FILE 162
//*                            IBM DASD device for any BLKSIZE,     *   FILE 162
//*                            with or without key fields.          *   FILE 162
//*                                                                 *   FILE 162
//*    macros.zip    OS/390    A set of Assembler/390 macros        *   FILE 162
//*                            needed for assembling the various    *   FILE 162
//*                            programs available from Cole         *   FILE 162
//*                            Software LLC.                        *   FILE 162
//*                                                                 *   FILE 162
//*    schedrun.zip  OS/390    A set of MVS programs for            *   FILE 162
//*                            scheduling the execution of System   *   FILE 162
//*                            Operator Commands on an interval     *   FILE 162
//*                            or calander basis. Can be used to    *   FILE 162
//*                            control production scheduling.       *   FILE 162
//*                                                                 *   FILE 162
//*    xrefasm.zip   OS/390    A pair of programs for producing     *   FILE 162
//*                            master cross-reference listings      *   FILE 162
//*                            for multi-assembly programs.         *   FILE 162
//*                                                                 *   FILE 162
//*               COLE SOFTWARE LLC                                 *   FILE 162
//*               736 Fox Hollow Road Afton, VA 22920               *   FILE 162
//*               540-456-8210 540-456-6658: FAX                    *   FILE 162
//*                                                                 *   FILE 162
//*             E-MAIL  :   CSWstaff@cfw.com                        *   FILE 162
//*             INTERNET:   http://www.colesoft.com                 *   FILE 162
//*                                                                 *   FILE 162
//*    COLE SOFTWARE          WEB PAGE: HTTP://WWW.COLESOFT.COM     *   FILE 162
//*    736 FOX HOLLOW ROAD    VOICE:    540-456-8536                *   FILE 162
//*    AFTON, VA 22920        FAX:      540-456-6658                *   FILE 162
//*                                                                 *   FILE 162
//*          MANY LARGE PROGRAMMING SYSTEMS ARE CONSTRUCTED         *   FILE 162
//*       FROM A LARGE NUMBER OF SEPARATELY ASSEMBLED OR            *   FILE 162
//*       COMPILED SECTIONS.  SUCH SYSTEMS MUST MANAGE              *   FILE 162
//*       INTERNAL COMMUNICATIONS BY MEANS OF A SET OF VECTOR       *   FILE 162
//*       TABLES AND OTHER CONTROL BLOCKS THAT ARE KNOWN TO         *   FILE 162
//*       EACH OF THE SEPARATE SECTIONS; WHICH IS TO SAY, SUCH      *   FILE 162
//*       CONTROL BLOCKS MUST CONTAIN FIELDS THAT MAY BE            *   FILE 162
//*       REFERENCED AND/OR CHANGED BY ANY OR ALL OF THE            *   FILE 162
//*       SECTIONS.  ACCORDINGLY, A GLOBAL CROSS-REFERENCE          *   FILE 162
//*       LISTING, REPORTING WHICH SECTIONS REFERENCE WHICH         *   FILE 162
//*       FIELDS, IS A VERY USEFUL TOOL FOR A LARGE-SYSTEMS         *   FILE 162
//*       DEVELOPER TO HAVE.                                        *   FILE 162
//*                                                                 *   FILE 162
//*          XREFASM IS A RELATIVELY SIMPLE SYSTEM THAT             *   FILE 162
//*       GENERATES SUCH GLOBAL CROSS-REFERENCE LISTINGS.           *   FILE 162
//*       SPECIFICALLY, XREFASM GENERATES A REPORT SHOWING A        *   FILE 162
//*       SORTED LIST OF ALL LABELS USED IN A GIVEN SET OF          *   FILE 162
//*       SEPARATE ASSEMBLIES OR COMPILATIONS.  THE ENTRIES         *   FILE 162
//*       FOR EACH LABEL SHOW BOTH WHICH ASSEMBLIES (OR             *   FILE 162
//*       COMPILATIONS) REFERENCE THAT LABEL AND HOW MANY           *   FILE 162
//*       REFERENCES EACH ASSEMBLY HAS TO THAT LABEL.               *   FILE 162
//*                                                                 *   FILE 162
//***FILE 163 IS FROM DAVID ANDREWS OF A. DUDA AND SONS, INC.       *   FILE 163
//*           IN OVIEDO, FLORIDA.  THIS PDS CONTAINS SOURCE FOR     *   FILE 163
//*           THE FOLLOWING:                                        *   FILE 163
//*                                                                 *   FILE 163
//*     email address:   dba@duda.com                               *   FILE 163
//*                                                                 *   FILE 163
//*           1.  ADJXAMI - LINKEDITS AS A FRONT-END TO MODULE      *   FILE 163
//*               HASPAMI IN HASPSSSM.  INSPECTS AND DISCARDS       *   FILE 163
//*               ALL CARD IMAGES WRITTEN TO AN INTERNAL READER     *   FILE 163
//*               DATASET THAT START WITH A BANG ("!") IN           *   FILE 163
//*               COLUMN 1.  YOU CAN INSERT COMMENTS IN JCL         *   FILE 163
//*               OR EVEN INSTREAM DATA.  AUTHOR: DAVID ANDREWS.    *   FILE 163
//*                                                                 *   FILE 163
//*           2.  ADJX006C - A JES2 EXIT #6.  PROVIDES A DEFAULT    *   FILE 163
//*               MODEL DSCB FOR NEW GENERATION DATASETS (REMOVING  *   FILE 163
//*               THE REQUIREMENT THAT EITHER A MODEL DSCB EXIST    *   FILE 163
//*               FOR EACH DEFINED GDG, OR THAT YOU SPECIFY ONE     *   FILE 163
//*               IN YOUR JCL).  DESIGNED TO WORK WITH IFG0EX0B     *   FILE 163
//*               (SEE BELOW).  AUTHOR: DAVID ANDREWS.              *   FILE 163
//*                                                                 *   FILE 163
//*           3.  ADMM02 - AN SMP USERMOD TO THE LINKAGE            *   FILE 163
//*               EDITOR.  REMOVES THE 3200-BYTE LIMITATION         *   FILE 163
//*               ON SYSLIN BLOCKSIZE.  THE OFFSETS ARE SET         *   FILE 163
//*               FOR THE DFP 2.4 LINKAGE EDITOR, BUT THIS          *   FILE 163
//*               PARTICULAR MOD HAS BEEN RUN ON OTHER              *   FILE 163
//*               VERSIONS (JUST CHANGE THE OFFSETS).               *   FILE 163
//*               AUTHOR: UNKNOWN.                                  *   FILE 163
//*                                                                 *   FILE 163
//*           4.  CATLG - CONTAINS "CATLG", "UNCATLG" AND           *   FILE 163
//*               "SCRATCH" TSO COMMANDS, WHICH ARE SIMILAR         *   FILE 163
//*               TO THEIR IEHPROGM COUNTERPARTS.  AUTHOR:          *   FILE 163
//*               DAVE PHILLIPS.                                    *   FILE 163
//*                                                                 *   FILE 163
//*           5.  CHARGEN - A BANNER PROGRAM THAT WAS FLOATING      *   FILE 163
//*               AROUND IN MY POSTGRADUATE DAYS, CIRCA 1975.       *   FILE 163
//*               AUTHOR: JAY ULLIUS.                               *   FILE 163
//*                                                                 *   FILE 163
//*           6.  DA - "DISPLAY ACTIVE" TSO CP.  LISTS ACTIVE       *   FILE 163
//*               ADDRESS SPACES AT YOUR TERMINAL, ALONG WITH       *   FILE 163
//*               THEIR CPU/EXCP/STORAGE UTILIZATION AND SWAP       *   FILE 163
//*               STATUS.  FULL-SCREEN 3270 ONLY (NO BATCH          *   FILE 163
//*               SUPPORT).  AUTHOR: DAVE PHILLIPS.                 *   FILE 163
//*                                                                 *   FILE 163
//*           7.  DD - LISTS CHARACTERISTICS OF CATALOGED AND       *   FILE 163
//*               UNCATALOGED DATASETS.  GOOD FOR GENERATION        *   FILE 163
//*               DATA GROUPS.  AUTHOR: DAVE PHILLIPS.              *   FILE 163
//*                                                                 *   FILE 163
//*           8.  WTO AND DOM - A PAIR OF LITTLE TSO COMMANDS.      *   FILE 163
//*               WTO WRITES NON-DELETABLE MESSAGES TO THE          *   FILE 163
//*               MVS CONSOLE, AND DOM DELETES THOSE MESSAGES.      *   FILE 163
//*               GREAT FOR WAKING UP THE OPERATOR (BEEP!)          *   FILE 163
//*               AUTHOR: DAVE PHILLIPS.                            *   FILE 163
//*                                                                 *   FILE 163
//*           9.  IFG0EX0B - INSTALLATION DCB OPEN EXIT.  PROVIDES  *   FILE 163
//*               DEFAULT BLOCKSIZES FOR PROGRAMS AND JCL THAT      *   FILE 163
//*               DON'T SUPPLY THEIR OWN.  FOR DASD, IT SELECTS     *   FILE 163
//*               A BLOCKSIZE CLOSE TO A HALF-TRACK.  FOR TAPE,     *   FILE 163
//*               IT SELECTS A BLOCKSIZE CLOSE TO 16K.  FOR DD      *   FILE 163
//*               DUMMY, VIO AND SUBSYSTEM DATASETS IT SELECTS A    *   FILE 163
//*               MINIMAL BLOCKSIZE.  NONE OF OUR INSTALLATION      *   FILE 163
//*               JCL SPECIFIES DCB=BLKSIZE=ANYTHING!  AUTHOR:      *   FILE 163
//*               DAVE PHILLIPS.                                    *   FILE 163
//*                                                                 *   FILE 163
//*           10. RSMAP - REAL STORAGE MAP.  PRODUCES A DETAILED    *   FILE 163
//*               SUMMARY OF REAL STORAGE USAGE FOR EACH ADDRESS    *   FILE 163
//*               SPACE.  TELLS YOU HOW MANY REAL STORAGE FRAMES    *   FILE 163
//*               ARE BEING USED FOR SUCH THINGS AS SQA, CSA,       *   FILE 163
//*               LPA, LSQA, PRIVATE AREA, NUCLEUS, FIXED FRAMES,   *   FILE 163
//*               VIO, ET CETERA.  YOU MAY HAVE TO INCREASE SOME    *   FILE 163
//*               TABLE SIZES IF YOU HAVE A LARGE NUMBER OF         *   FILE 163
//*               ADDRESS SPACES.  WORKS ONLY IN MVS/370.           *   FILE 163
//*               AUTHOR: DAVE PHILLIPS.                            *   FILE 163
//*                                                                 *   FILE 163
//*           11. S213RC30 - ELIMINATES THOSE S213-30 ABENDS THAT   *   FILE 163
//*               IBM SUPPLIED WITH DFP V2.  WHEN TWO PROGRAMS      *   FILE 163
//*               SIMULTANEOUSLY OPEN A PDS FOR OUTPUT, THE SECOND  *   FILE 163
//*               IS ABENDED S213-30.  WITH S213RC30 INSTALLED,     *   FILE 163
//*               THE SYSTEM ISSUES A WTOR TO THE OPERATOR AND      *   FILE 163
//*               WAITS FOR THE PDS RESOURCE TO BECOME AVAILABLE    *   FILE 163
//*               (THE OPERATOR CAN REPLY "CANCEL", IN WHICH CASE   *   FILE 163
//*               THE SECOND PROGRAM ABENDS S213-30 AS BEFORE).     *   FILE 163
//*               AUTHOR: DAVID ANDREWS.                            *   FILE 163
//*                                                                 *   FILE 163
//*          12.  ZAPDSCB - BATCH PROGRAM TO CHANGE THE ATTRIBUTES  *   FILE 163
//*               OF ANY DIRECT-ACCESS DATASET.  CAN BE USED TO     *   FILE 163
//*               MODIFY DCB CHARACTERISTICS, PROTECTION STATUS,    *   FILE 163
//*               EXPIRATION DATE, USE COUNT, AND SECONDARY SPACE   *   FILE 163
//*               AMOUNT.  AUTHOR: DAVE PHILLIPS.                   *   FILE 163
//*                                                                 *   FILE 163
//***FILE 164 IS FROM RICK STECKER OF SYNECTICS FOR MANAGEMENT      *   FILE 164
//*           DECISIONS IN BALTIMORE, MARYLAND.  THIS FILE CONTAINS *   FILE 164
//*           EVERYTHING NEEDED TO CONSTRUCT A ONE-PACK MVS SYSTEM  *   FILE 164
//*           COMMONLY KNOWN AS A "RESCUE PACK".                    *   FILE 164
//*                                                                 *   FILE 164
//*           THE STARTING POINT FOR THIS FILE WAS THE "RESCUE"     *   FILE 164
//*           MEMBER OF FILE 022, BUT THIS SYSTEM HAS BEEN UPGRADED *   FILE 164
//*           FOR XA 2.2.0, AND IT HAS MANY IMPROVEMENTS.           *   FILE 164
//*                                                                 *   FILE 164
//*           THIS SYSTEM CONTAINS AN INSTALLATION-CUSTOMIZABLE     *   FILE 164
//*           MACRO WHICH GENERATES THE JOBS NEEDED TO PROPERLY     *   FILE 164
//*           BUILD THE "RESCUE PACK".                              *   FILE 164
//*                                                                 *   FILE 164
//***FILE 165 IS THE ESG SECURITY SYSTEM FROM CRAIG YASUNA.         *   FILE 165
//*           THIS IS A FULLY IMPLEMENTABLE RACF-LIKE SECURITY      *   FILE 165
//*           SYSTEM AT THE LEVEL OF RACF 1.7.  THIS SYSTEM HAS     *   FILE 165
//*           BEEN OPERATIONAL AT A MEDIUM-SIZED MVS INSTALLATION.  *   FILE 165
//*           SINCE THIS SYSTEM IS VERY RACF-LIKE, CONVERSION FROM  *   FILE 165
//*           IT, TO "REAL RACF" IS QUITE PAINLESS.  HOWEVER, THIS  *   FILE 165
//*           SYSTEM MAY ELIMINATE THE NEED FOR "REAL RACF".        *   FILE 165
//*                                                                 *   FILE 165
//*           THE ESG SECURITY SYSTEM ROUTS ALL RACF CALLS THROUGH  *   FILE 165
//*           THE "RACROUTE" INTERFACE, AND ITS MODULE ICHRTX00     *   FILE 165
//*           DOES ALL THE VERIFICATIONS TO ALLOW OR DISALLOW       *   FILE 165
//*           ACCESS TO RESOURCES.  TWO IN-CORE TABLES CONTROL      *   FILE 165
//*           THE DECISIONS:  THERE IS A USERID TABLE AND A         *   FILE 165
//*           PROFILE TABLE.  THERE IS NO DATABASE, BUT UPDATES     *   FILE 165
//*           ARE EASILY AND QUICKLY MADE TO THE TABLES BY AN       *   FILE 165
//*           ADMINISTRATOR, WHO MAY NOT HAVE TO DO TOO MUCH WORK   *   FILE 165
//*           AFTER THE SYSTEM HAS BEEN INITIALLY SET UP.  USERID   *   FILE 165
//*           AND PROFILE TABLE RECORDS ARE NEARLY IDENTICAL IN     *   FILE 165
//*           FORMAT TO THOSE OF RACF ITSELF.                       *   FILE 165
//*                                                                 *   FILE 165
//*           TWO STANDARD RACF MANUALS MAY BE USED TO HELP IN      *   FILE 165
//*           SECURITY SETUP AND ADMINISTRATION.  THESE ARE:  RACF  *   FILE 165
//*           ADMINISTRATOR'S GUIDE (SC28-1340) AND SPL RACF        *   FILE 165
//*           (SC28-1343).                                          *   FILE 165
//*                                                                 *   FILE 165
//*           BASIC DOCUMENTATION FOR THE SECURITY PACKAGE IS       *   FILE 165
//*           SUPPLIED IN MEMBER $$$$$DOC OF THIS FILE.             *   FILE 165
//*                                                                 *   FILE 165
//***FILE 166 IS FROM VINH VU OF NEIMAN MARCUS IN IRVING, TEXAS.    *   FILE 166
//*           THIS FILE CONTAINS A NICE COLLECTION OF UTILITIES,    *   FILE 166
//*           EXITS AND REXX EXECS.  THIS FILE IS WORTH A GOOD      *   FILE 166
//*           LOOK.                                                 *   FILE 166
//*                                                                 *   FILE 166
//*    CONTENTS OF THIS PDS:                                        *   FILE 166
//*                                                                 *   FILE 166
//*      $CAL     -  CLIST (EXEC) - WRITTEN IN TSO REXX.  THIS      *   FILE 166
//*                  EXEC DISPLAYS A QUICK POP-UP CALENDAR USING    *   FILE 166
//*                  ISPF PANEL.  CHECK IT OUT.                     *   FILE 166
//*                                                                 *   FILE 166
//*      $CKOUT   -  CLIST (EXEC) - WRITTEN IN TSO REXX.  THIS      *   FILE 166
//*                  EXEC DISPLAYS PERTINENT INFORMATION ABOUT      *   FILE 166
//*                  YOUR TSO SESSION OR BATCH JOB, I.E. JOB/STEP   *   FILE 166
//*                  REGION SIZES, LIMITS, JOB/STEP TIME LIMITS,    *   FILE 166
//*                  MSGCLASS, ETC.. THIS CAN BE USED TO VERIFY     *   FILE 166
//*                  THE SETTINGS DONE BY THE LOCAL JES2 AND SMF    *   FILE 166
//*                  EXITS.                                         *   FILE 166
//*                                                                 *   FILE 166
//*      $CMDPFX  -  ASM - TO ASSIGN A COMMAND PREFIX TO A MVS      *   FILE 166
//*                  IMAGE OF A SYSPLEX.  RATHER THAN USING THE     *   FILE 166
//*                  'ROUTE' COMMAND, YOU CAN USE THIS PREFIX FOR   *   FILE 166
//*                  ROUTING A COMMAND TO THE APPROPRIATE SYSTEM.   *   FILE 166
//*                  THE PREFIX IS SPECFIED THROUGH PARM.           *   FILE 166
//*                                                                 *   FILE 166
//*      $D       -  CLIST (EXEC) - WRITTEN IN TSO REXX.  THIS      *   FILE 166
//*                  DISPLAYS MVS CONTROL BLOCKS, I.E.              *   FILE 166
//*                  LINKLIST, APFLIST, SUBSYSTEM NAMES.            *   FILE 166
//*                                                                 *   FILE 166
//*      $DATE    -  CLIST (EXEC) - WRITTEN IN TSO REXX.            *   FILE 166
//*                  THIS REXX FUNCTION DOES DATE                   *   FILE 166
//*                  CONVERSIONS, INCLUDING RELATIVE DATE           *   FILE 166
//*                  USED FOR CALCULATION.                          *   FILE 166
//*                                                                 *   FILE 166
//*      $DO      -  CLIST (EXEC) - EDIT MACRO. THIS EXEC           *   FILE 166
//*                  VERIFIES THE 'DO/SELECT-END' PAIRINGS IN A     *   FILE 166
//*                  REXX EXEC.  ANY HANGING 'DO/SELECT-END' WILL   *   FILE 166
//*                  BE FLAGGED AS ERROR.  IT ALSO MARKS THE        *   FILE 166
//*                  BEGINNING AND END OF EACH 'DO/SELECT-END'      *   FILE 166
//*                  PAIR.  USEFUL IF YOU DO A LOT OF REXX          *   FILE 166
//*                  CODING.                                        *   FILE 166
//*                                                                 *   FILE 166
//*      $JAD     -  CLIST (EXEC) - WRITTEN IN TSO REXX.  THIS      *   FILE 166
//*                  EXEC GOES THROUGH THE ASCB CHAIN AND           *   FILE 166
//*                  DISPLAYS JOB ACTIVITY INFO USING ISPF TABLE    *   FILE 166
//*                  DISPLAY FACILITY, I.E. TCBTIME, EXCPTIME,      *   FILE 166
//*                  EXCP COUNT, STORAGE USAGE, ETC. IF AN          *   FILE 166
//*                  ADDRESS SPACE IS SELECTED, THEN ADDITIONAL     *   FILE 166
//*                  INFO WILL BE DISPLAYED, INCLUDING A PLOT       *   FILE 166
//*                  THAT SHOWS REAL & EXPANDED STORAGE, AND        *   FILE 166
//*                  ANOTHER WHICH SHOWS ITS STORAGE                *   FILE 166
//*                  DISTRIBUTION BASED ON UIC (KINDA SHOW YOU      *   FILE 166
//*                  HOW REAL MEMORY IS BEING USED AT THE TIME).    *   FILE 166
//*                  THE DISPLAY CAN BE SORTED AND FILTERED BY      *   FILE 166
//*                  SEVERAL DIFFERENT KEYS.                        *   FILE 166
//*                                                                 *   FILE 166
//*                  THIS WAS WRITTEN ORIGINALLY TO DISPLAY THE     *   FILE 166
//*                  TOTAL STORAGE USED, PLUS REAL AND EXPANDED,    *   FILE 166
//*                  SEPARATELY FOR THE ADDRESS SPACES. RMFWDM      *   FILE 166
//*                  (WORKLOAD DELAY MONITOR) ONLY GIVES YOU THE    *   FILE 166
//*                  TOTAL, NOT THE OTHER TWO, AND DOES NOT         *   FILE 166
//*                  ALLOW SORTING.  THIS EXEC, HOWEVER, GIVES      *   FILE 166
//*                  ALL TOTALS AND LET YOU DO ALL KIND OF          *   FILE 166
//*                  SORTING.  NOT ONLY THAT, IT ALSO GIVES YOU     *   FILE 166
//*                  ADDITIONAL INFO (WHILE I'M LOOKING AROUND      *   FILE 166
//*                  AT THE CONTROL BLOCKS...).                     *   FILE 166
//*                                                                 *   FILE 166
//*               ****** SEE $JADPGM ******  NOTE - 3/6/95 ******   *   FILE 166
//*               ****** SEE $JADPGM ******  NOTE - 3/6/95 ******   *   FILE 166
//*                                                                 *   FILE 166
//*      $JADPGM  -  ASM - ASSEMLER VERSION OF $JAD.  THIS WAS      *   FILE 166
//*                  WRITTEN AFTER $JAD IS FOUND TO BE TOO          *   FILE 166
//*                  SLOW, ESPCIALLY WHEN THE CPU IS CONSTANTLY     *   FILE 166
//*                  RUNNING ABOVE 100% (SRM CPU BUSY PCT).         *   FILE 166
//*                                                                 *   FILE 166
//*      $LLACOPY -  SOURCE - BATCH ASSEMBLER PROGRAM TO            *   FILE 166
//*                  SELECTIVELY REFRESH A LLA (VLF) MODULE.        *   FILE 166
//*                  RATHER THAN DOING A 'F LLA,REFRESH' WHICH      *   FILE 166
//*                  MAY TAKE A WHILE DEPENDING ON THE LIST OF      *   FILE 166
//*                  DATA SETS BEING MANAGED BY LLA, THIS           *   FILE 166
//*                  PROGRAM WILL UPDATE JUST THE MODULE(S) BEING   *   FILE 166
//*                  REFRESHED.                                     *   FILE 166
//*                                                                 *   FILE 166
//*      $MPFREPL -  ASM - A GENERALIZED MPF EXIT.  THE MESSAGES    *   FILE 166
//*                  BEING HANDLED ARE CODED USING AN IN-LINE       *   FILE 166
//*                  MACRO.  PROCESSING CAN ALSO BE LIMITED TO      *   FILE 166
//*                  MESSAGES PRODUCED BY CERTAIN JOBNAMES          *   FILE 166
//*                  SPECIFIED BY THIS MACRO.                       *   FILE 166
//*                                                                 *   FILE 166
//*      $PARM    -  CLIST (EXEC) - WRITTEN IN TSO REXX.  THIS      *   FILE 166
//*                  EXEC TAKES IN THE PARMS AND DOES SUBSTITUTION  *   FILE 166
//*                  ON THE INPUT CARDS (FROM DDNAME INPUT) TO      *   FILE 166
//*                  PRODUCE OUTPUT DATA FOR SUBSEQUENT USAGE.      *   FILE 166
//*                  SEVERAL RESERVED SYMBOLS WILL BE SUBSTITUTED   *   FILE 166
//*                  AS WELL, I.E. ~JOBNAME~, ~SYSID~.  REXX        *   FILE 166
//*                  FUNCTIONS WILL ALSO BE EVALUATED TO PRODUCE    *   FILE 166
//*                  THE OUTPUT IF CODED (THIS CAN BE JUST ANOTHER  *   FILE 166
//*                  EXTERNAL REXX FUNCTION LIKE $DATE)             *   FILE 166
//*                                                                 *   FILE 166
//*      $Q       -  EDIT MACRO (REXX) - THIS MACRO TAKES A PARM    *   FILE 166
//*                  AS A TSO COMMAND TO BE ISSUED AND THE OUTPUT   *   FILE 166
//*                  WILL BE TRAPPED AND DISPLAYED AS ISPF EDIT     *   FILE 166
//*                  NOTE LINES.                                    *   FILE 166
//*                                                                 *   FILE 166
//*      $SAVE    -  EDIT MACRO (REXX) - THIS MACRO SAVES DATA      *   FILE 166
//*                  BEING EDITED BY DOING UPDATE IN PLACE FOR A    *   FILE 166
//*                  PDS MEMBER.  EXTREMELY USEFUL IF               *   FILE 166
//*                  SYS1.PROCLIB IS FULL, AND YOU JUST NEED TO     *   FILE 166
//*                  MAKE MINIMUM CHANGES TO A PROC (UNLESS YOU     *   FILE 166
//*                  WANT TO GO AHEAD AND COMPRESS IT RIGHT THEN    *   FILE 166
//*                  AND THERE ...)                                 *   FILE 166
//*                                                                 *   FILE 166
//*      $VSAMIDX -  CLIST (EXEC) - WRITTEN IN TSO REXX.  THIS      *   FILE 166
//*                  EXEC CALCULATES THE OPTIMUM NUMBER OF          *   FILE 166
//*                  INDEX BUFFERS TO BE SPECIFIED FOR A VSAM       *   FILE 166
//*                  KSDS USED FOR RANDOM ACCESS.                   *   FILE 166
//*                                                                 *   FILE 166
//*      $VSAMIXA -  CLIST (EXEC) - THE DFSMS 1.X VERSION OF        *   FILE 166
//*                  $VSAMIDX.                                      *   FILE 166
//*                                                                 *   FILE 166
//*      $WHOHAS  -  CLIST (EXEC) - THIS REXX EXEC WILL LIST THE    *   FILE 166
//*                  ACCESS LISTS FOR RACF DATA SET PROFILES FOUND  *   FILE 166
//*                  UNDER DSN*.**.  THIS FUNCTION IS VERY MUCH     *   FILE 166
//*                  SIMILAR TO 'TSS WHOHAS DSN' COMMAND UNDER TOP  *   FILE 166
//*                  SECRET.  IF THE EXEC IS RUN IN BATCH, THE RACF *   FILE 166
//*                  COMMANDS USED TO RE-BUILD ALL OF THE PROFILES  *   FILE 166
//*                  AS DISPLAYED IN THE OUTPUT IS ALSO PRODUCED.   *   FILE 166
//*                                                                 *   FILE 166
//*      $X       -  EDIT MACRO (REXX) - THIS MACRO READS THE       *   FILE 166
//*                  MEMBER BEING EDITED AND EXECUTES IT AS A       *   FILE 166
//*                  CLIST/EXEC.  EXECUTION PARMS ARE ALLOWED AS    *   FILE 166
//*                  WELL.  THIS DOES NOT REQUIRED THE MEMBER TO    *   FILE 166
//*                  BE SAVED FIRST.  EXTREMELY USEFUL IF YOU'RE    *   FILE 166
//*                  DOING A LOT OF CLIST/EXEC CODING AND           *   FILE 166
//*                  DEBUGGING.                                     *   FILE 166
//*                                                                 *   FILE 166
//*      $6       -  CLIST (EXEC) - WRITTEN IN TSO REXX.  OFTEN     *   FILE 166
//*                  TIMES, YOU DO NEED TO ALLOCATE A NEW           *   FILE 166
//*                  LOADLIB AND EXECUTE TSO COMMANDS OUT OF        *   FILE 166
//*                  IT.  ONE WAY TO DO IT IS: GET OUT OF ISPF,     *   FILE 166
//*                  ALLOCATE IT AS ISPLLIB, AND GET BACK IN.       *   FILE 166
//*                  THE OTHER WAY (WITHOUT HAVING TO GET OUT       *   FILE 166
//*                  OF ISPF): EXECUTE THIS EXEC, AND THERE YOU     *   FILE 166
//*                  GO !!!                                         *   FILE 166
//*                                                                 *   FILE 166
//*      DALLOC   -  SOURCE - TSO CMD TO DISPLAY DYNAMIC            *   FILE 166
//*                  ALLOCATIONS.  I'VE GOT THE ORIGINAL SOURCE     *   FILE 166
//*                  FROM ONE OF THE VERY OLD CBT TAPE.  THIS       *   FILE 166
//*                  STOPPED WORKING WHEN OUR JES2 PGMR DECIDED     *   FILE 166
//*                  TO MOVE SWA ABOVE THE LINE.  I THEN            *   FILE 166
//*                  DECIDED TO FIX THIS PROGRAM USING MACRO        *   FILE 166
//*                  'SWAREQ' WHICH IS THE STANDARD WAY TO          *   FILE 166
//*                  ACCESS THE JFCB FROM TIOT PTR.                 *   FILE 166
//*                                                                 *   FILE 166
//*      DATE     -  THIS IS JES2 EXIT 1 (PAGE SEPARATOR),          *   FILE 166
//*                  BUT REALLY IT IS CSECT RBDDATE WHICH           *   FILE 166
//*                  IMPLEMENTS TABLELESS DATE CONVERSION           *   FILE 166
//*                                                                 *   FILE 166
//*      DYNALIST -  SOURCE - TSO COMMAND TO DISPLAY ALL UNIT       *   FILE 166
//*                  NAMES ON THE SYSTEM AND THE UCBS' (PLUS        *   FILE 166
//*                  VOLSERS) ASSOCIATED WITH THOSE UCBS.           *   FILE 166
//*                  DYNALIST IS AN OLD PROGRAM COMING OFF THE      *   FILE 166
//*                  CBT TAPE AND MODIFIED TO WORK WITH MVS 4.2     *   FILE 166
//*                  AND ABOVE.                                     *   FILE 166
//*                                                                 *   FILE 166
//*      FIND     -  SOURCE - TSO CMD TO DO QUICK SEARCH FOR        *   FILE 166
//*                  ANY CHARACTER STRING IN A PDS.  HAS A FEW      *   FILE 166
//*                  NICE OPTIONS.                                  *   FILE 166
//*                                                                 *   FILE 166
//*      IEFUTL   -  MULTI FUNCTION, SEMI-SMART, TABLE DRIVEN       *   FILE 166
//*                  TIMEOUT PROCESSOR                              *   FILE 166
//*                                                                 *   FILE 166
//*      IEFUTLTB -  THE TABLE IT USES                              *   FILE 166
//*                                                                 *   FILE 166
//*      JESXIT05 -  JES2 COMMAND EXIT TO DO THE FOLLOWING:         *   FILE 166
//*                                                                 *   FILE 166
//*                  $Q'XXX    -  DISPLAYS ALL JOBS PREFIXED        *   FILE 166
//*                               BY XXX                            *   FILE 166
//*                  $QAPF     -  DISPLAYS APF LIST                 *   FILE 166
//*                  $QLLT     -  DISPLAYS LINKLIST TABLE           *   FILE 166
//*                  $QDSN=XXX -  CATALOG SEARCH DSNAME XXX. THE    *   FILE 166
//*                               CATALOGED VOLUME IS ALSO SEARCHED *   FILE 166
//*                               TO MAKE SURE DATA SET DOES EXIST  *   FILE 166
//*                               THERE.                            *   FILE 166
//*                  $QVOL=YYY -  DISPLAYS UCB ADDR OF VOL=YYY.     *   FILE 166
//*                               IT'S NOT EASY TO FIND THIS OUT    *   FILE 166
//*                               USING NATIVE MVS COMMANDS.        *   FILE 166
//*                  $QSYSTEM  -  DISPLAYS ALL KIND OF INFO ABOUT   *   FILE 166
//*                               SYSTEM.  GOOD FOR US SYSTEMS      *   FILE 166
//*                               PROGRAMMERS.                      *   FILE 166
//*                  $Q        -  DISPLAYS AVAILABLE PARMS (AS      *   FILE 166
//*                               ABOVE)                            *   FILE 166
//*                                                                 *   FILE 166
//*          JES2 PARMS NEEDED:                                     *   FILE 166
//*                                                                 *   FILE 166
//*          *   LOADMOD(JESXIT05)                                  *   FILE 166
//*          *   EXIT(005) ROUTINE=EXIT5,STATUS=ENABLED,TRACE=NO    *   FILE 166
//*                                                                 *   FILE 166
//*      JESX006  -  JES2 INTERNAL TEXT SCAN, TABLE DRIVEN,         *   FILE 166
//*                  IMPLEMENTS CONTROLS ON NUMBER OF TAPE          *   FILE 166
//*                  DRIVES PER STEP.                               *   FILE 166
//*                                                                 *   FILE 166
//*      JSTAT    -  SOURCE - BATCH PROGRAM TO CHECK AND SEE IF     *   FILE 166
//*                  A JOB (OR STC OR TSU) IS CURRENTLY RUNNING     *   FILE 166
//*                  (USING THE 'STATUS' FUNCTION OF JES2).  IF     *   FILE 166
//*                  IT IS FOUND, THEN WTO'S WILL BE DONE USING     *   FILE 166
//*                  CONTROL CARDS IN 'FND'.  OTHERWISE,            *   FILE 166
//*                  CONTROL CARDS FROM 'NOTFND' DDNAME WILL BE     *   FILE 166
//*                  USED BY WTO'S.  IF 'RRFND' AND 'RRNOTFND'      *   FILE 166
//*                  ARE USED, A WTOR WILL BE DONE AFTER THE        *   FILE 166
//*                  WTO'S TO GIVE THE OPERATOR A CHANCE TO DO      *   FILE 166
//*                  SOMETHING ELSE BEFORE THE REPLY.  OF           *   FILE 166
//*                  COURSE, NONE OF THE DDNAMES HAS TO BE          *   FILE 166
//*                  PRESENT, IN WHICH CASE, THE APPROPRIATE        *   FILE 166
//*                  RETURN CODE WILL BE ISSUED BASED ON THE        *   FILE 166
//*                  JOB STATUS.  NOTE THAT SINCE THIS PROGRAM      *   FILE 166
//*                  DOES NOT GO THROUGH THE ASVT, AND              *   FILE 166
//*                  THEREFORE DOES WORK IN A JES2 SHARED SPOOL     *   FILE 166
//*                  ENVIRONMENT.                                   *   FILE 166
//*                                                                 *   FILE 166
//*      LOCKTERM -  TSO COMMAND TO LOCK A SCREEN WITH A            *   FILE 166
//*                  PASSWORD                                       *   FILE 166
//*                                                                 *   FILE 166
//*      SEEK     -  SOURCE - TSO CMD TO DO QUICK SEARCH FOR        *   FILE 166
//*                  ANY MODULE THAT RESIDES IN LPA                 *   FILE 166
//*                  (MLPT/FLPA/PLPA), LINKLIST, AND/OR             *   FILE 166
//*                  STEPLIB.  MODULE INFORMATION WILL BE           *   FILE 166
//*                  DISPLAYED ACCORDINGLY IF FOUND.                *   FILE 166
//*                                                                 *   FILE 166
//*      TSOINIT  -  SOURCE - TSO CMD TO CHECK FOR A FEW ISPF       *   FILE 166
//*                  DATA SETS AND ALLOCATE THEM AS 'NEW' IF        *   FILE 166
//*                  THEY ARE NOT FOUND IN THE CATALOGS.  THESE     *   FILE 166
//*                  DATA SET NAMES ARE RECORDED IN A TABLE OF      *   FILE 166
//*                  THIS PROGRAM.  THE FIRST DATA SET              *   FILE 166
//*                  QUALIFIER WILL BE THE SAME WITH THE            *   FILE 166
//*                  EXECUTING TSO ID.                              *   FILE 166
//*                                                                 *   FILE 166
//*   -*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- *   FILE 166
//*                                                                 *   FILE 166
//*     WE DO NOT PROMISE TO MAKE ANY CORRECTIONS AND/OR            *   FILE 166
//*     MODIFICATIONS TO ANY OF THE PROGRAMS.  HOWEVER, WE DO       *   FILE 166
//*     ENCOURAGE ANY COMMENTS/IDEAS AND WILL ATTEMPT TO PROVIDE    *   FILE 166
//*     ANY FIXES AND/OR MODIFICATIONS AS TIME PERMITS.  ALL        *   FILE 166
//*     QUESTIONS/COMMENTS CAN BE DIRECTED TO:                      *   FILE 166
//*                                                                 *   FILE 166
//*         VINH VU                                                 *   FILE 166
//*         CONSULTING TECHNOLOGIST                                 *   FILE 166
//*         NEIMAN MARCUS                                           *   FILE 166
//*         IS DEPARTMENT                                           *   FILE 166
//*         111 CUSTOMER WAY                                        *   FILE 166
//*         IRVING, TX  75039-3607                                  *   FILE 166
//*         (972)-401-6948                                          *   FILE 166
//*                                                                 *   FILE 166
//*         email:  vinh_vu@neimanmarcus.com                        *   FILE 166
//*                                                                 *   FILE 166
//*   -*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- *   FILE 166
//*                                                                 *   FILE 166
//***FILE 167 IS A COLLECTION OF UTILITIES FROM CATELLUS            *   FILE 167
//*              DEVELOPMENT CORPORATION IN SAN FRANCISCO,          *   FILE 167
//*              CALIFORNIA.  THIS FILE WAS CONTRIBUTED BY          *   FILE 167
//*              GEORGE RAMAS AND ROB WUNDERLICH.                   *   FILE 167
//*                                                                 *   FILE 167
//*                    UTILITIES PACKAGE                            *   FILE 167
//*                                                                 *   FILE 167
//*      THE FOLLOWING UTILITES ARE INCLUDED IN THIS COLLECTION.    *   FILE 167
//*      THEY ARE EITHER RUN AS CLISTS, PROGRAMS, OR ISPF           *   FILE 167
//*      PANELS.  DOCUMENTATION FOR EACH UTILITY IS IN THE          *   FILE 167
//*      MEMBER INDICATED BELOW.  IF YOU USE THE PDSLOAD PROGRAM    *   FILE 167
//*      (FILE 093) TO RELOAD THIS FILE INSTEAD OF IEBUPDTE, YOU    *   FILE 167
//*      WILL GET ISPF STATISTICS WHICH WILL INDICATE THE NATURE    *   FILE 167
//*      OF EACH MEMBER (PANELS, SOURCE, MESSAGE, DOC, CLIST).      *   FILE 167
//*                                                                 *   FILE 167
//*         UTILITY       DOC            FAST                       *   FILE 167
//*         NAME          MEMBER         DESCRIPTION                *   FILE 167
//*         --------      --------       -----------------------    *   FILE 167
//*         DAYTIMER  -   DAYTIMR#   -   APPOINTMENTS DISPLAY       *   FILE 167
//*         DASDDAC   -   DASDDAC#   -   DASD SPACE CALULATOR       *   FILE 167
//*         DASDROOM  -   DASDROO#   -   DASD SPACE REPORT          *   FILE 167
//*         GDGUTIL   -   GDGUTIL#   -   GDG UTILITY                *   FILE 167
//*         WHOHAS    -   WHOHAS#    -   DATASET ENQUE NOTIFIER     *   FILE 167
//*                                                                 *   FILE 167
//*      SOME OF THE UTILITIES ARE EXECUTED AS CLISTS ONLY.         *   FILE 167
//*      OTHERS ARE PROGRAMS, OR ISPF DIALOGUES.  THERE SHOULD      *   FILE 167
//*      BE ENOUGH MATERIALS IN THIS DATASET TO EXECUTE ALL OF      *   FILE 167
//*      THE UTILITIES.                                             *   FILE 167
//*                                                                 *   FILE 167
//***FILE 168 WAS CONTRIBUTED BY BILL GODFREY OF PRC, INC.          *   FILE 168
//*           IN SUITLAND, MD.  THESE ARE UPDATES TO SOME OF        *   FILE 168
//*           IS PROGRAMS IN JIM MARSHALL'S FILES, AND THERE        *   FILE 168
//*           ARE SOME NEW THINGS.  BILL HAS DONE MUCH PIONEERING   *   FILE 168
//*           WORK, AND HIS SOFTWARE DESERVES A GOOD LOOK.          *   FILE 168
//*                                                                 *   FILE 168
//*   email:  bgodfrey@ssdnotes.wwb.noaa.gov                        *   FILE 168
//*                                                                 *   FILE 168
//*         MVS SOFTWARE AND MODIFICATIONS                          *   FILE 168
//*         FROM BILL GODFREY, OF PRC INC.                          *   FILE 168
//*         (FORMERLY PLANNING RESEARCH CORPORATION)                *   FILE 168
//*         MCLEAN, VIRGINIA                                        *   FILE 168
//*                                                                 *   FILE 168
//*         MEMBER NAMES ENDING WITH '$' CONTAIN JCL TO             *   FILE 168
//*         ASSEMBLE AND LINK, AND ARE NOT LISTED BELOW.            *   FILE 168
//*                                                                 *   FILE 168
//*         MEMBER NAMES ENDING WITH '#' CONTAIN HELP FOR A         *   FILE 168
//*         TSO COMMAND, AND ARE NOT LISTED BELOW.                  *   FILE 168
//*                                                                 *   FILE 168
//*         $DOC     - THIS FILE YOU ARE READING.                   *   FILE 168
//*         ASMH     - REFRESH OF ASSEMBLER PROMPTER FROM CBT       *   FILE 168
//*                    FILE 300.                                    *   FILE 168
//*         CATPW    - DISPLAY ICF MASTER CATALOG PASSWORDS.        *   FILE 168
//*         COPYPDS  - REFRESH OF COPYPDS TSO COMMAND FROM          *   FILE 168
//*                    CBT FILE 300. ISPF ENQ.                      *   FILE 168
//*         CUTC01   - ISPF/PDF EDIT CLIST 'CUT', PART OF           *   FILE 168
//*                    CUT/PASTE SET.                               *   FILE 168
//*         CUTC02   - ISPF/PDF EDIT CLIST 'PASTE', PART OF         *   FILE 168
//*                    CUT/PASTE SET.                               *   FILE 168
//*         CUTDOC   - DESCRIPTION OF CUT/PASTE.                    *   FILE 168
//*         CUTD01   - INSTALLATION INSTRUCTIONS FOR                *   FILE 168
//*                    CUT/PASTE, SINGLE-USER TEST.                 *   FILE 168
//*         CUTD02   - INSTALLATION INSTRUCTIONS FOR                *   FILE 168
//*                    CUT/PASTE, SYSTEM-WIDE.                      *   FILE 168
//*         CUTH01   - ISPF/PDF PANEL, DISPLAYED WHEN USER          *   FILE 168
//*                    ENTERS "CUT ?"                               *   FILE 168
//*         CUTH02   - ISPF/PDF PANEL, DISPLAYED WHEN USER          *   FILE 168
//*                    ENTERS "PASTE ?"                             *   FILE 168
//*         CUTJ01   - INSTALLATION JCL FOR CUT/PASTE,              *   FILE 168
//*                    SINGLE-USER TEST.                            *   FILE 168
//*         CUTJ02   - INSTALLATION JCL FOR CUT/PASTE,              *   FILE 168
//*                    SYSTEM-WIDE.                                 *   FILE 168
//*         CUTL01   - ISPF/PDF EDIT MACRO 'CUT', PART OF           *   FILE 168
//*                    CUT/PASTE SET.                               *   FILE 168
//*         CUTL02   - ISPF/PDF EDIT MACRO 'PASTE', PART OF         *   FILE 168
//*                    CUT/PASTE SET.                               *   FILE 168
//*         CVD      - TSO COMMAND TO CONVERT A HEX NUMBER TO       *   FILE 168
//*                    DECIMAL.                                     *   FILE 168
//*         CVX      - TSO COMMAND TO CONVERT A DECIMAL             *   FILE 168
//*                    NUMBER TO HEX.                               *   FILE 168
//*         DSPRINT  - TSO COMMAND TO PRINT SYSOUT. SAME            *   FILE 168
//*                    SYNTAX AS IBM'S DSPRINT.                     *   FILE 168
//*         FINDAZAP - UTILITY TO FIND A STRING IN A LOAD           *   FILE 168
//*                    MODULE, GENERATE A ZAP.                      *   FILE 168
//*         MEMBER   - REFRESH OF MEMBER TSO COMMAND FROM           *   FILE 168
//*                    CBT FILE 300. XA FIX.                        *   FILE 168
//*         SHOWDS   - REFRESH OF SHOWDS TSO COMMAND  FROM          *   FILE 168
//*                    CBT FILE 300. XA FIX.                        *   FILE 168
//*         ULXDOC   - INFORMATION ABOUT THE ULX... MEMBERS.        *   FILE 168
//*         ULX...   - ISPF PROGRAM FOR DISPLAYING FREE SPACE       *   FILE 168
//*                    ON A DISK VOLUME.                            *   FILE 168
//*         XBE      - EXECUTE ISPF BROWSE OR EDIT VIA              *   FILE 168
//*                    SHORTCUT.                                    *   FILE 168
//*         XBEDOC   - INSTRUCTIONS FOR USING XBE.                  *   FILE 168
//*                                                                 *   FILE 168
//*         THE FOLLOWING NAMING CONVENTION HAS BEEN USED FOR       *   FILE 168
//*         MEMBERS THAT ARE PARTS OF AN ISPF APPLICATION:          *   FILE 168
//*                                                                 *   FILE 168
//*            THE FIRST 3 CHARACTERS IDENTIFY THE APPLICATION.     *   FILE 168
//*            THE 4TH CHARACTER IS                                 *   FILE 168
//*                  'L' FOR SOURCE CODE OF LOAD MODULES            *   FILE 168
//*                  'D' FOR DOCUMENTATION                          *   FILE 168
//*                  'P' FOR PANEL        'H' FOR TUTORIAL PANEL    *   FILE 168
//*                  'M' FOR MESSAGE SET  'C' FOR CLIST             *   FILE 168
//*                  'S' FOR SKELETON     'J' FOR JCL               *   FILE 168
//*            THE 5TH AND 6TH CHARACTERS ARE NUMBERS THAT          *   FILE 168
//*            UNIQUELY IDENTIFY EACH MODULE WITHIN THE GROUP.      *   FILE 168
//*                                                                 *   FILE 168
//*            THE NAMING CONVENTION FITS WITHIN THE NAMING         *   FILE 168
//*            REQUIREMENTS FOR MEMBERS OF THE ISPF MESSAGE         *   FILE 168
//*            LIBRARIES.                                           *   FILE 168
//*                                                                 *   FILE 168
//***FILE 169 IS A COLLECTION OF UTILITIES FROM KEVIN WILLIAMS      *   FILE 169
//*           OF MEIJER, INCORPORATED IN GRAND RAPIDS, MICHIGAN.    *   FILE 169
//*           INCLUDED ARE A PROBLEM REPORT FOR APPLIED SYSMODS     *   FILE 169
//*           IN ASSEMBLER LANGUAGE, FOR SMP/E RELEASE 5.  THIS     *   FILE 169
//*           REPORT MIGHT HAVE SOME ADVANTAGES OVER IBM'S          *   FILE 169
//*           "REPORT ERRSYSMODS".                                  *   FILE 169
//*                                                                 *   FILE 169
//*        DISCLAIMER                                               *   FILE 169
//*            THESE PROGRAMS WORK FOR ME, BUT NO WARRANTY          *   FILE 169
//*            OR GUARANTEE IS MADE BY ME OR MEIJER, INC.           *   FILE 169
//*            ABOUT THEIR CORRECT OPERATION.  RUN THEM AT          *   FILE 169
//*            YOUR OWN RISK.                                       *   FILE 169
//*                                                                 *   FILE 169
//*            KEVIN WILLIAMS                                       *   FILE 169
//*            MEIJER, INC., 982/2                                  *   FILE 169
//*            2727 WALKER AVENUE NW                                *   FILE 169
//*            GRAND RAPIDS, MI  49504                              *   FILE 169
//*            (616) 791-3621                                       *   FILE 169
//*                                                                 *   FILE 169
//*                                                                 *   FILE 169
//*         MEMBER     DESCRIPTION                                  *   FILE 169
//*         ------     -----------                                  *   FILE 169
//*         $$DOC      THIS MEMBER                                  *   FILE 169
//*                                                                 *   FILE 169
//*         #RTN       STANDARD LINKAGE MACRO BORROWED FROM         *   FILE 169
//*                    THE NASPA VIP TAPE                           *   FILE 169
//*                                                                 *   FILE 169
//*         #SLC       STANDARD LINKAGE MACRO BORROWED FROM         *   FILE 169
//*                    THE NASPA VIP TAPE                           *   FILE 169
//*                                                                 *   FILE 169
//*         FORTUNE    THIS IS AN EDITED FORTUNE COOKIE FILE        *   FILE 169
//*                    FROM AN OLD DEC PDP-11 RSTS/E SYSTEM         *   FILE 169
//*                    THAT I'VE BEEN CARRYING AROUND WITH ME       *   FILE 169
//*                    FOR MORE THAN 10 YEARS.  I'VE CLEANED        *   FILE 169
//*                    IT UP QUITE A BIT AND MADE IT EASY FOR       *   FILE 169
//*                    ANYONE TO FORMAT:  JUST ADD YOUR OWN         *   FILE 169
//*                    .QUOTE AND .ATTR MACROS AND RUN IT           *   FILE 169
//*                    THROUGH YOUR FAVORITE TEXT PROCESSOR         *   FILE 169
//*                    (OR DCF).  I BELIEVE IT CAME FROM AN         *   FILE 169
//*                    OLD DECUS TAPE, SO IT SHOULD BE PUBLIC       *   FILE 169
//*                    DOMAIN.                                      *   FILE 169
//*                                                                 *   FILE 169
//*         PELISTR5   MODIFIED VERSION OF MICHAEL GEARING'S        *   FILE 169
//*                    PELIST PROGRAM FROM FILE 18 OF THE           *   FILE 169
//*                    NASPA VIP TAPE.  I HAVE MODIFIED IT TO       *   FILE 169
//*                    WORK WITH SMP/E RELEASE 5 ZONES.             *   FILE 169
//*                                                                 *   FILE 169
//*         SMLDATA    AN ENTIRE SEASON OF BOWLING SCORES           *   FILE 169
//*                    FOR SMLSTAT                                  *   FILE 169
//*                                                                 *   FILE 169
//*         SMLJCL     SAMPLE JCL TO RUN SMLSTAT                    *   FILE 169
//*                                                                 *   FILE 169
//*         SMLSTAT    BOWLING STATISTICS PROGRAM WRITTEN IN        *   FILE 169
//*                    PL/I.  I WROTE THIS PROGRAM                  *   FILE 169
//*                    SPECIFICALLY FOR MY LEAGUE (SEYMOUR          *   FILE 169
//*                    MEN'S LEAGUE) FOR USE WITH A XEROX           *   FILE 169
//*                    4045 PRINTER, SO IT WILL PROBABLY NEED       *   FILE 169
//*                    TO BE MODIFIED FOR OTHER LEAGUES             *   FILE 169
//*                    AND/OR PRINTERS.  IT'S NOT INCREDIBLY        *   FILE 169
//*                    WELL DOCUMENTED, SO ANYBODY WHO WANTS        *   FILE 169
//*                    TO USE IT AND HAS ANY QUESTIONS SHOULD       *   FILE 169
//*                    FEEL FREE TO CALL ME.                        *   FILE 169
//*                                                                 *   FILE 169
//*         VTOCSCAN   PROGRAM TO SCAN ALL ONLINE DASD VTOCS        *   FILE 169
//*                    FOR NON-ZERO VALUES IN THE FOUR              *   FILE 169
//*                    RESERVED BYTES BEGINNING AT OFFSET           *   FILE 169
//*                    X'4E' IN THE DSCBS.  THIS PROGRAM IS         *   FILE 169
//*                    USEFUL IF YOU RUN THIRD-PARTY DASD           *   FILE 169
//*                    MANAGEMENT SOFTWARE (E.G. DMS) AND ARE       *   FILE 169
//*                    PLANNING TO INSTALL DFP VERSION 3.           *   FILE 169
//*                                                                 *   FILE 169
//***FILE 170 IS A DUMPCSA PROGRAM WHICH I FIGURED MIGHT BE         *   FILE 170
//*           USEFUL TO PEOPLE FOR THE IDEAS WITHIN IT.  THIS       *   FILE 170
//*           PROGRAM "SNAP DUMPS" ALL ALLOCATED CSA, SO THAT       *   FILE 170
//*           THE MATERIAL MAY BE SCANNED FOR STRINGS.  THERE       *   FILE 170
//*           IS FOOD FOR THOUGHT IN THE CODING, WHICH WAS DONE     *   FILE 170
//*           BY FRANK O'QUINN OF LSU IN BATON ROUGE, LA.           *   FILE 170
//*                                                                 *   FILE 170
//***FILE 171 is a collection of several important utilities,       *   FILE 171
//*           contributed semi-anonymously.  Please direct          *   FILE 171
//*           support questions to Sam Golob, sbgolob@attglobal.net *   FILE 171
//*           or sbgolob@aol.com .  Phone:  845-362-1996            *   FILE 171
//*                                                                 *   FILE 171
//*      These utilities are:                                       *   FILE 171
//*                                                                 *   FILE 171
//*           DITTO   -  AN MVS PROGRAM WITH AN ISPF INTERFACE,     *   FILE 171
//*                      ORIGINALLY WRITTEN, BUT INSPIRED BY        *   FILE 171
//*                      DOS/DITTO.                                 *   FILE 171
//*                                                                 *   FILE 171
//*           TAPEMAP -  A REWRITE OF THE PROGRAM THAT IS ON        *   FILE 171
//*                      FILE 299, BUT BROKEN INTO SEPARATE         *   FILE 171
//*                      CSECTS AND SUBROUTINE CALLS.               *   FILE 171
//*                                                                 *   FILE 171
//*      One nice thing about this DITTO and TAPEMAP is that you    *   FILE 171
//*      DON'T NEED BLP PRIVILEGE.  The code does a fake open.      *   FILE 171
//*                                                                 *   FILE 171
//*           DISASM  -  A REDESIGN OF THE DISASSEMBLER ON          *   FILE 171
//*                      FILE 217, BUT BROKEN INTO CSECTS.  THIS    *   FILE 171
//*                      DISASSEMBLER CALLS THE ASSEMBLER AND       *   FILE 171
//*                      ALLOWS YOU TO USE REAL MACROS AND THEIR    *   FILE 171
//*                      DSECTS FOR LABEL MAPPING.                  *   FILE 171
//*                                                                 *   FILE 171
//*           SMFSPLIT - SMFSPLIT IS AN ASSEMBLER PROGRAM WHICH     *   FILE 171
//*                      ALLOWS YOU TO BREAK UP SMF RECORDS BY      *   FILE 171
//*                      TYPE, TO SEPARATE DATASETS.  THIS DEALS    *   FILE 171
//*                      WITH THE RAW SMF RECORDS.  YOU CAN POST    *   FILE 171
//*                      PROCESS THEM LATER.  I THINK THAT THIS     *   FILE 171
//*                      UTILITY IS QUITE A RARE DEAL.  MOST SMF    *   FILE 171
//*                      PROCESSING PROGRAMS PICK A TYPE, AND       *   FILE 171
//*                      FORMAT A REPORT.  THIS PROGRAM ISOLATES    *   FILE 171
//*                      ALL RECORDS OF A GIVEN TYPE TO AN          *   FILE 171
//*                      EXTRACTION FILE.                           *   FILE 171
//*                                                                 *   FILE 171
//*           TPX     -  IF THE NETWORK PACKAGE, TPX, IS RUNNING    *   FILE 171
//*                      ON AN ISOLATED MACHINE, AND USERS FROM     *   FILE 171
//*                      THE PRODUCTION MACHINES ARE TRYING TO      *   FILE 171
//*                      LOG ONTO TPX, THERE IS A PROBLEM IN        *   FILE 171
//*                      SYNCHRONIZING RACF DATABASES FROM THE      *   FILE 171
//*                      SEPARATE SYSTEMS TO PROPERLY VERIFY THE    *   FILE 171
//*                      LOGON.  THIS IS A TPX EXIT AND AN STC,     *   FILE 171
//*                      WHICH SOLVES THE PROBLEM VERY INGENIOUSLY. *   FILE 171
//*                                                                 *   FILE 171
//*           FX      -  THIS PACKAGE IS A VTAM APPLICATION THAT    *   FILE 171
//*                      RUNS ON MULTIPLE SYSTEMS, AND ALLOWS       *   FILE 171
//*                      YOU TO SEND DATA FILES IN BULK, FROM       *   FILE 171
//*                      ONE SYSTEM TO ALL OF THEM.                 *   FILE 171
//*                                                                 *   FILE 171
//*           SYSTEM UTILITY (SUTL)  -  A VTAM LU 6.2 APPLICATION   *   FILE 171
//*                      THAT ALLOWS A TSO USER TO OBTAIN INFORMA-  *   FILE 171
//*                      TION ABOUT EXECUTING JOBS, THE APF LIST,   *   FILE 171
//*                      IPL DATE/TIME/SYSRES, LINK LIST, ETC.      *   FILE 171
//*                      MOST OF THIS INFORMATION IS USUALLY        *   FILE 171
//*                      AVAILABLE VIA OTHER UTILITIES ALREADY IN   *   FILE 171
//*                      USE, BUT THIS UTILITY ALLOWS THE TSO USER  *   FILE 171
//*                      TO GET INFO FROM A SYSTEM THAT HE IS NOT   *   FILE 171
//*                      LOGGED ON TO.                              *   FILE 171
//*                                                                 *   FILE 171
//*        (NOTE.  DAVE CARTWRIGHT, WHO CONTRIBUTED FILE 172 TO     *   FILE 171
//*                THIS TAPE, HAS MADE SOME UPDATES TO A FEW OF     *   FILE 171
//*                THE DITTO FILES.  THIS WAS FOR AN MVS/ESA 3.1    *   FILE 171
//*                SYSTEM.  IF YOU FEEL YOU NEED THESE UPDATES,     *   FILE 171
//*                THEY ARE INCLUDED HERE AS MEMBER $DITCRTW.)      *   FILE 171
//*                                                                 *   FILE 171
//*           - - - - - - - - - - - - - - - - - - - - -             *   FILE 171
//*                                                                 *   FILE 171
//*                    SYSTEM UTILITY (SUTL)                        *   FILE 171
//*                                                                 *   FILE 171
//*        SUTL IS A VTAM LU 6.2 APPLICATION THAT ALLOWS A TSO      *   FILE 171
//*        USER TO OBTAIN INFORMATION ABOUT EXECUTING JOBS, THE     *   FILE 171
//*        APF LIST, IPL DATE/TIME/SYSRES, LINK LIST, ETC.  MOST    *   FILE 171
//*        OF THIS INFORMATION IS USUALLY AVAILABLE VIA OTHER       *   FILE 171
//*        UTILITIES ALREADY IN USE, SO WHY BOTHER GOING TO THE     *   FILE 171
//*        TROUBLE OF 'RE-INVENTING' THIS WHEEL AND ADDING VTAM     *   FILE 171
//*        OVER-HEAD IN THE PROCESS?  BEING A VTAM APPLICATION      *   FILE 171
//*        MEANS THAT A TSO USER CAN GET INFO FROM A SYSTEM         *   FILE 171
//*        THAT HE IS NOT LOGGED ON TO.  IF YOU HAVE MULTIPLE       *   FILE 171
//*        PROCESSORS OR LPARS, YOU CAN "WATCH" EXECUTING JOBS ON   *   FILE 171
//*        ANY OF THE SYSTEMS NO MATTER WHICH SYSTEM YOU ARE        *   FILE 171
//*        LOGGED ON TO.  BESIDES IT WAS A GOOD WAY TO LEARN        *   FILE 171
//*        SOMETHING AND HAVE A USEFUL UTILITY WHEN IT WAS          *   FILE 171
//*        WORKING.                                                 *   FILE 171
//*                                                                 *   FILE 171
//*        SUTL CONSISTS OF TWO BASIC COMPONENTS, (1) A DATA        *   FILE 171
//*        COLLECTOR THAT WOULD PROBABLY BE BEST TO RUN AS A        *   FILE 171
//*        STARTED TASK (STC) AND (2) THE TSO/SPF CODE THAT SENDS   *   FILE 171
//*        REQUESTS TO THE DATA COLLECTOR AND DISPLAYS THE DATA.    *   FILE 171
//*                                                                 *   FILE 171
//*        THE DATA COLLECTOR (STC) SHOULD BE RUN ON EACH SYSTEM.   *   FILE 171
//*        THE STC DOES REQUIRE APF AUTHORIZATION FOR THE UCB       *   FILE 171
//*        FUNCTION.  IF YOU REMOVE THE UCB FUNCTION, SUTL WILL     *   FILE 171
//*        NOT REQUIRE ANY SPECIAL PRIVILEGES.                      *   FILE 171
//*                                                                 *   FILE 171
//*        THE TSO/SPF PART REQUIRES ONE VTAM APPL ID PER ACTIVE    *   FILE 171
//*        TSO USER.  THESE APPL IDS ARE ASSEMBLED AND LINK         *   FILE 171
//*        EDITED INTO A LOAD MODULE AS PART OF THE INSTALLATION    *   FILE 171
//*        STEPS.  I FELT THAT IT WOULD BE LESS OVERHEAD PER        *   FILE 171
//*        INVOCATION TO SEARCH A PRE-ASSEMBLED/LINK EDITED LOAD    *   FILE 171
//*        MODULE THAN TO READ A PARAMETER DATA SET (THIS WOULD     *   FILE 171
//*        MEAN ALLOCATING THE DATA SET, OPENING IT, READING AND    *   FILE 171
//*        SCANNING EACH STATEMENT, CLOSING, AND THEN               *   FILE 171
//*        DE-ALLOCATING).                                          *   FILE 171
//*                                                                 *   FILE 171
//*   IEFUTL  -  A sample IEFUTL SMF exit which does the following  *   FILE 171
//*              things:                                            *   FILE 171
//*                                                                 *   FILE 171
//*        If this is for a batch job or started                    *   FILE 171
//*        task, allow to abend.                                    *   FILE 171
//*                                                                 *   FILE 171
//*        For TSO users:                                           *   FILE 171
//*        Check user's access to a RACF resource.                  *   FILE 171
//*        As is, this exit checks for the user's access to         *   FILE 171
//*        class 'TIMEOUT', entity 'TSOUSER'.                       *   FILE 171
//*                                                                 *   FILE 171
//*        If permitted to resource                                 *   FILE 171
//*          If wait time exceeded                                  *   FILE 171
//*             extend time 5 minutes                               *   FILE 171
//*                                                                 *   FILE 171
//*        If CPU time exceeded                                     *   FILE 171
//*          cancel                                                 *   FILE 171
//*                                                                 *   FILE 171
//*        If not permitted to resource                             *   FILE 171
//*          cancel                                                 *   FILE 171
//*                                                                 *   FILE 171
//***FILE 172 is from David Cartwright of Sutton Coldfield in       *   FILE 172
//*           England.  This file contains a nice collection of     *   FILE 172
//*           utilities and useful tools.                           *   FILE 172
//*                                                                 *   FILE 172
//*              (UPDATED 04/00 - SUTTON COLDFIELD, ENGLAND)        *   FILE 172
//*                                                                 *   FILE 172
//*     email addresses:                                            *   FILE 172
//*                                                                 *   FILE 172
//*   home- dcuk@dcuk.demon.co.uk                                   *   FILE 172
//*   work- "Dave Cartwright" <DaveCartwright@uk.agcocorp.com>      *   FILE 172
//*                                                                 *   FILE 172
//*      PDSDOC *DOCUMENTATION OF PUBLIC DOMAIN                     *   FILE 172
//*      OFFERING..............* $DOC                               *   FILE 172
//*                                                                 *   FILE 172
//*      NEITHER DAVID CARTWRIGHT NOR ANY COMPANY ASSOCIATED        *   FILE 172
//*      WITH HIM EXPRESS OR IMPLY ANY WARRANTY AS TO THE           *   FILE 172
//*      FITNESS OF THESE COMPUTER PROGRAMS FOR ANY FUNCTION.       *   FILE 172
//*      THE USE OF THESE PROGRAMS OR THE RESULTS THEREOF IS        *   FILE 172
//*      ENTIRELY AT THE RISK OF THE USER.                          *   FILE 172
//*                                                                 *   FILE 172
//*      THESE PROGRAMS ARE DONATED TO THE PUBLIC DOMAIN AND MAY    *   FILE 172
//*      BE FREELY COPIED. THEY MAY BE FREELY DISTRIBUTED TO ANY    *   FILE 172
//*      OTHER PARTY ON CONDITION THAT NO INDUCEMENT BEYOND         *   FILE 172
//*      REASONABLE HANDLING COSTS BE OFFERED OR ACCEPTED FOR       *   FILE 172
//*      SUCH DISTRIBUTION.                                         *   FILE 172
//*                                                                 *   FILE 172
//*      THESE PROGRAMS MAY BE MODIFIED IN ANY WAY THE USER         *   FILE 172
//*      THINKS FIT BECAUSE USE OF THESE PROGRAMS IS ENTIRELY AT    *   FILE 172
//*      THE RISK OF THE USER ANYWAY. I WOULD BE INTERESTED TO      *   FILE 172
//*      HEAR OF SIGNIFICANT ENHANCEMENTS OR INSTANCES WHERE        *   FILE 172
//*      THESE PROGRAMS HAVE BEEN OF MAJOR BENEFIT (OR              *   FILE 172
//*      OTHERWISE), BUT THAT DEPENDS PURELY ON THE POLITENESS      *   FILE 172
//*      OF THE USER.  CONTACT;                                     *   FILE 172
//*                                                                 *   FILE 172
//*               DAVID CARTWRIGHT                                  *   FILE 172
//*               103, DARNICK ROAD,                                *   FILE 172
//*               SUTTON COLDFIELD                                  *   FILE 172
//*               UK - B73  6PF                                     *   FILE 172
//*               TEL.  ++44 (0)121 355 3190                        *   FILE 172
//*                                                                 *   FILE 172
//*      THESE GOODIES FALL INTO DIFFERENT CATEGORIES, AS           *   FILE 172
//*      DESCRIBED BELOW.  ASSEMBLY OF MANY THESE PROGRAMS          *   FILE 172
//*      REQUIRES SYS1.AMODGEN.  THEY HAVE BEEN TESTED ON MVS/XA    *   FILE 172
//*      2.2, AND SOME ARE KNOWN TO WORK ON OTHER VERSIONS OF       *   FILE 172
//*      MVS.  THE PROGRAMS WRITTEN BY ME ARE REASONABLY WELL       *   FILE 172
//*      DOCUMENTED, BUT CHECK THAT THE CODE IS DOING WHAT IT       *   FILE 172
//*      SAYS IT IS.  PROGRAMS LIKE 'MAPDISK' WHICH HAVE BEEN       *   FILE 172
//*      BUILT UP OVER THE YEARS SHOULD BE VIEWED WITH              *   FILE 172
//*      SUSPICION, ESPECIALLY THE PREAMBLE. ALL JCL SHOULD BE      *   FILE 172
//*      VIEWED AS BEING ILLUSTRATIVE ONLY, AS A LOT OF JUNK        *   FILE 172
//*      TENDS TO GET LEFT IN AS COMMENTS OR UNUSED DDNAMES.        *   FILE 172
//*      ALWAYS USE THE LATEST MACROS AND COPY CODE.                *   FILE 172
//*                                                                 *   FILE 172
//*      I USE ONE OF THE STANDARD SYSTEMS FOR OBTAINING            *   FILE 172
//*      AUTHORIZATION BUT FOR SECURITY I WILL NOT DIVULGE WHAT     *   FILE 172
//*      IT IS. TO GIVE YOU SOME HELP I HAVE BEGUN TO USE A         *   FILE 172
//*      PRIVATE MACRO 'GETAUTH' TO INVOKE THESE FUNCTIONS. THE     *   FILE 172
//*      VERSION IN THIS FILE WILL ONLY GENERATE AN MNOTE TO        *   FILE 172
//*      WARN YOU THAT AUTHORIZATION IS REQUIRED, HOW YOU           *   FILE 172
//*      PROVIDE IT IS UP TO YOU.                                   *   FILE 172
//*                                                                 *   FILE 172
//*                   CACHE MANAGEMENT PROGRAMS                     *   FILE 172
//*                                                                 *   FILE 172
//*      THESE PROGRAMS ARE FOR MVS INSTALLATIONS USING THE IBM     *   FILE 172
//*      3990-3 DISK CONTROLLER WITH CACHE. I INCLUDE A SIMPLE      *   FILE 172
//*      CACHE PERFORMANCE MONITOR PROGRAM. THE OTHER PROGRAMS      *   FILE 172
//*      ARE INTENDED TO MODIFY VARIOUS MODULES IN STORAGE TO       *   FILE 172
//*      ALLOW THE PAGING AND/OR SWAPPING SUB-SYSTEM TO USE THE     *   FILE 172
//*      3990-3 EXTENDED FUNCTIONS CACHE FAST WRITE (CFW) OR        *   FILE 172
//*      DASD FAST WRITE (DFW).  THE MEMBER '$PAPER' WILL GIVE      *   FILE 172
//*      THE USER SOME IDEA OF THE PURPOSE, BENEFITS AND            *   FILE 172
//*      PROBLEMS OF THE PROGRAMS SUPPLIED.  UPDATED OCTOBER        *   FILE 172
//*      1992                                                       *   FILE 172
//*                                                                 *   FILE 172
//*      $PAPER    TEXT GIVING HISTORY OF CACHE DEVELOPMENTS (ASA)  *   FILE 172
//*      SECR01    CACHE REPORTING PROGRAM                          *   FILE 172
//*      SECOMMON  AUXILIARY STORAGE MANAGER ZAP COMMON CODE        *   FILE 172
//*      SECFWON   ALLOW PAGING TO USE CACHE FAST WRITE             *   FILE 172
//*      SECFWOFF  ZAP STORAGE BACK TO IBM VALUES                   *   FILE 172
//*      SECFWMPF  MPF EXIT TO DISABLE CACHE FAST WRITE             *   FILE 172
//*      SEDFWON   ALLOW PAGING TO USE DASD FAST WRITE              *   FILE 172
//*      SEDFWOFF  TURN OFF DASD FAST WRITE FOR PAGING              *   FILE 172
//*      SEREC     IBM 3990-3 SUBSYSTEM STATISTICS RECORD           *   FILE 172
//*      SESMF     CACHE MONITOR SMF RECORD                         *   FILE 172
//*                                                                 *   FILE 172
//*                      DISK MAPPING UTILITIES                     *   FILE 172
//*                                                                 *   FILE 172
//*      INCLUDES YET ANOTHER VERSION OF THE UBIQUITOUS             *   FILE 172
//*      'MAPDISK' THAT IS INDISPENSABLE FOR STORAGE MANAGEMENT.    *   FILE 172
//*      THIS VERSION SHOULD BE DEVICE INDEPENDENT AND HAS SOME     *   FILE 172
//*      GOOD FEATURES, SUCH AS DYNAMICALLY ALLOCATING THE VVDS     *   FILE 172
//*      ON THE VOLUME AND EXTRACTING INFORMATION ABOUT VSAM        *   FILE 172
//*      FILES, E.G. TRACKS USED. AT LAST YOU CAN EASILY SPOT       *   FILE 172
//*      THOSE HUGELY OVER-ALLOCATED VSAM HOGS. ALSO SHOWS TRUE     *   FILE 172
//*      LAST REF. DATE FOR VSAM WITHOUT IDATMSTP (FROM VVDS)       *   FILE 172
//*      AND WILL OPTIONALLY WRITE SUMMARY RECORDS FOR POST         *   FILE 172
//*      PROCESSING. A CUT-DOWN VERSION CALLED 'MAPDLIST' WILL      *   FILE 172
//*      READ THESE SUMMARY RECORDS AND CREATE A MAPDISK STYLE      *   FILE 172
//*      REPORT.  INCLUDED IS A SAMPLE JOB USING THIS               *   FILE 172
//*      COMBINATION TO REPORT VASTLY OVER-ALLOCATED FILES AND      *   FILE 172
//*      BADLY FRAGMENTED VSAM FILES (EXCESSIVE SPLITS). NOW        *   FILE 172
//*      WITH SMS SUPPORT.  MAPDISK PROGRAMS HAVE BEEN UPDATED      *   FILE 172
//*      JULY 97.                                                   *   FILE 172
//*                                                                 *   FILE 172
//*      MAPDISK   MAP DISK CONTENTS WITH ICF/VSAM DETAILS          *   FILE 172
//*      MAPDISKF  MAPDISK SUMMARY RECORD FORMAT                    *   FILE 172
//*      MAPDLIST  PRINT MAPDISK SUMMARY RECORDS IN MAPDISK FORMAT  *   FILE 172
//*      MAPDJCL   SAMPLE JCL FOR MAPDISK PROGRAMS                  *   FILE 172
//*      IXVTOCF5  PSEUDO FORMAT 5 DSCB'S FOR INDEXED VTOCS         *   FILE 172
//*      VSMERROR  VSAM ERROR ROUTINE FROM GERMAN G.U.I.D.E TAPE    *   FILE 172
//*      VVRDSECT  VVR RECORD FORMATS                               *   FILE 172
//*                                                                 *   FILE 172
//*      I DEVELOPED A PROGRAM TO GIVE AN OVERVIEW OF 3380 STATUS,  *   FILE 172
//*      WHICH GOT DEVELOPED FOR 3390'S (NOT MOD. 6).               *   FILE 172
//*      AS A CONTRACTOR I FOUND THE UCB SCAN ROUTINE CHANGED       *   FILE 172
//*      WITH DIFFERENT RELEASES OF MVS, SO I NEEDED DIFFERENT      *   FILE 172
//*      VERSIONS OF THESE PROGRAMS.                                *   FILE 172
//*                                                                 *   FILE 172
//*      MAP3380   OVERVIEW OF 3380'S, BY TYPE (D,E,K). ESA V4      *   FILE 172
//*      MAP3390   OVERVIEW OF 3390'S, BY TYPE (1,2,3). ESA V4      *   FILE 172
//*      M80ESA3   OVERVIEW OF 3380'S, BY TYPE (D,E,K). ESA V3      *   FILE 172
//*      M90ESA3   OVERVIEW OF 3390'S, BY TYPE (1,2,3). ESA V3      *   FILE 172
//*      M80XA2    OVERVIEW OF 3380'S, BY TYPE (D,E,K). MVS/XA V2   *   FILE 172
//*                                                                 *   FILE 172
//*                      VSAM HANDLING UTILITIES                    *   FILE 172
//*                                                                 *   FILE 172
//*      IF YOU COMBINE THE VVDS PROCESSING I OBTAINED FROM THE     *   FILE 172
//*      GERMAN G.U.I.D.E. GOODIES TAPE FOR 'MAPDISK' WITH THE      *   FILE 172
//*      SVC26 FUNCTIONS I GOT FROM THE CBT TAPE (DSAT), YOU        *   FILE 172
//*      HAVE SOME PRETTY POWERFUL TECHNOLOGY.  GIVE 'CAVEAT' A     *   FILE 172
//*      FREE-FORM LIST OF VSAM ITEMS AND IT WILL GENERATE          *   FILE 172
//*      IDCAMS ALTER CARDS TO OPTIMISE BUFFER ALLOCATIONS.         *   FILE 172
//*      UNFORTUNATELY DFSMS NO LOGER ALLOWS YOU TO ALTER THE       *   FILE 172
//*      BUFNI VALUE, BUT 'CAVEAT' CAN STILL BE USED TO SET THE     *   FILE 172
//*      TOTAL BUFFERSPACE.                                         *   FILE 172
//*                                                                 *   FILE 172
//*      AMDSB     MAP AMDSBCAT AREA FROM SVC26                     *   FILE 172
//*      CATREAD   USE SVC26 TO ACCESS ICF CATALOGS                 *   FILE 172
//*      CAVEAT    CARTWRIGHT'S AMAZING VSAM ENTITY AUTOMATIC       *   FILE 172
//*                TUNING                                           *   FILE 172
//*      EMPTOR    DISAPPOINTING, A SORT OF DIS-IDCAMS, DOES        *   FILE 172
//*                AIX'S                                            *   FILE 172
//*      GETVVR    SUB-PROGRAM TO RETURN VVR DATA FOR AN ENTITY     *   FILE 172
//*      ICFDSECT  ICF CATALOG BCS DATA FORMATS                     *   FILE 172
//*      JOBBUFNI  SAMPLE DAILY UPDATE FROM SMF DATA                *   FILE 172
//*      RESULT    DATA AREA RETURNED FROM SVC26 PROGRAM            *   FILE 172
//*                                                                 *   FILE 172
//*                   OUTPUT MANAGEMENT SYSTEM                      *   FILE 172
//*                                                                 *   FILE 172
//*      ONCE UPON A TIME (1982) I WROTE A PROGRAM WHICH WOULD      *   FILE 172
//*      ACT LIKE AN EXTERNAL WRITER AND WOULD STORE ON TAPE THE    *   FILE 172
//*      SYSOUT WHICH YOU DID NOT WANT TO PRINT. I SUBSEQUENTLY     *   FILE 172
//*      USED COMMERCIAL SYSOUT MANAGERS INCLUDING INFOPAC AND      *   FILE 172
//*      SAR.  WITH THE ADVENT OF SYSTEM MANAGED STORAGE I          *   FILE 172
//*      THOUGHT MY LITTLE EXTERNAL WRITER COULD BE MADE JUST AS    *   FILE 172
//*      GOOD OR BETTER THAN THOSE, SO I DID. THIS CODE WILL        *   FILE 172
//*      ARCHIVE YOUR SYSOUT ON DISK WHERE HSM CAN MANAGE IT. IT    *   FILE 172
//*      IS CARTWRIGHT'S HOUSEKEEPING EXTERNAL WRITER (CHEW). NO    *   FILE 172
//*      BELLS, SOME WHISTLES, BUT AWFULLY COST EFFECTIVE.  Y2K     *   FILE 172
//*      COMPLIANT 1998                                             *   FILE 172
//*                                                                 *   FILE 172
//*      CHEW$DOC  DOCUMENTATION                                    *   FILE 172
//*      CHEW$INST ASSEMBLE AND LINK                                *   FILE 172
//*      CHEW$JCL  RUN AS A BATCH JOB                               *   FILE 172
//*      CHEWMAIN,CHEWDYNA,CHEWPARS,CHEWREPT   SOURCE CODE          *   FILE 172
//*      CHEWSKIP,CHEWBACA,CHEWCOMM            DATA AREAS           *   FILE 172
//*      CHEWOUT   IS A SEPARATE PROGRAM TO PRINT THE LAST          *   FILE 172
//*                VERSION OF AN ARCHIVED REPORT.                   *   FILE 172
//*                                                                 *   FILE 172
//*                  DATA COMPRESSION UTILITIES                     *   FILE 172
//*                                                                 *   FILE 172
//*      A SET OF PROGRAMS TO COMPRESS SEQUENTIAL FILES. I GOT      *   FILE 172
//*      FED UP WITH WAITING FOR OPERATORS TO MOUNT SMF TAPES,      *   FILE 172
//*      SO FOUND A WAY TO BE ABLE TO KEEP SMF DATA ONLINE          *   FILE 172
//*      WITHOUT CONSUMING VAST AMOUNTS OF DISK SPACE.  'SSDC02'    *   FILE 172
//*      ACHIEVES ABOUT 40 PERCENT SPACE REDUCTION BY DUPLICATE     *   FILE 172
//*      BYTE COMPRESSION. IN ORDER TO BE ABLE TO MANIPULATE        *   FILE 172
//*      COMPRESSED FILES DIRECTLY I USE THE FACILITIES OF          *   FILE 172
//*      DF/SORT VIA E15 EXITS. IN RESPONSE TO THE POOR RESULTS     *   FILE 172
//*      ACHIEVED BY 'SSDC02' WHEN SHRINKING USER FILES THAT HAD    *   FILE 172
//*      FEW REPEATING CHARACTERS, I WROTE A PROGRAM CALLING THE    *   FILE 172
//*      HUFFMAN TREE COMPACTION ROUTINE FROM 'ARCHIVER', BY        *   FILE 172
//*      RICHARD A. FOCHTMAN (CBT FILE 147). ON SMF DATA THIS       *   FILE 172
//*      PROGRAM GIVES OUTPUT ABOUT 10 PERCENT SMALLER THAN         *   FILE 172
//*      'SSDC02'. HOWEVER, TO EXPAND THE DATA TAKES THREE TIMES    *   FILE 172
//*      AS MUCH CPU TIME AS USING 'SSDCE15'.  I LATER WROTE        *   FILE 172
//*      DCPCOMP1 TO IMPROVE ON SSDC02 AND THEN DCPCOMP2 FOR SMF    *   FILE 172
//*      DATA - THE RESULTS OF THIS ARE SPECTACULAR IF YOU SORT     *   FILE 172
//*      ON THE SMF HEADER FIRST. DCS....  MEMBERS ARE SORT EXIT    *   FILE 172
//*      VERSIONS OF THESE PROGRAMS.                                *   FILE 172
//*                                                                 *   FILE 172
//*      ACTOR     ARCHIVER COMPACTION TECHNIQUE OUTPUT REDUCTION   *   FILE 172
//*      ACTRESS   ARCHIVER COMPACTION TECHNIQUE REBUILD EXIT       *   FILE 172
//*                FOR SORTS                                        *   FILE 172
//*      COMPACT   OBJECT DECK FOR ARCHIVER COMPACTION CODE (RENT)  *   FILE 172
//*      EXPAND    OBJECT DECK FOR ARCHIVER EXPANSION CODE (RENT)   *   FILE 172
//*      SSDC02    DATA UTILITY 1 - COMPRESS DATA                   *   FILE 172
//*      SSDC03    DATA UTILITY 2 - EXPAND DATA                     *   FILE 172
//*      DCPCOMP1  COMPRESSION PROGRAM WITH IMPROVED ALGORITHM      *   FILE 172
//*      DCPCOMP2  COMPRESSION PROGRAM FOR SMF DATA                 *   FILE 172
//*      DCPEXPD1  EXPAND PROGRAM FOR IMPROVED ALGORITHM            *   FILE 172
//*      DCPEXPD2  EXPAND PROGRAM FOR SMF DATA                      *   FILE 172
//*      SSDCE15   DATA UTILITY 2 - EXPAND DATA SORT EXIT E15       *   FILE 172
//*                                                                 *   FILE 172
//*              SMF/RMF DATA MANIPULATION UTILITIES                *   FILE 172
//*                                                                 *   FILE 172
//*      VARIOUS PROGRAMS TO MAKE IT EASIER TO HANDLE SMF           *   FILE 172
//*      RECORDS FOR PERFORMANCE REPORTING, PARTICULARLY USING      *   FILE 172
//*      SIMPLE REPORT WRITERS SUCH AS CA/EARL. SEE ALSO THE        *   FILE 172
//*      PROGRAMS ADAPTED FROM OTHER CBT OFFERINGS.                 *   FILE 172
//*                                                                 *   FILE 172
//*      CRAP      CARTWRIGHT'S RACF ACCOUNTING PROGRAM             *   FILE 172
//*      CUSS23    USER2 EXIT FOR IFASMFDP TO DELETE SMF2 AND 3     *   FILE 172
//*      DAVE73    RMF CHANNEL RECORDS                              *   FILE 172
//*      DAVE73PR  REPORT ON CHANNEL UTILISATION                    *   FILE 172
//*      DAVE74    RMF DEVICE RECORDS                               *   FILE 172
//*      SEAFOOD   RE-FORMAT SMF DATE TO INCLUDE MONTH              *   FILE 172
//*      SENDOFF   USER EXIT FOR IFASMFDP TO ONLY SELECT WORKDAYS   *   FILE 172
//*      SERVED70  CREATE SUMMARY RECORDS FROM SMF70 DATA           *   FILE 172
//*      SERVED71  CREATE SUMMARY RECORDS FROM SMF71 DATA           *   FILE 172
//*      SERVED72  CREATE SUMMARY RECORDS FROM SMF72 DATA           *   FILE 172
//*      SE70REC   RMF 70 SUMMARY RECORD FORMAT FROM 'SERVED70'     *   FILE 172
//*      SE71REC   RMF 71 SUMMARY RECORD FORMAT FROM 'SERVED71'     *   FILE 172
//*      SE72REC   RMF 72 SUMMARY RECORD FORMAT FROM 'SERVED72'     *   FILE 172
//*      SE80REC   SMF 80 SUMMARY RECORD FORMAT FROM 'CRAP'         *   FILE 172
//*      STROBE    VISUAL DISPLAY OF MULTIPROGRAMMING (PL/1)        *   FILE 172
//*                                                                 *   FILE 172
//*               OTHER DATA MANIPULATION UTILITIES                 *   FILE 172
//*                                                                 *   FILE 172
//*      VARIOUS PROGRAMS TO DO ODD THINGS.                         *   FILE 172
//*                                                                 *   FILE 172
//*      DCFON     ISPF EDIT MACRO TO CONVERT FROM UOW SCRIPT TO    *   FILE 172
//*                DCF/GML                                          *   FILE 172
//*      DAYOWEEK  SET RETURN CODE BY DAY OF WEEK                   *   FILE 172
//*      DAYOMNTH  SET RETURN CODE BY DAY OF MONTH                  *   FILE 172
//*      DEVOFF    VARY DEVICE OFFLINE UNDER CONTROL OF OPC/A       *   FILE 172
//*      EMPTYPDS  RESET PDS DIRECTORY AND HIGH WATER MARK          *   FILE 172
//*      ICF3490   CATALOG CONVERSION PROGRAM FOR 3480 TO 3490      *   FILE 172
//*      LOGAN     IBM SYSLOG ANALYSIS PROGRAM FROM GG24-3142-01    *   FILE 172
//*      RLSEJCL   JCL FOR USING 'VTOC' IN BATCH TO RELEASE SPACE   *   FILE 172
//*      SETOFF    CALLS OPC/A EVENT WRITER INTERFACE               *   FILE 172
//*      SSWAIT    PROGRAM TO WAIT, MAY BE STOPPED BY 'P' COMMAND   *   FILE 172
//*      S36PRTU4  PRINT SYSTEM/36 OUTPUT UNDER MVS                 *   FILE 172
//*                                                                 *   FILE 172
//*                  MVS MESSAGE PROCESSING MODS                    *   FILE 172
//*                                                                 *   FILE 172
//*      ALTHOUGH I USE 'TSSO' FOR MOST CONSOLE AUTOMATION,         *   FILE 172
//*      THERE ARE OCCASIONS WHEN A STRAIGHT MPF EXIT IS THE        *   FILE 172
//*      BEST WAY TO DO IT.  HERE ARE SOME EXAMPLES.                *   FILE 172
//*                                                                 *   FILE 172
//*      IEAVMXIT  DEFAULT MPF EXIT - LABEL AND SUPPRESS WTO        *   FILE 172
//*      MPFTAPEM  MPF EXIT TO SMF RECORD TAPE MOUNT, FIND VOLUME   *   FILE 172
//*      MPFTAPEK  MAINTAIN TAPE TABLES IN CSA                      *   FILE 172
//*      MPFTAPET  COPY BLOCK TO INITIALISE UNIT VOLUME TABLES      *   FILE 172
//*      MPFTAPEQ  PROGRAM TO ENQUIRE ON TAPE MOUNT TABLES (FOR     *   FILE 172
//*                TSSO)                                            *   FILE 172
//*      GETUCVTR  RE-ENTRANT ROUTINE TO FIND OR BUILD THE USER     *   FILE 172
//*                CVT                                              *   FILE 172
//*      USERCVT   FORMAT OF USER CVT HUNG OUT OF 'CVTUSER' FIELD   *   FILE 172
//*      CSATABLE  FORMAT OF IN STORAGE TAPE VOLSER TABLE           *   FILE 172
//*      SMF234    FORMAT OF SMF RECORD FOR TAPE UNIT ACTIVITY      *   FILE 172
//*                                                                 *   FILE 172
//*                 MISCELLANEOUS MVS MODIFICATIONS                 *   FILE 172
//*                                                                 *   FILE 172
//*      HERE ARE SOME ASSORTED MODS FOR IBM PROGRAM PRODUCTS.      *   FILE 172
//*      SOME OF THEM ARE AVAILABLE FROM VARIOUS SAMPLIBS, BUT      *   FILE 172
//*      THEY ARE OFFERED HERE TO ACT AS TEMPLATES FOR YOUR OWN     *   FILE 172
//*      TAILORING. THE SORT MODS ARE DESIGNED TO STOP DF/SORT      *   FILE 172
//*      FIXING PAGES DURING PRIME SHIFT. THE SORT DEFAULTS ARE     *   FILE 172
//*      ALTERED TO CALL THE INPUT EXIT WHICH DETERMINES WHETHER    *   FILE 172
//*      TO USE EXCPVR.                                             *   FILE 172
//*                                                                 *   FILE 172
//*      DRKUX006  ASSEMBLY OF OPC/A INCIDENT RECORD CREATE EXIT    *   FILE 172
//*      SMIXRECE  INSTALL DF/SORT INPUT EXIT ICEIEXIT              *   FILE 172
//*      SMIXAPPE  APPLY DF/SORT INPUT EXIT USERMOD (DO NOT         *   FILE 172
//*                ACCEPT)                                          *   FILE 172
//*      SMOPRECE  RECEIVE USERMOD TO ALTER DF/SORT DEFAULTS        *   FILE 172
//*      SMOPAPPE  APPLY USERMOD TO ALTER DF/SORT DEFAULTS          *   FILE 172
//*      LASSOO    SET AN ADDRESS SPACE SWAPPABLE/NONSWAPPABLE      *   FILE 172
//*      DEMAND    DELETE MEMBERS OF PDS 'A' FROM PDS 'B'           *   FILE 172
//*                                                                 *   FILE 172
//*                    SIEMENS/STC LASER PRINTER GOODIES            *   FILE 172
//*                                                                 *   FILE 172
//*      VARIOUS FONTS ETC. FOR A 3800-3 TYPE PRINTER RUNNING       *   FILE 172
//*      IN 3800-1 COMPATABILITY MODE. FOR THE REAL IBM BOX YOU     *   FILE 172
//*      WILL HAVE TO CHANGE THE DEVICE SPECIFIED AND USE           *   FILE 172
//*      'IEBIMAGE' INSTEAD OF THE SIEMENS VERSION. A LOT OF        *   FILE 172
//*      THIS STUFF IS ABOUT SWISS NATIONAL LANGUAGE SUPPORT        *   FILE 172
//*      WHICH IS BASED ON CODE PAGE 500, SO MAY BE OF INTEREST     *   FILE 172
//*      TO INTERNATIONAL COMPANIES. IF YOU USE EXCLUSIVELY         *   FILE 172
//*      U.S.  ENGLISH (NOW THERE'S AN OXYMORON) YOU MAY SKIM       *   FILE 172
//*      THROUGH FOR EXAMPLES OF IEBIMAGE OR SOMETHING LIKE IT,     *   FILE 172
//*      AND OF COURSE THE FONTS ARE STILL VALID.                   *   FILE 172
//*                                                                 *   FILE 172
//*      CHARS19V  SWISS NLS VERSION OF FONT 019V, 15 PITCH         *   FILE 172
//*                GOTHIC.                                          *   FILE 172
//*      S9A1      GOTHIC ROTATED SWISS (GROSS) VERSION OF FONT     *   FILE 172
//*                017V                                             *   FILE 172
//*      LN12      12 LPI FCB FOR ROTATED LISTINGS                  *   FILE 172
//*      SE526     TRANSLATE IN-PLACE UPPER/LOWER CASE (SWISS)      *   FILE 172
//*                AND ASCII                                        *   FILE 172
//*      WCGMLST1  DOCUMENTATION ON STANDARD WCGM ASSIGNMENTS       *   FILE 172
//*      WCGMLST2  DOCUMENTATION ON OUR (NLS) WCGM ASSIGNMENTS      *   FILE 172
//*                                                                 *   FILE 172
//*                   MODIFIED PUBLIC DOMAIN PROGRAMS               *   FILE 172
//*                                                                 *   FILE 172
//*      HERE ARE SOME PROGRAMS WHICH HAVE BEEN SLIGHTLY MODIFIED   *   FILE 172
//*      FOR LOCAL CONDITIONS. MOST OF THEM CAME FROM THE CBT       *   FILE 172
//*      TAPE AT VARIOUS TIMES.  MY THANKS TO THE ORIGINAL          *   FILE 172
//*      AUTHORS.                                                   *   FILE 172
//*                                                                 *   FILE 172
//*      EDX       JIM LANE'S CLIST EX FILE047 WITH MULTIPLE        *   FILE 172
//*                LISTS                                            *   FILE 172
//*      FILE171   FIXES TO FILE171 FOR AN ACF2 SHOP - DITTO        *   FILE 172
//*      GETDATE   USAF PROGRAM TO DO DATE CONVERSION + HOLIDAY     *   FILE 172
//*                TABLE                                            *   FILE 172
//*      LISTPDS   UNNUMBERS MEMBERS WHEN UNLOADING                 *   FILE 172
//*      LISTICF   LINE PER ENTRY CATALOG LISTER                    *   FILE 172
//*      ROTATES   MY VERSION OF U.S.A.F. PAGE ROTATE PROGRAM.      *   FILE 172
//*      SE30EXT   A SPECIAL VERSION OF SUM30EXT INCLUDING RACF     *   FILE 172
//*                FIELDS                                           *   FILE 172
//*      SE30RPT   SEAG VERSION OF SMF30 SUMMARY - LARGER TIME      *   FILE 172
//*                FIELDS                                           *   FILE 172
//*      SE30REC   SEAG VERSION OF SMF30 SUMMARY RECORDS            *   FILE 172
//*      SMF1415   REPORT ON NON-VSAM FILE ACTIVITY                 *   FILE 172
//*      SPMGCLD   FRONT END FOR IDCAMS USES ESOTERIC NAMES         *   FILE 172
//*      STRING    MACRO FOR MPFTAPE. EXITS - BUILD UNIT TABLES     *   FILE 172
//*      STRNGEND  MACRO FOR MPFTAPE. EXITS - BUILD UNIT TABLES     *   FILE 172
//*      SYSEVENT  SYSEVENT ANALYSIS SYSTEM FROM STANDARD OIL       *   FILE 172
//*      SYSIEH    IEHPROGM WITHOUT ENQUEUES                        *   FILE 172
//*      TRUISMS   A FEW THOUGHTS FOR 'MURPHY'                      *   FILE 172
//*                                                                 *   FILE 172
//*      IN THIS CATEGORY I INCLUDE MY ENHANCEMENTS FOR VERSION     *   FILE 172
//*      5 OF 'THE ARCHIVER' FROM CBT FILE 147. THESE ARE           *   FILE 172
//*      DESIGNED TO PERFORM AN AUTOMATIC ALIAS AND DELETE          *   FILE 172
//*      FUNCTION AFTER RUNNING A COMPARE.                          *   FILE 172
//*                                                                 *   FILE 172
//*      ARCHCOMP  ARCHIVER COMPARE PROGRAM INCLUDING MY INSERTS    *   FILE 172
//*      ARCHPARS  ARCHIVER PARSING PROGRAM INCLUDING MY INSERTS    *   FILE 172
//*      CRAMP     GENERATE DELETE AND ALIAS CARDS                  *   FILE 172
//*      CRAMPON   INVOKE MY AUTOARCHIVE PROGRAM                    *   FILE 172
//*      CRAMPOFF  DELETE MY AUTOARCHIVE PROGRAM                    *   FILE 172
//*                                                                 *   FILE 172
//*                      MACROS AND COMMON CODE                     *   FILE 172
//*                                                                 *   FILE 172
//*      AS WELL AS TEXT AND PROGRAM SOURCE THERE ARE SOME          *   FILE 172
//*      MEMBERS WHICH ARE COPIED INTO THE PROGRAMS AND SOME        *   FILE 172
//*      MACROS. MOST OF THOSE ARE FROM THE PUBLIC DOMAIN I.E. I    *   FILE 172
//*      GAVE THEM AWAY BEFORE I QUIT.                              *   FILE 172
//*                                                                 *   FILE 172
//*      AROUND THE END OF 1991 I STARTED TO WRITE A LOT MORE       *   FILE 172
//*      RE-USABLE CODE BY SPLITTING SMALL FUNCTIONAL               *   FILE 172
//*      SUB-ROUTINES OUT INTO COPY BLOCKS. THESE ARE ALSO          *   FILE 172
//*      INCLUDED IN THIS FILE.                                     *   FILE 172
//*                                                                 *   FILE 172
//*                            *** END ***                          *   FILE 172
//*                                                                 *   FILE 172
//***FILE 173 IS FROM TED BESTANI OF UNION CITY, CALIFORNIA, AND    *   FILE 173
//*           CONTAINS A COLLECTION OF UTILITIES.  AMONG THESE      *   FILE 173
//*           IS HIS SMPETOOL UTILITY WHICH WAS A SUBJECT OF        *   FILE 173
//*           AN ARTICLE FOR "TECHNICAL SUPPORT" MAGAZINE.          *   FILE 173
//*                                                                 *   FILE 173
//*     WELCOME!  THIS IS A COLLECTION OF USEFUL TSO COMMANDS       *   FILE 173
//*     AND BATCH UTILITIES.  THEY ARE EASILY ASSEMBLABLE.          *   FILE 173
//*     THEY ARE ALL SELF-CONTAINED, WITH NO EXTERNAL               *   FILE 173
//*     REFERENCES OR MACRO LIBRARIES REQUIRED (OTHER THAN          *   FILE 173
//*     MACLIB AND AMODGEN).  THEY ARE ALL SERIALLY REUSABLE        *   FILE 173
//*     ONLY, AND DO NOT REQUIRE LPA RESIDENCE.  I RECOMMEND        *   FILE 173
//*     THAT YOU PUT THEM IN SYS2.CMDLIB OR EQUIVALENT.             *   FILE 173
//*                                                                 *   FILE 173
//*     ******************************************************      *   FILE 173
//*                                                                 *   FILE 173
//*      NAME     TYPE   DESCRIPTION                                *   FILE 173
//*    --------  ------  -----------------------------------------  *   FILE 173
//*                                                                 *   FILE 173
//*    ARITH      TSO    FULL-SCREEN ARITHMETIC & 3270 BUFFER ADDR  *   FILE 173
//*                      CONVERSION                                 *   FILE 173
//*    ASMLINK    BATCH  SAMPLE JCL TO ASSEMBLE & LINK ANYTHING     *   FILE 173
//*                      HERE                                       *   FILE 173
//*    DSATXA     TSO    DATASET ATTRIBUTE COMMAND, UPDATED FOR XA  *   FILE 173
//*    FINDFMID   BATCH  ISOLATE UP TO SEVEN FMID'S FROM A          *   FILE 173
//*                      CUM/CBPDO TAPE                             *   FILE 173
//*    FINDPTF    BATCH  SCAN CUM TAPE FOR A SPECIFIC SERVICE       *   FILE 173
//*    HELP*      TSO    HELP MEMBER FOR CORRESPONDING CMD, PUT IN  *   FILE 173
//*                      SYS1.HELP                                  *   FILE 173
//*    JCL*       BATCH  EXECUTION JCL FOR CORRESPONDING UTILITY    *   FILE 173
//*    LISTALOC   TSO    LIKE LISTALC, BUT MUCH BETTER              *   FILE 173
//*    LISTLEV    TSO    LIKE LISTC, BUT IN FULL-SCREEN             *   FILE 173
//*    LISTVTOC   TSO    LIKE 3.4, BUT DOESN'T REQUIRE ISPF         *   FILE 173
//*    MONJOB     TSO    MONITOR EXECUTING JOB WITH FULL-SCREEN     *   FILE 173
//*                      UPDATING                                   *   FILE 173
//*    POSTIT     TSO    SEND THE OPERATOR A MESSAGE AND MAKE IT    *   FILE 173
//*                      STICK                                      *   FILE 173
//*    PRTPDS     BATCH  UTILITY TO PRINT CARD IMAGE PDS'S IN A     *   FILE 173
//*                      NICE FORMAT                                *   FILE 173
//*    SHOWVOLS   TSO    FULL-SCREEN D U,DASD,ONLINE WITH SPACE,    *   FILE 173
//*                      ETC.                                       *   FILE 173
//*    SMPETOOL   BATCH  UTILITY TO HELP YOU UNRAVEL SMP/E APPLY    *   FILE 173
//*                      SNARLS                                     *   FILE 173
//*    STARTREK   TSO    FULL-SCREEN STREK, NOT CHALLENGING BUT     *   FILE 173
//*                      PRETTY                                     *   FILE 173
//*    TSOCMDR    TSO    LIKE NORTON INTEGRATOR, TRY IT YOU'LL      *   FILE 173
//*                      LIKE IT                                    *   FILE 173
//*    VOPER      TSO    A POOR MAN'S NETVIEW (NCCF), BUT USABLE    *   FILE 173
//*                      FROM TSO                                   *   FILE 173
//*                                                                 *   FILE 173
//***FILE 174 IS THE "TAPECOPY" PROGRAM FROM ARON EISENPRESS OF     *   FILE 174
//*           THE CITY UNIVERSITY COMPUTER CENTER IN NEW YORK.      *   FILE 174
//*           AMONG ITS MANY OPTIONS, IS THE ABILITY TO CREATE      *   FILE 174
//*           A STANDARD-LABELED TAPE FROM A NON-LABELED TAPE.      *   FILE 174
//*           (I USED THIS FEATURE AS PART OF MY PROCESSING OF      *   FILE 174
//*           THE CBT TAPE - EDITOR.)  MANY ADJUSTMENTS CAN BE      *   FILE 174
//*           MADE IN THE PROCESSING TO BE ABLE TO HANDLE           *   FILE 174
//*           MESSED-UP AND UNUSUAL TAPES.                          *   FILE 174
//*                                                                 *   FILE 174
//*           ARON EISENPRESS                                       *   FILE 174
//*           MANAGER, MVS SYSTEMS                                  *   FILE 174
//*           CITY UNIVERSITY OF NEW YORK                           *   FILE 174
//*           COMPUTING AND INFORMATION SERVICES                    *   FILE 174
//*           555 WEST 57TH STREET, 16TH FLOOR                      *   FILE 174
//*           NEW YORK, NEW YORK  10019-2919                        *   FILE 174
//*                                                                 *   FILE 174
//*           PHONE: 212/541-0918                                   *   FILE 174
//*                                                                 *   FILE 174
//*           email: afecu@cunyvm.cuny.edu                          *   FILE 174
//*                                                                 *   FILE 174
//*      THIS IS A GENERALIZED TAPE-TO-TAPE COPY PROGRAM.           *   FILE 174
//*      IT USES QSAM, FORCING LABEL=BLP, AND PERFORMS ITS          *   FILE 174
//*      OWN LABEL PROCESSING INTERNALLY.                           *   FILE 174
//*                                                                 *   FILE 174
//*      ATTRIBUTES:                                                *   FILE 174
//*         PROBLEM PROGRAM                                         *   FILE 174
//*         AUTHORIZED (AC=1) *                                     *   FILE 174
//*         NON-REENTRANT                                           *   FILE 174
//*         NONRESIDENT, IN LINKLIB                                 *   FILE 174
//*                                                                 *   FILE 174
//*         * PROGRAM AUTHORIZATION IS REQUIRED IN ORDER TO SET     *   FILE 174
//*            LABEL=BLP VIA OPEN TYPE=J.                           *   FILE 174
//*                                                                 *   FILE 174
//*      HAS BEEN FIXED BY THE AUTHOR TO READ TAPES ON A 3480       *   FILE 174
//*      OR 3480 IDRC DEVICE.  SEEMS GOOD FOR 3490E'S TOO.  I       *   FILE 174
//*      CHECKED THE UCB "HEX" UNIT TYPE FOR 3490E'S  (SBG).        *   FILE 174
//*                                                                 *   FILE 174
//*      SYSTEM LEVEL:  THIS PROGRAM IS BELIEVED TO WORK            *   FILE 174
//*         WITH ALL OPERATING SYSTEM LEVELS FROM OS/MVT            *   FILE 174
//*         THROUGH MVS/ESA.  THE PRIMARY OPERATING SYSTEM          *   FILE 174
//*         DEPENDENCY IS IN DETERMINING THE TAPE UNIT              *   FILE 174
//*         SERIAL NUMBER FOR 34XX TAPE DRIVES, AND THAT            *   FILE 174
//*         CODE IS DUAL-PATHED AS NEEDED.                          *   FILE 174
//*                                                                 *   FILE 174
//*      DISCLAIMER:                                                *   FILE 174
//*                                                                 *   FILE 174
//*       +-------------------------------------------------------+ *   FILE 174
//*       |                                                       | *   FILE 174
//*       | THIS PROGRAM HAS BEEN USED SUCCESSFULLY, AND TO THE   | *   FILE 174
//*       | BEST OF OUR KNOWLEDGE IT IS OPERATIONAL.  HOWEVER, NO | *   FILE 174
//*       | WARRANTY IS MADE TO THE ACCURACY OF THIS PROGRAM OR   | *   FILE 174
//*       | RELATED MATERIAL, AND NO RESPONSIBILITY IS ASSUMED    | *   FILE 174
//*       | FOR ANY MODIFICATION DIRECTLY OR INDIRECTLY CAUSED    | *   FILE 174
//*       | BY THE USE OF THIS PROGRAM.  WHILE WE WOULD LIKE TO   | *   FILE 174
//*       | KNOW OF ANY ERRORS IN THIS PROGRAM, THERE IS NO       | *   FILE 174
//*       | COMMITMENT TO FIX THEM.  THIS PROGRAM IS DISTRIBUTED  | *   FILE 174
//*       | WITHOUT ANY WARRANTIES EITHER EXPRESS OR IMPLIED.     | *   FILE 174
//*       |                                                       | *   FILE 174
//*       +-------------------------------------------------------+ *   FILE 174
//*                                                                 *   FILE 174
//***FILE 175 IS FROM CLARK MORRIS, FORMERLY OF PHILIPS LIGHTING    *   FILE 175
//*           IN SOMERSET, NEW JERSEY.  THIS IS A SIZABLE           *   FILE 175
//*           COLLECTION OF USEFUL PROGRAMS AND USERMODS WHICH      *   FILE 175
//*           ARE RUNNING THERE.  NOTABLE ARE SOME MPF EXITS.       *   FILE 175
//*           THIS FILE IS WORTH EXPLORING.                         *   FILE 175
//*                                                                 *   FILE 175
//*     CLARK HAS MOVED.  HIS CURRENT ADDRESS IS:                   *   FILE 175
//*                                                                 *   FILE 175
//*              CLARK MORRIS                                       *   FILE 175
//*              CFM TECHNICAL PROGRAMMING SERVICES                 *   FILE 175
//*              RR # 1, 1339 CLARENCE ROAD                         *   FILE 175
//*              BRIDGETOWN, NOVA SCOTIA                            *   FILE 175
//*              CANADA  B0S 1C0                                    *   FILE 175
//*              email:    morrisc@nbnet.nb.ca   506-657-9331       *   FILE 175
//*                        cmorris@fox.nstn.ca   902-665-4006       *   FILE 175
//*                                                                 *   FILE 175
//***FILE 176 IS FROM SAM GOLOB AND IS THE OLD IBM ALGOL COMPILER   *   FILE 176
//*           AND LIBRARY.  PROCEDURES TO RUN THE ALGOL COMPILER    *   FILE 176
//*           ARE ON FILE 091, TOGETHER WITH FORTRAN, PL/I, AND     *   FILE 176
//*           RPG.  THESE CAME FROM OS/MVT RELEASE 21.8.  SEE       *   FILE 176
//*           IF YOU CAN GET THIS STUFF TO RUN ON MVS/ESA.  I WILL  *   FILE 176
//*           BE GLAD TO ADD ANY ADDITIONAL MATERIAL THAT AN        *   FILE 176
//*           ENTERPRISING PERSON CAN SUPPLY ME WITH, TO MAKE THIS  *   FILE 176
//*           A BETTER, AND WORKABLE PRODUCT.                       *   FILE 176
//*                                                                 *   FILE 176
//*           THESE LOAD MODULES HAVE NOW BEEN RE-LINKEDITED        *   FILE 176
//*           WITH THE DFSMS BINDER, HOPEFULLY TO MAKE SURE         *   FILE 176
//*           THAT THEY ARE PALATABLE TO MVS/ESA'S FETCH.           *   FILE 176
//*                                                                 *   FILE 176
//*    NEW ADDRESS:                                                 *   FILE 176
//*                                                                 *   FILE 176
//*            SAM GOLOB                NEW ADDRESS                 *   FILE 176
//*            P.O. BOX 906                                         *   FILE 176
//*            TALLMAN, NY  10982   EMAIL:  sbgolob@aol.com         *   FILE 176
//*                                         sbgolob@attglobal.net   *   FILE 176
//*        NEW PHONE NUMBER:   845-362-1996                         *   FILE 176
//*                                                                 *   FILE 176
//*       (IF MY CONTACT INFORMATION BECOMES OBSOLETE, PLEASE       *   FILE 176
//*        CALL THE MEMBERSHIP OFFICER AT NASPA 414-768-8000        *   FILE 176
//*        WHERE I INTEND TO LEAVE MY NEW INFORMATION.)             *   FILE 176
//*                                                                 *   FILE 176
//***FILE 177 IS FROM A WESTERN SOFTWARE HOUSE AND CONSISTS OF      *   FILE 177
//*           SOME ASSEMBLER MACROS WHICH ALLOW THE OLD XF IFOX00   *   FILE 177
//*           ASSEMBLER TO ASSEMBLE XA CODE.  THESE ARE SOME NICE   *   FILE 177
//*           EXAMPLES OF WHAT YOU CAN DO WITH YOUR EXISTING        *   FILE 177
//*           ASSEMBLER IF YOU HAVE TO "ADD OPCODES" IN A PINCH.    *   FILE 177
//*                                                                 *   FILE 177
//***FILE 178 IS AN IDMS IPCS INTERFACE FROM NEAL KOSTANSKI OF      *   FILE 178
//*           ROSS LABORATORIES IN COLUMBUS, OHIO.  IF YOUR SHOP    *   FILE 178
//*           HAS IDMS, THIS CAN BE VERY USEFUL.                    *   FILE 178
//*                                                                 *   FILE 178
//*     THE CLISTS PROVIDED IN THIS PDS WILL PROCESS AN IPCS        *   FILE 178
//*     DUMP TAKEN FROM AN IDMS 10.2 SYSTEM.  THEY WILL PROVIDE     *   FILE 178
//*     A FORMATTED, AND IN SOME CASES, AN ENGLISH TRANSALATION     *   FILE 178
//*     OF THE CONTROL BLOCKS.  BELOW ARE SOME OF THE COMMANDS      *   FILE 178
//*     AND CONTROL BLOCKS WHICH CAN BE LOCATED, FORMATTED, AND     *   FILE 178
//*     DISPLAYED.                                                  *   FILE 178
//*                                                                 *   FILE 178
//*     THE IDMS CONTROL BLOCKS ARE DIVIDED INTO TWO                *   FILE 178
//*     CATEGORIES:  IDMS-DC AND IDMS DATABASE CONTROL              *   FILE 178
//*     BLOCKS AND ARE LISTED BELOW:                                *   FILE 178
//*                                                                 *   FILE 178
//*  DC - DATA COMMUNICATION PORTION OF DUMP - DEFAULT IF NO        *   FILE 178
//*              PARAMETER IS GIVEN ON THE EXEC STATEMENT           *   FILE 178
//*   CCE      - CENTRAL CONTROL BLOCK ELEMENT                      *   FILE 178
//*   CSA      - COMMON SYSTEM AREA                                 *   FILE 178
//*   DCE      - DISPATCH CONTROL ELEMENT                           *   FILE 178
//*   DCETCE   - DISPATCH CONTROL ELEMENT WITH ASSOCIATED TCE,      *   FILE 178
//*              RLE, AND RCE CHAINS DECODED.                       *   FILE 178
//*   ESE      - EXTERNAL SERVICE ELEMENT                           *   FILE 178
//*   ERE      - EXTERNAL REQUEST ELEMENT                           *   FILE 178
//*   ICE      - INTERVAL CONTROL ELEMENT                           *   FILE 178
//*   MAP      - REGION MAP ENTRIES                                 *   FILE 178
//*   LTT      - LOGICAL TERMINAL TABLE - FORMAT ALL LTE'S.         *   FILE 178
//*              PTE'S, RCE/RLE CHAIN WITH SOME TO BE ADDED LATER.  *   FILE 178
//*   NLT      - NUCLEUS LOAD TABLE                                 *   FILE 178
//*   RLEC     - RUN THE RLE-RCE CHAIN OFF OF THE CSA               *   FILE 178
//*   SCA      - SUBTASK CONTROL AREA AND ASSOCIATED TCE            *   FILE 178
//*   TCE      - CSECTACE TCE POINTED TO BY R9 IN THE CSECTACE      *   FILE 178
//*              WITH LTE, PTE, SON, RLE, & RCE                     *   FILE 178
//*   TRACE    - IDMS SYSTEM TRACE TABLE ENTRIES                    *   FILE 178
//*   VECTORS  - VECTOR TABLE OF ENTRY POINTS FOR IDMS MODULES      *   FILE 178
//*                                                                 *   FILE 178
//*  DB -  DATABASE CONTROL BLOCKS                                  *   FILE 178
//*   BC53     - BUFFER CONTROL ELEMENT                             *   FILE 178
//*   CLT      - CENTRAL LOCKING TABKE INCLUDING:                   *   FILE 178
//*              CLTE - CENTRAL LOCKING TABLE ELEMENTS              *   FILE 178
//*              SLT  - SYNONYM LOCKING TABLE HEADER                *   FILE 178
//*              SLTF - SYNONYM LOCKING TABLE FRAGMENTS             *   FILE 178
//*              LIDH - LOCK-UNIT TABLE HEADER                      *   FILE 178
//*              LIDF - LOCK-UNIT TABLE FRAGMENTS                   *   FILE 178
//*              LIDE - LOCK-UNIT TABLE ELEMENTS                    *   FILE 178
//*              RLTH - RUN-UNIT LOCK TABLE HEADER                  *   FILE 178
//*              RLTE - RUN-UNIT LOCK TABLE ELEMETS                 *   FILE 178
//*              RLTF - RUN-UNIT LOCK TABLE FRAGMENTS               *   FILE 178
//*   DM58     - DMCL TABLES HEADER                                 *   FILE 178
//*   FC59     - DMCL FILE CONTROL ELEMENTS                         *   FILE 178
//*   FM61     - DMCL FILE-AREA MEMBERSHIP                          *   FILE 178
//*   JD62     - JOURNAL CONTROL BLOCK                              *   FILE 178
//*   PR60     - DMCL AREA MAPPING ELEMENTS                         *   FILE 178
//*   VB50     - VARIABLE IB50 SUBSCHEMA CONTROL BLOCKS             *   FILE 178
//*                                                                 *   FILE 178
//***FILE 179 IS LEONARD WOREN'S MACRO LIBRARY WHICH IS NECESSARY   *   FILE 179
//*           FOR THE ASSEMBLY OF HIS QUEUE PROGRAM ON FILE 392     *   FILE 179
//*           AND FOR HIS OTHER PROGRAMS AND TSO COMMANDS.          *   FILE 179
//*                                                                 *   FILE 179
//*           Leonard Woren maintains many of his programs in       *   FILE 179
//*           downloadable form at his web site.  It is highly      *   FILE 179
//*           recommended that you go to Leonard's web site to      *   FILE 179
//*           obtain the latest versions of his programs.  These    *   FILE 179
//*           3 files, this one together with Files 180 and 181,    *   FILE 179
//*           have not been updated since 1992, and Leonard         *   FILE 179
//*           prefers that people go directly to his site.          *   FILE 179
//*                                                                 *   FILE 179
//*           Nevertheless, there is source code here, and you      *   FILE 179
//*           may find this material valuable.                      *   FILE 179
//*                                                                 *   FILE 179
//*           email address:    Leonard Woren <ldw@best.com>        *   FILE 179
//*                                                                 *   FILE 179
//*           web site:         http://www.best.com/~ldw/mvs/       *   FILE 179
//*                                                                 *   FILE 179
//***FILE 180 IS LEONARD WOREN'S TSO COMMANDS LIBRARY.  THIS FILE   *   FILE 180
//*           IS NECESSARY FOR SETTING UP THE QUEUE PROGRAM FOR     *   FILE 180
//*           JES2 4.2, WHICH IS ON FILE 392 OF THIS TAPE.          *   FILE 180
//*           THERE ARE ALSO MANY OTHER USEFUL TSO COMMANDS IN      *   FILE 180
//*           HERE.  THIS FILE IS VERY MUCH WORTH EXPLORING.        *   FILE 180
//*                                                                 *   FILE 180
//*           Leonard Woren maintains many of his programs in       *   FILE 180
//*           downloadable form at his web site.  It is highly      *   FILE 180
//*           recommended that you go to Leonard's web site to      *   FILE 180
//*           obtain the latest versions of his programs.  These    *   FILE 180
//*           3 files, this one together with Files 180 and 181,    *   FILE 180
//*           have not been updated since 1992, and Leonard         *   FILE 180
//*           prefers that people go directly to his site.          *   FILE 180
//*                                                                 *   FILE 180
//*           Nevertheless, there is source code here, and you      *   FILE 180
//*           may find this material valuable.                      *   FILE 180
//*                                                                 *   FILE 180
//*           email address:    Leonard Woren <ldw@best.com>        *   FILE 180
//*                                                                 *   FILE 180
//*           web site:         http://www.best.com/~ldw/mvs/       *   FILE 180
//*                                                                 *   FILE 180
//***FILE 181 IS A COLLECTION OF SOME MVS BATCH PROGRAMS FROM       *   FILE 181
//*           LEONARD WOREN.  THE PROGRAMS CURRENTLY IN THIS        *   FILE 181
//*           FILE ARE:                                             *   FILE 181
//*                                                                 *   FILE 181
//*              CATLIST                                            *   FILE 181
//*              TAPEMAP  -  FORMATS DFDSS DUMP FILES AMONG         *   FILE 181
//*                          OTHER THINGS.                          *   FILE 181
//*                                                                 *   FILE 181
//*           Leonard Woren maintains many of his programs in       *   FILE 181
//*           downloadable form at his web site.  It is highly      *   FILE 181
//*           recommended that you go to Leonard's web site to      *   FILE 181
//*           obtain the latest versions of his programs.  These    *   FILE 181
//*           3 files, this one together with Files 179 and 180,    *   FILE 181
//*           have not been updated since 1992, and Leonard         *   FILE 181
//*           prefers that people go directly to his site.          *   FILE 181
//*                                                                 *   FILE 181
//*           Nevertheless, there is source code here, and you      *   FILE 181
//*           may find this material valuable.                      *   FILE 181
//*                                                                 *   FILE 181
//*           email address:    Leonard Woren <ldw@best.com>        *   FILE 181
//*                                                                 *   FILE 181
//*           web site:         http://www.best.com/~ldw/mvs/       *   FILE 181
//*                                                                 *   FILE 181
//***FILE 182 IS THE TSO "PDS" COMMAND PROCESSOR AND ISPF DIALOG    *   FILE 182
//*           PROGRAM PACKAGE.  THERE ARE POSSIBLY 1000 SEPARATE    *   FILE 182
//*           DATASET MANIPULATION FUNCTIONS BUILT INTO THIS        *   FILE 182
//*           PACKAGE, AND IT IS SOMETHING THAT NO SYSTEMS          *   FILE 182
//*           PROGRAMMER CAN AFFORD TO BE WITHOUT  .......          *   FILE 182
//*                                                                 *   FILE 182
//*           THIS IS THE HIGHEST CURRENT VERSION OF THE FREE PDS   *   FILE 182
//*           COMMAND, WHICH IS VERSION 8.5, FROM JOHN KALINICH.    *   FILE 182
//*           PDS 8.5 INCORPORATES SOME YEAR 2000 CORRECTIONS, AND  *   FILE 182
//*           HAS BEEN FIXED FOR 4-DIGIT UCB'S AND 3390-9 DASD.     *   FILE 182
//*                                                                 *   FILE 182
//*           THIS IS REVISION 7 OF PDS 8.5                         *   FILE 182
//*                                                                 *   FILE 182
//*           THE ISPF LEVEL FOR THIS PACKAGE, HAS TO BE ISPF       *   FILE 182
//*           VERSION 2 OR HIGHER.  THIS IS SO THE TABLE SORTS      *   FILE 182
//*           WILL WORK AND THE PANELS CAN BE UNDERSTOOD.  IF YOU   *   FILE 182
//*           ARE STILL STUCK WITH ISPF V1R1M0, YOU NEED PDS 7.3    *   FILE 182
//*           WHICH IS ON THE CBT OVERFLOW TAPE.  (I'D IMAGINE      *   FILE 182
//*           ALMOST NO ONE HAS THIS LEVEL OF ISPF ANY MORE.        *   FILE 182
//*           ISPF V2.3 RUNS EVEN ON MVS/370 1.3.5.)                *   FILE 182
//*                                                                 *   FILE 182
//*           IT WOULD BE "GROSS NEGLECT" TO HAVE A COPY OF THIS    *   FILE 182
//*           TAPE AND NOT INVESTIGATE THIS PRODUCT.                *   FILE 182
//*                                                                 *   FILE 182
//*           THIS FILE IS BEST COMBINED WITH UTILITIES ON          *   FILE 182
//*           FILES 296, 112, AND 134 OF THIS TAPE.  FOR OPTIMAL    *   FILE 182
//*           VALUE, PROGRAMS:  DSAT, DVOL, VTOC, REVIEW, HEL,      *   FILE 182
//*           BLKDISK WITH ALL ITS ALIASES, COMPARE, AND COMPAREB   *   FILE 182
//*           SHOULD BE AVAILABLE TO YOUR TSO SESSION, IN ISPLLIB   *   FILE 182
//*           OR IN SOME OTHER WAY.                                 *   FILE 182
//*                                                                 *   FILE 182
//*           THE PDS COMMAND ALLOWS THE TSO USER TO ACCESS AND     *   FILE 182
//*           MANIPULATE THE DIRECTORY AND SELECTED MEMBERS OF A    *   FILE 182
//*           PARTITIONED DATA SET.  THE PDS COMMAND CONTAINS       *   FILE 182
//*           HUNDREDS OF SEPARATE FUNCTIONS, AND CAN BE OPERATED   *   FILE 182
//*           EITHER IN TSO LINE MODE (WITH PUTLINE INTERFACING)    *   FILE 182
//*           OR IN ISPF FULLSCREEN MODE.  ISPF MODE HAS ALL OF     *   FILE 182
//*           THE LINE MODE FUNCTIONS, AND ALSO, MANY ADDITIONAL    *   FILE 182
//*           CAPABILITIES.  PDS, IN LINE MODE, CAN BE RUN FROM     *   FILE 182
//*           A SYSTEM CONSOLE UNDER TSSO (FROM FILE 404).  TSSO    *   FILE 182
//*           IS A SUBSYSTEM, WHICH CAN BE BROUGHT UP UNDER         *   FILE 182
//*           SUB=MSTR WITHOUT JES.  IN THAT CASE, THE LINE MODE    *   FILE 182
//*           FUNCTIONS OF PDS STILL WORK.  THEREFORE, YOU CAN      *   FILE 182
//*           EXPAND THE DIRECTORY OF A PDS, COPY MEMBERS FROM      *   FILE 182
//*           ONE PDS TO ANOTHER, ETC ETC, WITHOUT JES2 OR JES3     *   FILE 182
//*           AND WITHOUT TSO BEING UP.  THIS MAKES FOR A GREAT     *   FILE 182
//*           RECOVERY TOOL.  PLEASE EXPLORE THIS WHILE YOUR        *   FILE 182
//*           SYSTEM IS HEALTHY, AND HAVE THE MECHANISMS IN PLACE,  *   FILE 182
//*           JUST IN CASE.                                         *   FILE 182
//*                                                                 *   FILE 182
//*           WITH ITS DIRECTORY OPTIONS. THE PDS COMMAND CAN       *   FILE 182
//*           PRODUCE STATISTICS ON DIRECTORY AND DATA SET USAGE,   *   FILE 182
//*           DISPLAY PORTIONS OF THE DIRECTORY, AND SCRATCH,       *   FILE 182
//*           RENAME OR CREATE ALIASES FOR SELECTED MEMBERS.  FOR   *   FILE 182
//*           ALL OF A PDS'S MEMBERS THAT HAVE PREVIOUSLY BEEN      *   FILE 182
//*           DELETED AND BEFORE THE LIBRARY HAS BEEN COMPRESSED    *   FILE 182
//*           PDS WILL ALLOW YOU TO GO IN AND RESTORE THOSE         *   FILE 182
//*           MEMBERS.  FOR LOAD DATA SETS, OPTIONS ARE AVAILABLE   *   FILE 182
//*           TO LIST LOAD MODULE HISTORY DATA, DISPLAY AND         *   FILE 182
//*           MODIFY LOAD MODULE LINKAGE ATTRIBUTES, AND PRODUCE    *   FILE 182
//*           LOAD MODULE CSECT MAPS IN TWO DIFFERENT LENGTHS.      *   FILE 182
//*           FOR OTHER PARTITIONED DATA SETS, OPTIONS ARE          *   FILE 182
//*           AVAILABLE TO SUBMIT A MEMBER (JCL) FOR BACKGROUND     *   FILE 182
//*           PROCESSING, LIST A MEMBER, EDIT A MEMBER OR LIST      *   FILE 182
//*           LINES FROM A MEMBER CONTAINING A SPECIFIED SEARCH     *   FILE 182
//*           STRING.  THIS FILE IS IN IEBUPDTE FORMAT AND          *   FILE 182
//*           CONTAINS THE SOURCE AND HELP MEMBER FOR THIS COMMAND. *   FILE 182
//*           THE RESTORE OPTION WILL ALSO ALLOW THE RECOVERY OF    *   FILE 182
//*           LOAD MODULE MEMBERS.                                  *   FILE 182
//*                                                                 *   FILE 182
//*           THE PDS PRODUCT AT VERSION 8.5 PROVIDES AN ISPF       *   FILE 182
//*           INTERFACE AND UTILITY VALUE OF AWESOME PROPORTION.    *   FILE 182
//*           YOU ARE ADVISED NOT TO PASS OVER THIS FILE WITHOUT    *   FILE 182
//*           LOOKING AT IT ..........                              *   FILE 182
//*                                                                 *   FILE 182
//*           THE FREE VERSION OF THIS PACKAGE HAD BEEN SUCCEEDED   *   FILE 182
//*           BY A VENDOR PRODUCT CALLED STARTOOL.  STARTOOL IS     *   FILE 182
//*           SUPPORTED BY BRUCE LELAND AND STEVE SMITH.            *   FILE 182
//*           STARTOOL IS DISTRIBUTED BY SERENA INTERNATIONAL OF    *   FILE 182
//*           BURLINGAME, CALIFORNIA.                               *   FILE 182
//*                                                                 *   FILE 182
//*           JOHN KALINICH IS NOW ENHANCING THIS PACKAGE.          *   FILE 182
//*                                                                 *   FILE 182
//* >>   FREE PDS IS NOW SUPPORTED BY JOHN KALINICH OF THE U.S.     *   FILE 182
//* >>   ARMY LOGISTICS SUPPORT CENTER IN ST. LOUIS, MISSOURI.      *   FILE 182
//*                                                                 *   FILE 182
//* >>   EMAIL ADDRESS:  jkalinic@csc.com                           *   FILE 182
//* >>   PHONE NUMBER :  314-331-4521                               *   FILE 182
//*                                                                 *   FILE 182
//* >>>>      PLEASE NOTIFY JOHN IF YOU HAVE ANY FIXES OR           *   FILE 182
//* >>>>      ENHANCEMENTS TO PDS, SO THAT HE MAY INCORPORATE       *   FILE 182
//* >>>>      AND/OR TEST THEM.                                     *   FILE 182
//*                                                                 *   FILE 182
//*           THE VENDOR PRODUCT EXTENSION OF PDS, CALLED           *   FILE 182
//*           STARTOOL, IS SUPPORTED BY BRUCE LELAND AND STEVE      *   FILE 182
//*           SMITH, AND IS DISTRIBUTED BY SERENA INTERNATIONAL     *   FILE 182
//*           IN BURLINGAME, CALIFORNIA.                            *   FILE 182
//*                                                                 *   FILE 182
//*           STARTOOL HAS MORE THAN DOUBLE THE AWESOME CAPABILITY  *   FILE 182
//*           OF FREE PDS, INCLUDING DISASSEMBLER, DELINKER,        *   FILE 182
//*           AUTOMATIC SMP/E MCS STATEMENT GENERATION, EXTENSIVE   *   FILE 182
//*           VSAM SUPPORT, VSAM EDITOR, ETC, ETC. PDSE DATASET     *   FILE 182
//*           SUPPORT, ALL AT THE TRADITIONAL PDS SUPER EXECUTION   *   FILE 182
//*           SPEED, AND WITH UNBELIEVABLE ISPF SUPPORT.            *   FILE 182
//*                                                                 *   FILE 182
//*           UPDATED ADDRESSES OF BRUCE LELAND AND STEVE SMITH.    *   FILE 182
//*           THEY BOTH WORK AT:                                    *   FILE 182
//*                                                                 *   FILE 182
//*               SERENA INTERNATIONAL                              *   FILE 182
//*               500 AIRPORT BLVD, 2ND FLOOR                       *   FILE 182
//*               BURLINGAME, CA 94010                              *   FILE 182
//*               (415) 696-1800                                    *   FILE 182
//*               (415) 696-1776   FAX                              *   FILE 182
//*                                                                 *   FILE 182
//*     email address:   bleland@serena.com    istartool@aol.com    *   FILE 182
//*                      ssmith@serena.com                          *   FILE 182
//*                                                                 *   FILE 182
//*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  *   FILE 182
//*                                                                 *   FILE 182
//*                      PDS VERSION 8.5 MODS                       *   FILE 182
//*                      --------------------                       *   FILE 182
//*                                                                 *   FILE 182
//*   NEW SUBCOMMANDS                                               *   FILE 182
//*   ---------------                                               *   FILE 182
//*        NONE                                                     *   FILE 182
//*                                                                 *   FILE 182
//*                                                                 *   FILE 182
//*   CHANGES AND IMPROVEMENTS                                      *   FILE 182
//*   ------------------------                                      *   FILE 182
//*     1.  YEAR 2000 SUPPORT IN MEMLIST, IF, ATTRIB, HISTORY,      *   FILE 182
//*         LISTC, AND TIME SUBCOMMANDS.                            *   FILE 182
//*                                                                 *   FILE 182
//*     2.  ADDED MEMBER PDSJCLHL TO ASSEMBLE PDS WITH THE HIGH     *   FILE 182
//*         LEVEL ASSEMBLER.                                        *   FILE 182
//*                                                                 *   FILE 182
//*     3.  INCORPORATED GREG PRICE'S MODS (FILE 134) TO #PDSTBL    *   FILE 182
//*         AND @PRINTO SO REVIEW : AND PRINTOFF : PROCESS THE      *   FILE 182
//*         WHOLE DATA SET ONCE, RATHER THAN EACH MEMBER            *   FILE 182
//*         INDIVIDUALLY.                                           *   FILE 182
//*                                                                 *   FILE 182
//*     4.  ADDED PANEL P85@CUA AS AN ALTERNATIVE TO THE P85PN@P    *   FILE 182
//*         PRIMARY PDS PANEL.  ADDED CUA CODE UTILIZING ISPF       *   FILE 182
//*         VERSION 4.X REFERENCE LISTS ON THE ACTION BAR.          *   FILE 182
//*         ADDED PANEL P85LOGO FOR AN ABOUT... POP-UP ON THE       *   FILE 182
//*         HELP PULL-DOWN.                                         *   FILE 182
//*                                                                 *   FILE 182
//*     5.  DYNAMIC UCB AND 4-DIGIT DEVICE NUMBER SUPPORT.          *   FILE 182
//*                                                                 *   FILE 182
//*     6.  FAT DASD (3390 MOD 9) SUPPORT.                          *   FILE 182
//*                                                                 *   FILE 182
//*     7.  USE COUNT CAN NOW BE SORTED ON IN LISTV DIALOG.  NEW    *   FILE 182
//*         STATUS INDICATORS IN LISTV ARE:                         *   FILE 182
//*                                                                 *   FILE 182
//*         ..C..... - ACTIVE CATALOG ON VOLUME                     *   FILE 182
//*         ....D... - INDEXED VTOC DISABLED                        *   FILE 182
//*         .......M - SMS MANAGED VOLUME                           *   FILE 182
//*                                                                 *   FILE 182
//*     8.  ADDED LOCATE COMMAND TO CAX AND LISTC/LISTFILE          *   FILE 182
//*         DIALOGS.                                                *   FILE 182
//*                                                                 *   FILE 182
//*     9.  LISTV: ADDED SPACE USED AND PRI/ALT CYLS INFORMATION    *   FILE 182
//*         IN NEW PANEL.  SPACE USED CAN BE SORTED ON IN LISTV.    *   FILE 182
//*                                                                 *   FILE 182
//*    10.  CAX: ADDED 31-BIT UCB ADDRESS SUPPORT.                  *   FILE 182
//*                                                                 *   FILE 182
//*    11.  ADDED "GENERIC" TO DSAT COMMAND IN LISTC PANEL          *   FILE 182
//*         P85LCDST.  THE NAME SPECIFIED IS TO BE USED AS A        *   FILE 182
//*         GENERIC KEY TO LOCATE DATA SET NAMES.  ALL DATA SETS    *   FILE 182
//*         WHICH MATCH THE KEY WILL BE DISPLAYED.  THE NAME        *   FILE 182
//*         NEED NOT SPECIFY AN INDEX LEVEL.                        *   FILE 182
//*                                                                 *   FILE 182
//*    12.  ADDED POINT-AND-SHOOT TO THE SORT COLUMNS IN THE        *   FILE 182
//*         MEMLIST, LISTC, LISTV, AND CAX PANELS.  IF YOU HAVE     *   FILE 182
//*         AN EMULATOR LIKE VISTA THAT HAS MOUSE SUPPORT, THEN     *   FILE 182
//*         YOU CAN CLICK ON THE POINT-AND-SHOOT COLUMN HEADER      *   FILE 182
//*         TO SORT ON IT.  CHANGE THE POINT-AND-SHOOT COLOR TO     *   FILE 182
//*         SOMETHING OTHER THAN TURQUOISE, WHICH IS THE            *   FILE 182
//*         STANDARD PANEL COLUMN HEADER COLOR THAT PDS USES.       *   FILE 182
//*         ISPF COMMAND "PSCOLOR" CAN BE USED TO MAKE THE          *   FILE 182
//*         RECOMMENDED CHANGE.                                     *   FILE 182
//*                                                                 *   FILE 182
//*         PRE-VERSION 4 ISPF USERS NEED TO DISABLE                *   FILE 182
//*         POINT-AND-SHOOT PANELS BY SETTING THE &PNTS VARIABLE    *   FILE 182
//*         TO NULLS IN #PDSGENB/U.                                 *   FILE 182
//*                                                                 *   FILE 182
//*         VISTA TN3270 CAN BE DOWNLOADED FROM:                    *   FILE 182
//*         http://home.earthlink.net/~tombrennan                   *   FILE 182
//*         <--- USE ALL LOWER CASE                                 *   FILE 182
//*                                                                 *   FILE 182
//*    13.  / AND ? ARE SYNONYMS FOR THE O(PTIONS) LINE COMMAND     *   FILE 182
//*         IN ALL DIALOG TABLE DISPLAYS.                           *   FILE 182
//*                                                                 *   FILE 182
//*    14.  NEW GLOBAL VARIABLE &MDRDT TO SELECT THE STYLE OF       *   FILE 182
//*         DASD MODEL DISPLAYED IN LISTV DIALOG.                   *   FILE 182
//*                                                                 *   FILE 182
//*    15.  ADDED MESSAGE PDS105I (LAST PDS85 MAINTENANCE DATE)     *   FILE 182
//*         TO CONTROL SUBCOMMAND.                                  *   FILE 182
//*                                                                 *   FILE 182
//*    16.  LISTV: ADDED F0 DSCB COUNT, FREE VIR COUNT, AND         *   FILE 182
//*         FRAGMENTATION INDEX TO THE LISTV DUAL PANEL             *   FILE 182
//*         (P85PNR/PS).                                            *   FILE 182
//*                                                                 *   FILE 182
//*    17.  ADDED "LEARNING PDS" TUTORIAL BY SAM GOLOB TO THE       *   FILE 182
//*         HELP PULL-DOWN OF PANEL P85@CUA.                        *   FILE 182
//*                                                                 *   FILE 182
//*    18.  LISTC: HANDLE THE NEW LONG DATE FORMAT (MM/DD/YYYY)     *   FILE 182
//*         OF THE DSAT (FILE 296) COMMAND PROCESSOR.               *   FILE 182
//*                                                                 *   FILE 182
//*    19.  NEW GLOBAL VARIABLE &COPYALI TO SET ALIAS OR NOALIAS    *   FILE 182
//*         AS THE DEFAULT FOR THE COPY SUBCOMMAND.                 *   FILE 182
//*                                                                 *   FILE 182
//*    20.  HISTORY: ADDED SUPPORT FOR COBOL MVS AND COBOL          *   FILE 182
//*         OS/390 COMPILE-TIME OPTIONS.                            *   FILE 182
//*                                                                 *   FILE 182
//*    21.  MESSAGES CHANGED: PDS064I - CHANGED TO DISPLAY          *   FILE 182
//*         LINKEDIT TIMESTAMP (APAR OW29593) IF PRESENT.           *   FILE 182
//*         PDS260I - CHANGED TO DISPLAY COBOL MVS AND COBOL        *   FILE 182
//*         OS/390 TIMESTAMP.                                       *   FILE 182
//*                                                                 *   FILE 182
//*   PROBLEMS FIXED                                                *   FILE 182
//*   --------------                                                *   FILE 182
//*     1.  @DIALSTC WAS DROPPING "LISTFILE VTOC" TABLE ENTRIES     *   FILE 182
//*         FOR DATASETS WITH SINGLE DIGIT ALLOCATION VALUES IF     *   FILE 182
//*         RUNNING WITH THE 7-DIGIT VTOC ALLOC MOD (VT0CPRNT).     *   FILE 182
//*                                                                 *   FILE 182
//*     2.  MEMBER LINE COUNTS ABOVE 32,767 HAVE BEEN CORRECTED     *   FILE 182
//*         IN ATTRIB, HISTORY, IF, LIST, AND VERIFY.  THE          *   FILE 182
//*         MAXIMUM MEMBER LINE COUNT IS NOW 65,535.                *   FILE 182
//*                                                                 *   FILE 182
//*     3.  USE COUNTS ABOVE 255 HAVE BEEN CORRECTED IN THE         *   FILE 182
//*         LISTV DIALOG.  IT WILL NOW DISPLAY VALUES UP TO         *   FILE 182
//*         65,535.  COUNTS ABOVE 999 WILL BE DISPLAYED IN K        *   FILE 182
//*         UNITS.                                                  *   FILE 182
//*                                                                 *   FILE 182
//*     4.  SUBCOMMAND MONITORING (&NLO1-9 GLOBALS) NOW INCLUDES    *   FILE 182
//*         THE CORRECT MESSAGE IN THE ISPF LOG.                    *   FILE 182
//*                                                                 *   FILE 182
//*     5.  "DSNAME TSO" WAS RETURNING THE WRONG TYPE FOR TRACK     *   FILE 182
//*         ALLOCATED DATASETS.                                     *   FILE 182
//*                                                                 *   FILE 182
//*     6.  MEMLIST SORT COULD BE OUT OF SEQUENCE BECAUSE OF A      *   FILE 182
//*         X'00' FILL CHARACTER IN THE EDIT PATTERN FOR THE        *   FILE 182
//*         SIZE FIELD.                                             *   FILE 182
//*                                                                 *   FILE 182
//*     7.  LISTC DSAT SORT COULD BE OUT OF SEQUENCE BECAUSE Y2K    *   FILE 182
//*         CENTURY INDICATORS WERE NOT CLEARED FOR MIGRATED        *   FILE 182
//*         DATA SETS.                                              *   FILE 182
//*                                                                 *   FILE 182
//*     8.  LISTA DATA FIELD WAS OVERLAYED FOR 2ND-NTH              *   FILE 182
//*         CONCATENATIONS.                                         *   FILE 182
//*                                                                 *   FILE 182
//***FILE 183 is from Gilbert Saint-flour of Automated Migration    *   FILE 183
//*           Services.  This is a collection of utilities and      *   FILE 183
//*           other highly useful things for system programmers     *   FILE 183
//*           to have.  The following is a summary of this file's   *   FILE 183
//*           contents.                                             *   FILE 183
//*                                                                 *   FILE 183
//*        email:   gsf@ibm.net                                     *   FILE 183
//*        PHONE:   973-992-9318                                    *   FILE 183
//*                                                                 *   FILE 183
//*              --> LAST UPDATE: 30Jun00 (for CBT427)              *   FILE 183
//*                                                                 *   FILE 183
//*                .--------------------------------.               *   FILE 183
//*                |  CBT TAPE - Index of file 183  |               *   FILE 183
//*                '--------------------------------'               *   FILE 183
//*                                                                 *   FILE 183
//*  ----------------- TSO and ISPF commands -------------------    *   FILE 183
//*                                                                 *   FILE 183
//*  BR        TSO command - Browse most data sets under            *   FILE 183
//*            ISPF/PDF, using BRIF.  Supports VSAM, BDAM,          *   FILE 183
//*            multi-volume, RECFM=VBS, BLKSIZE=0, etc.             *   FILE 183
//*                                                                 *   FILE 183
//*            To use it, just enter BR instead of B on the         *   FILE 183
//*            Data Set List utility screen.  BR has its own        *   FILE 183
//*            point-and-shoot capability and can grab a dsname     *   FILE 183
//*            on the screen, wherever the cursor is located.       *   FILE 183
//*                                                                 *   FILE 183
//*  CLS       A 5-line "clear screen" command for TSO              *   FILE 183
//*                                                                 *   FILE 183
//*  COMPRCMD  TSO Command Processor written in Assembler           *   FILE 183
//*                                                                 *   FILE 183
//*            Compress a PDS with DISP=SHR using standard ISPF     *   FILE 183
//*            and LINK-EDIT protection.  Uses the TSO/E service    *   FILE 183
//*            routine to invoke IEBCOPY and, therefore, does not   *   FILE 183
//*            require any authorization of its own.  Accepts       *   FILE 183
//*            generic dsnames (such as IBMUSER.*) and offers a     *   FILE 183
//*            few other options.                                   *   FILE 183
//*                                                                 *   FILE 183
//*  COMPRESS  The COMPRESS EDIT macro (written in REXX) that       *   FILE 183
//*            allows you to compress the PDS you're editing        *   FILE 183
//*            just by typing "COMPRESS" on the command line.       *   FILE 183
//*                                                                 *   FILE 183
//*  CONCAT    A REXX exec to add a data set to a concatenation.    *   FILE 183
//*                                                                 *   FILE 183
//*  CUT       REXX EDIT Macro - CUT & PASTE package                *   FILE 183
//*  PASTE     REXX EDIT Macro - CUT & PASTE package                *   FILE 183
//*  CUTPGM    Assembler program used in CUT & PASTE.               *   FILE 183
//*  CUTHLP1   Help screen for CUT                                  *   FILE 183
//*  CUTHLP2   Help screen for PASTE                                *   FILE 183
//*                                                                 *   FILE 183
//*            My own version of a classic.  Requires               *   FILE 183
//*            MVS/ESA 4.2.2 or above.  Uses data spaces,           *   FILE 183
//*            name/token pairs and compression.  Supports          *   FILE 183
//*            multiple clip-boards and the APPEND option.          *   FILE 183
//*                                                                 *   FILE 183
//*  DSLIST    REXX exec - Point-and-shoot Dataset List Utility     *   FILE 183
//*                                                                 *   FILE 183
//*            This REXX program allows you to invoke the data      *   FILE 183
//*            set list function of ISPF/PDF (option 3.4) with      *   FILE 183
//*            the DSNAME LEVEL field preset to the data set name   *   FILE 183
//*            under which the cursor is currently positionned.     *   FILE 183
//*                                                                 *   FILE 183
//*            DSLIST may be invoked from any ISPF screen simply    *   FILE 183
//*            by typing:                                           *   FILE 183
//*                                                                 *   FILE 183
//*               TSO %DSLIST                                       *   FILE 183
//*                                                                 *   FILE 183
//*            on the command line, then by moving the cursor       *   FILE 183
//*            under a data set name on your screen and pressing    *   FILE 183
//*            "enter".  You may also define it as a command in     *   FILE 183
//*            the ISPF command table, or set it up as a PFK.       *   FILE 183
//*                                                                 *   FILE 183
//*  DSNLIST   TSO command - returns in &var the dsnames            *   FILE 183
//*                          allocated to &ddn                      *   FILE 183
//*            Example:                                             *   FILE 183
//*                                                                 *   FILE 183
//*              ALLOC DD(SYSPROC) SHR -                            *   FILE 183
//*                    DS('IPO1.CMDPROC' 'IBMUSER.CLIST')           *   FILE 183
//*              DSNLIST DDNAME(SYSPROC) SETVAR(VAR2)               *   FILE 183
//*                                                                 *   FILE 183
//*              is equivalent to:                                  *   FILE 183
//*                                                                 *   FILE 183
//*              SET VAR2 = 'IPO1.CMDPROC' 'IBMUSER.CLIST'          *   FILE 183
//*                                                                 *   FILE 183
//*  EXECPGM   TSO command - invoke a utility program or compiler   *   FILE 183
//*            with an alternate ddname list, as follows:           *   FILE 183
//*               EXECPGM IEV90           +                         *   FILE 183
//*                 PARM(NOOBJECT,NODECK,NOXREF,NORLD) +            *   FILE 183
//*                 SYSIN(TEMPWK2)        +                         *   FILE 183
//*                 SYSUT1(TEMPWK1)       +                         *   FILE 183
//*                 SYSLIB(ASMLIB)        +                         *   FILE 183
//*                 SYSPRINT(ASMH$PRT)    +                         *   FILE 183
//*                 STEPLIB(LINKLIST)                               *   FILE 183
//*                                                                 *   FILE 183
//*  EXECUTE   REXX EXEC - Run an in-stream EXEC in a TMP step      *   FILE 183
//*                                                                 *   FILE 183
//*  FASTPATH  This assembler program allows the use of fast-path   *   FILE 183
//*            commands without requiring customization of the      *   FILE 183
//*            ISPF environment.                                    *   FILE 183
//*            Fastpath provides two types of functions:            *   FILE 183
//*                                                                 *   FILE 183
//*            1. Initialization                                    *   FILE 183
//*              a. add 20 fast-path commands to the user's         *   FILE 183
//*                 in-storage copy of ISPCMDS                      *   FILE 183
//*              b. pre-load specific modules to enhance            *   FILE 183
//*                 performance and allow access from a private     *   FILE 183
//*                 LOAD library                                    *   FILE 183
//*              c. issue STIMER to prevent S522 time-out abends    *   FILE 183
//*            2. Processing                                        *   FILE 183
//*              a. invoke EDIT, BROWSE, VIEW, WorkPlace and SDSF   *   FILE 183
//*                 with the appropriate NEWAPPL parameter          *   FILE 183
//*              b. store and retrieve parameters associated        *   FILE 183
//*                 with user-specified tags                        *   FILE 183
//*              c. retrieve a dsname under which the cursor        *   FILE 183
//*                 is positionned and invoke EDIT, BROWSE,         *   FILE 183
//*                 VIEW or the Workplace                           *   FILE 183
//*              d. Edit your ISPCTLn or SPFTEMPn.CNTL data set     *   FILE 183
//*              e. View a member in SYS1.MACLIB or SYS1.MODGEN     *   FILE 183
//*              f. TSO Full-screen                                 *   FILE 183
//*              g. misc others                                     *   FILE 183
//*                                                                 *   FILE 183
//*  FASTPDOC  Documentation for the FASTPATH utility               *   FILE 183
//*                                                                 *   FILE 183
//*  FTP       REXX EDIT Macro - Transmit the data being edited     *   FILE 183
//*            using text-mode FTP                                  *   FILE 183
//*                                                                 *   FILE 183
//*  INITKSDS  Initialize a KSDS after it's been DEFINE'd           *   FILE 183
//*                                                                 *   FILE 183
//*            This program prevents OPEN from failing when         *   FILE 183
//*            opening with MACRF=(IN,OUT) or STRNO=2 a KSDS        *   FILE 183
//*            that has just been defined.  Can be invoked as       *   FILE 183
//*            a batch program, a TSO command, or a sub-routine.    *   FILE 183
//*                                                                 *   FILE 183
//*  IRXEHCIR  Interface to IKJEHCIR for REXX and COBOL             *   FILE 183
//*                                                                 *   FILE 183
//*            This small assembler program allows a REXX EXEC      *   FILE 183
//*            or a COBOL program to invoke IKJEHCIR, the TSO/E     *   FILE 183
//*            Catalog Information Routine.                         *   FILE 183
//*                                                                 *   FILE 183
//*  ISPTASK   Program - prevent S522 abends while in ISPF          *   FILE 183
//*                                                                 *   FILE 183
//*            Just link it into your ISPLLIB or STEPLIB, then      *   FILE 183
//*            re-enter ISPF, and you won't time out any more.      *   FILE 183
//*                                                                 *   FILE 183
//*            Also preloads some ISRxxxx modules for               *   FILE 183
//*            performance, even if they're in PLPA (YES,           *   FILE 183
//*            in ESA 4.3, you can pre-load PLPA modules!!)         *   FILE 183
//*                                                                 *   FILE 183
//*  LCAT      TSO command - Full-screen IDCAMS LISTCAT             *   FILE 183
//*                                                                 *   FILE 183
//*            This TSO/ISPF command invokes IDCAMS then            *   FILE 183
//*            uses BRIF to display the output.                     *   FILE 183
//*                                                                 *   FILE 183
//*            To use it, just enter LCAT (or LC) as a line         *   FILE 183
//*            command on the Data Set List Utility screen.         *   FILE 183
//*                                                                 *   FILE 183
//*  LLIBDEF1  Prevent some S806-4 abends when using LIBDEF with    *   FILE 183
//*            ISPLLIB                                              *   FILE 183
//*                                                                 *   FILE 183
//*            This program allows you to pre-load a REUS or        *   FILE 183
//*            RENT module from a LOAD library defined via          *   FILE 183
//*            LIBDEF.  This can prevent S806-4 abends that         *   FILE 183
//*            occur when a program that is not LIBDEF-aware        *   FILE 183
//*            tries to access another program via LOAD or LINK.    *   FILE 183
//*                                                                 *   FILE 183
//*  LISTDSI   REXX EXEC - Display output of LISTDSI function       *   FILE 183
//*                                                                 *   FILE 183
//*            This EXEC helps the REXX programmer implement        *   FILE 183
//*            the LISTDSI function by displaying the value of      *   FILE 183
//*            all of the variables returned by LISTDSI for the     *   FILE 183
//*            specified data set, as well as providing the         *   FILE 183
//*            syntax, return codes and reason codes in the         *   FILE 183
//*            form of comments at the end of the source.           *   FILE 183
//*                                                                 *   FILE 183
//*  LOCKTERM  TSO command written in assembler.                    *   FILE 183
//*            Lock TSO terminal, enter LOGON password to unlock.   *   FILE 183
//*                                                                 *   FILE 183
//*  LPA24     REXX EXEC - Display PLPA usage below the 16MB line   *   FILE 183
//*                                                                 *   FILE 183
//*  LPR       REXX EDIT Macro - Print the data being edited        *   FILE 183
//*            using TCP/IP's LPR command                           *   FILE 183
//*                                                                 *   FILE 183
//*  NEWAPPL   REXX EXEC - Start a new ISPF application using       *   FILE 183
//*            LIBDEF and ALTLIB.                                   *   FILE 183
//*                                                                 *   FILE 183
//*  OBEYFILE  EDIT Macro written in REXX - Allows the TCP/IP       *   FILE 183
//*            administrator to use the data being edited as        *   FILE 183
//*            input to the TCP/IP OBEYFILE command without         *   FILE 183
//*            having to SAVE it.                                   *   FILE 183
//*                                                                 *   FILE 183
//*  RESET5    Initial EDIT macro that issues a "RESET" command     *   FILE 183
//*                                                                 *   FILE 183
//*            Type "IMACRO !RESET" once, and you won't be          *   FILE 183
//*            bothered by these annoying messages anymore.         *   FILE 183
//*                                                                 *   FILE 183
//*  ROUTE     REXX EDIT Macro - Print the data being edited.       *   FILE 183
//*  ROUTEPGM  Assembler program used in ROUTE to speed things up   *   FILE 183
//*  ROUTEHLP  Help screen                                          *   FILE 183
//*                                                                 *   FILE 183
//*            This edit macro writes the data you're editing to    *   FILE 183
//*            a SYSOUT data set, with the CLASS and DEST you       *   FILE 183
//*            specify, a title line and 60 lines per page.         *   FILE 183
//*            Works with EDIF because what gets printed is the     *   FILE 183
//*            data being edited, NOT the data stored on disk.      *   FILE 183
//*                                                                 *   FILE 183
//*  SHOWMACS  IEBUPDTE JOB that loads the macros required for      *   FILE 183
//*            ShowMVS into the PVTMACS library.                    *   FILE 183
//*                                                                 *   FILE 183
//*  ShowMVS   Program - Produces over 60 different displays        *   FILE 183
//*            about the MVS system                                 *   FILE 183
//*                                                                 *   FILE 183
//*            This program displays information obtained from      *   FILE 183
//*            various control blocks of the MVS system on which    *   FILE 183
//*            it runs.  The information can be displayed under     *   FILE 183
//*            ISPF using EDIF or BRIF, written to the TSO ter-     *   FILE 183
//*            minal using PUTLINE or to a data set using QSAM.     *   FILE 183
//*                                                                 *   FILE 183
//*            ShowMVS displays two different types of data:        *   FILE 183
//*                                                                 *   FILE 183
//*            1. Data related to the MVS operating system:         *   FILE 183
//*                                                                 *   FILE 183
//*               MVS LEVEL, DFP LEVEL, OSLVL FLAGS, JES2 LEVEL     *   FILE 183
//*               IPL DATE, TIME, VOLSER, NUC-ID, CLPA, CVTUSER     *   FILE 183
//*               Date and time of last CLPA                        *   FILE 183
//*               Time Zone, Primary sub-system name and type       *   FILE 183
//*               Software Level: TSO/E, ISPF, DSS, HSM, RACF,      *   FILE 183
//*                               VTAM SORT, DSF, DB2, CICS,        *   FILE 183
//*                               MQ Series                         *   FILE 183
//*               Run-time Environments (CBL, PLI, C, LE, etc)      *   FILE 183
//*               SMF Information: SID, JWT, data sets, exits       *   FILE 183
//*               SMS Configuration:  SCDS, system names, etc       *   FILE 183
//*               GRS Configuration                                 *   FILE 183
//*               Hardware config: CPU, Storage, IODF, PR/SM        *   FILE 183
//*                 Central Processing Complex Node Description     *   FILE 183
//*                 On-line CPUs and storage                        *   FILE 183
//*                 Performance (SU/sec, estimated MIPS)            *   FILE 183
//*                 Service Processor data                          *   FILE 183
//*                 I/O configuration Definition (IODF)             *   FILE 183
//*                 LPAR configuration                              *   FILE 183
//*               VM host information                               *   FILE 183
//*               VIRTUAL STORAGE MAP (CSA, SQA, LPA, etc)          *   FILE 183
//*               SRM data (IPS/ICS/OPT, APG, etc)                  *   FILE 183
//*               WLM data (MODE, etc)                              *   FILE 183
//*               OPEN catalogs                                     *   FILE 183
//*               PAGE data sets in use                             *   FILE 183
//*               Dump data sets status and dump options            *   FILE 183
//*               Dump data sets date, time and title               *   FILE 183
//*               Automatically-allocated dump data sets            *   FILE 183
//*               DAE Parameters                                    *   FILE 183
//*               GTF status and options                            *   FILE 183
//*               Master JCL (IEEMSJCL)                             *   FILE 183
//*               Sub-system vector table w/ functions processed    *   FILE 183
//*               Primary Sub-system JCL                            *   FILE 183
//*               TSO PARMLIB data (IKJTSOxx)                       *   FILE 183
//*               TSO Exits and Tables                              *   FILE 183
//*               TCAS parameters                                   *   FILE 183
//*               RACF options, data sets and tables                *   FILE 183
//*               Address space usage:                              *   FILE 183
//*                 Batch Jobs                                      *   FILE 183
//*                 TSO users                                       *   FILE 183
//*                 Started tasks                                   *   FILE 183
//*               JES2 Initiators and corresponding jobs            *   FILE 183
//*               Link-list data sets, with creation date           *   FILE 183
//*               LPA-list data sets, with creation date            *   FILE 183
//*               List of authorized libraries                      *   FILE 183
//*               Dynamic Exit Facility                             *   FILE 183
//*               Static system symbols                             *   FILE 183
//*               LLA parameters and managed libraries              *   FILE 183
//*               Active LPA Queue (MLPA, FLPA)                     *   FILE 183
//*               SVC Table with name of the corresponding module   *   FILE 183
//*               T1, T2, T3 and T6 ESR tables                      *   FILE 183
//*               Linkage Index (LX) Table                          *   FILE 183
//*               Program Properties Table (PPT)                    *   FILE 183
//*               I/O Appendage Table                               *   FILE 183
//*               Device Classes and corresponding unit names       *   FILE 183
//*               On-line devices, with unit-name, VOLSER, owning   *   FILE 183
//*                     job, use attribute, storage group           *   FILE 183
//*               System consoles, with status & Routcde list       *   FILE 183
//*               Message Processing Facility (MPF)                 *   FILE 183
//*               Device Allocation Defaults (ALLOCxx)              *   FILE 183
//*               Addresses of selected global control blocks       *   FILE 183
//*                                                                 *   FILE 183
//*            2. Data related to the current address space         *   FILE 183
//*                                                                 *   FILE 183
//*               JCL information for current JOB/STEP              *   FILE 183
//*               RACF profile (from ACEE)                          *   FILE 183
//*               TSO profile (from PSCB & UPT)                     *   FILE 183
//*               REXX envir., host cmd tbls and func pkg dir.      *   FILE 183
//*               Allocated Data sets (from TIOT, SWA, TCT)         *   FILE 183
//*               TCB tree and PRB chain Attention Routines         *   FILE 183
//*               Enhanced view of the JPAQ and Load-lists          *   FILE 183
//*               Recovery exits and timers Addresses of selected   *   FILE 183
//*               local control blocks                              *   FILE 183
//*                                                                 *   FILE 183
//*            ShowMVS can be invoked as a program, as a TSO        *   FILE 183
//*            cmd, or as an edit macro and can run authorized      *   FILE 183
//*            or non-authorized.  Some of the displays are         *   FILE 183
//*            only produced when ShowMVS runs authorized.          *   FILE 183
//*                                                                 *   FILE 183
//*  STEMVIEW  REXX sub-routine written in assembler.               *   FILE 183
//*            Displays values of a stem variable using BRIF        *   FILE 183
//*            or EDIF.  A nice addition to OUTTRAP.                *   FILE 183
//*                                                                 *   FILE 183
//*  SVC11Y2K  Date Simulation Routine for Batch applications.      *   FILE 183
//*                                                                 *   FILE 183
//*            This assembler routine front-ends the TIME SVC       *   FILE 183
//*            (SVC 11) to simulate a date different from the       *   FILE 183
//*            current system date.  The date is passed via JCL     *   FILE 183
//*            in an IEFBR14 step coded as follows:                 *   FILE 183
//*              //RUNDATE EXEC PGM=IEFBR14,PARM=YYYYDDD            *   FILE 183
//*            where YYYY is the 4-digit year and DDD the julian    *   FILE 183
//*            day.  SVC11Y2K only works with applications that     *   FILE 183
//*            use SVC 11, such as OS/VS COBOL, VS COBOL II,        *   FILE 183
//*            assembler, etc.  SVC11Y2K does not work with         *   FILE 183
//*            applications that use the LINKAGE=SYSTEM format      *   FILE 183
//*            of the TIME macro ot the STCK instruction, such      *   FILE 183
//*            as LE/370.  SVC11Y2K must be installed using the     *   FILE 183
//*            LOADMLPA and SVCUPDTE utilities or equivalent.       *   FILE 183
//*                                                                 *   FILE 183
//*  TALLY     REXX exec for ISPF 3.4 - Display the total number of *   FILE 183
//*            tracks used up by the data sets on the DSLIST panel. *   FILE 183
//*                                                                 *   FILE 183
//*  TLMS      Display a VMF record under PDF 3.4                   *   FILE 183
//*                                                                 *   FILE 183
//*            This program reads the VMF record for the            *   FILE 183
//*            first volume of a tape data set, formats it          *   FILE 183
//*            pretty much like the CATLTSO command, then           *   FILE 183
//*            invokes BRIF to display the result.  May only        *   FILE 183
//*            be used as a line command on the Data Set            *   FILE 183
//*            List panel (Option 3.4 of ISPF/PDF).                 *   FILE 183
//*                                                                 *   FILE 183
//*  TMS       Display a TMC record under PDF 3.4                   *   FILE 183
//*            Same as TLMS, but for CA1/TMS 5.0                    *   FILE 183
//*                                                                 *   FILE 183
//*  VARS      TSO/ISPF command written in REXX.                    *   FILE 183
//*            Display in-storage ISPF vars.                        *   FILE 183
//*                                                                 *   FILE 183
//*  VDL       TSO/ISPF command written in REXX.  VIEW Data set     *   FILE 183
//*            List: makes the list of data set created by DSLIST   *   FILE 183
//*            available as data in a VIEW session.                 *   FILE 183
//*                                                                 *   FILE 183
//*  VML       TSO/ISPF command - Read the directory of the         *   FILE 183
//*            specified PDS and VIEW the Member List               *   FILE 183
//*                                                                 *   FILE 183
//*  VSAMVIEW  TSO/ISPF command - View a VSAM data set using EDIF   *   FILE 183
//*                                                                 *   FILE 183
//*  VSAVE     ISPF EDIT macro - Save a member in VIEW mode         *   FILE 183
//*                                                                 *   FILE 183
//*  WHEREIS   REXX EXEC - Look for all occurences of a member in   *   FILE 183
//*            the libraries currently allocated to your TSO        *   FILE 183
//*            session.  If multiple versions of the member are     *   FILE 183
//*            present in a concatenation, they are all shown,      *   FILE 183
//*            along with their ISPF stats, when present.           *   FILE 183
//*                                                                 *   FILE 183
//*  WHOAMI    REXX EXEC - Displays the user-ID and system-ID       *   FILE 183
//*            in large letters, plus a few other things            *   FILE 183
//*                                                                 *   FILE 183
//*  WP        REXX EXEC - Invoke the Work-place from DSLIST.       *   FILE 183
//*                                                                 *   FILE 183
//*  XDELETE   REXX EXEC - Delete data sets "en masse" using a      *   FILE 183
//*            generic filter such as "ABC*.D%.**.E%F*GH.*.TEMP".   *   FILE 183
//*                                                                 *   FILE 183
//*  ------------------ Batch Programs --------------------------   *   FILE 183
//*                                                                 *   FILE 183
//*  BLKSIZE2  Scan a PDS and print the size of each block and      *   FILE 183
//*            the track balance                                    *   FILE 183
//*                                                                 *   FILE 183
//*            This is a batch program, for people interested       *   FILE 183
//*            in what a PDS looks like, from the inside.           *   FILE 183
//*                                                                 *   FILE 183
//*  BYPASSNQ  Assembler program.  Scratch or Rename a Data Set     *   FILE 183
//*            without SYSDSN ENQ                                   *   FILE 183
//*                                                                 *   FILE 183
//*            BYPASSNQ is a driver that allows you to run any      *   FILE 183
//*            utility program (such as IEHPROGM or IDCAMS) and     *   FILE 183
//*            bypass dsname ENQ that is normally performed by      *   FILE 183
//*            the DYNALLOC, SCRATCH and RENAME SVCs.               *   FILE 183
//*            This technique allows data sets to be deleted or     *   FILE 183
//*            renamed using standard MVS services and is fully     *   FILE 183
//*            compatible with indexed VTOCs and SMS.               *   FILE 183
//*                                                                 *   FILE 183
//*  CANMSGCL  Purge current job's held output after a few hours.   *   FILE 183
//*            Useful for those jobs that work OK 99% of the time   *   FILE 183
//*            (must be authorized)                                 *   FILE 183
//*                                                                 *   FILE 183
//*            Example:                                             *   FILE 183
//*                                                                 *   FILE 183
//*              //MYJOB    JOB ACCT#,CLASS=A,MSGCLASS=X            *   FILE 183
//*              //COPY1   EXEC PGM=IEBCOPY                         *   FILE 183
//*              //...      DD   ...                                *   FILE 183
//*              //CONDPURG EXEC PGM=CANMSGCL,PARM=2,               *   FILE 183
//*              //              COND=(0,NE,COPY1)                  *   FILE 183
//*                                                                 *   FILE 183
//*              The number in the parm is a number of hours.       *   FILE 183
//*              If the 'COPY1' step ends at 10:28 with a           *   FILE 183
//*              return code equal to zero, the 'CONDPURG' step     *   FILE 183
//*              executes and issues the following command:         *   FILE 183
//*                                                                 *   FILE 183
//*                $TA,T=12.28,'$OJ01234,Q=X,CANCEL'                *   FILE 183
//*                                                                 *   FILE 183
//*  COB2JOB   Retrieve Job-related information in COBOL            *   FILE 183
//*                                                                 *   FILE 183
//*  COB2SYS   Retrieve System-related information in COBOL         *   FILE 183
//*                                                                 *   FILE 183
//*  COB2TSO   Issue TSO commands in COBOL                          *   FILE 183
//*                                                                 *   FILE 183
//*  CLEANUP   Assembler program.  Automatically searches the MVS   *   FILE 183
//*            catalog for non-GDG data sets that will be created   *   FILE 183
//*            in subsequent steps of your job and deletes them.    *   FILE 183
//*            HSM-migrated data sets are deleted with HDELETE.     *   FILE 183
//*                                                                 *   FILE 183
//*                  //MYJOB   JOB  acct#                           *   FILE 183
//*                  //*                                            *   FILE 183
//*                  //CLEANUP EXEC PGM=CLEANUP                     *   FILE 183
//*                  //*                                            *   FILE 183
//*                  //STEP1   EXEC PGM=MYPROG1                     *   FILE 183
//*                  //OUTDD    DD  DSN=MY.FILE1,DISP=(,CATLG)      *   FILE 183
//*                  //STEP2   EXEC PGM=MYPROG2                     *   FILE 183
//*                  //OUTDD    DD  DSN=MY.FILE2,DISP=(,CATLG)      *   FILE 183
//*                                                                 *   FILE 183
//*            Can also be executed as the LAST step of a job to    *   FILE 183
//*            delete non-GDG data sets that were created during    *   FILE 183
//*            job execution.                                       *   FILE 183
//*                                                                 *   FILE 183
//*  CMDJ      Send a JES2 command with the current job's number    *   FILE 183
//*            (must be authorized)                                 *   FILE 183
//*                                                                 *   FILE 183
//*            Example:                                             *   FILE 183
//*                                                                 *   FILE 183
//*               //PURGEJOB EXEC PGM=CMDJES2,PARM=P                *   FILE 183
//*                                                                 *   FILE 183
//*            If the current job's number is JOB01234,             *   FILE 183
//*            then the following command is issued:                *   FILE 183
//*                                                                 *   FILE 183
//*                  $PJ  01234                                     *   FILE 183
//*                                                                 *   FILE 183
//*  GSFLKED   Front-end to the linkage editor to recover           *   FILE 183
//*            from SD37 on SYSLMOD (must be authorized)            *   FILE 183
//*                                                                 *   FILE 183
//*            This program may be invoked instead of the DFP       *   FILE 183
//*            linkage editor. It calls the linkage editor and,     *   FILE 183
//*            if an SD37 abend occurs, calls IEBCOPY to compress   *   FILE 183
//*            the SYSLMOD PDS, then calls the linkage editor       *   FILE 183
//*            again.                                               *   FILE 183
//*                                                                 *   FILE 183
//*            Another feature of this program is to                *   FILE 183
//*            conditionally append a PDS member to SYSLIN, if      *   FILE 183
//*            that member exists.                                  *   FILE 183
//*                                                                 *   FILE 183
//*  ISGECMON  Assemble and Link Job for SYS1.SAMPLIB(ISGECMON)     *   FILE 183
//*                                                                 *   FILE 183
//*            The ISGECMON program runs as a never ending task     *   FILE 183
//*            that checks dataset contention at periodic           *   FILE 183
//*            intervals and sends messages to TSO users asking     *   FILE 183
//*            them to free datasets that are causing contention.   *   FILE 183
//*                                                                 *   FILE 183
//*  IGX00GSF  Authorization SVC routine for ShowMVS and STEPLIB    *   FILE 183
//*                                                                 *   FILE 183
//*            This extended SVC routine (ESR) allows an            *   FILE 183
//*            un-authorized program to switch to MODE=SUP.         *   FILE 183
//*            Only programs that have been registered and          *   FILE 183
//*            meet security requirements will successfully         *   FILE 183
//*            be switched to MODE=SUP.                             *   FILE 183
//*                                                                 *   FILE 183
//*  JOBRLSE   Release a job by number (must be authorized)         *   FILE 183
//*                                                                 *   FILE 183
//*            This program allows you to issue a $A                *   FILE 183
//*            command to release a job previously                  *   FILE 183
//*            submitted to JES2 with "TYPRUN=HOLD".                *   FILE 183
//*                                                                 *   FILE 183
//*            To prevent "multiple jobs found" conditions,         *   FILE 183
//*            this program uses the sub-system interface           *   FILE 183
//*            to inquire about the status of homonym jobs.         *   FILE 183
//*            Then, it issues a $A command with the job            *   FILE 183
//*            number of the first job found in the input           *   FILE 183
//*            queue in held status (for example: $A J1234).        *   FILE 183
//*                                                                 *   FILE 183
//*            Sample execution JCL:                                *   FILE 183
//*                                                                 *   FILE 183
//*              //RLSENEXT EXEC PGM=JOBRLSE,PARM=PAYROL22          *   FILE 183
//*                                                                 *   FILE 183
//*  LINKLLA   Link-edit and refresh LLA in a single step           *   FILE 183
//*            (MVS/ESA only, must be authorized)                   *   FILE 183
//*                                                                 *   FILE 183
//*            Invokes the linkage-editor, then issues LLACOPY      *   FILE 183
//*            for the member specified on the //SYSLMOD DD.        *   FILE 183
//*            If there is no //SYSLIN DD in the step's JCL,        *   FILE 183
//*            issues LLACOPY for the member on //SYSLMOD,          *   FILE 183
//*            or for all of the members in the //SYSLMOD           *   FILE 183
//*            library if no member name has been specified.        *   FILE 183
//*                                                                 *   FILE 183
//*  LOADMLPA  Load a reentrant module into the MLPA                *   FILE 183
//*            (must be authorized)                                 *   FILE 183
//*                                                                 *   FILE 183
//*            This program allows you to load a RENT module        *   FILE 183
//*            from an authorized library into the MLPA.            *   FILE 183
//*            Also supports the DELETE function to undo            *   FILE 183
//*            LOAD.  Invoker must have update authority to         *   FILE 183
//*            SYS1.PARMLIB.                                        *   FILE 183
//*                                                                 *   FILE 183
//*  NOTCTLG3  Prolog step to prevent "NOT CATLG 2" and verify      *   FILE 183
//*            VSAM data sets                                       *   FILE 183
//*                                                                 *   FILE 183
//*            This program may be executed at the beginning        *   FILE 183
//*            of a batch job.  It scans the job's SWA to           *   FILE 183
//*            locate JFCBs and does two things:                    *   FILE 183
//*                                                                 *   FILE 183
//*            1. checks if any non-gdg data set with               *   FILE 183
//*               DISP=(NEW,CATLG) is already cataloged.            *   FILE 183
//*               If it finds at least one (i.e. a "NOT             *   FILE 183
//*               CATLG 2" is about to occur), it issues a          *   FILE 183
//*               message and abends the job                        *   FILE 183
//*                                                                 *   FILE 183
//*            2. Checks if any VSAM data set has been left         *   FILE 183
//*               in OPEN status by an abending job.  Every         *   FILE 183
//*               data set in this case is opened and closed.       *   FILE 183
//*               The way this condition is detected is quite       *   FILE 183
//*               interesting, look at the code.                    *   FILE 183
//*                                                                 *   FILE 183
//*  DONTFAIL  Prevent job failure caused by uncataloged data       *   FILE 183
//*            sets (ESA only, must be authorized)                  *   FILE 183
//*                                                                 *   FILE 183
//*            This program has been designed to prevent jobs       *   FILE 183
//*            that accept multiple inputs from failing in the      *   FILE 183
//*            middle of the night because of a "typo" in a data    *   FILE 183
//*            set name.  When DONTFAIL detects that an input       *   FILE 183
//*            data set is not cataloged, it converts it to a       *   FILE 183
//*            null data set and allows the job to run with         *   FILE 183
//*            partial input.                                       *   FILE 183
//*                                                                 *   FILE 183
//*  PACKOFF   Unpack a file packed by ISPF/PDF or XEDIT            *   FILE 183
//*                                                                 *   FILE 183
//*            This is a sample program that reads                  *   FILE 183
//*            fixed-length records and unpacks them.               *   FILE 183
//*                                                                 *   FILE 183
//*  RECALL    Batch program - Issues HRECALL commands for every    *   FILE 183
//*            migrated data sets used in subsequent steps of the   *   FILE 183
//*            JOB in which it is executed.  Pre-staging data       *   FILE 183
//*            sets in this manner reduces HSM tape mount           *   FILE 183
//*            activity.                                            *   FILE 183
//*                                                                 *   FILE 183
//*  SCANMODL  This assembler module loads a control-block map      *   FILE 183
//*            from SYS1.MIGLIB and returns the offset & length     *   FILE 183
//*            of a field.  It is used to write programs that       *   FILE 183
//*            access JES2 control blocks without using HASPSRC     *   FILE 183
//*            and consequently, are release-independent.           *   FILE 183
//*                                                                 *   FILE 183
//*  SVCUPDTE  Install a type-3 SVC routine (must be authorized)    *   FILE 183
//*                                                                 *   FILE 183
//*            This program installs an SVC routine from PLPA,      *   FILE 183
//*            MLPA, or from an authorized library.                 *   FILE 183
//*            The installation can be permanent or temporary.      *   FILE 183
//*            If the installation is temporary, SVCUPDTE waits     *   FILE 183
//*            until a STOP or CANCEL command is issued, then       *   FILE 183
//*            restores the old SVC entry and terminates.           *   FILE 183
//*                                                                 *   FILE 183
//*            PARM=(nnn,mmmmmmm,hhmm,userid)                       *   FILE 183
//*                                                                 *   FILE 183
//*              nnn is the SVC number you want to install;         *   FILE 183
//*              you must specify a 3-digit number                  *   FILE 183
//*                                                                 *   FILE 183
//*              mmmmmmmm is the name of a load module (or alias)   *   FILE 183
//*              that you want to install as SVC nnn;  it MUST      *   FILE 183
//*              come from an authorized library (STEPLIB or        *   FILE 183
//*              link-list)                                         *   FILE 183
//*                                                                 *   FILE 183
//*              hhmm is the optional automatic shut-down time,     *   FILE 183
//*              in 24-hour clock format.  When the specified       *   FILE 183
//*              time is reached, SVCUPDTE automatically stops.     *   FILE 183
//*                                                                 *   FILE 183
//*              userid is the optional userid that will be given   *   FILE 183
//*              access to the new SVC.  Jobs submitted by other    *   FILE 183
//*              users will keep on using the old SVC.              *   FILE 183
//*                                                                 *   FILE 183
//*  SYSMOVE   Unload a PDS to a sequential data set in             *   FILE 183
//*            IEHMOVE format.  Compatible with SMS.                *   FILE 183
//*                                                                 *   FILE 183
//*  UNITAFF   Dynamically sets UNIT=AFF for input tape files       *   FILE 183
//*            (must be authorized)                                 *   FILE 183
//*                                                                 *   FILE 183
//*            This program was originally designed to reduce       *   FILE 183
//*            the number of tape drives used by user-submitted     *   FILE 183
//*            SAS steps.  It scans the SWA for the next step       *   FILE 183
//*            and changes some of the SIOT's fields to force       *   FILE 183
//*            all input tape data sets to the same drive.          *   FILE 183
//*                                                                 *   FILE 183
//*            It must be executed immediately before the           *   FILE 183
//*            step to process (SAS, SORT, or any other             *   FILE 183
//*            program that reads a variable number of tape         *   FILE 183
//*            files, one at a time).                               *   FILE 183
//*                                                                 *   FILE 183
//*            Sample jcl:                                          *   FILE 183
//*                                                                 *   FILE 183
//*              //UNITAFF EXEC PGM=UNITAFF                         *   FILE 183
//*              //STEPLIB  DD  DISP=SHR,DSN=SYS2.AUTHLIB           *   FILE 183
//*              //*                                                *   FILE 183
//*              //STEP53  EXEC PGM=SAS                             *   FILE 183
//*              //OSIN     DD DISP=SHR,DSN=USER1.X                 *   FILE 183
//*              //         DD DISP=SHR,DSN=UPQE.DQE40530(-1)       *   FILE 183
//*              //OSIN2    DD DISP=SHR,DSN=UPQR.DQR02150(0)        *   FILE 183
//*              //OSIN3    DD DISP=SHR,DSN=USER1.X                 *   FILE 183
//*              //         DD DISP=SHR,DSN=UPBG.DBGA0240(-1)       *   FILE 183
//*              //OSIN4    DD DISP=SHR,DSN=USER1.X                 *   FILE 183
//*              //         DD DISP=SHR,DSN=USER1.YY                *   FILE 183
//*              //         DD DISP=SHR,DSN=UPQR.DQR02140(-1)       *   FILE 183
//*                                                                 *   FILE 183
//*            The program only supports cataloged data sets;       *   FILE 183
//*            relative generation numbers are handled              *   FILE 183
//*            correctly via the GDGNT.                             *   FILE 183
//*                                                                 *   FILE 183
//*            Restriction: No distinction is made between 3420,    *   FILE 183
//*            3480 or 3490 device types; this will cause           *   FILE 183
//*            problems if the input to a step is mixed.            *   FILE 183
//*                                                                 *   FILE 183
//*                                                                 *   FILE 183
//*  ------------------ Assembler Macros ------------------------   *   FILE 183
//*                                                                 *   FILE 183
//*  BUILDCDE  Make storage allocated with GETMAIN appear as a      *   FILE 183
//*            load-module in a dump.                               *   FILE 183
//*                                                                 *   FILE 183
//*            BUILDCDE uses the "loader" form of IDENTIFY to       *   FILE 183
//*            create a major CDE and corresponding XL, then        *   FILE 183
//*            issues a LOAD SVC to create an LLE and associate     *   FILE 183
//*            the CDE with the current TCB.  Don't worry, you      *   FILE 183
//*            don't have to understand how it works to use it.     *   FILE 183
//*                                                                 *   FILE 183
//*            EXAMPLE:                                             *   FILE 183
//*                                                                 *   FILE 183
//*                  GETMAIN RU,LV=20000                            *   FILE 183
//*                  BUILDCDE LENGTH=(0),ADDR=(1),EP=DYNAM20        *   FILE 183
//*                                                                 *   FILE 183
//*            The 20K storage area will appear in a dump           *   FILE 183
//*            as a load-module called "DYNAM20".                   *   FILE 183
//*                                                                 *   FILE 183
//*  EASYSORT  Invoke an internal SORT with OPEN/PUT/GET logic      *   FILE 183
//*                                                                 *   FILE 183
//*            Allows you to do internal sorts without any          *   FILE 183
//*            knowledge of parameter lists or exit routine         *   FILE 183
//*            linkage conventions.                                 *   FILE 183
//*                                                                 *   FILE 183
//*            Example:                                             *   FILE 183
//*                                                                 *   FILE 183
//*                      EASYSORT OPEN,                             *   FILE 183
//*                            FIELDS=(1,22,CH,A),                  *   FILE 183
//*                            TYPE=F,LENGTH=64,                    *   FILE 183
//*                            OPTION='EQUALS,RESINV=500K'          *   FILE 183
//*                      .     .                                    *   FILE 183
//*              READ    GET   FILEIN                               *   FILE 183
//*                      EASYSORT PUT,(1)   pass record to SORT     *   FILE 183
//*                      B     READ                                 *   FILE 183
//*                      .     .                                    *   FILE 183
//*              REWRITE EASYSORT GET,      get sorted record       *   FILE 183
//*                            SET=(R3),                            *   FILE 183
//*                            EODAD=ENDSORT                        *   FILE 183
//*                      PUT   FILEOUT,(R3)                         *   FILE 183
//*                      B     REWRITE                              *   FILE 183
//*                      .     .                                    *   FILE 183
//*              ENDSORT EASYSORT CLOSE                             *   FILE 183
//*                                                                 *   FILE 183
//*  GETDIR    Read a directory sequentially with a BPAM DCB        *   FILE 183
//*                                                                 *   FILE 183
//*            This macro offers a simple way to read directory     *   FILE 183
//*            entries and members with a single BPAM DCB.          *   FILE 183
//*                                                                 *   FILE 183
//*  GETPUT31  Issue GET, PUT or PUTX while in AMODE31              *   FILE 183
//*                                                                 *   FILE 183
//*            This member contains GET31, PUT31 and PUTX31,        *   FILE 183
//*            which are modified versions of GET, PUT and          *   FILE 183
//*            PUTX.  They allow a program running with             *   FILE 183
//*            RMODE24 and AMODE31 to issue QSAM GET, PUT and       *   FILE 183
//*            PUTX without having to switch to AMODE24.            *   FILE 183
//*            GET31 allows specification of an end-of-file         *   FILE 183
//*            routine (EODAD).                                     *   FILE 183
//*                                                                 *   FILE 183
//*  STRING    Provides functions similar to PL/I's                 *   FILE 183
//*            PUT EDIT or COBOL's STRING.                          *   FILE 183
//*                                                                 *   FILE 183
//*            This is the only non-IBM macro you need to           *   FILE 183
//*            assemble the programs in this file.                  *   FILE 183
//*                                                                 *   FILE 183
//*            This member contains the macro, a test job,          *   FILE 183
//*            and the documentation.                               *   FILE 183
//*                                                                 *   FILE 183
//*                                                                 *   FILE 183
//*  ---------------------- Miscellaneous -----------------------   *   FILE 183
//*                                                                 *   FILE 183
//*  DEFGDGSR  Sub-routine - invokes SVC 26 to define a GDG base    *   FILE 183
//*                                                                 *   FILE 183
//*            May be invoked from a COBOL program, like this:      *   FILE 183
//*                                                                 *   FILE 183
//*                  05  DSNAME   PIC X(44) VALUE 'MY.DSNAME'.      *   FILE 183
//*                  05  GDGLIMIT PIC   999 VALUE 027.              *   FILE 183
//*                                                                 *   FILE 183
//*                      CALL 'DEFGDGSR' USING DSNAME,              *   FILE 183
//*                                            GDGLIMIT.            *   FILE 183
//*                                                                 *   FILE 183
//*  HANDBOOK  Job - Creates an on-line copy of the DATA AREAS      *   FILE 183
//*            (aka Debugging Handbook) manuals                     *   FILE 183
//*                                                                 *   FILE 183
//*            This job assembles macros from SYS1.MACLIB and       *   FILE 183
//*            SYS1.MODGEN and stores the assembly listings         *   FILE 183
//*            into PDS members.  It is set up for over 60          *   FILE 183
//*            commonly used MVS control blocks (such as CVT,       *   FILE 183
//*            TCB, JFCB, etc) and may be easily modified to        *   FILE 183
//*            support other ones.                                  *   FILE 183
//*                                                                 *   FILE 183
//*            The assembly listing for each macro is stored        *   FILE 183
//*            into the output PDS under the control block          *   FILE 183
//*            name.  For example, the assembly listing for         *   FILE 183
//*            "IKJTCB" is stored into the "TCB" member.            *   FILE 183
//*                                                                 *   FILE 183
//*            To conserve dasd space, the LMCOPY service of        *   FILE 183
//*            ISPF/PDF is used to pack the output of the           *   FILE 183
//*            assembler.                                           *   FILE 183
//*                                                                 *   FILE 183
//*  IEC149I   MPF Exit.  Display the dsname from the HDR1 label    *   FILE 183
//*            after a 813-04 or 237-08 abend.                      *   FILE 183
//*                                                                 *   FILE 183
//*  ISPCMDSJ  Job - Update ISPCMDS in batch                        *   FILE 183
//*                                                                 *   FILE 183
//*            This is a TMP job that uses a CLIST and ISPF         *   FILE 183
//*            table services to append a set of in-line            *   FILE 183
//*            commands to the original ISPCMDS table.              *   FILE 183
//*                                                                 *   FILE 183
//*            The resulting ISPCMDS table may be given any         *   FILE 183
//*            name and go to any library you choose.               *   FILE 183
//*                                                                 *   FILE 183
//*  SYSDEBUG  General Purpose ESTAE Routine.  Simplifies abend     *   FILE 183
//*            resolution by formatting and writing out important   *   FILE 183
//*            MVS control blocks in an easy-to-read fashion.       *   FILE 183
//*                                                                 *   FILE 183
//*  TCTDCTR   Sub-routine - Prints the EXCP count for each DD      *   FILE 183
//*            in the job step                                      *   FILE 183
//*                                                                 *   FILE 183
//*            May be invoked at the end of a program for           *   FILE 183
//*            debugging or tuning purposes.                        *   FILE 183
//*                                                                 *   FILE 183
//*  TRIMMAC   Job - Creates a reduced-size MACLIB that may be      *   FILE 183
//*            used instead of the SYS1.MACLIB/SYS1.MODGEN          *   FILE 183
//*            concatenation to improve the performance of the      *   FILE 183
//*            assembler.                                           *   FILE 183
//*                                                                 *   FILE 183
//*            The "TRIMMAC" library is built as follows:           *   FILE 183
//*                                                                 *   FILE 183
//*            1. selected macros are read from ddname "SYSLIB",    *   FILE 183
//*               trimmed from PL/AS code and other comment         *   FILE 183
//*               lines, then written to a temporary data set.      *   FILE 183
//*                                                                 *   FILE 183
//*            2. the SORT utility is invoked to sort the macros    *   FILE 183
//*               in ascending sequence of their size.              *   FILE 183
//*                                                                 *   FILE 183
//*            3. the sorted macros are written to SYSPUNCH         *   FILE 183
//*               as an IEBUPDTE sysin stream.                      *   FILE 183
//*                                                                 *   FILE 183
//*            4. IEBUPDTE is executed in the last step to          *   FILE 183
//*               load the macros into the "TRIMMAC" library,       *   FILE 183
//*               the smallest macros being loaded first.           *   FILE 183
//*                                                                 *   FILE 183
//*            You may customize the member list and the input      *   FILE 183
//*            concatenation to add other macros and/or macro       *   FILE 183
//*            libraries, as needed.                                *   FILE 183
//*                                                                 *   FILE 183
//*            Use the "TRIMMAC" library instead of the             *   FILE 183
//*            MACLIB/AMODGEN concatenation to assemble a           *   FILE 183
//*            program and compare the before/after values for      *   FILE 183
//*            the elapsed time, excp count and I/O connect         *   FILE 183
//*            time.  Expect savings of 30 to 60 percent when       *   FILE 183
//*            "TRIMMAC" is used.                                   *   FILE 183
//*                                                                 *   FILE 183
//*            My "TRIMMAC" PDS is currently allocated as           *   FILE 183
//*            follows:                                             *   FILE 183
//*                                                                 *   FILE 183
//*                UNIT=3390,SPACE=(CYL,(9,,18)),                   *   FILE 183
//*                DCB=(RECFM=FB,LRECL=80,BLKSIZE=29720)            *   FILE 183
//*                                                                 *   FILE 183
//*  ZAPONTR0  Patch job - Bypass STEPLIB for ILBOxxx routines      *   FILE 183
//*                                                                 *   FILE 183
//*            This patch to ILBONTR0 eliminates                    *   FILE 183
//*            JOBLIB/STEPLIB directory searches for OS/VS          *   FILE 183
//*            COBOL ILBOxxx modules when SYS1.VSCLLIB is in        *   FILE 183
//*            the linklist.  If you compile your COBOL             *   FILE 183
//*            modules with 'resident' and have large JOBLIBs       *   FILE 183
//*            or STEPLIBs, you want to try this.                   *   FILE 183
//*                                                                 *   FILE 183
//*            The job contains 2 different versions of the         *   FILE 183
//*            patch in AMASPZAP format.  Each version              *   FILE 183
//*            corresponds to a different PTF level, use the        *   FILE 183
//*            one that works for you.  The patch is packaged       *   FILE 183
//*            with its own validation program.                     *   FILE 183
//*                                                                 *   FILE 183
//***FILE 184 IS FROM TOM BRYANT OF PLATINUM TECHNOLOGY IN ILLINOIS.*   FILE 184
//*           THIS FILE CONTAINS CLISTS, REXX EXECS AND BATCH JCL   *   FILE 184
//*           TO MAKE IT EASIER TO USE IPCS UNDER MVS/ESA.  THIS    *   FILE 184
//*           FILE NOW ALSO CONTAINS FOUR OF TOM'S ARTICLES FROM    *   FILE 184
//*           "TECHNICAL SUPPORT" MAGAZINE THAT EXPLAIN SOME OF     *   FILE 184
//*           HIS DEBUGGING PHILOSOPHY, AND WHICH ALSO EXPLAIN      *   FILE 184
//*           THE PROCEDURES ON THIS FILE FURTHER.                  *   FILE 184
//*                                                                 *   FILE 184
//*              NEW ADDRESS:                                       *   FILE 184
//*                       TOM BRYANT                                *   FILE 184
//*                       PLATINUM TECHNOLOGY INC.                  *   FILE 184
//*                       OAK BROOK TERRACE, IL                     *   FILE 184
//*                       630-620-5116   X1272                      *   FILE 184
//*                                                                 *   FILE 184
//***FILE 185 is from Sam Golob and contains source code for a      *   FILE 185
//*           greatly expanded IKJTABLS load module to authorize    *   FILE 185
//*           programs and commands under TSO.  When run in an      *   FILE 185
//*           authorized STEPLIB in a TSO session, IKJTABLS will    *   FILE 185
//*           override IKJTSO00 from PARMLIB and will also          *   FILE 185
//*           override the copy of IKJTABLS that is in              *   FILE 185
//*           SYS1.LPALIB.  Must be used with all its aliases.      *   FILE 185
//*           Load module is in File 186.                           *   FILE 185
//*                                                                 *   FILE 185
//*           If you want to authorize everything that everybody    *   FILE 185
//*           else has, you have to copy (zap) all the names        *   FILE 185
//*           from the IKJTSO00 PARMLIB member into this load       *   FILE 185
//*           module, or else you might find that you've lost       *   FILE 185
//*           authorization of some programs and/or commands.       *   FILE 185
//*                                                                 *   FILE 185
//*           Updated for OS/390 Version 2.6  (CBT421)              *   FILE 185
//*                                                                 *   FILE 185
//***FILE 186 is from Sam Golob and contains load modules for a     *   FILE 186
//*           greatly expanded IKJTABLS to authorize programs       *   FILE 186
//*           and commands under TSO.  For TSO/E Release 2.1,       *   FILE 186
//*           2.2, and higher, this load module (and its aliases)   *   FILE 186
//*           can be used as is.  You may want to zap it to         *   FILE 186
//*           authorize more of your favorite programs.  Source     *   FILE 186
//*           is in File 185.  Put it in an authorized STEPLIB      *   FILE 186
//*           in your TSO logon proc.  Has to be SETCODE AC(1).     *   FILE 186
//*                                                                 *   FILE 186
//*           Updated for OS/390 Version 2.6.   (CBT421)            *   FILE 186
//*                                                                 *   FILE 186
//***FILE 187 WAS FROM THE FIRST NATIONAL BANK OF CHICAGO, AND HAS  *   FILE 187
//*           BEEN SIZABLY UPDATED BY SAM GOLOB.  THE "CVTCLIST"    *   FILE 187
//*           OR "CONVERT CLIST" PROGRAM CONVERTS ENTIRE            *   FILE 187
//*           CLIST LIBRARIES FROM EITHER THE FB-80 FORMAT TO       *   FILE 187
//*           THE VB-255 FORMAT OR VICE-VERSA.  GUESSWORK IS        *   FILE 187
//*           ELIMINATED, AND THE CONVERSION IS QUICK, AT ASSEMBLER *   FILE 187
//*           SPEED.  ESPECIALLY USEFUL IS THE VB-FB CONVERSION.    *   FILE 187
//*                                                                 *   FILE 187
//*   Note:  For logic to convert REXX execs from VB-255 to         *   FILE 187
//*          FB-80 format, please see the REXX8080 member of        *   FILE 187
//*          File 155.                                              *   FILE 187
//*                                                                 *   FILE 187
//*           THIS CODE HAS BEEN MODIFIED BY SAM GOLOB TO LEVEL     *   FILE 187
//*           V2R3M1 WITH KNOWN BUGS FIXED, AND WITH THE "LONG      *   FILE 187
//*           LINES" OF THE "255 FORMAT" PROPERLY FOLDED, SO THAT   *   FILE 187
//*           THE CONVERTED CLISTS EXECUTE IDENTICALLY TO THE WAY   *   FILE 187
//*           THE ORIGINAL CLISTS EXECUTED.  BUT REXX PROGRAMS      *   FILE 187
//*           WILL STILL HAVE TO BE EXAMINED BY HAND AFTER THE      *   FILE 187
//*           CONVERSION.  THIS PROGRAM WILL MAKE THAT PROCESS      *   FILE 187
//*           EASIER, BECAUSE IT FLAGS ALL MEMBERS WHICH HAD        *   FILE 187
//*           LONG LINES SPLIT, AND TELLS YOU HOW MANY SPLITS       *   FILE 187
//*           WERE DONE IN EACH MEMBER.  YOU'LL JUST HAVE TO        *   FILE 187
//*           LOOK AT EACH EXEC AND SEE WHICH LINES HAVE BEEN       *   FILE 187
//*           SPLIT "CLIST-STYLE".                                  *   FILE 187
//*                                                                 *   FILE 187
//*           THIS PROGRAM MAKES IT POSSIBLE TO EASILY CONVERT      *   FILE 187
//*           THE CLIST FORMATS OF ANY SHOP.  NOW, YOU ARE NOT      *   FILE 187
//*           "FROZEN" IN ANY ONE CLIST FORMAT.                     *   FILE 187
//*                                                                 *   FILE 187
//*           DEFAULT EXECUTION OF THIS PROGRAM IS TO REPLACE       *   FILE 187
//*           EXISTING MEMBERS IN THE OUTPUT LIBRARY.  IF YOU       *   FILE 187
//*           DON'T WANT TO REPLACE EXISTING MEMBERS, EXECUTE       *   FILE 187
//*           THE PROGRAM WITH PARM=ADD.                            *   FILE 187
//*                                                                 *   FILE 187
//*           THIS LEVEL OF THE CONVERT CLIST PROGRAM "CVTCLIST"    *   FILE 187
//*           HAS BEEN FIXED TO BECOME "THE" TOOL FOR ACCOMPLISHING *   FILE 187
//*           EASY CLIST PROGRAM CONVERSIONS BETWEEN THE TWO        *   FILE 187
//*           INCOMPATIBLE DCB FORMATS.                             *   FILE 187
//*                                                                 *   FILE 187
//*           SYSUT1 IS THE INPUT DDNAME AND SYSUT2 IS THE OUTPUT   *   FILE 187
//*           DDNAME FOR THIS PROGRAM.  THEY MUST BE OF DIFFERENT   *   FILE 187
//*           CLIST DCB FORMATS FROM EACH OTHER.  ONE DDNAME MUST   *   FILE 187
//*           BE FB-80 AND THE OTHER MUST BE VB-255.  ALL MEMBERS   *   FILE 187
//*           OF THE LIBRARY POINTED TO BY SYSUT1 WILL BE COPIED    *   FILE 187
//*           TO CONVERTED (AND RENUMBERED) MEMBERS IN THE SYSUT2   *   FILE 187
//*           LIBRARY.  THE PROGRAM FIGURES OUT FROM THE DCB        *   FILE 187
//*           INFORMATION OF EACH FILE, WHICH WAY TO DO THE         *   FILE 187
//*           CONVERSION.                                           *   FILE 187
//*                                                                 *   FILE 187
//*           THIS LEVEL OF CVTCLIST ALLOWS MEMBER REPLACEMENT TO   *   FILE 187
//*           TAKE PLACE IN THE SYSUT2 LIBRARY.  THAT PREVIOUSLY    *   FILE 187
//*           WAS NOT ALLOWED.  FORMERLY, THE SYSUT2 LIBRARY HAD    *   FILE 187
//*           TO BE EMPTY.  THE SYSPRINT DDNAME GIVES A REPORT      *   FILE 187
//*           SHOWING HOW MANY MEMBERS WERE ADDED TO THE SYSUT2     *   FILE 187
//*           DATASET, AND HOW MANY MEMBERS WERE REPLACED.          *   FILE 187
//*                                                                 *   FILE 187
//*           FOR VB-255 TO FB-80 CONVERSIONS, WHERE LONG LINES     *   FILE 187
//*           ARE SPLIT, ISPF STATISTICS ARE NOW ADJUSTED TO ADD    *   FILE 187
//*           THE NUMBER OF LINE SPLITS TO THE SIZE, PROVIDED THAT  *   FILE 187
//*           ISPF STATISTICS EXISTED FOR THE MEMBER IN THE FIRST   *   FILE 187
//*           PLACE.  IF THEY DIDN'T EXIST FOR A MEMBER, NOTHING    *   FILE 187
//*           IS DONE TO THE DIRECTORY ENTRY.                       *   FILE 187
//*                                                                 *   FILE 187
//*           NOW, WITH THIS CVTCLIST VERSION, IT IS POSSIBLE TO    *   FILE 187
//*           MERGE SEVERAL CLIST LIBRARIES WHILE CONVERTING        *   FILE 187
//*           THEM, BECAUSE MEMBER REPLACEMENT IS NOW ALLOWED.      *   FILE 187
//*                                                                 *   FILE 187
//*           NOW ALSO, WHEN CONVERTING VB-FB, ALL NUMERICS         *   FILE 187
//*           IN COLUMNS 81-88 ARE FLAGGED AND COUNTED, BECAUSE     *   FILE 187
//*           THEY MAY BE SPURIOUS SEQUENCE NUMBERS LEFT OVER       *   FILE 187
//*           AFTER A PREVIOUS FAULTY CONVERSION FROM FB TO VB.     *   FILE 187
//*           IF THERE WAS DATA IN COLUMNS 1-8, 73-80 ARE CHECKED   *   FILE 187
//*           TO SEE IF THEY ARE NUMERIC, INSTEAD OF 81-88.         *   FILE 187
//*                                                                 *   FILE 187
//*           AT THE PRESENT LEVEL, THE PROGRAM DOES NOT "STRIP"    *   FILE 187
//*           THESE NUMBERS OUT AND CONVERT THEM TO BLANKS.  IT     *   FILE 187
//*           MAY DO SO IN THE NEAR FUTURE UNDER CONTROL OF A       *   FILE 187
//*           PARM.  IF YOU REALLY WANT THE PROGRAM TO STRIP THESE  *   FILE 187
//*           NUMERICS OUT, YOU JUST HAVE TO UNCOMMENT ONE          *   FILE 187
//*           INSTRUCTION.                                          *   FILE 187
//*                                                                 *   FILE 187
//***FILE 188 IS FROM MR SHMUEL GOLOB.  IT CONTAINS A COPY OF       *   FILE 188
//*           HIS IBM SOURCE HANDLING SYSTEM CALLED SYMTAPE.        *   FILE 188
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT.  SEE THE       *   FILE 188
//*           MEMBER CALLED $$$DOC FOR ADDITIONAL INFORMATION.      *   FILE 188
//*                                                                 *   FILE 188
//*           INTRODUCTION.  ALMOST EVERYBODY WHO INSTALLS MVS      *   FILE 188
//*           GETS THE WHOLE COLLECTION OF OPTIONAL MATERIAL        *   FILE 188
//*           (SOURCE TAPES) FROM IBM, WHICH HE ALMOST NEVER        *   FILE 188
//*           USES, UNLESS HE IS ONE OF THE FEW WHO HAS             *   FILE 188
//*           OCCASION TO REFER TO THEM.  THERE ARE A LOT OF        *   FILE 188
//*           TAPES, FIRST OF ALL.  SECOND OF ALL, MANY OF THE      *   FILE 188
//*           MODULES QUICKLY BECOME OBSOLETE, BECAUSE OF NEW       *   FILE 188
//*           PTF LEVELS OF THE MODULE.  THE MOST USEFUL PARTS      *   FILE 188
//*           OF THE COLLECTION ARE PROBABLY THE IBM PRIVATE        *   FILE 188
//*           MACROS, WHICH ONE MAY SOMETIMES USE TO WRITE          *   FILE 188
//*           SYSTEM CODE, AND THE ASSEMBLER LANGUAGE CODE FOR      *   FILE 188
//*           SYSTEM TABLES, SUCH AS IKJEFTE2 AND THE LIKE,         *   FILE 188
//*           WHICH CAN BE USED TO CODE USERMODS TO THE             *   FILE 188
//*           SYSTEM, SAY, IF YOU WANT TO EXPAND THE TABLE.         *   FILE 188
//*                                                                 *   FILE 188
//*           THIS SYSTEM MAKES ANY PART OF THIS SOURCE EASILY      *   FILE 188
//*           ACCESSIBLE.                                           *   FILE 188
//*                                                                 *   FILE 188
//*           ANOTHER SYSTEM, WHICH WAS WRITTEN BY CHUCK GLASS      *   FILE 188
//*           OF WESTERN UNION INTERNATIONAL, DOES THE SAME         *   FILE 188
//*           KIND OF THING, ALTHOUGH IT IS COMPLETELY              *   FILE 188
//*           DIFFERENT IN DESIGN.  YOU CAN TAKE YOUR CHOICE        *   FILE 188
//*           AS TO WHAT'S MORE CONVENIENT TO SET UP AND USE.       *   FILE 188
//*                                                                 *   FILE 188
//*           SEE FILE 189 FOR A SAMPLE LISTING OF SOME OF THE      *   FILE 188
//*           OUTPUT.                                               *   FILE 188
//*                                                                 *   FILE 188
//*           NEW DEVELOPMENT -- THE ARCHIVER VERSION 5.0 ON        *   FILE 188
//*           FILE 147 IS PROBABLY THE BEST MEANS NOW, OF DOING     *   FILE 188
//*           IBM SOURCE CODE HANDLING.        SG                   *   FILE 188
//*                                                                 *   FILE 188
//***FILE 189 IS FROM MR SHMUEL GOLOB.                              *   FILE 189
//*           IT CONTAINS A SMALL EXAMPLE OF THE OUTPUT PRODUCED    *   FILE 189
//*           BY THE CODE IN FILE 188 OF THIS TAPE.  THIS FILE      *   FILE 189
//*           IS IN IEBCOPY FORMAT AND IS LRECL=133 BLKSIZE=15428   *   FILE 189
//*           RECFM=FBA                                             *   FILE 189
//*                                                                 *   FILE 189
//***FILE 190 IS THE VSMDUMP UTILITY FROM ROBERT STYMA OF AGCS      *   FILE 190
//*           IN PHOENIX, ARIZONA.  THIS UTILITY SHOWS WHO TOOK     *   FILE 190
//*           POSSESSION OF VARIOUS PARTS OF CSA.  THIS TOOL CAN    *   FILE 190
//*           BE RUN EITHER AGAINST THE CURRENT ADDRESS SPACE,      *   FILE 190
//*           OR UNDER IPCS AGAINST A DUMP.  VERY USEFUL AND        *   FILE 190
//*           CAN BE A LIFE SAVER.                                  *   FILE 190
//*                                                                 *   FILE 190
//*         ROBERT E. STYMA                                         *   FILE 190
//*         PRINCIPAL ENGINEER                                      *   FILE 190
//*         AG COMMUNICATION SYSTEMS, PHOENIX -                     *   FILE 190
//*             A SUBSIDIARY OF LUCENT                              *   FILE 190
//*         EMAIL: STYMAR@AGCS.COM                                  *   FILE 190
//*         PHONE: 623-582-7323                                     *   FILE 190
//*         FAX:   623-581-4884                                     *   FILE 190
//*         COMPANY:  HTTP://WWW.AGCS.COM                           *   FILE 190
//*                                                                 *   FILE 190
//***FILE 191 IS FROM WALT SAPP OF THE CALIFORNIA HEALTH AND        *   FILE 191
//*           WELFARE DATA CENTER IN SACRAMENTO, CALIFORNIA.        *   FILE 191
//*           THIS FILE CONTAINS CODE TO PUT ALL KINDS OF JOBCARD   *   FILE 191
//*           INFORMATION INTO STARTED TASKS, UNDER JES2.  ALLOWS   *   FILE 191
//*           STARTED TASKS TO BE MONITORED BY ACCOUNTING SYSTEMS   *   FILE 191
//*           SIMILARLY TO BATCH JOBS.                              *   FILE 191
//*                                                                 *   FILE 191
//*           STARTED TASK ACCOUNTING.                              *   FILE 191
//*                                                                 *   FILE 191
//***FILE 192 IS CODE WHICH IS A GENERALIZED RECOVERY ROUTINE       *   FILE 192
//*           FROM MITCHELL MARX AND PENELOPE DAVIS OF MD-PALADIN   *   FILE 192
//*           INCORPORATED IN NEW YORK CITY.  THIS IS MACHINE       *   FILE 192
//*           READABLE CODE FROM A PRESENTATION GIVEN AT SHARE 79   *   FILE 192
//*           AND SHARE 80.  THE CODE IN THIS ROUTINE CAN BE USED   *   FILE 192
//*           AS EITHER AN ESTAEX ROUTINE, AN FRR (FUNCTIONAL       *   FILE 192
//*           RECOVERY ROUTINE) OR AN ARR (ASSOCIATED RECOVERY      *   FILE 192
//*           ROUTINE IN ACCESS REGISTER MODE).                     *   FILE 192
//*                                                                 *   FILE 192
//***FILE 193 is from Steinar Aasland, formerly of Kvaerner         *   FILE 193
//*           Engineering in Lysaker, Norway, and contains a        *   FILE 193
//*           tape copying program called TCOPY.  This is an        *   FILE 193
//*           old program.                                          *   FILE 193
//*                                                                 *   FILE 193
//*           This program can list the contents of a tape, or      *   FILE 193
//*           copy it to another tape.  It has some features that   *   FILE 193
//*           are not so often found in tape copy programs.         *   FILE 193
//*                                                                 *   FILE 193
//*           Fixed to be able to copy 64K block size on a tape,    *   FILE 193
//*           by Sam Golob.  Also cleaned up some assembly errors   *   FILE 193
//*           for ASMA90.  The macro processor is now a little      *   FILE 193
//*           less forgiving.  Shorter strings now always compare   *   FILE 193
//*           as less, so to be accurate, you have to pad them      *   FILE 193
//*           to the same length.                                   *   FILE 193
//*                                                                 *   FILE 193
//*           I have now placed the TCOPY load module on File 035.  *   FILE 193
//*                                                                 *   FILE 193
//*           For help concerning this file, you may contact:       *   FILE 193
//*                                                                 *   FILE 193
//*           Sam Golob                                             *   FILE 193
//*           P.O. Box 906                                          *   FILE 193
//*           Tallman, NY  10982  USA                               *   FILE 193
//*                                                                 *   FILE 193
//*           email:  sbgolob@attglobal.net  or sbgolob@aol.com     *   FILE 193
//*                                                                 *   FILE 193
//***FILE 194 IS A SET OF CUT AND PASTE MACROS FROM JIM MARSHALL    *   FILE 194
//*           OF THE U.S. TREASURY DEPARTMENT IN HYATTSVILLE,       *   FILE 194
//*           MARYLAND.  THESE ARE EDIT MACROS TO BE USED UNDER     *   FILE 194
//*           ISPF.                                                 *   FILE 194
//*                                                                 *   FILE 194
//***FILE 195 IS FROM ELI DUTTMAN OF EDUTCO IN FOREST HILLS, NEW    *   FILE 195
//*           YORK.  THIS FILE CONTAINS A SMALL COLLECTION OF       *   FILE 195
//*           (EITHER) CLEVER OR SIMPLE CLISTS.  BUT THEY ARE       *   FILE 195
//*           HANDY.  GIVES YOU AN IDEA OF WHAT YOU CAN DO FOR      *   FILE 195
//*           YOURSELF, OR YOU CAN USE THESE OUT OF THE BOX.        *   FILE 195
//*                                                                 *   FILE 195
//*    "HANDY CLIST" PACKAGE.                                       *   FILE 195
//*                                                                 *   FILE 195
//*    THIS SMALL COLLECTION OF CLISTS ACCOMPLISHES HANDY THINGS    *   FILE 195
//*    IN A SURPRISINGLY SIMPLE WAY.  IN SEVERAL OF THESE CLISTS,   *   FILE 195
//*    UNCANNY ADVANTAGE IS TAKEN OF THE ISPF "SELECT" SERVICE.     *   FILE 195
//*    IF YOU LOOK AT THE CLISTS, YOU'LL SEE THAT MOST OF THEM ARE  *   FILE 195
//*    'NO BRAINERS', BUT BOY DO THEY WORK!                         *   FILE 195
//*                                                                 *   FILE 195
//*    CONTENTS OF THE COLLECTION IS AS FOLLOWS:                    *   FILE 195
//*                                                                 *   FILE 195
//*    $ELECT   -  GENERALIZED CLIST TO INVOKE THE ISPF SELECT      *   FILE 195
//*                SERVICE.  THIS WORKS FOR PROGRAMS, PANELS, AND   *   FILE 195
//*                COMMANDS.                                        *   FILE 195
//*                                                                 *   FILE 195
//*    COMPRESS -  CLIST TO ACCOMPLISH THE COMPRESSION OF A PDS,    *   FILE 195
//*                USING SHARED ALLOCATION ONLY.  WORKS ONLY        *   FILE 195
//*                UNDER ISPF.  AUTHORIZATION IS RETAINED           *   FILE 195
//*                BECAUSE THE ISPF SELECT SERVICE IS USED TO       *   FILE 195
//*                CALL IEBCOPY.                                    *   FILE 195
//*                                                                 *   FILE 195
//*    LOGOF    -  FIXES "FAT FINGER" ERRORS WHEN LOGGING OFF TSO.  *   FILE 195
//*                'NO BRAINER' NUMBER ONE.                         *   FILE 195
//*                                                                 *   FILE 195
//*    LOGO     _    AN ALIAS FOR LOGOF                             *   FILE 195
//*                                                                 *   FILE 195
//*    X        _    AN ALIAS FOR LOGOF                             *   FILE 195
//*                                                                 *   FILE 195
//*    RELOG    -  LOGS THE CURRENT USER BACK ON TO TSO WITHOUT     *   FILE 195
//*                KILLING THE CURRENT ADDRESS SPACE.               *   FILE 195
//*                                                                 *   FILE 195
//*    T$TDIALG -  ENTERS ISPF DIALOG MANAGER TEST FUNCTION FOR     *   FILE 195
//*                THE CURRENT APPLICATION.  LIKE PDF OPTION 7,     *   FILE 195
//*                BUT NOT APPLID(ISR).                             *   FILE 195
//*                                                                 *   FILE 195
//*    WHOAMI   -  THE 'NO BRAINER' OF THEM ALL, BUT HANDY.         *   FILE 195
//*                TELLS YOU WHO IS LOGGED ON TO THE TUBE.          *   FILE 195
//*                                                                 *   FILE 195
//*       AUTHOR:   ELI DUTTMAN                                     *   FILE 195
//*                 EDUTCO                                          *   FILE 195
//*                 72-36 112TH STREET                              *   FILE 195
//*                 FOREST HILLS, NY 11375                          *   FILE 195
//*                 (718) 261-2440                                  *   FILE 195
//*                                                                 *   FILE 195
//***FILE 196 IS FROM SAM GOLOB AND IS A DYNAMIC JES2 EXIT          *   FILE 196
//*           LOADER FOR JES2 VERSION 4.X.  THIS PROGRAM IS         *   FILE 196
//*           EXECUTED FROM THE SYSTEM CONSOLE USING THE $LOAD      *   FILE 196
//*           COMMAND, AND WILL DYNAMICALLY REPLACE THE CURRENTLY   *   FILE 196
//*           RUNNING COPY OF A JES2 EXIT WHICH IS LOADED INTO      *   FILE 196
//*           THE JES2 ADDRESS SPACE.  LPA AND CSA LOADED EXITS     *   FILE 196
//*           ARE NOT CURRENTLY SUPPORTED.                          *   FILE 196
//*                                                                 *   FILE 196
//*           THE EXIT IS REPLACED WITHOUT A JES2 HOT START, AND    *   FILE 196
//*           OTHER JES2 FUNCTIONS WHICH ARE RUNNING, ARE NOT       *   FILE 196
//*           DISTURBED BY THE INVOCATION OF THE $LOAD COMMAND.     *   FILE 196
//*                                                                 *   FILE 196
//*           A JES2 VERSION 2.2.0 VERSION OF THIS EXIT MAY BE      *   FILE 196
//*           FOUND ON FILE 381 OF THIS TAPE.                       *   FILE 196
//*                                                                 *   FILE 196
//*           A VERSION OF THIS EXIT FOR JES2 VERSION 4.3 IS        *   FILE 196
//*           NOW INCLUDED IN THIS FILE.  MUCH THANKS TO JIM        *   FILE 196
//*           WILLIAMS FOR HIS CONTRIBUTION TO THESE VERSIONS.      *   FILE 196
//*                                                                 *   FILE 196
//* >>>>>   SEE FILE 198 FOR A BETTER JES2 EXIT LOADER PROGRAM      *   FILE 196
//* >>>>>   FROM BOB BREAK ....  THAT ONE WILL LOAD ANY JES2        *   FILE 196
//* >>>>>   EXIT --- NOT ONLY THOSE RESIDING IN THE JES2 ADDRESS    *   FILE 196
//* >>>>>   SPACE.                                                  *   FILE 196
//*                                                                 *   FILE 196
//***FILE 197 IS FROM HUGH HOSKINS OF ROCKWELL INTERNATIONAL IN     *   FILE 197
//*           SEAL BEACH, CALIFORNIA, AND IS A COLLECTION OF MODS   *   FILE 197
//*           TO IMS 3.1 THAT ARE ON ROCKWELL'S SYSTEM.  THIS IS    *   FILE 197
//*           A RATHER LARGE COLLECTION.  IF YOU HAVE ANY           *   FILE 197
//*           QUESTIONS, PLEASE CONTACT:                            *   FILE 197
//*                                                                 *   FILE 197
//*               HUGH HOSKINS                                      *   FILE 197
//*               ROCKWELL INTERNATIONAL                            *   FILE 197
//*               M/S 110-SE28                                      *   FILE 197
//*               P.O. BOX 2515                                     *   FILE 197
//*               2201 SEAL BEACH BLVD.                             *   FILE 197
//*               SEAL BEACH, CALIFORNIA 90740                      *   FILE 197
//*                                                                 *   FILE 197
//*               PHONE:    (310) 797-2835                          *   FILE 197
//*                                                                 *   FILE 197
//*       HUGH SAYS THAT AN EXPERIENCED IMS SYSTEMS PROGRAMMER      *   FILE 197
//*       SHOULD KNOW WHAT IS GOING ON.  SORRY THAT THERE'S NO      *   FILE 197
//*       BETTER DOCUMENTATION FOR NOW.                             *   FILE 197
//*                                                                 *   FILE 197
//***FILE 198 IS FROM BOB BREAK OF ST. LOUIS, MISSOURI, AND IS A    *   FILE 198
//*           JES2 EXIT LOADER PROGRAM WHICH RUNS AS A JES2 EXIT 5  *   FILE 198
//*           ROUTINE.  THIS PROGRAM SHOULD ASSEMBLE AND RUN FOR    *   FILE 198
//*           ALL RELEASES OF JES2 FROM MVS/ESA RELEASE 3 THROUGH   *   FILE 198
//*           THE OS/390 RELEASES THROUGH AT LEAST RELEASE 2.5.     *   FILE 198
//*                                                                 *   FILE 198
//*           THIS EXIT ALLOWS SUBSTITUTION ON THE FLY, THROUGH     *   FILE 198
//*           A NEW JES2 COMMAND, OF A NEW VERSION OF ANY JES2      *   FILE 198
//*           EXIT, WITHOUT HAVING TO RECYCLE JES2 OR IPL THE       *   FILE 198
//*           MVS SYSTEM.  ALL TYPES OF JES2 EXITS ARE SUPPORTED:   *   FILE 198
//*           JES2 ADDRESS SPACE, CSA RESIDENT, LPA RESIDENT.       *   FILE 198
//*                                                                 *   FILE 198
//*           THERE ARE 3 VERSIONS OF THE EXIT IN THIS PDS, ONE     *   FILE 198
//*           IS THE ORIGINAL BY BOB BREAK, AND ONE WAS MODIFIED    *   FILE 198
//*           BY JACK SCHUDEL OF THE UNIVERSITY OF FLORIDA.  THE    *   FILE 198
//*           VERSION BY BOB BREAK REQUIRES THAT THE NEW LOAD       *   FILE 198
//*           MODULE BE IN AN APF AUTHORIZED LINKLIST LIBRARY,      *   FILE 198
//*           WHILE THE VERSION BY JACK SCHUDEL EASES THIS          *   FILE 198
//*           RESTRICTION SOMEWHAT.  BOTH ARE PRESENTED HERE.       *   FILE 198
//*                                                                 *   FILE 198
//*           A NEW VERSION BY YAIR ELHARRAR OF BAR-ILAN UNIVERSIY  *   FILE 198
//*           IN TEL-AVIV, ISRAEL, REQUIRES ONLY THAT THE NEW       *   FILE 198
//*           VERSION RESIDE IN AN AUTHORIZED STEPLIB.              *   FILE 198
//*                                                                 *   FILE 198
//*               HASPEX05  -  BOB BREAK'S VERSION  (ORIGINAL)      *   FILE 198
//*               LOADEXIT  -  JACK SCHUDEL'S VERSION               *   FILE 198
//*                        (TAKEN FROM FILE 140 OF JES2 SHARE TAPE) *   FILE 198
//*               HASPEX5   -  YAIR ELHARRAR'S VERSION              *   FILE 198
//*                                                                 *   FILE 198
//*      THIS HASP EXIT 5 PROCESSES THE FOLLOWING INSTALLATION      *   FILE 198
//*      JES2 COMMANDS:                                             *   FILE 198
//*                                                                 *   FILE 198
//*      1. $REPEXIT - REPLACE A JES2 EXIT MODULE.  THE EXIT        *   FILE 198
//*                    ENVIRONMENT MAY BE "JES2", "SUBTASK",        *   FILE 198
//*                    "USER", OR "FSS".                            *   FILE 198
//*                                                                 *   FILE 198
//*      2. $ADDEXIT - ADD A JES2 EXIT MODULE.  THE EXIT            *   FILE 198
//*                    ENVIRONMENT MAY BE "JES2", "SUBTASK",        *   FILE 198
//*                    "USER", OR "FSS".                            *   FILE 198
//*                                                                 *   FILE 198
//*         AUTHOR                                                  *   FILE 198
//*         ------                                                  *   FILE 198
//*         BOB BREAK                                               *   FILE 198
//*         ST. LOUIS, MO.                                          *   FILE 198
//*         cb7485@momail.sbc.com                                   *   FILE 198
//*         bbreak@swbell.net                                       *   FILE 198
//*         314-340-9301                                            *   FILE 198
//*         314-845-2018                                            *   FILE 198
//*                                                                 *   FILE 198
//*         JACK SCHUDEL'S EMAIL:  schudel@ufl.edu                  *   FILE 198
//*                                                                 *   FILE 198
//*         YAIR ELHARRAR'S EMAIL:  yair@ashur.cc.biu.ac.il         *   FILE 198
//*                                                                 *   FILE 198
//***FILE 199 IS FROM DAVE COLE WHO IS NOW AT COLE SOFTWARE         *   FILE 199
//*           IN AFTON, VIRGINIA.                                   *   FILE 199
//*                                                                 *   FILE 199
//*    Dave Cole has updated most of his contributions, and         *   FILE 199
//*    they are available for direct download from his web          *   FILE 199
//*    site at www.colesoft.com.  The following list of             *   FILE 199
//*    his software is currently available there:                   *   FILE 199
//*                                                                 *   FILE 199
//*         Cole Software LLC's File Upload/Download Area           *   FILE 199
//*                                                                 *   FILE 199
//*       The following shareware is available for download         *   FILE 199
//*                                                                 *   FILE 199
//*      Filename   Platform            Description                 *   FILE 199
//*    asm2zap.zip   OS/390    A utility for converting an          *   FILE 199
//*                            assembly listing into SUPERZAP       *   FILE 199
//*                            cards.                               *   FILE 199
//*                                                                 *   FILE 199
//*    blksptrk.zip  OS/390    A TSO command that computes and      *   FILE 199
//*                            displays track capacities for any    *   FILE 199
//*                            IBM DASD device for any BLKSIZE,     *   FILE 199
//*                            with or without key fields.          *   FILE 199
//*                                                                 *   FILE 199
//*    macros.zip    OS/390    A set of Assembler/390 macros        *   FILE 199
//*                            needed for assembling the various    *   FILE 199
//*                            programs available from Cole         *   FILE 199
//*                            Software LLC.                        *   FILE 199
//*                                                                 *   FILE 199
//*    schedrun.zip  OS/390    A set of MVS programs for            *   FILE 199
//*                            scheduling the execution of System   *   FILE 199
//*                            Operator Commands on an interval     *   FILE 199
//*                            or calander basis. Can be used to    *   FILE 199
//*                            control production scheduling.       *   FILE 199
//*                                                                 *   FILE 199
//*    xrefasm.zip   OS/390    A pair of programs for producing     *   FILE 199
//*                            master cross-reference listings      *   FILE 199
//*                            for multi-assembly programs.         *   FILE 199
//*                                                                 *   FILE 199
//*               COLE SOFTWARE LLC                                 *   FILE 199
//*               736 Fox Hollow Road Afton, VA 22920               *   FILE 199
//*               540-456-8210 540-456-6658: FAX                    *   FILE 199
//*                                                                 *   FILE 199
//*             E-MAIL  :   CSWstaff@cfw.com                        *   FILE 199
//*             INTERNET:   http://www.colesoft.com                 *   FILE 199
//*                                                                 *   FILE 199
//*    COLE SOFTWARE          WEB PAGE: HTTP://WWW.COLESOFT.COM     *   FILE 199
//*    736 FOX HOLLOW ROAD    VOICE:    540-456-8536                *   FILE 199
//*    AFTON, VA 22920        FAX:      540-456-6658                *   FILE 199
//*                                                                 *   FILE 199
//*     THIS FILE CONTAINS SEVERAL TSO COMMAND PROCESSORS.          *   FILE 199
//*     THEY ARE:                                                   *   FILE 199
//*                                                                 *   FILE 199
//*     THE BLKSPTRK COMMAND CAN BE USED TO DISPLAY TRACK           *   FILE 199
//*     CAPACITIES FOR ANY DASD DEVICE FOR ANY COMBINATION OF       *   FILE 199
//*     KEY LENGTHS,  BLOCK SIZES,  AND / OR BLOCK COUNTS.          *   FILE 199
//*                                                                 *   FILE 199
//*     THE CMDPGM COMMAND PROVIDES AN EASY TO USE MEANS OF         *   FILE 199
//*     INVOKING (FROM TSO) ARBITRARY TSO COMMANDS OR               *   FILE 199
//*     "BATCH" PROGRAMS OUT OF ARBITRARY LIBRARIES IN EITHER A     *   FILE 199
//*     NON-AUTHORIZED MODE OR AN AUTHORIZED MODE.                  *   FILE 199
//*                                                                 *   FILE 199
//*     ALL OF THE CMDPGM FUNCTIONS ARE CAPABLE OF ESTABLISHING     *   FILE 199
//*     ANY DESIRED LOAD LIBRARY AS A "TASK-LIBRARY" DURING         *   FILE 199
//*     THE EXECUTION OF YOUR CHOSEN COMMAND OR PROGRAM.            *   FILE 199
//*     TASK-LIBRARIES FUNCTION EXACTLY LIKE JOB-LIBRARIES OR       *   FILE 199
//*     STEP-LIBRARIES,  SO THIS CAPABILITY RELIEVES THE NEED       *   FILE 199
//*     OF A "STEPLIB" MOD FOR TSO.                                 *   FILE 199
//*                                                                 *   FILE 199
//*     DAVE COLE'S PROGRAMS REQUIRE DAVE COLE'S MACROS FOR         *   FILE 199
//*     ASSEMBLY, WHICH MAY BE FOUND ON FILE 408.                   *   FILE 199
//*                                                                 *   FILE 199
//***FILE 200 is from TWA and contains the following programs:      *   FILE 200
//*                                                                 *   FILE 200
//*    Most of these programs were written by Rex Widmer and/or     *   FILE 200
//*    Peter Farrell.                                               *   FILE 200
//*                                                                 *   FILE 200
//*    Some fixes were made by Roland Schiradin and Sam Golob.      *   FILE 200
//*    These were just so the programs would work.  The COBOL       *   FILE 200
//*    load module programs still need modernization.               *   FILE 200
//*                                                                 *   FILE 200
//*    WHATSNEW  THIS PROGRAM ANALYZES A PDS AND LISTS              *   FILE 200
//*              THE MEMBERS IN MOST RECENTLY CHANGED ORDER         *   FILE 200
//*              A CHANGE IS CONSTITUTED TO MEAN A RE-LINKEDIT,     *   FILE 200
//*              OR A CHANGE BY SUPERZAP.  IT IS DRIVEN BY THE      *   FILE 200
//*              IDR DATA RECORDS WITHIN THE PDS.                   *   FILE 200
//*                                                                 *   FILE 200
//*              (Program updated for DFSORT Release 13.0 and       *   FILE 200
//*              OS/390 Rel 2.6.  OLD VERSION STILL INCLUDED.)      *   FILE 200
//*                                                                 *   FILE 200
//*              This version needs Y2D sort parameter to be        *   FILE 200
//*              supported.                                         *   FILE 200
//*                                                                 *   FILE 200
//*    WHEREUSD  THIS PROGRAM ANALYZES A PDS AND LISTS ALL MEMBERS  *   FILE 200
//*              WHICH CONTAIN A REFERENCE TO A GIVEN EXTERNAL      *   FILE 200
//*              SYMBOL.                                            *   FILE 200
//*                                                                 *   FILE 200
//*              Updated for Y2K - Format dates in header of the    *   FILE 200
//*                                report.                          *   FILE 200
//*                                                                 *   FILE 200
//*    COMPARE   THIS PROGRAM ANALYZES GIVEN MEMBERS WHICH EXIST IN *   FILE 200
//*              A PAIR OF PDS'S.  THE MEMBERS ARE CHECKED FOR      *   FILE 200
//*              DIFFERENCES AND FOR ADHERENCE TO INSTALLATION      *   FILE 200
//*              STANDARDS AS A PRE-IMPLEMENTATION Q/C MEASURE.     *   FILE 200
//*                                                                 *   FILE 200
//*    COBREAD   THIS PROGRAM ANALYZES A PDS AND LISTS ALL MEMBERS  *   FILE 200
//*              ALONG WITH THE COBOL ATTRIBUTES ASSOCIATED WITH    *   FILE 200
//*              THE MAIN CSECT WITHIN THE MODULE.  SUCH ITEMS AS   *   FILE 200
//*              COBOL / STATE / / FLOW / / OPTIMIZATION / /TEST/,  *   FILE 200
//*              / ENDJOB /,  AND  / DYNAM / ARE LISTED.            *   FILE 200
//*              THE ABILITY TO SELECTIVELY ANALYZE A SINGLE        *   FILE 200
//*              MEMBER IS ALSO SUPPORTED.                          *   FILE 200
//*                                                                 *   FILE 200
//*              I would suggest running COBANAL from File 321.     *   FILE 200
//*              That's a more modern program, which does the job   *   FILE 200
//*              better.   (SBG 03/00)                              *   FILE 200
//*                                                                 *   FILE 200
//*              This program must be linkedited AMODE 31 or ANY.   *   FILE 200
//*                                                                 *   FILE 200
//*    XREF1     THIS PROGRAM SCANS A PDS AND PRODUCES INTERMEDIATE *   FILE 200
//*              RECORDS TO ALLOW XREF2 TO CREATE A GLOBAL CROSS-   *   FILE 200
//*              REFERENCE OF EXTERNAL SYMBOLS IN THE PDS.  THIS    *   FILE 200
//*              REPORT PROVIDES INFORMATION OF THE FORM: CSECT IS  *   FILE 200
//*              CONTAINED IN THE FOLLOWING LOAD MODULES ...        *   FILE 200
//*                                                                 *   FILE 200
//*    XREF2     THIS IS THE REPORT PROGRAM TO PROCESS THE OUTPUT   *   FILE 200
//*              OF XREF1.  IT MAY HAVE MULTIPLE XREF1 FILES AS     *   FILE 200
//*              INPUT.  ALL INPUTS WILL BE MERGED WITHIN THE       *   FILE 200
//*              REPORT GENERATION PROCESS.                         *   FILE 200
//*                                                                 *   FILE 200
//***FILE 201 IS FROM BRUCE HULL OF BOEING COMPUTER SERVICES IN     *   FILE 201
//*           VIENNA, VIRGINIA, AND IS A CLIST USER EXIT IKJCT44B.  *   FILE 201
//*           THE PURPOSE OF THIS PARTICULAR EXIT IS TO EXTRACT     *   FILE 201
//*           OPERATING SYSTEM INFORMATION, SUCH AS LAST IPL DATE,  *   FILE 201
//*           AND PUT THESE THINGS INTO CLIST VARIABLES SO THEY     *   FILE 201
//*           CAN BE EASILY ACCESSED UNDER TSO.                     *   FILE 201
//*                                                                 *   FILE 201
//*        THIS PACKAGE ADDS CLIST VARIABLES THAT CONTAIN SYSTEM    *   FILE 201
//*        INFORMATION.  ONCE THESE VARIABLES HAVE BEEN ADDED TO    *   FILE 201
//*        YOUR SYSTEM, YOU CAN INQUIRE ON THEM WITH CLISTS AND     *   FILE 201
//*        UTILIZE OR DISPLAY THE SYSTEM INFORMATION.               *   FILE 201
//*                                                                 *   FILE 201
//*        FROM:  BRUCE HULL    M/S CV-34                           *   FILE 201
//*               BOEING COMPUTER SERVICES                          *   FILE 201
//*               7990 BOEING CT.                                   *   FILE 201
//*               VIENNA, VA 22182-3999                             *   FILE 201
//*               (703) 847-1187                                    *   FILE 201
//*               NASPA: HULLBRUR                                   *   FILE 201
//*                                                                 *   FILE 201
//*        SUBMISSION:  MVS TSO/E MODULE IKJCT44B - TSO/E           *   FILE 201
//*                     INSTALLATION-WRITTEN BUILT-IN FUNCTION      *   FILE 201
//*                                                                 *   FILE 201
//*        MODULE IKJCT44B PROVIDES THE FOLLOWING CLIST VARIABLES:  *   FILE 201
//*                                                                 *   FILE 201
//*        &SYSXACCT        CONTAINS THE ACCOUNT NUMBER USED TO     *   FILE 201
//*                         LOGON TO TSO.                           *   FILE 201
//*        &SYSXCPUH        CONTAINS THE NUMBER OF CPU SECONDS      *   FILE 201
//*                         USED DURING SESSION IN FORM SECONDSHH.  *   FILE 201
//*        &SYSXCPUTYPE     CONTAINS THE MACHINE TYPE OF THE CPU    *   FILE 201
//*                         THIS TSO SESSION IS EXECUTING ON.       *   FILE 201
//*        &SYSXDFP         CONTAINS THE LEVEL OF THE DFP PRODUCT   *   FILE 201
//*                         INSTALLED ON THE SYSTEM IN FORM VRRM.   *   FILE 201
//*        &SYSXIPLAT       CONTAINS THE DATE AND TIME OF THE       *   FILE 201
//*                         LAST IPL OF THE OPERATING SYSTEM.       *   FILE 201
//*        &SYSXLU          CONTAINS THE LU NAME (TERMINAL ID)      *   FILE 201
//*                         OF THE TERMINAL BEING USED OR NULL.     *   FILE 201
//*        &SYSXMVS         CONTAINS THE NAME AND SMP FUNCTION ID   *   FILE 201
//*                         OF THE MVS OPERATING SYSTEM BEING       *   FILE 201
//*                         USED.                                   *   FILE 201
//*        &SYSXRES         CONTAINS THE VOLUME SERIAL NUMBER OF    *   FILE 201
//*                         THE SYSTEM RESIDENCE VOLUME (SYSRES).   *   FILE 201
//*        &SYSXSERIAL      CONTAINS THE MACHINE SERIAL NUMBER OF   *   FILE 201
//*                         THE CPU THIS TSO SESSION IS EXECUTING   *   FILE 201
//*                         ON.                                     *   FILE 201
//*        &SYSXSMFID       CONTAINS THE SMF ID OF THE MVS          *   FILE 201
//*                         OPERATING SYSTEM THIS TSO SESSION       *   FILE 201
//*                         EXECUTING ON.                           *   FILE 201
//*                                                                 *   FILE 201
//*        MEMBERS OF THE PDS:                                      *   FILE 201
//*                                                                 *   FILE 201
//*        ASM        JCL USED TO ASSEMBLE THE OBJECT DECK          *   FILE 201
//*                   OBJCT44B.                                     *   FILE 201
//*        IKJCT44B   ASM DECK OF IKJCT44B.                         *   FILE 201
//*        OBJCT44B   OBJECT DECK OF IKJCT44B.                      *   FILE 201
//*        SESSION    A CLIST USED TO DEMONSTRATE USE OF THE NEW    *   FILE 201
//*                   VARIABLES.                                    *   FILE 201
//*        SYSTEM     A CLIST USED TO DEMONSTRATE USE OF THE NEW    *   FILE 201
//*                   VARIABLES.                                    *   FILE 201
//*        TS40084    A SMP/E USERMOD USED TO APPLY MOD IKJCT44B.   *   FILE 201
//*        VARIABLE   A SHORT DESCRIPTION OF ALL CLIST VARIABLES.   *   FILE 201
//*                   CAN BE USED FOR TSO HELP WITH THE HEL         *   FILE 201
//*                   COMMAND FROM FILE 134.                        *   FILE 201
//*                                                                 *   FILE 201
//***FILE 202 IS FROM MR GREG PRICE OF FERNTREE COMPUTER SERVICES   *   FILE 202
//*           IN MELBOURNE,  VICTORIA,  AUSTRALIA.                  *   FILE 202
//*                                                                 *   FILE 202
//*           THIS FILE IS IN IEBCOPY FORMAT AND CONTAINS DATA      *   FILE 202
//*           RELATED TO GREG'S IEFU83 EXIT WHICH SUPPLIES I/O      *   FILE 202
//*           COUNTS.  SOURCE FOR THIS EXIT IS IN FILE 134.         *   FILE 202
//*                                                                 *   FILE 202
//***FILE 203 IS FROM JIM MARSHALL OF THE DEPARTMENT OF THE         *   FILE 203
//*           TREASURY, FINANCIAL MANAGEMENT SERVICE IN             *   FILE 203
//*           HYATTSVILLE, MARYLAND.  THIS FILE CONTAINS HIS        *   FILE 203
//*           SOFTWARE TO TAKE A TMSGRW REPORT (CA-1 TAPE LIST)     *   FILE 203
//*           AND GENERATE STK SILO CARDS TO EJECT 21 OF THE        *   FILE 203
//*           TAPES AT A TIME.                                      *   FILE 203
//*                                                                 *   FILE 203
//*                  STK CARTRIDGE EJECT PACKAGE                    *   FILE 203
//*                                                                 *   FILE 203
//*           THE PURPOSE OF THIS PACKAGE IS TO START WITH A        *   FILE 203
//*      TMSGRW REPORT (A LIST OF TAPES) FROM THE CA-1 TAPE         *   FILE 203
//*      MANAGEMENT SYSTEM, AND PRODUCE A BUNCH OF STK CONTROL      *   FILE 203
//*      CARDS TO EJECT THESE TAPES FROM THE STK SILO, 21 TAPES     *   FILE 203
//*      AT A TIME.                                                 *   FILE 203
//*                                                                 *   FILE 203
//*           THAT'S ALL, FOLKS.                                    *   FILE 203
//*                                                                 *   FILE 203
//*           THIS SYSTEM CAN BE REWRITTEN FOR THE EQUIVALENT       *   FILE 203
//*      TLMS REPORT TO TMSGRW.                                     *   FILE 203
//*                                                                 *   FILE 203
//*           SEE THE JCL STREAM CALLED TMSEJECT IN THIS FILE,      *   FILE 203
//*      TO SEE HOW THIS STUFF IS STRUNG TOGETHER.  THERE ARE       *   FILE 203
//*      4 ASSEMBLER PROGRAMS.  THIS CODE HAS BEEN                  *   FILE 203
//*      'MODULARIZED' TO MAKE ITS MAINTENANCE SIMPLER.             *   FILE 203
//*                                                                 *   FILE 203
//*           IF YOU HAVE MORE THAN 5 SILOS, YOU HAVE TO            *   FILE 203
//*      ACCORDINGLY MODIFY PROGRAM STKESTK.                        *   FILE 203
//*                                                                 *   FILE 203
//*           GOOD LUCK !  IF YOU NEED HELP, CALL                   *   FILE 203
//*                                                                 *   FILE 203
//*                JIM MARSHALL, US TREASURY                        *   FILE 203
//*                FINANCIAL MANAGEMENT SERVICE                     *   FILE 203
//*                PRINCE GEORGES PLAZA II - ROOM 400B              *   FILE 203
//*                3700 EAST-WEST HIGHWAY                           *   FILE 203
//*                HYATTSVILLE, MD  20782                           *   FILE 203
//*                202-874-8353                                     *   FILE 203
//*                                                                 *   FILE 203
//***FILE 204 IS FROM KEN TOMIAK OF DOITT (DEPT OF INFORMATION      *   FILE 204
//*           TECHNOLOGY AND TELECOMMUNIATIONS) OF NEW YORK         *   FILE 204
//*           CITY  (FORMERLY CALLED CDCSA).  THIS PACKAGE          *   FILE 204
//*           CONTAINS THEIR MVS CROSS SYSTEM FACILITY.  THE        *   FILE 204
//*           FACILITY IS AN ISPF APPLICATION, WHICH HELPS TO       *   FILE 204
//*           MAINTAIN A SINGLE RES PACK OVER MANY SEPARATE         *   FILE 204
//*           LPARS.  MAINTENANCE LEVELS ARE KEPT, AND THE RES      *   FILE 204
//*           PACKS ARE PROPAGATED THROUGH AN ISPF-GENERATED        *   FILE 204
//*           CLONING PROCESS.                                      *   FILE 204
//*                                                                 *   FILE 204
//*                  CDCSA MVS CROSS SYSTEM FACILITY                *   FILE 204
//*                                                                 *   FILE 204
//*       OVERALL DESCRIPTION.                                      *   FILE 204
//*                                                                 *   FILE 204
//*            THE CDCSA MVS CROSS SYSTEM FACILITY IS AN ISPF       *   FILE 204
//*       APPLICATION WHICH IS DESIGNED TO HELP MAINTAIN A          *   FILE 204
//*       STANDARD MVS RESIDENCE PACK TO BE CLONED AND USED BY      *   FILE 204
//*       MANY SEPARATE LPARS.  THE APPLICATION IS CONSTRUCTED      *   FILE 204
//*       TO KEEP PROPER DOCUMENTATION OF THE MAINTENANCE LEVELS    *   FILE 204
//*       ON EACH SYSTEM THAT IS BEING RUN.  THERE ARE SOME         *   FILE 204
//*       OTHER ASPECTS OF THIS SYSTEM, AS YOU CAN DISCOVER         *   FILE 204
//*       WHILE YOU EXAMINE IT.                                     *   FILE 204
//*                                                                 *   FILE 204
//*            THIS SYSTEM MAKES LIFE MUCH EASIER IN OUR            *   FILE 204
//*       INTERNAL SERVICE BUREAU ENVIRONMENT THAT IS COMMONLY      *   FILE 204
//*       FOUND NOWADAYS IN STATE GOVERNMENTS, LARGE CITY           *   FILE 204
//*       GOVERNMENTS, AND CORPORATIONS THAT HAVE COMBINED          *   FILE 204
//*       SEPARATE DATA CENTERS.  THEY ARE NOW RUNNING LPARS        *   FILE 204
//*       INSTEAD, AT A SINGLE LARGE SITE.                          *   FILE 204
//*                                                                 *   FILE 204
//*            WE ALSO HAVE A CICS AND A DB2 ADAPTATION OF THIS     *   FILE 204
//*       SYSTEM.  THESE PACKAGES ARE NOW ON FILES 210 AND 211      *   FILE 204
//*       RESPECTIVELY.                                             *   FILE 204
//*                                                                 *   FILE 204
//*            SOME OF THE OVERALL PHILOSOPHY OF THIS SYSTEM        *   FILE 204
//*       IS DOCUMENTED IN THE SCRIPT FILE WHICH IS ON CBT          *   FILE 204
//*       TAPE FILE 205.                                            *   FILE 204
//*                                                                 *   FILE 204
//*            THE WAY WE HAVE IT HERE, EACH LPAR GETS A COMMON     *   FILE 204
//*       MVS RES PACK, AT A CERTAIN (TWO-DIGIT) MAINTENANCE        *   FILE 204
//*       LEVEL.  THIS RES PACK CAN BE "CLONED" FROM ANY ONE        *   FILE 204
//*       PACK TO ANY OTHER PACK.  FROM THE "XSYSALC" CLIST         *   FILE 204
//*       (WHICH CALLS UP PANEL "XSYSPNL"), THE OPTION M, FOR       *   FILE 204
//*       MIGRATIONS, WILL GENERATE THE RES-PACK CLONING JCL.       *   FILE 204
//*       AS PART OF THE CLONING PROCEDURE, NEW SMP/E TARGET        *   FILE 204
//*       ZONES ARE CREATED, WHICH REFLECT THE LEVELS OF THE        *   FILE 204
//*       CONTENTS OF ALL THE SYSTEM LIBRARIES ON THE PACK.         *   FILE 204
//*                                                                 *   FILE 204
//*            IT IS UP TO EACH INSTALLATION TO DECIDE WHICH        *   FILE 204
//*       DATASETS THEY WILL KEEP ON THE COMMON RES PACK, AND       *   FILE 204
//*       WHICH ONES WILL GO ON THE PARMLIB PACK THAT IS UNIQUE     *   FILE 204
//*       FOR EACH LPAR.  THE LIST OF DATASETS ON OUR COMMON RES    *   FILE 204
//*       PACK FOR THE MVS/ESA 4.3 SYSTEM, IS INCLUDED AS MEMBER    *   FILE 204
//*       RESPACKD ON THIS FILE.  THE LIST OF DATASETS ON THE       *   FILE 204
//*       PARMLIB PACK IS INCLUDED AS MEMBER PRMPACKD ON THIS       *   FILE 204
//*       FILE.  THIS MAY HELP GIVE GUIDELINES ON "WHAT TO PUT      *   FILE 204
//*       WHERE".  GENERALLY, COMMON SMP-MAINTAINED LIBRARIES GO    *   FILE 204
//*       ON THE RES PACK.                                          *   FILE 204
//*                                                                 *   FILE 204
//*            THE UNIQUENESS OF EACH LPAR IS PROVIDED BY A         *   FILE 204
//*       SEPARATE PACK (MAINTAINED "BY HAND") WHICH HAS            *   FILE 204
//*       SYS1.PARMLIB, SYS1.PROCLIB, THE SYSTEM MASTER CATALOG,    *   FILE 204
//*       THE IODF, ETC.  WE ARE, AT THIS WRITING, RUNNING          *   FILE 204
//*       MVS/ESA RELEASE 4.1 IN PRODUCTION, SOON TO GO TO          *   FILE 204
//*       RELEASE 4.3.  I HAVE INCLUDED A MEMBER CALLED PARMLIB     *   FILE 204
//*       WHICH CONTAINS A FEW SELECTED SYS1.PARMLIB MEMBERS.       *   FILE 204
//*       PLEASE NOTE THE ORDER OF THE LINK LIST AND LPA LIST       *   FILE 204
//*       CONCATENATIONS.  SYSTEM SPECIFICITY CAN STILL BE          *   FILE 204
//*       PROPAGATED ON A COMMON RES PACK, DEPENDING ON THE         *   FILE 204
//*       ORDER OF THESE CONCATENATIONS.                            *   FILE 204
//*                                                                 *   FILE 204
//*            EACH SERVICE LEVEL IS CREATED ON TEST RES PACKS,     *   FILE 204
//*       OF WHICH WE HAVE SEVERAL.  THESE ARE THE PACKS THAT       *   FILE 204
//*       THE SMP IS DONE TO.  WE IPL THEM AS TEST SYSTEMS UNDER    *   FILE 204
//*       VM.  ONCE A GIVEN MAINTENANCE LEVEL IS FROZEN, THE        *   FILE 204
//*       APPROPRIATE TEST PACK IS CLONED TO A PRODUCTION RES       *   FILE 204
//*       PACK THAT IS IPL'ED, POINTING TO THE PRODUCTION           *   FILE 204
//*       PARMLIB PACK FOR ITS UNIQUENESS.                          *   FILE 204
//*                                                                 *   FILE 204
//*            A WORD ABOUT NAMING CONVENTIONS:  MOST OF THE        *   FILE 204
//*       MEMBERS OF THIS PDS:  CHANGES, CLIST, ETC. ARE            *   FILE 204
//*       IEBUPDTE-UNLOADED PDS'ES THEMSELVES.  THEY CAN BE         *   FILE 204
//*       PROPERLY RESTORED USING THE PDSLOAD PROGRAM FROM FILE     *   FILE 204
//*       093 OF THIS TAPE.  A SAMPLE PDSLOAD JOB IS MEMBER         *   FILE 204
//*       $PDSLOAD ON THIS FILE.  PDSLOAD WILL RESTORE EACH         *   FILE 204
//*       MEMBER'S ISPF STATISTICS.  IF YOU USE IEBUPDTE, THE       *   FILE 204
//*       ISPF STATISTICS WILL NOT BE STOWED.  THE ORIGINAL NAME    *   FILE 204
//*       FOR EACH OF THESE PDS'ES WAS PREFIXED BY XSYS.MVSESA.     *   FILE 204
//*       THEREFORE, THE ORIGINAL NAME FOR THE LIBRARY WHOSE        *   FILE 204
//*       NAME HERE IS CLIST, WAS "XSYS.MVSESA.CLIST".  YOU GET     *   FILE 204
//*       THE POINT.  THESE FULL NAMES WILL BE MENTIONED            *   FILE 204
//*       THROUGHOUT THIS PACKAGE, AND YOU MUST MAKE GLOBAL         *   FILE 204
//*       CHANGES TO THE XSYS.MVSESA PREFIX TO ADAPT THE PACKAGE    *   FILE 204
//*       TO YOUR OWN SYSTEM'S NAMING CONVENTIONS.  MEMBER          *   FILE 204
//*       LEVLLIST CAME FROM A PS DATASET CALLED                    *   FILE 204
//*       XSYS.MVSESA.LEVEL.LIST, WHICH IS MAINTAINED BY HAND.      *   FILE 204
//*                                                                 *   FILE 204
//*            ALL 80-BYTE LRECL PDS'ES FROM THE PACKAGE HAVE       *   FILE 204
//*       BEEN MADE INTO MEMBERS ON THIS FILE.  THERE WAS ONE       *   FILE 204
//*       OTHER PDS, CALLED XSYS.MVSESA.SCRIPT, WHOSE LRECL IS      *   FILE 204
//*       147 AND WHICH WILL BE SEPARATELY PLACED IN FILE 205 OF    *   FILE 204
//*       THE CBT TAPE.                                             *   FILE 204
//*                                                                 *   FILE 204
//*            TO SET UP THIS PACKAGE, LOOK AT MEMBER XSYSALC IN    *   FILE 204
//*       THE CLIST LIBRARY.  THE CLIST "XSYSALC" SETS              *   FILE 204
//*       EVERYTHING ELSE IN MOTION.  THINGS START FROM THERE.      *   FILE 204
//*       IT SHOULD BE OBVIOUS HOW THE LIBRARIES OUGHT TO BE SET    *   FILE 204
//*       UP.  AS WE MENTIONED BEFORE, YOU HAVE TO MAKE GLOBAL      *   FILE 204
//*       CHANGES TO THE DATASET PREFIX NAMES WHEN YOU SET THIS     *   FILE 204
//*       UP ON YOUR OWN SYSTEM.  TO MY KNOWLEDGE, THESE NAMES      *   FILE 204
//*       ARE HARD CODED.  IF YOU THINK SOME OF THE INGREDIENTS     *   FILE 204
//*       ARE MISSING, PLEASE CALL SAM GOLOB AT                     *   FILE 204
//*        NEW PHONE NUMBER:   845-362-1996                         *   FILE 204
//*                                                                 *   FILE 204
//*       (IF MY CONTACT INFORMATION BECOMES OBSOLETE, PLEASE       *   FILE 204
//*        CALL THE MEMBERSHIP OFFICER AT NASPA 414-768-8000        *   FILE 204
//*        WHERE I INTEND TO LEAVE MY NEW INFORMATION.   SG)        *   FILE 204
//*                                                                 *   FILE 204
//*            FROM THE XSYSPNL PANEL, OPTION D BROWSES A PDS       *   FILE 204
//*       CALLED XSYS.PGMDIR WHERE WE HAVE PUT OUR IPO1.PGMDIR      *   FILE 204
//*       MEMBERS.  OPTION E INVOKES ISPF 3.4 AGAINST PREFIX        *   FILE 204
//*       XSYS.MVSESA.*.  OPTION IVP INVOKES ISPF 3.4 AGAINST       *   FILE 204
//*       SOME DATASETS NAMED XSYS.---.IVPLIB, WHICH CONTAIN        *   FILE 204
//*       JOBSTREAMS TO TEST THE NEW SYSTEMS IN VARIOUS LPAR        *   FILE 204
//*       ENVIRONMENTS.  THESE DATASETS ARE NOT BEING INCLUDED      *   FILE 204
//*       HERE.                                                     *   FILE 204
//*                                                                 *   FILE 204
//*            I THINK THE MOST IMMEDIATELY INTERESTING PART OF     *   FILE 204
//*       THIS SYSTEM IS THE M OPTION TO GENERATE THE JCL THAT      *   FILE 204
//*       DOES THE RES PACK CLONING.  THE OTHER THINGS ARE          *   FILE 204
//*       CONVENIENT ADD-ONS IN MY OPINION, ALTHOUGH I AM GLAD      *   FILE 204
//*       THEY ARE THERE.                                           *   FILE 204
//*                                                                 *   FILE 204
//*            TO RUN THE CLONING JOBS, YOU HAVE TO SET UP THE      *   FILE 204
//*       CHANGES LIBRARY, BECAUSE THIS LIBRARY IS AUTOMATICALLY    *   FILE 204
//*       UPDATED EVERY TIME YOU RUN A CLONING JOB.                 *   FILE 204
//*                                                                 *   FILE 204
//*            THIS PACKAGE WAS WRITTEN BY JOEL PERLMAN AND KEN     *   FILE 204
//*       TOMIAK AT CDCSA (COMPUTER AND DATA COMMUNICATONS          *   FILE 204
//*       SERVICES AGENCY) OF NEW YORK CITY, WHILE THEY WERE        *   FILE 204
//*       WORKING FOR IBM AND UNDER CONTRACT TO NEW YORK CITY.      *   FILE 204
//*       ALL THE REQUISITE PERMISSIONS FOR INCLUSION ON THE CBT    *   FILE 204
//*       MVS UTILITIES TAPE, TO MY BEST KNOWLEDGE, HAVE BEEN       *   FILE 204
//*       GRANTED.                                                  *   FILE 204
//*                                                                 *   FILE 204
//*       IF YOU HAVE QUESTIONS, PLEASE CONTACT:                    *   FILE 204
//*                                                                 *   FILE 204
//*           SAM GOLOB             EMAIL:  sbgolob@aol.com         *   FILE 204
//*                                         sbgolob@attglobal.net   *   FILE 204
//*        NEW PHONE NUMBER:   845-362-1996                         *   FILE 204
//*                                                                 *   FILE 204
//***FILE 205 IS FROM KEN TOMIAK OF DOITT (DEPT OF INFORMATION      *   FILE 205
//*           TECHNOLOGY AND TELECOMMUNIATIONS) OF NEW YORK         *   FILE 205
//*           CITY  (FORMERLY CALLED CDCSA).  THIS FILE CONTAINS    *   FILE 205
//*           SCRIPT FILES WHICH HELP DOCUMENT THE MVS CROSS        *   FILE 205
//*           SYSTEM FACILITY THAT IS ON FILE 204 OF THIS TAPE.     *   FILE 205
//*           THIS FILE IS IN IEBCOPY FORMAT, AND HAS LRECL=147.    *   FILE 205
//*                                                                 *   FILE 205
//***FILE 206 IS FROM LINNEA NICHOLS OF THE FAIRFAX COUNTY          *   FILE 206
//*           GOVERNMENT IN FAIRFAX, VIRGINIA.  THIS FILE CONTAINS  *   FILE 206
//*           HER COLLECTION OF MOSTLY REXX ROUTINES TO HELP DASD   *   FILE 206
//*           STORAGE ADMINISTRATORS IN VARIOUS WAYS.  THE AIM OF   *   FILE 206
//*           THIS COLLECTION IS TO USE DCOLLECT DATA TO FIND OUT   *   FILE 206
//*           AND FORMAT ALL KINDS OF USEFUL INFORMATION.           *   FILE 206
//*                                                                 *   FILE 206
//*   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   *   FILE 206
//*                                                                 *   FILE 206
//*                   DCOLLECT REXX ROUTINES                        *   FILE 206
//*                                                                 *   FILE 206
//*        LINNEA NICHOLS                                           *   FILE 206
//*        FAIRFAX COUNTY GOVERNMENT                                *   FILE 206
//*        12000 GOVERNMENT CENTER PKWY                             *   FILE 206
//*        FAIRFAX, VA 22035                                        *   FILE 206
//*        703/324-2708                                             *   FILE 206
//*                                                                 *   FILE 206
//*        email:   lnicho@co.fairfax.va.us                         *   FILE 206
//*                                                                 *   FILE 206
//*        THIS FILE CONTAINS THE FOLLOWING MEMBERS:                *   FILE 206
//*                                                                 *   FILE 206
//*        $$PCDOC       YOU ARE READING IT                         *   FILE 206
//*                                                                 *   FILE 206
//*        REXXRTN       CONTAINS ALL REXX PROGRAMS.  NEEDS TO BE   *   FILE 206
//*                      UPLOADED TO A PS FILE (LRECL=80) AND THEN  *   FILE 206
//*                      UNLOADED TO A PDS USING IEBUPDTE.  SAMPLE  *   FILE 206
//*                      JCL TO UNLOAD IS IN $UPDJCL.  YOU WILL     *   FILE 206
//*                      NEED TO ALLOCATE A DSORG=PS, LRECL=80,     *   FILE 206
//*                      RECFM=FB FILE ON MVS TO UPLOAD REXXRTN     *   FILE 206
//*                      TO.  THEN RUN THE REXUPD JOB, BEING SURE   *   FILE 206
//*                      TO PUT IN YOUR OWN SYSIN AND SYSUT2 DATA   *   FILE 206
//*                      SET NAMES.  THE BEGINNING OF EACH PROGRAM  *   FILE 206
//*                      INCLUDES THE FOLLOWING: PURPOSE OF THE     *   FILE 206
//*                      REXX PROGRAM, INPUT FILES NEEDED, OUTPUT   *   FILE 206
//*                      FILES CREATED, AND PRESORT REQUIREMENTS.   *   FILE 206
//*                                                                 *   FILE 206
//*        PARSRTN       CONTAINS ROUTINES THAT CAN BE USED TO      *   FILE 206
//*                      PARSE RECORD TYPES D, M, C, V, T, AND B    *   FILE 206
//*                      AS WELL AS THE STANDARD HEADER.  NEEDS TO  *   FILE 206
//*                      BE UPLOADED TO A PS (LRECL=80) FILE AND    *   FILE 206
//*                      THEN UNLOADED TO A PDS USING IEBUPDTE.     *   FILE 206
//*                      SAMPLE JCL TO UNLOAD IT IS IN $UPDJCL.     *   FILE 206
//*                      USE THE SAME PROCEDURE AS DOCUMENTED FOR   *   FILE 206
//*                      REXXRTN.                                   *   FILE 206
//*                                                                 *   FILE 206
//*        $UPDJCL       SAMPLE JCL TO CREATE A PDS FROM THE PS     *   FILE 206
//*                      FILE YOU UPLOADED.                         *   FILE 206
//*                                                                 *   FILE 206
//*        DCOLJCL       SAMPLE JCL TO RUN DCOLLECT COLLECTION,     *   FILE 206
//*                      AND CREATE MOST OF THE FILES USED FOR      *   FILE 206
//*                      INPUT INTO THE REXX PROGRAMS.              *   FILE 206
//*                                                                 *   FILE 206
//*        IF YOU NEED HELP, HAVE SUGGESTIONS, OR JUST WANT         *   FILE 206
//*        TO TALK ABOUT DCOLLECT, PLEASE FEEL FREE TO CALL         *   FILE 206
//*        ME AT 703/324-2708 OR CONTACT ME VIA IBMMAIL AT          *   FILE 206
//*        US5RNFRN OR VIA INTERNET AT US5RNFRN@IBMMAIL.COM         *   FILE 206
//*                                                                 *   FILE 206
//*   THE ROUTINES INCLUDED ARE AS FOLLOWS:                         *   FILE 206
//*                                                                 *   FILE 206
//*     DASDVOLS                                                    *   FILE 206
//*         PURPOSE: READS TYPE V AND C RECORDS FOR VOLUME          *   FILE 206
//*                  DETAIL REPORT AND STORAGE GROUP SUMMARY        *   FILE 206
//*                  REPORT, READS TYPE T RECORDS FOR DFHSM         *   FILE 206
//*                  TAPE SUMMARY REPORT.                           *   FILE 206
//*                                                                 *   FILE 206
//*     DATERFSM                                                    *   FILE 206
//*         PURPOSE: READS TYPE D AND M RECORDS AND                 *   FILE 206
//*                  PRODUCES REPORTS OF DAYS FROM LAST             *   FILE 206
//*                  REFERENCE FOR THE FOLLOWING:                   *   FILE 206
//*                                                                 *   FILE 206
//*                     L0, ML1 AND ML2 DATA COMBINED               *   FILE 206
//*                     ALL L0 DATA                                 *   FILE 206
//*                     L0 SMS ONLY                                 *   FILE 206
//*                     L0 NONSMS ONLY                              *   FILE 206
//*                                                                 *   FILE 206
//*                  A DETAIL REPORT IS PRODUCED THAT LISTS         *   FILE 206
//*                  OUT ALL DSNS OLDER THAN 30 DAYS, NOT           *   FILE 206
//*                  INCLUDING VSAM INDEXES, VTOCS, VVDS,           *   FILE 206
//*                  PAGE AND TEMPORARY DSNS.                       *   FILE 206
//*                                                                 *   FILE 206
//*     DB2                                                         *   FILE 206
//*         PURPOSE: READS TYPE D RECORDS AND LISTS OUT ALL DB2     *   FILE 206
//*                  DSNS, INCLUDING VOLSER, CREATION DATE AND      *   FILE 206
//*                  ALLOCATED KBYTES.  TOTALS ALLOCATED KBYTES.    *   FILE 206
//*                                                                 *   FILE 206
//*     DCOLDREC                                                    *   FILE 206
//*         PURPOSE: PRINTS OUT DETAIL INFORMATION FOR EVERY        *   FILE 206
//*                  "D" AND "M" RECORD INPUT.                      *   FILE 206
//*                                                                 *   FILE 206
//*     DSORG                                                       *   FILE 206
//*         PURPOSE: BREAKOUT OF DATA SETS BY DSORG.  DONE BY       *   FILE 206
//*                  DSN COUNT AND BY KBYTES WITH PERCENTAGES.      *   FILE 206
//*                                                                 *   FILE 206
//*     ERRORS                                                      *   FILE 206
//*         PURPOSE: LISTS EVERY D RECORD THAT HAS ERROR BITS       *   FILE 206
//*                  SET.                                           *   FILE 206
//*                                                                 *   FILE 206
//*     EXPDT                                                       *   FILE 206
//*         PURPOSE: READS TYPE D AND M RECORDS FOR ALL DSNS        *   FILE 206
//*                  THAT HAVE AN EXPDT > 0.  (VSAM IS EXCLUDED     *   FILE 206
//*                  SINCE IT ALWAYS HAS AN EXPDT = 1999365).       *   FILE 206
//*                                                                 *   FILE 206
//*     HLQSUM                                                      *   FILE 206
//*         PURPOSE: READS DCOLLECT "D" "M" AND "B" RECORDS         *   FILE 206
//*                  AND PRODUCES A REPORT SUMMARIZED BY HLQ        *   FILE 206
//*                  OF BYTES ALLOCATED AT EACH LEVEL (L0,          *   FILE 206
//*                  ML1, AND ML2) AS WELL AS BACKUP BYTES.         *   FILE 206
//*                                                                 *   FILE 206
//*                  PRODUCES A SUMMARY REPORT OF THE FOLLOWING:    *   FILE 206
//*                                                                 *   FILE 206
//*                     TOTAL FROM VOLUME (V) RECORDS:              *   FILE 206
//*                        TOTAL AVAILABLE KBYTES                   *   FILE 206
//*                        TOTAL ALLOCATED KBYTES                   *   FILE 206
//*                        SMS AVAILABLE KBYTES                     *   FILE 206
//*                        SMS ALLOCATED KBYTES                     *   FILE 206
//*                                                                 *   FILE 206
//*                     TOTAL FROM D, M AND B RECORDS:              *   FILE 206
//*                        L0+ML1+ML2 DSN COUNT                     *   FILE 206
//*                        TOTAL L0 + ML1 + ML2 ALLOCATED           *   FILE 206
//*                        TOTAL BACKUP KBYTES                      *   FILE 206
//*                        L0 DSN COUNT                             *   FILE 206
//*                        L0 ALLOCATED KBYTES                      *   FILE 206
//*                        L0 USED KBYTES                           *   FILE 206
//*                        SMS DSN COUNT                            *   FILE 206
//*                        SMS ALLOCATED KBYTES                     *   FILE 206
//*                        ML1 DSN COUNT                            *   FILE 206
//*                        ML1 ALLOCATED KBYTES                     *   FILE 206
//*                        ML1 ORIGINAL KBYTES                      *   FILE 206
//*                        ML2 DSN COUNT                            *   FILE 206
//*                        ML2 ALLOCATED KBYTES                     *   FILE 206
//*                        ML2 ORIGINAL KBYTES                      *   FILE 206
//*                                                                 *   FILE 206
//*     MULTIVOL                                                    *   FILE 206
//*         PURPOSE: READS TYPE D RECORDS AND LISTS OUT             *   FILE 206
//*                  THE VOLSER AND DSN FOR ALL RECORDS             *   FILE 206
//*                  THAT HAVE A VOLUME SEQUENCE NUMBER > 1.        *   FILE 206
//*                                                                 *   FILE 206
//*     NONSMS                                                      *   FILE 206
//*         PURPOSE: READS TYPE D RECORDS AND LISTS OUT NON-SMS     *   FILE 206
//*                  DSNS AND THE VOLSER THEY ARE ON.  FOR EACH     *   FILE 206
//*                  HLQ, LISTS OUT NUMBER OF DATASETS, SIZE IN     *   FILE 206
//*                  KBYTES, SIZE FOR PRIME POOL (OURS IS           *   FILE 206
//*                  DEFINED AS <102400 KBYTES), SIZE FOR LARGE     *   FILE 206
//*                  POOL (ANY DSN >1024000 KBYTES), AND KBYTES     *   FILE 206
//*                  NOT REFERENCED IN THE LAST 30 DAYS.            *   FILE 206
//*                                                                 *   FILE 206
//***FILE 207 IS A FULL SCREEN EDITOR FROM CITIBANK OF NEW YORK,    *   FILE 207
//*          NEW YORK.  THIS DATA SET IS IN IEBUPDTE SYSIN FORMAT   *   FILE 207
//*          AND CONTAINS THE SOURCE MODULES AND DOCUMENTATION      *   FILE 207
//*          FOR THEIR 3270 FULL SCREEN EDITOR, WHICH IS ALSO AN    *   FILE 207
//*          INCORE EDITOR.  THIS IS A TSO FULL SCREEN EDITOR TO    *   FILE 207
//*          BE USED SOLELY FOR REMOTE AND LOCAL 3270 UNITS.  IT    *   FILE 207
//*          ALLOWS THE SIMULTANEOUS UPDATE AND BROWSE OF UP TO     *   FILE 207
//*          21 LINES OF A DATA SET, AND THE EXECUTION OF AN        *   FILE 207
//*          FSE/TSO COMMAND AT THE SAME TIME.                      *   FILE 207
//*                                                                 *   FILE 207
//***FILE 208 IS THE LSPC TSO COMMAND PROCESSOR FROM ART TANSKY     *   FILE 208
//*           OF SUNGARD IN VOORHEES, NEW JERSEY.  THIS COMMAND     *   FILE 208
//*           IS AN OUTGROWTH OF THE TSSPACE COMMAND FROM FILE      *   FILE 208
//*           127.                                                  *   FILE 208
//*                                                                 *   FILE 208
//*       LSPC IS A TSO COMMAND HIGHLY MODIFIED FROM ITS ORIGINS    *   FILE 208
//*       IN TSSPACE (FROM FILE 127 OF THE CBT TAPE).  THE LSPC     *   FILE 208
//*       COMMAND DISPLAYS ATTRIBUTES OF DEVICES.  IF THE DEVICE    *   FILE 208
//*       IS DIRECT ACCESS (DASD), SPACE INFORMATION AND MOUNT      *   FILE 208
//*       STATUS (PRIVATE, STORAGE, OR PUBLIC) WILL BE DISPLAYED.   *   FILE 208
//*       SPACE WILL BE DISPLAYED IN FORMAT OF FREE CYLS, FREE      *   FILE 208
//*       TRKS, NUMBER OF FREE EXTENTS, CONTIGUOUS CYLS AND         *   FILE 208
//*       CONTIGUOUS TRKS.                                          *   FILE 208
//*                                                                 *   FILE 208
//*       FULL INFORMATION AS TO OPTIONS, AND THE MEANINGS OF       *   FILE 208
//*       THE FLAGS (I RAN OUT OF ROOM ON THE OUTPUT LINE) IS       *   FILE 208
//*       IN THE HELP MEMBER (LSPCHELP).                            *   FILE 208
//*                                                                 *   FILE 208
//*       IF ANYONE HAS ANY UPDATES TO BE MADE TO THIS              *   FILE 208
//*       CODE, PLEASE SEND SUCH TO ME RATHER THAN HAVING           *   FILE 208
//*       SEVERAL VERSIONS OF THIS PROGRAM RUNNING AROUND.          *   FILE 208
//*                                                                 *   FILE 208
//*       STANDARD DISCLAIMER:                                      *   FILE 208
//*                                                                 *   FILE 208
//*          THIS CODE HAS WORKED AT SUNGARD.  THERE IS NO          *   FILE 208
//*       GUARANTEE THAT THE CODE WILL WORK ANYWHERE ELSE.          *   FILE 208
//*       NEITHER SUNGARD NOR THE AUTHOR MAY BE HELD REPONSIBLE     *   FILE 208
//*       FOR ANY DAMAGE CAUSED BY THIS CODE.                       *   FILE 208
//*                                                                 *   FILE 208
//*       ADDRESS:                                                  *   FILE 208
//*                                                                 *   FILE 208
//*                ART TANSKY                                       *   FILE 208
//*                SUNGARD                                          *   FILE 208
//*                600 LAUREL OAK ROAD                              *   FILE 208
//*                VOORHEES, NJ 08043                               *   FILE 208
//*                (609) 566-3611                                   *   FILE 208
//*                (609) 566-3656 (FAX)                             *   FILE 208
//*                                                                 *   FILE 208
//***FILE 209 IS A HEXADECIMAL AND DECIMAL CALCULATOR WRITTEN IN    *   FILE 209
//*           REXX, FROM ART TANSKY OF SUNGARD IN VOORHEES, NEW     *   FILE 209
//*           JERSEY.  THE CODE, AS IS, SHOULD RUN UNDER MVS, VM,   *   FILE 209
//*           PC-DOS, AND OS2.  ONCE YOU START EXECUTING THIS       *   FILE 209
//*           PROGRAM, TYPE "HELP", AND THEN "HELP FUNCTION",       *   FILE 209
//*           TO GET STARTED.                                       *   FILE 209
//*                                                                 *   FILE 209
//*           THIS PROGRAM HAS QUITE A FEW "INS AND OUTS" THAT      *   FILE 209
//*           YOU MAY DISCOVER AS YOU USE IT A LOT, OR AS YOU       *   FILE 209
//*           LOOK IN THE CODE.  QUITE HANDY TO HAVE AND USE.       *   FILE 209
//*                                                                 *   FILE 209
//*           THIS PROGRAM USES FLOATING POINT CALCULATIONS.        *   FILE 209
//*                                                                 *   FILE 209
//***FILE 210 IS FROM KEN TOMIAK OF DOITT (DEPT OF INFORMATION      *   FILE 210
//*           TECHNOLOGY AND TELECOMMUNIATIONS) OF NEW YORK         *   FILE 210
//*           CITY  (FORMERLY CALLED CDCSA).  THIS PACKAGE          *   FILE 210
//*           CONTAINS THEIR CICS CROSS SYSTEM FACILITY.  THIS      *   FILE 210
//*           IS AN ISPF APPLICATION WHICH ALLOWS ONE MAINTAINED    *   FILE 210
//*           LEVEL OF CICS (AND FIXES) TO BE PROPAGATED ACROSS     *   FILE 210
//*           MANY CICS REGIONS.                                    *   FILE 210
//*                                                                 *   FILE 210
//*           THIS SYSTEM IS AN ADAPTATION OF THE MVS CROSS         *   FILE 210
//*           SYSTEM FACILITY THAT IS ON FILE 204 OF THIS TAPE.     *   FILE 210
//*                                                                 *   FILE 210
//*           SOME OF THIS MATERIAL MAY REFERENCE MATERIALS         *   FILE 210
//*           WHICH ARE FOUND ON FILE 204.                          *   FILE 210
//*                                                                 *   FILE 210
//***FILE 211 IS FROM KEN TOMIAK OF DOITT (DEPT OF INFORMATION      *   FILE 211
//*           TECHNOLOGY AND TELECOMMUNIATIONS) OF NEW YORK         *   FILE 211
//*           CITY  (FORMERLY CALLED CDCSA).  THIS FILE CONTAINS    *   FILE 211
//*           SCRIPT FILES WHICH HELP DOCUMENT THE CICS CROSS       *   FILE 211
//*           SYSTEM FACILITY THAT IS ON FILE 210 OF THIS TAPE.     *   FILE 211
//*           THIS FILE IS IN IEBCOPY FORMAT, AND HAS LRECL=147.    *   FILE 211
//*                                                                 *   FILE 211
//***FILE 212 IS FROM KEN TOMIAK OF DOITT (DEPT OF INFORMATION      *   FILE 212
//*           TECHNOLOGY AND TELECOMMUNIATIONS) OF NEW YORK         *   FILE 212
//*           CITY  (FORMERLY CALLED CDCSA).  THIS PACKAGE          *   FILE 212
//*           CONTAINS THEIR DB2 CROSS SYSTEM FACILITY.  THIS       *   FILE 212
//*           IS AN ISPF APPLICATION WHICH ALLOWS ONE MAINTAINED    *   FILE 212
//*           LEVEL OF DB2 (AND FIXES) TO BE PROPAGATED ACROSS      *   FILE 212
//*           MANY DB2 ADDRESS SPACES.                              *   FILE 212
//*                                                                 *   FILE 212
//*           THIS SYSTEM IS AN ADAPTATION OF THE MVS CROSS         *   FILE 212
//*           SYSTEM FACILITY THAT IS ON FILE 204 OF THIS TAPE.     *   FILE 212
//*           THERE IS A LOT MORE DB2 MATERIAL HERE THAN CICS       *   FILE 212
//*           MATERIAL, BECAUSE KEN'S CURRENT WORK IS WITH DB2.     *   FILE 212
//*                                                                 *   FILE 212
//*           SOME OF THIS MATERIAL MAY REFERENCE MATERIALS         *   FILE 212
//*           WHICH ARE FOUND ON FILE 204.                          *   FILE 212
//*                                                                 *   FILE 212
//***FILE 213 IS FROM KEN TOMIAK OF DOITT (DEPT OF INFORMATION      *   FILE 213
//*           TECHNOLOGY AND TELECOMMUNIATIONS) OF NEW YORK         *   FILE 213
//*           CITY  (FORMERLY CALLED CDCSA).  THIS FILE CONTAINS    *   FILE 213
//*           SCRIPT FILES WHICH HELP DOCUMENT THE DB2 CROSS        *   FILE 213
//*           SYSTEM FACILITY THAT IS ON FILE 212 OF THIS TAPE.     *   FILE 213
//*           THIS FILE IS IN IEBCOPY FORMAT, AND HAS LRECL=147.    *   FILE 213
//*                                                                 *   FILE 213
//***FILE 214 IS FROM FRED SCHUFF, OF WAYNE PENNSYLVANIA, AND       *   FILE 214
//*           CONTAINS COBOL COPY MEMBERS TO MAP MVS CONTROL        *   FILE 214
//*           BLOCKS.  INCLUDED CONTROL BLOCKS ARE:                 *   FILE 214
//*                                                                 *   FILE 214
//*                 ACB           CDE            PDS                *   FILE 214
//*                 ACEE          CVT            RB                 *   FILE 214
//*                 ASCB          DCB            TCB                *   FILE 214
//*                 ASVT          DEB            TIOT               *   FILE 214
//*                 ASXB          JFCB           UCB                *   FILE 214
//*                                                                 *   FILE 214
//*           THIS TAKES ADVANTAGE OF A NEW FEATURE IN COBOL II     *   FILE 214
//*           THAT ALLOWS POINTERS TO MVS ADDRESSABLE AREAS IN      *   FILE 214
//*           THE LINKAGE SECTION OF COBOL II PROGRAMS.  NOW        *   FILE 214
//*           YOU CAN PUT THE LAST IPL DATE AND TIME, CPUID AND     *   FILE 214
//*           SERIAL NUMBER, ON THE TOP OF YOUR COMPANY'S           *   FILE 214
//*           ACCOUNTS RECEIVABLE REPORTS.  ALSO, ALL THE           *   FILE 214
//*           ALLOCATED DDNAMES ETCETERA.  SERIOUSLY, THE           *   FILE 214
//*           PURPOSE OF THE FEATURE SEEMS TO BE THE ABILITY TO     *   FILE 214
//*           ADD SYSTEM-TYPE DATA INTO BUSINESS PROGRAMS IF IT     *   FILE 214
//*           IS WANTED.  ANYWAY, IF YOU EVER GET INVOLVED IN       *   FILE 214
//*           IMPLEMENTING THIS TYPE OF THING, THIS FILE WILL       *   FILE 214
//*           GIVE YOU VERY EXTENSIVE MACHINE-READABLE HELP.        *   FILE 214
//*           DOCUMENTATION IS INCLUDED IN MEMBER $$$DOC.           *   FILE 214
//*                                                                 *   FILE 214
//*      email:   fschuff@system-support.com                        *   FILE 214
//*                                                                 *   FILE 214
//***FILE 215 IS FROM SAM GOLOB AND CONTAINS CLISTS WHICH HELP      *   FILE 215
//*           A NORMAL PERSON FROM AN AVERAGE SHOP TO USE SMP/E     *   FILE 215
//*           BETTER.  THESE ARE SIMPLE, BUT VERY USEFUL TOOLS.     *   FILE 215
//*                                                                 *   FILE 215
//*  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  *   FILE 215
//*                                                                 *   FILE 215
//*                    SMP/E HELPER TOOLS                           *   FILE 215
//*                                                                 *   FILE 215
//*         THIS SIMPLE COLLECTION CONSISTS OF 2 CLISTS, AND 3      *   FILE 215
//*         ARTICLES FROM "TECHNICAL SUPPORT" MAGAZINE, SHOWING     *   FILE 215
//*         HOW TO USE THEM.  THE CLISTS ARE:                       *   FILE 215
//*                                                                 *   FILE 215
//*      PTF       - A CLIST TO BROWSE PTFS USING THE REVIEW        *   FILE 215
//*                  COMMAND FROM THE CBT TAPE (FILE 134).          *   FILE 215
//*                  THE "DATABASE" CONTAINING YOUR PTFS IS         *   FILE 215
//*                  NONE OTHER THAN THE SMPPTS DATASET.            *   FILE 215
//*                  THEREFORE, IT IS ADVISABLE NOT TO PURGE        *   FILE 215
//*                  PTFS AFTER YOU ACCEPT THEM.  IN ANY CASE,      *   FILE 215
//*                  YOU CAN AT LEAST LOOK AT THE ONES YOU          *   FILE 215
//*                  HAVE CURRENTLY.                                *   FILE 215
//*                                                                 *   FILE 215
//*      SMPCLIST  - THIS INVOKES SMP/E IN THE FOREGROUND AS        *   FILE 215
//*                  IF IT WERE RUNNING IN BACKGROUND.  YOU         *   FILE 215
//*                  ENTER BACKGROUND COMMANDS ON THE               *   FILE 215
//*                  TERMINAL, AND GIMSMP'S RESULTS ARE             *   FILE 215
//*                  DISPLAYED LINE-BY-LINE, ON THE TERMINAL.       *   FILE 215
//*                  LOGGING CAN BE TURNED ON OR OFF.  LOOK AT      *   FILE 215
//*                  THE CLIST TO SEE THE OPTIONS.  I USE THIS      *   FILE 215
//*                  CLIST TO MAKE CERTAIN KINDS OF INQUIRIES       *   FILE 215
//*                  THAT ARE NOT EASILY MADE WITH THE SMP/E        *   FILE 215
//*                  ISPF INTERFACE.  ALSO, I USE THIS CLIST        *   FILE 215
//*                  TO DO UCLIN INTERACTIVELY, USING "LIST"        *   FILE 215
//*                  COMMANDS TO CHECK MY WORK.                     *   FILE 215
//*                                                                 *   FILE 215
//*                  NOTE - THIS CLIST WAS ORIGINALLY IN            *   FILE 215
//*                         VB-LRECL 255 FORMAT, AND WAS            *   FILE 215
//*                         CONVERTED TO FB-LRECL 80 FORMAT BY      *   FILE 215
//*                         THE CLIST CONVERSION PROGRAM ON         *   FILE 215
//*                         FILE 187 OF THE CBT TAPE.               *   FILE 215
//*                         THEREFORE MANY OF THE LONG LINES        *   FILE 215
//*                         HAVE BEEN FOLDED OVER.                  *   FILE 215
//*                                                                 *   FILE 215
//*       I HAVE WRITTEN SEVERAL ARTICLES FOR "TECHNICAL SUPPORT"   *   FILE 215
//*       MAGAZINE REGARDING THESE CLISTS.  #ARTPTF IS AN ARTICLE   *   FILE 215
//*       ABOUT THE PTF CLIST.  #ARTSMPC IS ABOUT THE SMPCLIST      *   FILE 215
//*       CLIST.  #ARTEXMP DESCRIBES CASES IN WHICH BOTH CLISTS     *   FILE 215
//*       WERE PUT TO PRACTICAL USE.                                *   FILE 215
//*                                                                 *   FILE 215
//*       IF YOU HAVE ANY QUESTIONS OR INQUIRIES ON THIS MATERIAL,  *   FILE 215
//*       PLEASE CONTACT:                                           *   FILE 215
//*                                                                 *   FILE 215
//*                     SAM GOLOB             NEW ADDRESS           *   FILE 215
//*                     P.O. BOX 906                                *   FILE 215
//*                     TALLMAN, NY  10982    sbgolob@aol.com       *   FILE 215
//*                                           sbgolob@attglobal.net *   FILE 215
//*        NEW PHONE NUMBER:   845-362-1996                         *   FILE 215
//*                                                                 *   FILE 215
//*       (IF MY CONTACT INFORMATION BECOMES OBSOLETE, PLEASE       *   FILE 215
//*        CALL THE MEMBERSHIP OFFICER AT NASPA 414-768-8000        *   FILE 215
//*        WHERE I INTEND TO LEAVE MY NEW INFORMATION.    SG)       *   FILE 215
//*                                                                 *   FILE 215
//***FILE 216 IS FROM JIM SMITH OF NATIONAL LINEN SERVICE IN        *   FILE 216
//*           ATLANTA, GEORGIA.  THIS FILE CONTAINS A GENERAL       *   FILE 216
//*           DATE MANIPULATION ROUTINE WHICH HAS A SIZABLE         *   FILE 216
//*           VARIETY OF SEPARATE FUNCTIONS.  DESCRIPTION IS        *   FILE 216
//*           BELOW.                                                *   FILE 216
//*                                                                 *   FILE 216
//*     PROGRAM: CNVDATE                                            *   FILE 216
//*     PURPOSE: DATE CONVERSION AND MANIPULATION                   *   FILE 216
//*                                                                 *   FILE 216
//*     ORIGINAL AUTHOR: WES CLEVELAND                              *   FILE 216
//*              NATIONAL SERVICE INDUSTRIES                        *   FILE 216
//*              INFORMATION SYSTEMS                                *   FILE 216
//*                                                                 *   FILE 216
//*     CONTRIBUTOR:                                                *   FILE 216
//*                                                                 *   FILE 216
//*              JIM SMITH                                          *   FILE 216
//*              NATIONAL SERVICE INDUSTRIES                        *   FILE 216
//*              INFORMATION SYSTEMS                                *   FILE 216
//*              MAIL STOP 003                                      *   FILE 216
//*              1420 PEACHTREE ST N.E.                             *   FILE 216
//*              ATLANTA, GEORGIA  30309                            *   FILE 216
//*              (404) 853-6434    WORK                             *   FILE 216
//*                                                                 *   FILE 216
//*   -----------------------------------------------------------   *   FILE 216
//*                                                                 *   FILE 216
//*        FUNCTION:                                                *   FILE 216
//*                                                                 *   FILE 216
//*        THIS PROGRAM IS A GENERAL PURPOSE DATE MANIPULATION      *   FILE 216
//*        ROUTINE THAT MAY BE CALLED TO PERFORM THE FOLLOWING      *   FILE 216
//*        DATE MANIPULATION FUNCTIONS:                             *   FILE 216
//*                                                                 *   FILE 216
//*        1)   VERIFY    JULIAN & GREGORIAN DATES                  *   FILE 216
//*        2)   CONVERT   JULIAN & GREGORIAN DATES                  *   FILE 216
//*        3)   INCREMENT JULIAN & GREGORIAN DATES                  *   FILE 216
//*        4)   DECREMENT JULIAN & GREGORIAN DATES                  *   FILE 216
//*        5)   CALCULATE DIFFERENCE BETWEEN JULIAN OR              *   FILE 216
//*               GREGORIAN DATES                                   *   FILE 216
//*        6)   CALCULATE DAY OF WEEK                               *   FILE 216
//*        7)   CALCULATE DAY OF CENTURY                            *   FILE 216
//*                                                                 *   FILE 216
//*        LINKAGE:  R1 = CNVDATE WORK AREA ADDRESS                 *   FILE 216
//*                 R13 = SAVE AREA ADDRESS                         *   FILE 216
//*                 R14 = RETURN ADDRESS                            *   FILE 216
//*                 R15 = ENTRY ADDRESS                             *   FILE 216
//*                                                                 *   FILE 216
//*         RETURN: R15 = RETURN CODE                               *   FILE 216
//*                       00 = FUNCTION COMPLETE WITHOUT ERROR      *   FILE 216
//*                       04 = INVALID DATE DATA                    *   FILE 216
//*                       08 = INVALID PARAMATER SPECIFICATION      *   FILE 216
//*                                                                 *   FILE 216
//*         FORMATS: GREGORIAN - MMDDYY                             *   FILE 216
//*                              MMDDYYYY                           *   FILE 216
//*                     JULIAN - YYDDD                              *   FILE 216
//*                              YYYYDDD                            *   FILE 216
//*                      VALUE - DDDD                               *   FILE 216
//*                              DDDDDDDD                           *   FILE 216
//*                        DAY - DXXXXXXXXX (D=DAY NUMBER,          *   FILE 216
//*                               X=DAY SPELLED OUT)                *   FILE 216
//*                                                                 *   FILE 216
//*         NOTE: INITIALIZE FIELDS-1 AND FIELD-2 WITH BLANKS       *   FILE 216
//*               BEFORE MOVING IN REQUESTED DATES (FIELD-1) OR     *   FILE 216
//*               INCREMENT/DECREMENT NBR (FIELDS-2).  THE          *   FILE 216
//*               INCREMENT/DECREMENT NBR (FIELD-2) MUST BE LEFT    *   FILE 216
//*               JUSTIFIED.                                        *   FILE 216
//*                                                                 *   FILE 216
//*           WORK AREA - FUNCTION  (1 BYTE)                        *   FILE 216
//*                       FIELD-1   (8 BYTES)                       *   FILE 216
//*                       FIELD-2   (8 BYTES)                       *   FILE 216
//*                       RETURN   (10 BYTES)                       *   FILE 216
//*                                                                 *   FILE 216
//*                       FUNC    FIELD-1    FIELD-2    RETURN      *   FILE 216
//*                       ----    -------    -------    -------     *   FILE 216
//*                         1     DATE       N/A        N/A         *   FILE 216
//*                         2     DATE       N/A        DATE        *   FILE 216
//*                         3     DATE       DDDDDDDD   DATE        *   FILE 216
//*                         4     DATE       DDDDDDDD   DATE        *   FILE 216
//*                         5     DATE       DATE       DDDDDDDD    *   FILE 216
//*                         6     DATE       N/A        DXXXXXXXXX  *   FILE 216
//*                         7     DATE       N/A        DDDDDDDD    *   FILE 216
//*                                                                 *   FILE 216
//*        EXAMPLE COBOL: CURRENT-DATE 071392 DECREMENT 30 DAYS     *   FILE 216
//*                                                                 *   FILE 216
//*             01  WS-CNVDATE-WORK-AREA    PIC X(27).              *   FILE 216
//*                                                                 *   FILE 216
//*             01  FILLER REDEFINES WS-CNVDATE-WORK-AREA.          *   FILE 216
//*                                                                 *   FILE 216
//*                 05  FUNCTION            PIC X.                  *   FILE 216
//*                 05  SUBR-DATE.                                  *   FILE 216
//*                     10  SR-MM           PIC XX.                 *   FILE 216
//*                     10  SR-DD           PIC XX.                 *   FILE 216
//*                     10  SR-YY           PIC XX.                 *   FILE 216
//*                     10  FILLER          PIC XX.                 *   FILE 216
//*                 05  AGE-CRITERA         PIC X(8).               *   FILE 216
//*                 05  AGED-DATE.                                  *   FILE 216
//*                     10  AD-MM           PIC XX.                 *   FILE 216
//*                     10  AD-DD           PIC XX.                 *   FILE 216
//*                     10  AD-YY           PIC XX.                 *   FILE 216
//*                     10  FILLER          PIC XXXX.               *   FILE 216
//*                                                                 *   FILE 216
//*                                                                 *   FILE 216
//*                 MOVE CURRENT-DATE TO WORK-DATE.                 *   FILE 216
//*                 MOVE SPACES TO WS-CNVDATE-WORK-AREA.            *   FILE 216
//*                 MOVE WD-MM TO SR-MM.                            *   FILE 216
//*                 MOVE WD-DD TO SR-DD.                            *   FILE 216
//*                 MOVE WD-YY TO SR-YY.                            *   FILE 216
//*                 MOVE '4' TO FUNCTION.                           *   FILE 216
//*                 MOVE '30      ' TO AGE-CRITERA.                 *   FILE 216
//*                 CALL 'CNVDATE' USING WS-CNVDATE-WORK-AREA.      *   FILE 216
//*                                                                 *   FILE 216
//*        EXAMPLE RETURNED AGED-DATE: 061392                       *   FILE 216
//*                                                                 *   FILE 216
//***FILE 217 IS IN IEBUPDTE FORMAT WHICH CONTAINS A DISASSEMBLER.  *   FILE 217
//*           COMPLETE DOCUMENTATION FOR THIS PROGRAM IS CONTAINED  *   FILE 217
//*           IN THE MEMBER CALLED $DOC.  BELOW IS A VERY BRIEF     *   FILE 217
//*           DESCRIPTION OF THIS PROGRAM.                          *   FILE 217
//*                                                                 *   FILE 217
//*  DISASM IS A ONE-PASS DISASSEMBLER WHICH PRODUCES AN ASSEMBLER  *   FILE 217
//*  LANGUAGE SOURCE PROGRAM FROM A CSECT WITHIN A LOAD MODULE.     *   FILE 217
//*  CONTROL CARDS PERMIT SPECIFICATION OF AREAS CONTAINING NO      *   FILE 217
//*  INSTRUCTIONS, ALLOW BASE REGISTERS TO BE PROVIDED SO THAT      *   FILE 217
//*  SYMBOLIC LABELS MAY BE CREATED DURING DISASSEMBLY, AND DECLARE *   FILE 217
//*  THE DEFINITION OF DSECTS TO BE USED DURING DISASSEMBLY.        *   FILE 217
//*  CONDITIONAL BRANCH INSTRUCTIONS USE THE EXTENDED MNEMONICS,    *   FILE 217
//*  WHERE POSSIBLE, AND EXPLICIT REGISTERS ARE DENOTED BY R0, R1,  *   FILE 217
//*  THRU R15.  COMMENTS ARE GIVEN ON SVC'S, AND TO VARIOUS BAL     *   FILE 217
//*  INSTRUCTIONS, TO AID IN CREATING A DOCUMENTED SOURCE PROGRAM.  *   FILE 217
//*                                                                 *   FILE 217
//***FILE 218 CONTAINS AN MPL AND ASM MONITOR UNDER RMFMON FROM     *   FILE 218
//*          COCA COLA IN ATLANTA.  THIS FILE IS IN IEBUPDTE SYSIN  *   FILE 218
//*          FORMAT AND THE MEMBER CALLED $DOCERB CONTAINS          *   FILE 218
//*          ADDITIONAL INFORMATION.  THE MEMBER CALLED SAMPLE      *   FILE 218
//*          SHOWS SOME ACTUAL OUTPUT.  THIS FILE ALSO CONTAINS A   *   FILE 218
//*          PL/1 (OPTIMIZER) PROGRAM TO PROVIDE A VSAM VOLUME MAP  *   FILE 218
//*          OF ALL VOLUMES IN A PARTICULAR VSAM CATALOG.  IT MAPS  *   FILE 218
//*          EACH DATA SPACE AND EACH DATA AND INDEX COMPONENT      *   FILE 218
//*          WITHIN THE DATA SPACE BY STARTING AND ENDING CCHH.     *   FILE 218
//*          THERE IS ALSO A ZAP TO CORRECT A MINOR PROBLEM.        *   FILE 218
//*                                                                 *   FILE 218
//* K VSAM PLI PL1 VOLMAP VTOC CATALOG ERBRUS99 RMF RMFMON MPL ASM  *   FILE 218
//*                                                                 *   FILE 218
//***FILE 219 IS A COLLECTION OF REXX EXECS CONTRIBUTED BY SAM      *   FILE 219
//*           GOLOB, FROM THE LIBRARIES OF THE LATE TONY FORTE      *   FILE 219
//*           WHO WORKED FOR A NEW YORK CITY DATA CENTER.           *   FILE 219
//*                                                                 *   FILE 219
//*   PREFACE.    TONY FORTE WAS A COLLEAGUE OF OURS AT THE         *   FILE 219
//*               DEPARTMENT OF INFORMATION TECHNOLOGY AND          *   FILE 219
//*               TELECOMMUNICATIONS OF NEW YORK CITY (DOITT)       *   FILE 219
//*               WHO PASSED AWAY RECENTLY AT A YOUNG AGE.          *   FILE 219
//*               AFTER HIS UNTIMELY PASSING, I TOOK A LOOK AT      *   FILE 219
//*               HIS LIBRARIES TO SEE WHAT I COULD FIND.  THE      *   FILE 219
//*               FOLLOWING LIST IS A BEGINNING TO THIS             *   FILE 219
//*               COLLECTION.  I HOPE THAT I WILL BE ABLE TO        *   FILE 219
//*               TEST MORE OF HIS THINGS AND ADD MORE LATER.       *   FILE 219
//*                                                                 *   FILE 219
//*                                        SAM GOLOB  (08/31/94)    *   FILE 219
//*                                                                 *   FILE 219
//*   APFLOOK   -  (FOR NON-DYNAMIC APF)  DISPLAYS APF LIBRARIES    *   FILE 219
//*   FORTLOOK  -  FINDS LOCATION OF FORTRAN MODULES                *   FILE 219
//*   JESLOOK   -  FINDS LOCATION OF PROCS IN PROC00 CONCATENATION  *   FILE 219
//*   LNKLOOK   -  FINDS MODULES IN "WHICH" LINK LIST LIBRARIES     *   FILE 219
//*   LPALOOK   -  FINDS MODULES IN "WHICH" LPA LIST LIBRARIES      *   FILE 219
//*                                                                 *   FILE 219
//*                                                                 *   FILE 219
//***FILE 220 IS FROM LEE CONYERS OF THE U.S. DEPARTMENT OF         *   FILE 220
//*           TRANSPORTATION IN WASHINGTON, D.C.  THIS IS A         *   FILE 220
//*           COLLECTION OF E.D.P. AUDITING TOOLS, TO BE USED       *   FILE 220
//*           IN FINDING OUT INFORMATION ABOUT AN MVS SYSTEM        *   FILE 220
//*           WITHOUT MUCH OUTSIDE HELP (THAT'S ONE OF THE          *   FILE 220
//*           THINGS THAT E.D.P. AUDITORS DO).  THIS IS (OF         *   FILE 220
//*           COURSE) ALSO USEFUL FOR MVS SYSTEMS PROGRAMMERS.      *   FILE 220
//*                                                                 *   FILE 220
//*    >>>>>  SEE FILE 221 FOR THE REXX EXECS IN THIS COLLECTION.   *   FILE 220
//*                                                                 *   FILE 220
//*           THIS COLLECTION WAS TESTED AT THE MVS/XA 2.2.3        *   FILE 220
//*           LEVEL.  BUT I'VE TRIED A LOT OF IT AT MVS/ESA 4.3     *   FILE 220
//*           AND MUCH OF IT STILL WORKS THERE.  SOME OF THE        *   FILE 220
//*           PARTS NEED MODIFICATION FOR MVS/ESA IN ITS HIGHER     *   FILE 220
//*           VERSIONS.  (S.G.)                                     *   FILE 220
//*                                                                 *   FILE 220
//*           I'D ALSO SUGGEST LOOKING AT THE "SHOWMVS" TSO         *   FILE 220
//*           COMMAND ON FILE 183 OF THIS TAPE, TO SUPPLY SOME      *   FILE 220
//*           MORE OF THIS KIND OF INFORMATION.  (S.G.)             *   FILE 220
//*                                                                 *   FILE 220
//*                                                                 *   FILE 220
//*           INTRODUCTION TO THE AUDITMVS STARTER KIT              *   FILE 220
//*           ----------------------------------------              *   FILE 220
//*                                                                 *   FILE 220
//*     THIS FILE CONTAINS THE AUDITMVS STARTER KIT SOFTWARE.       *   FILE 220
//*     THE KIT CONSISTS OF UTILITY SOFTWARE TO COLLECT AND         *   FILE 220
//*     ANALYZE DATA FROM AN OPERATIONAL MVS SYSTEM.  IT WILL       *   FILE 220
//*     GREATLY ASSIST IN DOCUMENTING THE AUTHORIZED PROGRAM        *   FILE 220
//*     FACILITY (APF) ENVIRONMENT, INCLUDING ALL APF LIBRARIES,    *   FILE 220
//*     SUPERVISOR CALL (SVC) ROUTINES, EXTENDED SVC ROUTER (ESR)   *   FILE 220
//*     ROUTINES, PROGRAM CALL (PC) ROUTINES, AND LINK PACK AREA    *   FILE 220
//*     (LPA) PROGRAMS (I.E., PAGEABLE, MODIFIED, FIXED LPA; AND    *   FILE 220
//*     OTHER ITEMS ALONG THE LPA QUEUE).                           *   FILE 220
//*                                                                 *   FILE 220
//*     THE SOFTWARE CONSISTS MOSTLY OF REXX AND SAS PROGRAMS.      *   FILE 220
//*     IN ADDITION, THERE ARE SEVERAL ASSEMBLY LANGUAGE PROGRAMS   *   FILE 220
//*     TO DISASSEMBLE MVS SOFTWARE FROM OBJECT CODE BACK TO        *   FILE 220
//*     ASSEMBLY LANGUAGE.  THERE IS ALSO AN ASSEMBLY LANGUAGE      *   FILE 220
//*     PROGRAM THAT USES THE SNAP MACRO TO RETRIEVE THE PROGRAM    *   FILE 220
//*     CALL TABLE FROM THE PCAUTH ADDRESS SPACE.                   *   FILE 220
//*                                                                 *   FILE 220
//*     THE CONTENTS OF THIS DISKETTE SHOULD BE UPLOADED TO THE     *   FILE 220
//*     MVS SYSTEM THAT IS TO BE AUDITED.  ALL OF THE FILES,        *   FILE 220
//*     EXCEPT THE REXX PROGRAMS, MAY BE PLACED INTO INDIVIDUAL     *   FILE 220
//*     MEMBERS OF A STANDARD FB 80 PARTITIONED DATA SET (PDS).     *   FILE 220
//*     THE REXX PROGRAMS SOMETIMES EXCEED LINE LENGTHS BEYOND 72   *   FILE 220
//*     CHARACTERS--THEREFORE, A VB 255 PDS IS RECOMMENDED.  BOTH   *   FILE 220
//*     FB 80 AND VB 255 FORMATS ARE SUPPORTED BY THE ISPF/PDF      *   FILE 220
//*     EDITOR.  TO SUMMARIZE, THE FOLLOWING                        *   FILE 220
//*     DISKETTE-DIRECTORY-TO-MVS-PDS UPLOAD STRUCTURE IS           *   FILE 220
//*     SUGGESTED:                                                  *   FILE 220
//*                                                                 *   FILE 220
//*     FILE MEMBER                 MVS PDS AND DCB INFO            *   FILE 220
//*     ------------------    --------------------------------      *   FILE 220
//*                                                                 *   FILE 220
//*     ADVCAATS              USERID.DISASM.CNTL      FB   80       *   FILE 220
//*     MISC                  USERID.CNTL             FB   80       *   FILE 220
//*     REXX  (FILE 221)      USERID.EXEC             VB  255       *   FILE 220
//*     SAS                   USERID.SAS.CNTL         FB   80       *   FILE 220
//*                                                                 *   FILE 220
//*     SOME OF THE STARTER KIT PROGRAMS ALSO REQUIRE A NUMBER OF   *   FILE 220
//*     MVS SUPPORT FILES.  FOR EXAMPLE, THE IO* REXX PROGRAMS      *   FILE 220
//*     ARE DATA COLLECTORS WHICH WRITE TO VARIOUS VB 255           *   FILE 220
//*     PHYSICAL SEQUENTIAL DATA SETS.  THESE DATA SETS ARE THEN    *   FILE 220
//*     READ BY THE SAS PROGRAMS FOR ANALYSIS AND REPORTING.  YOU   *   FILE 220
//*     WILL HAVE TO ALLOCATE AND NAME THESE TO YOUR OWN            *   FILE 220
//*     PREFERENCE, AND EDIT THE REXX AND SAS PROGRAMS              *   FILE 220
//*     ACCORDINGLY.  THERE IS ONE SUPPORT DATA SET THAT MUST BE    *   FILE 220
//*     FORMATTED SPECIFICALLY TO SUPPORT THE OUTPUT OF THE SNAP    *   FILE 220
//*     MACRO.  SEE THE ASSEMBLY LANGUAGE PROGRAM (SNAPPC.ASM IN    *   FILE 220
//*     THE MISC DIRECTORY) FOR THESE SPECIFIC DCB PARAMETERS.      *   FILE 220
//*                                                                 *   FILE 220
//*     ADVCAATS                                                    *   FILE 220
//*     --------                                                    *   FILE 220
//*                                                                 *   FILE 220
//*     THIS LIBRARY CONTAINS SOURCE CODE FOR A OLD, OLD (BUT       *   FILE 220
//*     VERY USEFUL) PUBLIC DOMAIN DISASSEMBLER.  THE               *   FILE 220
//*     DISASSEMBLER HAS BEEN EXTENDED TO PERFORM IN-STORAGE        *   FILE 220
//*     DISASSEMBLY IF THE CODE RESIDES BELOW THE 16 MB LINE.       *   FILE 220
//*     SEE THE FILE $$README FOR MORE INFORMATION.                 *   FILE 220
//*                                                                 *   FILE 220
//*     MISC                                                        *   FILE 220
//*     ----                                                        *   FILE 220
//*                                                                 *   FILE 220
//*     THIS LIBRARY CONTAINS SEVERAL *.JCL FILES.  ALLOCGDG.JCL    *   FILE 220
//*     SHOWS HOW TO DEFINE A GENERATION DATA GROUP (GDG) SHOULD    *   FILE 220
//*     YOU WANT TO BUILD A SYSTEM OF AUDIT JOBS THAT MAINTAIN      *   FILE 220
//*     SNAPSHOT CYCLES OF DATA SETS FOR YOUR MVS SYSTEM.           *   FILE 220
//*     IKJEFT01.JCL SHOWS HOW TO RUN YOUR REXX PROGRAMS IN         *   FILE 220
//*     "BATCH MODE" TSO.  OTHER JCL FILES PROVIDE EXAMPLES OF      *   FILE 220
//*     LENGTHY JOB STREAMS FOR MULTIPLE AUDIT STEPS.  THIS         *   FILE 220
//*     LIBRARY ALSO CONTAINS THE SNAPPC.ASM FILE FOR OBTAINING     *   FILE 220
//*     YOUR MVS SYSTEMS PC TABLE.                                  *   FILE 220
//*                                                                 *   FILE 220
//*     REXX     (FOUND IN FILE 221)                                *   FILE 220
//*     ----                                                        *   FILE 220
//*                                                                 *   FILE 220
//*     THIS LIBRARY CONTAINS A WIDE VARIETY OF REXX PROGRAMS       *   FILE 220
//*     THAT COLLECT DATA FROM AN OPERATIONAL MVS SYSTEM.  ALL      *   FILE 220
//*     ARE STAND ALONE PROGRAMS EXCEPT FOR #NUCLKUP, WHICH IS AN   *   FILE 220
//*     EXTERNAL REXX CALLABLE PROCEDURE THAT SEACHES THE NUCLEUS   *   FILE 220
//*     MAP FOR AN ENTRY NAME AND RETURNS ITS ENTRY POINT           *   FILE 220
//*     ADDRESS.  #NUCLKUP IS CURRENTLY CALLED BY IOSVCT, IOESRT,   *   FILE 220
//*     LISTSVCT, AND LISTESRT.  SDUMP IS A GENERAL PURPOSE         *   FILE 220
//*     FORMATTED DISPLAY STORAGE DUMP PROGRAM.  THE VSDATA1        *   FILE 220
//*     PROGRAM IS A MODIFIED VERSION OF SDUMP WHICH DISPLAYS       *   FILE 220
//*     SEVERAL IN-STORAGE CONTROL BLOCKS.                          *   FILE 220
//*                                                                 *   FILE 220
//*     THE IO* SERIES OF PROGRAMS COLLECT DATA AND WRITE TO        *   FILE 220
//*     "WORK.DATA" DATA SETS.  THE LIST* SERIES OF PROGRAMS CAN    *   FILE 220
//*     ALL BE EXECUTED INTERACTIVELY TO DISPLAY MVS INTERNALS      *   FILE 220
//*     DATA TO YOUR TERMINAL SCREEN.  ACRONYMS USED WITHIN THE     *   FILE 220
//*     NAMING SCHEME FOR THESE PROGRAMS ARE:                       *   FILE 220
//*                                                                 *   FILE 220
//*        ADSP     ADDRESS SPACE                                   *   FILE 220
//*        APFP     APF LIBRARIES PROGRAMS                          *   FILE 220
//*        APFT     APF TABLE                                       *   FILE 220
//*        CATS     CATALOGS                                        *   FILE 220
//*        CONS     CONSOLES                                        *   FILE 220
//*        DASD     DIRECT ACCESS STORAGE DEVICES LIST              *   FILE 220
//*        DCQ      DEVICE CLASS QUEUE                              *   FILE 220
//*        ENV      ENVIRONMENTAL INFORMATION                       *   FILE 220
//*        ESRT     ESR TABLE                                       *   FILE 220
//*        LLT      LINKLIST LIBRARIES TABLE                        *   FILE 220
//*        LLTP     LLT LIBRARIES PROGRAMS                          *   FILE 220
//*        LPAQ     LPA QUEUE                                       *   FILE 220
//*        LPAT     LPA LIBRARIES TABLE                             *   FILE 220
//*        NUCM     NUCLEUS MAP                                     *   FILE 220
//*        PART     PAGING ACTIVITY REFERENCE TABLE                 *   FILE 220
//*        PDSD     PDS DIRECTORY                                   *   FILE 220
//*        PDSM     PDS MEMBERS                                     *   FILE 220
//*        PCAUTH   PROGRAM CALL AUTHORIZATION TABLE                *   FILE 220
//*        PLPA     PAGEABLE LPA PROGRAMS                           *   FILE 220
//*        SART     SWAPPING ACTIVITY REFERENCE TABLE               *   FILE 220
//*        SFT      SYSTEM FUNCTION TABLE                           *   FILE 220
//*        SMAP     STORAGE MAP INFORMATION                         *   FILE 220
//*        SMF      SYSTEM MANAGEMENT FACILITY INFORMATION          *   FILE 220
//*        SSN      SUBSYSTEM NAME TABLE                            *   FILE 220
//*        SVCJ     SVC JOURNAL TABLE                               *   FILE 220
//*        SVCT     SVC TABLE                                       *   FILE 220
//*        TAPE     TAPE DEVICES LIST                               *   FILE 220
//*        VMAP     VIRTUAL STORAGE MAP                             *   FILE 220
//*                                                                 *   FILE 220
//*     THE NOT@OR FILE IS A READY REFERENCE OF THE EBCDIC HEX      *   FILE 220
//*     CODES FOR THE "AND" AND "OR" CHARACTERS.  THESE TWO         *   FILE 220
//*     CHARACTERS ARE HARD TO REMEMBER WHEN ONE USES SEVERAL       *   FILE 220
//*     DIFFERENT MICROCOMPUTER KEYBOARD MAPS ASSOCIATED WITH       *   FILE 220
//*     VARIOUS 3270 EMULATION SOFTWARE PACKAGES.                   *   FILE 220
//*                                                                 *   FILE 220
//*     SAS                                                         *   FILE 220
//*     ---                                                         *   FILE 220
//*                                                                 *   FILE 220
//*     THIS LIBRARY CONTAINS SAS PROGRAMS WHICH REPORT FROM THE    *   FILE 220
//*     VARIOUS FILES CREATED BY THE IO* SERIES OF REXX PROGRAMS.   *   FILE 220
//*     THE APFPDUP, LLTPDUP, LPAPDUP, ESRMATCH, PCMATCH, AND       *   FILE 220
//*     SVCMATCH PROGRAMS DEMONSTRATE THE POWER OF THE SAS MERGE    *   FILE 220
//*     FUNCTION.                                                   *   FILE 220
//*                                                                 *   FILE 220
//*                                                                 *   FILE 220
//*           LEE CONYERS                                           *   FILE 220
//*           U.S. DEPARTMENT OF TRANSPORTATION                     *   FILE 220
//*           700 4TH STREET SW                                     *   FILE 220
//*           ROOM 7404, M-35                                       *   FILE 220
//*           WASHINGTON, DC  20590                                 *   FILE 220
//*           (202) 366-1126                                        *   FILE 220
//*                                               -- VLC (3/27/94)  *   FILE 220
//*                                                                 *   FILE 220
//***FILE 221 IS FROM LEE CONYERS OF THE U.S. DEPARTMENT OF         *   FILE 221
//*           TRANSPORTATION IN WASHINGTON, D.C.  SEE FILE 220      *   FILE 221
//*           FOR A DESCRIPTION OF THIS ENTIRE COLLECTION OF        *   FILE 221
//*           E.D.P. AUDITING TOOLS.  THIS FILE CONTAINS THE        *   FILE 221
//*           REXX EXECS FROM THE COLLECTION, THAT HAVE BEEN        *   FILE 221
//*           SEPARATED OUT BECAUSE OF THEIR DCB FORMAT, WHICH      *   FILE 221
//*           IS VB WITH LRECL(255).  THIS FILE IS IN IEBCOPY       *   FILE 221
//*           FORMAT.                                               *   FILE 221
//*                                                                 *   FILE 221
//***FILE 222 IS CURRENTLY EMPTY                                    *   FILE 222
//*                                                                 *   FILE 222
//***FILE 223 IS THE FREE TAPE MANAGEMENT SYSTEM (FTMS) WHICH       *   FILE 223
//*           WAS SUBMITTED SEMI-ANONYMOUSLY.  THIS SYSTEM KEEPS    *   FILE 223
//*           COMPLETE TRACK OF ALL SL TAPES THAT WERE MOUNTED      *   FILE 223
//*           ON YOUR SYSTEM, AND IT HAS AN EXTENSIVE SET OF        *   FILE 223
//*           REPORTS.  FILE 224 CONTAINS SAMPLE OUTPUT FROM        *   FILE 223
//*           THIS SYSTEM.                                          *   FILE 223
//*                                                                 *   FILE 223
//*   -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -    *   FILE 223
//*                                                                 *   FILE 223
//*                FREE TAPE MANAGEMENT SYSTEM                      *   FILE 223
//*                                                                 *   FILE 223
//*      THIS IS THE FREE TAPE MANAGEMENT SYSTEM (FTMS,             *   FILE 223
//*      PSEUDONYM ITMS) WHICH HAS BEEN SUBMITTED                   *   FILE 223
//*      SEMI-ANONYMOUSLY.  PLEASE DIRECT INQUIRIES TO SAM          *   FILE 223
//*      GOLOB SBGOLOB@AOL.COM OR 845-362-1996.  IF THESE NUMBERS   *   FILE 223
//*      BECOME INCORRECT, PLEASE CALL THE NASPA OFFICE             *   FILE 223
//*      414-768-8000, MEMBERSHIP OFFICER, TO FIND OUT WHAT MY      *   FILE 223
//*      CURRENT ADDRESS IS.  I AM NOT THE AUTHOR OF THIS           *   FILE 223
//*      SYSTEM, BUT I WILL BE GLAD TO DIRECT YOU TO HIM FOR        *   FILE 223
//*      ADVICE AND/OR SUPPORT.                                     *   FILE 223
//*                                                                 *   FILE 223
//*      THIS IS A COMPLETE TAPE MANAGEMENT SYSTEM WHICH            *   FILE 223
//*      CAN KEEP TRACK OF A TAPE LIBRARY OF ANY SIZE.  AS          *   FILE 223
//*      WRITTEN, IT WILL NOT KICK DOWN A WRONG TAPE, BUT IT        *   FILE 223
//*      WILL TELL YOU EVERYTHING THAT HAS HAPPENED IN YOUR         *   FILE 223
//*      TAPE LIBRARY.  ALL TAPE ACTIVITY IS LOGGED.                *   FILE 223
//*                                                                 *   FILE 223
//*      THIS SYSTEM KEEPS FULL TRACK OF ALL THE TAPES IN           *   FILE 223
//*      YOUR LIBRARY, AND YOU HAVE A SIZABLE COLLECTION OF         *   FILE 223
//*      REPORTS TO TELL YOU WHAT TAPES ARE SOON TO REACH           *   FILE 223
//*      "SCRATCH STATUS", ETC.  SEE MEMBER ITMSFUNC TO LOOK        *   FILE 223
//*      AT THE NUMBER OF REPORTS AND OTHER FUNCTIONS WHICH         *   FILE 223
//*      ARE AVAILABLE WITH THIS SYSTEM.                            *   FILE 223
//*                                                                 *   FILE 223
//*      MEMBERS OF THIS PDS ARE AS FOLLOWS:                        *   FILE 223
//*                                                                 *   FILE 223
//*      ITMS000A  -  THIS IS ASSEMBLER SOURCE FOR THE MAIN         *   FILE 223
//*                   PROGRAM WHICH RUNS ITMS.                      *   FILE 223
//*                                                                 *   FILE 223
//*      ITMPAR01  -  THIS IS ASSEMBLER SOURCE FOR THE ITMS         *   FILE 223
//*                   PARSER.                                       *   FILE 223
//*                                                                 *   FILE 223
//*      ITMDBDEF  -  THIS IS JCL TO DEFINE THE CONTROL             *   FILE 223
//*                   DATASETS THAT ARE NEEDED TO RUN ITMS.         *   FILE 223
//*                                                                 *   FILE 223
//*      ITMSFUNC  -  THIS MEMBER SUPPLIES SAMPLE EXECUTION         *   FILE 223
//*                   PARMS TO EXECUTE THE VARIOUS FUNCTIONS        *   FILE 223
//*                   WHICH ITMS IS CAPABLE OF PROVIDING.           *   FILE 223
//*                                                                 *   FILE 223
//*      ITMS705I  -  THIS IS AN AOC CLIST TO DRIVE THE ITMS        *   FILE 223
//*                   SYSTEM.  IT GETS KICKED OFF BY THE            *   FILE 223
//*                   IEC705I TAPE MESSAGE, THROUGH THE             *   FILE 223
//*                   ITMS705M MESSAGE TABLE ENTRY IN AOC.  IF      *   FILE 223
//*                   YOU HAVE A DIFFERENT AUTOMATED OPERATIONS     *   FILE 223
//*                   PACKAGE THAN IBM'S AOC, THIS MEMBER CAN       *   FILE 223
//*                   BE ADAPTED TO THE OTHER SYSTEM.               *   FILE 223
//*                                                                 *   FILE 223
//*      ITMS705M  -  THIS IS AN AOC/NETVIEW MESSAGE TABLE          *   FILE 223
//*                   ENTRY TO DRIVE THE ITMS CLIST FROM THE        *   FILE 223
//*                   IEC705I CONSOLE MESSAGE.  IF YOU HAVE A       *   FILE 223
//*                   DIFFERENT AUTOMATED OPERATIONS PACKAGE        *   FILE 223
//*                   THAN IBM'S AOC, THIS MEMBER CAN BE            *   FILE 223
//*                   ADAPTED TO THE OTHER SYSTEM.                  *   FILE 223
//*                                                                 *   FILE 223
//*      ITMSRUN   -  THE STARTED PROC THAT RUNS ITMS.  KICKED      *   FILE 223
//*                   OFF BY THE CLIST.                             *   FILE 223
//*                                                                 *   FILE 223
//*      ITMSJOB   -  (ON FILE 224).  SAMPLE PRINTOUT OF AN         *   FILE 223
//*                   ITMS RUN.                                     *   FILE 223
//*                                                                 *   FILE 223
//*      ITMSPRT   -  (ON FILE 224).  SAMPLE PRINTOUT OF AN         *   FILE 223
//*                   ITMS RUN WITH MANY OPTIONS.                   *   FILE 223
//*                                                                 *   FILE 223
//*      THE SEQUENCE OF EVENTS IN EXECUTING THIS SYSTEM            *   FILE 223
//*      IS AS FOLLOWS:  (IF YOUR AUTOMATION PACKAGE IS             *   FILE 223
//*      NOT IBM'S AOC, YOU MUST CUSTOMIZE ITMS705M AND             *   FILE 223
//*      ITMS705I TO YOUR AUTOMATION PACKAGE.)                      *   FILE 223
//*                                                                 *   FILE 223
//*         1.  THE TAPE JOB PRODUCES AN IEC705I MOUNT              *   FILE 223
//*             MESSAGE.                                            *   FILE 223
//*                                                                 *   FILE 223
//*         2.  THE NETVIEW MESSAGE TABLE ENTRY INTERCEPTS          *   FILE 223
//*             THE IEC705I MESSAGE AND KICKS OFF THE AOC           *   FILE 223
//*             ITMS705I CLIST, WHICH STARTS THE ITMS PROC          *   FILE 223
//*             USING APPROPRIATE PARAMETERS THAT WERE              *   FILE 223
//*             PARSED FROM THE IEC705I MESSAGE.                    *   FILE 223
//*                                                                 *   FILE 223
//*         3.  THE ITMS STARTED TASK UPDATES THE ITMS              *   FILE 223
//*             DATABASE.  SEE THE SAMPLE REPORT FROM FILE          *   FILE 223
//*             224.                                                *   FILE 223
//*                                                                 *   FILE 223
//*         4.  YOU RUN "ANY OF MANY" EXECUTIONS OF ITMS            *   FILE 223
//*             WITH APPROPRIATE PARAMETERS (SEE MEMBER             *   FILE 223
//*             ITMSFUNC) TO PRODUCE ALL THE REPORTS YOU            *   FILE 223
//*             NEED AND WANT.  THERE ARE MANY DIFFERENT            *   FILE 223
//*             REPORTS THAT CAN BE PRODUCED.                       *   FILE 223
//*                                                                 *   FILE 223
//***FILE 224 CONTAINS SAMPLE OUTPUT FROM THE FREE TAPE             *   FILE 224
//*           MANAGEMENT SYSTEM, WHOSE COMPONENTS ARE IN            *   FILE 224
//*           FILE 223.                                             *   FILE 224
//*                                                                 *   FILE 224
//***FILE 225 IS AN OFFLOAD PROGRAM THAT WILL ALLOW THE USER TO     *   FILE 225
//*          OFFLOAD A PDS TO IEBUPDTE CONTROL CARD FORMAT.         *   FILE 225
//*          IT WILL ALLOW IEBUPDTE CONTROL CARDS TO BE PLACED      *   FILE 225
//*          BEFORE EACH MEMBER IN A SEQUENTIAL INPUT STREAM        *   FILE 225
//*          THIS PROGRAM WAS RECEIVED FROM YALE UNIVERSITY.        *   FILE 225
//*          THIS PROGRAM WAS WRITTEN BY MR DAVID B COLE            *   FILE 225
//*                                                                 *   FILE 225
//*     THIS IS THE ORIGINAL VERSION OF OFFLOAD.  AN UPDATED        *   FILE 225
//*     VERSION CAN BE FOUND ON FILE 093, WHICH WAS ENHANCED BY     *   FILE 225
//*     GREG PRICE.                                                 *   FILE 225
//*                                                                 *   FILE 225
//*     DAVE COLE IS NOW AT COLE SOFTWARE IN AFTON, VIRGINIA.       *   FILE 225
//*                                                                 *   FILE 225
//*    COLE SOFTWARE          WEB PAGE: HTTP://WWW.COLESOFT.COM     *   FILE 225
//*    736 FOX HOLLOW ROAD    VOICE:    540-456-8536                *   FILE 225
//*    AFTON, VA 22920        FAX:      540-456-6658                *   FILE 225
//*                                                                 *   FILE 225
//*     DAVE COLE'S PROGRAMS REQUIRE DAVE COLE'S MACROS, WHICH      *   FILE 225
//*     MAY BE FOUND ON FILE 408.                                   *   FILE 225
//*                                                                 *   FILE 225
//***FILE 226 IS A COMPARE PROGRAM RECEIVED FROM YALE UNIVERSITY    *   FILE 226
//*           WHICH WAS WRITTEN BY MR DAVID B COLE.                 *   FILE 226
//*                                                                 *   FILE 226
//*     DAVE COLE IS NOW AT COLE SOFTWARE IN AFTON, VIRGINIA.       *   FILE 226
//*                                                                 *   FILE 226
//*    COLE SOFTWARE          WEB PAGE: HTTP://WWW.COLESOFT.COM     *   FILE 226
//*    736 FOX HOLLOW ROAD    VOICE:    540-456-8536                *   FILE 226
//*    AFTON, VA 22920        FAX:      540-456-6658                *   FILE 226
//*                                                                 *   FILE 226
//* THE MACROS NEEDED TO ASSEMBLE THIS VERSION ARE CONTAINED IN     *   FILE 226
//* FILE 408 OF THIS UTILITIES TAPE.  FOR ADDITIONAL INFORMATION    *   FILE 226
//* SEE THE COMMENTS IN THE SOURCE CODE ITSELF.                     *   FILE 226
//*                                                                 *   FILE 226
//*      THE CMPRSEQ PROGRAM COMPARES TWO SEQUENTIAL CARD           *   FILE 226
//*      IMAGE FILES AND REPORTS PRECISELY THE DIFFERENCES          *   FILE 226
//*      BETWEEN THE TWO.  SUCH DIFFERENCES CAN CONSIST OF          *   FILE 226
//*      INSERTIONS, DELETIONS, AND REPLACEMENTS (OF EITHER         *   FILE 226
//*      EQUAL OR UNEQUAL SIZES).                                   *   FILE 226
//*                                                                 *   FILE 226
//*      CMPRSEQ ACCOMPLISHES THIS BY READING THE TWO INPUT         *   FILE 226
//*      FILES ALTERNATELY AND COMPARING THE CARD IMAGES AS IT      *   FILE 226
//*      GOES ALONG.  WHEN IT ENCOUNTERS TWO CARDS THAT             *   FILE 226
//*      MISMATCH, IT SAVES THEM AND CONTINUES TO READ THE TWO      *   FILE 226
//*      FILES ALTERNATELY.  EACH TIME IT READS A CARD FROM ONE     *   FILE 226
//*      FILE, IT COMPARES IT TO ALL CARDS THAT IT HAS READ         *   FILE 226
//*      FROM THE OTHER FILE SINCE THE START OF THE MISMATCH.       *   FILE 226
//*      IF NO MATCH IS FOUND, THEN IT SAVES THAT CARD AND          *   FILE 226
//*      PROCEEDS TO READ THE NEXT CARD FROM THE OTHER FILE.        *   FILE 226
//*      CMPRSEQ CONTINUES ALTERNATING BACK AND FORTH IN THIS       *   FILE 226
//*      MANNER UNTIL IT HAS READ A CARD THAT DOES MATCH ONE        *   FILE 226
//*      OF THE SAVED CARDS FROM THE OTHER FILE.  THE MISMATCH      *   FILE 226
//*      THEN CONSISTS OF ALL CARDS IN THE TWO SAVED STACKS         *   FILE 226
//*      THAT ARE BELOW THE TWO MATCHING CARDS.                     *   FILE 226
//*                                                                 *   FILE 226
//*      THE MISMATCHED CARDS ARE DUMPED OUT TO LOGGING             *   FILE 226
//*      DATASETS, AND THEN CMPRSEQ PROCEEDS TO LOOK FOR THE        *   FILE 226
//*      NEXT MISMATCHED BLOCK.                                     *   FILE 226
//*                                                                 *   FILE 226
//*                   LIMITATIONS                                   *   FILE 226
//*                                                                 *   FILE 226
//*      CMPRSEQ WILL COMPARE ONLY CARD IMAGE FILES - I.E.,         *   FILE 226
//*      FILES HAVING FIXED LENGTH RECORDS THAT ARE 80 BYTES        *   FILE 226
//*      LONG.                                                      *   FILE 226
//*                                                                 *   FILE 226
//*      CMPRSEQ WILL COMPARE ONLY ONE PAIR OF FILES PER            *   FILE 226
//*      INVOCATION.  IT WILL NOT COMPARE AN ENTIRE PDS             *   FILE 226
//*      LIBRARY, ALTHOUGH IT WILL COMPARE A JCL SELECTED PDS       *   FILE 226
//*      LIBRARY MEMBER.                                            *   FILE 226
//*                                                                 *   FILE 226
//*      IF AN INSERTION BLOCK (FOR EXAMPLE) CONTAINS A CARD        *   FILE 226
//*      WHOSE DUPLICATE ALREADY APPEARS COMMONLY THROUGHOUT        *   FILE 226
//*      THE FILES BEING COMPARED (E.G., THE "SPACE 1"              *   FILE 226
//*      ASSEMBLER LANGUAGE STATEMENT, ETC.), THEN THE              *   FILE 226
//*      COMPARISON MAY BECOME, TO A GREATER OR LESSER DEGREE,      *   FILE 226
//*      DESYNCHRONIZED DUE TO THE INSERTED CARD FINDING A          *   FILE 226
//*      MATCH WITH A PRE-EXISTING COPY OF THAT CARD IN THE         *   FILE 226
//*      OTHER FILE.  CMPRSEQ PROVIDES MECHANISMS TO HELP DEAL      *   FILE 226
//*      WITH SYNCHRONIZATION PROBLEMS.  (NOTE, SYNCHRONIZATION     *   FILE 226
//*      PROBLEMS CAN OCCUR, NOT JUST WITH INSERTED BLOCKS,         *   FILE 226
//*      BUT ALSO WITH DELETED BLOCKS AND WITH REPLACED             *   FILE 226
//*      BLOCKS).                                                   *   FILE 226
//*                   JCL                                           *   FILE 226
//*                                                                 *   FILE 226
//*      EXEC CARD KEYWORD: REGION=                                 *   FILE 226
//*                                                                 *   FILE 226
//*      CMPRSEQ'S MEMORY REQUIREMENTS VARY ACCORDING TO THE        *   FILE 226
//*      AGGREGATE SIZE OF THE LARGEST PAIR OF MISMATCHED           *   FILE 226
//*      BLOCKS ENCOUNTERED.  IF A MEMORY SHORTAGE OCCURS, THEN     *   FILE 226
//*      CMPRSEQ TERMINATES IMMEDIATELY; CONSEQUENTLY, IT IS        *   FILE 226
//*      BEST TO PROVIDE A GENEROUS AMOUNT OF AVAILABLE             *   FILE 226
//*      MEMORY.  USUALLY, REGION=1024K SHOULD BE ENOUGH.           *   FILE 226
//*                                                                 *   FILE 226
//*      EXEC CARD KEYWORD: PARM=FULL                               *   FILE 226
//*                                                                 *   FILE 226
//*      BY DEFAULT CMPRSEQ WILL COMPARE TWO CARDS ONLY IN          *   FILE 226
//*      COLUMNS 1 THROUGH 72, THUS IGNORING THE SEQUENCE           *   FILE 226
//*      NUMBER FIELD.  SPECIFYING PARM=FULL CAUSES CMPRSEQ TO      *   FILE 226
//*      EXAMINE EACH CARD IN ALL 80 COLUMNS.                       *   FILE 226
//*                                                                 *   FILE 226
//*      DDNAMES: OLD AND NEW                                       *   FILE 226
//*                                                                 *   FILE 226
//*             ATTRIBUTES                                          *   FILE 226
//*             ACCESS METHOD   QSAM                                *   FILE 226
//*             DSORG           PS                                  *   FILE 226
//*             RECFM           F OR FB                             *   FILE 226
//*             LRECL           80                                  *   FILE 226
//*             BLKSIZE         80*N                                *   FILE 226
//*             DEFAULTS        (PS,F,80,80)                        *   FILE 226
//*                                                                 *   FILE 226
//*      THESE DDNAMES (OLD AND NEW) MUST DESIGNATE THE TWO         *   FILE 226
//*      FILES TO BE COMPARED. THEIR EXISTANCE IS REQUIRED.         *   FILE 226
//*      USUALLY, ONE FILE IS AN UPDATED (NEWER) VERSION OF         *   FILE 226
//*      THE OTHER, HENCE NAMES OLD AND NEW.                        *   FILE 226
//*                                                                 *   FILE 226
//*      DDNAME: SYSPRINT                                           *   FILE 226
//*                                                                 *   FILE 226
//*             ATTRIBUTES                                          *   FILE 226
//*             ACCESS METHOD   QSAM                                *   FILE 226
//*             DSORG           PS                                  *   FILE 226
//*             RECFM           UA, VA, VBA, FA, OR FBA             *   FILE 226
//*             LRECL           133 OR LARGER                       *   FILE 226
//*             BLKSIZE         133 OR LARGER                       *   FILE 226
//*             DEFAULTS        (PS,VBA,137,4096)                   *   FILE 226
//*                                                                 *   FILE 226
//*      THE SYSPRINT FILE IS OPTIONAL.  IF IT IS AVAILABLE,        *   FILE 226
//*      THEN IT RECEIVES A LOG OF ALL DISCOVERED MISMATCHES.       *   FILE 226
//*      FOR EACH MISMATCHED BLOCK, BOTH THE OLD AND NEW            *   FILE 226
//*      VERSION OF THAT BLOCK IS SHOWN.                            *   FILE 226
//*                                                                 *   FILE 226
//*      DDNAMES: OLDLIST AND NEWLIST                               *   FILE 226
//*                                                                 *   FILE 226
//*             ATTRIBUTES                                          *   FILE 226
//*             ACCESS METHOD   QSAM                                *   FILE 226
//*             DSORG           PS                                  *   FILE 226
//*             RECFM           UA, VA, VBA, FA, OR FBA             *   FILE 226
//*             LRECL           133 OR LARGER                       *   FILE 226
//*             BLKSIZE         133 OR LARGER                       *   FILE 226
//*             DEFAULTS        (PS,VBA,137,4096)                   *   FILE 226
//*                                                                 *   FILE 226
//*      BOTH OLDLIST AND NEWLIST ARE OPTIONAL. IF ONE (OR          *   FILE 226
//*      BOTH) ARE AVAILABLE, THEN A COPY OF THE OLD (OR NEW)       *   FILE 226
//*      FILE IS WRITTEN TO IT WITH THE LOCATIONS OF ALL            *   FILE 226
//*      MISMATCHES CLEARLY FLAGGED.                                *   FILE 226
//*                                                                 *   FILE 226
//*      DDNAME: IGNORE                                             *   FILE 226
//*                                                                 *   FILE 226
//*             ATTRIBUTES                                          *   FILE 226
//*             ACCESS METHOD   QSAM                                *   FILE 226
//*             DSORG           PS                                  *   FILE 226
//*             RECFM           F OR FB                             *   FILE 226
//*             LRECL           80                                  *   FILE 226
//*             BLKSIZE         80*N                                *   FILE 226
//*             DEFAULTS        (PS,F,80,80)                        *   FILE 226
//*                                                                 *   FILE 226
//*      THE IGNORE FILE IS OPTIONAL.  IF IT IS AVAILABLE, THEN     *   FILE 226
//*      IT IS USED TO HELP CONTROL THE POSSIBLE                    *   FILE 226
//*      DESYNCHRONIZATION PROBLEMS DISCUSSED EARLIER.  THE         *   FILE 226
//*      IGNORE FILE SHOULD CONTAIN COPIES OF CARD IMAGES THAT      *   FILE 226
//*      APPEAR REPEATEDLY THROUGHOUT THE FILES BEING               *   FILE 226
//*      COMPARED, AND ESPECIALLY APPEARING IN AREAS AFFECTED       *   FILE 226
//*      BY INSERTIONS AND DELETIONS.  COPIES OF THESE CARDS,       *   FILE 226
//*      WHEN ENCOUNTERED DURING A MISMATCH RESOLUTION              *   FILE 226
//*      PROCESS, WILL NOT BE USED TO RESOLVE THE MISMATCH.  BY     *   FILE 226
//*      THIS MEANS THE POSSIBILITY OF DESYNCHRONIZATION CAN        *   FILE 226
//*      BE REDUCED.                                                *   FILE 226
//*                                                                 *   FILE 226
//*      DDNAME: SYNC                                               *   FILE 226
//*                                                                 *   FILE 226
//*             ATTRIBUTES                                          *   FILE 226
//*             ACCESS METHOD   QSAM                                *   FILE 226
//*             DSORG           PS                                  *   FILE 226
//*             RECFM           F OR FB                             *   FILE 226
//*             LRECL           80                                  *   FILE 226
//*             BLKSIZE         80*N                                *   FILE 226
//*             DEFAULTS        (PS,F,80,80)                        *   FILE 226
//*                                                                 *   FILE 226
//*      UNFORTUNATELY, VERY LARGE FILES MAY HAVE TOO MANY          *   FILE 226
//*      COMMONLY REOCCURING CARDS FOR THE IGNORE FILE TO BE        *   FILE 226
//*      WHOLLY EFFECTIVE IN ELIMINATING DESYNCHRONIZATION          *   FILE 226
//*      PROBLEMS.  IF THIS IS THE CASE, THEN THE SYNC FILE CAN     *   FILE 226
//*      BE PROVIDED TO FORCE RESYNCHRONIZATION AT PARTICULAR       *   FILE 226
//*      POINTS IN THE FILES BEING COMPARED.  THIS FILE SHOULD      *   FILE 226
//*      CONTAIN COPIES OF ONE OR MORE CARDS EACH OF WHICH          *   FILE 226
//*      APPEARS EXACTLY ONCE IN BOTH THE OLD AND NEW FILES.        *   FILE 226
//*      THE CARDS IN THE SYNC FILE SHOULD APPEAR IN THE SAME       *   FILE 226
//*      ORDER BY WHICH THEY APPEAR IN THE OLD AND NEW FILES.       *   FILE 226
//*      THEY SHOULD REPRESENT POINTS IN THE OLD AND NEW FILES      *   FILE 226
//*      AT WHICH YOU WISH TO FORCE COMPARISON SYNCHRONIZATION.     *   FILE 226
//*      GENERALLY, SUCH POINTS WILL BE FOLLOWING THOSE AREAS       *   FILE 226
//*      WHERE OTHERWISE UNRECOVERABLE DESYNCHRONIZATION HAS        *   FILE 226
//*      OCCURED.                                                   *   FILE 226
//*                                                                 *   FILE 226
//*      WHEN CMPRSEQ ENCOUNTERS A RESYNCHRONIZATION POINT          *   FILE 226
//*      (I.E., WHEN IT HAS READ A CARD FROM ONE OF THE             *   FILE 226
//*      COMPARISON FILES THAT EXACTLY MACTHES THE NEXT CARD        *   FILE 226
//*      FROM THE SYNC FILE), IT WILL NOT READ ANY FURTHER          *   FILE 226
//*      FROM THAT FILE UNTIL IT READS THE IDENTICAL CARD FROM      *   FILE 226
//*      THE OTHER FILE.  THIS HAS THE EFFECT OF FORCING THE        *   FILE 226
//*      RESOLUTION OF A CURRENT MISMATCH (IF ANY) AT THE           *   FILE 226
//*      RESINCHRONIZATION POINT.                                   *   FILE 226
//*                                                                 *   FILE 226
//*      THE SYNC FILE IS OPTIONAL.  IF IT IS AVAILABLE, THEN       *   FILE 226
//*      IS MUST BE CORRECTLY FORMED.  IF IT IS NOT (I.E., IF       *   FILE 226
//*      IT IS OUT OF SEQUENCE, OR IF IT CONTAINS A CARD THAT       *   FILE 226
//*      DOES NOT APPEAR IN BOTH THE OLD AND NEW FILES), THEN       *   FILE 226
//*      THE CMPRSEQ RUN WILL FAIL.                                 *   FILE 226
//*                                                                 *   FILE 226
//*                   COMPLETION CODES                              *   FILE 226
//*                                                                 *   FILE 226
//*       0 - PROCESSING HAS COMPLETED SUCCESSFULLY.  NO            *   FILE 226
//*           MISMATCHES HAVE BEEN FOUND.                           *   FILE 226
//*                                                                 *   FILE 226
//*       4 - PROCESSING HAS COMPLETED SUCCESSFULLY.  AT LEAST      *   FILE 226
//*           ONE MISMATCH HAS BEEN FOUND.                          *   FILE 226
//*                                                                 *   FILE 226
//*      12 - PROCESSING HAS FAILED.  A MEMORY SHORTAGE HAS         *   FILE 226
//*           OCCURED.                                              *   FILE 226
//*                                                                 *   FILE 226
//*      16 - PROCESSING HAS ABORTED.  ONE OF THE COMPARISON        *   FILE 226
//*           FILES (DDNAME OLD OR NEW) IS NOT AVAILABLE.           *   FILE 226
//*                                                                 *   FILE 226
//*                                                                 *   FILE 226
//***FILE 227 IS IN IEBUPDTE FORMAT AND CONTAINS A SERIES OF        *   FILE 227
//*          PROGRAMS TO ALLOW CERTAIN TSO USERS TO PERFORM         *   FILE 227
//*          AUTHORIZED FUNCTIONS.  FOR ADDITIONAL DOCUMENTATION    *   FILE 227
//*          SEE THE MEMBER CALLED $DOC                             *   FILE 227
//*                                                                 *   FILE 227
//*            THIS PDS CONTAINS THE FOLLOWING MEMBERS              *   FILE 227
//*                                                                 *   FILE 227
//*   MEMBER          DESCRIPTION                                   *   FILE 227
//*                                                                 *   FILE 227
//*   AOFF            PROGRAM TO TURN THE AUTHORIZATION BIT OFF     *   FILE 227
//*   AON             PROGRAM TO TURN THE AUTHORIZATION BIT ON      *   FILE 227
//*   BEGIN           USER MACRO                                    *   FILE 227
//*   CBT385          PROGRAM TO ATTACH IEBCOPY IN AN AUTHORIZED    *   FILE 227
//*                   ENVIRONMENT FOR ANYONE                        *   FILE 227
//*   CBT594          PROGRAM TO ATTACH IKJEFT01 IN AN AUTHORIZED   *   FILE 227
//*                   ENVIRONMENT FOR ANYONE                        *   FILE 227
//*   CBT390          VALIDATION OF USER IDS TO DO AN AUTHORIZED    *   FILE 227
//*                   FUNCTION                                      *   FILE 227
//*   D0              PROGRAM TO ATTACH A LOAD MODULE VIA           *   FILE 227
//*                   LINKLIST (AUTHORIZED)                         *   FILE 227
//*   D0D0            SAME AS D0 EXCEPT BEFORE PGM IS ATTACHED      *   FILE 227
//*                   THIS CODE GOES TO KEY 0 AND SUPERVISOR        *   FILE 227
//*                   STATE.  USED TO GET AROUND PTF UZ26385        *   FILE 227
//*                   (APAR OZ39506) FOR DIDOCS AND SPY.  THIS      *   FILE 227
//*                   PTF PUT THE CONSOLE BUFFERS INTO PROTECTED    *   FILE 227
//*                   STORAGE (NICE PEOPLE)                         *   FILE 227
//*   ENDALL          USER MACRO                                    *   FILE 227
//*   HREADY          HELP MEMBER FOR CBT594 (ALIAS READY)          *   FILE 227
//*   IGC0025D        USER SVC TO TURN AUTHORIZE BIT ON/OFF         *   FILE 227
//*   SAVEALL         USER MACRO                                    *   FILE 227
//*   XEQ             PROGRAM TO ATTACH A LOAD MODULE VIA           *   FILE 227
//*                   LINKLIST (NOT AUTHORIZED)                     *   FILE 227
//*   LISTPW          TSO CP TO LIST ENTRIES FROM THE PASSWORD      *   FILE 227
//*                   DATA SET                                      *   FILE 227
//*   UADS            TSO CP TO ALLOW AUTHORIZED USERS THE ABILITY  *   FILE 227
//*                   TO CHANGE THEIR PSCB                          *   FILE 227
//*                                                                 *   FILE 227
//***FILE 228 IS FROM WILLIAM HORTON OF TENNESSEE EASTMAN COMPANY   *   FILE 228
//*           IN KINGSPORT, TENNESSEE.  THIS FILE CONTAINS AN ISPF  *   FILE 228
//*           DIALOG SYSTEM TO HELP YOU RECOVER DATASETS THAT WERE  *   FILE 228
//*           BACKED UP BY DFHSM.                                   *   FILE 228
//*                                                                 *   FILE 228
//***FILE 229 is a tape copy program from the Air Force Finance     *   FILE 229
//*           Center in Denver.  This pgm will copy all files of    *   FILE 229
//*           an input tape to one to sixteen output tapes.  The    *   FILE 229
//*           original purpose of this program was for copying      *   FILE 229
//*           the SHARE MVS Mods Tape.  This program is quite       *   FILE 229
//*           fast.  The name of this program is "COPYMODS".        *   FILE 229
//*                                                                 *   FILE 229
//*           When first written, the intent of this program was    *   FILE 229
//*           to copy NL tapes.  I have modified COPYMODS very      *   FILE 229
//*           extensively, to teach it about Standard Labeled       *   FILE 229
//*           tapes, and have modified it to copy large-blocked     *   FILE 229
//*           files of up to 64K.  (SG 07/00)                       *   FILE 229
//*                                                                 *   FILE 229
//*           I USE THIS PROGRAM FOR CREATING COPIES OF THE CBT     *   FILE 229
//*           MVS UTILITIES TAPE.  (SG 10/93)                       *   FILE 229
//*                                                                 *   FILE 229
//*           This program is useful in making "carbon copies"      *   FILE 229
//*           from one tape to another, and it can also convert     *   FILE 229
//*           from one tape medium to another.  For example, it     *   FILE 229
//*           can convert from reels to cartridges, or vice-versa.  *   FILE 229
//*                                                                 *   FILE 229
//*           My advice is, however, that you should not mix        *   FILE 229
//*           media types when you make multiple output tapes in    *   FILE 229
//*           one run.  For example, //OUT1 and //OUT2 should       *   FILE 229
//*           both be reels, or both cartridges of the same         *   FILE 229
//*           format (like 3480, 3490IDRC, or 3490E).  Do not mix   *   FILE 229
//*           these.  //IN can be different from //OUTx, however.   *   FILE 229
//*           It is my experience that when the //IN (input tape)   *   FILE 229
//*           was of different media type than the //OUTx (output   *   FILE 229
//*           tapes), this program has always worked flawlessly     *   FILE 229
//*           to convert the tape to a different media format.      *   FILE 229
//*                                                                 *   FILE 229
//*           I fixed the COPYMODS program to copy tapes with       *   FILE 229
//*           up to 64K blocks.  I've also added many other fixes,  *   FILE 229
//*           most of them having to do with teaching the program   *   FILE 229
//*           about Standard Labels.                                *   FILE 229
//*                                                                 *   FILE 229
//*           I've also solved the 2-tape-marks-together problem    *   FILE 229
//*           when you have a null SL tape file.  The program will  *   FILE 229
//*           now copy past that point, if it has seen a HDR1 or    *   FILE 229
//*           HDR2 label before the 2 tape marks.                   *   FILE 229
//*                                                                 *   FILE 229
//*           Under PARM control, this program can now copy         *   FILE 229
//*           initted tapes, and optionally change the VOLSER       *   FILE 229
//*           of the copied SL initted tape.  Thus, you can init    *   FILE 229
//*           a large number of tapes at the same time.             *   FILE 229
//*                                                                 *   FILE 229
//*  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  *   FILE 229
//*                                                                 *   FILE 229
//*       NEW FEATURES ADDED:                      SBG 07/00        *   FILE 229
//*                                                                 *   FILE 229
//*           1.  64K BLOCKS ON A TAPE CAN BE COPIED.               *   FILE 229
//*                                                                 *   FILE 229
//*           2.  UP TO 16 OUTPUT DDNAMES ALLOWED.                  *   FILE 229
//*                                                                 *   FILE 229
//*           3.  INITTED TAPES, AND SL MULTIVOLUME TAPES CAN       *   FILE 229
//*               BE CORRECTLY COPIED.                              *   FILE 229
//*                                                                 *   FILE 229
//*           4.  ALL STANDARD LABEL INFORMATION, OR ANY            *   FILE 229
//*               PARTICULAR LABEL TYPES, CAN BE PRINTED, IF        *   FILE 229
//*               FOUND ON THE INPUT TAPE.                          *   FILE 229
//*                                                                 *   FILE 229
//*           5.  A FLEXIBLE TABLE-DRIVEN PARM KEYWORD SCANNER      *   FILE 229
//*               WAS ADDED.  THIS ALLOWS FOR EASY SETTING OF       *   FILE 229
//*               PROGRAM DEFAULTS, AND KEYWORD SYNONYMS.  SEE      *   FILE 229
//*               LABEL PARMTABL.                                   *   FILE 229
//*                                                                 *   FILE 229
//*           6.  OPTIONALLY, THE VOLSER OF THE OUTPUT TAPES        *   FILE 229
//*               CAN BE SET TO THE JCL VOLSER, INSTEAD OF THE      *   FILE 229
//*               INPUT TAPE'S VOLSER.                              *   FILE 229
//*                                                                 *   FILE 229
//*           7.  TAPES WITH LEADING TAPE MARKS CAN BE COPIED       *   FILE 229
//*               EITHER AS-IS, OR WITH THE LEADING TAPE MARKS      *   FILE 229
//*               LEFT OFF.                                         *   FILE 229
//*                                                                 *   FILE 229
//*           8.  EOV LABELS IN THE MIDDLE OF A TAPE, CAN NOW BE    *   FILE 229
//*               CHANGED TO EOF LABELS, IF THE TAPE WAS CREATED    *   FILE 229
//*               AS A COMPOSITE, BY THE COPYFILE PROGRAM.  THE     *   FILE 229
//*               PARM IS EOV2EOF (SEE PARMTABL FOR ALL ACCURATE    *   FILE 229
//*               AND CURRENT PARM KEYWORD SETTINGS).               *   FILE 229
//*                                                                 *   FILE 229
//*           9.  COPYMODS CAN NOW BE RUN READ-ONLY FOR THE INPUT   *   FILE 229
//*               TAPE, USING PARMS OF READ, READONLY, OR NOWRITE.  *   FILE 229
//*                                                                 *   FILE 229
//***FILE 230 IS FROM AIR PRODUCTS AND CHEMICALS IN TREXLERTOWN,    *   FILE 230
//*           PA. AND CONTAINS A COPY OF THE LISTING HANDED OUT     *   FILE 230
//*           AT SHARE 66 SESSION G107 " ISPF : TRADE FAIR ".  THE  *   FILE 230
//*           HANDOUT DESCRIBES SEVERAL HELPFUL HINTS FOR ISPF :    *   FILE 230
//*             1.  CUSTOMIZING ISPF COMMAND TABLES                 *   FILE 230
//*             2.  USING SMP TO APPLY LOCAL MODS TO ISPF PANELS    *   FILE 230
//*             3.  USING ISPF TABLE SERVICES                       *   FILE 230
//*             4.  ACTUAL SOURCE CODE LISTINGS OF AN ISPF          *   FILE 230
//*                 APPLICATION                                     *   FILE 230
//*           THIS FILE IS 133 X 32718 FBA                          *   FILE 230
//*                                                                 *   FILE 230
//***FILE 231 IS FROM AIR PRODUCTS AND CHEMICALS IN TREXLERTOWN,    *   FILE 231
//*           PA. AND CONTAINS A COPY OF THE SOURCE CODE FOR THE    *   FILE 231
//*           ISPF TABLE SERVICES DEMO APPLICATION FROM FILE 230.   *   FILE 231
//*           FILE 230 ACUTALLY CONTAINS ALL THE SOURCE CODE,  BUT  *   FILE 231
//*           IT IS IN PRINTED LISTING FORMAT.  THIS FILE IS IN     *   FILE 231
//*           IEBUPDTE SYSIN FORMAT AND CONTAINS THE SOURCE AS      *   FILE 231
//*           SEPARATE MEMBERS.  THE MEMBER CALLED $DOC EXPLAINS    *   FILE 231
//*           WHAT THE PARTS ARE AND HOW TO MAKE IT WORK.           *   FILE 231
//*                                                                 *   FILE 231
//***FILE 232 IS FROM AIR PRODUCTS AND CHEMICALS IN TREXLERTOWN,    *   FILE 232
//*           PA. AND CONTAINS ASSEMBLER MACROS TO TAKE AN MVS      *   FILE 232
//*           IOGEN DECK AND TURN IT INTO A REASONABLE              *   FILE 232
//*           APPROXIMATION OF THE VM/XA SF REAL IO CONFIGURATION   *   FILE 232
//*           FILE (HCPRIO).  THIS FILE IS IN IEBUPDTE SYSIN        *   FILE 232
//*           FORMAT.  SEE THE MEMBER CALLED $DOC FOR ADDITIONAL    *   FILE 232
//*           INFORMATION AND THE MEMBER CALLED $JCL FOR THE        *   FILE 232
//*           SAMPLE JCL TO RUN THE ASSEMBLY.                       *   FILE 232
//*                                                                 *   FILE 232
//***FILE 233 IS THE GBHABEND PROGRAM FROM GORDON HAMPTON OF        *   FILE 233
//*           COLONIA, NEW JERSEY.  THIS IS A BATCH PROGRAM THAT    *   FILE 233
//*           IS A FRONT END TO THE ABEND MACRO.  THIS PROGRAM      *   FILE 233
//*           WILL GENERATE ANY ABEND CODE IN A JOBSTREAM:          *   FILE 233
//*           SYSTEM, USER, OR SYSTEM WITH REASON CODE.  YOU CAN    *   FILE 233
//*           FIND MANY USES FOR THIS PROGRAM, SIMULATING YOUR      *   FILE 233
//*           OWN S0C4 ABENDS, OR STOPPING A JOBSTREAM UNDER        *   FILE 233
//*           CONDITION CODE CONTROL.  GORDON USED THIS PROGRAM     *   FILE 233
//*           FOR MANY YEARS TO CHECK UP ON THE "ABENDAID" PEOPLE   *   FILE 233
//*           TO SEE HOW THEY WERE IMPROVING THEIR ACT FROM         *   FILE 233
//*           RELEASE TO RELEASE.                                   *   FILE 233
//*                                                                 *   FILE 233
//*         GORDON_B_HAMPTON@CSI.COM (GORDON BOYD HAMPTON)   HOME   *   FILE 233
//*         GORDON.HAMPTON@CHASE.COM (GORDON BOYD HAMPTON)   WORK   *   FILE 233
//*                                                                 *   FILE 233
//*   HOME PAGE -                                                   *   FILE 233
//*     HTTP://OURWORLD.COMPUSERVE.COM/HOMEPAGES/GORDON_B_HAMPTON   *   FILE 233
//*                                                                 *   FILE 233
//*         GORDON B. HAMPTON                                       *   FILE 233
//*         CHEM NETWORK PROCESSING SERVICES                        *   FILE 233
//*         130 BELMONT DRIVE                                       *   FILE 233
//*         SOMERSET, NJ 08873                                      *   FILE 233
//*                                                                 *   FILE 233
//***FILE 234 IS FROM JIM MARSHALL AND CONTAINS A SYS1.BRODCAST     *   FILE 234
//*           SCAN PROGRAM, MODIFIED FROM THE BRODSCAN PROGRAM      *   FILE 234
//*           ON FILE 316.  SYS1.BRODCAST RECORD TYPES HAVE BEEN    *   FILE 234
//*           DSECT'ED AND DOCUMENTED IN PREPARATION FOR POSSIBLE   *   FILE 234
//*           FURTHER WORK.  JIM'S CURRENT ADDRESS IS               *   FILE 234
//*                                                                 *   FILE 234
//*                 JIM MARSHALL, US TREASURY                       *   FILE 234
//*                 FINANCIAL MANAGEMENT SERVICE                    *   FILE 234
//*                 PRINCE GEORGES PLAZA II - ROOM 400B             *   FILE 234
//*                 3700 EAST-WEST HIGHWAY                          *   FILE 234
//*                 HYATTSVILLE, MD  20782                          *   FILE 234
//*                 202-874-8353                                    *   FILE 234
//*                                                                 *   FILE 234
//*                                                                 *   FILE 234
//***FILE 235 IS AN LPA/SVC REAL TIME LOADER AND REPLACEMENT AND    *   FILE 235
//*          PERFORMANCE TOOL FROM CHYRSLER PARTS.                  *   FILE 235
//*          MODULE CONCEPTS:  REAL TIME, MLPA SIMULATION, SVC      *   FILE 235
//*           REPLACEMENT AND MODULE FIXING (FOR PERFORMANCE AND    *   FILE 235
//*           EASE OF IN-CORE ZAP).                                 *   FILE 235
//*           THIS MODULE IS PAGEABLE.                              *   FILE 235
//*           LOADED MODULES AND SVCS ARE PLACED IN FIXED CSA       *   FILE 235
//*           MEMORY.                                               *   FILE 235
//*           WHY IN FIXED MEMORY ?                                 *   FILE 235
//*           1) TYPE 1 AND 2 SVC'S MUST BE RESIDENT IN THE         *   FILE 235
//*              NUCLEUS (OR AT LEAST APPEAR TO BE SO).             *   FILE 235
//*           2) AS THIS IS A TEST TOOL, THE ASSUMPTION IS THAT     *   FILE 235
//*              IN-CORE ZAPS MAY BECOME NECESSARY AND YOU ARE      *   FILE 235
//*              ASSURED THE MODULE WILL BE IN CORE AT ALL TIMES    *   FILE 235
//*              (NOT PAGED OUT).                                   *   FILE 235
//*           3) FOR PERFORMANCE TESTING, A DUPLICATE COPY OF A     *   FILE 235
//*              CURRENTLY PAGEABLE MODULE MAY BE RE-LOADED, AND    *   FILE 235
//*              YOU WILL BE ABLE TO EXAMINE THE PERFORMANCE GAINS  *   FILE 235
//*              THAT WOULD RESULT IN THE PERMANENT FIXING OF THE   *   FILE 235
//*              MODULE VIA IEAFIXXX.                               *   FILE 235
//*                                                                 *   FILE 235
//*           FOR ADDITIONAL DOCUMENTATION ON THIS PROGRAM SEE THE  *   FILE 235
//*           SOURCE CODE.                                          *   FILE 235
//*                                                                 *   FILE 235
//***FILE 236 IS FROM SAM GOLOB AND CONTAINS SEVERAL VERSIONS OF    *   FILE 236
//*          A ZAP TO SHORTEN THE "LISTC LEVEL" LISTING, SO IT      *   FILE 236
//*          DOESN'T DISPLAY THE CATALOG NAME AFTER EACH DATASET    *   FILE 236
//*          NAME.  THIS ZAP IS FITTED FOR 5 VERSIONS OF DFP, WITH  *   FILE 236
//*          INSTRUCTIONS INCLUDED ON HOW TO FIT IT FOR OTHER       *   FILE 236
//*          LEVELS OF MODULE IDCLC01.  THIS ZAP WAS SHOWN TO ME    *   FILE 236
//*          INITIALLY BY MY FRIEND MERV HEMP OF NORTHRIDGE,        *   FILE 236
//*          CALIFORNIA.                                            *   FILE 236
//*                                                                 *   FILE 236
//*          A WHOLE BUNCH OF PTF LEVEL ZAPS HAVE ALSO BEEN         *   FILE 236
//*          SUPPLIED HERE.  THESE WERE OBTAINED DIRECTLY FROM      *   FILE 236
//*          THE OBJECT DECKS OF THE PTFS, USING THE "PDSTOOLS"     *   FILE 236
//*          VENDOR PRODUCT FROM SERENA INC.  (DOING ALL OF THEM    *   FILE 236
//*          TOOK ONLY ABOUT AN HOUR OR TWO, INCLUDING THE TIME TO  *   FILE 236
//*          FIND ALL THE SMPPTS DATASETS AND ALL THE RELEVANT      *   FILE 236
//*          PTFS WE HAD IN HOUSE.  WE HAVE A LARGE DATA CENTER     *   FILE 236
//*          WITH MANY LPARS, AND YOU CAN SEE HOW MANY VERSIONS     *   FILE 236
//*          OF THIS ZAP I HAVE FOUND (AT LEAST 17) FOR THIS SITE.  *   FILE 236
//*                                                                 *   FILE 236
//***FILE 237 IS A PROGRAM FROM THE FLORIDA POWER COMMISSION THAT   *   FILE 237
//*          WILL PRODUCE THE FOLLOWING TWO REPORTS FROM A LOAD     *   FILE 237
//*          LIBRARY                                                *   FILE 237
//*            1. LIST ALL CSECT NAMES WITHIN EACH MEMBER.          *   FILE 237
//*            2. LIST ALL MEMBERS WHICH REFERENCE EACH             *   FILE 237
//*               CSECT NAME.                                       *   FILE 237
//*                                                                 *   FILE 237
//***FILE 238 IS FROM VALENTIN CHERNYAK OF RIVER EDGE, NEW JERSEY   *   FILE 238
//*           AND CONTAINS REASM, WHICH IS A SUPER DISASSEMBLER     *   FILE 238
//*           THAT RUNS INTERACTIVELY UNDER ISPF.  THIS FILE        *   FILE 238
//*           CONTAINS LOAD MODULES FOR REASM.                      *   FILE 238
//*                                                                 *   FILE 238
//*        EMAIL:   JOPA@HOTMAIL.COM                                *   FILE 238
//*                 WEBMASTER@REASM.COM                             *   FILE 238
//*                 HTTP://WWW.REASM.COM                            *   FILE 238
//*                                                                 *   FILE 238
//*        PHONE:   914-320-0827                                    *   FILE 238
//*                                                                 *   FILE 238
//*           THIS PROGRAM IS WRITTEN IN PL/I OPTIMIZER.  YOU NEED  *   FILE 238
//*           TO HAVE THE PL/I RELEASE 2.3.0 TRANSIENT LIBRARY TO   *   FILE 238
//*           RUN THESE LOAD MODULES.  IT MAY IN THE FUTURE BE      *   FILE 238
//*           POSSIBLE TO REMEDY THIS SOMEWHAT, BUT THIS IS THE     *   FILE 238
//*           CASE AT THE CURRENT TIME.                             *   FILE 238
//*                                                                 *   FILE 238
//*           REASM IS AN ISPF APPLICATION WHICH DISPLAYS YOUR      *   FILE 238
//*           CSECT IN HEX, AND THEN ALLOWS YOU TO DECODE PART OF   *   FILE 238
//*           IT AS INSTRUCTIONS, REALIGN THE DISASSEMBLY, TREAT    *   FILE 238
//*           PARTS OF THE CODE AS CONSTANTS, ETC., ALL OF THAT     *   FILE 238
//*           USING ISPF-TYPE LINE COMMANDS AND PRIMARY COMMANDS.   *   FILE 238
//*                                                                 *   FILE 238
//*           YOU CAN INTERACTIVELY MOLD THE DISASSEMBLED SOURCE    *   FILE 238
//*           AS MUCH AS YOU WANT TO.  YOU DON'T HAVE TO MAKE       *   FILE 238
//*           MULTIPLE BATCH PASSES.  YOU DO IT ALL INTERACTIVELY.  *   FILE 238
//*           THERE IS A COMPLETE SET OF ISPF CONTEXTUAL HELP       *   FILE 238
//*           INCLUDED IN THIS PACKAGE.                             *   FILE 238
//*                                                                 *   FILE 238
//*           THIS DISASSEMBLER ALSO HAS A FACILITY TO DYNAMICALLY  *   FILE 238
//*           FIT LABELS FROM DSECTS IN MACROS.  THESE LABELS CAN   *   FILE 238
//*           GO ANYWHERE IN THE SOURCE YOU SAY.  THE MACROS HAVE   *   FILE 238
//*           TO BE PRE-DIGESTED USING VALENTIN'S SPECIAL UTILITY   *   FILE 238
//*           THAT IS INCLUDED IN THIS FILE, WHICH IS CALLED        *   FILE 238
//*           "PRCBGEN".                                            *   FILE 238
//*                                                                 *   FILE 238
//***FILE 239 IS FROM VALENTIN CHERNYAK OF RIVER EDGE, NEW JERSEY   *   FILE 239
//*           AND CONTAINS REASM, WHICH IS A SUPER DISASSEMBLER     *   FILE 239
//*           THAT RUNS INTERACTIVELY UNDER ISPF.  THIS FILE        *   FILE 239
//*           CONTAINS ISPF PANELS FOR REASM.                       *   FILE 239
//*                                                                 *   FILE 239
//***FILE 240 IS FROM VALENTIN CHERNYAK OF RIVER EDGE, NEW JERSEY   *   FILE 240
//*           AND CONTAINS REASM, WHICH IS A SUPER DISASSEMBLER     *   FILE 240
//*           THAT RUNS INTERACTIVELY UNDER ISPF.  THIS FILE        *   FILE 240
//*           CONTAINS ISPF MESSAGES FOR REASM.                     *   FILE 240
//*                                                                 *   FILE 240
//***FILE 241 IS FROM VALENTIN CHERNYAK OF RIVER EDGE, NEW JERSEY   *   FILE 241
//*           AND CONTAINS REASM, WHICH IS A SUPER DISASSEMBLER     *   FILE 241
//*           THAT RUNS INTERACTIVELY UNDER ISPF.  THIS FILE        *   FILE 241
//*           CONTAINS DOCUMENTATION AND JCL FOR REASM.             *   FILE 241
//*                                                                 *   FILE 241
//***FILE 242 IS FROM VALENTIN CHERNYAK OF RIVER EDGE, NEW JERSEY   *   FILE 242
//*           AND CONTAINS REASM, WHICH IS A SUPER DISASSEMBLER     *   FILE 242
//*           THAT RUNS INTERACTIVELY UNDER ISPF.  THIS FILE        *   FILE 242
//*           CONTAINS A COLLECTION OF "PRE-DIGESTED" MVS MACROS    *   FILE 242
//*           FOR REASM, TO INTERACTIVELY SUPPLY MAPPING LABELS.    *   FILE 242
//*           YOU CAN ADD TO THIS COLLECTION WITH THE "PRCBGEN"     *   FILE 242
//*           UTILITY THAT IS SUPPLIED ON FILE 238.                 *   FILE 242
//*                                                                 *   FILE 242
//***FILE 243 IS CURRENTLY EMPTY                                    *   FILE 243
//*                                                                 *   FILE 243
//***FILE 244 IS FROM PHILIP PECKSEN OF NFU MUTUAL INSURANCE IN     *   FILE 244
//*           STRATFORD UPON AVON, ENGLAND.  THIS FILE COMES FROM   *   FILE 244
//*           A TAPE BEING MADE AVAILABLE TO UK G.U.I.D.E.          *   FILE 244
//*           MEMBERS.  THIS PARTICULAR FILE HAS NEWER MATERIALS,   *   FILE 244
//*           AND IS AN ADDENDUM TO THE OLD UK G.U.I.D.E. TAPE      *   FILE 244
//*           FILE.                                                 *   FILE 244
//*                                                                 *   FILE 244
//*           THE OLD UK G.U.I.D.E. GOODIES FILE IS TOO LONG AND    *   FILE 244
//*           TOO OLD (IN MY OPINION) TO BE INCLUDED AT THIS TIME   *   FILE 244
//*           ON THE CBT TAPE.  THE MATERIALS FROM THAT TAPE ARE    *   FILE 244
//*           CURRENTLY INCLUDED IN THE CBT OVERFLOW TAPE.          *   FILE 244
//*                                                                 *   FILE 244
//*            ADDRESS:   PHILIP PECKSEN                            *   FILE 244
//*                       NFU MUTUAL INSURANCE                      *   FILE 244
//*                       TIDDINGTON ROAD                           *   FILE 244
//*                       STRATFORD UPON AVON                       *   FILE 244
//*                       WARKS CV37 7BJ                            *   FILE 244
//*                       ENGLAND                                   *   FILE 244
//*                                                                 *   FILE 244
//*            EMAIL:     PHILIP_PECKSEN@NFUMUTUAL.CO.UK            *   FILE 244
//*                                                                 *   FILE 244
//*            TELEPHONE:  +44-1-789-202111                         *   FILE 244
//*                                                                 *   FILE 244
//*                  GUIDE GOODIES      1993 'A'                    *   FILE 244
//*                  =============      ========                    *   FILE 244
//*                                                                 *   FILE 244
//*   THIS DATASET HAS BEEN BUILT UP FROM SEVERAL CONTRIBUTIONS     *   FILE 244
//*   COLLECTED OVER THE LAST FEW MONTHS TO FORM THE FIRST CUT OF   *   FILE 244
//*   A NEW GOODIES FILE.                                           *   FILE 244
//*                                                                 *   FILE 244
//*   WHERE MEMBER NAMES HAVE NOT CONFORMED TO THE REQUESTED        *   FILE 244
//*   FORMAT THE FIRST THREE CHARACTERS IN MOST CASES HAVE BEEN     *   FILE 244
//*   CHANGED TO 'ANN' SO BEWARE IF COMPILING PROGRAMS AS MEMBER    *   FILE 244
//*   NAMES WILL NEED ADJUSTING TO WHAT THE PROGRAM EXPECTS.  -     *   FILE 244
//*   SORRY BUT ITS THE ONLY WAY TO KEEP THE TAPE IN A SENSIBLE     *   FILE 244
//*   FORMAT.                                                       *   FILE 244
//*                                                                 *   FILE 244
//*   EACH COMPANY CONTRIBUTION HAS AN INDIVIDUAL 3 CHARACTER       *   FILE 244
//*   PREFIX AND AN INDEX MEMBER.  TO HELP EVALUATE THE DATASET     *   FILE 244
//*   ALL OF THE INDEX MEMBERS ARE COPIED INTO THIS MEMBER AS       *   FILE 244
//*   WELL.                                                         *   FILE 244
//*                                                                 *   FILE 244
//*   GOOD LUCK  --    PHILIP PECKSEN         SEPT 1993             *   FILE 244
//*                                                                 *   FILE 244
//*  -------------------------------------------------------------  *   FILE 244
//*    A01XXXXX          GOODIES DOCUMENTATION                      *   FILE 244
//*    --------          ---------------------                      *   FILE 244
//*    CONTRIBUTED  BY    DAVE THORBY                               *   FILE 244
//*                       LONDON ELECTRICITY                        *   FILE 244
//*                       +44-1-71-232 3045                         *   FILE 244
//*  -------------------------------------------------------------  *   FILE 244
//*                                                                 *   FILE 244
//*    A01CHECK         CHECKS IF A SPECIFIED JOB IS STILL RUNNING  *   FILE 244
//*    A01ENQ           TSO C.P. TO DISPLAY ENQUEUES                *   FILE 244
//*    A01INMRZ         I.D.T.F. RECEIVE PRE-PROCESSOR TO CHECK     *   FILE 244
//*                     FOR MIGRATED LOG D/S                        *   FILE 244
//*    A01IPLVO         TSO C.P. TO DISPLAY CURRENT IPL VOLUME      *   FILE 244
//*    A01IPLNV         DELETE DATA SETS CATALOGUED TO VOLUMES      *   FILE 244
//*                     WHICH NO LONGER EXIST                       *   FILE 244
//*    A01DSNWT         WAITS FOR A DATA SET TO BECOME AVAILABLE    *   FILE 244
//*                     WITHOUT RESERVING IT                        *   FILE 244
//*    A01CALL          TSO C.P. TO CALL A PROGRAM FROM THE         *   FILE 244
//*                     LINKLIST                                    *   FILE 244
//*    A01MOVIE         ISPF MOVING PICTURES  E.G. XMAS LOGON       *   FILE 244
//*                     MESSAGE                                     *   FILE 244
//*    A01TAPE          TAPE SCAN PROGRAM                           *   FILE 244
//*    A01EXTNT         ADD SECONDARY EXTENTS, CHANGE BLOCKSIZE,    *   FILE 244
//*                     REALLOCATE IN TRACKS                        *   FILE 244
//*    A01FREE          GET FREE SPACE FOR ALL ONLINE DASD          *   FILE 244
//*    A01GETAC         GET TSO USER'S CURRENT ACCOUNT CODE INTO    *   FILE 244
//*                     CLIST VARIABLE                              *   FILE 244
//*    A01HSMNC         CHECK DFHSM MCDS FOR UNCATALOGUED           *   FILE 244
//*                     MIGRATED DATA SETS                          *   FILE 244
//*    A01LIST          AVOID TSO ABEND S806 FOR                    *   FILE 244
//*                     LIST/ASM/CALC/COBOL/FORT/COPY/MERGE         *   FILE 244
//*    A01P0100         ISPF BASED IBM MANUAL MANAGEMENT PROGRAM    *   FILE 244
//*    A01PC100                "    INVOCATION CLIST                *   FILE 244
//*    A01PM00                 "    MESSAGE MEMBER                  *   FILE 244
//*    A01PM01                 "    MESSAGE MEMBER                  *   FILE 244
//*    A01PM02                 "    MESSAGE MEMBER                  *   FILE 244
//*    A01PM03                 "    MESSAGE MEMBER                  *   FILE 244
//*    A01PM04                 "    MESSAGE MEMBER                  *   FILE 244
//*    A01PM09                 "    MESSAGE MEMBER                  *   FILE 244
//*    A01PP010                "    PANEL                           *   FILE 244
//*    A01PP020                "    PANEL                           *   FILE 244
//*    A01PP030                "    PANEL                           *   FILE 244
//*    A01PP040                "    PANEL                           *   FILE 244
//*    A01PP050                "    PANEL                           *   FILE 244
//*    A01PP060                "    PANEL                           *   FILE 244
//*    A01PP070                "    PANEL                           *   FILE 244
//*    A01PP080                "    PANEL                           *   FILE 244
//*    A01PP090                "    PANEL                           *   FILE 244
//*    A01PP100                "    PANEL                           *   FILE 244
//*    A01PP110                "    PANEL                           *   FILE 244
//*    A01PP120                "    PANEL                           *   FILE 244
//*    A01PP130                "    PANEL                           *   FILE 244
//*    A01PP140                "    PANEL                           *   FILE 244
//*    A01PH010                "    TUTORIAL                        *   FILE 244
//*    A01PH020                "    TUTORIAL                        *   FILE 244
//*    A01PH030                "    TUTORIAL                        *   FILE 244
//*    A01PH040                "    TUTORIAL                        *   FILE 244
//*    A01PH050                "    TUTORIAL                        *   FILE 244
//*    A01PH060                "    TUTORIAL                        *   FILE 244
//*    A01PH070                "    TUTORIAL                        *   FILE 244
//*    A01PH080                "    TUTORIAL                        *   FILE 244
//*    A01PH090                "    TUTORIAL                        *   FILE 244
//*    A01PH100                "    TUTORIAL                        *   FILE 244
//*    A01PH101                "    TUTORIAL                        *   FILE 244
//*    A01PH110                "    TUTORIAL                        *   FILE 244
//*    A01PH120                "    TUTORIAL                        *   FILE 244
//*    A01PH130                "    TUTORIAL                        *   FILE 244
//*    A01P0200                "    FILE LISTING PROGRAM            *   FILE 244
//*    A01LOGOF         LOGOFF TSO FROM ISPF MAIN MENU              *   FILE 244
//*    A01SKEOF         RECOVER DATA FROM BEYOND END OF FILE        *   FILE 244
//*                     MARKS ON DASD                               *   FILE 244
//*    A01SMF           SCAN SMF FOR SELECTED RECORD TYPES          *   FILE 244
//*    A01SCAN          SCAN RECFM=VS/VBS DATA SETS FOR MISSING     *   FILE 244
//*                     SEGMENTS                                    *   FILE 244
//*    A01VERFY         ENSURE ALL VSAM DATA SETS ON A DISK ARE     *   FILE 244
//*                     PROPERLY CLOSED                             *   FILE 244
//*    A01PAGEL         DISPLAY LIST OF PAGE + SWAP DATA SETS       *   FILE 244
//*    A01RACXT         DISPLAY SPECIFIED USER'S DEFAULT RACF       *   FILE 244
//*                     GROUP + USER NAME                           *   FILE 244
//*    A01RCORE         REALTIME REPORT ON REAL STORAGE FRAMES      *   FILE 244
//*                     USED (C/F RMF)                              *   FILE 244
//*    A01VRGRP         SET CLIST VARIABLE TO CURRENT RACF          *   FILE 244
//*                     CONNECT GROUP                               *   FILE 244
//*    A01UT01          CREATE CONTROL CARD(S) FROM PARM            *   FILE 244
//*    A01WAIT          TSO C.P. TO WAIT A SPECIFIED LENGTH OF      *   FILE 244
//*                     TIME                                        *   FILE 244
//*    A01ZDOW          ISPF CLIST TO GET DAY OF WEEK               *   FILE 244
//*                                                                 *   FILE 244
//*  -------------------------------------------------------------  *   FILE 244
//*    A02XXXXX          GOODIES DOCUMENTATION                      *   FILE 244
//*    --------          ---------------------                      *   FILE 244
//*    CONTRIBUTED  BY    --                                        *   FILE 244
//*                            MIKE TEALE                           *   FILE 244
//*                            L.O.L.A.                             *   FILE 244
//*                            +44-1-81-366 6611 X285               *   FILE 244
//*  -------------------------------------------------------------  *   FILE 244
//*                                                                 *   FILE 244
//*    THIS LIBRARY CONTAINS THE FOLLOWING GOODIES:-                *   FILE 244
//*                                                                 *   FILE 244
//*     1. AN EDIT MACRO CALLED ZOOM WHICH WILL DISPLAY A JCL       *   FILE 244
//*        PROCEDURE WHILE EDITING JCL. THE CURSOR IS PLACED ON     *   FILE 244
//*        AN EXEC STATEMENT IN YOUR JOB AND THE ZOOM COMMAND       *   FILE 244
//*        ENTERED. THE JCL PROC WILL BE DISPLAYED VIA A BROWSE     *   FILE 244
//*        PANEL.                                                   *   FILE 244
//*                                                                 *   FILE 244
//*        MEMBER NAMES:   A02ZOOM                                  *   FILE 244
//*                                                                 *   FILE 244
//*     2. AN EDIT MACRO CALLED JOBC WHICH WILL GENERATE A JOB      *   FILE 244
//*        CARD.  THIS MACRO DISPLAYS AN ENTRY PANEL AND IS         *   FILE 244
//*        DOCUMENTED VIA TUTORIAL PANELS. THE JOB STANDARD IS      *   FILE 244
//*        FOR L.O.L.A.'S  SET UP BUT CAN BE CHANGED.               *   FILE 244
//*                                                                 *   FILE 244
//*        MEMBER NAMES:   JOBC,A02N021,A02N0211  -  EDIT MACROS    *   FILE 244
//*                        A02N021                -  ENTRY PANEL    *   FILE 244
//*                        A02MGN02               -  MESSAGES       *   FILE 244
//*                        A02N....               -  HELP PANELS    *   FILE 244
//*                                                                 *   FILE 244
//*     3. A PROGRAM CALLED Z7504 THAT WILL CONVERT AWKWARD         *   FILE 244
//*        CHARACTERS SUCH AS AMPERSANDS AND BRACKETS IN CLIST      *   FILE 244
//*        VARIABLES TO OTHER CHARACTERS SO THAT THE CLIST CAN      *   FILE 244
//*        COMPLETE NORMALLY. THIS WAS WRITTEN TO CATER FOR THE     *   FILE 244
//*        SITUATION WHERE SOMEONE ENTERS AN AMPERSAND IN AN ISPF   *   FILE 244
//*        PANEL VARIABLE AND WHEN THE CLIST TRIES TO DO ANYTHING   *   FILE 244
//*        WITH THE VARIABLE IT BLOWS UP.                           *   FILE 244
//*                                                                 *   FILE 244
//*        MEMBER NAMES:   A02Z7504           -  PROGRAM            *   FILE 244
//*                        A02SETUP,A02CLEAR  -  MACROS             *   FILE 244
//*                        A0JVARS            -  JCL TO             *   FILE 244
//*                                              ASSEMBLE/LINK      *   FILE 244
//*                                                                 *   FILE 244
//*     4. A PROGRAM CALLED Z3426 - A CPU SOAK PROGRAM TO MANAGE    *   FILE 244
//*        CPU RESOURCE. THIS PROGRAM AS IT STANDS REQUIRES ACF2    *   FILE 244
//*        BUT COULD BE CHANGED IF ACF2 IS NOT YOUR SECURITY        *   FILE 244
//*        PRODUCT.                                                 *   FILE 244
//*                                                                 *   FILE 244
//*        MEMBER NAMES:   A02Z3426           -  PROGRAM            *   FILE 244
//*                        A02SETUP,A02CLEAR  -  MACROS             *   FILE 244
//*                                       ALSO USES ACF2 MACROS     *   FILE 244
//*                        A02SOAK            -  JCL TO             *   FILE 244
//*                                              ASSEMBLE/LINK      *   FILE 244
//*                                                                 *   FILE 244
//*  -------------------------------------------------------------  *   FILE 244
//*    A03XXXXX          GOODIES DOCUMENTATION                      *   FILE 244
//*    --------          ---------------------                      *   FILE 244
//*    CONTRIBUTED  BY    DERBYSHIRE COUNTY COUNCIL                 *   FILE 244
//*                       C HAMPSHIRE                               *   FILE 244
//*                       +44-1-629 580000 X7764                    *   FILE 244
//*  -------------------------------------------------------------  *   FILE 244
//*                                                                 *   FILE 244
//*      NAME    -                     DESCRIPTION                  *   FILE 244
//*  ============================================================== *   FILE 244
//*    A03APSX1  -  LASER PRINTER HEADER-SEPARATOR PAGE.            *   FILE 244
//*    A03LPA01  -  SYS1.PARMLIB FOR IEFUJV/IKJEFLD                 *   FILE 244
//*    A03UJV    -  SMF EXIT IEFUJV (JOB CARD VALIDATION)           *   FILE 244
//*    A03UJVRR  -  REFRESH ROUTINE FOR SMF EXIT IEFUJV             *   FILE 244
//*    A03EFLD   -  IKJEFLD TSO LOGON EXIT                          *   FILE 244
//*    A03ITERM  -  FIND TERMINAL ID IN ISPF                        *   FILE 244
//*    A03X023   -  JES USER EXIT 023. - PREPARE OUTPUT FOR         *   FILE 244
//*                 LASER PRINTER                                   *   FILE 244
//*                                                                 *   FILE 244
//*    A03LLOW   -  ENSURES JOBS RUN IN CORRECT COMBINATION.        *   FILE 244
//*    A03LLOWP  -  UTALLOW DOCUMENTATION                           *   FILE 244
//*    A03LLOWR  -  JCL TO RUN UTALLOW.                             *   FILE 244
//*                                                                 *   FILE 244
//*  -------------------------------------------------------------  *   FILE 244
//*   A04XXXXX          GOODIES DOCUMENTATION                       *   FILE 244
//*   --------          ---------------------                       *   FILE 244
//*   CONTRIBUTED  BY    NICK VARLEY                                *   FILE 244
//*                      GE CAPITAL                                 *   FILE 244
//*                      +44-1-272 353555                           *   FILE 244
//*  -------------------------------------------------------------  *   FILE 244
//*                                                                 *   FILE 244
//*    A04VTOC          VTOC FIX FOR DFP V3 TO PREVENT PDS/E        *   FILE 244
//*                     FORMAT ASSUMED                              *   FILE 244
//*                                                                 *   FILE 244
//*  -------------------------------------------------------------  *   FILE 244
//*   A05XXXXX          GOODIES DOCUMENTATION                       *   FILE 244
//*   --------          ---------------------                       *   FILE 244
//*   CONTRIBUTED  BY    PAUL VOYNER                                *   FILE 244
//*                      WHITBREAD                                  *   FILE 244
//*                      +44-1-734 581166                           *   FILE 244
//*   ------------------------------------------------------------  *   FILE 244
//*                                                                 *   FILE 244
//*      REXX UTILITY TO CALL DISPLAY OF SYSTEM INFO (LAST          *   FILE 244
//*      IPL, MVS VERSION FMID CPU ID'S, AFP LIBS AND LINK LIST     *   FILE 244
//*                                                                 *   FILE 244
//*     A05DATEC    DATE CONVERSION ROUTINE                         *   FILE 244
//*     A05IPL      INVOCATION ROUTINE                              *   FILE 244
//*     A0505SYS    REXX                                            *   FILE 244
//*     A0505P001   PANEL DEF                                       *   FILE 244
//*                                                                 *   FILE 244
//*  -------------------------------------------------------------  *   FILE 244
//*    A06XXXXX          GOODIES DOCUMENTATION                      *   FILE 244
//*    --------          ---------------------                      *   FILE 244
//*    CONTRIBUTED  BY    BERNIE ROYLE                              *   FILE 244
//*                       WOOLWORTHS                                *   FILE 244
//*                       ROCHDALE 47301                            *   FILE 244
//*  -------------------------------------------------------------  *   FILE 244
//*                                                                 *   FILE 244
//*     A06DOCMS MEMBER EXPLAINING HOW TO RUN WHO DELETED DATASET   *   FILE 244
//*              REPORT PROGRAM.                                    *   FILE 244
//*                                                                 *   FILE 244
//*     A06CLOCK GENERAL PURPOSE DATE AND TIME PROGRAM USED IN      *   FILE 244
//*              DELETE REPROT PROGRAM.                             *   FILE 244
//*                                                                 *   FILE 244
//*     A06DELRP DELETED DATASET REPORT PROGRAM.                    *   FILE 244
//*                                                                 *   FILE 244
//*  -------------------------------------------------------------  *   FILE 244
//*    A07XXXXX          GOODIES DOCUMENTATION                      *   FILE 244
//*    --------          ---------------------                      *   FILE 244
//*    CONTRIBUTED  BY    KEVIN FERGESON                            *   FILE 244
//*                       CLEVELAND COUNTY COUNCIL                  *   FILE 244
//*                       +44-1-642 26310                           *   FILE 244
//*  -------------------------------------------------------------  *   FILE 244
//*                                                                 *   FILE 244
//*     A07BROWS    BROWSE                                          *   FILE 244
//*     A07CLSCR    CLEARSCR     CLEAR THE VDU SCREEN               *   FILE 244
//*     A07DATE     DATE TRANSLATE ROUTINE                          *   FILE 244
//*     A07DAY      TELL USER WHAT DAY A DATE WAS                   *   FILE 244
//*     A07EOJ      EOJ                                             *   FILE 244
//*     A07701DX    IEC701DX  CHANGE CONSOLE IDENTIFIER OF THE      *   FILE 244
//*                 TAPE MESSAGE                                    *   FILE 244
//*     A07176IX    IEF176IX  ISSUE STOP TO EXTERNAL WRITER         *   FILE 244
//*     A07000IX    IOS000IX  MAKE IOS000I A NON DELETE MESSAGE     *   FILE 244
//*                 FOR DASD                                        *   FILE 244
//*     A07REGEQ    REGISTER EQUATES                                *   FILE 244
//*     A07SV255    SVC255                                          *   FILE 244
//*     A07UTCPY    FRONT END FOR IEBCOPY                           *   FILE 244
//*     A07ZAP1     ALLOWS IPOUPDTE TO RUN AGAINST ANY PDS          *   FILE 244
//*     A07ZAP1A    ALLOWS CPPUPDTE TO RUN AGAINST ANY PDS          *   FILE 244
//*     A07ZAP2     MAKES IEBPTPCH PRINT ALPABETICALLY              *   FILE 244
//*     A07ZAP3     MAKES IEBPTPCH PRINT ALPABETICALLY -            *   FILE 244
//*                 OTHER RELEASES                                  *   FILE 244
//*     A07ZAP4     STOPS AN EXTERNAL WRITER AT 'WAITING FOR WORK'  *   FILE 244
//*     A07ZAP4     STOPS AN EXTERNAL WRITER AT 'WAITING FOR WORK'  *   FILE 244
//*                 MORE RELEASES                                   *   FILE 244
//*                                                                 *   FILE 244
//*     SMFSCAN CONSISTS OF THE FOLLOWING PROGRAMS :-               *   FILE 244
//*                                                                 *   FILE 244
//*     A07PARSE   SMFPARSE - PARSES SYSIN INPUT. THIS PROGRAM      *   FILE 244
//*                           IS THE MAIN ENTRY POINT. IT CALLS     *   FILE 244
//*                           SMFSCANT TO PRINT TITLES THEN IT      *   FILE 244
//*                           VALIDATES THE SYSIN DATA STREAM       *   FILE 244
//*                           AND THEN (IF ALL IS OK) LINKS TO      *   FILE 244
//*                           SMFSCANR.                             *   FILE 244
//*                                                                 *   FILE 244
//*     A07SCANT   SMFSCANT - PRINTS THE TITLE PAGES FOR SMFSCAN.   *   FILE 244
//*                           THIS PROGRAM WILL PRINT THE TITLE     *   FILE 244
//*                           DEPENDING AT WHAT STAGE THE PROGRAM   *   FILE 244
//*                           HAS GOT. IE SYSIN REPORT OR REPORT.   *   FILE 244
//*                           THIS PROGRAM LINKS TO DATE.           *   FILE 244
//*                                                                 *   FILE 244
//*     A07SCANR   SMFSCANR - PROCESS THE INPUT FILE AND PRODUCES   *   FILE 244
//*                           THE REPORT.  THIS PROGRAM ALSO LINKS  *   FILE 244
//*                           TO SMFSCANT AND DATE.                 *   FILE 244
//*                                                                 *   FILE 244
//*     SMFSCAN WILL PRODUCE A REPORT, FROM SMF TYPE 30 RECORDS,    *   FILE 244
//*     OF WHATEVER IS SPECIFIED IN THE SYSIN DATA STREAM.  USER    *   FILE 244
//*     INSTRUCTIONS ARE HELD IN THIS PDS AS MEMBER A07SMDOC.       *   FILE 244
//*                                                                 *   FILE 244
//***FILE 245 IS FROM PHILIP PECKSEN OF NFU MUTUAL INSURANCE IN     *   FILE 245
//*           STRATFORD UPON AVON, ENGLAND.  THIS FILE COMES FROM   *   FILE 245
//*           A TAPE AVAILABLE TO MEMBERS OF UK G.U.I.D.E.  THIS    *   FILE 245
//*           FILE IS ADMINISTERED BY RICHARD HAYDOCK OF NORWICH    *   FILE 245
//*           UNION INSURANCE IN ENGLAND.  ITS CONTENTS IS          *   FILE 245
//*           DESCRIBED BELOW.                                      *   FILE 245
//*                                                                 *   FILE 245
//*    GENERAL NOTES ON THIS LIBRARY                                *   FILE 245
//*    =============================                                *   FILE 245
//*                                                                 *   FILE 245
//*    PREPARED - 29/04/93                                          *   FILE 245
//*                                                                 *   FILE 245
//*    BY       - RICHARD HAYDOCK                                   *   FILE 245
//*               SYSTEMS PROGRAMMER                                *   FILE 245
//*               NORWICH UNION INSURANCE                           *   FILE 245
//*                                                                 *   FILE 245
//*               EMAIL - GBNUHCCF ON IBM MAIL EXCHANGE             *   FILE 245
//*               PHONE - +44-1-603-687709                          *   FILE 245
//*                                                                 *   FILE 245
//*    FOLLOWING A PRESENTATION ON 'TSO AND PERSONAL USERIDS AT     *   FILE 245
//*    NORWICH UNION' GIVEN AT THE UK LARGE SYSTEMS GUIDE ON        *   FILE 245
//*    24/03/93 (BRITISH GAS, SOUTHAMPTON) I PUT THIS COLLECTION    *   FILE 245
//*    OF BITS AND PIECES TOGETHER FOR THE GUIDE GOODIES TAPE       *   FILE 245
//*                                                                 *   FILE 245
//*    AT NORWICH UNION, A 'PROJECT' IS EFFECTIVELY THE SAME AS     *   FILE 245
//*    A RACF GROUP MANY OF OUR TSO USERS BELONG TO MORE THAN       *   FILE 245
//*    ONE 'PROJECT' SO IN THE PAST THEY HAD A NUMBER OF TSO        *   FILE 245
//*    USERIDS, BUT NOW THEY HAVE ONE USERID WHICH IS CONNECTED     *   FILE 245
//*    TO A NUMBER OF RACF GROUPS FOR TSO PURPOSES                  *   FILE 245
//*                                                                 *   FILE 245
//*    RACF GROUPS USED FOR TSO AT NU HAVE NAMES WHICH BEGIN        *   FILE 245
//*    'NU' AND ARE 5 CHARACTERS IN LENGTH                          *   FILE 245
//*                                                                 *   FILE 245
//*    THE BITS AND PIECES ARE AS FOLLOWS:                          *   FILE 245
//*                                                                 *   FILE 245
//*    JCL USED TO CREATE SYSTEM LIBRARIES                          *   FILE 245
//*    -----------------------------------                          *   FILE 245
//*                                                                 *   FILE 245
//*    TSOLOAD1- IS USED TO CREATE A SET OF LARGE SYSTEM            *   FILE 245
//*              LIBRARIES FOR USE BY ALL TSO USERS ON OUR          *   FILE 245
//*              PRODUCTION SYSTEMS (IBM1 AND IBM2)                 *   FILE 245
//*                                                                 *   FILE 245
//*    TSOLOAD3- SIMILAR TO TSOLOAD1, BUILDS LIBRARIES FOR IBM3     *   FILE 245
//*              (OUR MAIN TESTING SYSTEM)                          *   FILE 245
//*                                                                 *   FILE 245
//*    TSOLOAD6- SIMILAR TO TSOLOAD1, BUILDS LIBRARIES FOR IBM6     *   FILE 245
//*              (OUR SYSTEMS PROGRAMMER TEST SYSTEM)               *   FILE 245
//*                                                                 *   FILE 245
//*    FOR EACH ENVIRONMENT, WE MAINTAIN TWO SETS OF LIBRARIES -    *   FILE 245
//*    AN 'A' SET AND A 'B' SET. AT A GIVEN TIME, ONLY ONE SET IS   *   FILE 245
//*    ALLOCATED TO A LARGE NUMBER OF USERS, SO THE OTHER SET CAN   *   FILE 245
//*    BE REBUILT WITHOUT CAUSING CONTENTION. ONCE A NEW SET OF     *   FILE 245
//*    LIBRARIES HAS BEEN BUILT AND TESTED, IT CAN BE 'ROLLED IN'   *   FILE 245
//*    BY CHANGING THE SYSTEM LEVEL TSO PARAMETERS.                 *   FILE 245
//*                                                                 *   FILE 245
//*    A FEW DAYS AFTER A SUCCESSFUL 'ROLL-IN' THE INACTIVE SET     *   FILE 245
//*    OF LIBRARIES IS RE-BUILT TO MIRROR THE SET JUST ROLLED IN.   *   FILE 245
//*    THIS MEANS WE HAVE TWO IDENTICAL SETS WHICH BACK EACH        *   FILE 245
//*    OTHER UP UNTIL WE NEXT NEED TO MAKE CHANGES.                 *   FILE 245
//*                                                                 *   FILE 245
//*    THIS SYSTEM USES SEVERAL HUNDRED CYLINDERS OF EXTRA DASD,    *   FILE 245
//*    BUT GIVES A FLEXIBLE AND RESILIENT ENVIRONMENT AND           *   FILE 245
//*    ELIMINATES THE NEED FOR LONG CONCATENATIONS OF DATASETS.     *   FILE 245
//*                                                                 *   FILE 245
//*    TO MINIMISE THE EXTRA DASD USAGE, WE ONLY COPY THE MOST      *   FILE 245
//*    COMMONLY USED ISPF DIALOG ELEMENTS INTO THE LARGE SYSTEM     *   FILE 245
//*    LIBRARIES. GROUPS USING LESS COMMONLY USED FACILITIES        *   FILE 245
//*    (SUCH AS RACF DIALOGS) CAN EITHER USE FRONT-END DRIVERS TO   *   FILE 245
//*    MAKE NECESSARY ALLOCATIONS AND INVOKE THE FACILITY, OR       *   FILE 245
//*    ARRANGE FOR EXTRA ALLOCATIONS TO BE MADE WHEN THEY LOG ON    *   FILE 245
//*                                                                 *   FILE 245
//*    LOGON PROCEDURES, 'STARTUP' REXX AND TSO PARAMETERS          *   FILE 245
//*    ---------------------------------------------------          *   FILE 245
//*                                                                 *   FILE 245
//*    TSODFLT - IS A SIMPLE LOGON PROCEDURE ALLOWING BASIC ISPF    *   FILE 245
//*              ACCESS                                             *   FILE 245
//*                                                                 *   FILE 245
//*    TSOTS   - IS A LOGON PROCEDURE USED BY 'TERMINAL             *   FILE 245
//*              SUPERVISORS' - A LARGE GROUP OF TSO USERS WHO DO   *   FILE 245
//*              NOT NEED THE FULL RANGE OF POSSIBILITIES OFFERED   *   FILE 245
//*              BY 'TSOPROC'                                       *   FILE 245
//*                                                                 *   FILE 245
//*    TSOPARM - MEMBER OF SYS1.PROCLIB REFERENCED BY 'TSOTS' TO    *   FILE 245
//*              DETERMINE WHETHER 'A' OR 'B' SYSTEM LIBRARIES      *   FILE 245
//*              SHOULD BE ALLOCATED                                *   FILE 245
//*                                                                 *   FILE 245
//*    TSOPROC - IS THE NU 'STANDARD' LOGON PROCEDURE.  IT          *   FILE 245
//*              ALLOCATES ONLY SYS1.ISRCLIB IN WHICH WE KEEP:      *   FILE 245
//*                                                                 *   FILE 245
//*    TSOTESTA- IS SIMILAR TO TSOPROC BUT USED FOR LOGGING ON      *   FILE 245
//*              WITH A NEW SET OF 'A' SYSTEM LIBRARIES WHEN THE    *   FILE 245
//*              'B' LIBRARIES ARE IN PRODUCTION.  BY USING         *   FILE 245
//*              TSOTESTA, WE CAN GET EARLY WARNING OF DIALOG       *   FILE 245
//*              ERRORS WITHOUT EXPOSING ALL OUR USERS TO THEM      *   FILE 245
//*                                                                 *   FILE 245
//*              WE ALSO HAVE A PROCEDURE CALLED TSOTESTB FOR       *   FILE 245
//*              TESTING NEW 'B' LIBRARIES                          *   FILE 245
//*                                                                 *   FILE 245
//*    STARTUP - A REXX EXEC WHICH ALLOCATES THE USER'S ISPF        *   FILE 245
//*              PROFILES AND PROCESSES 'TSO PARAMETER' DATASETS    *   FILE 245
//*              IN ORDER TO DETERMINE WHICH DATASETS SHOULD BE     *   FILE 245
//*              ALLOCATED TO THE USER'S TSO/ISPF SESSION, AND      *   FILE 245
//*              THEN ALLOCATES THEM. OTHER PROCESSING MAY ALSO     *   FILE 245
//*              BE DONE DEPENDING ON THE PARAMETERS ENCOUNTERED.   *   FILE 245
//*                                                                 *   FILE 245
//*    PARMSEX - A LIST OF EXAMPLE PARAMETERS SHOWING THE SYNTAX    *   FILE 245
//*              RECOGNISED BY 'STARTUP'                            *   FILE 245
//*                                                                 *   FILE 245
//*    PARMSUSR- MY OWN 'PERSONAL' TSO PARAMETERS FOR USE ON OUR    *   FILE 245
//*              TEST SYSTEM (CALLED IBM3). THEY ARE STORED IN      *   FILE 245
//*              THE ISPF PROFILE I USE ON IBM3                     *   FILE 245
//*                                                                 *   FILE 245
//*    PARMSGRP- TSO PARAMETERS FOR USE BY ALL MEMBERS OF THE       *   FILE 245
//*              GROUP (NUSSS) TO WHICH I AM CONNECTED FOR TSO      *   FILE 245
//*              PURPOSES                                           *   FILE 245
//*                                                                 *   FILE 245
//*    PARMSSYS- TSO PARAMETERS FOR USE BY ALL USERS OF TSO ON      *   FILE 245
//*              IBM3                                               *   FILE 245
//*                                                                 *   FILE 245
//*    ROG*    - ALL MEMBERS PREFIXED 'ROG' ARE USED TO SET UP      *   FILE 245
//*              ISPF READ ONLY VARIABLES FOR ACCOUNT CODE,         *   FILE 245
//*              SYSTEM ID AND RACF CURRENT CONNECT GROUP. THE      *   FILE 245
//*              STARTUP REXX INVOKES 'ROGS'                        *   FILE 245
//*                                                                 *   FILE 245
//*    ISPF DIALOG FOR ADMINISTRATION OF TSO PARAMETERS             *   FILE 245
//*    ------------------------------------------------             *   FILE 245
//*                                                                 *   FILE 245
//*    ONLY SYSTEMS PROGRAMMERS CAN MODIFY SYSTEM LEVEL             *   FILE 245
//*    PARAMETERS.                                                  *   FILE 245
//*                                                                 *   FILE 245
//*    TRUSTED INDIVIDUALS WITHIN GROUPS CAN MODIFY THOSE           *   FILE 245
//*    PARAMETERS WHICH BELONG TO THEIR GROUP(S) SO THEY HAVE       *   FILE 245
//*    SOME CONTROL OVER WHAT WILL BE ALLOCATED TO THEIR GROUP      *   FILE 245
//*    MEMBERS AFTER LOGGING ON.                                    *   FILE 245
//*                                                                 *   FILE 245
//*    INDIVIDUAL USERS CAN (IF THEY WISH) SET UP PERSONAL          *   FILE 245
//*    PARAMETERS IN ORDER TO HAVE PERSONALISED ISPF                *   FILE 245
//*    ENVIRONMENTS.                                                *   FILE 245
//*                                                                 *   FILE 245
//*    USERS CAN DISPLAY/MODIFY PARAMETERS AT USER, GROUP OR        *   FILE 245
//*    SYSTEM LEVEL IN ISOLATION, OR OBTAIN A 'MERGED' LIST WHICH   *   FILE 245
//*    LOOKS A LITTLE LIKE THE RESULT OF ISSUING A 'TSO LISTALC'    *   FILE 245
//*    COMMAND AFTER LOGGING ON.                                    *   FILE 245
//*                                                                 *   FILE 245
//*    NORWICH UNION HAS ITS OWN STANDARD VERSION OF THE            *   FILE 245
//*    'ISR@PRIM' PANEL WHICH WE INSIST ON USERS USING. IT HAS 3    *   FILE 245
//*    SPECIAL OPTIONS:                                             *   FILE 245
//*                                                                 *   FILE 245
//*    'S' - SYSTEM PROVIDED, NU-SPECIFIC FACILITIES                *   FILE 245
//*                                                                 *   FILE 245
//*    'P' - PROJECT FUNCTIONS. THESE FUNCTIONS ARE ENTIRELY        *   FILE 245
//*          UNDER THE CONTROL OF THE PROJECT (GROUP OF USERS) SO   *   FILE 245
//*          THERE ARE DIFFERENT SETS OF PROJECT FUNCTIONS FOR      *   FILE 245
//*          DIFFERENT RACF GROUPS.                                 *   FILE 245
//*                                                                 *   FILE 245
//*    'U' - USER FUNCTIONS. THESE ARE AVAILABLE FOR INDIVIDUALS    *   FILE 245
//*          FAMILIAR WITH ISPF WHO WISH TO SET UP DIALOGS OF       *   FILE 245
//*          THEIR OWN.                                             *   FILE 245
//*                                                                 *   FILE 245
//*    THE ELEMENTS OF THE TSO PARAMETER ADMIN DIALOG ARE:          *   FILE 245
//*                                                                 *   FILE 245
//*    TSOA000 - REXX TO DRIVE THE DIALOG (THIS IS PACKAGED AS      *   FILE 245
//*              MEMBER TSOA000X HERE, AS ITS NAME IS THE SAME AS   *   FILE 245
//*              ONE OF THE PANELS)                                 *   FILE 245
//*                                                                 *   FILE 245
//*    TSOA000-TSOA006 - PANELS USED BY THIS DIALOG                 *   FILE 245
//*                                                                 *   FILE 245
//*    TSOA01  - MESSAGES (1)                                       *   FILE 245
//*    TSOA02  - MESSAGES (2)                                       *   FILE 245
//*                                                                 *   FILE 245
//*    TTSOA000-TTSOA003 - HELP PANELS FOR TSOA000-TSOA003          *   FILE 245
//*                                                                 *   FILE 245
//*    ISPF DIALOG USED BY USERS CONVERTING TO USE PERSONAL         *   FILE 245
//*    USERIDS FOR TSO                                              *   FILE 245
//*    ----------------------------------------------------         *   FILE 245
//*                                                                 *   FILE 245
//*    THIS DIALOG BEGINS WITH PANEL SPU (HELP PANEL TSPU).         *   FILE 245
//*    MESSAGES ARE IN MEMBER SPUM01                                *   FILE 245
//*    THERE ARE 4 OPTIONS:                                         *   FILE 245
//*                                                                 *   FILE 245
//*    1 - DISPLAY RACF GROUPS YOU ARE CONNECTED TO, SELECT NEW     *   FILE 245
//*        DEFAULT IF DESIRED                                       *   FILE 245
//*                                                                 *   FILE 245
//*    2 - DATASET RENAMING UTILITY (USEFUL FOR USERS WITH LARGE    *   FILE 245
//*        NUMBERS OF PERSONAL DATASETS). FOR VSAM DATASETS, DO     *   FILE 245
//*        NOT TRY TO CHANGE THE HIGH LEVEL QUALIFIER. THIS         *   FILE 245
//*        UTILITY USES IDCAMS 'ALTER NEWNAME' COMMANDS TO RENAME   *   FILE 245
//*        VSAM CLUSTER COMPONENTS.                                 *   FILE 245
//*                                                                 *   FILE 245
//*    3 - DISPLAY/CHANGE ISPF ACCOUNT CODE VARIABLE (THE           *   FILE 245
//*        NU-DEFINED ISPF VARIABLE CALLED 'Z#ACCT' IS USED BY      *   FILE 245
//*        THIS UTILITY. THE IBM-DEFINED 'ZACCTNUM' VARIABLE IS     *   FILE 245
//*        UNCHANGEABLE)                                            *   FILE 245
//*                                                                 *   FILE 245
//*    4 - ISPF PROFILE CONVERTER. USEFUL FOR USERS WHOSE OLD IDS   *   FILE 245
//*        HAD A HIGH LEVEL OF ISPF CUSTOMISATION.                  *   FILE 245
//*                                                                 *   FILE 245
//*    THE CALL SEQUENCES ARE AS FOLLOWS:                           *   FILE 245
//*                                                                 *   FILE 245
//*    1 - REXX XNUCHGRP, PANEL NUCHGRP (HELP PANEL - TNUCHGRP)     *   FILE 245
//*                                                                 *   FILE 245
//*    2 - REXX XNUDSREN, PANEL NUDSREN (HELP PANEL - TNUDSREN)     *   FILE 245
//*        SKEL NUDSREN   INVOKES REXX XNUDSRN1 IN BATCH MODE       *   FILE 245
//*                                                                 *   FILE 245
//*        (NOTE - SKEL NUDSREN IS PACKAGED AS SNUDSREN DUE TO      *   FILE 245
//*                NAME CLASH)                                      *   FILE 245
//*                                                                 *   FILE 245
//*    3 - REXX XNUCHACC, PANEL RESETACC (HELP PANEL - TNUCHACC)    *   FILE 245
//*                                                                 *   FILE 245
//*    4 - REXX XNUCVPRF, PANEL NUCVPRF (HELP PANEL - TNUCVPRF)     *   FILE 245
//*        SKEL NUCVPRF   INVOKES REXX XNUCVPR1 IN BATCH MODE       *   FILE 245
//*                                                                 *   FILE 245
//*        (NOTE - SKEL NUCVPRF IS PACKAGED AS SNUCVPRF DUE TO      *   FILE 245
//*                NAME CLASH)                                      *   FILE 245
//*                                                                 *   FILE 245
//*        AFTER USING OPTION 4, USERS ARE INVITED TO RUN THE       *   FILE 245
//*        REXX XNURNPRF FROM OUTSIDE ISPF. THIS BACKS UP THE       *   FILE 245
//*        ISPF PROFILE THEY WERE USING AND ACTIVATES TO THE ONE    *   FILE 245
//*        JUST CREATED FOR THEM                                    *   FILE 245
//*                                                                 *   FILE 245
//*    OTHER REXX UTILITIES                                         *   FILE 245
//*    --------------------                                         *   FILE 245
//*                                                                 *   FILE 245
//*    CHECKGRP - USED TO CHECK WHETHER OR NOT A USER IS            *   FILE 245
//*               CONNECTED TO A SPECIFIED RACF GROUP. THIS IS      *   FILE 245
//*               OFTEN USED AS A CONTROL MECHANISM TO DECIDE       *   FILE 245
//*               WHETHER OR NOT IT IS APPROPRIATE FOR A GIVEN      *   FILE 245
//*               USER TO USE A CERTAIN APPLICATION.                *   FILE 245
//*                                                                 *   FILE 245
//*    XNUCA1A  - USED TO INVOKE THE CA-ONE ISPF DIALOG. CA-ONE     *   FILE 245
//*               IS A TAPE MANAGEMENT SYSTEM USED BY A FEW OF      *   FILE 245
//*               OUR GROUPS, SO THOSE THAT NEED IT CAN INVOKE IT   *   FILE 245
//*               USING 'XNUCA1A' WITHOUT NEEDING TO ALLOCATE ANY   *   FILE 245
//*               OTHER LIBRARIES.                                  *   FILE 245
//*                                                                 *   FILE 245
//*    XNUCA1B  - CALLED BY XNUCA1A TO COMPLETE THE INVOCATION OF   *   FILE 245
//*               CA-ONE                                            *   FILE 245
//*                                                                 *   FILE 245
//*    XNUTSM53 - USED TO INVOKE TSO/MON 5.3 THIS INVOCATION IS     *   FILE 245
//*               SIMPLER THAN THAT OF CA-ONE SINCE NO ISPF         *   FILE 245
//*               'NEWAPPL' IS INVOLVED                             *   FILE 245
//*                                                                 *   FILE 245
//*    ASSEMBLER CODE                                               *   FILE 245
//*    --------------                                               *   FILE 245
//*                                                                 *   FILE 245
//*    ISP*     - USED TO MAKE ISPF USER EXIT 16 WORK. APART FROM   *   FILE 245
//*               CODING UP ISPF EXIT 16 ITSELF, THE INSTALLATION   *   FILE 245
//*               ALSO HAS TO CODE A MODIFIED 'ISPDFLTS' MODULE     *   FILE 245
//*               TO INDICATE TO ISPF THAT USER EXITS ARE BEING     *   FILE 245
//*               TAKEN, AND 'ISPXDT' (EXIT DEFINITION TABLE) TO    *   FILE 245
//*               IDENTIFY WHICH EXITS ARE IN USE, WHAT THE CSECT   *   FILE 245
//*               NAMES ARE ETC. SEE ISPF 'INSTALLATION &           *   FILE 245
//*               CUSTOMISATION' FOR MORE DETAILS.                  *   FILE 245
//*                                                                 *   FILE 245
//*    IEFUTL   - NU VERSION OF THE SMF USER TIME LIMIT EXIT.       *   FILE 245
//*               SHOWS HOW RACF IS USED TO CONTROL WHICH USERS     *   FILE 245
//*               ARE EXEMPT FROM TIMEOUT CONTROL AND CPU TIME      *   FILE 245
//*               LIMIT CONTROL. THIS VERSION OF IEFUTL NO LONGER   *   FILE 245
//*               REQUIRES ANY MODIFICATION BY US.                  *   FILE 245
//*                                                                 *   FILE 245
//*    NUIGACCT - TSO COMMAND USED TO SET UP ISPF VARIABLES FOR     *   FILE 245
//*               ACCOUNT CODE SYSTEM NAME AND CURRENT RACF         *   FILE 245
//*               CONNECT GROUP                                     *   FILE 245
//*                                                                 *   FILE 245
//*               DSMMACS AND NUTETE ARE NEEDED TO ASSEMBLE         *   FILE 245
//*               NUIGACCT - IT HAS TO RUN IN AN ISPF ENVIRONMENT   *   FILE 245
//*                                                                 *   FILE 245
//*    FINDGRP  - TSO COMMAND USED TO SET UP TSO VARIABLE 'GRPID'   *   FILE 245
//*               AND OTHERS (SEE SOURCE). USEFUL IN CLISTS OR      *   FILE 245
//*               REXXS TO FIND A USER'S CURRENT CONNECT GROUP      *   FILE 245
//*               WHEN PERSONAL USERIDS ARE IN USE.                 *   FILE 245
//*                                                                 *   FILE 245
//*    FINDSYS  - TSO COMMAND USED TO SET UP TSO VARIABLE 'SYSID'   *   FILE 245
//*                                                                 *   FILE 245
//*        THE FINDGRP AND FINDSYS COMMANDS ARE BOTH USED BY THE    *   FILE 245
//*        'STARTUP' REXX                                           *   FILE 245
//*                                                                 *   FILE 245
//***FILE 246 IS CURRENTLY EMPTY                                    *   FILE 246
//*                                                                 *   FILE 246
//***FILE 247 is from Jim Marshall and Sam Golob and contains       *   FILE 247
//*           the "BRODCAST MANAGER" package of programs.  These    *   FILE 247
//*           programs are designed to eliminate the need for       *   FILE 247
//*           frequent SYNC's of the SYS1.BRODCAST dataset, and     *   FILE 247
//*           to give you control in displaying and deleting all    *   FILE 247
//*           user messages in the SYS1.BRODCAST dataset.           *   FILE 247
//*                                                                 *   FILE 247
//*           This package is now a full function set of utilities  *   FILE 247
//*           to manage, copy, export, or import SYS1.BRODCAST.     *   FILE 247
//*           (Of course, I'm thinking about adding a bit more...)  *   FILE 247
//*                                                                 *   FILE 247
//*           Questions, please call or write to:                   *   FILE 247
//*                                                                 *   FILE 247
//*             Sam Golob,  P.O. Box 906,  Tallman, NY 10982-0906   *   FILE 247
//*                                                                 *   FILE 247
//*             phone:  845-362-1996                                *   FILE 247
//*             email:  sbgolob@ibm.net  and/or  sbgolob@aol.com    *   FILE 247
//*                                                                 *   FILE 247
//*   >>>>>   You can also move SYS1.BRODCAST to a different        *   FILE 247
//*   >>>>>   device type (e.g. 3380 to 3390) and/or expand it,     *   FILE 247
//*   >>>>>   without losing any notices or user messages.          *   FILE 247
//*                                                                 *   FILE 247
//*   >>>>>   And you can dump SYS1.BRODCAST into a transportable   *   FILE 247
//*   >>>>>   format, then restore it from the dump file.           *   FILE 247
//*                                                                 *   FILE 247
//*           All TSO commands in this package use the TSO          *   FILE 247
//*           PUTLINE interface, so their outputs can be written    *   FILE 247
//*           to SYSOUT and printed.  Therefore, they can be run    *   FILE 247
//*           using TSO-in-Batch.                                   *   FILE 247
//*                                                                 *   FILE 247
//*           There are programs in this package to display and     *   FILE 247
//*           delete any TSO user's messages, and to display the    *   FILE 247
//*           contents of the SYS1.BRODCAST dataset in general.     *   FILE 247
//*           Now, there's also a program to dump the entire        *   FILE 247
//*           contents of SYS1.BRODCAST into a flat file, for       *   FILE 247
//*           moving or sending to anywhere, and there are two      *   FILE 247
//*           programs for restoring this dumped file. Both pgms    *   FILE 247
//*           will adjust for device type changes.  One will just   *   FILE 247
//*           restore the dumped file back into a direct access     *   FILE 247
//*           dataset, and the other will expand the SYS1.BRODCAST  *   FILE 247
//*           copy, by adding more blank user message records.      *   FILE 247
//*                                                                 *   FILE 247
//*     Programs Included - by name:                                *   FILE 247
//*                                                                 *   FILE 247
//*     BCMCLEAN  -  When LISTBC deletes a user message, it only    *   FILE 247
//*                  marks it as deleted, without clearing the      *   FILE 247
//*                  message content from SYS1.BRODCAST.  This      *   FILE 247
//*                  program zeros out all deleted records, so if   *   FILE 247
//*                  you BROWSE or REVIEW (File 134) SYS1.BRODCAST, *   FILE 247
//*                  you'll really see how empty it is.             *   FILE 247
//*                                                                 *   FILE 247
//*     BCMDEL    -  TSO command to display and delete any user's   *   FILE 247
//*                  broadcast messages.  Works by changing the     *   FILE 247
//*                  PSCBUSER field to the other user's name and    *   FILE 247
//*                  invoking LISTBC.  Therefore it also works to   *   FILE 247
//*                  delete another user's messages from a TSO      *   FILE 247
//*                  Userlog.  Must be authorized.                  *   FILE 247
//*                                                                 *   FILE 247
//*     BCMDEL1   -  TSO command to display and delete any user's   *   FILE 247
//*                  messages.  Works by plugging the other user's  *   FILE 247
//*                  message pointers into your userid's slot, and  *   FILE 247
//*                  invoking LISTBC for your id.  Obviously can't  *   FILE 247
//*                  delete the other user's message from a Userlog *   FILE 247
//*                  because LISTBC thinks he's running against     *   FILE 247
//*                  your userid.  Must run authorized, to invoke   *   FILE 247
//*                  LISTBC.                                        *   FILE 247
//*                                                                 *   FILE 247
//*     BCMDEL2   -  TSO Command to display and delete any user's   *   FILE 247
//*                  messages, but it works directly on the         *   FILE 247
//*                  SYS1.BRODCAST dataset itself (or a copy) and   *   FILE 247
//*                  goes in, does the enqueues, and does all the   *   FILE 247
//*                  work directly.  Since it doesn't need LISTBC,  *   FILE 247
//*                  this command doesn't have to run authorized.   *   FILE 247
//*                  Can't work on Userlogs.  Only SYS1.BRODCAST.   *   FILE 247
//*                                                                 *   FILE 247
//*     BCMDIAG   -  Attempts to find "orphaned messages" which     *   FILE 247
//*                  are "officially valid" but which are not       *   FILE 247
//*                  part of a userid message chain.  Once found,   *   FILE 247
//*                  you have to fix 'em by hand.  (Null 'em out    *   FILE 247
//*                  with Fullscreen ZAP (File 134)).  Sorry.       *   FILE 247
//*                  Key byte of a null record is X'FF'.  First     *   FILE 247
//*                  data byte is "R" from CCHHR or TTR.            *   FILE 247
//*                                                                 *   FILE 247
//*     BCMDUMP   -  Works with BCMREST and BCMEXPND.  Dumps the    *   FILE 247
//*                  RECFM=DA SYS1.BRODCAST dataset into a RECFM=FB *   FILE 247
//*                  LRECL=130 dataset that can be moved anywhere.  *   FILE 247
//*                  BCMREST will reload this dump into a copy of   *   FILE 247
//*                  SYS1.BRODCAST, even across different device    *   FILE 247
//*                  types.  BCMEXPND will also do this, but it     *   FILE 247
//*                  will add blank userid messages to fill all     *   FILE 247
//*                  allocated primary extent space.  Therefore,    *   FILE 247
//*                  with BCMEXPND, you can enlarge SYS1.BRODCAST   *   FILE 247
//*                  without losing the messages.  Or you can move  *   FILE 247
//*                  it, to a different pack or even a different    *   FILE 247
//*                  system.                                        *   FILE 247
//*                                                                 *   FILE 247
//*     BCMEXPND  -  Works from a BCMDUMP RECFM=FB LRECL=130 dump   *   FILE 247
//*                  of SYS1.BRODCAST dataset, and will restore it, *   FILE 247
//*                  with all the messages and notices, to a copy   *   FILE 247
//*                  of SYS1.BRODCAST, that has been enlarged with  *   FILE 247
//*                  blank userid message records, to fit a bigger  *   FILE 247
//*                  allocated space.  Therefore, you can make      *   FILE 247
//*                  SYS1.BRODCAST bigger, without losing any       *   FILE 247
//*                  messages, and without doing an ACCOUNT SYNC.   *   FILE 247
//*                  Needs an IPL.  Compensates for different       *   FILE 247
//*                  device types.  (This may be the first time     *   FILE 247
//*                  in the history of OS and MVS that this could   *   FILE 247
//*                  be done.  I've never heard of another such     *   FILE 247
//*                  program.)                                      *   FILE 247
//*                                                                 *   FILE 247
//*     BCMREST   -  Does the same as BCMEXPND, but doesn't add     *   FILE 247
//*                  any new records.  Just restores the records    *   FILE 247
//*                  that were dumped.  Will compensate for         *   FILE 247
//*                  different disk device types.  You can move     *   FILE 247
//*                  SYS1.BRODCAST from a 3380 to a 3390, for       *   FILE 247
//*                  example, without losing any messages.          *   FILE 247
//*                                                                 *   FILE 247
//*     BCMLIST   -  TSO command, not authorized or restricted,     *   FILE 247
//*                  to list any user's (or all users') messages    *   FILE 247
//*                  in SYS1.BRODCAST.  Doesn't do Userlogs.        *   FILE 247
//*                  All the BCMLIS* programs can be invoked,       *   FILE 247
//*                  using a special userid name ALL$#@, which      *   FILE 247
//*                  will display information for all userids       *   FILE 247
//*                  defined to SYS1.BRODCAST.  All these BCMLIS*   *   FILE 247
//*                  commands can be run under TSO-in-Batch.        *   FILE 247
//*                                                                 *   FILE 247
//*     BCMLISY   -  Same as BCMLIST, but shows each message's      *   FILE 247
//*                  Relative Record Address.  (For diagnostic      *   FILE 247
//*                  purposes, to show the message chain.)          *   FILE 247
//*                                                                 *   FILE 247
//*     BCMLISX   -  Same as BCMLISY, but also shows entries for    *   FILE 247
//*                  users with no outstanding messages.  Can be    *   FILE 247
//*                  used (somewhat awkwardly) to display a list    *   FILE 247
//*                  of all defined userids in SYS1.BRODCAST.       *   FILE 247
//*                  For that purpose, use the BCMUSERS program.    *   FILE 247
//*                  This program is best used in TSO-in-Batch.     *   FILE 247
//*                                                                 *   FILE 247
//*     BCMSEND   -  This TSO command is sort of similar to a       *   FILE 247
//*                  TSO SEND command, except for some very         *   FILE 247
//*                  significant differences.  First, BCMSEND       *   FILE 247
//*                  only writes messsages to the BRODCAST dataset. *   FILE 247
//*                  It doesn't matter if the user is logged on.    *   FILE 247
//*                  Second, BCMSEND doesn't use the TSO parser.    *   FILE 247
//*                  Therefore, it doesn't "validity check" the     *   FILE 247
//*                  text of the message.  Everything that is in    *   FILE 247
//*                  the command buffer after 7 characters of the   *   FILE 247
//*                  userid, goes into the message--even hex data.  *   FILE 247
//*                  This is until the last non-blank character.    *   FILE 247
//*                  Third, you can use BCMSEND to write to a copy  *   FILE 247
//*                  of the SYS1.BRODCAST dataset, as well as to    *   FILE 247
//*                  the real one.  Just allocate the BRODCAST      *   FILE 247
//*                  ddname to the other dataset, not to the        *   FILE 247
//*                  cataloged SYS1.BRODCAST dataset.  You need     *   FILE 247
//*                  UPDATE authority to the BRODCAST dataset, to   *   FILE 247
//*                  use BCMSEND to write to it.                    *   FILE 247
//*                                                                 *   FILE 247
//*     BCMUSADD  -  Uses IBM's IKJIFRIF interface.  This is a      *   FILE 247
//*                  TSO command to add an arbitrary user name      *   FILE 247
//*                  as a userid in SYS1.BRODCAST.  This command    *   FILE 247
//*                  can be used in conjunction with BCMUSDEL.      *   FILE 247
//*                  Adding a userid with BCMUSADD has nothing      *   FILE 247
//*                  to do with either UADS or RACF.  But it        *   FILE 247
//*                  allows the system to SEND messages to this     *   FILE 247
//*                  arbitrary (up to 7 characters) name.           *   FILE 247
//*                                                                 *   FILE 247
//*     BCMUSDEL  -  TSO command to delete an arbitrary TSO         *   FILE 247
//*                  userid record from SYS1.BRODCAST.  When the    *   FILE 247
//*                  userid is deleted, so are all its messages.    *   FILE 247
//*                  This command uses IBM's official IKJIFRIF      *   FILE 247
//*                  SYS1.BRODCAST interface.  Can be used to       *   FILE 247
//*                  clear all of a user's messages from SYS1.      *   FILE 247
//*                  BRODCAST without displaying them, but if you   *   FILE 247
//*                  want to keep the userid, you have to use       *   FILE 247
//*                  BCMUSADD afterwards, to add the id back.       *   FILE 247
//*                                                                 *   FILE 247
//*     BCMSCAN   -  A modernization of the old BRODCAST program    *   FILE 247
//*                  that is on this tape.  This is a batch program *   FILE 247
//*                  that does a general statistical survey of the  *   FILE 247
//*                  current state of the SYS1.BRODCAST dataset.    *   FILE 247
//*                  It displays all users who have outstanding     *   FILE 247
//*                  undelivered messages, and how many.  Therefore *   FILE 247
//*                  if SYS1.BRODCAST is full, or nearly so, you    *   FILE 247
//*                  run this program first, to determine which     *   FILE 247
//*                  userids are the culprits.                      *   FILE 247
//*                                                                 *   FILE 247
//*     BCMUSERS  -  TSO command to display all userids defined     *   FILE 247
//*                  to SYS1.BRODCAST.  This has nothing to do      *   FILE 247
//*                  with UADS or RACF.  Default is now to display  *   FILE 247
//*                  only users with outstanding messages.  If you  *   FILE 247
//*                  want to display all userids, use a parm of A   *   FILE 247
//*                  or ALL.                                        *   FILE 247
//*                                                                 *   FILE 247
//*                  If you use a parm of A, userids with           *   FILE 247
//*                  outstanding messages will be displayed with    *   FILE 247
//*                  2 extra lines.  One line shows the starting    *   FILE 247
//*                  and ending message pointer address in the      *   FILE 247
//*                  userid id record.  The other line shows the    *   FILE 247
//*                  number of outstanding messages for this        *   FILE 247
//*                  userid.                                        *   FILE 247
//*                                                                 *   FILE 247
//*     MYID      -  A TSO command to display your own userid.      *   FILE 247
//*                  Uses the PSCBUSER field.  Written as a coding  *   FILE 247
//*                  exercise, but it's handy to use.               *   FILE 247
//*                                                                 *   FILE 247
//*     SYSTM     -  A TSO command to display what system you're    *   FILE 247
//*                  running on.  Also written as an exercise.      *   FILE 247
//*                  But also handy to have, so I'm making it       *   FILE 247
//*                  available here.                                *   FILE 247
//*                                                                 *   FILE 247
//***FILE 248 IS FROM JIM BOYSEN OF AMDAHL FEDERAL SERVICE CORP.    *   FILE 248
//*           IN IOWA.  THIS FILE CONTAINS UTILITIES WHICH          *   FILE 248
//*           FIND MEMBERS OR PROCS IN LARGE CONCATENATIONS, ETC.   *   FILE 248
//*           ALL PROGRAMS OR COMMANDS ARE WRITTEN IN ASSEMBLER.    *   FILE 248
//*                                                                 *   FILE 248
//*         CONTACT:  JIM BOYSEN, SR. SYSTEMS ENGINEER              *   FILE 248
//*                   AMDAHL FEDERAL SERVICE CORPORATION            *   FILE 248
//*                   12020 SUNRISE VALLEY DRIVE                    *   FILE 248
//*                   SUITE 380                                     *   FILE 248
//*                   RESTON VA 22091                               *   FILE 248
//*                                                                 *   FILE 248
//*                   (309) 793-1369 OR (309) 782-8334              *   FILE 248
//*                                                                 *   FILE 248
//*           ALL COMMANDS AND PROGRAMS HAVE BEEN TESTED AT         *   FILE 248
//*           SP 5.2 AS THOROUGHLY AS POSSIBLE, BUT NOTHING IS      *   FILE 248
//*           GUARANTEED, THEY WILL PROVIDED EXCELLENT EXAMPLES     *   FILE 248
//*           OF HOW TO DO SOME OF THIS STUFF.                      *   FILE 248
//*                                                                 *   FILE 248
//*    CLEARBC       PROGRAM TO DELETE ALL MESSAGES FOR A GIVEN     *   FILE 248
//*                  USERID FROM SYS1.BRODCAST, TO STOP THE         *   FILE 248
//*                  BROADCAST DATASET FROM CLOGGING UP.            *   FILE 248
//*                  (FOR MORE PROGRAMS IN THIS AREA, SEE FILE      *   FILE 248
//*                  247 FROM JIM MARSHALL AND SAM GOLOB.)          *   FILE 248
//*                                                                 *   FILE 248
//*    CPUINFO       SOURCE CODE FOR DISPLAYING VARIOUS SYSTEM      *   FILE 248
//*                  CONTROL BLOCK INFO AT USERS TSO TERMINAL.      *   FILE 248
//*                  SEE CODE DOC FOR FURTHER DETAILS.              *   FILE 248
//*                                                                 *   FILE 248
//*    CPUINFO$      JCL TO ASSEMBLE/LINK CPUINFO                   *   FILE 248
//*                                                                 *   FILE 248
//*    CPUINFO#      HELP FOR CPUINFO COMMAND                       *   FILE 248
//*                                                                 *   FILE 248
//*    GTEDAALC      DYNAMIC ALLOCATION MACRO FROM CHUCK HOFFMAN    *   FILE 248
//*                  OF GTE LAB FROM CBT TAPE USED BY VARIOUS       *   FILE 248
//*                  PROGRAMS                                       *   FILE 248
//*                                                                 *   FILE 248
//*    GTEDADAT      DYNAMIC ALLOCATION MACRO FROM CHUCK HOFFMAN    *   FILE 248
//*                  OF GTE LAB FROM CBT TAPE USED BY VARIOUS       *   FILE 248
//*                  PROGRAMS                                       *   FILE 248
//*                                                                 *   FILE 248
//*    GTEDADOC      DOCUMENTATION FOR THE GTE DYNAMIC ALLOCATION   *   FILE 248
//*                  MACROS                                         *   FILE 248
//*                                                                 *   FILE 248
//*    GTEDASET      DYNAMIC ALLOCATION MACRO FROM CHUCK HOFFMAN    *   FILE 248
//*                  OF GTE LAB FROM CBT TAPE USED BY VARIOUS       *   FILE 248
//*                  PROGRAMS                                       *   FILE 248
//*                                                                 *   FILE 248
//*    IEFUTL        ALLOW TSO SESSIONS TO BE DISCONNECTED AND      *   FILE 248
//*                  THEN 622 CANCEL ONCE DISCONNECT LIMIT HAS      *   FILE 248
//*                  BEEN EXCEEDED.  EXTEND JOB TIME FOR 20         *   FILE 248
//*                  MINUTE INCREMENTS AND ISSUE MESSAGE TO         *   FILE 248
//*                  NOTIFY USER/OPERATOR OF THIS EXTENSION.        *   FILE 248
//*                  THE TSO DISCONNECT WORKS WITH MULTIPLE         *   FILE 248
//*                  SESSION MANAGERS BECAUSE IT DISCONNECTS THE    *   FILE 248
//*                  LU AND NOT THE TERMINAL ID WHICH CAN BE A      *   FILE 248
//*                  BAD THING UNDER A MULTIPLE SESSION MANAGER.    *   FILE 248
//*                                                                 *   FILE 248
//*    IEFUTL$       JCL TO ASSEMBLE/LINK IEFUTL                    *   FILE 248
//*                                                                 *   FILE 248
//*    LCICS         LIST DATASETS ALLOCATED TO CICS DDNAME         *   FILE 248
//*                  DFHRPL OR IF LOAD MODULE SPECIFIED, SEARCH     *   FILE 248
//*                  THROUGH THE DATASETS FOR THE LOAD MODULE AND   *   FILE 248
//*                  DISPLAY DATASET(S) WHERE FOUND.  CALLS         *   FILE 248
//*                  LCICSXM TO OBTAIN TIOT AND DSNS FROM           *   FILE 248
//*                  SECONDARY ADDRESS SPACE (CICS).  COMMAND       *   FILE 248
//*                  NAME MUST BE PUT IN IKJTSO00 AS AUTH CMD.      *   FILE 248
//*                                                                 *   FILE 248
//*    LCICS$        JCL TO ASSEMBLE/LINK LCICS                     *   FILE 248
//*                                                                 *   FILE 248
//*    LCICS#        HELP FOR LCICS                                 *   FILE 248
//*                                                                 *   FILE 248
//*    LCICSXM       SUB PROGRAM TO HANDLE CROSS MEMORY ACCESS      *   FILE 248
//*                  TO CICS ADDRESS SPACE.                         *   FILE 248
//*                                                                 *   FILE 248
//*    LCICSXM$      JCL TO ASSEMBLE/LINK LCICSXM                   *   FILE 248
//*                                                                 *   FILE 248
//*    LISTV         LIST VOLUME INFORMATION.  ORIGINAL CODE        *   FILE 248
//*                  FROM EARLIER CBT TAPE ? WITH MODIFICATIONS     *   FILE 248
//*                  TO SHOW DEVICE STATUS (STORAGE, PRIVATE,       *   FILE 248
//*                  PUBLIC) AND DEVICE TYPE                        *   FILE 248
//*                  (3380,3390-2,3390-3).                          *   FILE 248
//*                                                                 *   FILE 248
//*    LISTV$        JCL TO ASSEMBLE/LINK LISTV                     *   FILE 248
//*                                                                 *   FILE 248
//*    LISTV#        HELP MEMBER FOR LISTV                          *   FILE 248
//*                                                                 *   FILE 248
//*    LLIST         DISPLAY LINKLIST AND LPA DATASETS OF THE       *   FILE 248
//*                  ACTIVE SYSTEM, AND IF LOAD MODULE IS           *   FILE 248
//*                  SPECIFIED, SEARCH STEPLIB, LINKLIST AND LPA    *   FILE 248
//*                  FOR MODULE AND REPORT IF FOUND AND WHERE       *   FILE 248
//*                  FOUND.  LISTS ALL LIBRARIES WHERE MODULE IS    *   FILE 248
//*                  FOUND.                                         *   FILE 248
//*                                                                 *   FILE 248
//*    LLIST$        JCL TO ASSEMBLE/LINK LLIST                     *   FILE 248
//*                                                                 *   FILE 248
//*    LLIST#        HELP FOR LLIST                                 *   FILE 248
//*                                                                 *   FILE 248
//*    LOOKDD        SEARCH THROUGH SPECIFIED DDNAME FOR SPECIFIED  *   FILE 248
//*                  MEMBER.  REPORT IF FOUND, WHAT DSNS IN         *   FILE 248
//*                  CONCATENATION CONTAIN MEMBER.  VERY USEFUL     *   FILE 248
//*                  IN ISPF DEBUGGING AND DEVELOPMENT AS WELL AS   *   FILE 248
//*                  SEARCHING FOR CLISTS/REXX IN DEVELOPMENT AND   *   FILE 248
//*                  DEBUGGING.                                     *   FILE 248
//*                                                                 *   FILE 248
//*    LOOKDD$       JCL TO ASSEMBLE/LINK LOOKDD                    *   FILE 248
//*                                                                 *   FILE 248
//*    LOOKDD#       HELP FOR LOOKDD                                *   FILE 248
//*                                                                 *   FILE 248
//*    LPROC         LIST DATASETS ALLOCATED TO JES2 PROCLIB        *   FILE 248
//*                  CONCATENATIONS, OR IF SPECIFIED, SEARCH        *   FILE 248
//*                  THROUGH CONCATENATION FOR SPECIFIED MEMBER     *   FILE 248
//*                  AND REPORT DATASET(S) WHERE PROC IS FOUND.     *   FILE 248
//*                  COMMAND NAME MUST BE PUT IN IKJTSO00 AS        *   FILE 248
//*                  AUTH CMD.                                      *   FILE 248
//*                                                                 *   FILE 248
//*    LPROC$        JCL TO ASSEMBLE/LINK LPROC                     *   FILE 248
//*                                                                 *   FILE 248
//*    LPROC#        HELP FOR LPROC                                 *   FILE 248
//*                                                                 *   FILE 248
//*    LPROCXM       SUB PROGRAM TO HANDLE CROSS MEMORY ACCESS      *   FILE 248
//*                  TO JES2 ADDRESS SPACE.                         *   FILE 248
//*                                                                 *   FILE 248
//*    LPROCXM$      JCL TO ASSEMBLE/LINK LPROCXM                   *   FILE 248
//*                                                                 *   FILE 248
//*    MCSCMD        THIS PROGRAM WILL RUN AS A STARTED TASK AND    *   FILE 248
//*                  USES THE MVS MODIFY COMMAND TO COMMUNICATE     *   FILE 248
//*                  WITH THE TASK.  IT ENABLES OPERATORS TO        *   FILE 248
//*                  ENTER A SYSTEM COMMAND AS IF IT CAME FROM      *   FILE 248
//*                  THE MASTER CONSOLE, I.E.   CF COMMANDS FROM    *   FILE 248
//*                  A MCS CONSOLE ENTER   F MCSCMD,END  TO         *   FILE 248
//*                  TERMINATE THE TASK                             *   FILE 248
//*                                                                 *   FILE 248
//*    MCSCMD$       JCL TO ASSEMBLE/LINK MCSCMD                    *   FILE 248
//*                                                                 *   FILE 248
//*    MCSCMD#       PROC TO RUN MCSCMD                             *   FILE 248
//*                                                                 *   FILE 248
//*    MCSESA        MCS FOR ESA                                    *   FILE 248
//*                                                                 *   FILE 248
//*    SMFCPUID      SET TSO CLIST/REXX VARIABLE (&SMFCPUID)        *   FILE 248
//*                  TO VALUE OF SMF SYSTEM ID                      *   FILE 248
//*                                                                 *   FILE 248
//*    SMFCPU$       JCL TO ASSEMBLE/LINK SMFCPUID                  *   FILE 248
//*                                                                 *   FILE 248
//*    SMFCPU#       HELP FOR SMFCPUID                              *   FILE 248
//*                                                                 *   FILE 248
//***FILE 249 IS FROM EILEEN BARKOW OF DOITT - NEW YORK CITY,       *   FILE 249
//*           NEW YORK, AND CONTAINS A COLLECTION OF USEFUL         *   FILE 249
//*           PROGRAMS.                                             *   FILE 249
//*                                                                 *   FILE 249
//*     THE FOLLOWING PROGRAMS ARE IN THIS COLLECTION:              *   FILE 249
//*                                                                 *   FILE 249
//*     WMOD FOR TSO  -  FIND OCCURRENCES OF A PDS MEMBER NAME.     *   FILE 249
//*                      THIS PROGRAM WILL SEARCH ALLOCATED         *   FILE 249
//*                      PDS LIBRARIES IN THE TSO ADDRESS SPACE     *   FILE 249
//*                      FOR THE SPECIFIED MODULE NAME, INCLUDING   *   FILE 249
//*                      CLISTS, SOURCE, ISPF LIBRARIES, ETC. IT    *   FILE 249
//*                      WILL ALSO SEARCH STEPLIB, LPA, LINKLIST    *   FILE 249
//*                      AND SVCLIB.  FOR LPA MODULES, THE          *   FILE 249
//*                      ADDRESS IN LPA WILL BE RETURNED.  FOR      *   FILE 249
//*                      ALL OTHERS, THE DATASET NAME WILL BE       *   FILE 249
//*                      RETURNED.                                  *   FILE 249
//*                                                                 *   FILE 249
//*     WMOD FOR CICS -  FIND OCCURRENCES OF A PDS MEMBER NAME.     *   FILE 249
//*                      THIS PROGRAM SEARCHES ALL DFHRPL           *   FILE 249
//*                      LIBRARIES, STEPLIB, LINKLIST, LPA, AND     *   FILE 249
//*                      SVCLIB FOR SPECIFIED MODULE NAME.  IT      *   FILE 249
//*                      TAKES A GUESS AS TO WHERE CICS LOADED      *   FILE 249
//*                      THE MODULE FROM IF THE MODULE EXISTS IN    *   FILE 249
//*                      MULTIPLE PLACES (IE:  MODULE IS IN         *   FILE 249
//*                      DFHRPL AS WELL AS STEPLIB AND LPA).        *   FILE 249
//*                                                                 *   FILE 249
//*     UCB           -  IF YOU GIVE THE UNIT ADDRESS, THIS WILL    *   FILE 249
//*                      RETURN THE VOLUME SERIAL.  IF YOU GIVE     *   FILE 249
//*                      THE VOLUME SERIAL, THIS WILL GIVE THE      *   FILE 249
//*                      UNIT ADDRESS.  USES UCBLOOK AND WORKS      *   FILE 249
//*                      FOR DYNAMIC UCB'S.                         *   FILE 249
//*                                                                 *   FILE 249
//*     SVC           -  AUTH SVC                                   *   FILE 249
//*                                                                 *   FILE 249
//***FILE 250 IS AN UNOFFICIAL PROGRAM FROM THE IBM SUPPORT         *   FILE 250
//*           CENTER.  THIS PROGRAM DISPLAYS ENQUEUE INFORMATION    *   FILE 250
//*           ON THE CONSOLE, BUT DISPLAYS AN RNAME WHICH IS 60     *   FILE 250
//*           CHARACTERS LONG.  THAT NUMBER CAN BE INCREASED        *   FILE 250
//*           FURTHER BY CHANGING THE LABEL 'RESRNAME' TO A         *   FILE 250
//*           GREATER VALUE, SO EVEN MORE CHARACTERS WILL BE        *   FILE 250
//*           SHOWN.  THE REASON FOR THIS PROGRAM IS TO OVERCOME    *   FILE 250
//*           A LENGTH LIMITATION IN THE 'D GRS' CONSOLE DISPLAY.   *   FILE 250
//*                                                                 *   FILE 250
//***FILE 251 IS FROM PAUL DAVIS OF EDS IN LOUISVILLE, COLORADO     *   FILE 251
//*           AND CONTAINS AN ENTIRELY NEW COLLECTION OF HIS        *   FILE 251
//*           EDIT MACROS, TO GO ALONG WITH HIS OTHER COLLECTION    *   FILE 251
//*           OF EDIT MACROS THAT IS ON FILE 095.                   *   FILE 251
//*                                                                 *   FILE 251
//*      Paul Davis passed away on July 19, 2000.                   *   FILE 251
//*                                                                 *   FILE 251
//*           THERE'S A LOT OF GOOD STUFF IN HERE, FOLKS.  ALSO     *   FILE 251
//*           LOOK IN FILE 095.                                     *   FILE 251
//*                                                                 *   FILE 251
//*      $$$DOC    DESCRIPTION OF MEMBERS IN THIS PDS               *   FILE 251
//*                                                                 *   FILE 251
//*      ADDAFTR   ADD A LINE OF DATA AFTER EACH LINE               *   FILE 251
//*                                                                 *   FILE 251
//*      BUPMEM    BACKUP PARMLIB MEMBER                            *   FILE 251
//*                                                                 *   FILE 251
//*      CHGID     PANEL USED BY SALTER                             *   FILE 251
//*                                                                 *   FILE 251
//*      CHGSTS    PANEL USED BY SALTER                             *   FILE 251
//*                                                                 *   FILE 251
//*      CLISTDOC  DOCUMENT A CLIST                                 *   FILE 251
//*                                                                 *   FILE 251
//*      CMODEL    COPY A CLIST MODEL INTO CURRENT EDIT SESSION     *   FILE 251
//*                                                                 *   FILE 251
//*      CUTCOL#   CUT COLUMNS HELP PANEL                           *   FILE 251
//*                                                                 *   FILE 251
//*      CUTCOLS   CUT COLUMNS OF DATA                              *   FILE 251
//*                                                                 *   FILE 251
//*      DELMARK   DEL MEMBERS OF PDS MARKED BY THE MARK MACRO      *   FILE 251
//*                                                                 *   FILE 251
//*      DOCMAC    DOCUMENT AN EDIT MACRO                           *   FILE 251
//*                                                                 *   FILE 251
//*      FINDPROC  FIND A PROC IN JES2 PROC CONCATENATION **        *   FILE 251
//*                MUST BE MODIFIED                                 *   FILE 251
//*                                                                 *   FILE 251
//*      FPROCBLD  BUILD FINDPROC MACRO ** MUST BE MODIFIED         *   FILE 251
//*                                                                 *   FILE 251
//*      FPROCBOT  COPY CODE FOR FPROCBLD                           *   FILE 251
//*                                                                 *   FILE 251
//*      FPROCTOP  COPY CODE FOR FPROCBLD                           *   FILE 251
//*                                                                 *   FILE 251
//*      INSERTM   INSERTM LINES MULTIPLE TIMES IN A DATASET        *   FILE 251
//*                AFTER X LINES                                    *   FILE 251
//*                                                                 *   FILE 251
//*      ISPYP1    MODIFIED PANEL TO WORK WITH VPANEL               *   FILE 251
//*                                                                 *   FILE 251
//*      LINEGRP   PICK LINES OF DATA TO BE USED LATER.  GROUPS     *   FILE 251
//*                THEM AT TOP OF DATA                              *   FILE 251
//*                                                                 *   FILE 251
//*      MACDOC    DOCUMENT A EDIT MACRO                            *   FILE 251
//*                                                                 *   FILE 251
//*      MACPEEK   FIND EDIT MACRO OR CLIST IN SYSPROC              *   FILE 251
//*                CONCATENATION EDIT MAC                           *   FILE 251
//*                                                                 *   FILE 251
//*      MACVIEW   FIND EDIT MACRO OR CLIST IN SYSPROC              *   FILE 251
//*                CONCATENATION TSO CLIST                          *   FILE 251
//*                                                                 *   FILE 251
//*      MARK      MARK MEMBER FOR DELETION                         *   FILE 251
//*                                                                 *   FILE 251
//*      MARKCLR   CLEAR MARKS CREATED BY MARK MACRO                *   FILE 251
//*                                                                 *   FILE 251
//*      MEMDEL    CREATE  A LIST OF MEMBERS AND SELECT SOME        *   FILE 251
//*                FOR DELETION                                     *   FILE 251
//*                                                                 *   FILE 251
//*      MEMLSTX   CALLED BY MEMDEL TO DELETE MEMBERS SELECTED      *   FILE 251
//*                FOR DELETION                                     *   FILE 251
//*                                                                 *   FILE 251
//*      MOVECOL#  MOVECOLS HELP PANEL                              *   FILE 251
//*                                                                 *   FILE 251
//*      MOVECOLS  MOVE COLUMNS OF DATA                             *   FILE 251
//*                                                                 *   FILE 251
//*      MOVFIELD  MOVE DATA FIELDS                                 *   FILE 251
//*                                                                 *   FILE 251
//*      MOVFIEL#  MOVFIELD HELP PANEL                              *   FILE 251
//*                                                                 *   FILE 251
//*      MPAST     CALLED BY INSERTM MACRO TO DO THE DIRTY WORK     *   FILE 251
//*                                                                 *   FILE 251
//*      MSGMAKE   MAKE A ISR MESSAGE IN CLIST                      *   FILE 251
//*                                                                 *   FILE 251
//*      PANPEEK   FIND PANEL IN ISPPLIB CONCATENATION EDIT MACRO   *   FILE 251
//*                                                                 *   FILE 251
//*      PANVIEW   FIND PANEL IN ISPPLIB CONCATENATION TSO CLIST    *   FILE 251
//*                                                                 *   FILE 251
//*      SALTER    CHANGE MEMBER STATS                              *   FILE 251
//*                                                                 *   FILE 251
//*      SKELPEEK  FIND SKELETON IN ISPSLIB CONCATENATION           *   FILE 251
//*                EDIT MACRO                                       *   FILE 251
//*                                                                 *   FILE 251
//*      SKELVIEW  FIND SKELETON IN ISPSLIB CONCATENATION           *   FILE 251
//*                TSO CLIST                                        *   FILE 251
//*                                                                 *   FILE 251
//*      SYA$DOC   SAVE YOUR ASSETS BACKUP DOC                      *   FILE 251
//*                                                                 *   FILE 251
//*      SYACATC   SYA MACRO SEE SYS$DOC                            *   FILE 251
//*                                                                 *   FILE 251
//*      SYACLNUP  SYA MACRO SEE SYS$DOC                            *   FILE 251
//*                                                                 *   FILE 251
//*      SYACOPYI  SYA MACRO SEE SYS$DOC                            *   FILE 251
//*                                                                 *   FILE 251
//*      SYACOPYO  SYA MACRO SEE SYS$DOC                            *   FILE 251
//*                                                                 *   FILE 251
//*      SYAGENER  SYA MACRO SEE SYS$DOC                            *   FILE 251
//*                                                                 *   FILE 251
//*      SYAGENRI  SYA MACRO SEE SYS$DOC                            *   FILE 251
//*                                                                 *   FILE 251
//*      SYAGENRO  SYA MACRO SEE SYS$DOC                            *   FILE 251
//*                                                                 *   FILE 251
//*      SYAJBALL  SYA MACRO SEE SYS$DOC                            *   FILE 251
//*                                                                 *   FILE 251
//*      SYAPDS    SYA MACRO SEE SYS$DOC                            *   FILE 251
//*                                                                 *   FILE 251
//*      SYARENAM  SYA MACRO SEE SYS$DOC                            *   FILE 251
//*                                                                 *   FILE 251
//*      SYAUDCAT  SYA MACRO SEE SYS$DOC                            *   FILE 251
//*                                                                 *   FILE 251
//*      SYAUNCAT  SYA MACRO SEE SYS$DOC                            *   FILE 251
//*                                                                 *   FILE 251
//*      VOID      RESET PF10 KEY AFTER INSERTM ABORT               *   FILE 251
//*                                                                 *   FILE 251
//*      VPANEL    REFRESH CHANGED PANEL  ** REQUIRES               *   FILE 251
//*                ISPYP1 PANEL MOD                                 *   FILE 251
//*                                                                 *   FILE 251
//*      VTZAPBLD  BUILD A VTOC ZAP FROM IEHLIST LISTING            *   FILE 251
//*                                                                 *   FILE 251
//*      WCUT      WINDOW CUT.  CUT PORTIONS OF LINES FOR TO        *   FILE 251
//*                PASTE W WPASTE FOR THOSE OF US WITHOUT PC'S      *   FILE 251
//*                GIVE THIS A TRY                                  *   FILE 251
//*                                                                 *   FILE 251
//*      WCUT2     CALLED BY WCUT                                   *   FILE 251
//*                                                                 *   FILE 251
//*      WPASTE    PASTE DATA CUT BY WCUT                           *   FILE 251
//*                                                                 *   FILE 251
//***FILE 252 IS FROM JEFF KAPLAN OF NEW JERSEY, AND CONTAINS       *   FILE 252
//*           HIS COLLECTION OF ASSEMBLER CODE, REXX EXECS, JCL     *   FILE 252
//*           AND ISPF MATERIALS.  THIS COLLECTION CONTAINS A       *   FILE 252
//*           WEALTH OF "HOW-TO" EXAMPLES.  THIS COLLECTION IS      *   FILE 252
//*           IN A CONDITION WHERE IT HAS TO BE EXPLORED, BUT       *   FILE 252
//*           THE EXPLORATION WILL BE VERY WORTH WHILE.  THERE      *   FILE 252
//*           IS ALSO A LOT OF CODE WHICH CALLS SVC 26 DIRECTLY     *   FILE 252
//*           (CATALOG LOOKUPS, ETC.).  THERE AREN'T TOO MANY       *   FILE 252
//*           WORKING EXAMPLES AROUND, OF GOOD SVC 26 CODE.         *   FILE 252
//*           THIS FILE CONTAINS JEFF'S SOURCE LIBRARY.             *   FILE 252
//*           FILES 253-256 ARE ALSO INCLUDED IN THIS COLLECTION.   *   FILE 252
//*                                                                 *   FILE 252
//***FILE 253 IS FROM JEFF KAPLAN AND CONTAINS HIS EXEC LIBRARY.    *   FILE 253
//*                                                                 *   FILE 253
//***FILE 254 IS FROM JEFF KAPLAN AND CONTAINS HIS CNTL LIBRARY.    *   FILE 254
//*                                                                 *   FILE 254
//***FILE 255 IS FROM JEFF KAPLAN AND CONTAINS HIS ISPPLIB LIBRARY. *   FILE 255
//*                                                                 *   FILE 255
//***FILE 256 IS FROM JEFF KAPLAN AND CONTAINS HIS ISPTLIB LIBRARY. *   FILE 256
//*                                                                 *   FILE 256
//***FILE 257 IS FROM SAM GOLOB, AND CONTAINS ZAPS TO FIX THE       *   FILE 257
//*           OLD LINKAGE EDITOR (EVEN IF IT IS PART OF DFSMS),     *   FILE 257
//*           SO THAT IT WILL READ OBJECT DECKS THAT ARE BLOCKED    *   FILE 257
//*           BIGGER THAN 3200 BYTES PER BLOCK.  FOR YOUR PERUSAL   *   FILE 257
//*           AND PLEASURE....                                      *   FILE 257
//*                                                                 *   FILE 257
//*    *  -  *  -  *  -  *  -  *  -  *  -  *  -  *  -  *  -  *      *   FILE 257
//*                                                                 *   FILE 257
//*   FIXING YOUR OLD LINKAGE EDITOR  (IN DFSMS/MVS TOO)            *   FILE 257
//*                                                                 *   FILE 257
//*   EVEN UNDER DFSMS/MVS, WITH HEWL AND IEWL BEING THE NEW        *   FILE 257
//*   'BINDER', YOU CAN STILL RUN THE OLD LINKAGE EDITOR IF YOU     *   FILE 257
//*   SAY EXEC PGM=HEWLKED.  IBM HAS KEPT A VERSION OF THE OLD      *   FILE 257
//*   LINKAGE EDITOR AROUND.  HOWEVER, WITH THE BINDER, IBM HAS     *   FILE 257
//*   REMOVED THE OLD (NOW STUPID) RESTRICTION THAT OBJECT DECKS    *   FILE 257
//*   CAN'T BE BLOCKED GREATER THAN 3200 BYTES, OR 40 RECORDS       *   FILE 257
//*   PER BLOCK.  THERE WERE MEMORY RESTRICTIONS ONCE, THAT ARE     *   FILE 257
//*   NOW LONG GONE.  BUT WITH THE OLD LINKAGE EDITOR, THEY         *   FILE 257
//*   HAVEN'T REMOVED THE RESTRICTION, AND NOW IT IS "FUNCTIONALLY  *   FILE 257
//*   STABILIZED" FOR ALL PRACTICAL PURPOSES.                       *   FILE 257
//*                                                                 *   FILE 257
//*   I'VE LOOKED AT MY COPIES OF THE OLD LINKAGE EDITOR            *   FILE 257
//*   HEWLKED IN DFSMS, AND BEHOLD, THE OLD RESTRICTION HASN'T      *   FILE 257
//*   BEEN LIFTED OR CURED.  IT IS SO EASY TO DO!  WE HAD A         *   FILE 257
//*   USERMOD ONCE, WHICH I AM BRINGING TO YOU NOW.  I HAVE TWO     *   FILE 257
//*   VERSIONS OF THIS MOD, ONE FOR DFSMS 1.0, AND ANOTHER FOR      *   FILE 257
//*   DFSMS 1.3.  BOTH ARE THE SAME AS EACH OTHER, AND YOU          *   FILE 257
//*   SHOULDN'T HAVE ANY TROUBLE FITTING THIS MOD TO ANY VERSION    *   FILE 257
//*   OF THE OLD LINKAGE EDITOR, YOUNG OR RECENT.  I HAVE ALSO      *   FILE 257
//*   INCLUDED ZAPS FOR ALL VERSIONS OF THE LINKAGE EDITOR WHICH    *   FILE 257
//*   I HAD LYING AROUND AT OUR INSTALLATION, AS WELL AS I COULD    *   FILE 257
//*   DETERMINE.                                                    *   FILE 257
//*                                                                 *   FILE 257
//*               VERSION TABLE:                                    *   FILE 257
//*                                                                 *   FILE 257
//*                  HDQ1102    -   MVS/370   DFP 1.1               *   FILE 257
//*                  HDP2230    -   MVS/XA    DFP 2.3               *   FILE 257
//*                  HDP2240    -   MVS/XA    DFP 2.4               *   FILE 257
//*                  JDZ1110    -   DFSMS/MVS  1.1.0                *   FILE 257
//*                  HDZ11C0    -   DFSMS/MVS  1.3.0                *   FILE 257
//*                                                                 *   FILE 257
//*    IF YOU HAVE ANY QUESTIONS, I'M (HOPEFULLY) AT:               *   FILE 257
//*                                                                 *   FILE 257
//*    Sam Golob               EMAIL:  sbgolob@aol.com              *   FILE 257
//*    P.O. Box 906                    sbgolob@attglobal.net        *   FILE 257
//*    Tallman, NY  10982                                           *   FILE 257
//*                                                                 *   FILE 257
//*        NEW PHONE NUMBER:    845-362-1996                        *   FILE 257
//*                                                                 *   FILE 257
//***FILE 258 IS FROM DAVID FAHEY OF THE SAS INSTITUTE AND CONTAINS *   FILE 258
//*           SOURCE CODE FOR THE LOAD MODULES WHICH ARE IN FILE    *   FILE 258
//*           259.  THIS SOURCE CODE IS WRITTEN IN SAS/C, AND       *   FILE 258
//*           VERSION 5.50 OR LATER OF THE SAS/C COMPILER IS        *   FILE 258
//*           NEEDED IF YOU WANT TO COMPILE OR MAKE MODIFICATIONS.  *   FILE 258
//*           MY IMPRESSION IS THAT YOU DON'T NEED THE SAS/C        *   FILE 258
//*           RUNTIME LIBRARY TO RUN THE LOAD MODULES.              *   FILE 258
//*                                                                 *   FILE 258
//*           THIS IS A COLLECTION OF 3270 DEVICE TOOLS THAT YOU    *   FILE 258
//*           CAN USE FOR CREATING 3270 APPLICATIONS.  THEY ARE     *   FILE 258
//*           A GOOD MODEL SO YOU CAN SEE WHAT CAN BE DONE IN       *   FILE 258
//*           THIS AREA, OR YOU CAN USE THEM "AS IS".               *   FILE 258
//*                                                                 *   FILE 258
//***FILE 259 IS FROM DAVID FAHEY OF THE SAS INSTITUTE AND CONTAINS *   FILE 259
//*           LOAD MODULES WHICH ARE ALL 3270 DEVICE TOOLS AND      *   FILE 259
//*           EXAMPLES.                                             *   FILE 259
//*                                                                 *   FILE 259
//*           THE FOLLOWING LOAD MODULES ARE IN THIS PDS:           *   FILE 259
//*                                                                 *   FILE 259
//*           COMBO32   -  PROGRAM THAT DISPLAYS A DEMO OF A        *   FILE 259
//*                        COMBO BOX ON A 3270 DEVICE               *   FILE 259
//*                                                                 *   FILE 259
//*           DD3270    -  PROGRAM THAT DISPLAYS A DEMO OF A        *   FILE 259
//*                        WINDOW ON A 3270 DEVICE. THIS PROGRAM    *   FILE 259
//*                        COULD EASILY BE EXTENDED TO DO OTHER     *   FILE 259
//*                        THINGS THAT COULD USE THE FULL SCREEN    *   FILE 259
//*                        ROUTINES.                                *   FILE 259
//*                                                                 *   FILE 259
//*           FONT      -  PROGRAM THAT CONVERTS A FONT             *   FILE 259
//*                        SPECIFICATION FILE (SYM..... SEE BELOW)  *   FILE 259
//*                        INTO AN H FILE (INCLUDED WHEN COMPILING  *   FILE 259
//*                        MANY OF THE OTHER PROGRAMS HERE).        *   FILE 259
//*                                                                 *   FILE 259
//*           INFO3270  -  PROGRAM THAT DISPLAYS A 3270 DEVICES     *   FILE 259
//*                        ATTRIBUTES ON THE STANDARD OUT FILE.     *   FILE 259
//*                                                                 *   FILE 259
//*           LSTBOX32  -  PROGRAM THAT DISPLAYS A DEMO OF A        *   FILE 259
//*                        LIST BOX ON A 3270 DEVICE.               *   FILE 259
//*                                                                 *   FILE 259
//*           TG        -  TEST PROGRAM THAT DISPLAYS SEVERAL       *   FILE 259
//*                        GRAPHIC ITEMS ON A VECTOR GRAPHIC        *   FILE 259
//*                        DEVICE. DO NOT USE ON OTHER DEVICE TYPES *   FILE 259
//*                        IT WILL CAUSE ERRORS.                    *   FILE 259
//*                                                                 *   FILE 259
//*           TGETN     -  TGET ROUTINE CALLED BY OTHER             *   FILE 259
//*                        C LANGUAGE PROGRAMS.                     *   FILE 259
//*                                                                 *   FILE 259
//*           TGT327D   -  GTTERM ROUTINE CALLED BY OTHER           *   FILE 259
//*                        C LANGUAGE PROGRAMS.                     *   FILE 259
//*                                                                 *   FILE 259
//*           TPGN      -  TPG ROUTINE CALLED BY OTHER              *   FILE 259
//*                        C LANGUAGE PROGRAMS.                     *   FILE 259
//*                                                                 *   FILE 259
//*           TPUTN     -  TPUT ROUTINE CALLED BY OTHER             *   FILE 259
//*                        C LANGUAGE PROGRAMS.                     *   FILE 259
//*                                                                 *   FILE 259
//*           TXTPAD32  -  PROGRAM THAT DISPLAYS A DEMO OF A        *   FILE 259
//*                        TEXT PAD ON A 3270 DEVICE.               *   FILE 259
//*                                                                 *   FILE 259
//*           WIDGET32  -  PROGRAM THAT DISPLAYS A DEMO OF          *   FILE 259
//*                        SEVERAL DIFFERENT WIDGETS ON A           *   FILE 259
//*                        3270 DEVICE.                             *   FILE 259
//*                                                                 *   FILE 259
//*           WIN3270   -  PROGRAM THAT ESTABLISHES A TSO SUB-      *   FILE 259
//*                        COMMAND ENVIRONMENT AND PROCESSES        *   FILE 259
//*                        WINDOW DEFINITION AND DISPLAY            *   FILE 259
//*                        SUB-COMMANDS.                            *   FILE 259
//*                                                                 *   FILE 259
//***FILE 260 IS A VERY QUICK MAPPING PROGRAM.  IT WILL PRODUCE     *   FILE 260
//*      A LISTING OF EVERY DATA SET ON A VOLUME PLUS CALCULATE     *   FILE 260
//*      THE FREE SPACE, FREE DSCBS, ETC.  OPTIONALLY VIA PARM      *   FILE 260
//*      INFORMATION IT WILL PRODUCE THE FOLLOWING:                 *   FILE 260
//*                                                                 *   FILE 260
//*      Updated July 2000 by Charles Wells of the Georgia Dept.    *   FILE 260
//*      of Labor, to add support for 3390-9 disk drives.           *   FILE 260
//*                                                                 *   FILE 260
//*         Charles Wells                                           *   FILE 260
//*         Georgia Dept. of Labor                                  *   FILE 260
//*         Suite 352                                               *   FILE 260
//*         148 International Blvd                                  *   FILE 260
//*         Atlanta, GA 30303-1751                                  *   FILE 260
//*                                                                 *   FILE 260
//*         Voice: 404-656-5944                                     *   FILE 260
//*         Email: Charles.Wells@dol.state.ga.us                    *   FILE 260
//*                                                                 *   FILE 260
//*         PARM=MAP     PRODUCES A TRACK MAP OF THE VOLUME         *   FILE 260
//*         PARM=PDS     LIST ALL PDS DIRECTORIES ON THE VOLUME     *   FILE 260
//*         PARM=ISAM    LIST ISAM REORG INFORMATION FOR DATASETS   *   FILE 260
//*         PARM=EXT     LIST THE EXTENTS OF THE DATASETS           *   FILE 260
//*         PARM=DUMP    LIST IN HEX ALL DSCBS ON THE VOLUME        *   FILE 260
//*         PARM=EMPTY   LIST ONLY DATASETS THAT ARE EMPTY          *   FILE 260
//*         PARM=MODEL   LIST ONLY MODEL DSCBS                      *   FILE 260
//*         PARM=SDUMP   LIST IN HEX FORMAT 4 AND 5 DSCBS           *   FILE 260
//*         PARM=VOLS    ONLY USE DDNAMES OF VOLUMEXX               *   FILE 260
//*         PARM=JDATE   LIST CREATION/EXPIRATION DATES IN JULIAN   *   FILE 260
//*                                                                 *   FILE 260
//*      THIS CODE WILL SUPPORT 3380'S                              *   FILE 260
//*      THIS CODE WILL SUPPORT INDEXED VTOCS                       *   FILE 260
//*                                                                 *   FILE 260
//*      ADDITIONAL COMMENTS ARE DOCUMENTED IN THE SOURCE           *   FILE 260
//*      THIS PROGRAM MUST BE LINKED AS AC=1.                       *   FILE 260
//*                                                                 *   FILE 260
//*******************************************************************   FILE 260
//*** CBT CBT CBT CBT CBT CBT CBT CBT CBT CBT CBT CBT CBT CBT CBT ***   FILE 260
//***                                                             ***   FILE 260
//***  A USER OF THIS CODE DECIDED TO USE A PARM OF RESET, WHICH  ***   FILE 260
//***  WILL RESET THE HIGH WATER MARK IN THE VTOC.  IT DID IT,    ***   FILE 260
//***  ALL RIGHT, BUT IT SET IT TO 512 (ON A 3350) AND THE ARM    ***   FILE 260
//***  BOUNCED ALL OVER THE PLACE. BE CAREFUL !!!!!!!             ***   FILE 260
//***                                                             ***   FILE 260
//*** CBT CBT CBT CBT CBT CBT CBT CBT CBT CBT CBT CBT CBT CBT CBT ***   FILE 260
//*******************************************************************   FILE 260
//*                                                                 *   FILE 260
//***FILE 261 IS A VERSION OF THE # CMD1 SUBSYSTEM FROM B.F.        *   FILE 261
//*           GOODRICH IN AKRON, OHIO FROM MR GUY ALBERTELLI.       *   FILE 261
//*           THIS FILE CONTAINS A COMPLETE # COMMAND SUBSYSTEM,    *   FILE 261
//*           WITH NUMEROUS MEMBERS UPGRADED TO THE XA LEVEL, AND   *   FILE 261
//*           WITH SOME MEMBERS UPGRADED TO THE MVS/ESA 4.2 LEVEL.  *   FILE 261
//*           THE CURRENT MODULE NAMING IS FOR THE XA ENVIRONMENT.  *   FILE 261
//*           MEMBER $MVSXA21 SHOWS THE RENAMES FROM SP3 TO XA.     *   FILE 261
//*           MEMBER $$$BFGXA IS THE DOCUMENTATION OF THE CHANGES   *   FILE 261
//*           AND BUGS FOUND.  IT ALSO CONTAINS THE CURRENT STATUS  *   FILE 261
//*           OF THE MODULES IN THE SYSTEM.  SEE MEMBER CALLED      *   FILE 261
//*           $$$BFGES FOR THE MVS/ESA STATUS.                      *   FILE 261
//*                                                                 *   FILE 261
//*           THE # COMMAND SUBSYSTEM IS A MULTI-FUNCTION           *   FILE 261
//*           SUBSYSTEM THAT CAN BE USED TO PERFORM SYSTEM          *   FILE 261
//*           TASKS TO DISPLAY AND FIX VARIOUS CONDITIONS IN        *   FILE 261
//*           A RUNNING MVS SYSTEM.  I CALL IT THE "POOR MAN'S      *   FILE 261
//*           'RESOLVE'", AFTER THE VENDOR PRODUCT OF THAT NAME.    *   FILE 261
//*           THE CMD1 SUBSYSTEM CAN OPERATE FROM THE SYSTEM        *   FILE 261
//*           CONSOLE OR FROM A SUITABLY AUTHORIZED TSO USERID.     *   FILE 261
//*                                                                 *   FILE 261
//*           IN OLD VERSIONS OF THIS TAPE, DETAILED DOCUMENTATION  *   FILE 261
//*           FOR CMD1 USED TO BE SUPPLIED IN FILE 001 UNDER THIS   *   FILE 261
//*           HEADING IN THIS PLACE.  TO SEE MORE, YOU CAN EITHER   *   FILE 261
//*           PRINT OUT THE USER MANUAL CONTAINED IN THIS FILE,     *   FILE 261
//*           OR YOU CAN GET (IN FILE 071) THE DOCUMENTATION OF     *   FILE 261
//*           AND OLD TAPE (MEMBER CBT249) AND SEE HOW THE          *   FILE 261
//*           INFORMATION WAS PRESENTED THERE.                      *   FILE 261
//*                                                                 *   FILE 261
//*           CURRENT ADDRESS:                                      *   FILE 261
//*                                                                 *   FILE 261
//*                GUY ALBERTELLI                                   *   FILE 261
//*                B.F. GOODRICH - S.P.& C. DIVISION                *   FILE 261
//*                9911 BRECKSVILLE ROAD                            *   FILE 261
//*                BRECKSVILLE, OH 44141-3247                       *   FILE 261
//*                (216) 447-5543                                   *   FILE 261
//*                                                                 *   FILE 261
//***FILE 262 IS A COBOL PROGRAM FROM WALTER SHELLEY OF THE         *   FILE 262
//*           DEPARTMENT OF INFORMATION TECHNOLOGY AND              *   FILE 262
//*           TELECOMMUNICATIONS (DOITT) OF THE CITY OF NEW YORK.   *   FILE 262
//*           THIS PROGRAM READS AN SMPPTFIN FILE (IBM PTFS)        *   FILE 262
//*           AND PRODUCES A REPORT SHOWING FMID, APARS FIXED,      *   FILE 262
//*           AND COMPONENT ID FOR EACH PTF.                        *   FILE 262
//*                                                                 *   FILE 262
//***FILE 263 IS FROM SAM GOLOB WHO TOOK THE DIFFERENCE BETWEEN     *   FILE 263
//*           TWO VERSIONS OF THE UK G.U.I.D.E. TAPE WHICH WERE     *   FILE 263
//*           IN HIS POSSESSION.  THE RESULTING LIST OF MEMBERS     *   FILE 263
//*           APPEARED TO BE LOOSE MACROS WHICH ARE NECESSARY TO    *   FILE 263
//*           ASSEMBLE SOURCE PROGRAMS ON THE UK G.U.I.D.E.         *   FILE 263
//*           TAPE.  SEE FILES 244 AND 245.                         *   FILE 263
//*                                                                 *   FILE 263
//*         DOC FOR THIS FILE (263).                                *   FILE 263
//*                                                                 *   FILE 263
//*      THIS FILE CONSISTS OF ALL MEMBERS OF THE OLD UK            *   FILE 263
//*      G.U.I.D.E. TAPE WHICH ARE NOT IN THE NEW UK G.U.I.D.E.     *   FILE 263
//*      TAPE WHICH I RECEIVED FROM PHIL PECKSEN, WHO IS ITS        *   FILE 263
//*      PROPRIETOR.  I HAVE ASSUMED THAT THESE MEMBERS, MOST       *   FILE 263
//*      OF WHICH ARE MACROS, ARE NECESSARY FOR ASSEMBLING THE      *   FILE 263
//*      CONTENTS OF FILES 244 AND 245 OF THE CBT TAPE, WHICH       *   FILE 263
//*      IS FROM HIM, BUT WHICH CONTAINS FEW LOOSE MACROS.          *   FILE 263
//*                                                                 *   FILE 263
//*      THE COMPLETE UK G.U.I.D.E. TAPE TOGETHER WITH THESE        *   FILE 263
//*      MEMBERS, CAN NOW BE FOUND ON THE CBT OVERFLOW TAPE,        *   FILE 263
//*      WHICH WAS JUST ESTABLISHED.  THE UK G.U.I.D.E. TAPE        *   FILE 263
//*      FILE IS FILE 012 ON THAT TAPE.                             *   FILE 263
//*                                                                 *   FILE 263
//*             NOV 21, 96       SAM GOLOB       (NEW ADDRESS)      *   FILE 263
//*                              P.O. BOX 906                       *   FILE 263
//*                              TALLMAN, NY  10982                 *   FILE 263
//*                                                                 *   FILE 263
//*        EMAIL:  sbgolob@aol.com                                  *   FILE 263
//*                sbgolob@attglobal.net                            *   FILE 263
//*                                                                 *   FILE 263
//*        NEW PHONE NUMBER:    845-362-1996                        *   FILE 263
//*                                                                 *   FILE 263
//***FILE 264 IS FROM B.F. GOODRICH IN AKRON OHIO, AND CONTAINS     *   FILE 264
//*           THREE TSO COMMAND PROCESSORS.  THEY ARE:              *   FILE 264
//*                                                                 *   FILE 264
//*             1  LOOK    -  A TSO COMMAND PROCESSOR THAT ALLOWS   *   FILE 264
//*                           FULL SCREEN DISPLAY OF REAL TIME      *   FILE 264
//*                           MEMORY.  THIS COMMAND HAS BEEN        *   FILE 264
//*                           ENHANCED TO MAKE IT EASY TO ADD NEW   *   FILE 264
//*                           CONTROL BLOCK MAPS, USUALLY IN 3 OR   *   FILE 264
//*                           4 STATEMENTS                          *   FILE 264
//*                            * (REFRESHED 12/88 V1.1.A)           *   FILE 264
//*                                                                 *   FILE 264
//*                  (THIS COMMAND IS A "MUST" TO KNOW ABOUT - SG)  *   FILE 264
//*                                                                 *   FILE 264
//*             2 DUDASD      AN UPDATED VERSION FROM FILE 300 OF   *   FILE 264
//*                           THIS TAPE THAT HAS BEEN CONVERTED     *   FILE 264
//*                           TO FUNCTION UNDER EITHER SP OR XA.    *   FILE 264
//*                                                                 *   FILE 264
//*             3 JLOG        A PROGRAM TO PRINT OUT THE JES JOBLOG *   FILE 264
//*                           AND OR ANY OTHER JES DATASETS, EVEN   *   FILE 264
//*                           IF THEY ARE QUEUED TO A DUMMY CLASS.  *   FILE 264
//*                           USEFUL IN OBTAINING THE JOBLOG OF     *   FILE 264
//*                           ABENDING STARTED TASKS.               *   FILE 264
//*                                                                 *   FILE 264
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT                 *   FILE 264
//*                                                                 *   FILE 264
//***FILE 265 IS FROM GUY ALBERTELLI OF B.F. GOODRICH IN AKRON      *   FILE 265
//*           OHIO AND CONTAINS THEIR TSO LOGON EXIT.  THE CODE     *   FILE 265
//*           HAS BEEN UPGRADED TO MVS 4.2 AND THE CONCURRENT       *   FILE 265
//*           TSO VERSION.  THIS CODE IS SOPHISTICATED AND IS       *   FILE 265
//*           VERY MUCH WORTH LOOKING AT.                           *   FILE 265
//*                                                                 *   FILE 265
//***FILE 266 IS FROM SAM GOLOB, WHO UPDATED THE TAPE MAPPING       *   FILE 266
//*           PROGRAM CALLED SS0104 FROM FLORIDA POWER CORPORATION. *   FILE 266
//*           THIS CODE IS USED TO MEASURE THE FOOTAGES OF FILES    *   FILE 266
//*           ON THE CBT TAPE, AS THOUGH THEY WERE ON A 6250 BPI    *   FILE 266
//*           TAPE REEL.  AS IS, THAT IS WHAT THIS CODE IS USED     *   FILE 266
//*           FOR, BUT IT CAN BE FIXED.  IF YOU FIX THIS CODE,      *   FILE 266
//*           FOR USE WITH ANY DENSITY TAPE, AND WITH CARTRIDGE,    *   FILE 266
//*           PLEASE SEND IT TO ME TO TEST, SO I CAN UPDATE THIS    *   FILE 266
//*           FILE IN YOUR NAME.  THANKS.  (S.GOLOB - 08/96).       *   FILE 266
//*                                                                 *   FILE 266
//***FILE 267 IS CURRENTLY EMPTY                                    *   FILE 267
//*                                                                 *   FILE 267
//***FILE 268 is from Mark Winges of San Francisco, California      *   FILE 268
//*           and contains a package of REXX functions to access    *   FILE 268
//*           VSAM files.  This is his second version.              *   FILE 268
//*                                                                 *   FILE 268
//*           This file was fixed by Rob Van Riel, to solve         *   FILE 268
//*           several problems.  Details are in member RXVSAM$.     *   FILE 268
//*                                                                 *   FILE 268
//*         email:   LynMark@compuserve.com  (Mark Winges)          *   FILE 268
//*         phone:   415-752-8291                                   *   FILE 268
//*                                                                 *   FILE 268
//*         email: "Van Riel, Rob" <vanrielr@anz.com>               *   FILE 268
//*                                                                 *   FILE 268
//***FILE 269 CONTAINS THE SOURCE FOR THE TSO GAME CALLED           *   FILE 269
//*           ADVENTURE IN IEBUPDTE SYSIN FORMAT.  THE LOAD MODULE  *   FILE 269
//*           IS CONTAINED IN FILE 135.  YOU WILL NEED THE PL/I     *   FILE 269
//*           OPTIMIZING COMPILER TO RECOMPILE THIS CODE.           *   FILE 269
//*                                                                 *   FILE 269
//***FILE 270 IS FROM THE WASHINGTON STATE DP SERVICE CENTER AND    *   FILE 270
//*          CONTAINS SEVERAL OF THE LOCAL UTILITIES.  THIS FILE IS *   FILE 270
//*          IN IEBUPDTE SYSIN FORMAT.  FOR ADDITIONAL INFORMATION  *   FILE 270
//*          SEE THE MEMBER CALLED $DOC.                            *   FILE 270
//*                                                                 *   FILE 270
//*         CONTACT - KERMIT KISER (206) 902-3119                   *   FILE 270
//*                   WASHINGTON DATA PROCESSING SERVICE CENTER     *   FILE 270
//*                   25 STATE OFFICE BLDG TWO, OB-01               *   FILE 270
//*                   OLYMPIA, WASHINGTON 98504                     *   FILE 270
//*                                                                 *   FILE 270
//*             THE PURPOSE OF THIS FILE IS TO TRANSFER SOME OF     *   FILE 270
//*           WDPSC'S LOCAL UTILITIES.  ALL THIS STUFF WORKS HERE,  *   FILE 270
//*           BUT WE DON'T GUARANTEE IT TO WORK ANYWHERE ELSE.      *   FILE 270
//*           SOME PROGRAMS MAY NEED MODIFICATION FOR AN            *   FILE 270
//*           INSTALLATION.  SOME ARE GOOD ONLY AS "HOW TO"         *   FILE 270
//*           SAMPLES.                                              *   FILE 270
//*                                                                 *   FILE 270
//*             THIS FILE CONTAINS THE WDPSC PROGRAMS WHICH WERE    *   FILE 270
//*           PREVIOUSLY IN CBT FILES 270-274.  TWO OF THOSE        *   FILE 270
//*           PROGRAMS, NAMED FTL AND KOMM, HAVE BEEN MODIFIED      *   FILE 270
//*           AND THE LATEST VERSIONS ARE ON THIS TAPE.             *   FILE 270
//*                                                                 *   FILE 270
//*             WE DO HAVE TSO EXTENSIONS AND XA.  ALL OF THE       *   FILE 270
//*           CODE HAS BEEN MODIFIED FOR THIS LEVEL.                *   FILE 270
//*                                                                 *   FILE 270
//*           (KERMIT SAYS MOST OF THE STUFF SEEMS TO WORK ON       *   FILE 270
//*           ESA V3 AND PROBABLY V4.  SOME PROGRAMS MAY HAVE       *   FILE 270
//*           TO BE MODIFIED IF YOU ARE RUNNING SWA ABOVE THE       *   FILE 270
//*           LINE. - SG  1/94)                                     *   FILE 270
//*                                                                 *   FILE 270
//*             MANY OF THE TSO COMMANDS USE THE SETVAR             *   FILE 270
//*           SUBROUTINE.  YOU WILL NEED TO ASSEMBLE SETVAR         *   FILE 270
//*           BEFORE THESE COMMANDS WILL WORK CORRECTLY, THIS       *   FILE 270
//*           PROGRAM IS LINKED WITH AN IBM MODULE.                 *   FILE 270
//*                                                                 *   FILE 270
//*             IF A UTILITY HAS DOCUMENTATION WHICH IS             *   FILE 270
//*           MAINTAINED SEPARATELY, THE DOCUMENT IS IN THE         *   FILE 270
//*           SOURCE PDS WITH A SIMILIAR NAME BUT ENDING WITH THE   *   FILE 270
//*           "$" CHARACTER.                                        *   FILE 270
//*                                                                 *   FILE 270
//*          TO CREATE THE NECESSARY MACLIB, CLIST, PROCLIB, ETC.   *   FILE 270
//*              LIBRARIES:  MODIFY AND SUBMIT EITHER MEMBER        *   FILE 270
//*              REDIST OR REDISTI WHICH ARE IN THIS LIBRARY.       *   FILE 270
//*              (USE REDIST IF PROGRAM PDSLOAD FROM THE CBT TAPE   *   FILE 270
//*              IS AVAILABLE, ELSE USE JOB REDISTI.)  REDIST OR    *   FILE 270
//*              REDISTI WILL CREATE THE MACLIB, CLIST, PROCLIB,    *   FILE 270
//*              PANELS, SKELS, MESSAGES, TEXT, AND PARM            *   FILE 270
//*              LIBRARIES FROM THE APPROPRIATE MEMBERS IN THIS     *   FILE 270
//*              LIBRARY.                                           *   FILE 270
//*                                                                 *   FILE 270
//*         NAME       TYPE      DESCRIPTION                        *   FILE 270
//*                                                                 *   FILE 270
//*         $CHGLOG    DOCUMENT  LOG OF CHANGES AND ADDITIONS       *   FILE 270
//*                              TO THE MODS FILE.                  *   FILE 270
//*                                                                 *   FILE 270
//*         ALLOCGDG   PROGRAM   DYNAMICALLY ALLOCATE A GDG         *   FILE 270
//*                              DATASET TO A DDNAME BASED ON       *   FILE 270
//*                              RELATIVE GENERATION NUMBER         *   FILE 270
//*                              (BECAUSE TSO ALLOC WILL NOT        *   FILE 270
//*                              DO IT!).                           *   FILE 270
//*                                                                 *   FILE 270
//*         ALLOCMEM   PROGRAM   DYNAMICALLY ALLOCATE A             *   FILE 270
//*                              PARTITIONED DATASET AND ITS        *   FILE 270
//*                              MEMBER TO A GIVEN DDNAME           *   FILE 270
//*                              FROM A HIGH LEVEL LANGUAGE         *   FILE 270
//*                              PROGRAM.                           *   FILE 270
//*                                                                 *   FILE 270
//*         CATBYVOL   PROGRAM   CHECKS IDCAMS UNCATALOG CARDS      *   FILE 270
//*                              CREATED BY VSAMSCAN PROGRAM        *   FILE 270
//*                              AGAINST VOLUMES TO FIND NVSAM      *   FILE 270
//*                              DATASETS WHICH DO NOT EXIST.       *   FILE 270
//*                              SEE JOB IN CATBYVO#.  I THINK      *   FILE 270
//*                              DYL260 STEP IS NOT NEEDED.         *   FILE 270
//*                                                                 *   FILE 270
//*         CHKBLOCK   PROGRAM   BATCH PROGRAM TO SCAN JCL OR       *   FILE 270
//*                              PROCS AND REPORT ON OUTPUT         *   FILE 270
//*                              DATASETS NOT EFFICIENTLY           *   FILE 270
//*                              BLOCKED.  SAMPLE JCL IN            *   FILE 270
//*                              CHKBLOC# WILL SCAN A LIBRARY.      *   FILE 270
//*                                                                 *   FILE 270
//*         CHKTODAY   PROGRAM   BATCH PROGRAM TO CHECK FOR         *   FILE 270
//*                              EXISTENCE AND CURRENCY OF A        *   FILE 270
//*                              DATASET.  SETS A RETURN CODE.      *   FILE 270
//*                              WE USE SO THAT ONLY THE FIRST      *   FILE 270
//*                              CALLER OF OUR DAILY VOLUME         *   FILE 270
//*                              REPORT PROCESS ON ANY DAY          *   FILE 270
//*                              DOES THE EXTENSIVE ANALYSIS        *   FILE 270
//*                              OF ALL VOLUMES.                    *   FILE 270
//*                                                                 *   FILE 270
//*         CLIB       CLIST     ALLOCATE A PRIVATE CLIST           *   FILE 270
//*                              LIBRARY FOR IMPLICIT CLIST         *   FILE 270
//*                              EXECUTION WITHOUT REMOVING         *   FILE 270
//*                              PREVIOUSLY ALLOCATED CLIST         *   FILE 270
//*                              LIBRARIES.  USES COMMAND           *   FILE 270
//*                              CONCATEM.                          *   FILE 270
//*                                                                 *   FILE 270
//*         CLRSPFIO   PROGRAM   CAN BE CALLED DIRECTLY OR          *   FILE 270
//*                              LINKED TO DYNAMICALLY VIA THE      *   FILE 270
//*                              ISPEXEC SELECT PGM(CLRSPFIO)       *   FILE 270
//*                              TO TELL SPF TO IGNORE ANY          *   FILE 270
//*                              NON-SPF IO WHICH MAY HAVE          *   FILE 270
//*                              TAKEN PLACE IN THE DIALOG.         *   FILE 270
//*                              NOW ALLOWS PARM OPTIONS FOR        *   FILE 270
//*                              MORE COMPLEX REQUIREMENTS.         *   FILE 270
//*                              THE FOLLOWING SEQUENCE KILLED      *   FILE 270
//*                              THE SCREEN OVERFLOW WHEN           *   FILE 270
//*                              EXITING RESOLVE CONSOLE MODE       *   FILE 270
//*                              TO ISPF:                           *   FILE 270
//*                                                                 *   FILE 270
//*                       ISPEXEC SELECT PGM(CLRSPFIO) PARM(OFF)    *   FILE 270
//*                       ISPEXEC SELECT PGM(CLRSPFIO) PARM(INIT)   *   FILE 270
//*                       ISPEXEC SELECT PGM(CLRSPFIO) PARM(NORM)   *   FILE 270
//*                                                                 *   FILE 270
//*         CMDOUT     CLIST     UTILITY CLIST USED BY CLISTS       *   FILE 270
//*                              AND DIALOGS TO ALLOCATE AND        *   FILE 270
//*                              FREE WORK FILES.  USES             *   FILE 270
//*                              COMMANDS IFALC AND FILEINFO.       *   FILE 270
//*                                                                 *   FILE 270
//*         CNTLCRT    PROGRAM   CAN BE CALLED BY CLISTS TO         *   FILE 270
//*                              ISSUE CNTL OR FULLSCR TPUT         *   FILE 270
//*                              MESSAGES.                          *   FILE 270
//*                                                                 *   FILE 270
//*         CNV2GREG   PROGRAM   THIS IS A SUBROUTINE WHICH         *   FILE 270
//*                              WILL RETURN A FORMATTED            *   FILE 270
//*                              GREGORIAN DATE GIVEN A             *   FILE 270
//*                              STANDARD DATE, JULIAN DATE OR      *   FILE 270
//*                              SERIAL DATE.                       *   FILE 270
//*                                                                 *   FILE 270
//*         COMMANDR   PROGRAM   AUTHORIZED PROGRAM TO TAKE A       *   FILE 270
//*                              COMMAND FROM THE PARM FIELD        *   FILE 270
//*                              AND ISSUE IT VIA SVC 34.           *   FILE 270
//*                                                                 *   FILE 270
//*         CONCATEM   TSO CMD   ALLOCATE OR DEALLOCATE,            *   FILE 270
//*         (CONCAT)             CONCATENATE OR DECONCATENATE       *   FILE 270
//*                              THE GIVEN DATASET TO THE           *   FILE 270
//*                              GIVEN DDNAME.  IN THE CASE OF      *   FILE 270
//*                              CONCATENATION, PLACE THE           *   FILE 270
//*                              GIVEN DATASET "AT THE TOP OF       *   FILE 270
//*                              THE STACK" OF ALL DATASETS         *   FILE 270
//*                              CONCATENATED TO THAT DDNAME.       *   FILE 270
//*                                                                 *   FILE 270
//*         CRY        PROGRAM   ISPF EDIT MACRO TO ENCRYPT         *   FILE 270
//*                              AND DECRYPT DATA BY CALLING        *   FILE 270
//*                              R050A90 PGM FROM CBT TAPE.         *   FILE 270
//*                              INVOKED BY ENCRYPT & DECRYPT       *   FILE 270
//*                              CLIST MACROS.                      *   FILE 270
//*                                                                 *   FILE 270
//*         CTLGTMS#   JCL       CHECKS IDCAMS UNCATALOG CARDS      *   FILE 270
//*                              CREATED BY VSAMSCAN PROGRAM        *   FILE 270
//*                              AGAINST TMS TMC TO FIND NVSAM      *   FILE 270
//*                              DATASETS WHICH DO NOT EXIST.       *   FILE 270
//*                              IF DYL260 IS NOT AVAILABLE,        *   FILE 270
//*                              SOME CONVERSION IS NEEDED.         *   FILE 270
//*                                                                 *   FILE 270
//*         DATECONV   TSO CMD   ACCEPT A STANDARD, JULIAN, OR      *   FILE 270
//*                              SERIAL DATE AND THEN CONVERT       *   FILE 270
//*                              IT TO THE OTHER TWO.               *   FILE 270
//*                                                                 *   FILE 270
//*         DDNTODSN   PROGRAM   SUBROUTINE CALLED BY PROGRAMS      *   FILE 270
//*                              TO RETURN DSNAME AND VOLSER        *   FILE 270
//*                              BASED ON DDNAME PASSED.            *   FILE 270
//*                                                                 *   FILE 270
//*         DEVTYPE    TSO CMD   DETERMINE DEVICE TYPE GIVEN        *   FILE 270
//*                              VOLUME SERIAL NUMBER.              *   FILE 270
//*                                                                 *   FILE 270
//*         DOCSYS     .......   THIS IS AN ISPF DIALOG SYSTEM      *   FILE 270
//*                              FOR ONLINE MANAGEMENT AND          *   FILE 270
//*                              RETRIEVAL OF DOCUMENTS.  IT        *   FILE 270
//*                              USES MANY OF THE OTHER             *   FILE 270
//*                              UTILITIES ON THIS TAPE.  SEE       *   FILE 270
//*                              MEMBER DOCSYS$ FOR MORE            *   FILE 270
//*                              DETAILS.                           *   FILE 270
//*                                                                 *   FILE 270
//*         DSN        CLIST &   DISPLAY DATASET ENQS VIA DSNQ      *   FILE 270
//*                    TSO CMD   CMD, A VERSION OF DENQ (SEE        *   FILE 270
//*                              ENQ1DSN, ENQ1LOAD, ENQ2LOAD        *   FILE 270
//*                              SOURCE).  THESE ARE XA             *   FILE 270
//*                              VERSIONS WITH GQSCAN SUPPORT.      *   FILE 270
//*                                                                 *   FILE 270
//*         DSNTAB     PROGRAM   SUBROUTINE TO PASS BACK LIST       *   FILE 270
//*                              OF ALL DSNAMES CONCATENATED        *   FILE 270
//*                              TO A GIVEN DDNAME.                 *   FILE 270
//*                                                                 *   FILE 270
//*         DUMPVOL    PROGRAM   A SAMPLE PROGRAM WHICH READS       *   FILE 270
//*                              A LIST OF VOLUMES AND BUILDS       *   FILE 270
//*                              A JOB TO DUMP (FDR) ONLY           *   FILE 270
//*                              THOSE VOLUMES WHICH ARE            *   FILE 270
//*                              CURRENTLY MOUNTED.  NO MORE        *   FILE 270
//*                              DOES DUANE HAVE TO COME IN AT      *   FILE 270
//*                              3 AM BECAUSE SOME VOLUMES ARE      *   FILE 270
//*                              NOT MOUNTED.                       *   FILE 270
//*                                                                 *   FILE 270
//*         DYNALLOC   PROGRAM   SUBROUTINE TO DYNAMICALLY          *   FILE 270
//*                              ALLOCATE A GIVEN DATASET TO A      *   FILE 270
//*                              GIVEN DDNAME.                      *   FILE 270
//*                                                                 *   FILE 270
//*         EDITNEW    DIALOG    ISPF/PDF REPLACEMENT EDIT          *   FILE 270
//*         EDITAPP              (OPTION 2) DIALOGS.  ALLOWS        *   FILE 270
//*                              SAVING LISTS OF DATASETS TO        *   FILE 270
//*                              SELECT FROM FOR EDITING OR         *   FILE 270
//*                              BROWSING.  SEE EDIT$ FOR           *   FILE 270
//*                              DETAILS.                           *   FILE 270
//*                                                                 *   FILE 270
//*         FILEATTR   PROGRAM   OBTAIN VOLUME SERIAL NUMBER,       *   FILE 270
//*                              LRECL, BLKSIZE, DSORG, RECORD      *   FILE 270
//*                              FORMAT, AND DEVICE TYPE OF         *   FILE 270
//*                              DATASET GIVEN THE DATASET          *   FILE 270
//*                              NAME (AND VOLUME SERIAL            *   FILE 270
//*                              NUMBER IF NOT CATALOGED) FROM      *   FILE 270
//*                              A HIGH LEVEL LANGUAGE PGM.         *   FILE 270
//*                                                                 *   FILE 270
//*         FILEINFO   TSO CMD   RETURN INFO TO A CLIST SUCH        *   FILE 270
//*                              AS LRECL, BLKSIZE, RECFM,          *   FILE 270
//*                              DSORG, VOLSER, ETC.                *   FILE 270
//*                                                                 *   FILE 270
//*         FILSPACE   PROGRAM   SUBROUTINE THAT ACCEPTS A          *   FILE 270
//*                              DATASET NAME AND VOLUME            *   FILE 270
//*                              SERIAL NUMBER AND RETURNS THE      *   FILE 270
//*                              NUMBER OF USED EXTENTS AND         *   FILE 270
//*                              THE NUMBER OF USED TRACKS.         *   FILE 270
//*                                                                 *   FILE 270
//*         FINDMEM    PROGRAM   DETERMINE WHETHER A SPECIFIED      *   FILE 270
//*                              MEMBER OF A PDS EXISTS OR NOT.     *   FILE 270
//*                                                                 *   FILE 270
//*         FINDTTR    PROGRAM   CALLED BY THE FINDTTR CLIST        *   FILE 270
//*                              TO SEARCH A PDS FOR A GIVEN        *   FILE 270
//*                              STRING.  THE TTR OF ALL BLOCKS     *   FILE 270
//*                              CONTAINING THE STRING IS           *   FILE 270
//*                              DISPLAYED WHETHER IN               *   FILE 270
//*                              DIRECTORY, MEMBERS, GAS, OR        *   FILE 270
//*                              BEYOND DS1LSTAR.                   *   FILE 270
//*                                                                 *   FILE 270
//*         FIREUP     CLIST     ALLOCATE USER SPF DIALOG           *   FILE 270
//*                              MANAGER LIBRARIES AHEAD OF         *   FILE 270
//*                              THE SPF PROGRAM DEVELOPMENT        *   FILE 270
//*                              FACILITY LIBRARIES AND/OR TO       *   FILE 270
//*                              ALLOCATE LIBRARIES TO DIALOG       *   FILE 270
//*                              MANAGER DDNAMES NOT ALREADY        *   FILE 270
//*                              ALLOCATED.                         *   FILE 270
//*                                                                 *   FILE 270
//*         FTL        PROGRAM   IEBGENER REPLACEMENT FOR           *   FILE 270
//*                              COPYING FILES.  HANDLES            *   FILE 270
//*                              MULTIPLE FILES, CHANGING DCB       *   FILE 270
//*                              CHARACTERISTICS, MOST FILE         *   FILE 270
//*                              TYPES.                             *   FILE 270
//*                                                                 *   FILE 270
//*         GDDM       MISC.     OUR INTERFACE TO GDDM AND PGF      *   FILE 270
//*                              UTILITIES.  PANELS - GDDM,         *   FILE 270
//*                              GDDMR3H                            *   FILE 270
//*                                                                 *   FILE 270
//*                              CLISTS - CHART,IMD,ISSE,LPQ,VSSE   *   FILE 270
//*                                                                 *   FILE 270
//*                              LOADMODS-                          *   FILE 270
//*                                IFALC,DATASTAT,KOMM,DEVTYPE,     *   FILE 270
//*                                FILEINFO                         *   FILE 270
//*                                NEWWAIT,ADMUSP6,LISTMEMS,LPRTQ,  *   FILE 270
//*                                PROGDQUE                         *   FILE 270
//*                                                                 *   FILE 270
//*                              SOURCE - DATASTAT,ADMUSP6,         *   FILE 270
//*                              ADMUSP6O,LPRTQ2,PROGDQ             *   FILE 270
//*                                                                 *   FILE 270
//*                              DOCS - CHART,GDDM,ISSE,            *   FILE 270
//*                              SAMPSYMS,VSSE                      *   FILE 270
//*                                                                 *   FILE 270
//*                              JCL - PROGDQ#                      *   FILE 270
//*                                                                 *   FILE 270
//*                     NOTE:    ADMUSP6 IS ENHANCED IBM            *   FILE 270
//*                              SAMPLE PGM TO LOAD DATA INTO       *   FILE 270
//*                              ICU.  PROGDQUE BUILDS GDDM         *   FILE 270
//*                              QUEUE.  LPRTQ DISPLAYS             *   FILE 270
//*                              CONTENTS OF GDDM QUEUE.            *   FILE 270
//*                              ADMUSP6B IS BATCH CHART            *   FILE 270
//*                              UTILITY.                           *   FILE 270
//*                                                                 *   FILE 270
//*         GETMY      TSO CMD   SAMPLE COMMAND FOR RETURNING       *   FILE 270
//*                              USER/SYSTEM DATA TO CLIST          *   FILE 270
//*                              VARIABLES.  SOME INSTALLATION      *   FILE 270
//*                              SENSITIVE CODE, BUT A GOOD         *   FILE 270
//*                              STARTING PLACE!                    *   FILE 270
//*                                                                 *   FILE 270
//*         HEXTRAN    PROGRAM   TRANSLATE DATA FROM CHARACTER      *   FILE 270
//*                              CODED HEXADECIMAL TO TRUE          *   FILE 270
//*                              HEXADECIMAL OR VICE VERSA.         *   FILE 270
//*                                                                 *   FILE 270
//*         HOSEDOWN   CLIST     DEALLOCATE USER SPF DIALOG         *   FILE 270
//*                              MANAGER LIBRARIES (UNDO WHAT       *   FILE 270
//*                              A PREVIOUS FIREUP DID).            *   FILE 270
//*                                                                 *   FILE 270
//*         HOTKEYS    CLISTS    SETS PFKS TO CALL HOTKEY           *   FILE 270
//*                              CLIST AS NESTED ISPF DIALOG.       *   FILE 270
//*                              HOTKEY CLIST EXTRACTS DATASET      *   FILE 270
//*                              NAME (SEE ISPCDSN PROGRAM) AT      *   FILE 270
//*                              CURSOR LOCATION AND CALLS THE      *   FILE 270
//*                              REQUESTED APPLICATION (PDS         *   FILE 270
//*                              CMD, BROWSE, EDIT, ETC.)           *   FILE 270
//*                              PASSING THE DATASET NAME!          *   FILE 270
//*                              ALSO SUPPORTS DDNAMES AND VIO      *   FILE 270
//*                              DSNAMES.                           *   FILE 270
//*                                                                 *   FILE 270
//*         IFALC      TSO CMD   TESTS WHETHER A GIVEN DDNAME       *   FILE 270
//*                              OR DSNAME IS CURRENTLY             *   FILE 270
//*                              ALLOCATED TO THE USER.             *   FILE 270
//*                                                                 *   FILE 270
//*         IFCAT      TSO CMD   TESTS WHETHER A GIVEN DSNAME       *   FILE 270
//*                              IS CATALOGED.  FILEINFO GIVES      *   FILE 270
//*                              BETTER DATA.                       *   FILE 270
//*                                                                 *   FILE 270
//*         IKJUPDT    PROGRAM   SUBROUTINE TO CONVERT CALLS        *   FILE 270
//*                              TO IKJUPDT INTO LINK TO            *   FILE 270
//*                              PROGRAM SETVAR.  WE USED TO        *   FILE 270
//*                              LINK IBM IKJUPDT (IKJCT433)        *   FILE 270
//*                              DIRECTLY WITH TSO COMMANDS IN      *   FILE 270
//*                              ORDER TO PUT DATA INTO CLIST       *   FILE 270
//*                              VARIABLES.  THIS TECHNIQUE IS      *   FILE 270
//*                              MUCH MORE MAINTAINABLE!.           *   FILE 270
//*                                                                 *   FILE 270
//*         INDEX      PROGRAM   TO SCAN A STRING FOR A             *   FILE 270
//*                              DELIMITER AND SET A RETURN         *   FILE 270
//*                              CODE BASED ON ITS LOCATION -       *   FILE 270
//*                              USED BY HOTKEYS CLIST.  SETS       *   FILE 270
//*                              RC=0 IF NOT FOUND.                 *   FILE 270
//*                                                                 *   FILE 270
//*         INMRZ01    PROGRAM   TSO/E RECEIVE COMMAND EXIT.        *   FILE 270
//*                              INTERFACES WITH ACF2 TO            *   FILE 270
//*                              CONTROL USERID ACCESS AND          *   FILE 270
//*                              ALLOW BATCH RECEIVE.  MODIFY       *   FILE 270
//*                              THE SPOOL MAINTENENCE JOB          *   FILE 270
//*                              CHECK SECTION FOR YOUR             *   FILE 270
//*                              INSTALLATION.                      *   FILE 270
//*                                                                 *   FILE 270
//*         INTRDR     PROGRAM   THIS PROGRAM WILL ACCEPT A         *   FILE 270
//*                              DDNAME PASSED TO IT IN THE         *   FILE 270
//*                              PARAMETER LIST AND THEN            *   FILE 270
//*                              DYNAMICALLY ALLOCATE THE           *   FILE 270
//*                              INTERNAL READER TO THAT            *   FILE 270
//*                              DDNAME.                            *   FILE 270
//*                                                                 *   FILE 270
//*         ISPCDSN    PROGRAM   FANTASTIC PROGRAM TO EXTRACT       *   FILE 270
//*                              A DATASET NAME FROM THE LAST       *   FILE 270
//*                              DISPLAYED PANEL IF THE CURSOR      *   FILE 270
//*                              WAS PLACED ANYWHERE ON A           *   FILE 270
//*                              DATASET NAME AND PUT IT IN AN      *   FILE 270
//*                              ISPF VARIABLE!  PLEASE DON'T       *   FILE 270
//*                              TELL IBM ABOUT THIS ONE - IT       *   FILE 270
//*                              USES SOME INTERNAL ISPF            *   FILE 270
//*                              POINTERS THAT WE AREN'T            *   FILE 270
//*                              SUPPOSED TO KNOW ABOUT!            *   FILE 270
//*                                                                 *   FILE 270
//*         ISPCMDS    TABLE     ISPF COMMAND TABLE WE USE.         *   FILE 270
//*                              ALLOWS A DIALOG OR PANEL TO        *   FILE 270
//*                              OVERRIDE COMMANDS, MAP PFKS,       *   FILE 270
//*                              ACTIVATE SCROLL KEYS, ETC BY       *   FILE 270
//*                              JUST SETTING A FUNCTION            *   FILE 270
//*                              VARIABLE.  EFFECT IS LOCAL AND     *   FILE 270
//*                              DOES NOT SCREW UP YOUR SPLIT       *   FILE 270
//*                              SCREENS.  ALSO HAS RTSO, OPT,      *   FILE 270
//*                              BR, ED COMMAND SUPPORT FOR         *   FILE 270
//*                              NESTING FUNCTIONS.                 *   FILE 270
//*                                                                 *   FILE 270
//*         ISPF       MISC      ISR*PRIM,KMENU,SPFBATU...          *   FILE 270
//*                              VARIOUS ISPF STUFF TO SHOW         *   FILE 270
//*                              HOW WE HOOK IT ALL TOGETHER        *   FILE 270
//*                              HERE.  TRACE INVISIBLE OPTION      *   FILE 270
//*                              'K' TO FIND IT.                    *   FILE 270
//*                                                                 *   FILE 270
//*         ISPFMACS   CLISTS    CUT/PASTE, CENTER, SHOWFLOW,       *   FILE 270
//*                              COM ARE ISPF EDIT MACROS.          *   FILE 270
//*                              SOME CONVERTED FROM IBM            *   FILE 270
//*                              DISKETTE FOR TSO.  SORRY, NO       *   FILE 270
//*                              DOCS AVAILABLE, BUT SOME HELP      *   FILE 270
//*                              PANELS.  (CUTHELP,PASTEHLP)        *   FILE 270
//*                                                                 *   FILE 270
//*         JCLXREF    PROC      THIS PROCEDURE READS A             *   FILE 270
//*                              PROCEDURE LIBRARY AND/OR JOB       *   FILE 270
//*                              STREAMS AND OUTPUTS UP TO SIX      *   FILE 270
//*                              REPORTS.  CROSS REFERENCE          *   FILE 270
//*                              PROGRAMS AND DATASET NAMES         *   FILE 270
//*                              WITH PROCEDURE NAMES AND           *   FILE 270
//*                              THEIR STEP NAMES.  USES            *   FILE 270
//*                              DYL260.                            *   FILE 270
//*                                                                 *   FILE 270
//*         JTOSCONV   PROGRAM   CONVERT JULIAN DATES OF THE        *   FILE 270
//*                              FORM YYDDD TO STANDARD             *   FILE 270
//*                              (MMDDYY) AFTER DATE                *   FILE 270
//*                              VALIDATION.                        *   FILE 270
//*                                                                 *   FILE 270
//*         KOMM       TSO CMD   COMMAND TO DO SIMPLE 3270 IO       *   FILE 270
//*                              FROM A CLIST, SUCH AS CLEAR        *   FILE 270
//*                              THE SCREEN OR FORMAT FIELDS.       *   FILE 270
//*                                                                 *   FILE 270
//*         LASTLINK   CLIST     DISPLAY INFORMATION ABOUT THE      *   FILE 270
//*                              LAST TIME A COBOL OR               *   FILE 270
//*                              ASSEMBLER PROGRAM WAS              *   FILE 270
//*                              COMPILED AND LINKED.               *   FILE 270
//*                                                                 *   FILE 270
//*         LISTMEMS   PROGRAM   GIVEN THE NAME OF A                *   FILE 270
//*                              PARTITIONED DATA SET, PRODUCE      *   FILE 270
//*                              AN OUTPUT FILE WHOSE RECORDS       *   FILE 270
//*                              CONTAIN THE NAMES OF THE           *   FILE 270
//*                              MEMBERS OF THAT PDS (ONE           *   FILE 270
//*                              RECORD PER MEMBER).                *   FILE 270
//*                                                                 *   FILE 270
//*         LOADXREF   PROC      CROSS REFERENCE CALLING            *   FILE 270
//*                              PROGRAMS TO CALLED PROGRAM         *   FILE 270
//*                              AND VICE VERSA.  (USES             *   FILE 270
//*                              SHIFT90, A 90 DEGREE PRINT         *   FILE 270
//*                              PROGRAM.  IF YOU DO NOT HAVE       *   FILE 270
//*                              THIS OR IBM'S ROTATE90, THERE      *   FILE 270
//*                              IS A PUBLIC DOMAIN 90 DEGREE       *   FILE 270
//*                              PGM IN FILE 316, CBT MODS          *   FILE 270
//*                              TAPE).                             *   FILE 270
//*                                                                 *   FILE 270
//*         LOCATE     TSO CMD   FROM THE CBT TAPE ORIGINALLY.      *   FILE 270
//*                              MODIFIED TO USE LPALST00 AS        *   FILE 270
//*                              WELL AS LNKLST00 ON AN XA          *   FILE 270
//*                              SYSTEM.  SUPPORTS                  *   FILE 270
//*                              CONCATENATED STEPLIBS ALSO.        *   FILE 270
//*                              NOW HAS ISPLLIB SUPPORT AND        *   FILE 270
//*                              DOES MULTI-MEMBERS OK.             *   FILE 270
//*                                                                 *   FILE 270
//*         LOGKILLR   PROGRAM   AN OLD PROGRAM DESIGNED TO         *   FILE 270
//*                              KILL TSO LOGON ADDRESS SPACES      *   FILE 270
//*                              WHICH HANG IN THE USER-PROMPT      *   FILE 270
//*                              CODE DUE TO USER WALKING           *   FILE 270
//*                              AWAY, ETC.                         *   FILE 270
//*                                                                 *   FILE 270
//*         MEMSTAT    TSO CMD   CHECKS A PDS FOR A MEMBER AND      *   FILE 270
//*                              SETS &LASTCC.  YEAH, I KNOW        *   FILE 270
//*                              THERE ARE MANY, BUT WPPSS          *   FILE 270
//*                              WANTS...                           *   FILE 270
//*                                                                 *   FILE 270
//*         MLPALIST   PROGRAM   LISTS MODULES LOADED BY MLPA       *   FILE 270
//*                              OR FLPA.  SIMILIAR TO AMBLIST      *   FILE 270
//*                              LISTLPA.                           *   FILE 270
//*                                                                 *   FILE 270
//*         NEWISPF    PROGRAM   THIS MODULE IS THE FRONTEND        *   FILE 270
//*                              FOR ISPF AND/OR PDF.  IT HAS       *   FILE 270
//*                              THE FOLLOWING FUNCTIONS:           *   FILE 270
//*                                                                 *   FILE 270
//*                           1. SAVE THE INPUT ECT BECAUSE         *   FILE 270
//*                              ISPF MODIFIES THE ECT PTR TO       *   FILE 270
//*                              THE IOWA WHICH IS NEEDED BY        *   FILE 270
//*                              THE WDPSCXS MODULE FOR             *   FILE 270
//*                              STACKING COMMANDS.                 *   FILE 270
//*                                                                 *   FILE 270
//*                           2. ALLOCATE THE USER PROFILE LIB      *   FILE 270
//*                              TO DDNAME ISPPROF.                 *   FILE 270
//*                                                                 *   FILE 270
//*                           3. INVOKE THE NEWSPF CLIST IF         *   FILE 270
//*                              PROFILE LIB DOESN'T EXIST.         *   FILE 270
//*                              NEWSPF CREATES NEW USER            *   FILE 270
//*                              PROFILES.                          *   FILE 270
//*                                                                 *   FILE 270
//*                           4. CALL THE REAL ISPF OR PDF          *   FILE 270
//*                              COMMAND MODULE.                    *   FILE 270
//*                                                                 *   FILE 270
//*         NEWMWILE   PROGRAM   ATTACHES ITSELF, THEN              *   FILE 270
//*                              TERMINATES.  SELECTED USERS        *   FILE 270
//*                              INVOKE THIS PROGRAM WHEN THEY      *   FILE 270
//*                              START AN ISPF SESSION TO           *   FILE 270
//*                              BECOME EXEMPT FROM THE 522         *   FILE 270
//*                              ABENDS WHICH WE FORCE ON THE       *   FILE 270
//*                              AVERAGE USER.  USES REUSABLE       *   FILE 270
//*                              MODULE ITCOMA1.                    *   FILE 270
//*                                                                 *   FILE 270
//*         NEWWAIT    PROGRAM   WAIT FOR A SPECIFIED PERIOD        *   FILE 270
//*                              OF TIME WITHOUT USING CPU          *   FILE 270
//*                              TIME.  THIS IS THE                 *   FILE 270
//*                              INTERRUPTIBLE VERSION OF           *   FILE 270
//*                              WAITER.                            *   FILE 270
//*                                                                 *   FILE 270
//*         NEXTGEN    TSO CMD   RETURN TWO CLIST                   *   FILE 270
//*                              VARIABLES  &CURGEN  AND            *   FILE 270
//*                              &NXTGEN  WHERE  &CURGEN            *   FILE 270
//*                              CONTAINS  THE  ABSOLUTE            *   FILE 270
//*                              GENERATION NUMBER OF THE +0        *   FILE 270
//*                              GENERATION AND &NXTGEN             *   FILE 270
//*                              CONTAINS  THE  ABSOLUTE            *   FILE 270
//*                              GENERATION NUMBER OF THE +1        *   FILE 270
//*                              GENERATION FOR A GDG.              *   FILE 270
//*                                                                 *   FILE 270
//*         PACKLIST   PROGRAM   UTILITY TO BUILD IEAPAK00          *   FILE 270
//*                              FROM DATA PRODUCED BY PSWSAMP      *   FILE 270
//*                              ROUTINE.                           *   FILE 270
//*                                                                 *   FILE 270
//*         PSWSAMP    PROGRAM   TRACE TABLE SAMPLING UTILITY       *   FILE 270
//*                              FOR PRODUCING DATA USED BY         *   FILE 270
//*                              PACKLIST PROGRAM.                  *   FILE 270
//*                                                                 *   FILE 270
//*         REPROENQ   PROGRAM   PROGRAM TO ENQ ON SYSIGGV2         *   FILE 270
//*                              FOR A CATALOG ALLOCATED TO         *   FILE 270
//*                              STEPLIB AND CALL IDCAMS.  CAN      *   FILE 270
//*                              BACKUP THE CATALOGS WITHOUT        *   FILE 270
//*                              CODING DISP=OLD AND DRAINING       *   FILE 270
//*                              THE SYSTEM USING THIS.  SEE        *   FILE 270
//*                              REPROEN#.                          *   FILE 270
//*                                                                 *   FILE 270
//*         RJETRANS   PROGRAM   REASSEMBLE RECORDS THAT HAVE       *   FILE 270
//*                    (DYL280)  BEEN TRANSMITTED AS 80 BYTE        *   FILE 270
//*                              SEGMENTS VIA RJE TO THEIR          *   FILE 270
//*                              ORIGINAL LOGICAL RECORD LENGTH.    *   FILE 270
//*                                                                 *   FILE 270
//*         RTSO       PROGRAM   RTSO IMPLEMENTS A "REMEMBER        *   FILE 270
//*                              LAST TSO COMMAND" FUNCTION FOR     *   FILE 270
//*                              BOTH THE "TSO" COMMAND ON THE      *   FILE 270
//*                              "COMMAND ==>" AND FOR THE TSO      *   FILE 270
//*                              COMMAND PANEL, PRIMARY MENU        *   FILE 270
//*                              OPTION.  THE TSO COMMAND PANEL     *   FILE 270
//*                              CAN BE BROUGHT UP FROM ANYWHERE    *   FILE 270
//*                              BY ENTERING "TSO" WITHOUT AN       *   FILE 270
//*                              OPERAND, JUST LIKE THE "KEYS"      *   FILE 270
//*                              COMMAND.  THE LAST COMMAND         *   FILE 270
//*                              ENTERED MAY BE PRESENTED WHEN      *   FILE 270
//*                              THE TSO COMMAND PANEL IS           *   FILE 270
//*                              DISPLAY RELATED:  PANELS           *   FILE 270
//*                              ISRTSO,SPFEOPT,SPFEOH; CLIST       *   FILE 270
//*                              SPFEOPT; CMD TABLE ISPCMDS         *   FILE 270
//*                                                                 *   FILE 270
//*         SCXSCAN    PROGRAM   LINKS AS A FRONT-END TO            *   FILE 270
//*                              IKJSCAN TO PROVIDE AN "X CMD"      *   FILE 270
//*                              FACILITY FROM ANY SUBCOMMAND       *   FILE 270
//*                              MODE USING IKJSCAN (JUST LIKE      *   FILE 270
//*                              PCF X FACILITY)                    *   FILE 270
//*                                                                 *   FILE 270
//*         SERLCONV   PROGRAM   CONVERT SERIAL DATES TO            *   FILE 270
//*                              STANDARD DATE FORMAT AFTER         *   FILE 270
//*                              DATE VALIDATION.                   *   FILE 270
//*                                                                 *   FILE 270
//*         SETRC      PROGRAM   THIS PROGRAM TURNS A PARM          *   FILE 270
//*                              FIELD INTO A CONDITION CODE.       *   FILE 270
//*                              IT IS USED TO CONTROL              *   FILE 270
//*                              EXECUTION OF PROC STEPS BASED      *   FILE 270
//*                              ON PARMS SPECIFIED.  NOT AS        *   FILE 270
//*                              GOOD AS A NEW JCL LANGUAGE,        *   FILE 270
//*                              BUT A START.                       *   FILE 270
//*                                                                 *   FILE 270
//*         SETVAR     PROGRAM   THIS IS A SUBROUTINE WHICH A       *   FILE 270
//*                              TSO COMMAND CAN LINK TO IN         *   FILE 270
//*                              ORDER TO SET A CLIST               *   FILE 270
//*                              VARIABLE.  IT LINKS IN             *   FILE 270
//*                              IKJCT433(IKJUPDT) FROM LPALIB      *   FILE 270
//*                              FOR PRE TSO/E SYSTEMS. FOR         *   FILE 270
//*                              TSO/E SYSTEMS, THE NEW             *   FILE 270
//*                              IKJCT441 TSO/E INTERFACE IS        *   FILE 270
//*                              USED.                              *   FILE 270
//*                                                                 *   FILE 270
//*         SHOW       TSO CMD   REPLACEMENT FOR JTIP SHOW ALL      *   FILE 270
//*                              COMMAND. REQUIRES JES2             *   FILE 270
//*                              EXIT-22, XJ22SHOW, AND             *   FILE 270
//*                              IGC00236 (INCLUDED).               *   FILE 270
//*                                                                 *   FILE 270
//*         SPACE      TSO CMD   DISPLAYS ALLOCATION,               *   FILE 270
//*                              UTILIZATION AND EXTENT INFO        *   FILE 270
//*                              FOR A DATASET.  CAN RETURN         *   FILE 270
//*                              DATA TO A CLIST.                   *   FILE 270
//*                                                                 *   FILE 270
//*         SMF64EXT   PROGRAM   ANALYZES SMF TYPE 64 RECORDS       *   FILE 270
//*                              TO IDENTIFY VSAM DATASETS          *   FILE 270
//*                              WHICH ARE GOOD CANDIDATES FOR      *   FILE 270
//*                              USE ON CACHED DISK VOLUMES.        *   FILE 270
//*                                                                 *   FILE 270
//*         SMF74MOD   PROGRAM   MERGES SMF TYPE 74 RECORDS         *   FILE 270
//*                              FROM MULTIPLE CPUS SO              *   FILE 270
//*                              ERBRMFPP DEVICE ACTIVITY           *   FILE 270
//*                              REPORT WILL SHOW ALL ACTIVITY      *   FILE 270
//*                              TO SHARED DEVICES.  WORKS FOR      *   FILE 270
//*                              XA AND NON-XA MIXTURES ALSO.       *   FILE 270
//*                                                                 *   FILE 270
//*         SMPEIOF    PROGRAM   INTERCEPTS SMP/E CALLS TO TSO      *   FILE 270
//*                              STATUS COMMAND AND REROUTES        *   FILE 270
//*                              THEM TO STATUS CLIST               *   FILE 270
//*                              (INCLUDED) WHICH USES IOF TO       *   FILE 270
//*                              CHECK STATUS AND DISPLAY SMP/E     *   FILE 270
//*                              JOBS.  MUCH BETTER THAN TSO        *   FILE 270
//*                              OUTPUT COMMAND.                    *   FILE 270
//*                                                                 *   FILE 270
//*         SPFCATNV   CLIST     THIS IS AN ISPF DIALOG FOR         *   FILE 270
//*                              DOING NVSAM CATALOG                *   FILE 270
//*                              FUNCTIONS.  WE USE IT AS TECH      *   FILE 270
//*                              SERVICES OPTION K.N HERE.          *   FILE 270
//*                              GOOD IF YOU HAVE MULTIPLE          *   FILE 270
//*                              MASTER AND USER CATALOGS LIKE      *   FILE 270
//*                              WE DO.  CHANGE CAT NAMES IN        *   FILE 270
//*                              THE CLIST.                         *   FILE 270
//*                                                                 *   FILE 270
//*         PANLEXIT   PROGRAM   ISPF DIALOG INTERFACE TO           *   FILE 270
//*                              ALLOW EXITS FROM ISPF DISPLAY      *   FILE 270
//*                              PANELS (NOT SELECT PANELS          *   FILE 270
//*                              YET) TO A DIALOG OR ISPF SERVICE.  *   FILE 270
//*                              (REPLACED BY SPFEXEC.)             *   FILE 270
//*                                                                 *   FILE 270
//*         SPFEXEC    PROGRAM   ISPF DIALOG INTERFACE TO           *   FILE 270
//*         (PANLEXIT)           ALLOW EXITS FROM ISPF              *   FILE 270
//*                              DISPLAY PANELS (NOT SELECT         *   FILE 270
//*                              PANELS) TO A DIALOG OR ISPF        *   FILE 270
//*                              SERVICE.  THIS IS A                *   FILE 270
//*                              REPLACEMENT FOR PANLEXIT.  IT      *   FILE 270
//*                              IS ONE OF OUR BEST MODS!  IT       *   FILE 270
//*                              ALLOWS FANTASTIC FLEXIBILITY       *   FILE 270
//*                              IN MODIFYING VENDOR DIALOGS,       *   FILE 270
//*                              ETC.  IT ALSO PROVIDES THE         *   FILE 270
//*                              INTERFACES TO ISPLINK WHICH        *   FILE 270
//*                              IBM FORGOT!  IT CAN BE CALLED      *   FILE 270
//*                              AS A REAL TSO COMMAND IN           *   FILE 270
//*                              CONTRAST TO ISPEXEC WHICH          *   FILE 270
//*                              WON'T WORK FROM FOCUS, SAS,        *   FILE 270
//*                              ETC.  IT CAN ALSO BE CALLED        *   FILE 270
//*                              DIRECTLY WITH A SINGLE             *   FILE 270
//*                              ISPEXEC PARM STRING IN             *   FILE 270
//*                              CONTRAST TO THE TWO PARMS          *   FILE 270
//*                              (LENGTH,STRING) ISPLINK            *   FILE 270
//*                              REQUIRES.  IT ACCEPTS MORE         *   FILE 270
//*                              FLEXIBLE OPTIONS THAN ISPEXEC      *   FILE 270
//*                              AND WILL EVEN INITIALIZE ISPF      *   FILE 270
//*                              IF NEEDED!!!                       *   FILE 270
//*                                                                 *   FILE 270
//*                       SOME SYNTAX EXAMPLES:                     *   FILE 270
//*                            SPFEXEC SELECT PANEL(ISRUTIL)        *   FILE 270
//*                       OR   SPFEXEC PANEL(ISRUTIL)               *   FILE 270
//*                            SPFEXEC 3.1                          *   FILE 270
//*                       OR   * SPFEXEC 'PANEL(ISRUTIL) OPT(1)'    *   FILE 270
//*                            ETC., ETC., ETC........              *   FILE 270
//*                                                                 *   FILE 270
//*         SPFPRINT   PROGRAM   THIS IS LINKED AS A FRONT END      *   FILE 270
//*                              FOR YOUR DSPRINT COMMAND.  IT      *   FILE 270
//*                              PICKS UP AN ISPF VARIABLE AND      *   FILE 270
//*                              ADDS THE CONTENTS TO THE           *   FILE 270
//*                              COMMAND PASSED BY ISPF.  NOW       *   FILE 270
//*                              YOU CAN MODIFY THE DSPRINT         *   FILE 270
//*                              COMMANDS ISSUED BY ISPF.  DOES     *   FILE 270
//*                              NOT AFFECT NORMAL DSPRINT          *   FILE 270
//*                              REQUESTS.                          *   FILE 270
//*                                                                 *   FILE 270
//*         STACK      TSO CMD   STACK IS A NORMAL TSO COMMAND      *   FILE 270
//*                                    PROCESSOR:  STACK -          *   FILE 270
//*                                    DDIN(INPUTDD) -              *   FILE 270
//*                                    DDOUT(OUTDD) -               *   FILE 270
//*                                    TASKLIB(TASKDD) LIST         *   FILE 270
//*                                                                 *   FILE 270
//*                              INPUTDD - DDNAME TO READ           *   FILE 270
//*                                        COMMAND FROM             *   FILE 270
//*                                        INSTEAD OF NORMAL        *   FILE 270
//*                                        SOURCE                   *   FILE 270
//*                                                                 *   FILE 270
//*                              OUTDD   - DDNAME THE COMMAND       *   FILE 270
//*                                        OUTPUT SHOULD GO TO      *   FILE 270
//*                                                                 *   FILE 270
//*                              TASKDD  - DDNAME THE COMMAND       *   FILE 270
//*                                        SHOULD BE ATTACHED       *   FILE 270
//*                                        FROM IF DESIRED          *   FILE 270
//*                                                                 *   FILE 270
//*                              LIST    - MEANS DISPLAY THE        *   FILE 270
//*                                        COMMAND ON THE           *   FILE 270
//*                                        OUTPUT FILE              *   FILE 270
//*                                                                 *   FILE 270
//*                              (ALL OPERANDS ARE OPTIONAL)        *   FILE 270
//*                              (ALL FILE I/O MUST BE DONE         *   FILE 270
//*                              VIA PUTGET MODULE TO BE            *   FILE 270
//*                              INTERCEPTED).                      *   FILE 270
//*                                                                 *   FILE 270
//*         STOJCONV   PROGRAM   CONVERT STANDARD DATES OF THE      *   FILE 270
//*                              FORM (MMDDYY) TO JULIAN AND        *   FILE 270
//*                              SERIAL AFTER DATE VALIDATION.      *   FILE 270
//*                                                                 *   FILE 270
//*         SUPRNAME   PROGRAM   THE SUPRNAME PROGRAM IS A          *   FILE 270
//*                              FRONT END PROCESSOR TO             *   FILE 270
//*                              AMASPZAP WHICH ADDS SOME NEW       *   FILE 270
//*                              CONTROL CARDS TO THE SUPERZAP      *   FILE 270
//*                              VANILLA CARDS.  IT ALLOWS A        *   FILE 270
//*                              DATASET TO BE RENAMED OR           *   FILE 270
//*                              SCRATCHED WITH NO ENQ              *   FILE 270
//*                              CONTENTION EVEN IF THE             *   FILE 270
//*                              DATASET NAME IS ALLOCATED TO       *   FILE 270
//*                              ANOTHER JOB.  IT ALSO ALLOWS A     *   FILE 270
//*                              FORMAT ONE DSCB TO BE DUMPED       *   FILE 270
//*                              OR ZAPPED WITHOUT KNOWING THE      *   FILE 270
//*                              CCHHR ADDRESS IN THE VTOC.         *   FILE 270
//*                                                                 *   FILE 270
//*         SYSOUT     TSO CMD   COMMAND TO ALLOCATE SYSOUT         *   FILE 270
//*                              FILES USING THE NEW TEXT           *   FILE 270
//*                              UNITS FOR FLASH, CHARS,            *   FILE 270
//*                              MODIFY, ETC.                       *   FILE 270
//*                                                                 *   FILE 270
//*         TERMTYPE   PROGRAM   PROGRAM CAN BE CALLED BY A         *   FILE 270
//*                              CLIST TO DETERMINE SCREEN          *   FILE 270
//*                              LINES, I.E. TERMINAL TYPE -        *   FILE 270
//*                              TTY,M2,M3,ETC.                     *   FILE 270
//*                                                                 *   FILE 270
//*         TIMECOND   PROGRAM   SETS CONDITION CODE TO DAY OF      *   FILE 270
//*                              WEEK, MONTH, YEAR, ETC. FOR        *   FILE 270
//*                              CONDITIONAL EXECUTION OF           *   FILE 270
//*                              STEPS.                             *   FILE 270
//*                                                                 *   FILE 270
//*         TRANS      TSO CMD   TRANSLATES CHARACTERS IN           *   FILE 270
//*                              CLIST VARIABLES.  SEE SOURCE       *   FILE 270
//*                              FOR USE DOCUMENTATION.  NO         *   FILE 270
//*                              HELP MEM YET.                      *   FILE 270
//*                                                                 *   FILE 270
//*         UCBMAP     TSO CMD   A VERSION OF THE UCBMAP            *   FILE 270
//*                              COMMAND FROM FILE 301 OF THE       *   FILE 270
//*                              CBT TAPE WITH XA SUPPORT           *   FILE 270
//*                              (IOSVSUCB).                        *   FILE 270
//*                                                                 *   FILE 270
//*         UCC7MOD    SOURCE    A SOURCE PATCH TO UCC7 MODULE      *   FILE 270
//*                              SASSLGON TO ALLOW ANY VTAM         *   FILE 270
//*                              TERMINAL TO SIGN ON TO UCC7.       *   FILE 270
//*                                                                 *   FILE 270
//*         UNCLIB     CLIST     DEALLOCATE (REMOVE) A PRIVATE      *   FILE 270
//*                              CLIST LIBRARY PREVIOUSLY           *   FILE 270
//*                              ALLOCATED TO YOUR SESSION.         *   FILE 270
//*                                                                 *   FILE 270
//*         UNNUM      CLIST     A CLIST TO REMOVE CLIST LINE       *   FILE 270
//*                              NUMS FOR PRINTING.                 *   FILE 270
//*                                                                 *   FILE 270
//*         VOL2DEVT   PROGRAM   SUBROUTINE TO RETURN               *   FILE 270
//*                              DEVICE TYPE FOR GIVEN VOL.         *   FILE 270
//*                                                                 *   FILE 270
//*         VSAMSCAN   PROGRAM   READS CATALOG AND WRITES           *   FILE 270
//*                              IDCAMS UNCATALOG CARDS FOR         *   FILE 270
//*                              ALL NVSAM DATASETS WHICH ARE       *   FILE 270
//*                              THEN PROCESSED BY PROGRAM          *   FILE 270
//*                              CATBYVOL.  SEE JOB IN              *   FILE 270
//*                              CATBYVO#.  I THINK DYL260 STEP     *   FILE 270
//*                              IS NOT NEEDED.                     *   FILE 270
//*                                                                 *   FILE 270
//*         WATDSN     CLIST     UTILITY TO DIPLAY DATASETS         *   FILE 270
//*                    PROGRAM   ALLOCATED TO A GIVEN DDNAME.       *   FILE 270
//*                                                                 *   FILE 270
//*         WDPSCXS    PROGRAM   SUBROUTINE CALLED BY ISPF          *   FILE 270
//*                              DIALOGS TO STACK A COMMAND         *   FILE 270
//*                              FOR EXECUTION WHEN ISPF            *   FILE 270
//*                              TERMINATES.  USED FOR OUR          *   FILE 270
//*                              OPTION XL (EXIT,LOGOFF).           *   FILE 270
//*                              REQUIRES NEWISPF FRONTEND TO       *   FILE 270
//*                              WORK CORRECTLY.  SEE CLIST         *   FILE 270
//*                              SPFXL AND PANEL ISR*PRIM           *   FILE 270
//*                              ALSO...                            *   FILE 270
//*                                                                 *   FILE 270
//*         WHATDDN    TSO CMD   RETURN TO THE CLIST THE            *   FILE 270
//*                              DDNAME(S) OF THE DATASET(S)        *   FILE 270
//*                              WHICH IS (ARE) ALLOCATED TO        *   FILE 270
//*                              THE DSNAME GIVEN.                  *   FILE 270
//*                                                                 *   FILE 270
//*         WHATDSN    TSO CMD   RETURN TO THE CLIST THE            *   FILE 270
//*                              DSNAME(S) OF THE DATASET(S)        *   FILE 270
//*                              WHICH IS (ARE) ALLOCATED TO        *   FILE 270
//*                              THE DDNAME GIVEN.                  *   FILE 270
//*                                                                 *   FILE 270
//*         WHOISI     CLIST     LIST ATTRIBUTES ABOUT YOUR         *   FILE 270
//*                    DIALOG    LOGONID SUCH AS ACCOUNT            *   FILE 270
//*                              NUMBER, SYSTEM NUMBER, USER        *   FILE 270
//*                              CATALOG, LOGON PROCEDURE,          *   FILE 270
//*                              PROFILE PREFIX, ETC.               *   FILE 270
//*                                                                 *   FILE 270
//*         WTOPARM    PROGRAM   SEND A MESSAGE FROM THE PARM       *   FILE 270
//*                              FIELD TO THE OPERATOR.             *   FILE 270
//*                                                                 *   FILE 270
//*         WTORCOND   PROGRAM   ASK OPERATOR A QUESTION (Y OR      *   FILE 270
//*                              N) AND SET CONDITION CODE FOR      *   FILE 270
//*                              EXECUTION OF LATER STEPS.          *   FILE 270
//*                                                                 *   FILE 270
//*         XEQ        COMMAND   CALLS A PROGRAM FROM A             *   FILE 270
//*                              TASK/STEPLIB OR THE LINKLIST       *   FILE 270
//*                              WITHOUT ALLOCATION OVERHEAD        *   FILE 270
//*                              OF 'CALL'.  KNOWN AS * HERE.       *   FILE 270
//*                                                                 *   FILE 270
//***FILE 271 IS A DYNAMIC PROCLIB MODIFICATION FROM MR KEITH E.    *   FILE 271
//*           MOE FROM AMDAHL AND IS IN IEBUPDTE SYSIN FORMAT.      *   FILE 271
//*                                                                 *   FILE 271
//*           THIS FILE CONTAINS A COMPLETE DYNAMIC PROCLIB         *   FILE 271
//*           MODIFICATION.                                         *   FILE 271
//*                                                                 *   FILE 271
//*           SEE MEMBER ##V3R2M4 FOR ADDITIONAL INFORMATION        *   FILE 271
//*                                                                 *   FILE 271
//*           EXTENSIVE DOCUMENTATION ON THE INSTALLATION AND       *   FILE 271
//*           FUNCTION OF THIS DYNAMIC PROCLIB MODIFICATION CAN BE  *   FILE 271
//*           FOUND IN THE COMMENTS IN THE SMP MODIFICATIONS AND    *   FILE 271
//*           THE SOURCE FOR IEFVPP.                                *   FILE 271
//*                                                                 *   FILE 271
//*           SINCE 1977, THIS MODIFICATION HAS HAD ONLY ONE MAJOR  *   FILE 271
//*           CHANGE (OTHER THAT CHANGING THE CONVERTER ZAPS).      *   FILE 271
//*           THIS WAS TO SUPPORT THE SJF FEATURE ADDED IN MVS/SP   *   FILE 271
//*           1.3.2.  THE CHANGE WAS MADE TO BE COMPATIBLE ACROSS   *   FILE 271
//*           ALL LEVELS OF MVS AND TO ELIMINATE THE FUTURE         *   FILE 271
//*           DEPENDENCE ON THE SIZE OF THE CONVERTER WORK AREA.    *   FILE 271
//*           THIS CHANGE TOOK ONE DAY TO MAKE.  HENCE, THIS        *   FILE 271
//*           MODIFICATION CAN BE CONSIDERED QUITE STABLE.          *   FILE 271
//*                                                                 *   FILE 271
//***FILE 272 IS A MODIFICATION TO VTAM AND SAMPLE CODE TO SHOW     *   FILE 272
//*           HOW TO PUT VARIABLE DATA (SUCH AS THE DATE, TIME,     *   FILE 272
//*           SYSTEM ID, AND TERMINAL NAME INTO THE VTAM LOGO).     *   FILE 272
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT.                *   FILE 272
//*                                                                 *   FILE 272
//*           MEMBER #Z00394 IS AN SMP USERMOD AGAINST VTAM         *   FILE 272
//*           MODULE ISTINCU6.  THIS MODIFICATION PROVIDES THE      *   FILE 272
//*           LINKAGE TO THE USSEDIT ROUTINE THAT IS CODED AS       *   FILE 272
//*           PART OF THE VTAM USSTAB.                              *   FILE 272
//*                                                                 *   FILE 272
//*           USSEDIT IS A COPY MODULE CONTAINING CODE THAT         *   FILE 272
//*           WILL BUILD THE VARIABLE MESSAGE INFORMATION INTO      *   FILE 272
//*           THE VTAM "LOGO".                                      *   FILE 272
//*                                                                 *   FILE 272
//*           USS32740 IS A SAMPLE 3274 USSTAB WHICH COPIES IN      *   FILE 272
//*           USSEDIT.                                              *   FILE 272
//*                                                                 *   FILE 272
//***FILE 273 IS A MODIFICATION THAT ALLOWS A USER TO LOG ONTO A    *   FILE 273
//*           SECONDARY JOB ENTRY SUBSYSTEM.  THIS FILE IS IN       *   FILE 273
//*           IEBUPDTE SYSIN FORMAT.                                *   FILE 273
//*                                                                 *   FILE 273
//*           FOR SYSTEMS BEFORE MVS/SP 1.3.3 OR MVS/XA 2.1.1, IT   *   FILE 273
//*           ALSO ALLOWS DIRECTING A STARTED TASK TO A SECONDARY   *   FILE 273
//*           JES.                                                  *   FILE 273
//*                                                                 *   FILE 273
//*           NOTE:  THIS MODIFICATION ALONE WILL NOT ACCOMPLISH    *   FILE 273
//*           LOGGING ONTO A SECONDARY JES.  IT ONLY UPDATES THE    *   FILE 273
//*           NECESSARY CONTROL BLOCKS TO ACCOMPLISH THE TASK.      *   FILE 273
//*           THE TSO LOGON JCL MUST CONTAIN THE NAME OF THE        *   FILE 273
//*           SECONDARY JES TO LOG ONTO.  THIS IS MOST EASILY       *   FILE 273
//*           ACCOMPLISHED VIA THE LOGON PRE-PROMPT EXIT.           *   FILE 273
//*                                                                 *   FILE 273
//***FILE 274 IS THE MVS/ESA RELEASE 4 VERSION OF DYNAMIC PROCLIB   *   FILE 274
//*           FROM KEITH MOE OF AMDAHL.  SEE THE DOCUMENTATION      *   FILE 274
//*           ABOVE, CONCERNING FILE 271.                           *   FILE 274
//*                                                                 *   FILE 274
//*           SEE MEMBER CALLED (##V4R1M1) IN THE PDS, FOR A        *   FILE 274
//*           DESCRIPTION OF THIS VERSION OF DYNAMIC PROCLIB.       *   FILE 274
//*                                                                 *   FILE 274
//***FILE 275 IS FROM MARK HEDGES OF ADVENT SOFTWARE AND CONTAINS   *   FILE 275
//*           THE FOLLOWING UTILITIES AS DOCUMENTED BELOW.          *   FILE 275
//*                                                                 *   FILE 275
//*        ADVENT SOFTWARE                                          *   FILE 275
//*        340 WEST BUTTERFIELD ROAD                                *   FILE 275
//*        SUITE 4B                                                 *   FILE 275
//*        ELMHURST, IL 60126                                       *   FILE 275
//*        (630) 279-5449                                           *   FILE 275
//*                                                                 *   FILE 275
//*      AUTHOR.   MARK HEDGES                                      *   FILE 275
//*                                                                 *   FILE 275
//*-----------------------------------------------------------------*   FILE 275
//*                                                                 *   FILE 275
//*     APFLIST.....LIST APF DATA SETS USING CSVAPF                 *   FILE 275
//*                                                                 *   FILE 275
//*     CSVQUERY....LIST LPA/JPA LOAD MODULES USING CSVQUERY        *   FILE 275
//*                                                                 *   FILE 275
//*     GETDSAB.....OBTAIN A DDNAME LIST USING GETDSAB              *   FILE 275
//*                                                                 *   FILE 275
//*     ISPFEXIT....ISPF PANEL EXIT (NEAT ON PRIMARY PANEL)         *   FILE 275
//*                                                                 *   FILE 275
//*     LSPACE......OBTAIN FREE SPACE FOR SYSRES PACK               *   FILE 275
//*                                                                 *   FILE 275
//*     PACKOFF.....OUTPUT ISPF PACKED IFLE/MEMBER TO NON-ISPF      *   FILE 275
//*                 PACK FILE                                       *   FILE 275
//*                                                                 *   FILE 275
//*     UCBSCAN.....SCAN SOME UCBS                                  *   FILE 275
//*                                                                 *   FILE 275
//***FILE 276 IS FROM JIM LEONE AND STEVE SMITH.  IT CONTAINS A     *   FILE 276
//*           REXX EDIT MACRO TO LOOK AT A BATCH ZAP JOB, AND       *   FILE 276
//*           AUTOMATICALLY CALCULATE THE CHECKSUM VALUE.  THIS     *   FILE 276
//*           IS VERY NEAT IF YOU USE CHECKSUMS IN YOUR ZAP JOBS,   *   FILE 276
//*           OR IF YOU WANT TO.  ALMOST NO USER EFFORT IS          *   FILE 276
//*           REQUIRED.                                             *   FILE 276
//*                                                                 *   FILE 276
//***FILE 277 IS FROM RICK FOCHTMAN OF CHICAGO, ILLINOIS AND HAS    *   FILE 277
//*           A PROGRAM CALLED UTILITY.  THIS PROGRAM ALLOWS THE    *   FILE 277
//*           SUBSTITUTION OF VALUES IN JCL, DEPENDING ON PARMS,    *   FILE 277
//*           AND IS VERY VERSATILE.  LOOK AT THE SAMPLE DOC AND    *   FILE 277
//*           COMMENTS IN THE CODE, FOR THE POSSIBILITIES.  GOOD    *   FILE 277
//*           FOR PRODUCTION JCL, AND USING JCL OVER AGAIN WITHOUT  *   FILE 277
//*           CHANGING MUCH.                                        *   FILE 277
//*                                                                 *   FILE 277
//*           MOST OF THE CODE WAS WRITTEN BY MIKE EAGER.           *   FILE 277
//*                                                                 *   FILE 277
//*           THIS PROGRAM ALLOWS SUBSTITUTION OF VARIABLES         *   FILE 277
//*           ANYWHERE IN JCL, INCLUDING SYSIN CARDS.               *   FILE 277
//*                                                                 *   FILE 277
//*   EMAIL - RICK.FOCHTMAN@BOTCC.COM                               *   FILE 277
//*                                                                 *   FILE 277
//***FILE 278 IS FROM MR DAVID WEILERT AND CONTAINS AN SLSS         *   FILE 278
//*           (SYSTEM LIBRARY SUBSCRIPTION SERVICE) SPF DIALOG.     *   FILE 278
//*           THIS IS VERSION 4 FROM WILSON FOODS CORP IN           *   FILE 278
//*           OKLAHOMA CITY, OKLAHOMA.                              *   FILE 278
//*                                                                 *   FILE 278
//*           THE SYSTEM LIBRARY SUBSCRIPTION SERVICE (SLSS) IS AN  *   FILE 278
//*           INTERACTIVE DIALOG APPLICATION THAT YOU CAN USE TO    *   FILE 278
//*           AID IN CREATING AND MAINTAINING A LIBRARY.  SLSS      *   FILE 278
//*           MAY BE USED TO SUPPORT AN INDIVIDUAL LIBRARY OR       *   FILE 278
//*           SEVERAL LIBRARIES WHICH CAN BE ACCESSED BY A SINGLE   *   FILE 278
//*           USER OR SEVERAL USERS.                                *   FILE 278
//*                                                                 *   FILE 278
//*           SLSS IS AN ISPF DIALOG THAT YOU USE AT A DISPLAY      *   FILE 278
//*           TERMINAL.  THE FUNCTIONS AVAILABLE TO YOU INCLUDE:    *   FILE 278
//*                                                                 *   FILE 278
//*               BROWSE EXISTING LIBRARIES                         *   FILE 278
//*                                                                 *   FILE 278
//*               EDIT EXISTING LIBRARIES                           *   FILE 278
//*                                                                 *   FILE 278
//*               CREATE NEW LIBRARIES                              *   FILE 278
//*                                                                 *   FILE 278
//*               DELETE ENTIRE LIBRARY OR SELECTED ENTRIES WITHIN  *   FILE 278
//*               A LIBRARY                                         *   FILE 278
//*                                                                 *   FILE 278
//*               PRINT LISTING OF LIBRARY                          *   FILE 278
//*                                                                 *   FILE 278
//*               SORT LIBRARY EITHER IN MANUAL ID, LOCATION OR     *   FILE 278
//*               TITLE SEQUENCE                                    *   FILE 278
//*                                                                 *   FILE 278
//*               AUTHORIZE USERS TO BROWSE AND/OR EDIT LIBRARY     *   FILE 278
//*                                                                 *   FILE 278
//*               UTILITY TO MAINTAIN LIBRARY OWNER AND LOCATION    *   FILE 278
//*                                                                 *   FILE 278
//*               RESET LIBRARY IF ABNORMAL TERMINATION OF THE      *   FILE 278
//*               DIALOG SESSION OCCURS                             *   FILE 278
//*                                                                 *   FILE 278
//*               KEYWORD SCANNING OF LIBRARIES                     *   FILE 278
//*                                                                 *   FILE 278
//*               SCROLLING OF DATA WITHIN LIBRARY WITHIN THE EDIT  *   FILE 278
//*               OR BROWSE FUNCTION                                *   FILE 278
//*                                                                 *   FILE 278
//*               SPLIT SCREEN CAPABILITY THAT ALLOWS YOU TO        *   FILE 278
//*               PARTITION THE DISPLAY SCREEN                      *   FILE 278
//*                                                                 *   FILE 278
//*               DEBUG CAPABILITY THAT ALLOWS YOU TO TRACE THE     *   FILE 278
//*               SESSION WHILE IN USE                              *   FILE 278
//*                                                                 *   FILE 278
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT WITH THE        *   FILE 278
//*           FOLLOWING MEMBERS :                                   *   FILE 278
//*                                                                 *   FILE 278
//*                INSTALL  - THIS MEMBER IS IN IEBDUPTE SYSIN      *   FILE 278
//*                           FORMAT TO CREATE A PDS THAT CONTAINS  *   FILE 278
//*                           INSTALLATION DOCUMENTATION, JCL,      *   FILE 278
//*                           AND USER'S GUIDE                      *   FILE 278
//*                                                                 *   FILE 278
//*                CLISTS   - THIS MEMBER IS IN IEBUPDTE SYSIN      *   FILE 278
//*                           FORMAT TO CREATE A PDS THAT CONTAINS  *   FILE 278
//*                           THE COMMAND PROCEDURE LIBRARY         *   FILE 278
//*                                                                 *   FILE 278
//*                PANELS   - THIS MEMBER IS IN IEBUPDTE SYSIN      *   FILE 278
//*                           FORMAT TO CREATE A PDS THAT CONTAINS  *   FILE 278
//*                           THE PANEL LIBRARY                     *   FILE 278
//*                                                                 *   FILE 278
//*                SKELETON - THIS MEMBER IS IN IEBUPDTE SYSIN      *   FILE 278
//*                           FORMAT TO CREATE A PDS THAT CONTAINS  *   FILE 278
//*                           THE SKELETON LIBRARY                  *   FILE 278
//*                                                                 *   FILE 278
//*                FILE 280 OF THIS TAPE CONTAINS THE UNFORMATTED   *   FILE 278
//*                SCRIPT SOURCE OF THIS PRODUCT.                   *   FILE 278
//*                                                                 *   FILE 278
//***FILE 279 IS FROM MR DAVID WEILERT OF WILSON FOODS CORP IN      *   FILE 279
//*           OKLAHOMA CITY AND CONTAINS THE UNFORMATTED SCRIPT     *   FILE 279
//*           SOURCE FOR THE SLSS PRODUCT WHICH IS IN FILE 278 OF   *   FILE 279
//*           THIS TAPE.                                            *   FILE 279
//*                                                                 *   FILE 279
//***FILE 280 IS FROM WISCONSIN STATE AND HAS THE WATERLOO SCRIPT   *   FILE 280
//*           DOCUMENTATION. THIS FILE IS IN IEBUPDTE SYSIN FORMAT  *   FILE 280
//*                                                                 *   FILE 280
//***FILE 281 IS FROM WISCONSIN STATE AND HAS THE WATERLOO SCRIPT   *   FILE 281
//*           LOAD MODULES. THIS FILE IS IN IEBCOPY FORMAT          *   FILE 281
//*                                                                 *   FILE 281
//***FILE 282 IS FROM WISCONSIN STATE AND HAS THE WATERLOO SCRIPT   *   FILE 282
//*           MACLIB. THIS FILE IS IN IEBUPDTE SYSIN FORMAT         *   FILE 282
//*                                                                 *   FILE 282
//***FILE 283 IS FROM WISCONSIN STATE AND HAS THE WATERLOO SCRIPT   *   FILE 283
//*           MEMO TO USERS. THIS FILE IS IN IEBCOPY FORMAT         *   FILE 283
//*                                                                 *   FILE 283
//***FILE 284 IS FROM WISCONSIN STATE AND HAS THE WATERLOO SCRIPT   *   FILE 284
//*           SOURCE. THIS FILE IS IN IEBUPDTE SYSIN FORMAT         *   FILE 284
//*                                                                 *   FILE 284
//***FILE 285 IS FROM WISCONSIN STATE AND IS THE WATERLOO SCRIPT    *   FILE 285
//*           HYPHENATION FILE. THIS FILE WAS IN IEBGENER FILE      *   FILE 285
//*           FORMAT BUT WAS CHANGED TO A PDS IN IEBCOPY FORMAT     *   FILE 285
//*           WITH ONE MEMBER CALLED "HYPH".  PLEASE MAKE NOTE      *   FILE 285
//*           OF THIS WHEN INSTALLING.  DCB ATTRIBUTES ARE:         *   FILE 285
//*           RECFM=VB, LRECL=80, BLKSIZE=32720                     *   FILE 285
//*                                                                 *   FILE 285
//***FILE 286 IS FROM WISCONSIN STATE AND HAS THE WATERLOO SCRIPT   *   FILE 286
//*           OBJECT MODULES. THIS FILE IS IN IEBUPDTE SYSIN FORMAT *   FILE 286
//*                                                                 *   FILE 286
//***FILE 287 IS FROM WISCONSIN STATE AND HAS THE WATERLOO SCRIPT   *   FILE 287
//*           TSO PROMPTER. THIS FILE IS IN IEBUPDTE SYSIN FORMAT   *   FILE 287
//*                                                                 *   FILE 287
//***FILE 288 WAS SUBMITTED FROM MEMOREX AND CONTAINS A TSO         *   FILE 288
//*           COMMAND PROCESSOR TO INVOKE THE WATERLOO SCRIPT PGM.  *   FILE 288
//*           THIS FILE DOES NOT CONTAIN THE WATERLOO SCRIPT        *   FILE 288
//*           PGM.  A HELP MEMBER IS ALSO INCLUDED AND THIS FILE    *   FILE 288
//*           IS IN IEBUPDTE SYSIN FORMAT.                          *   FILE 288
//*                                                                 *   FILE 288
//***FILE 289 IS THE PGM TO GENERATE A PTF TAPE XREF REPORT.  THIS  *   FILE 289
//*           PROGRAM, CALLED PHRANQUE, WILL GENERATE FOUR REPORTS: *   FILE 289
//*                                                                 *   FILE 289
//*        REPORT 01  WILL BE A LIST OF ALL THE PTF'S ON THE TAPE   *   FILE 289
//*                                                                 *   FILE 289
//*        REPORT 02  WILL CONTAIN A LIST OFF ALL ELEMENTS          *   FILE 289
//*                   (MODULE, MACROS, ETC.) ON THE TAPE AND        *   FILE 289
//*                   THE PTF'S THAT REFERENCE THEM                 *   FILE 289
//*                                                                 *   FILE 289
//*        REPORT 03  WILL LIST ALL THE COVER LETTERS ON THE TAPE   *   FILE 289
//*                                                                 *   FILE 289
//*        REPORT 04  WILL LIST ALL THE FMID'S ON THE TAPE AND THE  *   FILE 289
//*                   PTF'S THAT REFERENCE THOSE FMIDS              *   FILE 289
//*                                                                 *   FILE 289
//***FILE 290 IS THE SOURCE AND DOCUMENTATION FOR GPSAM FROM        *   FILE 290
//*           THE YALE COMPUTER CENTER WRITTEN BY MR HOWARD         *   FILE 290
//*           GILBERT.  THIS FILE IS IN IEBUPDTE SYSIN FORMAT.      *   FILE 290
//*                                                                 *   FILE 290
//*           GPSAM LETS YOU WRITE YOUR OWN "ACCESS METHOD" AND     *   FILE 290
//*           MAKES IT LOOK LIKE A SEQUENTIAL DATASET TO ANY        *   FILE 290
//*           APPLICATION PROGRAM OR UTILITY.  IT CAN BE USED TO    *   FILE 290
//*           PROVIDE DBMS, VTAM, TSO FULLSCREEN, BTAM, OR          *   FILE 290
//*           SPECIALIZED DEVICE SUPPORT.                           *   FILE 290
//*                                                                 *   FILE 290
//*           SIMPLE:  INSTALLS ON ANY MVS SYSTEM.  NO IBM CODE     *   FILE 290
//*           IS MODIFIED.  TAKES ONLY A FEW MINUTES TO RUN         *   FILE 290
//*           LINKEDIT STEPS AND BUILD PROCEDURES.                  *   FILE 290
//*                                                                 *   FILE 290
//*           SMALL:  700 BYTES IN LPA.  160 BYTES IN PRIVATE       *   FILE 290
//*           ADDRESS SPACE.                                        *   FILE 290
//*                                                                 *   FILE 290
//*           SAFE:  ONLY ONE INSTRUCTION EXECUTES IN KEY 0 AND     *   FILE 290
//*           MODIFIES A GENERAL SYSTEM CONTROL BLOCK.  ANOTHER     *   FILE 290
//*           18 INSTRUCTIONS OPERATE IN A SYSTEM KEY AND ONLY 4    *   FILE 290
//*           OF THEM CHANGE STORAGE, STORING VALUES IN JOB         *   FILE 290
//*           RELATED CONTROL BLOCKS IN THE PRIVATE AREA.  EVEN     *   FILE 290
//*           THE MOST CONSERVATIVE INSTALLATION CAN DESK CHECK     *   FILE 290
//*           THE SINGLE AUTHORIZED CSECT SEVERAL TIMES OVER IN     *   FILE 290
//*           AN HOUR.                                              *   FILE 290
//*                                                                 *   FILE 290
//*           UNIVERSAL:  WHILE A SYSTEM PROGRAMMER MUST INSTALL    *   FILE 290
//*           THE PACKAGE IN AUTHORIZED LIBRARIES, ANY              *   FILE 290
//*           APPLICATION PROGRAMMER CAN WRITE HIS OWN "ACCESS      *   FILE 290
//*           METHOD" IN ASSEMBLER AND USE IT FROM HIS OWN          *   FILE 290
//*           PROGRAMS.  THE USER SPECIFIES THE MODULE NAME ON      *   FILE 290
//*           HIS DD CARD OR IN THE TSO ALLOCATION OF THE           *   FILE 290
//*           DDNAME.  THESE USER MODULES RUN IN PROBLEM STATE      *   FILE 290
//*           AND CAN COME FROM ANY LIBRARY.  CONTROL IS GIVEN      *   FILE 290
//*           TO THE ROUTINE FROM THE OPEN, CLOSE, GET, PUT,        *   FILE 290
//*           READ, OR WRITE STATEMENTS.                            *   FILE 290
//*                                                                 *   FILE 290
//*           SECURE:  MVS INTEGRITY IS MAINTAINED.  IF AN          *   FILE 290
//*           AUTHORIZED PROGRAM OPENS A GPSAM FILE, THE "ACCESS    *   FILE 290
//*           METHOD" MODULE IS LIMITED TO THOSE EXPLICITLY         *   FILE 290
//*           PERMITTED BY AN INSTALLATION SUPPLIED NAME TABLE      *   FILE 290
//*           AND THE MODULE MUST COME FROM AN APF LIBRARY.         *   FILE 290
//*                                                                 *   FILE 290
//***FILE 291 is from Rick Hevener of the University of South       *   FILE 291
//*           Carolina, and contains a program to measure CPU       *   FILE 291
//*           instruction execution speed.  This program is         *   FILE 291
//*           supposed to be a bit better than others of its        *   FILE 291
//*           type (I think).  Included in this file, is an         *   FILE 291
//*           article from Technical Support magazine which         *   FILE 291
//*           describes how this program works, and what kind       *   FILE 291
//*           of results you can obtain, using it.                  *   FILE 291
//*                                       (DOC BY S.GOLOB 11/97)    *   FILE 291
//*                                                                 *   FILE 291
//*     The program in TIMINGSP may be used to test timings of      *   FILE 291
//*     a large number of instructions on mainframe IBM or plug     *   FILE 291
//*     compatible computers.  The method involves cycling          *   FILE 291
//*     through a loop 5,000 times with 11 instructions per         *   FILE 291
//*     cycle; the overhead for the loop is then subtracted.        *   FILE 291
//*     It takes approx.  one second of CPU time on our             *   FILE 291
//*     9672-R53.  The only macros required are in SYS1.MACLIB.     *   FILE 291
//*     The numeric parameters described above are easily           *   FILE 291
//*     changed.                                                    *   FILE 291
//*                                                                 *   FILE 291
//*     The original program is in member TIMINGSO.  It             *   FILE 291
//*     employed 50,000 cycles per loop with only one               *   FILE 291
//*     instruction per cycle.  That program and its results        *   FILE 291
//*     are described in the following article, which is            *   FILE 291
//*     reproduced here in member $ARTICLE:                         *   FILE 291
//*                                                                 *   FILE 291
//*     Richard N. Hevener, "Large System Instruction Timings,"     *   FILE 291
//*     "Technical Support," Vol. 5, No. 8, pp. 14-18, August,      *   FILE 291
//*     1997.                                                       *   FILE 291
//*                                                                 *   FILE 291
//*     In Sep. 1999, Mr. Jim Melnyk of Great-West Life sent        *   FILE 291
//*     me e-mail inquiring about some peculiar results he had      *   FILE 291
//*     obtained using the original program.  He had gotten         *   FILE 291
//*     negative times for certain instructions on a 9672-RC6.      *   FILE 291
//*     After several attempts, I was able to modify the            *   FILE 291
//*     program to achieve reasonable timings on both that          *   FILE 291
//*     machine and a 9672-R55 that Jim later discovered also       *   FILE 291
//*     produced spurious results.  He also tested on a             *   FILE 291
//*     9672-R24, obtaining output consistent with the original     *   FILE 291
//*     program, as I did on our 9672-R53.                          *   FILE 291
//*                                                                 *   FILE 291
//*     I would like to acknowledge Jim's assistance in testing     *   FILE 291
//*     various versions of the program on his three machines.      *   FILE 291
//*     I would also like to thank him for suggesting that I        *   FILE 291
//*     employ a loop macro to facilitate changes.                  *   FILE 291
//*                                                                 *   FILE 291
//*     My E-mail address is rick.hevener@sc.edu.                   *   FILE 291
//*                                                                 *   FILE 291
//*            Rick Hevener, Consultant                             *   FILE 291
//*            USC Computer Services                                *   FILE 291
//*            University of South Carolina                         *   FILE 291
//*            1244 Blossom St. (ship to 1211 Wheat St.)            *   FILE 291
//*            Columbia, SC 29208-2901                              *   FILE 291
//*            phone 803-777-2430                                   *   FILE 291
//*            fax 803-777-8644                                     *   FILE 291
//*            Rick Hevener <C0278@VM.SC.EDU>                       *   FILE 291
//*            alias rick.hevener@sc.edu                            *   FILE 291
//*                                                                 *   FILE 291
//***FILE 292 IS A SAS PROGRAM FROM DAVID FAHEY OF THE SAS          *   FILE 292
//*           INSTITUTE IN CARY, NORTH CAROLINA, WHICH PUTS THIS    *   FILE 292
//*           DOCUMENTATION FILE (FILE 001 OF THE CBT TAPE) INTO    *   FILE 292
//*           HTML FORMAT, SO IT CAN BE BROWSED WITH NETSCAPE,      *   FILE 292
//*           ETC.                                                  *   FILE 292
//*                                                                 *   FILE 292
//*           I TRIED THE OUTPUT OF THIS PROGRAM, AND IT SEEMS      *   FILE 292
//*           TO WORK FAIRLY WELL.  ONE PROBLEM IS THAT MANY OF     *   FILE 292
//*           THE WORDS ARE PUT INTO LOWER CASE, AND YOU HAVE TO    *   FILE 292
//*           MAINTAIN A TABLE OF THOSE WORDS YOU WANT TO PUT       *   FILE 292
//*           INTO UPPER CASE.  NEVERTHELESS, IF YOU HAVE A REASON  *   FILE 292
//*           TO PUT THIS FILE ON A WEB PAGE, AND TO BROWSE THE     *   FILE 292
//*           INDIVIDUAL FILE DOCUMENTATION PIECES, YOU MIGHT       *   FILE 292
//*           CONSIDER USING THIS PROGRAM.      (SG 12/97)          *   FILE 292
//*                                                                 *   FILE 292
//***FILE 293 IS A CURRENTLY EMPTY                                  *   FILE 293
//*                                                                 *   FILE 293
//***FILE 294 CONTAINS THE SOURCE FOR THE TSO CP CALLED VSAMANAL.   *   FILE 294
//*           THE LOAD MODULES FOR THIS PROGRAM RESIDE IN FILE 035  *   FILE 294
//*           OF THIS TAPE.                                         *   FILE 294
//*                                                                 *   FILE 294
//*           THE VSAMANAL TSO CP IS USED TO PROVIDE THE USER       *   FILE 294
//*           WITH A METHOD OF DETERMINING HOW MUCH PHYSICAL        *   FILE 294
//*           SPACE A DATASET WILL REQUIRE.  IT CAN ALSO BE USED    *   FILE 294
//*           TO DETERMINE AN OPTIMUM DATA CI-SIZE, CI AND CA       *   FILE 294
//*           FREESPACE PERCENTAGES BASED ON FREE RECORD VALUES,    *   FILE 294
//*           TRACK UTILIZATION PERCENTAGES, AND OTHER VSAM         *   FILE 294
//*           DATASET STATISTICS.  THESE ARE HELPFUL WHEN           *   FILE 294
//*           DEFINING A NEW DATASET OR ANALYZING EXISTING          *   FILE 294
//*           DATASET DEFINITIONS.  VSAMANAL USES 3270 I/O.  THE    *   FILE 294
//*           DEVICES CURRENTLY SUPPORTED ARE 3330'S, 3350'S,       *   FILE 294
//*           3380'S, AND 3390'S.  (UPDATED 10/94)                  *   FILE 294
//*                                                                 *   FILE 294
//***FILE 295 IS CURRENTLY EMPTY                                    *   FILE 295
//*                                                                 *   FILE 295
//***FILE 296 IS A SERIES OF UTILITIES FROM MR BRUCE LELAND.        *   FILE 296
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT AND CONTAINS:   *   FILE 296
//*                                                                 *   FILE 296
//*     Contents of this file:                                      *   FILE 296
//*                                                                 *   FILE 296
//*        NAME      VER.MOD   LAST MODIFIED    SIZE   ID           *   FILE 296
//*        $$$$$NOT   01.00  1998/10/27 10:04      9  SBGOLOB       *   FILE 296
//*        $$$$SAM    01.01  1994/08/19  8:25     34  SBGCSC        *   FILE 296
//*        $$$$SAM1   01.01  1998/04/22 22:55      3  SBGOLOB       *   FILE 296
//*        $INDEX     01.18  1999/01/25 12:40     20  SBGOLOB       *   FILE 296
//*        @FILE296   01.01  2000/02/15 17:05    183  SBGOLOB       *   FILE 296
//*        BLKDISK    01.21  1993/02/02 12:56   1758  WSER07        *   FILE 296
//*        COMPARE    01.44  2000/01/11 15:17   3690  SBGOLOB       *   FILE 296
//*        COMPAREB   01.00  2000/01/11 15:20   1851  SBGOLOB       *   FILE 296
//*        DSAT       01.41  1999/01/25 12:34   4947  WSER07        *   FILE 296
//*        DSATOLD    01.32  1994/08/05 13:15   4258  WSER07        *   FILE 296
//*        DVOL       01.28  1998/04/21 17:29   3548  WSER07        *   FILE 296
//*        HEL        01.01  1993/09/03  6:41      1  SBGCSC        *   FILE 296
//*        RELEASE    01.03  1988/08/25 12:58   1282  WSER07        *   FILE 296
//*        RESET      01.00  1990/01/01 12:00    217  FILE296       *   FILE 296
//*        REVIEW     01.00  1992/12/18  7:37      1  SBGCSC        *   FILE 296
//*        REVSMF     01.01  1992/12/18  7:38      1  SBGCSC        *   FILE 296
//*        XEQ        01.01  1982/06/04 12:58   1326  WSER07        *   FILE 296
//*                                                                 *   FILE 296
//*     Description of Utilities:                                   *   FILE 296
//*                                                                 *   FILE 296
//*         01. DSAT- THE DSAT COMMAND IS USED TO DISPLAY           *   FILE 296
//*                    ALLOCATION INFORMATION FOR DATA SETS         *   FILE 296
//*                    ON A DIRECT ACCESS DEVICE.                   *   FILE 296
//*                                                                 *   FILE 296
//*                    DSAT WILL SEARCH THE OS CATALOG AND          *   FILE 296
//*                    CVOLS FOR THE ENTRIES FOR THE DATA           *   FILE 296
//*                    SETS SPECIFIED.  ALLOCATION                  *   FILE 296
//*                    INFORMATION WILL BE OBTAINED FROM THE        *   FILE 296
//*                    VOLUME TABLE OF CONTENTS, FORMATTED          *   FILE 296
//*                    AND DISPLAYED.  IF A NAME IS AN INDEX        *   FILE 296
//*                    NAME, ALL DATA SETS BELOW THE INDEX          *   FILE 296
//*                    WILL BE DISPLAYED.                           *   FILE 296
//*                                                                 *   FILE 296
//*                    THE USER MAY BYPASS THE CATALOG              *   FILE 296
//*                    SEARCH BY SUPPLYING THE VOLUME SERIAL        *   FILE 296
//*                    ON WHICH THE DATA SET RESIDES.  THIS         *   FILE 296
//*                    OPTION PERMITS DISPLAYING INFORMATION        *   FILE 296
//*                    FOR UNCATALOGED DATA SETS.                   *   FILE 296
//*                                                                 *   FILE 296
//*                    THE ATTRIBUTES TO BE DISPLAYED MAY BE        *   FILE 296
//*                    SELECTED BY THE USER WHEN HE ENTERS          *   FILE 296
//*                    THE DSAT COMMAND BY SPECIFYING               *   FILE 296
//*                    KEYWORD OPERANDS.                            *   FILE 296
//*                                                                 *   FILE 296
//*                    THE DSAT COMMAND MAY BE USED IN              *   FILE 296
//*                    COMMAND PROCEDURES TO FIND THE               *   FILE 296
//*                    ALLOCATION OF A DATA SET OR A GROUP          *   FILE 296
//*                    OF DATA SETS AND SET THE RETURN CODE         *   FILE 296
//*                    TO THE SPECIFIED VALUE.  THE RETURN          *   FILE 296
//*                    CODE MAY THEN BE TESTED WITH THE WHEN        *   FILE 296
//*                    COMMAND.  OUTPUT MAY BE SUPPRESSED BY        *   FILE 296
//*                    SPECIFYING NOPRINT.                          *   FILE 296
//*                                                                 *   FILE 296
//*                    THE USER MAY CHOOSE WHAT INFORMATION         *   FILE 296
//*                    WILL BE DISPLAYED BY ENTERING                *   FILE 296
//*                    KEYWORDS.                                    *   FILE 296
//*                                                                 *   FILE 296
//*         THE INFORMATION THAT MAY BE DISPLAYED IS:               *   FILE 296
//*                                                                 *   FILE 296
//*           1. VOLUME SERIAL ON WHICH THE DATA SET IS LOCATED.    *   FILE 296
//*           2. FILE SEQUENCE NUMBER.                              *   FILE 296
//*           3. DEVICE TYPE CODE FROM CATALOG ENTRY.               *   FILE 296
//*           4. ALLOCATION  (ALLOCATED, USED, AND EXTENTS).        *   FILE 296
//*           5. SECONDARY ALLOCATION (AMOUNT AND UNITS).           *   FILE 296
//*           6. DATA SET ORGANIZATION.                             *   FILE 296
//*           7. DCB (RECFM, BLKSIZE, AND LRECL).                   *   FILE 296
//*           8. CREATION DATE.                                     *   FILE 296
//*           9. EXPIRATION DATE.                                   *   FILE 296
//*          10. FULLY QUALIFIED DATA SET NAME.                     *   FILE 296
//*          11. CCHHR OF THE FORMAT 1 DSCB.                        *   FILE 296
//*          12. GENERATION DATA GROUP DATA.                        *   FILE 296
//*          13. PDS DIRECTORY INFORMATION.                         *   FILE 296
//*                                                                 *   FILE 296
//*          02. DVOL- THE DVOL COMMAND IS USED TO DISPLAY          *   FILE 296
//*                    THE AMOUNT OF FREE SPACE ON A DIRECT         *   FILE 296
//*                    ACCESS DEVICE.                               *   FILE 296
//*                                                                 *   FILE 296
//*                    DVOL WILL READ THE FORMAT 4 AND              *   FILE 296
//*                    FORMAT 5 DSCB'S FROM THE VTOC OF A           *   FILE 296
//*                    DIRECT ACCESS VOLUME AND DISPLAY:            *   FILE 296
//*                                                                 *   FILE 296
//*                    DVOL UPDATED 09/97 TO RECOGNIZE DYNAMIC      *   FILE 296
//*                    UCB'S.                                       *   FILE 296
//*                                                                 *   FILE 296
//*               1.  VOLUME SERIAL                                 *   FILE 296
//*               2.  UNIT ADDRESS                                  *   FILE 296
//*               3.  MOUNT STATUS                                  *   FILE 296
//*               4.  USE STATUS                                    *   FILE 296
//*               5.  NUMBER OF BLANK DSCB'S IN THE VTOC            *   FILE 296
//*               6.  CONDITION OF THE VTOC INDICATORS BYTE         *   FILE 296
//*               7.  VSAM DATA FIELDS                              *   FILE 296
//*               8.  TOTAL FREE SPACE IN TRACKS                    *   FILE 296
//*               9.  NUMBER OF FREE EXTENTS                        *   FILE 296
//*              10.  NUMBER OF FREE CYLINDERS                      *   FILE 296
//*              11.  SIZE OF LARGEST EXTENTS (UP TO 5) IN          *   FILE 296
//*                   CYLINDERS + TRACKS                            *   FILE 296
//*              12.  SIZE OF LARGEST EXTENTS (UP TO 5) IN TRACKS   *   FILE 296
//*                                                                 *   FILE 296
//*                    THE RETURN CODE IS SET TO THE TOTAL          *   FILE 296
//*                    NUMBER OF TRACKS IN THE LARGEST              *   FILE 296
//*                    EXTENTS (UP TO 5) UP TO A MAXIMUM OF         *   FILE 296
//*                    4095.  IF THE NUMBER OF FREE TRACKS          *   FILE 296
//*                    EXCEEDS 4095, THE RETURN CODE WILL           *   FILE 296
//*                    BE SET TO 4095.  IF MORE THAN ONE            *   FILE 296
//*                    VOLUME IS DISPLAYED, THE RETURN CODE         *   FILE 296
//*                    WILL BE REFER TO THE SPACE ON THE            *   FILE 296
//*                    LAST VOLUME.  IF AN ERROR CONDITION          *   FILE 296
//*                    EXISTS ON THE VOLUME, THE RETURN             *   FILE 296
//*                    CODE WILL BE SET TO 0.                       *   FILE 296
//*                                                                 *   FILE 296
//*                    NOTE - IF AN ERROR CONDITION EXISTS          *   FILE 296
//*                           ON THE VOLUME, THE RETURN             *   FILE 296
//*                           CODE WILL BE SET TO 0.                *   FILE 296
//*                                                                 *   FILE 296
//*          03. RESET    -  PERFORMS THE EQUIVALENT OF A DATASET   *   FILE 296
//*                          SCRATCH FOLLOWED BY A REALLOCATION     *   FILE 296
//*                          IN THE SAME SPACE FOR A PDS. THE       *   FILE 296
//*                          NUMBER OF DIRECTORY BLOCKS CAN BE      *   FILE 296
//*                          CHANGED VIA THE PROGRAM PARM.          *   FILE 296
//*                                                                 *   FILE 296
//*          04. BLKDISK   - SEE BELOW FOR A COMPLETE DESCRIPTION:  *   FILE 296
//*                                                                 *   FILE 296
//*       DESCRIPTION:  THIS PROGRAM COMPUTES AN "OPTIMAL"          *   FILE 296
//*           BLOCKSIZE FOR A DISK OR DRUM DATA SET GIVEN THE       *   FILE 296
//*           LOGICAL RECORD LENGTH.  INPUTS INCLUDE THE LRECL      *   FILE 296
//*           AND OPTIONALLY ANY OF THE FOLLOWING:                  *   FILE 296
//*                                                                 *   FILE 296
//*           A.  A KEY LENGTH (ZERO, FOR NO KEY, IS THE            *   FILE 296
//*               DEFAULT)                                          *   FILE 296
//*           B.  THE NUMBER OF RECORDS IN THE DATA SET (USED       *   FILE 296
//*               FOR AN ALLOCATION COMPUTATION -- 100,000 IS       *   FILE 296
//*               THE DEFAULT)                                      *   FILE 296
//*           C.  THE BLOCKSIZE TO USE FOR THE ALLOCATION           *   FILE 296
//*               COMPUTATION (THE RECOMMENDED BLOCKSIZE VALUE      *   FILE 296
//*               IS THE DEFAULT)                                   *   FILE 296
//*           D.  WHETHER OR NOT TO PROVIDE A TRACK CAPACITY        *   FILE 296
//*               REPORT                                            *   FILE 296
//*           E.  WHETHER OR NOT TO VERIFY RESULTS AGAINST          *   FILE 296
//*               "TRKCALC"                                         *   FILE 296
//*                                                                 *   FILE 296
//*       SUPPORTED DEVICES:  THE NAME BY WHICH THIS COMMAND        *   FILE 296
//*           PROCESSOR IS INVOKED DETERMINES THE DEVICE TYPE       *   FILE 296
//*           TO BE USED.                                           *   FILE 296
//*                                                                 *   FILE 296
//*           THE FIRST THREE CHARACTERS OF THE COMMAND NAME        *   FILE 296
//*           (USUALLY "BLK") ARE IGNORED; THE REMAINING FOUR       *   FILE 296
//*           OR FIVE CHARACTERS ARE COMPARED AGAINST A TABLE       *   FILE 296
//*           OF SUPPORTED DEVICES IN THE PROGRAM.  THE VALID       *   FILE 296
//*           ALIAS NAMES FOR THE PROGRAM INCLUDE THE               *   FILE 296
//*           FOLLOWING:                                            *   FILE 296
//*                                                                 *   FILE 296
//*           A.  BLK23051  (FOR 2305-1 DRUMS)                      *   FILE 296
//*           B.  BLK23052  (FOR 2305-2 DRUMS)                      *   FILE 296
//*           C.  BLK2314   (FOR 2314 DISKS)                        *   FILE 296
//*           D.  BLK3330   (FOR 3330 DISKS)                        *   FILE 296
//*           E.  BLK33301  (FOR 3330 MODEL 11 DISKS)               *   FILE 296
//*           F.  BLK3340   (FOR 3340 DISKS)                        *   FILE 296
//*           G.  BLK3350   (FOR 3350 DISKS)                        *   FILE 296
//*           H.  BLK3375   (FOR 3375 DISKS)                        *   FILE 296
//*           I.  BLK3380   (FOR 3380 DISKS)                        *   FILE 296
//*           J.  BLK3390   (FOR 3390 DISKS)                        *   FILE 296
//*           K.  BLK9345   (FOR 9345 DISKS)                        *   FILE 296
//*                                                                 *   FILE 296
//*          05.  REVIEW - SEE FILE 134 FOR THE LATEST VERSION OF   *   FILE 296
//*               THIS PROGRAM.                                     *   FILE 296
//*                                                                 *   FILE 296
//*          06.  HEL - SEE FILE 134 FOR THE LATEST VERSION OF      *   FILE 296
//*               THIS PROGRAM.  ON FILE 134, HEL IS NOW AN         *   FILE 296
//*               ALIAS OF REVIEW.                                  *   FILE 296
//*                                                                 *   FILE 296
//*          07.  XEQ - A COMMAND PROCESSOR THAT IS DESIGNED TO     *   FILE 296
//*               LOAD AND EXECUTE (ATTACH) A PROGRAM IN ONE OF THE *   FILE 296
//*               SYSTEM LINK LIBRARIES OR A USER LIBRARY (TASKLIB) *   FILE 296
//*                                                                 *   FILE 296
//*          08   COMPARE - A SOMEWHAT MODIFIED VERSION OF THE      *   FILE 296
//*               YALE COMPARE PROGRAM                              *   FILE 296
//*                                                                 *   FILE 296
//***FILE 297 is from Michael Cleary and is an ISPF dialog to       *   FILE 297
//*           provide an interactive interface to the GRS (Global   *   FILE 297
//*           Resource Serialization) queue.                        *   FILE 297
//*                                                                 *   FILE 297
//*            Contact:                                             *   FILE 297
//*              Michael J. Cleary                                  *   FILE 297
//*              Mainframe Technical Services                       *   FILE 297
//*              Bergen Brunswig                                    *   FILE 297
//*              4000 Metropolitan Drive                            *   FILE 297
//*              Orange, CA  92668                                  *   FILE 297
//*              Voice:  714.385.4052                               *   FILE 297
//*              Fax     714.704.7052                               *   FILE 297
//*              Email:  mike.cleary@bergenbrunswig.com             *   FILE 297
//*              http:   www.bergenbrunswig.com                     *   FILE 297
//*                                                                 *   FILE 297
//*     Description:                                                *   FILE 297
//*       GRS ISPF Interface                                        *   FILE 297
//*                                                                 *   FILE 297
//*     Function:                                                   *   FILE 297
//*       Provides an interactive view of the Global Resource       *   FILE 297
//*       Serialization (GRS) queue. A high level resource          *   FILE 297
//*       list is displayed based on user specified selection       *   FILE 297
//*       criteria.  From the high level resource list,             *   FILE 297
//*       individual resource details can be accessed.              *   FILE 297
//*                                                                 *   FILE 297
//***FILE 298 IS A FROM GTE LABS IN WALTHAM, MASS WHICH CONTAINS    *   FILE 298
//*           THE CODE TO PROVIDED AN EASY FACILITY FOR BACKING UP  *   FILE 298
//*           AND RESTORING INDIVIDUAL MEMBERS OF A PARTITIONED     *   FILE 298
//*           DATASET, USING PANVALET TO MAINTAIN UP TO 99 BACKUP   *   FILE 298
//*           VERSIONS OF EACH MEMBER.                              *   FILE 298
//*                                                                 *   FILE 298
//*           PURPOSE                                               *   FILE 298
//*           -------                                               *   FILE 298
//*               THIS SOFTWARE PROVIDES AN EASY FACILITY FOR       *   FILE 298
//*               BACKING UP AND RESTORING INDIVIDUAL MEMBERS OF    *   FILE 298
//*               A PARTITIONED DATASET, USING PANVALET TO          *   FILE 298
//*               MAINTAIN UP TO 99 BACKUP VERSION OF EACH          *   FILE 298
//*               MEMBER.                                           *   FILE 298
//*                                                                 *   FILE 298
//*           DESCRIPTION                                           *   FILE 298
//*           -----------                                           *   FILE 298
//*               THIS SOFTWARE PROVIDES AN EASY FACILITY FOR       *   FILE 298
//*               THE GTEU APPLICATION AND IS INVOKED BY PUP.       *   FILE 298
//*               THE GTEU APPLICATION IS THE SOFTWARE WHICH        *   FILE 298
//*               USES PANVALET TO KEEP BACKUP COPIES OF            *   FILE 298
//*               MEMBERS OF A PDS.  AS MEMBERS ARE ADDED, OR       *   FILE 298
//*               REPLACED, IN A PDS SUCH AS A CLIST LIBRARY,       *   FILE 298
//*               BACKUP COPIES ARE ENTERED IN A PANVALET           *   FILE 298
//*               LIBRARY.  UP TO 99 BACKUP COPIES OF EACH          *   FILE 298
//*               MEMBER CAN BE MAINTAINED IN THE PANVALET          *   FILE 298
//*               LIBRARY.  ISPF STATISTICS ARE MAINTAINED IN       *   FILE 298
//*               BOTH THE PDS AND THE PANVALET LIBRARY.  AT        *   FILE 298
//*               ANY TIME, THE PDS MEMBER CAN BE RESTORED FROM     *   FILE 298
//*               ANY BACK LEVEL.  THE GTEU PROGRAMS ALSO CAN       *   FILE 298
//*               BE RUN IN BATCH JOBS WITH JCL.                    *   FILE 298
//*                                                                 *   FILE 298
//*               THE PUP COMMAND IS A TSO COMMAND PROCESSOR        *   FILE 298
//*               WHICH IS USED FOR ONLINE ACCESS TO THE GTEU       *   FILE 298
//*               APPLICATION PROGRAMS.  PUP CAN BE RUN FROM        *   FILE 298
//*               READY, FROM ISPF, OR FROM A CLIST OR ISPF         *   FILE 298
//*               DIALOG.                                           *   FILE 298
//*                                                                 *   FILE 298
//*               THE PUP COMMAND HAS THE FOLLOWING SUBCOMMANDS:    *   FILE 298
//*                                                                 *   FILE 298
//*                HELP      - EXECUTE THE HELP FACILITY            *   FILE 298
//*                STATS     - DISPLAY INFO ABOUT THE PANVALET      *   FILE 298
//*                            AND PDS MEMBERS                      *   FILE 298
//*                 STATUS   - SAME AS STATS                        *   FILE 298
//*                UPDATE    - UPDATE THE PDS MEMBER AND MAKE       *   FILE 298
//*                            A BACKUP PANVALET COPY               *   FILE 298
//*                 ADD      - SAME AS UPDATE                       *   FILE 298
//*                 CHANGE   - SAME AS UPDATE                       *   FILE 298
//*                ALIAS     - CREATE AN ALIAS ENTRY FOR A          *   FILE 298
//*                            MEMBER OF A PDS                      *   FILE 298
//*                DELETE    - DELETE A PDS MEMBER, OR A            *   FILE 298
//*                            PDS ALIAS ENTRY                      *   FILE 298
//*                BACKUP    - MAKE A BACKUP PANVALET MEMBER        *   FILE 298
//*                            FROM A PDS MEMBER                    *   FILE 298
//*                RESTORE   - COPY A MEMBER FROM THE PANVALET      *   FILE 298
//*                            LIBRARY IN TO THE PDS                *   FILE 298
//*                END       - TERMINATE THE PUP COMMAND            *   FILE 298
//*                TSTATS    - DISPLAY INFO WITH THE PANINDEX       *   FILE 298
//*                            AND PDS COMMANDS                     *   FILE 298
//*                 TSTATUS  - SAME AS TSTATS                       *   FILE 298
//*                ABEND0C1  - CAUSE A S0C1 ABEND FOR TESTING       *   FILE 298
//*                                                                 *   FILE 298
//***FILE 299 CONTAINS THE SOURCE FOR THE TAPEMAP PROGRAM.  THIS    *   FILE 299
//*           VERSION IS A COMPILATION OF THE ORIGINAL CODE FROM    *   FILE 299
//*           UCLA (THAT USED TO BE IN FILE 149) AND THE MODIFIED   *   FILE 299
//*           CODE THAT USED TO BE IN FILE 316 FROM THE AIR FORCE,  *   FILE 299
//*           AND INCLUDES MANY ADDITIONAL CHANGES FROM VARIOUS     *   FILE 299
//*           PLACES.                                               *   FILE 299
//*                                                                 *   FILE 299
//*           THIS PROGRAM WILL PROVIDE SPECIAL INFORMATION FOR     *   FILE 299
//*           TAPE FILES CREATED BY IEBCOPY, IEHMOVE, IEBISAM,      *   FILE 299
//*           IEHDASDR, OR IN SMPPTFIN FORMAT.  IN ADDITION, IF     *   FILE 299
//*           A FILE CONTAINS AN IEBUPDTE INPUT STREAM THE          *   FILE 299
//*           MEMBERS IN THE STREAM WILL BE LISTED.                 *   FILE 299
//*                                                                 *   FILE 299
//*           THIS PROGRAM WILL ALSO PROVIDE SPECIAL                *   FILE 299
//*           INFORMATION FOR CBT MVS UTILITIES TAPES CREATED       *   FILE 299
//*           WITH CBT973.  IEBUPDTE INTERPRETATION IS DONE FOR     *   FILE 299
//*           CBT973-COMPRESSED FILES.                              *   FILE 299
//*                                                                 *   FILE 299
//*           ALSO, MACROS IN MEMBERS THAT ARE THEMSELVES MACRO     *   FILE 299
//*           LIBRARIES (IN IEBUPDTE FORMAT WITH ./ CHANGED TO ><)  *   FILE 299
//*           WILL BE LISTED.  THUS, WITH THIS TAPEMAP YOU CAN      *   FILE 299
//*           FIND ALMOST ANY MEMBER NAME ON THE CBT TAPE.          *   FILE 299
//*                                                                 *   FILE 299
//*           SEE ALSO THE LOAD MODULE FOR TAPEMAP ON FILE 035.     *   FILE 299
//*                                                                 *   FILE 299
//*    PARENTHETICAL NOTE:                                          *   FILE 299
//*                                                                 *   FILE 299
//*           THE OLD VERSION OF TAPEMAP, CALLED TAPEMAPO, IS       *   FILE 299
//*           INCLUDED BOTH ON THIS FILE, AND ON FILE 035.  THE     *   FILE 299
//*           NEWER VERSION WAS REVISED BY RON TANSKY OF WEBCRAFT   *   FILE 299
//*           IN CHALFONT, PENNSYLVANIA.  DUE TO THE TEDIOUSNESS    *   FILE 299
//*           OF TESTING ANY NEW VERSION OF TAPEMAP, ITS OLD        *   FILE 299
//*           VERSION HAS NOT BEEN DELETED, JUST IN CASE THE NEW    *   FILE 299
//*           VERSION AFFECTS SOME OF THE CODE THAT WORKED BEFORE.  *   FILE 299
//*           YOU CAN SIMPLY SAY EXEC PGM=TAPEMAPO, INSTEAD.        *   FILE 299
//*           I'VE TESTED THE NEW VERSION, BUT WE'RE TRYING TO BE   *   FILE 299
//*           ON THE SAFE SIDE.  (TAPEMAP IS READ-ONLY ANYWAY.)     *   FILE 299
//*                                                                 *   FILE 299
//***FILE 300 CONTAINS MANY TSO CPS AND OTHER GOOD THINGS.  CODE    *   FILE 300
//*           FROM JIM MARSHALL (AIR FORCE RETIREE) NOW WITH THE    *   FILE 300
//*           US TREASURY OUTSIDE WASHINGTON DC.  THIS FILE IS      *   FILE 300
//*           IN IEBUPDTE SYSIN FORMAT.  JIM'S CURRENT ADDRESS IS   *   FILE 300
//*                                                                 *   FILE 300
//*                 JIM MARSHALL, US TREASURY                       *   FILE 300
//*                 FINANCIAL MANAGEMENT SERVICE                    *   FILE 300
//*                 PRINCE GEORGES PLAZA II - ROOM 400B             *   FILE 300
//*                 3700 EAST-WEST HIGHWAY                          *   FILE 300
//*                 HYATTSVILLE, MD  20782                          *   FILE 300
//*                 202-874-8353                                    *   FILE 300
//*                                                                 *   FILE 300
//*              email:   jim.marshall@fms.treas.gov                *   FILE 300
//*                                                                 *   FILE 300
//*       RELEASE 27  -  01 MAY 92                                  *   FILE 300
//*            (SOME MEMBERS WERE UPDATED LATER - SG 2/99)          *   FILE 300
//*                                                                 *   FILE 300
//*       SUMMARY OF THE MODULES CONTAINED.                         *   FILE 300
//*                                                                 *   FILE 300
//*          CP    REL           DESCRIPTION                        *   FILE 300
//*                                                                 *   FILE 300
//*       $#SVCKP   1  -  MACRO USED IN SOME OF THE PROGRAMS TO     *   FILE 300
//*                       INVOKE SVC TO GET ME BACK TO PROBLEM      *   FILE 300
//*                       STATE FROM SUPERVISOR STATE.              *   FILE 300
//*                                                                 *   FILE 300
//*       $#SVCKS   1  -  MACRO USED IN SOME OF THE PROGRAMS TO     *   FILE 300
//*                       INVOKE SVC TO GET ME TO SUPERVISOR STATE  *   FILE 300
//*                       FROM PROBLEM STATE.  YOU SHOULD USE YOUR  *   FILE 300
//*                       OWN SVC MECHANISM HERE.                   *   FILE 300
//*                                                                 *   FILE 300
//*       $DI       6X -  OPERATOR LIKE $DI COMMAND.                *   FILE 300
//*                                                                 *   FILE 300
//*       ABEND#    3X -  NOT A COMMAND BUT A HELP ENTRY FOR ABEND  *   FILE 300
//*                       CODES AND SOME OF THE COMMON REASONS      *   FILE 300
//*                       YOU MAY GET THEM.  UPDATED FOR MVS.       *   FILE 300
//*                                                                 *   FILE 300
//*       ASK       1Y -  CLIST.  USE CMD TO ASK A QUESTION AND     *   FILE 300
//*                       GET A YES OR NO BACK, THUS SETTING A      *   FILE 300
//*                       RETURN CODE.  (WAS AROUND IN MY MVT DAYS  *   FILE 300
//*                       AND IS OBSOLETE WITH MVS CLIST LANGUAGE)  *   FILE 300
//*                                                                 *   FILE 300
//*       ASMG      1Y -  DO ASSEMBLY LANGUAGE COMPILES             *   FILE 300
//*                       INTERACTIVELY IN ASSEM-G.  IS SIMILIAR    *   FILE 300
//*                       TO ONE IN THIS FILE FOR ASSEM-H.  BOTH    *   FILE 300
//*                       SHOULD WORK FOR OS/MVT AND MVS.           *   FILE 300
//*                                                                 *   FILE 300
//*       ASMH      4X -  DO ASSEMBLY LANG COMPILES INTERACTIVELY.  *   FILE 300
//*                       CAN GET IBM PROD WHICH IS SUPERIOR.       *   FILE 300
//*                       THIS IS FREE.  HAVE A 'SYS2.MACLIB'       *   FILE 300
//*                       DEFINED IN THIS ONE FOR USERS GENERALLY   *   FILE 300
//*                       HAVING USER MACLIB.  CHECKED THIS ONE     *   FILE 300
//*                       OUT FOR MVS/XA.                           *   FILE 300
//*                                                                 *   FILE 300
//*       ASMHNOX   1  -  ZAP TO THE IBM P.P. ASSEMBLER H TO FIX A  *   FILE 300
//*                       BUG SAYING 'NOXREF' YOU GET 'XREF(FULL)'. *   FILE 300
//*                       PTF LEVEL-21 MADE XREF DEF TO XREF(FULL)  *   FILE 300
//*                       AND INTRODUCED THE ERROR DESCRIBED ABOVE. *   FILE 300
//*                       NOTE:  ASSEMBLER H IS CLASS C (VERSION 1) *   FILE 300
//*                                                                 *   FILE 300
//*       ASMF      2  -  DO ASSEMBLY LANG COMPILES INTERACTIVE.    *   FILE 300
//*                       CAN GET THE IBM PRODUCT WHICH IS          *   FILE 300
//*                       SUPERIOR, BUT THIS ONE IS FREE.  HAVE A   *   FILE 300
//*                       'SYS2.MACLIB' DEFINED IN THIS ONE FOR     *   FILE 300
//*                       USERS GENERALLY HAVING A USER MACLIB.     *   FILE 300
//*                       THIS ONE USES THE ASMXF (IFOX00).  NOTE   *   FILE 300
//*                       THAT SOURCE FOR THIS IS ASMH PROMPTER     *   FILE 300
//*                       WITH SOME SYSPARMS CHANGED.               *   FILE 300
//*                                                                 *   FILE 300
//*       CALC      1X -  TSO CALCULATOR PGM.  HAS 1 ACCUMULATOR    *   FILE 300
//*                       AND 9 REGISTERS.  CAN DO FUNCTIONS LIKE   *   FILE 300
//*                       SIN, COS, ETC, OR YOU CAN DEFINE YOUR     *   FILE 300
//*                       OWN.  (PLI-OPT)                           *   FILE 300
//*                                                                 *   FILE 300
//*       CATPW     1X -  BILL GODFREY:  DISPLAY PASSWORDS TO YOUR  *   FILE 300
//*                       ICF MASTER CATALOG.                       *   FILE 300
//*                                                                 *   FILE 300
//*       CDSCB     3  -  ZAP FORMAT-1 DSCB OF DATASETS ON THE FLY. *   FILE 300
//*                       USEFUL FOR SYSTEM TYPES !!!!              *   FILE 300
//*                       (NOW UPDATED BY BILL GODFREY FOR 21ST     *   FILE 300
//*                       CENTURY SUPPORT - SG 9/98.  ALSO BY       *   FILE 300
//*                       GREG PRICE - 2/99. HELP updated 07/99.)   *   FILE 300
//*                                                                 *   FILE 300
//*       CLRSCRN   1X -  CLEAR THE SCREEN ON 3270.                 *   FILE 300
//*                                                                 *   FILE 300
//*       CLR2000   1Y -  CLEAR SCREEN ON HAZELTINE 2000 TTY TUBE   *   FILE 300
//*                                                                 *   FILE 300
//*       CMDLOFF   1X -  PASS A TSO COMMAND TO TSO CP AND WHEN IT  *   FILE 300
//*                       COMPLETES THE USER WILL BE LOGGED OFF.    *   FILE 300
//*                       INTERESTING IF YOU THINK ABOUT IT !!!!    *   FILE 300
//*                                                                 *   FILE 300
//*       COBOLCHK  3X -  AFDSC DEVELOPED CHEAP COBOL PROMPTER.     *   FILE 300
//*                       COBOL COMPILES(COBOLVS) INSIDE TSO, ONLY  *   FILE 300
//*                       GIVING ERRS AT TERMINAL.  USES 'SYNTAX'   *   FILE 300
//*                       OPT OF COMPILER AND IS GREAT FOR SLOW     *   FILE 300
//*                       SPEED TERMINALS.                          *   FILE 300
//*                                                                 *   FILE 300
//*       COB2CHK   2X -  VS/COBOL II R3.1 VERSION OF COBOLCHK.     *   FILE 300
//*                                                                 *   FILE 300
//*       COMPARE   3X -  COMPARE 2 FILES IN FOREGROUND. BASED ON   *   FILE 300
//*                       YALE UNIV COMPARE PGM.  OPTIONALLY, YOU   *   FILE 300
//*                       CAN ASK FOR IBM'S IEBCOMPR UTILITY PGM    *   FILE 300
//*                       INSTEAD.  MODIFIED YALE'S COMPARE PGM     *   FILE 300
//*                       AND CALLED IT COMPAREB.                   *   FILE 300
//*                                                                 *   FILE 300
//*       COMPRESS  2  -  COMPRESS A PDS IN FOREGROUND.             *   FILE 300
//*                                                                 *   FILE 300
//*       CONCAT    2X -  CONCAT 2-9 FILES TOGETHER.  MVS ALLOC     *   FILE 300
//*                       CMD CAN DO IT, BUT WE RUN PROGRAM         *   FILE 300
//*                       CONTROL FACILITY (PCF).  THUS IF THE      *   FILE 300
//*                       CUSTOMER FREES A FILE THAT IS SYS1,       *   FILE 300
//*                       THEN THEY CANNOT ALLOCATE IT BACK.        *   FILE 300
//*                                                                 *   FILE 300
//*       COPYPDS   4X -  COPIES A PDS TO ANOTHER PDS. ALLOWS YOU   *   FILE 300
//*                       TO COPY MEMBERS WITH A SELECT STATEMENT   *   FILE 300
//*                       AND ALSO SPECIFY THE ALIAS ENTRIES.       *   FILE 300
//*                                                                 *   FILE 300
//*       COPYSDS   3X -  COPY ONE SEQUENTIAL DATASET TO ANOTHER    *   FILE 300
//*                       SEQUENTIAL DATASET WITH SKIP, MAX NUMBER, *   FILE 300
//*                       ETC, ETC.                                 *   FILE 300
//*                                                                 *   FILE 300
//*       COUNT     1X -  COUNT THE NUMBER OF RECORDS IN A FILE.    *   FILE 300
//*                                                                 *   FILE 300
//*       CPSCB     1  -  CHANGE YOUR PROTECTED STEP CONTROL BLOCK  *   FILE 300
//*                       (PSCB) ON THE FLY TO GIVE YOURSELF        *   FILE 300
//*                       THINGS LIKE MOUNT AUTHORITY ETC.  SHOULD  *   FILE 300
//*                       PROBABLY RESTRICT THIS TO SYSTEMS ONLY.   *   FILE 300
//*                                                                 *   FILE 300
//*       CVD       1X -  BILL GODFREY: CONVERTS HEX NUMBER TO DEC  *   FILE 300
//*                                                                 *   FILE 300
//*       CVX       1X -  BILL GODFREY: CONVERTS DEC NUMBER TO HEX  *   FILE 300
//*                                                                 *   FILE 300
//*       DA        4X -  DISPLAY ACTIVE COMMAND TO GIVE THE USERS  *   FILE 300
//*                       A PICTURE OF THE SYSTEM.  THEY LIKE TO    *   FILE 300
//*                       SEE HOW MUCH TIME THE JOB HAS !!!!        *   FILE 300
//*                                                                 *   FILE 300
//*       DAJOB     4X -  DISPLAY ACTIVE CMD,  HAS TSO USERS TOO    *   FILE 300
//*                       AND WHAT LOGON PROC THEY USE.             *   FILE 300
//*                                                                 *   FILE 300
//*       DAPF      2X -  DISPLAY APF AUTHORIZED LIBRARY LIST USED  *   FILE 300
//*                       DURING THIS IPL.  PROBABLY WON'T WORK     *   FILE 300
//*                       FOR MVS/ESA 4.3 DYNAMIC AUTHORIZATION,    *   FILE 300
//*                       BUT WILL WORK UNTIL THEN.                 *   FILE 300
//*                                                                 *   FILE 300
//*       DATE      2X -  GIVES THE DATE AND TIME FROM THE SYSTEM.  *   FILE 300
//*                                                                 *   FILE 300
//*       DD        4  -  SHORT FORM OF ALLOCATE FOR AN EXISTING    *   FILE 300
//*                       FILE.  IT IS FASTER THAN ALLOCATE.        *   FILE 300
//*                       UPDATED TO LET YOU ALLOCATE A NEW FILE    *   FILE 300
//*                       ALSO.                                     *   FILE 300
//*                                                                 *   FILE 300
//*       DECONCAT  2X -  REVERSE OF THE CONCAT COMMAND.            *   FILE 300
//*                                                                 *   FILE 300
//*       DELAY     1  -  SPECIFY A NUMBER OF SECONDS AND           *   FILE 300
//*                       HAVE YOU WAIT THAT LONG.                  *   FILE 300
//*                                                                 *   FILE 300
//*       DEX       1  -  TSO HEXADECMAL CALCULATOR PROGRAM.        *   FILE 300
//*                                                                 *   FILE 300
//*       DISPLAY   1Y -  SHOWS CONTROL BLOCKS LIKE THE UCB ETC.    *   FILE 300
//*                                                                 *   FILE 300
//*       DLINK     2X -  DISPLAY LINKLIST CMD TO SHOW LIBRARIES    *   FILE 300
//*                       WHICH ARE BEING USED THIS IPL.            *   FILE 300
//*                                                                 *   FILE 300
//*       DLPA      2X -  DISPLAY LPA LIST OF LIBRARIES IN EFFECT   *   FILE 300
//*                       FOR THIS IPL.                             *   FILE 300
//*                                                                 *   FILE 300
//*       DLXAUTHC  1  -  THIS CMD IS FROM MIKE LOOS, FAIR, ISAAC   *   FILE 300
//*                       AND CO.  IT WILL ISSUE THE COMMAND        *   FILE 300
//*                       PASSED TO IT AFTER SETTING THE JSCBAUTH   *   FILE 300
//*                       BIT ON.  WHEN THE COMMAND COMPLETES, THE  *   FILE 300
//*                       JSCBAUTH BIT WILL BE SET OFF.  THE JSCB   *   FILE 300
//*                       TAMPERING IS DONE IN A USER SVC (YOUR     *   FILE 300
//*                       OWN).  YOU MUST REPLACE THE USERSVC       *   FILE 300
//*                       MACRO WITH YOUR OWN INTEGRITY VIOLATION.  *   FILE 300
//*                       THIS COMMAND IS ESPECIALLY USEFUL FOR     *   FILE 300
//*                       ENTERING RACF COMMANDS FROM ISPF          *   FILE 300
//*                       DIALOGS.  FOR EXAMPLE:                    *   FILE 300
//*                                                                 *   FILE 300
//*                       DLXAUTHC LISTDSD DA('DSN1.EXAMPLE') ALL   *   FILE 300
//*                                                                 *   FILE 300
//*       DLVLDSS   2X -  DISPLAY DF/DSS LEVEL ON YOUR SYSTEM.      *   FILE 300
//*                                                                 *   FILE 300
//*       DOPROG    1X -  GIVES THE USER THE 'CALL' COMMAND         *   FILE 300
//*                       FUNCTION BY ATTACHING A PROGRAM.          *   FILE 300
//*                                                                 *   FILE 300
//*       DSNCHECK  1X -  GTELABS CMD TO CHECK FOR EXISTENCE OF     *   FILE 300
//*                       CATALOGED DSN NAME AND CAN CHECK FOR A    *   FILE 300
//*                       MEMBER WITHIN A PDS (SETS &LASTCC FOR     *   FILE 300
//*                       CLIST).                                   *   FILE 300
//*                                                                 *   FILE 300
//*       DSPRIN    1X -  DONATION FROM VPS PEOPLE (LRS) OF AN      *   FILE 300
//*                       EARLY VERSION OF A CMD THAT TAKES         *   FILE 300
//*                       DSPRINT COMMAND ISSUED OUT OF ISPF AND    *   FILE 300
//*                       REFORMATS THE COMMAND INTO A 'PRINTOFF'.  *   FILE 300
//*                       THIS CAME TO LRS BY WAY OF BILL SMITH,    *   FILE 300
//*                       FORMERLY OF SYNTEX.  THANKS ALL !!!!      *   FILE 300
//*                                                                 *   FILE 300
//*       DSPRINT   1X -  BILL GODFREY:  TAKES THE FORMAT OF THE    *   FILE 300
//*                       IBM COMMAND AND DOES IT INSTEAD OF        *   FILE 300
//*                       REFORMATTING THE COMMAND AND ISSUING      *   FILE 300
//*                       A 'PRINTOFF' AS ABOVE.                    *   FILE 300
//*                                                                 *   FILE 300
//*       DSMF      2X -  OPERATOR-LIKE 'D SMF' COMMAND.            *   FILE 300
//*                                                                 *   FILE 300
//*       DSVC      1X -  DISPLAY YOUR SVC LIST IN EFFECT FOR IPL.  *   FILE 300
//*                                                                 *   FILE 300
//*       DUDASD    4X -  OPERATOR-LIKE 'D U,DASD' CMD.  UPDATED    *   FILE 300
//*                       WITH NEW UCB SCAN ROUTINE AND ENHANCED    *   FILE 300
//*                       TO SHOW VOLUME STATE, DEVICE TYPE (LIKE   *   FILE 300
//*                       3380), AND WHICH VOLUME IS THE IPL        *   FILE 300
//*                       DEVICE.  ALSO CLEANED UP CODE, DOCUMENT,  *   FILE 300
//*                       ETC.  ALSO CHECKS TO SEE IF THE VTOC IS   *   FILE 300
//*                       INDEXED OR UNINDEXED, AND IF SHARED.      *   FILE 300
//*                                                                 *   FILE 300
//*       DUDASDR   1Y -  OPERATOR-LIKE  D U,DASD CMD (OLD VERSION) *   FILE 300
//*                                                                 *   FILE 300
//*       DUTAPE    3X -  OPERATOR-LIKE  D U,TAPE  CMD. CODED WITH  *   FILE 300
//*                       NEW UCB SCAN ROUTINE AND ENHANCED TO SHOW *   FILE 300
//*                       DEVICE TYPE (LIKE 3380).                  *   FILE 300
//*                                                                 *   FILE 300
//*       DUSER     1X -  SHOW THE USERIDS CURRENTLY LOGGED ON TSO. *   FILE 300
//*                                                                 *   FILE 300
//*       ECHO      1X -  TYPE IN A LINE AND HAVE IT ECHOED BACK TO *   FILE 300
//*                       THE TERMINAL IN HEX.                      *   FILE 300
//*                                                                 *   FILE 300
//*       EDAIR30   1  -  SUBPROGRAM.  AN ENHANCED VERSION OF       *   FILE 300
//*                       IKJDAIR FOR ALLOCATING A SYSOUT DATASET.  *   FILE 300
//*                                                                 *   FILE 300
//*       ERROR#    2  -  NOT A COMMAND BUT A HELP ENTRY FOR        *   FILE 300
//*                       RETURN CODE YOU CAN GET FROM DAIR         *   FILE 300
//*                       ALLOCATION.  UPDATED FOR MVS.             *   FILE 300
//*                                                                 *   FILE 300
//*       FREEALL   4X -  MVS VERSION OF THE FAMOUS 'FREEALL' CMD   *   FILE 300
//*                       TO FREE DYNAMICALLY ALLOCATED DATASETS.   *   FILE 300
//*                       AFDSC MODIFIED TO FREE ALL DATASETS       *   FILE 300
//*                       WHICH:                                    *   FILE 300
//*                       A.  HAVE BEEN DYNAMICALLY ALLOCATED.      *   FILE 300
//*                       B.  ARE NOT CURRENTLY IN USE.             *   FILE 300
//*                       C.  ARE NOT CURRENTLY OPEN.               *   FILE 300
//*                       D.  ARE NOT ALLOCATED TO DDNAME=SYSPROC.  *   FILE 300
//*                                                                 *   FILE 300
//*       FINDFILE  1  -  DISPLAYS WHERE A DATASET IS CATALOGED     *   FILE 300
//*                       AND LISTS ALL MOUNTED DASD ON WHICH THE   *   FILE 300
//*                       DATASET RESIDES.  NOTE:  ON CBT TAPE AS   *   FILE 300
//*                       'LOCDSN'.  'FINDFILE' MORE DESCRIPTIVE.   *   FILE 300
//*                                                                 *   FILE 300
//*       FORTP     2X -  DO FORTRAN G1 COMPILES INTERACTIVELY.     *   FILE 300
//*                       SEE JCL INSTALL.  IT IS SLICK AND NOT     *   FILE 300
//*                       JUST A SIMPLE COMPILE, LINKEDIT.  NOT     *   FILE 300
//*                       COMPLICATED BUT YOU USE THE SAME          *   FILE 300
//*                       SOURCE CODE WITH SYSPARM OPTIONS TO       *   FILE 300
//*                       COMPILE 2 MODULES.                        *   FILE 300
//*                                                                 *   FILE 300
//*       FORTX     1  -  FORT X (EXTENDED) COMPILES INTERACTIVELY. *   FILE 300
//*                       IBM'S FORT PRODUCT IS SUPERIOR, BUT THIS  *   FILE 300
//*                       IS FREE.                                  *   FILE 300
//*                                                                 *   FILE 300
//*       GDDM      2X -  GDDM PGMS WRITTEN MOSTLY IN FORTRAN.      *   FILE 300
//*                       SPACE SHUTTLE, X-29, ETC.  WILL WORK WITH *   FILE 300
//*                       OS/360 FORTRAN G ON THE TAPE.  FORT-G     *   FILE 300
//*                       RUNS ON MVS/XA FINE, AND FOR THOSE WITH   *   FILE 300
//*                       NO FORTRAN, IT IS BETTER THAN NOTHING.    *   FILE 300
//*                       THE MEMBER HAS '><' IN PLACE OF './' IN   *   FILE 300
//*                       THE './ ADD' CARDS.  LOOK AT THE MEMBER   *   FILE 300
//*                       TO SEE THE SOURCE AND THE SAMPLE JCL.     *   FILE 300
//*                                                                 *   FILE 300
//*       GFREEALL  1  -  GOT FROM GTELABS.  THEIR VERSION OF       *   FILE 300
//*                       SAME CMD CALLED 'FREEALL' THAT IS ON      *   FILE 300
//*                       THIS TAPE.                                *   FILE 300
//*                                                                 *   FILE 300
//*       GSTREAM   1  -  GOT FROM GTELABS. THEIR VERSION OF SAME   *   FILE 300
//*                       CMD CALLED 'INSTREAM' THAT IS ON THIS     *   FILE 300
//*                       TAPE.                                     *   FILE 300
//*                                                                 *   FILE 300
//*       GTEMACS   1  -  MACROS FROM GTELABS NEEDED FOR TSO CMDS   *   FILE 300
//*                       FROM CHUCK HOFFMAN.  USE 'PDSLOAD'        *   FILE 300
//*                       (IEBUPDTE LIKE PGM) FROM FILE 093         *   FILE 300
//*                       TO DOWNLOAD.  OR JUST LOOK AT MACROS.     *   FILE 300
//*                       YOU WILL SEE HOW THE MEMBER IS BUILT.     *   FILE 300
//*                       MACROS:  EQ$R, LINKSAVE, LINKBACK,        *   FILE 300
//*                       GTEDAALC, GTEDADAT, GTEDADOC, GTEDASET.   *   FILE 300
//*                                                                 *   FILE 300
//*       IKJEBMA9  3  -  EXAMPLE OF MVS EDIT SUB-COMMAND TABLE &   *   FILE 300
//*                       WHAT YOU CAN MAKE VALID SUB-COMMANDS.     *   FILE 300
//*                       HAS THE AFDSC SUB-COMMANDS OF EDIT IN     *   FILE 300
//*                       THE TABLE.                                *   FILE 300
//*                                                                 *   FILE 300
//*       IKJCT44B  1X -  USED IN TSO CLIST LANGUAGE TO CREATE OWN  *   FILE 300
//*                       VARIABLES STARTING WITH "&SYSX.." THANKS, *   FILE 300
//*                       CHICAGO SOFT, IT WAS IN 'TSO TIMES'.      *   FILE 300
//*                                                                 *   FILE 300
//*       IKJEFF10  1  -  AFDSC IPO BASED TSO SUBMIT EXIT.          *   FILE 300
//*                       THIS IS RELATIVELY SIMPLE.  FORCES THE    *   FILE 300
//*                       FOLLOWING RESTRICTION ON A TSO USER       *   FILE 300
//*                       1.  JOBNAME ON SUBMITTED JOB CARD         *   FILE 300
//*                       MUST BE USERID PLUS ONE CHARACTER.        *   FILE 300
//*                       2.  PROGRAMMER NAME FIELD (8 OR LESS      *   FILE 300
//*                       CHAR) IN UADS MUST MATCH PROGRAMMER       *   FILE 300
//*                       NAME (8 OR LESS ON JOB CARD).             *   FILE 300
//*                                                                 *   FILE 300
//*       IKJEFF53  1  -  AFDSC IPO BASED TSO 'STATUS/OUTPUT/CANCEL'*   FILE 300
//*                       EXIT.  A LOT OF POSSIBILITIES IN CODE.    *   FILE 300
//*                                                                 *   FILE 300
//*       IKJE9CL   1  -  'COLS'.  2ISG DEVELOPED EDIT SUBCMD PRINT *   FILE 300
//*                       COLUMN NUMBERS ON YOUR TERMINAL.  LIKE    *   FILE 300
//*                       ISPF/PDF OPTION 2  'COLS' CMD.            *   FILE 300
//*                                                                 *   FILE 300
//*       IKJE9CT   1  -  'COUNT'.  AFDSC DEVELOPED EDIT SUBCMD.    *   FILE 300
//*                       GIVES THE NUMBER OF RECORDS YOU ARE       *   FILE 300
//*                       CURRENTLY EDITING.                        *   FILE 300
//*                                                                 *   FILE 300
//*       IKJE9CX   1  -  'CHANGEX'  AFDSC DEVELOPED SUBCOMMAND OF  *   FILE 300
//*                       EDIT.  PERFORMS THE SAME FUNCTION AS      *   FILE 300
//*                       CHANGE, BUT USES HEX STRINGS.             *   FILE 300
//*                                                                 *   FILE 300
//*       IKJE9DU   1  -  'DUP'  AFDSC DEVELOPED EIDT SUBCMD.  SAME *   FILE 300
//*                       FUNCTION AS SPF REPEAT BUT ONLY ON 1 LINE *   FILE 300
//*                       CAN REPEAT EXISTING LINE OR MAKE A COPY   *   FILE 300
//*                       OF AN EXISTING LINE ELSEWHERE & REPEAT IT.*   FILE 300
//*                                                                 *   FILE 300
//*       IKJE9FX   1  -  'FINDX'.  AFDSC DEVELOPED EDIT SUBCMD.    *   FILE 300
//*                       DOES A FIND, SPECIFY A HEX CHAR STRING.   *   FILE 300
//*                                                                 *   FILE 300
//*       IKJE9OF   1  -  'OFFLINE'. AFDSC EDIT SUBCMD TO 'SPINOFF' *   FILE 300
//*                       PRT FILE YOU ARE CURRENTLY EDITING (ARE   *   FILE 300
//*                       NOT REQUIRED TO SAVE 1ST).  CAN 'DEST' TO *   FILE 300
//*                       RMTS, ETC.  SEE THE HELP FOR SPECIFICS.   *   FILE 300
//*                                                                 *   FILE 300
//*       IKJE9LT   1  -  'LISTTABS'. FOUND BY AFDSC. BACK FROM MVT *   FILE 300
//*                       DAYS, CONVERTED BY BOB HANSEN (SEC) FOR   *   FILE 300
//*                       MVS. LISTS YOUR CURRENT EDIT TABS FOR YOU *   FILE 300
//*                                                                 *   FILE 300
//*       IKJE9LX   1  -  'LISTX'.  AFDSC DEVELOPED SUBCMD OF       *   FILE 300
//*                       EDIT TO DISPLAY TO YOUR TERMINAL, LINES   *   FILE 300
//*                       OF A DATASET BEING EDITED IN HEX FORMAT.  *   FILE 300
//*                                                                 *   FILE 300
//*       IKJE9NA   1  -  'NAME'.  AFDSC DEVELOPED SUBCMD OF        *   FILE 300
//*                       EDIT TO TELL THE NAME OF THE FILE OR      *   FILE 300
//*                       MEMBER OF PDS YOU'RE CURRENTLY EDITING.   *   FILE 300
//*                       IT'S EMBARASSING IF YOU FORGET.           *   FILE 300
//*                                                                 *   FILE 300
//*       IKJE9PT   1  -  'PUT'.  AFDSC DEVELOPED SUBCMD OF EDIT TO *   FILE 300
//*                       PUT CHARACTER STRINGS IN CERTAIN COLUMNS. *   FILE 300
//*                       NICE FOR USERS OF ASYNC TERMINALS         *   FILE 300
//*                       WHO DO NOT HAVE SPF.                      *   FILE 300
//*                                                                 *   FILE 300
//*       IKJE9SP   1  -  'SPOT'.  AFDSC DEVELOPED EDIT SUBCMD,     *   FILE 300
//*                       SPOT CHARACTER STRINGS IN DATA.  AGAIN    *   FILE 300
//*                       NICE FOR ASYNCH TERMINALS WHO DO NOT      *   FILE 300
//*                       HAVE SPF.  CONTAINS A SELECT & EXCLUDE    *   FILE 300
//*                       FUNCTION FOR DELETION OF RECS THAT FIT A  *   FILE 300
//*                       PATTERN.  SEE THE HELP ENTRY FOR MORE     *   FILE 300
//*                       DETAILS.                                  *   FILE 300
//*                                                                 *   FILE 300
//*       IKJE9SS   2  -  'SAVESHR'.  AFDSC DEVELOPED EDIT SUBCMD   *   FILE 300
//*                       TO ALLOW SAVE WITH DISP=SHR.  EDIT HAS    *   FILE 300
//*                       NASTY HABIT OF TRYING TO GET DISP=OLD     *   FILE 300
//*                       WHEN YOU SAVE; THUS IF YOU NEED TO SAVE   *   FILE 300
//*                       SOMETHING INTO A FILE ALLOCATED ALL THE   *   FILE 300
//*                       TIME, TOUGH !!!!!  NOTE - APAR AZ57430    *   FILE 300
//*                       APPLIED.                                  *   FILE 300
//*                                                                 *   FILE 300
//*       IKJT9$    1  -  UPDATE SUBCMD TABLE OF TEST FOR           *   FILE 300
//*                       FOLLOWING SUBCMDS:                        *   FILE 300
//*                                                                 *   FILE 300
//*       IKJT9FI   1  -  'FIND' SUBCOMMAND OF THE TSO TEST CMD.    *   FILE 300
//*                                                                 *   FILE 300
//*       IKJT9LB   1  -  'LIST BREAKPOINTS' SUBCMD OF TSO TEST CMD *   FILE 300
//*                                                                 *   FILE 300
//*       IKJT9LI   1  -  'LIST' SUBCMD (2ND LOAD) OF TSO TEST CMD. *   FILE 300
//*                                                                 *   FILE 300
//*       IKJT9MAC  1  -  MACROS NEEDED FOR ABOVE ASSEMBLIES.       *   FILE 300
//*                                                                 *   FILE 300
//*       INFOSYS   2X -  TSO CMD, EXECUTE IBM PRODUCT 'INFOSYS'.   *   FILE 300
//*                                                                 *   FILE 300
//*       INMXPARM  2X -  SAMPLE OF THE PARMS FOR TSO/E TRANSMIT &  *   FILE 300
//*                       RECEIVE.                                  *   FILE 300
//*                                                                 *   FILE 300
//*       INMXZ02   2X -  TSO/E TRANSMIT EXIT, NOTIFYING TSO USERS  *   FILE 300
//*                       ON SAME NODE THAT A FILE HAS BEEN SENT    *   FILE 300
//*                       TO THEM. GOTTEN FROM TUCC, JES2 MODS TAPE *   FILE 300
//*                       AND MODIFIED BY ME.  THANKS TUCC.         *   FILE 300
//*                                                                 *   FILE 300
//*       INSTREAM  1  -  AFDSC DEVELOPED CMD TO BE USED IN CLIST   *   FILE 300
//*                       PUT CONTROL CARDS INSIDE OF CLISTS. CAN   *   FILE 300
//*                       BE USER INPUT FROM THE TERMINAL.  NICE.   *   FILE 300
//*                                                                 *   FILE 300
//*       IO       (T) -  LIST I/O COUNTS FOR EACH FILE IN YOUR     *   FILE 300
//*                       TSO SESSION.                              *   FILE 300
//*                                                                 *   FILE 300
//*       JCLSCAN   1  -  SHMUEL GOLOB SENT THIS TO ME.  HE RAN IT  *   FILE 300
//*                       ON SP 1.3.5 AND XA 2.2.3 AND LOVES IT FOR *   FILE 300
//*                       DOING A JCL CHECK PRIOR TO SUBMITTING.    *   FILE 300
//*                       HAS A PGM AND AN SVC TO INSTALL.  TRY IT. *   FILE 300
//*                                                                 *   FILE 300
//*       JULIAN    1X -  RETRIEVE THE DATE AND GREGORIAN DAY       *   FILE 300
//*                       FROM THE SYSTEM.  ALSO CAN RETURN THE     *   FILE 300
//*                       SAME INFO FOR ANY YEAR AND DAY.           *   FILE 300
//*                                                                 *   FILE 300
//*             Modified to accept 4-digit dates, by Steven         *   FILE 300
//*             Peckham - 10/99                                     *   FILE 300
//*                                                                 *   FILE 300
//*       KOMM      1X -  USED IN CLISTS FOR FORMATTING DISPLAYS IN *   FILE 300
//*                       FULL SCREEN SUPPORT, 3270 TYPE TERMINALS. *   FILE 300
//*                                                                 *   FILE 300
//*       LASTCC#   1  -  NOT A TSO COMMAND, BUT A HELP ENTRY OF    *   FILE 300
//*                       LIST OF ERROR CODES THAT CAN OCCUR IN     *   FILE 300
//*                       A CMD PROCEDURE (CLIST) INFO WAS COPIED   *   FILE 300
//*                       FROM MANUAL GC28-0646, TSO CMD LANG REF.  *   FILE 300
//*                                                                 *   FILE 300
//*       LASTIPL   2X -  DISPLAY THE JULIAN, GREGORIAN, AND        *   FILE 300
//*                       CALENDAR DATE PLUS THE TIME IN HH.MM THAT *   FILE 300
//*                       YOUR SYSTEM WAS LAST IPL'ED.  OPERATORS   *   FILE 300
//*                       DO ALWAYS TELL YOU TRUE STORIES ????      *   FILE 300
//*                                                                 *   FILE 300
//*       LIBCALL   1  -  GTELABS CMD TRANSFERS CONTROL TO          *   FILE 300
//*                       MODULES WITH A 'CALL' TYPE PARAMTER       *   FILE 300
//*                       LIST, WITH A 'STEPLIB' OPTION.  LIBCALL   *   FILE 300
//*                       ALSO CAN ACCEOT PGM PARMS IN LOWER        *   FILE 300
//*                       CASE.                                     *   FILE 300
//*                                                                 *   FILE 300
//*       LISTAX    1X -  SAME AS IBM 'LISTA' CMD BUT GIVES YOU     *   FILE 300
//*                       INFO YOU CAN USE, LIKE DDNAME, DISP, ETC  *   FILE 300
//*                       ETC.                                      *   FILE 300
//*                                                                 *   FILE 300
//*       MACROS    1X -  MACROS IN THE FILE HAVE BEEN PACKAGED     *   FILE 300
//*                       IN THIS MEMBER PRECEDED BY ./ CARDS.      *   FILE 300
//*                                                                 *   FILE 300
//*                       PACKAGED MOST OF THE MACROS PRECEDED BY   *   FILE 300
//*                       '><' CARDS INSTEAD OF './'.  USE          *   FILE 300
//*                       'PDSLOAD' TO LOAD.  SEE INSTALL           *   FILE 300
//*                       JOBSTREAM AND YOU WILL SEE HOW.  DID IT   *   FILE 300
//*                       LIKE THIS FOR MACROS SO JUST DO A         *   FILE 300
//*                       PDSLOAD (LIKE IEBUPDTE) TO RUN THEM       *   FILE 300
//*                       INTO A TEMP PDS FOR YOUR ASSEMBLY.        *   FILE 300
//*                                                                 *   FILE 300
//*                           A-B        C        D-E       F-Z     *   FILE 300
//*                        12345678  12345678  12345678  12345678   *   FILE 300
//*                        $#SVCKP   CPDATA    DO08BLD   GNRLFAIL   *   FILE 300
//*                        $#SVCKS   CPEND     DCS       JVDENTER   *   FILE 300
//*                        $EPILOG   CPENTER   DCSPARS   JVDEQU     *   FILE 300
//*                        $PROLOG   CPENTRY   EQUENT    JVDLEAVE   *   FILE 300
//*                                  CPEXIT    EQUEXT    MSGLPA     *   FILE 300
//*                                  CPINIT    EQUREG    REGEQU     *   FILE 300
//*                                  CVDT      EQUREGS   REGS       *   FILE 300
//*                                  CVRT                TMPMAC     *   FILE 300
//*                                                                 *   FILE 300
//*       LISTCDS   2Y -  LIST THE SMP4 CDS FILE (SYS1.SMPCDS).     *   FILE 300
//*                                                                 *   FILE 300
//*       LISTLPA   1Y -  LIST ATTRIBUTES OF MEMBERS OF LPALIB.     *   FILE 300
//*                                                                 *   FILE 300
//*       LISTSPC   3X -  LIST SPACE ATTRIBUTES OF A FILE ON DASD.  *   FILE 300
//*                                                                 *   FILE 300
//*       LISTSU    1X -  WORTHLESS CMD, LIST THE SU NUMBERS YOU    *   FILE 300
//*                       HAVE INSTALLED ON YOUR SYSTEM.            *   FILE 300
//*                                                                 *   FILE 300
//*       LM        1  -  LIST MEMBER NAMES OF A DIRECTORY OF PDS.  *   FILE 300
//*                                                                 *   FILE 300
//*       LOGOBSC   1  -  EXAMPLE OF VTAM LOGO SCREEN FOR           *   FILE 300
//*                       ACF/VTAM TO IMPRESS MGMT.  PUT A LOT      *   FILE 300
//*                       OF COMMENTS AS TO HOW TO CODE BSC LOGO    *   FILE 300
//*                       SCREEN.  BOOKS ARE NOT VERY CLEAR.        *   FILE 300
//*                       MADE MINE SO ANYONE COULD FILL IN A       *   FILE 300
//*                       PREDEFINED BOX AND USE MY CODE.           *   FILE 300
//*                                                                 *   FILE 300
//*       LOGOSNA   1  -  EXAMPLE OF VTAM LOGO SCREEN FOR           *   FILE 300
//*                       ACF/VTAM TO IMPRESS MGMT.  PUT A LOT      *   FILE 300
//*                       OF COMMENTS AS TO HOW TO CODE SNA LOGO    *   FILE 300
//*                       SCREEN.  BOOKS ARE NOT TOO BAD.  MADE     *   FILE 300
//*                       MINE SO ANYONE COULD FILL IN A            *   FILE 300
//*                       PREDEFINED BOX AND USE MY CODE.           *   FILE 300
//*                                                                 *   FILE 300
//*       LPSCB     1X -  LIST  PSCB (PROTECTED STEP CONTROL BLK).  *   FILE 300
//*                                                                 *   FILE 300
//*       MEMBER    3X -  SCAN A LIBRARY FOR A MEMBER.  CAN BE      *   FILE 300
//*                       USED TO RUN THE LINK LIST FOR FIRST       *   FILE 300
//*                       OCCURRENCE OF THAT MEMBER, WILL ALSO      *   FILE 300
//*                       DISPLAY LKED ATTRIBUTES, CSECT, IDR       *   FILE 300
//*                       DATA, LINKLIST LIB NUMBER.  SHOWS SPF     *   FILE 300
//*                       STATS FOR SOURCE DATA.                    *   FILE 300
//*                                                                 *   FILE 300
//*       MURPHY    4X -  GET A THOUGHT FOR THE DAY.  MUCH THANKS   *   FILE 300
//*                       TO PAUL BANKS, ALLERGAN PHARMACEUTICALS   *   FILE 300
//*                       IN IRVINE, CA FOR THE IDEA.  THIS VERSION *   FILE 300
//*                       IS FROM ART TANSKY OF SUNGARD IN VOORHEES *   FILE 300
//*                       NEW JERSEY, AND WAS REVISED CONSIDERABLY. *   FILE 300
//*                                                                 *   FILE 300
//*       MURPHYO   3X -  OLD VERSION OF MURPHY.  THIS IS FROM      *   FILE 300
//*                       PAUL BANKS, FORMERLY OF ALLERGAN          *   FILE 300
//*                       PHARMACEUTICALS IN IRVINE, CALIFORNIA.    *   FILE 300
//*                       I HAVE ADDED SOME 'THOUGHTS'.             *   FILE 300
//*                                                                 *   FILE 300
//*       NEWSPACE  1  -  GTELABS CMD FOR EASILY CREATING NEW,      *   FILE 300
//*                       MODERATELY SIZED DATASETS & LIBS.         *   FILE 300
//*                       WRITTEN WITH BEGINNERS IN MIND.           *   FILE 300
//*                       EXECUTED FROM ISPF/PDF CMD LINE FOR       *   FILE 300
//*                       A FILE YOU SUDDENLY NEED.                 *   FILE 300
//*                                                                 *   FILE 300
//*       NEWISPF   1  -  FOUND TSO CMD ON MODS TAPE USED WITH      *   FILE 300
//*                       NEW ISPF/PDF PRODUCT TO GET YOU INTO      *   FILE 300
//*                       THE PDF WITH THE CLIST.  BUT IT USED      *   FILE 300
//*                       THE USER'S PREFIX INSTEAD OF THE USERID.  *   FILE 300
//*                       MADE SOME MINOR CHANGES TO IT AND         *   FILE 300
//*                       CHANGED NAME FROM 'PDF' TO 'NEWISPF'.     *   FILE 300
//*                                                                 *   FILE 300
//*       OPERA     1Y -  ALLOWS CONSOLE COMMANDS (EXCEPT JES2)     *   FILE 300
//*                       TO BE ENTERED FROM YOUR TSO TERMINAL.     *   FILE 300
//*                       USER MUST HAVE OPERATOR AUTHORITY.        *   FILE 300
//*                                                                 *   FILE 300
//*       OUTPRINT  1Y -  PRINTS A DATASET CREATED BY THE TSO       *   FILE 300
//*                       'OUTPUT' CMD, BUT YOU WILL GET PROPER     *   FILE 300
//*                       CARRIAGE CONTROL.  SEE DOCUMENTATION      *   FILE 300
//*                       IN THE CODE FOR ALL THE FINE POINTS.      *   FILE 300
//*                                                                 *   FILE 300
//*       PLIF      TY -  PL/1 F LEVEL PROMPTER.  HAVE NOT TRIED    *   FILE 300
//*                       IT BECAUSE WE DO NOT RUN PL/1 F.  SO      *   FILE 300
//*                       YOU ARE ON YOUR OWN.                      *   FILE 300
//*                                                                 *   FILE 300
//*       POF       3  -  TSO CMD TO LET YOU DO VTAM COMMANDS FROM  *   FILE 300
//*                       YOUR TSO TERMINAL.  BRIAN SCOTT, US POST  *   FILE 300
//*                       SERVICE, TOPEKA, KS. SENT ME THIS ONE.    *   FILE 300
//*                       VERY EASY TO INSTALL.  SEE CODE FOR SOME  *   FILE 300
//*                       AUTHORITY CHECKING AND PASSWORD FOR THE   *   FILE 300
//*                       VTAM ACB.  HE GOT FROM FEDERAL EXPRESS.   *   FILE 300
//*                                                                 *   FILE 300
//*       PPXIT     1Y -  TEST YOUR PREPROMPT EXIT (IKJEFLD) WITH   *   FILE 300
//*                       THIS ROUTINE LOGON JUST AS IF YOU WOULD   *   FILE 300
//*                       LOGON ORDINARILY, EXCEPT INSTEAD OF       *   FILE 300
//*                       'LOGON USER' YOU SAY 'PPXIT USER'.  IT    *   FILE 300
//*                       WILL GIVE YOU ALL THE MSGS AND IF YOU     *   FILE 300
//*                       ABEND, AUTOMATICALLY GO INTO TEST FOR     *   FILE 300
//*                       DEBUGGING.  SEE COMMENTS IN CODE.         *   FILE 300
//*                                                                 *   FILE 300
//*       PRINTOFF  3X -  AFDSC MODIFIED CMD.  HAS 'ASA' ADDED TO   *   FILE 300
//*                       ALLOW PRTER TO USE 'ASA' CARRIAGE         *   FILE 300
//*                       CONTROL EVEN IF IT WAS NOT IN THE DCB OF  *   FILE 300
//*                       THE FILE TO BE PRINTED, HAS THE 'GTE'     *   FILE 300
//*                       MODS FOR FCB SUPPORT, ETC.  CORRECTED 7   *   FILE 300
//*                       CHAR DEST CODE LIMIT.  FIXED THE          *   FILE 300
//*                       LIMITATION OF ONLY HAVING 7 CHARACTER     *   FILE 300
//*                       DESTID'S FOR JES2.  NOT COOL, BOOK SAYS   *   FILE 300
//*                       YOU CAN HAVE 8 CHARACTERS.                *   FILE 300
//*                                                                 *   FILE 300
//*       PUNCH     1  -  PUNCH A CARD DECK.  HAS THE OPTION TO     *   FILE 300
//*                       HOLD THE OUTPUT FOR REVIEW BEFORE YOU     *   FILE 300
//*                       LET IT GO TO BE PUNCHED.                  *   FILE 300
//*                                                                 *   FILE 300
//*       QCB       1Y -  REPLACEMENT FOR WHOHAS CMD.  MORE         *   FILE 300
//*                       POWERFUL MAY NEED TO BE REWORKED FOR      *   FILE 300
//*                       MVS/SP1.3.                                *   FILE 300
//*                                                                 *   FILE 300
//*       QLIST     1X -  AFDSC DEVELOPED COMMAND TO DO MOST OF     *   FILE 300
//*                       ALL THE IBM TSO DATA UTIL 'LIST' DOES     *   FILE 300
//*                       BUT IN SOME AREAS IT IS FASTER & MORE     *   FILE 300
//*                       EFFICIENT.                                *   FILE 300
//*                                                                 *   FILE 300
//*       RACFALT   1Y -  THIS PROGRAM FROM MIKE LOOS, FAIR, ISAAC  *   FILE 300
//*                       AND CO.  IT WILL GENERATE A CLIST TO      *   FILE 300
//*                       CHANGE THE VOLUME SERIAL NUMBERS IN RACF  *   FILE 300
//*                       PROFILES OF ALL NONVSAM DATASETS ON A     *   FILE 300
//*                       SPECIFIC VOLUME.                          *   FILE 300
//*                                                                 *   FILE 300
//*       RACFCLST  1Y -  PROGRAM IS FROM MIKE LOOS, FAIR, ISAAC    *   FILE 300
//*                       AND CO.  IT WILL GENERATE A CLIST TO      *   FILE 300
//*                       REDEFINE (VIA RACF CMDS DELSD, ADDSD,     *   FILE 300
//*                       AND PERMIT) FOR ALL DATASETS ON A         *   FILE 300
//*                       SPECIFIED VOLUME.  DUE TO USE OF RACF     *   FILE 300
//*                       INTERNAL MACROS THIS PROGRAM MUST BE      *   FILE 300
//*                       RUN AUTHORIZED.  IF SYSIN IS PRESENT,     *   FILE 300
//*                       YOU CAN INCLUDE CMDS TO SELECT BY DSN     *   FILE 300
//*                       GROUP ON A VOLUME AND/OR DATASET NAME     *   FILE 300
//*                       WITH OR WITHOUT VOLUME SPECIFICATION.     *   FILE 300
//*                       WARNING:  IF SYSIN IS PRESENT AND         *   FILE 300
//*                       DUMMIED OUT OR EMPTY THEN A NULL CLIST    *   FILE 300
//*                       WILL BE CREATED.                          *   FILE 300
//*                                                                 *   FILE 300
//*       REVIEW    6Y -  FULL SCREEN BROWSE, 3270 TYPE             *   FILE 300
//*                       TERMINALS.  RESEMBLANCE TO ISPF BROWSE    *   FILE 300
//*                       IS PURELY A CHANCE OF FATE.  ARE SOME     *   FILE 300
//*                       BUGS IF YOU TRY TO BROWSE SMF FILES       *   FILE 300
//*                       (VARIABLE LENGTH RECS) BUT SHOULD BE      *   FILE 300
//*                       FINE FOR SANE THINGS LIKE PDS'S AND       *   FILE 300
//*                       SOURCE.  SMF CODE HAS BEEN EXPANDED       *   FILE 300
//*                       AND 'FINDSMF' SUBCMD ADDED.               *   FILE 300
//*                 (THIS ONE IS OLD - USE "REVIEW" FROM FILE 134.) *   FILE 300
//*                                                                 *   FILE 300
//*       REVSMF    1Y -  SUBROUTINE NEEDED BY REVIEW WHEN          *   FILE 300
//*                       LOOKING AT SMFDATA.                       *   FILE 300
//*                 (THIS ONE IS OLD - USE "REVSMF" FROM FILE 134.) *   FILE 300
//*                                                                 *   FILE 300
//*       RLSE      3  -  AFDSC MODIFIED CMD.  RELEASE SPACE OUT    *   FILE 300
//*                       OF A PDS OR SEQ FILE.  PREVIOUS VERSIONS  *   FILE 300
//*                       RELEASED ALL THE SPACE.  OURS WILL ALLOW  *   FILE 300
//*                       YOU TO RELEASE DOWN TO PRIMARY EXTENT OR  *   FILE 300
//*                       OR SPECIFY THE AMOUNT TO BE RELEASED.     *   FILE 300
//*                                                                 *   FILE 300
//*       SAFECOPY  1  -  GTELABS COPY CMD, ENABLES SEVERAL USERS   *   FILE 300
//*                       TO UPDATE SAME DSN SIMULTANEOUSLY,        *   FILE 300
//*                       WITHOUT CONFLICT WITH EACH OTHER OR WITH  *   FILE 300
//*                       USERS WHO ARE READING DSN.  SAFECOPY IS   *   FILE 300
//*                       USEFUL IN CLISTS THAT WRITE TO A COMMON   *   FILE 300
//*                       DSN.                                      *   FILE 300
//*                                                                 *   FILE 300
//*       SCRATCH   TY -  SCRATCH A DSN AND NOT GO THROUGH CATALOG. *   FILE 300
//*                                                                 *   FILE 300
//*       SHELP     1X -  OBTAIN SUB-COMMAND HELPS FOR CMDS WITHOUT *   FILE 300
//*                       ACTUALLY BEING IN THAT COMMAND.           *   FILE 300
//*                                                                 *   FILE 300
//*       SHOWDS    4X -  BILL GODFREY:  DISPLAYS THE DATASET       *   FILE 300
//*                       ATTRIBUTES AND SPACE ALLOCATION.          *   FILE 300
//*                                                                 *   FILE 300
//*       SHOWSPC   1X -  SHOW THE SPACE ALLOCATION FOR DATASETS    *   FILE 300
//*                       ON A DISK.  CAN MASK FOR THE NAMES.       *   FILE 300
//*                       LOOK AT IT FOR ALL CAPABILITIES.          *   FILE 300
//*                                                                 *   FILE 300
//*       SHOWSS    2X -  DISPLAYS SUBSYSTEM VECTOR TABLE AND SEE   *   FILE 300
//*                       SUBSYSTEMS CURRENTLY ACTIVE.  OPTIONALLY  *   FILE 300
//*                       CAN RESET THE ADDRESS TO ZEROES IN CASE   *   FILE 300
//*                       SUBSYSTEM HAS ABENDED AND HAS NOT RESET   *   FILE 300
//*                       ADDRESS TO ZEROES.  IF ZERO CAPABILITY    *   FILE 300
//*                       IS USED THEN YOU MUST BE AUTHORIZED.      *   FILE 300
//*                                                                 *   FILE 300
//*       SOLICIT   1  -  MAKE YOUR 3270 TYPE TERMINAL LOOK LIKE    *   FILE 300
//*                       IT WAS LOGGED OFF AND BACK TO 'NETSOL'.   *   FILE 300
//*                       THINK OF YOUR OWN USES FOR THIS ONE.      *   FILE 300
//*                                                                 *   FILE 300
//*       SORTLNK   1X -  FRONT-END FOR SORT FROM TSO.  KEEPS FROM  *   FILE 300
//*                       GIVING SECURITY ACCESS FOR TSO CALL IF    *   FILE 300
//*                       SORT IS IN THE LINKLIST.                  *   FILE 300
//*                                                                 *   FILE 300
//*       SPFCOPY   1X -  INVOKER OF IEBCOPY INTERACTIVELY UNDER    *   FILE 300
//*                       'ISPF' MENU 3.1 IEBCOPY MUST BE           *   FILE 300
//*                       AUTHORIZED AND SPF IS NOT. (PROBLEMS)     *   FILE 300
//*                       THIS GIZMO GETS THE AUTHORIZATION THRU    *   FILE 300
//*                       THE SPFSVC.                               *   FILE 300
//*                                                                 *   FILE 300
//*       SPFSVC    1  -  SVC TO ALLOW ISPF/PDF MENU 3.1 COMPRESS.  *   FILE 300
//*                                                                 *   FILE 300
//*       SPZAP     1  -  TSO CP TO INVOKE 'AMASPZAP'               *   FILE 300
//*                                                                 *   FILE 300
//*       SUBMITX   2Y -  SUB FROM TSO JOB TO SECONDARY JES2.       *   FILE 300
//*                       IBM SAYS YOU CAN'T DO IT.  BILL           *   FILE 300
//*                       GODFREY, PRC CORP HAS IT WORKING.         *   FILE 300
//*                       INCLUDED IN THIS CMD ARE ALIASES OF       *   FILE 300
//*                       OUTPUTX, STATUSX, AND CANCELX.  READ      *   FILE 300
//*                       COMMENTS IN THE BEGINNING OF CODE FOR     *   FILE 300
//*                       SOME POINTS OF INTEREST.  SEE SRC FILE    *   FILE 300
//*                       FOR MEMBER JESXRDR FOR SUBMITING FROM     *   FILE 300
//*                       AN INTRDR TO A SECONDARY JES2.  ALL       *   FILE 300
//*                       NEEDS SOME REFINEMENT BUT IT WORKS SO     *   FILE 300
//*                       FAR.  IN MVS/XA THIS PROBABLY DOES NOT    *   FILE 300
//*                       WORK.                                     *   FILE 300
//*                                                                 *   FILE 300
//*       SYSDSN    1  -  GTELABS CMD LIST NAMES OF EVERYONE        *   FILE 300
//*                       WHO HAS A DSN ALLOCATED, OR IS WAITING    *   FILE 300
//*                       FOR ALLOC.  VERY USEFUL AFTER 'DATASET    *   FILE 300
//*                       IN USE' AND 'WAITING FOR DATASETS' MSGS.  *   FILE 300
//*                                                                 *   FILE 300
//*       SYSID     1X -  GETS MVS CONTROL BLK INTO ISPF VARIABLE,  *   FILE 300
//*                       CAN BE USED IN ISPF DIALOG.  DONE IN ALC. *   FILE 300
//*                       IS CODED 'REENTRANT'!  YOU WILL SEE HOW.  *   FILE 300
//*                                                                 *   FILE 300
//*       SYSOUT99  1  -  SUBPROGRAM.  ALLOCATES A SYSOUT DATASET.  *   FILE 300
//*                                                                 *   FILE 300
//*       SYSTEM    3X -  DISPLAY THE SYSTEM RELEASE, CPU ID,       *   FILE 300
//*                       MAIN STORAGE AMOUNT ONLINE & SYSTEM       *   FILE 300
//*                       IPL'D & IF RUNNING AS VM GUEST.           *   FILE 300
//*                                                                 *   FILE 300
//*       S99DAIR   1  -  SUBPROGRAM.  ENHANCED VERSION OF IKJDAIR  *   FILE 300
//*                       FOR ALLOCATING '0008' (DSNAME),           *   FILE 300
//*                       '001C' (TERMINAL), AND '0030' (SYSOUT).   *   FILE 300
//*                                                                 *   FILE 300
//*       TPRINT    1Y -  DISPLAYS A MSG FROM A CLIST AT A          *   FILE 300
//*                       TERMINAL.  OBSOLETE IN MVS TSO BUT        *   FILE 300
//*                       WORKS AND IS FAST.                        *   FILE 300
//*                                                                 *   FILE 300
//*       TO        1X -  SHORTHAND FOR DOING TSO SEND CMD.  DON'T  *   FILE 300
//*                       HAVE TO WORRY ABOUT QUOTES.  EX AS        *   FILE 300
//*                       FOLLOWS:                                  *   FILE 300
//*                         TO TSOUSER WE AIN'T DUMMIES, LET'S QUIT *   FILE 300
//*                                                                 *   FILE 300
//*       TSOEXEC   1  -  USE THIS RYO VERSION OF TSOEXEC IF YOU DO *   FILE 300
//*                       NOT HAVE TSO/E R2.  THANKS TO PAUL BANKS, *   FILE 300
//*                       ALLERGAN PHARMACEUTICALS IN IRVINE, CA    *   FILE 300
//*                                                                 *   FILE 300
//*       UADS      1  -  LIST A UADS ENTRY LEAVING OUT PASSWORD.   *   FILE 300
//*                       GOOD FOR TECH SUPPORT PEOPLE.             *   FILE 300
//*                       NOTE:  MUST BE ABLE TO HAVE               *   FILE 300
//*                       'SYS1.UADS' ALLOCATION PRIVILEGES THOUGH. *   FILE 300
//*                                                                 *   FILE 300
//*       UADS@     1  -  MACRO NEEDED FOR ASSEMBLY OF UADS.        *   FILE 300
//*                                                                 *   FILE 300
//*       UCBSCAN   2X -  NEAT CODE LOOKING AT MVS/XA UCB, GOOD     *   FILE 300
//*                       EXAMPLES HOW TO LOOK AT UCB/CHPIDS/PATHS  *   FILE 300
//*                       AND OTHER GOOD THINGS.  CAME FROM MARK    *   FILE 300
//*                       V. HEDGES.                                *   FILE 300
//*                                                                 *   FILE 300
//*       UNITS     1  -  TSO CMD SHOWS UNIT NAMES IN DEVICE NAME   *   FILE 300
//*                       TABLE, CHANNEL-UNIT-ADDR ASSOCIATED WITH  *   FILE 300
//*                       EACH UNIT NAME. LOOK IN THE CODE FOR SOME *   FILE 300
//*                       AUTH CHECKING AND DISABLE IN YOUR SHOP.   *   FILE 300
//*                 (MVS/XA, MVS/ESA 3 VERSION FROM MORRIS KARLIN)  *   FILE 300
//*                                                                 *   FILE 300
//*        (THERE ARE SEVERAL VERSIONS OF THE UNITS COMMAND HERE.   *   FILE 300
//*          UNITSOLD IS FOR MVS/370 SYSTEMS.  UNITS IS FOR XA      *   FILE 300
//*          THRU ESA 4 WITHOUT DYNAMIC UCB'S.  UNITS4 IS FOR       *   FILE 300
//*          ESA 4.1 AND ABOVE WITH DYNAMIC UCB SUPPORT.  UNITS5    *   FILE 300
//*          IS FOR ESA 5.1 AND ABOVE WITH 4-DIGIT DEVICE NUMBER    *   FILE 300
//*          SUPPORT.)   (UNITS4 AND UNITS5 FROM STEVE SMITH.)      *   FILE 300
//*                                                                 *   FILE 300
//*       VSFORT    1X -  VS/FORTRAN PROMPTER FROM JOHN SILL OF     *   FILE 300
//*                       'CHICAGO BRIDGE & IRON' (HE IS NOT IN     *   FILE 300
//*                       CHICAGO, DOESN'T BUILD BRIDGES, AND DON'T *   FILE 300
//*                       WORK WITH IRON).  THANKS JOHN !!!!!!!!!!  *   FILE 300
//*                                                                 *   FILE 300
//*       VTOC      1  -  ONE OF THE SLICKEST CMDS FOR FINDING OUT  *   FILE 300
//*                       WHAT IS ON A DISK.  LOOK AT THE HELP FOR  *   FILE 300
//*                       THE COMPLETE INFORMATION.                 *   FILE 300
//*                                                                 *   FILE 300
//*       WHATIF    2  -  ALLOWS CONDITIONAL EXECUTION OF           *   FILE 300
//*                       TSOCMD FROM A CLIST BASED ON ANY OF       *   FILE 300
//*                          THE COMBINATIONS:                      *   FILE 300
//*                       1. WHETHER A FILE IS ALLOCATED.           *   FILE 300
//*                       2. WHETHER A FILE IS ALLOCATED TO A       *   FILE 300
//*                          SPECIFIC FILE NAME                     *   FILE 300
//*                       3. WHETHER A FILE IS CATALOGED.           *   FILE 300
//*                       4. WHETHER TWO STRINGS BEAR A SPECIFIED   *   FILE 300
//*                          RELATION TO EACH OTHER.                *   FILE 300
//*                                                                 *   FILE 300
//*       WHOHAS    2Y -  AFDSC MODIFIED AND CORRECTED.             *   FILE 300
//*                       DISCOVERED BUG, DID NOT SHOW THE ENQ      *   FILE 300
//*                       CHAIN PROPERLY.  IT STOPPED AFTER THE     *   FILE 300
//*                       1ST OCCURENCE OF DISP=OLD.  WILL SHOW     *   FILE 300
//*                       'WHOHAS' FILE ALLOCATED & THE ENQ CHAIN.  *   FILE 300
//*                                                                 *   FILE 300
//*       WTC       2X -  EVER SEND MSG TO OPERATOR WITH SEND AND   *   FILE 300
//*                       THEY CLAIM IT NEVER CAME (ROLLED OFF      *   FILE 300
//*                       THE SCREEN).  NOW SEND THE MSG AND RING   *   FILE 300
//*                       THE CONSOLE ALARM, HIGHLIGHT THE MSG,     *   FILE 300
//*                       AND MAKE IT NON-ROLLABLE !!!!!!!!!        *   FILE 300
//*                                                                 *   FILE 300
//***FILE 301 IS FROM MIKE CLEARY OF BERGEN BRUNSWIG IN CALIFORNIA  *   FILE 301
//*           AND CONTAINS A VERSION OF THE CDSCB (CHANGE THE DSCB) *   FILE 301
//*           TSO COMMAND PROCESSOR PROGRAM FROM FILE 300, WHICH    *   FILE 301
//*           USES SAF FOR ITS SECURITY CHECKING.  IN ORDER TO BE   *   FILE 301
//*           ABLE TO CHANGE ATTRIBUTES OF A DATASET, YOU HAVE TO   *   FILE 301
//*           HAVE ALTER ACCESS TO IT, THE WAY THIS COMMAND IS      *   FILE 301
//*           WRITTEN.  OF COURSE, IF YOUR SHOP HAS DIFFERENT       *   FILE 301
//*           REQUIREMENTS, YOU CAN CHANGE THE CODE, BUT THIS       *   FILE 301
//*           VERSION SHOWS YOU HOW TO FIT THE RACF OR SAF CHECKING *   FILE 301
//*           IN.                                                   *   FILE 301
//*                                                                 *   FILE 301
//*           I HAVE DELIBERATELY LEFT THE OTHER CDSCB CODE IN      *   FILE 301
//*           FILE 300, UNCHANGED, BECAUSE SOME PEOPLE STILL WANT   *   FILE 301
//*           TO GRANT AUTHORIZATION BY HARD-CODED USERID, AND      *   FILE 301
//*           IF YOU'RE SO AUTHORIZED, PERMIT ALTERATION OF ALL     *   FILE 301
//*           DATASETS.  (SG 11/97)                                 *   FILE 301
//*                                                                 *   FILE 301
//***FILE 302 is from Michael Cleary and contains a program to      *   FILE 302
//*           show a lot of information about LPA-loaded programs   *   FILE 302
//*           and Link List programs.                               *   FILE 302
//*                                                                 *   FILE 302
//*     Description:   LPALNK ISPF Interface                        *   FILE 302
//*                                                                 *   FILE 302
//*     Function:      Provides interactive analysis of the         *   FILE 302
//*                    Link Pack Area (LPA), Link Pack Area         *   FILE 302
//*                    Library List (LPALST), Link Library List     *   FILE 302
//*                    (LNKLST).  Major functions include           *   FILE 302
//*                    Dataset Attributes, Modules, Duplicate       *   FILE 302
//*                    Modules and Products.                        *   FILE 302
//*                                                                 *   FILE 302
//*     Contact:       Michael J. Cleary                            *   FILE 302
//*                    Mainframe Technical Services                 *   FILE 302
//*                    Bergen Brunswig                              *   FILE 302
//*                    4000 Metropolitan Drive                      *   FILE 302
//*                    Orange, California  92868                    *   FILE 302
//*                    Voice:  714.385.4052                         *   FILE 302
//*                    Fax     714.704.7052                         *   FILE 302
//*                    Email:  mike.cleary@bergenbrunswig.com       *   FILE 302
//*                                                                 *   FILE 302
//***FILE 303 IS FROM ALEX BRODSKY AND CONTAINS A VERSION OF        *   FILE 303
//*           SIMTERM WHICH RUNS UNDER OS/390.  SIMTERM IS A TSO    *   FILE 303
//*           COMMAND PROCESSOR PROGRAM WHICH ALLOWS ACCESS TO      *   FILE 303
//*           OTHER VTAM APPLICATIONS THROUGH YOUR TSO SESSION.     *   FILE 303
//*                                                                 *   FILE 303
//***FILE 304 IS THE LSTVOL PROGRAM FROM BRUCE HOGMAN, WHICH LISTS  *   FILE 304
//*           THE CONTENTS OF DASD VOLUMES.                         *   FILE 304
//*                                                                 *   FILE 304
//*    EMAIL:  HSQTC01.BHOGMA01@EDS.COM  <-- MY DESKTOP             *   FILE 304
//*    ALSO :  BRUCE.HOGMAN@TRAVEL.EDS.COM  <- A SECOND DESKTOP     *   FILE 304
//*    PERSONAL:  72050.1327@COMPUSERVE.COM                         *   FILE 304
//*    PHONE:  954-433-6726                                         *   FILE 304
//*                                                                 *   FILE 304
//*    WEB SITE WITH SOURCE CODE:                                   *   FILE 304
//*    WWW.GEOCITIES.COM/SILICONVALLEY/HEIGHTS/3836                 *   FILE 304
//*                                                                 *   FILE 304
//***FILE 305 IS AN ASSEMBLY AND LINKEDIT LISTING FOR THE LSTVOL    *   FILE 305
//*           PROGRAM IN FILE 304.  THIS FILE IS IN IEBCOPY FORMAT  *   FILE 305
//*           AS A MEMBER IN A PDS.                                 *   FILE 305
//*                                                                 *   FILE 305
//***FILE 306 IS THE TIME SHARING SUBSYSTEM FROM THE U.S. AIR FORCE *   FILE 306
//*          IN WASHINGTON, D.C.  THIS SET OF PROGRAMS ALLOWS ONE   *   FILE 306
//*          TO BRING UP A TSO-LIKE FUNCTION WHEN DISASTER HAS      *   FILE 306
//*          STRUCK (OR WHENEVER ELSE YOU WOULD LIKE TO).  THIS     *   FILE 306
//*          SUBSYSTEM ALLOWS MOST TSO COMMANDS TO BE EXECUTED      *   FILE 306
//*          FROM AN OPERATOR'S CONSOLE.  OUTPUT FROM COMMANDS      *   FILE 306
//*          THAT USE 'PUTLINE' WILL BE SENT TO THE CONSOLE FROM    *   FILE 306
//*          WHICH THE COMMAND WAS ENTERED.  OUTPUT FROM COMMANDS   *   FILE 306
//*          THAT USE 'TPUT' OR ACCESS METHODS WILL NOT APPEAR      *   FILE 306
//*          ON THE CONSOLE.                                        *   FILE 306
//*                                                                 *   FILE 306
//*          THIS VERSION OF TSSO WAS WRITTEN BY BILL GODFREY.      *   FILE 306
//*          BILL'S PHONE NUMBER IS (301) 763-8338.                 *   FILE 306
//*                                                                 *   FILE 306
//*          email:  bgodfrey@ssdnotes.wwb.noaa.gov                 *   FILE 306
//*                                                                 *   FILE 306
//*          THIS FILE WAS SUBMITTED TO THE CBT TAPE BY CAPTAIN     *   FILE 306
//*          JAMES D. MARSHALL OF THE US AIR FORCE, RETIRED.        *   FILE 306
//*                                                                 *   FILE 306
//*          JIM HAS RETIRED FROM THE AIR FORCE.  HIS PHONE NO IS:  *   FILE 306
//*                                                                 *   FILE 306
//*                      1-202-874-8353                             *   FILE 306
//*                                                                 *   FILE 306
//*          THIS CODE IS NOT THE LATEST VERSION OF TSSO.  IT IS    *   FILE 306
//*          BILL GODFREY'S ORIGINAL VERSION.  THE PREFERRED        *   FILE 306
//*          VERSION FOR AN INSTALLATION TO INSTALL IS ON FILE      *   FILE 306
//*          403 FROM BELLCORE, MODIFIED BY DAVE CARTWRIGHT         *   FILE 306
//*          AND GUY ALBERTELLI.     (SG - 1/11/94)                 *   FILE 306
//*                                                                 *   FILE 306
//***FILE 307 IS FROM GREG SMITH OF LOCKHEED MARTIN AT THE US EPA   *   FILE 307
//*           NATIONAL COMPUTER CENTER, AND IS A PROGRAM CALLED     *   FILE 307
//*           IEV90, WHICH INVOKES THE HIGH LEVEL ASSEMBLER ASMA90  *   FILE 307
//*           WHENEVER SOMEONE WANTS TO RUN THE ASSEMBLER, AND      *   FILE 307
//*           USES EXEC PGM=IEV90.  THIS PROGRAM DOES A PARM CHANGE *   FILE 307
//*           AUTOMATICALLY.                                        *   FILE 307
//*                                                                 *   FILE 307
//***FILE 308 IS FROM ALAN FIELD OF SUPERVALU IN EDEN PRAIRIE,      *   FILE 308
//*           MINNESOTA, AND CONSISTS OF A CONSOLE ZAP, SO THE      *   FILE 308
//*           CURRENT SYSTEM LEVEL, ETC, APPEARS AT THE BOTTOM      *   FILE 308
//*           OF THE OPERATOR CONSOLE.  FOR OS/390.                 *   FILE 308
//*                                                                 *   FILE 308
//*           email:   alan.field@supervalu.com                     *   FILE 308
//*                                                                 *   FILE 308
//*           HERE IS A SNIPPET FROM THE CONSOLE:                   *   FILE 308
//*                                                                 *   FILE 308
//*                                   SYS3D.BOOLE.T2BADATA.BKP      *   FILE 308
//*            00  08.30.47 JOB31326  TMS014  IEF234E K 03E6        *   FILE 308
//*            IEE612I CN=SVT2MSTR DEVNUM=0016 SYS=SVT2             *   FILE 308
//*                                                                 *   FILE 308
//*                                                                 *   FILE 308
//*            IEE163I MODE= RD-HNR401/0996-SP6.0.4                 *   FILE 308
//*                                                                 *   FILE 308
//***FILE 309 IS SOURCE CODE FOR THE OS/360 ALGOL COMPILER WHICH    *   FILE 309
//*           IS IN LOAD MODULE FORM ON FILE 176.  THIS COMES FROM  *   FILE 309
//*           THE OS/360 SOURCE TAPES FROM IBM WHICH ARE PUBLIC     *   FILE 309
//*           DOMAIN.                                               *   FILE 309
//*                                                                 *   FILE 309
//***FILE 310 IS SOURCE CODE FOR THE OS/360 ALGOL RUN TIME LIBRARY  *   FILE 310
//*           WHICH IS IN LOAD MODULE FORM ON FILE 176.  THIS       *   FILE 310
//*           COMES FROM THE OS/360 SOURCE TAPES FROM IBM WHICH     *   FILE 310
//*           ARE PUBLIC DOMAIN.                                    *   FILE 310
//*                                                                 *   FILE 310
//***FILE 311 IS FROM DAVE ALCOCK AND CONTAINS HIS LARGE            *   FILE 311
//*           COLLECTION OF UTILITIES.                              *   FILE 311
//*                                                                 *   FILE 311
//*           Dave Alcock can be reached at his email               *   FILE 311
//*           addresses:   David Alcock <davea@ticnet.com> (home)   *   FILE 311
//*                        dalcock@csw.com   (work)                 *   FILE 311
//*                                                                 *   FILE 311
//*     UPDATES OF THE CONTENTS OF THE CBT FILE MAY ALSO            *   FILE 311
//*     BE POSTED TO THIS URL ON THE INTERNET:                      *   FILE 311
//*                                                                 *   FILE 311
//*        HTTP://WWW.TICNET.COM/DAVEA/MVS                          *   FILE 311
//*                                                                 *   FILE 311
//*                       C O N T E N T S                           *   FILE 311
//*                       ===============                           *   FILE 311
//*                                                                 *   FILE 311
//*     MEMBER    FILE TYPE   DESCRIPTION                           *   FILE 311
//*     --------  ----------  -----------                           *   FILE 311
//*     $$README  TEXT        THIS FILE YOU ARE READING NOW.        *   FILE 311
//*                                                                 *   FILE 311
//*     CBT$XREF  TEXT        FIRST ATTEMPT AT CREATING A CBT       *   FILE 311
//*                           TAPE CROSS REFERENCE UTILITY.         *   FILE 311
//*                           THIS VERSION CREATES MVS/QUICKREF     *   FILE 311
//*                           USER DATABASE ENTRIES.  AS IT IS      *   FILE 311
//*                           TODAY, IT ISN'T ALL THAT USEFUL       *   FILE 311
//*                           YET.                                  *   FILE 311
//*                                                                 *   FILE 311
//*     CLIPBRD   PDS UNLOAD  THIS IS A SMALL ISPF APPLICATION      *   FILE 311
//*                           THAT CAN BE USED TO PASTE DATA        *   FILE 311
//*                           THAT IS WIDER AND HIGHER THAN THE     *   FILE 311
//*                           ISPF EDIT SCREEN.                     *   FILE 311
//*                                                                 *   FILE 311
//*     DIVER     PDS UNLOAD  A VERY USELESS BUT FUN ISPF           *   FILE 311
//*                           APPLICATION OF AN ANIMATED STICK      *   FILE 311
//*                           FIGURE KNOWN AS MR. ASCII DIVING      *   FILE 311
//*                           INTO A POOL.                          *   FILE 311
//*                                                                 *   FILE 311
//*     DASRC     PDS UNLOAD  A COLLECTION OF MOSTLY BATCH          *   FILE 311
//*                           UTILITY THAT I HAVE WRITTEN OVER      *   FILE 311
//*                           THE YEARS. RECOMMEND PUTTING IN A     *   FILE 311
//*                           DATASET WITH NAME                     *   FILE 311
//*                           "IBMUSER.DA.SOURCE".                  *   FILE 311
//*                                                                 *   FILE 311
//*     DASRCV    XMIT        ADDITIONS TO THE DASRC FILE IN        *   FILE 311
//*                           LRECL > 80 RECFM=VB.  RECOMMEND       *   FILE 311
//*                           PUTTING IN A DATASET WITH NAME        *   FILE 311
//*                           "IBMUSER.DA.SOURCEV".                 *   FILE 311
//*                                                                 *   FILE 311
//*     IMGCOPY   TEXT        REXX EXEC THAT COPIES ALL BYTES       *   FILE 311
//*                           FROM THE SYSUT1 FILE TO SYSUT2        *   FILE 311
//*                           WHEN THE CONCEPT OF RECORDS IS        *   FILE 311
//*                           NOT RELEVANT.  GOOD FOR COPYING       *   FILE 311
//*                           .GIF AND .ZIP FILES AROUND ON A       *   FILE 311
//*                           MAINFRAME.                            *   FILE 311
//*                                                                 *   FILE 311
//*     IMGINFO   TEXT        REXX EXEC THAT SHOWS THE SIZE OF      *   FILE 311
//*                           GIF AND JPG FILES IN A FORMAT         *   FILE 311
//*                           SUITABLE FOR WEB PAGES.               *   FILE 311
//*                                                                 *   FILE 311
//*     ISPFVAR   TEXT        REXX EXEC THAT SHOWS ALL OF THE       *   FILE 311
//*                           IBM SUPPLIED ISPF VARIABLES           *   FILE 311
//*                           (ALL/MOST VARS UP TO ISPF 3.5)        *   FILE 311
//*                                                                 *   FILE 311
//*     ISPF34L   TEXT        REXX EXEC THAT CREATES UTILITY        *   FILE 311
//*                           CARDS, JOB STREAMS FROM DATA SET      *   FILE 311
//*                           LISTS FROM ISPF 3.4. IT DOES NOT      *   FILE 311
//*                           HANDLE THE WHOLE VOLUME LISTING       *   FILE 311
//*                           VERY WELL (AS I JUST FOUND OUT        *   FILE 311
//*                           TODAY).  IT WORKS BEST ON LISTINGS    *   FILE 311
//*                           FROM A GIVEN HLQ.                     *   FILE 311
//*                                                                 *   FILE 311
//*     ISGECMOM  PDS UNLOAD  AN (SLIGHT) ENHANCEMENT TO IBM'S      *   FILE 311
//*                           SAMPLE ISGECMON                       *   FILE 311
//*                                                                 *   FILE 311
//*     JES2EXIT  PDS UNLOAD  EDITED VERSIONS OF MY JES2 EXITS      *   FILE 311
//*                                                                 *   FILE 311
//*     MVSVAR    TEXT        REXX EXEC THAT SHOWS ALL OF THE       *   FILE 311
//*                           IBM SUPPLIED MVSVAR() FUNCTION        *   FILE 311
//*                           VARIABLES (TSO/E 2.5 OR HIGHER)       *   FILE 311
//*                                                                 *   FILE 311
//*     PROGXX    PDS UNLOAD  ISPF EDIT MACRO THAT VERIFIES THE     *   FILE 311
//*                           APF ENTRIES IN THE SYS1.PARMLIB       *   FILE 311
//*                           PROGXX MEMBER.                        *   FILE 311
//*                                                                 *   FILE 311
//*     SASGIF1   TEXT        SAMPLE JOBSTREAM THAT CREATES A       *   FILE 311
//*                           .GIF FILE USING SAS.                  *   FILE 311
//*                                                                 *   FILE 311
//*     SASGIF2   TEXT        SAMPLE JOBSTREAM THAT CREATES A       *   FILE 311
//*                           .GIF FILE (WITH A TRANSPARENT         *   FILE 311
//*                           BACKGROUND) USING SAS.                *   FILE 311
//*                                                                 *   FILE 311
//*     SMFEXIT   PDS UNLOAD  EDITED VERSIONS OF MY SMF EXITS       *   FILE 311
//*                                                                 *   FILE 311
//*     SMPEPP    PDS UNLOAD  REXX EXEC THAT PROCESSES YOUR         *   FILE 311
//*                           SMP/E APPLY CHECK OUTPUT FOR PTFS     *   FILE 311
//*                           BYPASSED DUE TO ACTION, HOLD,         *   FILE 311
//*                           DOC, ETC.  A LIST IS PRESENTED        *   FILE 311
//*                           THAT MAKES VIEWING OF THE HOLD        *   FILE 311
//*                           TEXT AN EASY TASK.                    *   FILE 311
//*                                                                 *   FILE 311
//*     SHOWMRO   TEXT        ASSEMBLER PROGRAM THAT SHOWS THE      *   FILE 311
//*                           CURRENTLY ACTIVE CICS MRO REGIONS     *   FILE 311
//*                           VIA TSO TPUTS.                        *   FILE 311
//*                                                                 *   FILE 311
//*     SHOWSYM   PDS UNLOAD  ISPF EDIT MACRO THAT SHOWS THE        *   FILE 311
//*                           SYSTEM SUMBOLS ON YOU MVS VERSION     *   FILE 311
//*                           5 OR HIGHER                           *   FILE 311
//*                                                                 *   FILE 311
//*     SPELLCHK  PDS UNLOAD  ISPF EDIT MACRO THAT PERFORMS A       *   FILE 311
//*                           SPELL CHECK ON SELECTED LINES OR      *   FILE 311
//*                           THE WHOLE EDIT FILE.  SAS IS          *   FILE 311
//*                           NEEDED.                               *   FILE 311
//*                                                                 *   FILE 311
//*     SYSVAR    TEXT        REXX EXEC THAT SHOWS ALL OF THE       *   FILE 311
//*                           IBM SUPPLIED SYSVAR() FUNCTION        *   FILE 311
//*                           VARIABLES                             *   FILE 311
//*                                                                 *   FILE 311
//*     TOD       PDS UNLOAD  THIS PACKAGE ADDS TWO FEATURES TO     *   FILE 311
//*                           PRE-OS/390 JES2 TO SIMULATE THE       *   FILE 311
//*                           TIME OF DAY FUNCTIONS IN THE JES2     *   FILE 311
//*                           JOB LOG.                              *   FILE 311
//*                                                                 *   FILE 311
//*     VSMAP     TEXT        REXX EXEC THAT SHOWS THE VIRTUAL      *   FILE 311
//*                           STORAGE MAP.  THE SUBROUTINE IS       *   FILE 311
//*                           GOOD FOR INCLUSION IN OTHER           *   FILE 311
//*                           EXECS.                                *   FILE 311
//*                                                                 *   FILE 311
//*     XMITINFO  TEXT        REXX EXEC THAT SHOWS SOME INTERNAL    *   FILE 311
//*                           INFORMATION ABOUT A TSO XMIT FILE.    *   FILE 311
//*                           THIS EXEC IS MORE USEFUL ON A PC      *   FILE 311
//*                           WHEN TRYING TO DETERMINE IF A FILE    *   FILE 311
//*                           IS ACTUALLY A TSO XMIT FILE.  THIS    *   FILE 311
//*                           IS THE FIRST PHASE OF A PROJECT TO    *   FILE 311
//*                           CREATE A PC PROGRAM TO EXTRACT        *   FILE 311
//*                           FILES AND PDS MEMBERS FROM A TSO      *   FILE 311
//*                           XMIT FILE.  XMITINFO DOES WORK ON     *   FILE 311
//*                           TSO.                                  *   FILE 311
//*                                                                 *   FILE 311
//*     Y2K       TEXT        REXX EXEC THAT SHOWS THE NUMBER       *   FILE 311
//*                           OF DAYS LEFT UNTIL THE YEAR 2000.     *   FILE 311
//*                                                                 *   FILE 311
//*    ------------------------------------------------------------ *   FILE 311
//*                                                                 *   FILE 311
//*     SEE THE $$README FILE FOR INFORMATION ON THE FILE           *   FILE 311
//*     TYPES: TEXT, PDS UNLOAD AND TSO XMIT.                       *   FILE 311
//*                                                                 *   FILE 311
//***FILE 312 is from Lionel Dyck of Kaiser Permanente in Walnut    *   FILE 312
//*           Creek, California, and contains quite a few           *   FILE 312
//*           ISPF interface packages, and other stuff.             *   FILE 312
//*                                                                 *   FILE 312
//*    DSN=CBT426.FILE312                                           *   FILE 312
//*                                                                 *   FILE 312
//*    NAME       VER.MOD  LAST MODIFIED    INIT  ID     FORMAT     *   FILE 312
//*    $DOC        01.01 1999/07/02  9:36     16 SYSLBD  Flat File  *   FILE 312
//*    $SOFTPUB    01.00 1999/07/06 18:34     26 SYSLBD  Flat File  *   FILE 312
//*    @FILE312    01.14 2000/06/25 11:15    247 WSBG    Flat File  *   FILE 312
//*    CMDS        01.00 2000/02/16 16:27    588 SYSLBD  IEBUPDTE   *   FILE 312
//*    CUTPASTE    01.00 1999/07/06 18:40   1326 SYSLBD  TSO XMIT   *   FILE 312
//*    DOALL       01.00 2000/03/23 19:25     60 SBGOLOB REXX Exec  *   FILE 312
//*    DSLIST      01.00 2000/02/15 21:40    106 SBGOLOB REXX Exec  *   FILE 312
//*    FIXBOOKP    01.00 2000/05/05 12:18    138 WSBG    REXX Exec  *   FILE 312
//*    FTPB        01.90 2000/06/02 14:01   8325 WSBG    REXX Exec  *   FILE 312
//*    FTPBTXT     01.89 2000/05/31 16:00     17 WSBG    Flat File  *   FILE 312
//*    FTPB185#    01.00 1999/11/09 17:50     27 SBGOLOB Flat File  *   FILE 312
//*    GET         01.00 2000/02/16 16:49     88 SYSLBD  REXX Exec  *   FILE 312
//*    ISPFPRO$    01.00 2000/02/28 20:46    101 SYSLBD  Flat File  *   FILE 312
//*    ISPFPROD    01.00 2000/02/28 20:47    409 SYSLBD  REXX Exec  *   FILE 312
//*    LSTPRC      01.00 2000/06/15 11:22    266 WSBG    REXX Exec  *   FILE 312
//*    LSTPRC$     01.01 2000/06/16 16:35     10 WSBG    Flat File  *   FILE 312
//*    LSTPROC     01.00 2000/06/25 10:51    280 SYSLBD  REXX Exec  *   FILE 312
//*    LSTPROC$    01.00 2000/06/25 10:53      2 WSBG    Flat File  *   FILE 312
//*    PRINT       01.00 1999/07/02 19:03    946 SYSLBD  TSO XMIT   *   FILE 312
//*    PRMCK       01.00 2000/03/01 18:09   1337 SYSLBD  TSO XMIT   *   FILE 312
//*    PRMCK$      01.02 1999/10/18 15:30     20 SYSLBD  Flat File  *   FILE 312
//*    PRMCK#      01.00 1999/11/11 11:32      9 SYSLBD  Flat File  *   FILE 312
//*    RECEIVE     01.00 1999/07/02  9:29     21 SYSLBD  REXX Exec  *   FILE 312
//*    REXXWAIT    01.00 2000/02/16 16:59    207 SBGOLOB Assembler  *   FILE 312
//*    RNEWS       01.00 2000/06/02 14:06   3319 SYSLBD  IEBUPDTE   *   FILE 312
//*    SOFTPUB     01.00 2000/02/14  0:14  16994 SYSLBD  IEBUPDTE   *   FILE 312
//*    TMAILQRY    01.00 2000/04/05 16:34    399 SYSLBD  TSO XMIT   *   FILE 312
//*    TSOEMAIL    01.00 2000/04/13 22:28   8120 SYSLBD  TSO XMIT   *   FILE 312
//*    TSOTRAP     01.00 2000/02/16 16:55     30 SYSLBD  REXX Exec  *   FILE 312
//*    XMIT$241    02.41 1999/10/12 14:26     41 SBGOLOB Flat File  *   FILE 312
//*    XMIT$300    03.00 2000/01/06 23:16     90 SBGOLOB Flat File  *   FILE 312
//*    XMIT$310    03.10 2000/02/10 22:34     73 SBGOLOB Flat FIle  *   FILE 312
//*    XMIT@404    04.04 2000/06/08 10:34   1204 WORD97  Word 97    *   FILE 312
//*    XMITIHST    04.04 2000/06/08 10:41    275 HISTORY Flat File  *   FILE 312
//*    XMITIP      04.05 2000/06/14  8:00  11722 SYSLBD  REXX Exec  *   FILE 312
//*    XMITIP$     04.04 2000/05/31 16:00   1171 SYSLBD  Flat File  *   FILE 312
//*    XMITIP$$    04.00 2000/05/19 11:35     97 SYSLBD  Flat File  *   FILE 312
//*    XMITIP#     03.10 2000/02/10 22:34     54 SBGOLOB Flat File  *   FILE 312
//*    XMITIP@@    03.10 2000/02/10 22:39    673 SBGOLOB Flat File  *   FILE 312
//*    XMITVM      01.00 2000/03/29 10:53    205 SYSLBD  REXX Exec  *   FILE 312
//*                                                                 *   FILE 312
//*  Member $DOC - basic information                                *   FILE 312
//*         $SOFTPUB - install instructions for SOFTPUB             *   FILE 312
//*         XMITIP# - install instructions for XMITIP               *   FILE 312
//*                                                                 *   FILE 312
//* --------------------------------------------------------------- *   FILE 312
//*                                                                 *   FILE 312
//*  Member CUTPASTE - This member is in TSO XMIT format.           *   FILE 312
//*                                                                 *   FILE 312
//*     This member contains 2 REXX execs, CUT and PASTE,           *   FILE 312
//*     with ISPF panels that go together with them.                *   FILE 312
//*                                                                 *   FILE 312
//*  Member FTPB   - This member is in TSO XMIT format.             *   FILE 312
//*                                                                 *   FILE 312
//*        FTPB - The File Transfer Protocol Batch ISPF Dialog      *   FILE 312
//*                                                                 *   FILE 312
//*     This ISPF dialog provides a simple to use ISPF interface    *   FILE 312
//*     for using the TCP/IP FTP function to transfer data sets     *   FILE 312
//*     from the current MVS host system to other host systems      *   FILE 312
//*     that support a TCP/IP FTP Server (e.g.  MVS, VM, OS/2,      *   FILE 312
//*     most Unix, ...).                                            *   FILE 312
//*                                                                 *   FILE 312
//*     The dialog presents the user with a simple ISPF panel       *   FILE 312
//*     from which to specify the source (original) data set,       *   FILE 312
//*     the target host, optionally the name of the target data     *   FILE 312
//*     set if it is different from the source, and signon          *   FILE 312
//*     information (userid and password).  Once this               *   FILE 312
//*     information is complete the dialog generates the            *   FILE 312
//*     necessary JCL and FTP statements to allow the user to       *   FILE 312
//*     execute the FTP in the foreground (execpt for load          *   FILE 312
//*     library transfers) or to submit the JCL for a batch         *   FILE 312
//*     execution of FTP.  Prior to submission the user is          *   FILE 312
//*     allowed to review and change (edit) the generated JCL       *   FILE 312
//*     and FTP control statements if they desire.                  *   FILE 312
//*                                                                 *   FILE 312
//*  Member LSTPROC - REXX Exec to list PROCLIB libraries and       *   FILE 312
//*                   invoke ISRDDN.                                *   FILE 312
//*                                                                 *   FILE 312
//*  Member PRINT - This member is in TSO XMIT format.              *   FILE 312
//*                                                                 *   FILE 312
//*     This member contains 2 ISPF dialogs:                        *   FILE 312
//*                                                                 *   FILE 312
//*     LPRPRINT - used to print using the OS/390 (or MVS)          *   FILE 312
//*                TCP/IP LPR command to any system with a LPD      *   FILE 312
//*                server.  This includes intelligent printers      *   FILE 312
//*                which have LPD built-in.                         *   FILE 312
//*                                                                 *   FILE 312
//*     PSPRINT  - used to format host output for printing on a     *   FILE 312
//*                PostScript printer and then invoke LPRPRINT.     *   FILE 312
//*                Options include Portrait, Landscape, and 2UP     *   FILE 312
//*                printing.                                        *   FILE 312
//*                                                                 *   FILE 312
//*     The members of this dataset are in IEBUPDTE format.         *   FILE 312
//*                                                                 *   FILE 312
//*     $DOC     - What you are reading                             *   FILE 312
//*     EXEC     - The above 2 rexx execs which are the entry       *   FILE 312
//*                points to the dialogs                            *   FILE 312
//*     MSGS     - ISPF messages                                    *   FILE 312
//*     PANELS   - ISPF panels, including brief tutorials, for      *   FILE 312
//*                these dialogs                                    *   FILE 312
//*                                                                 *   FILE 312
//*  Member PRMCK - Check the syntax of PARMLIB members.            *   FILE 312
//*                                                                 *   FILE 312
//*     PARMLIB Check                                               *   FILE 312
//*                                                                 *   FILE 312
//*     This application consists of a REXX Exec and an ISPF        *   FILE 312
//*     Panel.  To use this you need to copy the exec (choose       *   FILE 312
//*     the FB or the VB version) into a library in your            *   FILE 312
//*     SYSPROC or SYSEXEC concatenation.  You then need to         *   FILE 312
//*     copy the panel into a library in your ISPPLIB               *   FILE 312
//*     concatenation.                                              *   FILE 312
//*                                                                 *   FILE 312
//*     Usage is to Edit the desired member of SYS1.PARMLIB         *   FILE 312
//*     and enter the command PRMCK.                                *   FILE 312
//*                                                                 *   FILE 312
//*     Syntax: PRMCK cat sysres (debug                             *   FILE 312
//*                                                                 *   FILE 312
//*     valid options are:                                          *   FILE 312
//*           ?   - will prompt for catalog and sysres              *   FILE 312
//*           cat - is a name that will be used in the master       *   FILE 312
//*                 catalog lookup (find *custom* below) and        *   FILE 312
//*                 if not found will be used as the master         *   FILE 312
//*                 catalog name (enter without quotes).            *   FILE 312
//*           sysres is the volser of the system ipl volume         *   FILE 312
//*                 to be checked when a volser of ****** is        *   FILE 312
//*                 coded.                                          *   FILE 312
//*           (debug - will turn on tracing                         *   FILE 312
//*                                                                 *   FILE 312
//*     Support for PROGxx member statements                        *   FILE 312
//*        - LNKLST                                                 *   FILE 312
//*        - APF                                                    *   FILE 312
//*        - LPA                                                    *   FILE 312
//*        - SYSLIB                                                 *   FILE 312
//*     Support for LNKLSTxx and LPALSTxx members                   *   FILE 312
//*                                                                 *   FILE 312
//*     Verification is not 100% the same as the system will        *   FILE 312
//*     perform when used but it does a fair amount of              *   FILE 312
//*     verification.  Errors and Warnings are inserted into        *   FILE 312
//*     the Edit display as non-saveable messages.                  *   FILE 312
//*                                                                 *   FILE 312
//*  Member RNEWS - This member is in IEBUPDTE SYSIN format.        *   FILE 312
//*                                                                 *   FILE 312
//*     RNEWS - The Rockwell ISPF News and Information Dialog       *   FILE 312
//*                                                                 *   FILE 312
//*     This ISPF application is designed to simplify the task      *   FILE 312
//*     of informing users about system changes, updates,           *   FILE 312
//*     enhancements, etc. each time they logon to TSO and enter    *   FILE 312
//*     ISPF. This is accomplished by a simple modification to      *   FILE 312
//*     the first ISPF menu that the user sees (ISR@PRIM if         *   FILE 312
//*     entry is via command ISPF or ISP@MSTR if entry is via       *   FILE 312
//*     ISPSTART) as documented below.                              *   FILE 312
//*                                                                 *   FILE 312
//*     Updated 5/1/97 to support ISPF 4.2.1                        *   FILE 312
//*                                                                 *   FILE 312
//*     RNEWS is entered by executing the Rexx procedure RNEWS      *   FILE 312
//*     and providing one or more of the valid parameters:          *   FILE 312
//*                                                                 *   FILE 312
//*     Syntax:   RNEWS parameters                                  *   FILE 312
//*                                                                 *   FILE 312
//*     Required Parameters:                                        *   FILE 312
//*                                                                 *   FILE 312
//*         KSYS      Defines that RNEWS will use the KSYS set      *   FILE 312
//*                   of tables, panels, and skeletons.             *   FILE 312
//*         'other'   Must be defined by the installation as        *   FILE 312
//*                   alternative to KSYS.                          *   FILE 312
//*                                                                 *   FILE 312
//*         ***  one of the above is required                       *   FILE 312
//*                                                                 *   FILE 312
//*     Optional Parameters:                                        *   FILE 312
//*         NEW       Display the news ISPF table only if new       *   FILE 312
//*                   or unread items are in the table for the      *   FILE 312
//*                   user                                          *   FILE 312
//*         DEBUG     Used to turn on REXX tracing for              *   FILE 312
//*                   debugging purposes                            *   FILE 312
//*         ADMIN     Enable the administration application         *   FILE 312
//*         TEST      Uses a test news table for testing            *   FILE 312
//*                   purposes.                                     *   FILE 312
//*         FORCE     If the table is locked by ADMIN and the       *   FILE 312
//*                   lock is obsolete (for some reason that        *   FILE 312
//*                   left the member LOCK in the news data         *   FILE 312
//*                   set) this option will override the lock       *   FILE 312
//*                   for administration purposes.                  *   FILE 312
//*                                                                 *   FILE 312
//*     See the rexx procedure for more information.                *   FILE 312
//*                                                                 *   FILE 312
//*     Updates to ISPF Panels ISR@PRIM and/or ISP@MSTR to          *   FILE 312
//*     cause this application to be invoked when the user          *   FILE 312
//*     enters ISPF.                                                *   FILE 312
//*                                                                 *   FILE 312
//*  Member SOFTPUB - This member is in IEBUPDTE SYSIN format,      *   FILE 312
//*                    with some of the resulting members in        *   FILE 312
//*                    TSO XMIT format, and some, flat files.       *   FILE 312
//*                                                                 *   FILE 312
//*     This is Rockwell's ISPF front end to Bookmanager, and       *   FILE 312
//*     has been Kaiserized, since I have changed employers.        *   FILE 312
//*                                                                 *   FILE 312
//*  Member XMITIP - This member is in TSO XMIT format.             *   FILE 312
//*                                                                 *   FILE 312
//*     Distributing Reports from Batch Jobs via E-Mail             *   FILE 312
//*                                                                 *   FILE 312
//*     How many times have you wanted to have 'that' report in     *   FILE 312
//*     your e-mail inbox instead of having to wait for it to       *   FILE 312
//*     be printed and then delivered to you?                       *   FILE 312
//*                                                                 *   FILE 312
//*     This document describes a simple process that can be        *   FILE 312
//*     used by any batch job to distribute reports as e-mail       *   FILE 312
//*     attachments to electronic mail addresses.  You can          *   FILE 312
//*     distribute from one to n files to from one to n             *   FILE 312
//*     addresses.  The attachment will be translated from          *   FILE 312
//*     EBCDIC to ASCII during the electronic mail processing       *   FILE 312
//*     so only text files should be sent (note that special        *   FILE 312
//*     characters may not translate correctly so you should        *   FILE 312
//*     test your file before implementing this process into a      *   FILE 312
//*     production job).                                            *   FILE 312
//*                                                                 *   FILE 312
//*     The benefit is that you can send reports, using the         *   FILE 312
//*     REPORT keyword, as rich text format (rtf) documents and     *   FILE 312
//*     specify landscape or portrait orientation as well as        *   FILE 312
//*     the font size.  This approach is useful as the batch,       *   FILE 312
//*     formerly printed reports, arrive in the users mail box      *   FILE 312
//*     in a format similar to the printed report.                  *   FILE 312
//*                                                                 *   FILE 312
//*     Documentation for XMITIP is in three parts:                 *   FILE 312
//*                                                                 *   FILE 312
//*     Part 1 documents how to use the XMITIP REXX Application     *   FILE 312
//*            to electronically distribute messages and/or         *   FILE 312
//*            text files (as text attachments) to electronic       *   FILE 312
//*            mail addresses via the intranet or internet.         *   FILE 312
//*                                                                 *   FILE 312
//*     Part 2 documents how to view the attachment on the          *   FILE 312
//*            workstation.                                         *   FILE 312
//*                                                                 *   FILE 312
//*     Part 3 documents how to customize your own application      *   FILE 312
//*            to do this.                                          *   FILE 312
//*                                                                 *   FILE 312
//*               LIONEL B. DYCK                                    *   FILE 312
//*               KAISER PERMANENTE                                 *   FILE 312
//*               25 NORTH VIA MONTE                                *   FILE 312
//*               WALNUT CREEK, CALIFORNIA 94598                    *   FILE 312
//*                                                                 *   FILE 312
//*               INTERNET: lionel.b.dyck@kp.org                    *   FILE 312
//*               PHONE:    (925) 926-5332                          *   FILE 312
//*                                                                 *   FILE 312
//***FILE 313 IS FROM MURRAY NICHOLAS OF GALEFORCE INFORMATION      *   FILE 313
//*           SERVICES, PTY LTD IN MELBOURNE, AUSTRALIA, AND        *   FILE 313
//*           CONTAINS A GENERALIZED MPF EXIT WHICH CAN TRIGGER     *   FILE 313
//*           VARIED RESPONSES TO DIFFERENT CONSOLE MESSAGES.       *   FILE 313
//*                                                                 *   FILE 313
//*           THE MESSAGE NUMBERS AND RESPONSES ARE CONTAINED       *   FILE 313
//*           AS MEMBERS OF A DESIGNATED PDS.  THEREFORE, THE       *   FILE 313
//*           RESPONSES TO A GIVEN MESSAGE MAY BE EASILY            *   FILE 313
//*           CHANGED, WITHOUT A PARMLIB ADJUSTMENT.                *   FILE 313
//*                                                                 *   FILE 313
//*           THIS PACKAGE WORKS FINE AS IS, BUT A FEW              *   FILE 313
//*           IMPROVEMENTS COULD BE MADE, AS INDICATED BY SOME      *   FILE 313
//*           OF THE DOCUMENTATION, WHICH COULD MAKE THIS           *   FILE 313
//*           PACKAGE REALLY POWERFUL.                              *   FILE 313
//*                                                                 *   FILE 313
//*           THE AUTHOR MAY SPEND A CONSIDERABLE TIME IN THE U.S.  *   FILE 313
//*           IN THE NEAR FUTURE (5/98).                            *   FILE 313
//*                                                                 *   FILE 313
//*       email:   murray@galeforce.bu.aust.com  (lower case)       *   FILE 313
//*                                                                 *   FILE 313
//***FILE 314 is from Dave Lees of Northeast Utilities in Berlin,   *   FILE 314
//*           Connecticut and contains a nice collection of his     *   FILE 314
//*           utilities.                                            *   FILE 314
//*                                                                 *   FILE 314
//*       email:   leesda@nu.com                                    *   FILE 314
//*                                                                 *   FILE 314
//*           THE UTILITIES ARE:                                    *   FILE 314
//*                                                                 *   FILE 314
//*     *****************************************************       *   FILE 314
//*     AUTHOR   - DAVID LEES, NORTHEAST UTILITIES,                 *   FILE 314
//*                (860)721-4392, - LEESDA@NU.COM                   *   FILE 314
//*                CBT TAPE FILE 314 AS OF 2/14/2000                *   FILE 314
//*                                                                 *   FILE 314
//*     *****************************************************       *   FILE 314
//*     BITMAP   - CALLABLE SUBROUTINE TO EXPAND 8 BITS TO 8        *   FILE 314
//*                BYTES CHARACTER.                                 *   FILE 314
//*     BMSS     - FAIRLY FAST TEXT SEARCH PROGRAM.                 *   FILE 314
//*     BOMB     - SUBROUTINE TO PRODUCE AN '0CB' ABEND.            *   FILE 314
//*                DIAGNOSTIC TOOL.                                 *   FILE 314
//*     COB1     - COBOL/DB2 CROSS REFERENCE BASED ON USERID.       *   FILE 314
//*     COB2     - COBOL/DB2 CROSS REFERENCE BASED ON TABLENAME.    *   FILE 314
//*     COPYANY  - VERSATILE FILE TO FILE COPY: FB->VB,             *   FILE 314
//*                VB->FB, VB->VB, FB->FB, - PADS OR TRUNCATES      *   FILE 314
//*                BASED ON OUTPUT DCB. DISPLAYS DCB, COUNTS.       *   FILE 314
//*     CPUID    - AUTHORIZED PGM TO DISPLAY CPC ID.                *   FILE 314
//*                OBSOLETED BY: D M=(CPU)                          *   FILE 314
//*     CSTRACE  - SAMPLE OF USING SNAPSHOT MACRO TO CREATE         *   FILE 314
//*                A DEBUGGING TRACE.                               *   FILE 314
//*              - (YES, IT LOOKS LIKE IMS CALLS BUT IT'S           *   FILE 314
//*                ACTUALLY AN IMS CLONE).                          *   FILE 314
//*     CVD      - CALLABLE SUBROUTINE TO DUMP 80 BYTES IN          *   FILE 314
//*                VERTICAL HEX FORMAT.                             *   FILE 314
//*     CVX      - CONVERT TWO BYTES DISPLAY FORMAT HEX TO          *   FILE 314
//*                ONE BYTE BINARY.                                 *   FILE 314
//*     DBALPHA  - PRODUCES POSTERS WITH MAX OF 6 LINES OF 13       *   FILE 314
//*                CHARACTERS EACH.                                 *   FILE 314
//*     DBWAIT   - MEANT TO INTERACT WITH AUTOMATION SOFTWATE       *   FILE 314
//*                (AO, NETVIEW) TO CONTROL STEP BY STEP            *   FILE 314
//*                EXECUTION OF BATCH JOBS.                         *   FILE 314
//*     DYNAM    - CBT TAPE FILE089, INCLUDED HERE FOR              *   FILE 314
//*                CONVENIENCE ONLY.                                *   FILE 314
//*     ERASER   - OPEN/CLOSE A CARD IMAGE FILE TO EMPTY IT,        *   FILE 314
//*                OPTIONALLY INSERT ONE DATA LINE FROM             *   FILE 314
//*                PARM=.                                           *   FILE 314
//*     FLATLIB  - CONVERTS A TEXT PDS INTO A FLAT FILE WITH        *   FILE 314
//*                THE MEMBERNAME AS AS A PREFIX. EASY TO           *   FILE 314
//*                BUILD XREFS WITH SAS/EASYTRIECE/ETC.             *   FILE 314
//*     LNKLST00 - MULTI STEP JCL TO PRODUCE A CROSS                *   FILE 314
//*                REFERENCE OF LPA/PROG00 MEMBERS. SORTED BY       *   FILE 314
//*                MEMBERNAME AND LOADLIB. PRIMITIVE ISRDDN.        *   FILE 314
//*     MEMLIST  - EXPANDS A LIST OF PDS NAMES INTO                 *   FILE 314
//*                MEMBERNAMES AND ATTRIBUTES.  SHORT FORM          *   FILE 314
//*                FOR TEXT PDS, DEFAULT FOR LOAD LIBRARIES.        *   FILE 314
//*                DYNAM                                            *   FILE 314
//*     MIGRATOR - USES MGCRE AND VIRTUAL CONSOLE MACROS TO         *   FILE 314
//*                ISSUE HSM MIGRATE COMMANDS FOR A LIST OF         *   FILE 314
//*                DATASETS AND LOG SYSTEM RESPONSE MSGS.           *   FILE 314
//*                AMODE(31), RMODE(24), AC(1). MESSY DUE TO        *   FILE 314
//*                AR, IO, AMODE31...                               *   FILE 314
//*     NATSUB   - SUBROUTINE TO SUBMIT JCL TO DYNALLOC             *   FILE 314
//*                INTERNAL READER.                                 *   FILE 314
//*     PARSIFAL - PARSER TO STRIP DSNAMES FROM FROM FORMATS        *   FILE 314
//*                LIKE (LPALST00)                                  *   FILE 314
//*     QDUMP80  - FORMATTED DATASET DUMP SHOWS CHARACTER/HEX       *   FILE 314
//*                IN 80 COL LISTING.  DOES START-END AND           *   FILE 314
//*                LAST RECORDS. WILL TRANSLATE ASCII ALSO.         *   FILE 314
//*     R******* - JCL TO RUN THE PROGRAMS.                         *   FILE 314
//*     REGS     - REGISTER EQUATE MACRO.                           *   FILE 314
//*     SLEEPY   - WAITS FOR NN SECONDS. 99 MAX.                    *   FILE 314
//*     TODAY    - SUBROUTINE RETURNS DAY OF WEEK FROM TIME         *   FILE 314
//*                MACRO. VALID TO Y4K.                             *   FILE 314
//*     VSAMZAP  - SUPERZAP UTILITY FOR ESDS VSAM, ORIGINALLY       *   FILE 314
//*                USED FOR IMS, ALSO WORKS ON KSDS BUT CAN'T       *   FILE 314
//*                CHANGE KEYS.                                     *   FILE 314
//*                                                                 *   FILE 314
//***FILE 315 IS FROM BOB FOWLES OF PENNSYLVANIA STATE UNIVERSITY   *   FILE 315
//*           AND FROM PHILIP H. SMITH III, AND IS A VM REXX EXEC   *   FILE 315
//*           WHOSE PURPOSE IS TO CLEAN UP AND SYNTAX CHECK OTHER   *   FILE 315
//*           REXX EXECS.  THIS IS A VM EXEC, AND IT IS BEING       *   FILE 315
//*           INCLUDED HERE, IN THE HOPE THAT SOMEONE WHO KNOWS     *   FILE 315
//*           BOTH VM AND MVS, WILL GET THIS EXEC TO WORK UNDER     *   FILE 315
//*           TSO REXX.                                             *   FILE 315
//*                                                                 *   FILE 315
//*           AUTHOR:   BOB FOWLES                                  *   FILE 315
//*                     RBF@PSU.EDU                                 *   FILE 315
//*                     814-865-4774                                *   FILE 315
//*                                                                 *   FILE 315
//***FILE 316 CONTAINS MANY BATCH UTILITIES AND OTHER GOOD THINGS.  *   FILE 316
//*          CODE FROM JIM MARSHALL (AIR FORCE RETIREE) NOW WITH    *   FILE 316
//*          THE US TREASURY OUTSIDE OF WASHINGTON DC.  THIS FILE   *   FILE 316
//*          IS IN IEBUPDTE SYSIN FORMAT. JIM'S CURRENT ADDRESS IS  *   FILE 316
//*                                                                 *   FILE 316
//*                 JIM MARSHALL, US TREASURY                       *   FILE 316
//*                 FINANCIAL MANAGEMENT SERVICE                    *   FILE 316
//*                 PRINCE GEORGES PLAZA II - ROOM 400B             *   FILE 316
//*                 3700 EAST-WEST HIGHWAY                          *   FILE 316
//*                 HYATTSVILLE, MD  20782                          *   FILE 316
//*                 202-874-8353                                    *   FILE 316
//*                                                                 *   FILE 316
//*              email:   jim.marshall@fms.treas.gov                *   FILE 316
//*                                                                 *   FILE 316
//*       RELEASE 22  -  15 APRIL 92                                *   FILE 316
//*                                                                 *   FILE 316
//*       SUMMARY OF THE MODULES CONTAINED.                         *   FILE 316
//*                                                                 *   FILE 316
//*       UTIL     REL          DESCRIPTION                         *   FILE 316
//*                                                                 *   FILE 316
//*       $$MACROX  4   INCORPORATED BILL GODFREY'S MODS TO         *   FILE 316
//*                     'IFOX00' TO PRODUCE MACRO CROSS REFERENCE.  *   FILE 316
//*                     PDS WAS MADE INTO A MEMBER PRECEDED WITH    *   FILE 316
//*                     '>< ADD NAME=   ' CARDS AND SPF STATS.      *   FILE 316
//*                     THIS WAS IN A SEPARATE FILE ON THE MODS     *   FILE 316
//*                     TAPES.                                      *   FILE 316
//*                                                                 *   FILE 316
//*       ASKOPER   1   PASS OPERATOR A QUESTION IN A PARM AND TWO  *   FILE 316
//*                     REPLIES; ONE GIVES RC=0 AND SECOND  RC=4    *   FILE 316
//*                                                                 *   FILE 316
//*       ASMBOX1   1   PUT A NICE LOOKING BOX AROUND YOUR ASSEMBLY *   FILE 316
//*                     LISTING OUTPUT.  LINECT FOR ASSEMBLY        *   FILE 316
//*                     LISTING IS 53.  CODE IS 3800 DEPENDENT.     *   FILE 316
//*                                                                 *   FILE 316
//*       ASMHNOX   1   A PTF FOR AN ASSEMBLER H BUG.               *   FILE 316
//*                     AS YOU KNOW ASM H IS CLASS C NOW.           *   FILE 316
//*                                                                 *   FILE 316
//*       ASMR90    1   ROTATE 90 DEGREES ASSEMBLY LISTINGS         *   FILE 316
//*                     ON THE 3800 TYPE PRINTERS.                  *   FILE 316
//*                                                                 *   FILE 316
//*       BLOKHD    1X  GODDARD SPACE FLT CENTER UTILITY TO         *   FILE 316
//*                     PRODUCE 12X12 BLOCK LETTERS UP TO 8 ACROSS  *   FILE 316
//*                     THE PAGE AND FOUR BLOCK LINES PER PAGE.     *   FILE 316
//*                                                                 *   FILE 316
//*       BLOKHF    1X  FORTRAN INTERFACE MODULE SO YOU CAN CALL    *   FILE 316
//*                     'BLOKHD' FROM FORTRAN CODE.                 *   FILE 316
//*                                                                 *   FILE 316
//*       BLOKLTR   1X  FORTRAN PGM THAT PRODUCES BLOCK LETTERS ONE *   FILE 316
//*                     PER PAGE (SIDEWAYS).                        *   FILE 316
//*                                                                 *   FILE 316
//*       BLOKPDS   1X  TAKES A SEQUENTIAL SOURCE FILE CREATED BY   *   FILE 316
//*                     UTIL 'LISTPDS' AND CREATES A PRINT FILE     *   FILE 316
//*                     WITH 12X12 BLOCK LETTERS BEFORE EACH MEMBER *   FILE 316
//*                     IN THE LISTING.  GREAT FOR PUTTING SOURCE   *   FILE 316
//*                     ON MICROFICHE.  SEE DOC IN CODE.            *   FILE 316
//*                                                                 *   FILE 316
//*       CATLIST   1   THIS PROGRAM IS FROM MIKE LOOS, FAIR, ISAAC *   FILE 316
//*                     AND CO.  THIS WILL DO A VERY FAST LIST OF   *   FILE 316
//*                     AN ICF CATALOG FOR GDG'S AND NONVSAM DSNS.  *   FILE 316
//*                     LISTING IS IN THE SAME FORMAT AS IDCAMS     *   FILE 316
//*                     (WE USED IT TO BUILD A TMC) BUT THE OUTPUT  *   FILE 316
//*                     FORMAT WOULD BE VERY EASY TO CHANGE.  SEE   *   FILE 316
//*                     COMMEMTS IN THE CODE FOR AN EXPLANATION     *   FILE 316
//*                     OF ITS SPEED AND RELATION TO RACF.          *   FILE 316
//*                                                                 *   FILE 316
//*       COPYFILE  4X  POWERFUL COPY TAPE TYPE PROGRAM.  IF YOU    *   FILE 316
//*                     HAVE MULTIFILE SL TAPES WILL COPY SELECTED  *   FILE 316
//*                     FILES VIA A CONTROL CARD.  (LOAD MODULE     *   FILE 316
//*                     ON FILE 035.)  Now copies blocks up to      *   FILE 316
//*                     64K in size.                                *   FILE 316
//*                                                                 *   FILE 316
//*       COPYSLNL  4X  POWERFUL COPY TAPE PGM TO STRIP TAPE        *   FILE 316
//*                     LABELS FROM SL TAPE TO CREATE AN NL TAPE.   *   FILE 316
//*                     IF YOU HAVE MULTIFILE SL TAPES WILL COPY    *   FILE 316
//*                     SELECTED FILES TO AN NL OUTPUT TAPE,        *   FILE 316
//*                     UNDER THE SAME CONTROL CARD SYNTAX AS       *   FILE 316
//*                     COPYFILE HAS.  (MODIFIED FROM COPYFILE      *   FILE 316
//*                     BY SAM GOLOB).  STILL HAS TLPRINT SUPPORT   *   FILE 316
//*                     BUT IT PRINTS THE CONTENTS OF THE LABELS    *   FILE 316
//*                     FROM THE INPUT SIDE, SINCE THE OUTPUT SIDE  *   FILE 316
//*                     DOESN'T HAVE LABELS ANY MORE.  Now copies   *   FILE 316
//*                     blocks up to 64K in size.                   *   FILE 316
//*                                                                 *   FILE 316
//*       COPYNLNL      Brand new.  Powerful tape copy program      *   FILE 316
//*                     that works exactly like COPYFILE with       *   FILE 316
//*                     the same control cards, but copies NL to    *   FILE 316
//*                     NL tapes.  Copies blocks up to 64K.         *   FILE 316
//*                                                                 *   FILE 316
//*       COPYREC   5X  PROVIDE FOR A SELECTIVE COPY OF RECORDS     *   FILE 316
//*                     VIA A CONTROL CARD FOR ANY LRECL FILE;      *   FILE 316
//*                     LIKE 1-100, 450-800, 900-950.               *   FILE 316
//*                                                                 *   FILE 316
//*       CT        3X  AIR FORCE DEVELOPED HIGH SPEED TAPECOPY     *   FILE 316
//*                     PROGRAM.  RUNS AT EXCP SPEED.  COPIES       *   FILE 316
//*                     LABELED OR UNLABELED, SINGLE OR MULTIFILE,  *   FILE 316
//*                     AND IF ONE REEL ONLY, AN OPTION TO VERIFY   *   FILE 316
//*                     BYTE FOR BYTE.  COPIES MULTIVOLUME OR       *   FILE 316
//*                     MULTIFILE AND MULTIVOLUME WITH NO VERIFY    *   FILE 316
//*                     FUNCTION.                                   *   FILE 316
//*                                                                 *   FILE 316
//*       C3PO      1Y  BRIAN SCOTT NOW OF TEXACO, WROTE C3PO TO    *   FILE 316
//*                     BE THE SRB RECEIVER FOR R2D2.  R2D2 NEEDS   *   FILE 316
//*                     A TASK OF SOME KIND GOING TO BUMP THE SRB   *   FILE 316
//*                     OFF OF.  MOST PEOPLE HAVE BEEN USING #CMD   *   FILE 316
//*                     SUBSYSTEM AND SOME OTHER BRAVE SOULS,       *   FILE 316
//*                     JES2.  PLUS NOW C3PO WILL TALK TO YOU IF    *   FILE 316
//*                     YOU WANT.  WANT TO INCREASE ITS             *   FILE 316
//*                     VOCABULARY?  YOU ARE WELCOME.  HAVE NOT     *   FILE 316
//*                     INSTALLED IT THIS WAY BUT WILL WHEN I GO    *   FILE 316
//*                     TO MVS/SP1.3.                               *   FILE 316
//*                                                                 *   FILE 316
//*       C3PO2     1Y  SAME AS ABOVE, BUT WITH A STIMER IN IT FOR  *   FILE 316
//*                     PEOPLE WHO DO NOT WANT TO RUN C3PO WITH     *   FILE 316
//*                     TIME=1440.                                  *   FILE 316
//*                                                                 *   FILE 316
//*       DELINK0   2   SOURCE CARDS FOR IBM FE PROGRAM TO          *   FILE 316
//*                     'DELINK'.  WE RECONSTRUCTED THE SOURCE      *   FILE 316
//*                     IMAGES WITH A DISASSEMBLER AND A LOT OF     *   FILE 316
//*                     PATIENCE.  FUN !!!                          *   FILE 316
//*                                                                 *   FILE 316
//*       DISKMAP   3Y  DISKMAP PROGRAM HAS 3330 SUPPORT, 3350, AND *   FILE 316
//*                     3850 SUPPORT INCLUDED.  GIVES SIMILIAR INFO *   FILE 316
//*                     TO A COMPAKTOR MAP.  THIS DOES NOT UPDATE   *   FILE 316
//*                     LASTUSE DATE FOR EVERY FILE ON THE PACK;    *   FILE 316
//*                     NOT REALLY TRUE FOR PDS'S, SO STILL BEWARE. *   FILE 316
//*                                                                 *   FILE 316
//*       DOWEGO    2X  PGM TO PUT OUT QUESTION TO OPERATOR OF 'GO' *   FILE 316
//*                     OR 'NOGO'. 'NOGO' IMPLIES ABEND, 'GO' = RC0 *   FILE 316
//*                                                                 *   FILE 316
//*       EALSD095  1X  EASTERN AIRLINES UPDATE OF THE STANDARD IBM *   FILE 316
//*                     BLOCK LETTER ROUTINE IEFSD095; WAS USED     *   FILE 316
//*                     FOR BANNER PAGES.  THE UPDATED VERSION HAS  *   FILE 316
//*                     ALL THE SPECIAL CHARACTERS INCLUDED IN IT.  *   FILE 316
//*                                                                 *   FILE 316
//*       EXCPMOD   1Y  MOD (ZAP) SHOWS EXCP COUNTS ON JCL LISTING. *   FILE 316
//*                     MVS/SP1.1                                   *   FILE 316
//*                                                                 *   FILE 316
//*       EXIMPORT  1   THIS PROGRAM IS FROM MIKE LOOS, FAIR, ISAAC *   FILE 316
//*                     AND COMPANY.  WILL CREATE 2 JCL FILES, A    *   FILE 316
//*                     CLIST, AND A SYSPRINT LISTING.  THE JCL     *   FILE 316
//*                     FILES HAVE A SET OF EXPORT AND IMPORT JCL   *   FILE 316
//*                     DESIGNED TO EXPORT (VSAM) AND IEBGENER      *   FILE 316
//*                     (DSORG=PS) ALL DATASETS ON A VOLUME TO      *   FILE 316
//*                     TAPE AND RESTORE WITH IMPORT (VSAM) AND     *   FILE 316
//*                     IEBGENER (DSORG=PS) FROM TAPE TO DISK.      *   FILE 316
//*                     THE VSAM PORTION WORKS ONLY FOR UNIQUE      *   FILE 316
//*                     DATASETS (DFEF) AND BASE CLUSTERS ONLY.     *   FILE 316
//*                     SEE THE CODE FOR FURTHER EXPLANATIONS AND   *   FILE 316
//*                     RESTRICTIONS.                               *   FILE 316
//*                                                                 *   FILE 316
//*       EXIT002   1Y  JES2/SP1.3 EXIT 2.  TAKES TIME OFF THE      *   FILE 316
//*                     JOBCARD TO ENFORCE INTERNAL STANDARD FOR    *   FILE 316
//*                     JOB CLASS FROM AFDSC.                       *   FILE 316
//*                                                                 *   FILE 316
//*       EXIT006   1Y  JES2/SP1.3 EXIT 6.  PUT TIME BACK ON        *   FILE 316
//*                     JOBCARD FOR THE APPROPRIATE JOB CLASS.      *   FILE 316
//*                     ALSO SEE NOTE OF HOW TO DISPLAY INTERNAL    *   FILE 316
//*                     TEXT FOR ANY FIELD YOU WANT TO DISPLAY.     *   FILE 316
//*                     FROM AFDSC.                                 *   FILE 316
//*                                                                 *   FILE 316
//*       FCBLIST   1X  WILL PRINT OUT HOW YOUR FCB'S ARE BUILT.    *   FILE 316
//*                     HANDY FOR FIGURING OUT HOW CRITTERS ARE     *   FILE 316
//*                     MADE.                                       *   FILE 316
//*                                                                 *   FILE 316
//*       FFYCOPY   1X  SUBSTITUTE FOR IEBGENER, HIGH SPEED COPY    *   FILE 316
//*                     USING QSAM VERSUS BSAM.                     *   FILE 316
//*                                                                 *   FILE 316
//*       FINDAZAP  1X  BILL GODFREY:  FIND A STRING IN A LOAD      *   FILE 316
//*                     MODULE & MAKE A ZAP FROM IT.  PGM DOES NOT  *   FILE 316
//*                     CHANGE LOAD MODULE BUT GENERATES 'AMASPZAP' *   FILE 316
//*                     CONTROL CARDS.                              *   FILE 316
//*                                                                 *   FILE 316
//*       GETDATE   1X  ANOTHER PGM TO DO DATE CONVERSION.  ALSO    *   FILE 316
//*                     RETURNS THE DAY OF THE WEEK AND ALSO A      *   FILE 316
//*                     FLAG IF IT IS A USER DEFINED HOLIDAY.       *   FILE 316
//*                     USEFUL IN PGMS FOR SMF.                     *   FILE 316
//*                                                                 *   FILE 316
//*       IDATE     1   SEE PGM DOCUMENTATION TO SEE ALL THE WAYS   *   FILE 316
//*                     IT CAN CONVERT A DATE, MANY, MANY,......    *   FILE 316
//*                                                                 *   FILE 316
//*       IEECVXIT  1   COMBINED VERSION OF 'IEECVXIT &             *   FILE 316
//*                     'IEECR2D2'.  CODED THE WAY IT SHOULD BE IF  *   FILE 316
//*                     YOU ARE A GENIUS.  SCHEDULES AN SRB TO GET  *   FILE 316
//*                     AROUND THE FACT THEY MOVED THE WQE CHAIN    *   FILE 316
//*                     IN SP1.3.  NEEDS A TASK RUNNING ALL THE     *   FILE 316
//*                     TIME TO BUMP THE SRB OFF OF WHEN IEECR2D2   *   FILE 316
//*                     IS RUN.  CODER USED THE #CMD SUBSYSTEM,     *   FILE 316
//*                     YOU COULD HAVE USED JES2 HE SAYS.  TIME     *   FILE 316
//*                     DEPENDENT CODE HAS BEEN REMOVED AND IT      *   FILE 316
//*                     WORKS IN ALL VERSIONS OF MVS/SP (AS OF A    *   FILE 316
//*                     WHILE AGO).  WE ARE SAVED !!                *   FILE 316
//*                                                                 *   FILE 316
//*                     AFDSC DEVELOPED 'MCS EXIT'.  CAPABILITY     *   FILE 316
//*                     TO SUPPRESS OR CHANGE ROUTE CODES, DESC,    *   FILE 316
//*                     CODES, ETC. BUT THIS ONE WILL UTILIIZE      *   FILE 316
//*                     'R2D2' TO DO AUTOMATIC OPERATOR REPLIES     *   FILE 316
//*                     AND STC'S BASED UPON WHAT COMES ACROSS THE  *   FILE 316
//*                     CONSOLE.  NOT DEPENDENT UPON THE OPERATOR   *   FILE 316
//*                     BEING AWAKE.  AFDSC DEVELOPED VERSION OF    *   FILE 316
//*                     FAMOUS 'R2D2'.  LITTLE CREATURE DOES        *   FILE 316
//*                     AUTOMATIC START CMDS FOR THINGS THAT NEED   *   FILE 316
//*                     STARTING, BASED UPON WHAT COMES ACROSS THE  *   FILE 316
//*                     SCREEN AND IS DETECTED BY IEECVXIT.  R2D2   *   FILE 316
//*                     DOES THE AUTOMATIC REPLIES, RMF (R XX,GO),  *   FILE 316
//*                     ALLOCATION (R XX,NOHOLD).  EVER HAD THE     *   FILE 316
//*                     OPERATOR TURN YOUR MVS SYSTEM INTO OS/MVT   *   FILE 316
//*                     SYSTEM BY LOCKING Q4 (R XX,HOLD)?  LITTLE   *   FILE 316
//*                     CRITTER HAS A LOT OF POSSIBILITIES.         *   FILE 316
//*                                                                 *   FILE 316
//*       IEFUJI    1   IBM STANDARD SMF EXIT, IEFUJI.  HAS CODE TO *   FILE 316
//*                     PASS USER FIELDS TO UCC-1 (NOW CA-1).       *   FILE 316
//*                                                                 *   FILE 316
//*       IEFUTL    2   IBM STANDARD SMF EXIT, IEFUTL.  WAIT TIME & *   FILE 316
//*                     CPU TIME EXCESSION FOR BATCH & TSO.  LITTLE *   FILE 316
//*                     CODE BUT ONE THING IT CAN DO IS TO STOP     *   FILE 316
//*                     S522 ABENDS CAUSED BY OPERATORS.            *   FILE 316
//*                                                                 *   FILE 316
//*       IEFU29    1   DETECT SMF SWITCH & SCHEDULE JOB THAT DUMPS *   FILE 316
//*                     SMF DATASETS.  MOVED FUNCTION FROM THE MCS  *   FILE 316
//*                     EXIT TO THIS EXIT (WHERE IT SHOULD BE).     *   FILE 316
//*                                                                 *   FILE 316
//*       IEFU83    3   AFDSC DEVELOPED SMF EXIT, 'IEFU83'.  HAS    *   FILE 316
//*                     ALL STANDARD SUGGESTIONS, TYPE 40 RECS, 0   *   FILE 316
//*                     EXCP COUNTS, ETC.  THIS IS BRANCH TABLE     *   FILE 316
//*                     DRIVEN, GOOD PLACE TO BEGIN FOR THOSE WHO   *   FILE 316
//*                     WANT TO EXPAND ITS CODE.  ALSO LOOKS AT     *   FILE 316
//*                     14&15'S ETC.  ADDED TYPE 21 SUPPORT TO      *   FILE 316
//*                     TELL OPERATORS TO CLEAN TAPE DRIVES         *   FILE 316
//*                     ENCOUNTERING PERM CHECK OR TOO MANY TEMP    *   FILE 316
//*                     ERRORS.  LOOKS AT TOTAL CPU TIME AND        *   FILE 316
//*                     JOBCLASS TELLING USER WHAT CLASS SHOULD     *   FILE 316
//*                     HAVE BEEN USED.                             *   FILE 316
//*                                                                 *   FILE 316
//*       INCORZAP  2   SOURCE FOR FAMOUS 'INCORZAP' THAT IS KNOWN  *   FILE 316
//*                     ONLY IN OBJECT FORM.  THANKS BILL GODFREY   *   FILE 316
//*                     FOR DISASSEMBLY AND PATIENCE.  THIS PGM     *   FILE 316
//*                     SOURCE WAS A SPRINGBOARD FOR THE ORIGINAL   *   FILE 316
//*                     AUTHOR OF THE PROGRAM TO UPGRADE IT TO XA   *   FILE 316
//*                     (AND BEYOND).  SEE FILE 421.                *   FILE 316
//*                                                                 *   FILE 316
//*       IGG019WD  1X  APPENDAGE FOR RECOVERY FROM WRONG DENSITY   *   FILE 316
//*                     TAPE VOLUMES, USED BY TAPE UTLITIES.        *   FILE 316
//*                                                                 *   FILE 316
//*       IGG019WE  1X  APPENDAGE TO PREVENT ERROR AT EOF, USED BY  *   FILE 316
//*                     TAPE UTILITIES.                             *   FILE 316
//*                                                                 *   FILE 316
//*       INCORZZP  1   ZAP TO THE 'INCORZAP' PROGRAM SO IT WILL    *   FILE 316
//*                     RUN UNDER ANY NAME.                         *   FILE 316
//*                                                                 *   FILE 316
//*       J13X1     3   SP1.3 EXIT.  SEPARATOR (PRINT & PUNCH) FOR  *   FILE 316
//*                     JES2.  HAS EXIT255 INVOKED TO PRINT OFF A   *   FILE 316
//*                     RECEIPT ON SEPARATE IBM3287 MCS PRINTER.    *   FILE 316
//*                     ADDED SOME CODE FOR PRINTING OFF NJE PRT    *   FILE 316
//*                     FROM VM/RSCS.  ALSO ADDED SOME CODE FOR     *   FILE 316
//*                     X8700 PRT.                                  *   FILE 316
//*                     CONVERTED TO JES2/SP1.3.4                   *   FILE 316
//*                                                                 *   FILE 316
//*       J13X1ACT  2   SP1.3 EXIT.  ACCOUNT USED TO BILL X8700     *   FILE 316
//*                     PRINTER TO VM/RSCS/NJI PRINT.  RSCS OUTPUT  *   FILE 316
//*                     DOESN'T COME ACROSS WITH JES2 ACCT INFO     *   FILE 316
//*                     IN THE JOBCARD.                             *   FILE 316
//*                                                                 *   FILE 316
//*       J13X1XF   2   SP1.3 EXIT.  X8700 VALID FORMS USED TO      *   FILE 316
//*                     BUILD 'DJDE' RECORD TO BE PUMPED TO X8700   *   FILE 316
//*                     PRINTER.                                    *   FILE 316
//*                                                                 *   FILE 316
//*       J13X3     1   JES2/SP1.3 EXIT3.  JOB CARD SCAN EXIT,      *   FILE 316
//*                     ALSO HAS OTHER FEATURES.  WE DO VALIDATION  *   FILE 316
//*                     OF ACCT CODES ON JOB CARD.                  *   FILE 316
//*                     CONVERTED TO JES2/SP1.3.4                   *   FILE 316
//*                                                                 *   FILE 316
//*       J13X4     1   JES2/SP1.3 EXIT4.  JECL SCAN EXIT.          *   FILE 316
//*                     CONVERTED TO JES2/SP1.3.4                   *   FILE 316
//*                                                                 *   FILE 316
//*       J13X10    1   JES2/SP1.3 EXIT10.  SUPPRESS JES2 WTO       *   FILE 316
//*                     MESSAGES.  JOB RECEIPT GENERATED FOR ALL    *   FILE 316
//*                     PARTS OF JOB THAT ARE PRINTED LOCALLY.      *   FILE 316
//*                     IS BECAUSE JES EXIT 1 PRODUCES RECEIPTS     *   FILE 316
//*                     TO A 3287 TYPE PRINTER ALL PARTS OF A JOB   *   FILE 316
//*                     PRINTED LOCALLY.  THANKS CAPT JIM CARTER    *   FILE 316
//*                     AND LT PAUL FINDLEY.                        *   FILE 316
//*                     CONVERTED TO JES2/SP1.3.4                   *   FILE 316
//*                                                                 *   FILE 316
//*       J13X13    1   JES2/SP1.3 EXIT13. TSO/E EXIT.              *   FILE 316
//*                                                                 *   FILE 316
//*       J13X255   2   JES2/SP1.3 EXIT255.  THIS IS MY EXIT THAT   *   FILE 316
//*                     IS INVOKED BY USER EXIT001 TO PRINT A       *   FILE 316
//*                     RECEIPT ON IBM3287 MCS PRINTER SET TO       *   FILE 316
//*                     ROUTCDE=(14).  OPERATORS NOW KNOW HOW       *   FILE 316
//*                     MANY LISTINGS THEY WILL FIND ON THE         *   FILE 316
//*                     PRINTERS.  CONVERTED TO JES2/SP1.3.4        *   FILE 316
//*                                                                 *   FILE 316
//*       JESXRDR   1Y  HURRAY BILL GODFREY, MY GENIUS.  YOU CAN    *   FILE 316
//*                     SUBMIT TO A SECONDARY JES2 LIKE JESX FROM   *   FILE 316
//*                     THIS PGM.  LOOK IN TSOSRC FILE YOU WILL     *   FILE 316
//*                     FIND, SUBMITX' ALLOWS YOU TO SUBMIT FROM    *   FILE 316
//*                     TSO TO A SECONDARY JES2.  (ALSO YOU GET     *   FILE 316
//*                     OUTPUTX, CANCELX, AND STATUSX WITH          *   FILE 316
//*                     SUBMITX).  MAY NOT WORK BEYOND JES2/SP1.1.  *   FILE 316
//*                                                                 *   FILE 316
//*       JES0001   1Y  SMP USERMOD TO ALLOW YOU TO DO TSO IN       *   FILE 316
//*                     SECONDARY JES, ALSO STC'S ETC ETC.          *   FILE 316
//*                     MAY NOT WORK BEYOND JES2/SP1.1              *   FILE 316
//*                                                                 *   FILE 316
//*       LISTCTLG  1Y  LISTS OS CATALOGS EFFICIENTLY.  UPDATED FOR *   FILE 316
//*                     3400 SERIES TAPE DRIVES, 3330 TYPE DISKS,   *   FILE 316
//*                     3350'S AND, 3850 MSS.  SEE COMMENTS IN THE  *   FILE 316
//*                     CODE FOR ADDITIONAL CAPABILITIES OF THE PGM *   FILE 316
//*                                                                 *   FILE 316
//*       LISTIDR   1   IMPROVED GODDARD SPACE CENTER PROGRAM FOR   *   FILE 316
//*                     LISTING 'IDR' RECORDS.                      *   FILE 316
//*                                                                 *   FILE 316
//*       LISTPDS   7.X GODDARD SPACE FLIGHT CNTR, FAMOUS 'LISTPDS' *   FILE 316
//*                     PGM.  UPDATED SO WHEN YOU DO THE FUNCTION   *   FILE 316
//*                     SIMILIAR TO IEHLIST, LISTPDS, IT GIVES      *   FILE 316
//*                     YOU THE SPF STATS, LIKE SPF 3.1 DOES.  SEE  *   FILE 316
//*                     THE LISTPDS# FOR ALL OF ITS CAPABILITIES.   *   FILE 316
//*                                                                 *   FILE 316
//*       LKEBOX1   1   PLACE NICE LOOKING BOX AROUND YOUR LKED     *   FILE 316
//*                     LISTING FOR USE IN CONJUNCTION WITH ASMBOX1 *   FILE 316
//*                                                                 *   FILE 316
//*       LKEDMOD   1   LKED EDITOR ZAP, PUT TIME & DATE INTO LOAD  *   FILE 316
//*                     MODULES MVS/3.8.                            *   FILE 316
//*                                                                 *   FILE 316
//*       LKEDMOD1  1Y  LKED EDITOR ZAP PUTS TIME & DATE INTO LOAD  *   FILE 316
//*                     MODULES MVS/SP1.1                           *   FILE 316
//*                                                                 *   FILE 316
//*       LKED90    1   ROTATE LKED OUTPUT ON IBM 3800 90 DEGREES   *   FILE 316
//*                     AND GET 2 PAGES ONTO 1.                     *   FILE 316
//*                                                                 *   FILE 316
//*       MACROS    1   PACKAGED MOST MACROS IN THIS MEMBER. LOOK   *   FILE 316
//*                     AT THE INSTALL JOBSTREAM TO SEE IF YOU WILL *   FILE 316
//*                     NEED THEM.  HAVE '><' IN PLACE OF './' IN   *   FILE 316
//*                     IEBUPDTE FORMAT SO USE 'PDSLOAD' PGM.       *   FILE 316
//*                                                                 *   FILE 316
//*                     MACROS FOR THIS FILE ARE NOW INCLUDED       *   FILE 316
//*                                                                 *   FILE 316
//*                      $-E        F-M             N-T       U-Z   *   FILE 316
//*                     $#SVCKP    FLOAT         OPENIF             *   FILE 316
//*                     $#SVCKS    IFIX          OPENIN             *   FILE 316
//*                     $REGS      LOADIT        SEARCHDD           *   FILE 316
//*                     @          LOADS         SNAPREGS           *   FILE 316
//*                     CAPS       MOVE          STAE$              *   FILE 316
//*                     CLOSEIF    MSG           TESTOPEN           *   FILE 316
//*                     COMMENT                     TRC             *   FILE 316
//*                     DFLOAT                                      *   FILE 316
//*                     EDIT                                        *   FILE 316
//*                                                                 *   FILE 316
//*       MIRROR    1X  REVERSE THE DATA ON INPUT CARD IMAGE. I.E.  *   FILE 316
//*                     1-80 IS NOW IN 80-1.                        *   FILE 316
//*                                                                 *   FILE 316
//*       MIM#3     1X  OS/MVT PGM.  USED TO BE ON OS/MVT MODS      *   FILE 316
//*                     TAPE LONG AGO.  GOOD EXAMPLE OF DOING       *   FILE 316
//*                     COMPRESSION AND DECOMPRESSION.  LOOK AT     *   FILE 316
//*                     EXTENSIVE DOC IN CODE AND YOU'LL FIND A     *   FILE 316
//*                     USE FOR IT.                                 *   FILE 316
//*                                                                 *   FILE 316
//*       MODREP    2   LPA MODULE REPLACEMENT PGM OBTAINED FROM    *   FILE 316
//*                     CBT TAPE.  MODIFIED AT AFDSC SO IT WILL NOT *   FILE 316
//*                     ABEND WITH A S522. SEVERAL OTHER BUGS FIXED *   FILE 316
//*                                                                 *   FILE 316
//*       MSGWRITE  2X  SUBROUTINE USED BY SOME OF THE UTILITIES.   *   FILE 316
//*                                                                 *   FILE 316
//*       MSSMOUNT  1   ZAP TO LET TSO USERS MOUNT MSS VOLUMES      *   FILE 316
//*                     WITHOUT HAVING MOUNT ATTRIBUTE IN 'UADS'.   *   FILE 316
//*                                                                 *   FILE 316
//*       OFFLOAD   1   UNLOAD A PDS TO A SEQUENTIAL IEBUPDTE DSN   *   FILE 316
//*                     FIXED BUG ABEND 103-4C, UNBLOCKED PDS'ES.   *   FILE 316
//*                     (UPDATED BY JOHN KALINICH, US ARMY IN ST    *   FILE 316
//*                     LOUIS, MO - TO ADD ISPF STATS IN LISTPDS    *   FILE 316
//*                     FORMAT INTO THE "./ ADD NAME=" CARDS.)      *   FILE 316
//*                                                                 *   FILE 316
//*       PARMBLOC  2   TAKE THE PARM FROM EXEC CARD AND CREATE A   *   FILE 316
//*                     BLOCK LETTER BANNER.  HAS OPTIONS TO SLANT  *   FILE 316
//*                     ETC.  NICE FOR REPORTS.                     *   FILE 316
//*                                                                 *   FILE 316
//*       PDSGAS    2X  ALLOW YOU FIND A 'GAS' MEMBER IN A PDS      *   FILE 316
//*                     PGM PROVIDED YOU HAVE NOT COMPRESSED THE    *   FILE 316
//*                     PDS.  ASSIGNS MEMBER NAME OF $GASXXXX.      *   FILE 316
//*                     XXXX GOES FROM 0001 TO 9999.  THEN IT IS    *   FILE 316
//*                     CALLED BRUTE FORCE TO GO IN WITH SPF 3.1    *   FILE 316
//*                     TO FIND IT.  BUT !!  WORKS NOW ON 3380S     *   FILE 316
//*                     AND MVS/XA 2.2.0.                           *   FILE 316
//*                                                                 *   FILE 316
//*       PDSLOAD   1   FILE WITH IEBUPDTE CONTROL CARDS IN THEM,   *   FILE 316
//*                     RELOAD TO A PDS.  WILL PUT IN SPF STATS AND *   FILE 316
//*                     USEFUL FOR FILES UNLOADED BY OFFLOAD PGM    *   FILE 316
//*                     TO FROM CBT TAPE. CHANGES THE IMBEDDED '><' *   FILE 316
//*                     TO './' AS YOU RELOAD.  BETTER VERSION OF   *   FILE 316
//*                     PDSLOAD AND OFFLOAD ARE ON FILE 093.        *   FILE 316
//*                                                                 *   FILE 316
//*       PDSMATCH  1   COMPARE THE DIRECTORY OF 2 PDS'S.  HAS      *   FILE 316
//*                     MANY OPTIONS.  REFER TO COMMENTS IN THE     *   FILE 316
//*                     CODE FOR HOW TO RUN THIS UTILITY.           *   FILE 316
//*                                                                 *   FILE 316
//*       PDSPROGM  1   USED FOR DELETING & RENAMING MEMBERS OF     *   FILE 316
//*                     PDS FROM A BATCH JOB.  MUCH EASIER TO USE   *   FILE 316
//*                     THAN IEHPROGM.                              *   FILE 316
//*                                                                 *   FILE 316
//*       PDSPRINT  2X  ANOTHER PDS LIST OR PUNCH PGM.  CAN FEED    *   FILE 316
//*                     IT CONTROL CARDS FOR A MEMBER LIST OR       *   FILE 316
//*                     GIVE IT CHARACTER STRING TO SCAN FOR.       *   FILE 316
//*                     NICE.                                       *   FILE 316
//*                                                                 *   FILE 316
//*       PDSTEST   3X  VERIFIES INTEGRITY OF A LOAD MODULE PDS BY  *   FILE 316
//*                     ISSUING 'LOAD' FOR EVERY MODULE IN LOADLIB. *   FILE 316
//*                     IF PROBLEMS OCCUR, YOU ARE TOLD OF THEM.    *   FILE 316
//*                                                                 *   FILE 316
//*       PDSUTIL   1   ANOTHER PDS LIST TYPE PROGRAM.  THINGS IT   *   FILE 316
//*                     DOES, GIVES YOU A TABLE OF CONTENTS AS TO   *   FILE 316
//*                     WHAT PAGE EACH IS ON.  HANDY.               *   FILE 316
//*                                                                 *   FILE 316
//*       P38BOX1   1   SUBROUTINE FOR ASMBOX1.                     *   FILE 316
//*                                                                 *   FILE 316
//*       P38TURN   1   CHARACTER SET USED FOR 90 DEGREE ROTATE.    *   FILE 316
//*                                                                 *   FILE 316
//*       RACHECK   1Y  EL-CHEAPO RACF SECURITY SVC.  YALE UNIV.    *   FILE 316
//*                     SVC 130 MADE TO GIVE DIRT-CHEAP SECURITY.   *   FILE 316
//*                     WE USE WHITE HAT-BLACK HAT THEORY.  EITHER  *   FILE 316
//*                     YOU CAN GET TO IT OR NOT.  DOES NOT AFFECT  *   FILE 316
//*                     STC OR SYSTEM CODE.  LOOK AT SVC TO SEE HOW *   FILE 316
//*                     WE GIVE ALL POWERFUL SYSTEM PROGRAMMERS     *   FILE 316
//*                     (WHO WEAR WHITE HATS) THE PRIVILEGES.       *   FILE 316
//*                                                                 *   FILE 316
//*       READF     1   SUBRNTES-READF,WRITEF,RESETF, INTENDED FOR  *   FILE 316
//*                     USE IN PLACE OF FORTRAN UNFORMATTED I/O     *   FILE 316
//*                     (REAL DOG).  THIS USES FIXED BLOCKED QSAM.  *   FILE 316
//*                     SAVES A LOT OF CPU CYCLES.                  *   FILE 316
//*                                                                 *   FILE 316
//*       ROTATER   1   SUBROUTINE USED IN ROTATE PGMS.             *   FILE 316
//*                     REPLACED P38R90 AND P38R90B.                *   FILE 316
//*                                                                 *   FILE 316
//*       SEEKMON   1Y  MVS VERSION OF OS/MVT SEEKMON.              *   FILE 316
//*                                                                 *   FILE 316
//*       SETINIT   1X  SETS INITIATORS BASED ON TIME.  HAVE INITS  *   FILE 316
//*                     SET, PRIME, EVENINGS, MIDS, HOLIDAYS, ETC.  *   FILE 316
//*                                                                 *   FILE 316
//*       SPANCOPY  2X  CLEANS FILES WITH SPANNED RECS.  WILL       *   FILE 316
//*                     DROP BAD SPANNED RECS.  IF FILE CONTAINS    *   FILE 316
//*                     SMF RECS THEN WILL ATTEMPT TO GIVE YOU      *   FILE 316
//*                     AS MUCH INFO AS IT CAN.  S002 ABENDS ARE    *   FILE 316
//*                     NO LONGER KILLERS.                          *   FILE 316
//*                                                                 *   FILE 316
//*       SMFDATE   1X  REPORTS ON TOTAL SMF RECORDS BY DAY PLUS    *   FILE 316
//*                     NUMBER OF BATCH JOBS RUN AND TSO SESSIONS.  *   FILE 316
//*                                                                 *   FILE 316
//*       SMFXTRCT  8X  RENAMED TO SMFXTRK, 15 MARCH 1991.          *   FILE 316
//*                                                                 *   FILE 316
//*       SMFXTRK   9X  GENERALIZED SMF RECORD EXTRACTION UTILITY.  *   FILE 316
//*                     SELECT BY RECORD TYPE, DATE INTERVAL, TIME  *   FILE 316
//*                     INTERVAL, ETC.  REBLOCKS FROM VBS TO VB !   *   FILE 316
//*                     REPORTS ON NUMBER OF RECS AND MAX + MIN.    *   FILE 316
//*                     SEE CODE FOR ALL CAPABILITIES.              *   FILE 316
//*                                                                 *   FILE 316
//*       SMF21RP   1X  REPORT SMF 21 RECORDS ON TAPE ERRORS,       *   FILE 316
//*                     ALTERNATIVE TO IBM UTILITY 'IFHSTATR'.      *   FILE 316
//*                                                                 *   FILE 316
//*       SMF48RP   1X  REPORT FROM SMF 48 RECORDS ON BSC RJE       *   FILE 316
//*                     STATS.  MOST IMPORTANTLY, LINE ERRORS.      *   FILE 316
//*                                                                 *   FILE 316
//*       SMF50RP   1X  REPORT FROM SMF 50 RECS, VTAM TUNING STATS. *   FILE 316
//*                                                                 *   FILE 316
//*       SMF53RP   1X  REPORT FROM SMF 53 RECS, SNA RJE STATS AND  *   FILE 316
//*                     MOST IMPORTANTLY, LINE ERRORS.              *   FILE 316
//*                                                                 *   FILE 316
//*       SMF71FP   1X  REPORT FROM RMF 71 RECORDS ON FRAMES FOR    *   FILE 316
//*                     PRIVATE ADDRESS SPACES.                     *   FILE 316
//*                                                                 *   FILE 316
//*       SMF71FR   1X  RMF 71 FRAMES REPORT ON CSA FRAMES.         *   FILE 316
//*                                                                 *   FILE 316
//*       SMF71LF   1X  RMF 71 FRAMES REPORT ON LPA FRAMES.         *   FILE 316
//*                                                                 *   FILE 316
//*       SMF71LP   1X  RMF 71 NVIO PAGING REPORT.                  *   FILE 316
//*                                                                 *   FILE 316
//*       SMF71PN   1X  RMF 71 RATE OF NON-VIO RECLAIMS,            *   FILE 316
//*                     PAGE-IN-OUTS.                               *   FILE 316
//*                                                                 *   FILE 316
//*       SMF71UP   1X  RMF 71 UIC COUNTS VS NVIO & NSWAP PAGING.   *   FILE 316
//*                                                                 *   FILE 316
//*       SMF71VP   1X  RMF 71 RATE OF PAGING OF VIO.               *   FILE 316
//*                                                                 *   FILE 316
//*       SMF71XF   1X  RMF 71 FRAMES REPORTS FIXED FRAMES ABOVE    *   FILE 316
//*                     AND BELOW 16M LINE.                         *   FILE 316
//*                                                                 *   FILE 316
//*       SMF72RP   2X  CONVERTED WORKLOAD ACTIVITY RPT FROM MF/1   *   FILE 316
//*                     TO USE RMF 72 RECORDS.  MAY BE OF INTEREST. *   FILE 316
//*                                                                 *   FILE 316
//*       SMPERS4   1X  SAS VERSION OF THE BELOW FOR SMP R4.        *   FILE 316
//*                                                                 *   FILE 316
//*       SMPERS5   1X  SAS VERSION OF THE BELOW FOR SMP R5.        *   FILE 316
//*                                                                 *   FILE 316
//*       SMPER5A   1X  ASM LANG VERSION OF SMP HOLDERROR REPORT    *   FILE 316
//*                     FOR SMP5.  SAYS IF PTFS APPLIED ARE IN      *   FILE 316
//*                     HOLD STATUS.                                *   FILE 316
//*                                                                 *   FILE 316
//*       STAE$     1   GENERALIZED ESTAE EXIT FOR MVS.  SEE        *   FILE 316
//*                     COMMENTS FOR ITS CAPABILITIES.              *   FILE 316
//*                                                                 *   FILE 316
//*       STRMACS   1X  STRUCTURED PROGRAMMING MACROS FOR ASSEMBLY  *   FILE 316
//*                     LANG CODING.  WAS CALLED 'CONCEPT 14' LONG  *   FILE 316
//*                     AGO AND NEVER REALLY CAUGHT ON.  WILL SEE   *   FILE 316
//*                     CODE WRITTEN IN IT AND THESE SHOULD WORK.   *   FILE 316
//*                     MACROS INCLUDED ARE AS FOLLOWS:             *   FILE 316
//*                                                                 *   FILE 316
//*                                                                 *   FILE 316
//*                     CASE      ELSE        EXITIF     POPNEST    *   FILE 316
//*                     CASENTRY  ENDCASE     GBLVARS    PUSHINS    *   FILE 316
//*                     CHKSTACK  ENDDO       GETCC      PUSHLAB    *   FILE 316
//*                     DO        ENDLOOP     IF         PUSHNEST   *   FILE 316
//*                     DOEXIT    ENDSRCH     IFPROC     STKINS     *   FILE 316
//*                     DOPROC    EXIT        POPINS     STRTDO     *   FILE 316
//*                                                      STRTSRCH   *   FILE 316
//*                                                                 *   FILE 316
//*       SYSLOG    1X  WRITE YOUR OPERATOR LOGS SAFELY AND ALWAYS  *   FILE 316
//*                     IN ORDER.  SEE CODE FOR DETAILS.            *   FILE 316
//*                                                                 *   FILE 316
//*       SYSREPRO  1X  SEQUENTIAL COPY UTILITY.  IT IS LIKE        *   FILE 316
//*                     IEBGENER BUT MUCH FASTER.  PRINTS OUT       *   FILE 316
//*                     DSNAMES, VOLSERS, DCB, ATTRIBUTES,          *   FILE 316
//*                     FILE SEQ NUMBER FOR EACH DATASET.           *   FILE 316
//*                                                                 *   FILE 316
//*       TANAL     3X  DO QUICK SCAN OF UNLABELED OR LABELED       *   FILE 316
//*                     TAPE TO GIVE YOU THE MAX AND MIN BLKSIZES   *   FILE 316
//*                     IN ALL FILES AND THE NUMBER OF BLOCKS       *   FILE 316
//*                     IN THE FILE.                                *   FILE 316
//*                                                                 *   FILE 316
//*       TAPEL     3X  GIVES YOU A QUICK SCAN OF A TAPE AND        *   FILE 316
//*                     GIVES INFO ON EACH FILE IN EASY TO READ     *   FILE 316
//*                     FORM.  IS FOR THE NOT TOO BRIGHT USER YOU   *   FILE 316
//*                     MAY HAVE.                                   *   FILE 316
//*                                                                 *   FILE 316
//*       TAPELZAP  1Y  ZAP TO FORCE OPER REPLY WITH 6 CHAR VOLSER  *   FILE 316
//*                     ON TAPE.  DECREASE TAPES WITH VOL=SER=U     *   FILE 316
//*                     MVS/SP1.1                                   *   FILE 316
//*                                                                 *   FILE 316
//*       TAPEMAP   1X  FAMOUS 'TAPEMAP' PGM IN SOURCE CARD FORM.   *   FILE 316
//*                     SURPRISING WHAT YOU CAN DO WITH A DISASS-   *   FILE 316
//*                     EMBLER AND A LOT OF TIME AND PATIENCE.      *   FILE 316
//*                                                                 *   FILE 316
//*       TAPESCAN  1   MVS UPDATED VERSION FAMOUS 'TAPESCAN'.      *   FILE 316
//*                                                                 *   FILE 316
//*       TAPESC44  1   MVS UPDATED VERSION FAMOUS 'TAPESCAN'. UPD  *   FILE 316
//*                     TO R4.4 FOR 3480 SUPPORT BY FRANK PAJERSKI. *   FILE 316
//*                     THE MAN IS NOTHING SHORT OF "GREAT".        *   FILE 316
//*                                                                 *   FILE 316
//*       TIDY      1   CLEANS UP FORTRAN CODE.  LOOK AT COMMENTS   *   FILE 316
//*                     IN CODE TO SEE HOW TO RUN THE BEAST.        *   FILE 316
//*                                                                 *   FILE 316
//*       TIDYASM   1   CLEANS UP ALC CODE.  SEE COMMENTS IN CODE   *   FILE 316
//*                     TO SEE HOW TO RUN THE BEAST.                *   FILE 316
//*                                                                 *   FILE 316
//*       TLABEL    2   REPLACES IBM UTILITY 'IEHINITT'.  OPERATOR  *   FILE 316
//*                     STARTABLE AND WILL ALLOW YOU TO PUT A       *   FILE 316
//*                     LABEL TO A TAPE OR JUST PUT A TAPEMARK      *   FILE 316
//*                     ONTO THE TAPE.  (RUNS AUTHORIZED)           *   FILE 316
//*                                                                 *   FILE 316
//*       TLPRINT   3X  SUBROUTINE USED BY SOME TAPE UTILITIES TO   *   FILE 316
//*                     FORMAT A LABEL OF A TAPE.                   *   FILE 316
//*                                                                 *   FILE 316
//*       TMSLABL   1   FRONT-END TO UCC1 TMSTPNIT TO LABEL TAPES.  *   FILE 316
//*                     GETS AROUND SC03 ABEND PROBLEM WITH         *   FILE 316
//*                     MULTI-LINKS.  WE ATTACH INSTEAD.            *   FILE 316
//*                                                                 *   FILE 316
//*       TOD       1   PGM WHICH GETS THE TIME FROM THE SYSTEM BY  *   FILE 316
//*                     'STORE CLOCK' INSTRUCTION AND PASSES IT TO  *   FILE 316
//*                     SUBPROGRAM CALLED "TODCNVRT".               *   FILE 316
//*                                                                 *   FILE 316
//*       TODCNVRT  1   SUBPGM CONVERTS THE RESULTS OF THE 'STCK'   *   FILE 316
//*                     INSTRUCTION TO EBCDIC.  LOGIC FROM MODULE   *   FILE 316
//*                     AMDPRSEG IN AMDPRDMP (WITH A FEW MODS)      *   FILE 316
//*                     MAKES PARAMETER PASSING EASIER.             *   FILE 316
//*                                                                 *   FILE 316
//*       UADSORT   1   READ AND PRINT CONTENTS OF 'SYS1.UADS' BY   *   FILE 316
//*                     TRAVELING THROUGH THE RECORDS.              *   FILE 316
//*                                                                 *   FILE 316
//*       UNIVERT   1   PGM TO CONVERT CARD DECK DATA BACK & FORTH  *   FILE 316
//*                     TO UNIVAC(FIELDATA).  USES UNIVAC TRANSLATE *   FILE 316
//*                     TABLES IN 2ND CSECT.                        *   FILE 316
//*                                                                 *   FILE 316
//*       USRGUIDE  1   THIS IS THE 2ISG USER'S GUIDE.  HOPEFULLY   *   FILE 316
//*                     IT WILL GIVE YOU AN IDEA OF HOW ONE PLACE   *   FILE 316
//*                     WROTE ONE.                                  *   FILE 316
//*                                                                 *   FILE 316
//*       VIOEXIT   1X  ACF2 VIOLATION EXIT TO ALLOW USE OF BLP IN  *   FILE 316
//*                     CASES WHERE TMS FOREIGN TAPES NEED TO BE    *   FILE 316
//*                     READ.  SEE CODE FOR EXPLANATION.            *   FILE 316
//*                                                                 *   FILE 316
//*       VKILLER   1   SUBTASK FOR TAPEL.  LETS YOU DO MULTI       *   FILE 316
//*                     TAPEL'S ON A NO. OF TAPES, THEN MAKE IT     *   FILE 316
//*                     QUIT.  YOU TELL "KILL", TO KILL TAPEL !!!!  *   FILE 316
//*                                                                 *   FILE 316
//*       ZEBCOMPR  1   A ZAP TO THE IBM UTILITY 'IEBCOMPR' TO      *   FILE 316
//*                     DISPLAY UNMATCHED RECORDS IN EBCDIC         *   FILE 316
//*                     INSTEAD OF HEX.  WE MADE A COPY OF          *   FILE 316
//*                     IEBCOMPR, CALLED IT ZEBCOMPR AND ZAPPED     *   FILE 316
//*                     IT.                                         *   FILE 316
//*                                                                 *   FILE 316
//*       ZMSG      1X  PGM TAKES MESSAGE OUT OF PARM FIELD AND     *   FILE 316
//*                     DISPLAYS ON CONSOLE.  NICE TO PUT IN JCL    *   FILE 316
//*                     PROCS TO NOTIFY OPERATORS OF PROBLEMS.      *   FILE 316
//*                                                                 *   FILE 316
//*       ZTDUMPTP  1X  GENERALIZED TAPE DUMPING FACILITY.  PUT IT  *   FILE 316
//*                     IN AN AUTHORIZED LIBRARY.  POWERFUL.  SEE   *   FILE 316
//*                     COMMENTS IN CODE FOR FULL DETAILS.          *   FILE 316
//*                                                                 *   FILE 316
//*       ZTSECURE  2X  MAKES SURE NO DATA IS BEYOND THE 2 DOUBLE   *   FILE 316
//*                     EOF MARKS ON TAPE.  DUMPS FIRST 3 BLOCKS    *   FILE 316
//*                     AND LAST BLK OF EVERY FILE.  LEAPS OVER     *   FILE 316
//*                     DOUBLE END-OF-FILE MARKS & WRITES BINARY    *   FILE 316
//*                     PATTERN UNTIL HITS REFLECTIVE STRIP.        *   FILE 316
//*                                                                 *   FILE 316
//***FILE 317 IS FROM TIM HENNESS OF TENNECO BUSINESS SERVICES IN   *   FILE 317
//*           NEWPORT NEWS, VIRGINIA, AND CONTAINS A REXX EXEC TO   *   FILE 317
//*           MANAGE IBM BOOK MANAGER BOOKS.                        *   FILE 317
//*                                                                 *   FILE 317
//*           THIS REXX EXEC IS BEST RUN UNDER TSO-IN-BATCH.        *   FILE 317
//*           SAMPLE JCL IS INCLUDED IN THIS FILE.                  *   FILE 317
//*                                                                 *   FILE 317
//*       EMAIL:   TimHenness@ibm.net                               *   FILE 317
//*                                                                 *   FILE 317
//*  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  *   FILE 317
//*                                                                 *   FILE 317
//*  MAINTAIN BOOKMANAGER DATA SETS                                 *   FILE 317
//*                                                                 *   FILE 317
//*  PROGRAM NAME - BKMGRMNT                                        *   FILE 317
//*                                                                 *   FILE 317
//*  FUNCTION -                                                     *   FILE 317
//*                                                                 *   FILE 317
//*     THIS REXX EXEC WILL INDICATE THE MAINTAINANCE REQUIRED      *   FILE 317
//*     FOR BOOKMANAGER DATA SETS.  THE FOLLOWING LISTINGS ARE      *   FILE 317
//*     PRODUCED:                                                   *   FILE 317
//*                                                                 *   FILE 317
//*     1.  LIST OF BOOKSHELVES NOT IN THE BOOKSHELF LIST.          *   FILE 317
//*                                                                 *   FILE 317
//*     2.  LIST OF BOOKSHELF INDEXES NOT USED BY ANY BOOKSHELF.    *   FILE 317
//*                                                                 *   FILE 317
//*     3.  LIST OF BOOKS NOT IN ANY BOOKSHELF.                     *   FILE 317
//*                                                                 *   FILE 317
//*     4.  LIST OF BOOKS TO BE REPLACED IN SPECIAL BOOKSHELVES.    *   FILE 317
//*                                                                 *   FILE 317
//*     ALSO, A REXX EXEC CAN BE WRITTEN THAT, WHEN EXECUTED,       *   FILE 317
//*     WILL DELETE THE BOOKSHELVES AND BOOKS INDICATED.            *   FILE 317
//*                                                                 *   FILE 317
//*     PARAMETERS -                                                *   FILE 317
//*                                                                 *   FILE 317
//*     THIS EXEC IS CALLED WITH THE FOLLOWING PARAMETER FORMAT:    *   FILE 317
//*                                                                 *   FILE 317
//*        BKMGRMNT  CNTLFILE                                       *   FILE 317
//*                                                                 *   FILE 317
//*     WHERE:                                                      *   FILE 317
//*                                                                 *   FILE 317
//*        CNTLFILE - IS THE DATA SET NAME OF THE CONTROL FILE.     *   FILE 317
//*                                                                 *   FILE 317
//*     CONTROL FILE FORMATS -                                      *   FILE 317
//*                                                                 *   FILE 317
//*     THE CONTROL FILE CONSISTS OF CONTROL RECORDS THAT           *   FILE 317
//*     DEFINE THE DATA TO BE PROCESSED.                            *   FILE 317
//*                                                                 *   FILE 317
//*     THE BOOKSHELF LISTS, BOOKSHELVES, BOOKSHELF INDEXES, AND    *   FILE 317
//*     BOOKS ARE ACCESSED FROM THE CATALOG.  THE CATALOGED DATA    *   FILE 317
//*     SET NAMES ARE DEFINED BY THE FOLLOWING CONTROL              *   FILE 317
//*     STATEMENTS:                                                 *   FILE 317
//*                                                                 *   FILE 317
//*        CATALOG BKLSHELF=MASK                                    *   FILE 317
//*        CATALOG BKSHELF=MASK                                     *   FILE 317
//*        CATALOG BKINDEX=MASK                                     *   FILE 317
//*        CATALOG BOOK=MASK                                        *   FILE 317
//*                                                                 *   FILE 317
//*     WHERE:                                                      *   FILE 317
//*                                                                 *   FILE 317
//*        MASK - IS A MASK DEFINING THE DATA SET NAMES.  A MASK    *   FILE 317
//*               CONSISTS OF A HIGH-LEVEL QUALIFIER, FOLLOWED BY   *   FILE 317
//*               ONE OR MORE QUALIFIERS.  A PERCENT SIGN ('%')     *   FILE 317
//*               CAN BE USED TO MATCH ANY SINGLE CHARACTER.  AN    *   FILE 317
//*               ASTERISK ('*') CAN BE USED TO MATCH MULTIPLE      *   FILE 317
//*               CHARACTERS IN A SINGLE QUALIFIER.  A DOUBLE       *   FILE 317
//*               ASTERISK ('**') CAN BE USED TO MATCH ZERO OR      *   FILE 317
//*               MORE QUALIFIERS.                                  *   FILE 317
//*                                                                 *   FILE 317
//*     TO EXCLUDE SPECIFIC DATA SETS, USE THE FOLLOWING            *   FILE 317
//*     CONTROL STATEMENTS:                                         *   FILE 317
//*                                                                 *   FILE 317
//*        EXCLUDE BKLSHELF=DSN                                     *   FILE 317
//*        EXCLUDE BKSHELF=DSN                                      *   FILE 317
//*        EXCLUDE BKINDEX=DSN                                      *   FILE 317
//*        EXCLUDE BOOK=DSN                                         *   FILE 317
//*                                                                 *   FILE 317
//*     WHERE:                                                      *   FILE 317
//*                                                                 *   FILE 317
//*        DSN - IS THE DATA SET NAME TO BE EXCLUDED.               *   FILE 317
//*                                                                 *   FILE 317
//*     'SPECIAL' BOOKSHELVES ARE BOOKSHELVES THAT ARE CREATED      *   FILE 317
//*     LOCALLY, USING BOOKS FROM OTHER BOOKSHELVES.  FOR           *   FILE 317
//*     EXAMPLE, THE 'MESSAGES' BOOKSHELF CONTAINS ALL OF THE       *   FILE 317
//*     BOOKS CONTAINING MESSAGES AND CODES FROM THE OTHER          *   FILE 317
//*     BOOKSHELVES.  THE SPECIAL BOOKSHELVES ARE DEFINED BY THE    *   FILE 317
//*     FOLLOWING CONTROL STATEMENT:                                *   FILE 317
//*                                                                 *   FILE 317
//*        SPECIAL BKSHELF=3DDSN                                    *   FILE 317
//*                                                                 *   FILE 317
//*     WHERE:                                                      *   FILE 317
//*                                                                 *   FILE 317
//*        DSN - IS THE DATA SET NAME OF THE SPECIAL BOOKSHELF.     *   FILE 317
//*                                                                 *   FILE 317
//*     THIS EXEC WILL WRITE SEVERAL REPORTS.  THE REPORT DATA      *   FILE 317
//*     SET IS DEFINED FROM THE FOLLOWING CONTROL STATEMENTS:       *   FILE 317
//*                                                                 *   FILE 317
//*        REPORT DSN=DSN                                           *   FILE 317
//*        REPORT SYSOUT=CLASS                                      *   FILE 317
//*        REPORT TERM                                              *   FILE 317
//*        REPORT ALLOC=PARMS                                       *   FILE 317
//*        REPORT OUTDES=OUTDES                                     *   FILE 317
//*        REPORT DEPTH=DEPTH                                       *   FILE 317
//*                                                                 *   FILE 317
//*     WHERE:                                                      *   FILE 317
//*                                                                 *   FILE 317
//*        DSN    - IS THE NAME OF THE DATA SET TO WHICH THE        *   FILE 317
//*                 REPORT IS TO BE WRITTEN.                        *   FILE 317
//*                                                                 *   FILE 317
//*        CLASS  - IS THE SYSOUT CLASS TO WHICH THE REPORT IS      *   FILE 317
//*                 TO BE WRITTEN.                                  *   FILE 317
//*                                                                 *   FILE 317
//*        TERM   - SPECIFIES THAT THE REPORT IS TO BE WRITTEN      *   FILE 317
//*                 TO THE TSO TERMINAL.                            *   FILE 317
//*                                                                 *   FILE 317
//*        PARMS  - SPECIFIES THE PARAMETERS TO BE INCLUDED ON      *   FILE 317
//*                 THE TSO ALLOCATE FOR THE REPORT DATA SET.       *   FILE 317
//*                                                                 *   FILE 317
//*        OUTDES - SPECIFIES THE PARAMETERS TO BE USED FOR THE     *   FILE 317
//*                 TSO OUTDES COMMAND FOR THE REPORT DATA SET.     *   FILE 317
//*                 AN 'OUTDES(BKMGROUT)' PARAMETER WILL BE         *   FILE 317
//*                 INCLUDED IN THE TSO ALLOCATE COMMAND FOR THE    *   FILE 317
//*                 REPORT DATA SET.  THIS PARAMETER CAN BE         *   FILE 317
//*                 SPECIFIED ONLY IF THE 'REPORT SYSOUT'           *   FILE 317
//*                 PARAMETER IS SPECIFIED.                         *   FILE 317
//*                                                                 *   FILE 317
//*        DEPTH  - IS THE NUMBER OF LINES TO BE PRINTED ON A       *   FILE 317
//*                 PAGE.  IF THIS PARAMETER IS OMITTED, THE        *   FILE 317
//*                 DEFAULT IS 60.                                  *   FILE 317
//*                                                                 *   FILE 317
//*     THIS EXEC WILL WRITE ANOTHER REXX EXEC THAT TO DELETE       *   FILE 317
//*     THE UNREFERENCED BOOKSHELVES, BOOKSHELF INDEXES, AND        *   FILE 317
//*     BOOKS.  THE REXX EXEC IS WRITTEN TO A DATA SET DEFINED      *   FILE 317
//*     BY THE FOLLOWING CONTROL STATEMENTS:                        *   FILE 317
//*                                                                 *   FILE 317
//*        EXEC DSN=DSN                                             *   FILE 317
//*        EXEC ALLOC=PARMS                                         *   FILE 317
//*                                                                 *   FILE 317
//*     WHERE:                                                      *   FILE 317
//*                                                                 *   FILE 317
//*        DSN   - IS THE DATA SET NAME OF THE REXX EXEC.  IF       *   FILE 317
//*                THIS PARAMETER IS NOT SPECIFIED, THE EXEC        *   FILE 317
//*                WILL NOT BE WRITTEN.                             *   FILE 317
//*                                                                 *   FILE 317
//*        PARMS - SPECIFIES THE ALLOCATION PARAMETERS TO BE        *   FILE 317
//*                INCLUDED ON THE TSO ALLOCATE FOR THE REXX        *   FILE 317
//*                EXEC DATA SET.  IF THIS PARAMETER IS NOT         *   FILE 317
//*                SPECIFIED, THE DATA SET MUST ALREADY EXIST.      *   FILE 317
//*                                                                 *   FILE 317
//***FILE 318 IS FROM KNUT FEIERT OF H & M SYSTEM SOFTWARE GMBH     *   FILE 318
//*           IN ROEDERMARK, GERMANY.  THIS FILE CONTAINS A         *   FILE 318
//*           PROGRAM AND A REXX EXEC TO PRINT MATERIAL IN A TAPE   *   FILE 318
//*           CREATED ON A DOS/VSE SYSTEM, IN POWER OFFLOAD         *   FILE 318
//*           FORMAT, TO A PRINTER DRIVEN BY AN MVS OR A VM         *   FILE 318
//*           SYSTEM.                                               *   FILE 318
//*                                                                 *   FILE 318
//*           THE REXX EXEC WAS TRANSLATED FROM GERMAN INTO         *   FILE 318
//*           ENGLISH BY MR. FEIERT, BUT AN APPROXIMATION OF        *   FILE 318
//*           THE ORIGINAL (UMLAUT'ED LETTERS CHANGED TO -E)        *   FILE 318
//*           GERMAN VERSION HAS BEEN INCLUDED TOO.                 *   FILE 318
//*                                                                 *   FILE 318
//*       ADDRESS:   KNUT FEIERT                                    *   FILE 318
//*                  H & M SYSTEM SOFTWARE, GMBH                    *   FILE 318
//*                  SENEFELDERSTRASSE 16                           *   FILE 318
//*                  D-63322 ROEDERMARK, GERMANY                    *   FILE 318
//*                                                                 *   FILE 318
//*       EMAIL:     HM-ROE@T-ONLINE.DE                             *   FILE 318
//*                                                                 *   FILE 318
//***FILE 319 IS A PROGRAM THAT WILL EXTRACT TYPE 14 AND 15 SMF     *   FILE 319
//*          RECORDS AND PRODUCE A REPORT.  THIS PROGRAM WAS        *   FILE 319
//*          SUPPLIED FROM THE U.S. POSTAL SERVICE IN WASHINGTON,   *   FILE 319
//*          D.C. FROM A PROGRAM THEY MODIFIED FROM THE SPLA TAPE   *   FILE 319
//*          ** DECEMBER 03, 1985.  (HAD A CALL ABOUT THIS PROGRAM  *   FILE 319
//*          IT WAS MISSING MACROS - I RESTORED THE OLD VERSION OF  *   FILE 319
//*          THE CODE - THAT HAD ALL ITS MACROS.)                   *   FILE 319
//*                                                                 *   FILE 319
//***FILE 320 IS A SERIES OF DF/DSS DRIVER EXITS FROM JOHN          *   FILE 320
//*           SULLIVAN OF LOMA LINDA UNIVERSITY MEDICAL CENTER IN   *   FILE 320
//*           CALIFORNIA.  THIS VERSION HAS A NEW UCB LOOK UP       *   FILE 320
//*           ROUTINE WHICH IS UPWARD COMPATIBLE WITH MVS/SP1.3     *   FILE 320
//*           AND MVS/SP2.0 (XA) AS WELL AS MVS 3.8 BASE LEVEL      *   FILE 320
//*           CODE.                                                 *   FILE 320
//*                                                                 *   FILE 320
//***FILE 321 is from Roland Schiradin of Eltville, Germany.        *   FILE 321
//*           This file contains several programs:  One is a        *   FILE 321
//*           COBOL load module analyzer, which will tell you       *   FILE 321
//*           what options a COBOL CSECT was compiled with.         *   FILE 321
//*           Another is a started task tester, to check if a       *   FILE 321
//*           certain started task is running, and to set a         *   FILE 321
//*           condition code in a batch job as a result.            *   FILE 321
//*                                                                 *   FILE 321
//*           Addition of a CICS CEMT interface for batch.          *   FILE 321
//*                                                                 *   FILE 321
//*       ADDRESS:   ROLAND SCHIRADIN                               *   FILE 321
//*                  TAUSUSSTR 52                                   *   FILE 321
//*                  65343 ELTVILLE, GERMANY                        *   FILE 321
//*                                                                 *   FILE 321
//*       PHONE:     49-6123-899708                                 *   FILE 321
//*                                                                 *   FILE 321
//*       EMAIL:     ROLAND@SCHIRADIN.DE (fix)                      *   FILE 321
//*                  SCHIRADI@TAP.DE (can be changed)               *   FILE 321
//*                  SCHIRADINR@ALTE-LEIPZIGER.DE  (WORK)           *   FILE 321
//*                                                                 *   FILE 321
//*     Roland Schiradin (July 2000)                                *   FILE 321
//*                                                                 *   FILE 321
//* --------------------------------------------------------------  *   FILE 321
//*                                                                 *   FILE 321
//*     These programs are distributed on an as is, where is        *   FILE 321
//*     basis, without expressed or implied warranty of any         *   FILE 321
//*     kind. It is distributed in hope that it may save other      *   FILE 321
//*     people some wheel re-inventing.                             *   FILE 321
//*                                                                 *   FILE 321
//* --------------------------------------------------------------  *   FILE 321
//*                                                                 *   FILE 321
//*   Addition of an ISPF interface to Roland Schiradin's COBANAL   *   FILE 321
//*   program, from Fritz Alber:                                    *   FILE 321
//*                                                                 *   FILE 321
//*    COBOL ANALYSIS ISPF DIALOG                                   *   FILE 321
//*    Supplement to CBT File 321 program COBANAL                   *   FILE 321
//*    developed by Roland Schiradin                                *   FILE 321
//*                                                                 *   FILE 321
//*    Fritz Alber                                                  *   FILE 321
//*    Albstr. 19                                                   *   FILE 321
//*    D 72649 Wolfschlugen                                         *   FILE 321
//*    TEL. 0049-7022/959234                                        *   FILE 321
//*    FAX. 0049-7022/959236                                        *   FILE 321
//*                                                                 *   FILE 321
//*    E-MAIL  : Alberalber-edv.de                                 *   FILE 321
//*    INTERNET: www.alber-edv.de                                   *   FILE 321
//*                                                                 *   FILE 321
//*       -------------------  Index  ---------------------         *   FILE 321
//*                                                                 *   FILE 321
//*     COBANAL   This Program analyzes your Cobol-Load-Modules.    *   FILE 321
//*               There is no need for the source. Support for      *   FILE 321
//*               single programs also for a complete load-lib.     *   FILE 321
//*               This program require the STRING macro from        *   FILE 321
//*               FILE183.  I have include the current versions     *   FILE 321
//*               of STRING and STRINGXA. Thanks to Gilbert         *   FILE 321
//*               Saint-Flour                                       *   FILE 321
//*                                                                 *   FILE 321
//*               Full support for COBOL for OS/390 and VM          *   FILE 321
//*               formally called COBOL for MVS and VM,             *   FILE 321
//*               COBOL/370 or ADCYLE COBOl/370.  Full support      *   FILE 321
//*               for COBOL-II every version.  Not much             *   FILE 321
//*               support for COBOL-I.  Not much support for C      *   FILE 321
//*               and LE-enabled Assembler.                         *   FILE 321
//*                                                                 *   FILE 321
//*               If you have older or newer Cobol programs         *   FILE 321
//*               please send the load modules to me at             *   FILE 321
//*               Roland(at)Schiradin.de. I'll add some code        *   FILE 321
//*               to support those Cobol-Versions.  Put the         *   FILE 321
//*               load module pds in TSO XMIT format.               *   FILE 321
//*                                                                 *   FILE 321
//*               If you like to get the newest version of these    *   FILE 321
//*               programs, please contact Roland(at)Schiradin.de   *   FILE 321
//*                                                                 *   FILE 321
//*               You can find a nice ISPF interface for CobAnal    *   FILE 321
//*               on File 330, which is also included here on       *   FILE 321
//*               File 321.                                         *   FILE 321
//*                                                                 *   FILE 321
//*               Last Change: July 2000                            *   FILE 321
//*                                                                 *   FILE 321
//*     COBJCL    A sample JCL for COBANAL                          *   FILE 321
//*                                                                 *   FILE 321
//*               Last Change: March 1998                           *   FILE 321
//*                                                                 *   FILE 321
//*     STCCHECK  This program check if a started task is           *   FILE 321
//*               already active.  This avoid abend U1800 if a      *   FILE 321
//*               operator start the same CICS again.  Please note  *   FILE 321
//*               this works only on the same MVS-image, I'll add   *   FILE 321
//*               somtimes code to check the SYSPLEX.               *   FILE 321
//*                                                                 *   FILE 321
//*               //*******************  EXECUTE CICS               *   FILE 321
//*               //*****************************************       *   FILE 321
//*               //STCCHECK EXEC PGM=STCCHECK,PARM='DCCA201'       *   FILE 321
//*               //SYSPRINT  DD SYSOUT=*                           *   FILE 321
//*               //SYSUDUMP  DD SYSOUT=D                           *   FILE 321
//*               //*****************************************       *   FILE 321
//*               //DCCSTRT IF (STCCHECK.RC = 0) THEN               *   FILE 321
//*               //DCCA201 EXEC PROC=DCICSA                        *   FILE 321
//*               //EDCCSTRT ENDIF                                  *   FILE 321
//*                                                                 *   FILE 321
//*               RC = 0   DCCA201 is not active                    *   FILE 321
//*               RC not 0 DCCA201 is active                        *   FILE 321
//*                                                                 *   FILE 321
//*               Last Change: March 1998                           *   FILE 321
//*                                                                 *   FILE 321
//*     STRING    Provides functions similar to PL/I's              *   FILE 321
//*               PUT EDIT or COBOL's STRING.                       *   FILE 321
//*                                                                 *   FILE 321
//*               Taken from FILE183.                               *   FILE 321
//*                                                                 *   FILE 321
//*     EXCIJCL   Sample JCL to invoke the                          *   FILE 321
//*               CICS-Batch-Interface                              *   FILE 321
//*                                                                 *   FILE 321
//*               Last Change: March 1999                           *   FILE 321
//*                                                                 *   FILE 321
//*     EXCIRDO   CSD for CICS 4.1 and higher                       *   FILE 321
//*                                                                 *   FILE 321
//*               Last Change: March 1999                           *   FILE 321
//*                                                                 *   FILE 321
//*     EXCI      The CEMT-Batch-Interface written in Cobol         *   FILE 321
//*               Note: You need the EXCI-Stub (DFHEXLI) in         *   FILE 321
//*               your BIND-Job !!!! Please specify EXCI and        *   FILE 321
//*               COBOL3 as the precompiler option.                 *   FILE 321
//*                                                                 *   FILE 321
//*               Last Change: March 1999                           *   FILE 321
//*                                                                 *   FILE 321
//*     EXCISE    The CICS-Server-Program written in                *   FILE 321
//*               Assembler.  Please expand the program to          *   FILE 321
//*               your needs.                                       *   FILE 321
//*                                                                 *   FILE 321
//*               Last Change: March 1999                           *   FILE 321
//*                                                                 *   FILE 321
//*     STRINGXA  Dropped                                           *   FILE 321
//*                                                                 *   FILE 321
//***FILE 322 IS FROM SEVERAL SOURCES ON THE INTERNET, AND          *   FILE 322
//*           CONTAINS PROGRAMS TO SUSPEND EXECUTION OF A CLIST     *   FILE 322
//*           OR REXX EXEC UNDER TSO, FOR A GIVEN AMOUNT OF TIME,   *   FILE 322
//*           SIMILAR TO THE VM CP COMMAND CALLED 'SLEEP'.          *   FILE 322
//*                                                                 *   FILE 322
//*           INCLUDED ARE:                                         *   FILE 322
//*                                                                 *   FILE 322
//*           TSOWAIT  -  from Wim Hondorp                          *   FILE 322
//*                                                                 *   FILE 322
//*           SLEEPJ   -  from Hans Joolen                          *   FILE 322
//*                                                                 *   FILE 322
//*           SLEEPR   -  from Gary Scarcella                       *   FILE 322
//*                                                                 *   FILE 322
//*           SLEEPS   -  from Rob Scott                            *   FILE 322
//*                                                                 *   FILE 322
//*           SYSSLEEP -  from Roger Lacroix                        *   FILE 322
//*                                                                 *   FILE 322
//*           REXXWAIT -  from Lionel Dyck                          *   FILE 322
//*                                                                 *   FILE 322
//*       THERE ARE ENOUGH IDEAS INCLUDED IN THESE PROGRAMS, SO     *   FILE 322
//*       THAT IF YOU NEED SOMETHING THAT'S A LITTLE DIFFERENT,     *   FILE 322
//*       YOU CAN PROBABLY PROGRAM IT YOURSELF.                     *   FILE 322
//*                                                                 *   FILE 322
//***FILE 323 IS FROM GERARD NICOL OF EUREKA SYSTEMS PROGRAMMING    *   FILE 323
//*           PTY LTD OF LEICHHARDT, AUSTRALIA.  THIS FILE CONTAINS *   FILE 323
//*           A REXX FUNCTION PACKAGE WRITTEN IN ASSEMBLER.  THIS   *   FILE 323
//*           FILE CONTAINS SOURCE-FORMAT MEMBERS NEEDED TO RUN     *   FILE 323
//*           THE REXX FUNCTIONS, BUT SOURCE CODE FOR THE ASSEMBLER *   FILE 323
//*           LOAD MODULES ON FILE 324 IS NOT INCLUDED.             *   FILE 323
//*                                                                 *   FILE 323
//*           THIS FILE NOW CONTAINS GERARD'S FULL PACKAGE.  THE    *   FILE 323
//*           COMPLETE PACKAGE NO LONGER HAS AN EXPIRY DATE.        *   FILE 323
//*           UPDATES MAY BE OBTAINED BY DOWNLOADING FROM GERARD'S  *   FILE 323
//*           WEB SITE:                                             *   FILE 323
//*                                                                 *   FILE 323
//*            HTTP://WWW.LEICHHARDT.NET.AU/GERARD/REXXFP1          *   FILE 323
//*                                                                 *   FILE 323
//*       EMAIL:   GERARD@LEICHHARDT.NET.AU                         *   FILE 323
//*                GNI13@QANTAS.COM.AU        WORK                  *   FILE 323
//*                                                                 *   FILE 323
//*           FOR A DESCRIPTION OF THIS PACKAGE, SEE MEMBERS        *   FILE 323
//*           $$$ABOUT, $$$DESCR, $$$INDEX, $$$SYNTX.               *   FILE 323
//*                                                                 *   FILE 323
//***FILE 324 IS FROM GERARD NICOL OF EUREKA SYSTEMS PROGRAMMING    *   FILE 324
//*           PTY LTD OF LEICHHARDT, AUSTRALIA.  THIS FILE CONTAINS *   FILE 324
//*           LOAD MODULE MEMBERS FOR HIS REXX FUNCTION PACKAGE.    *   FILE 324
//*                                                                 *   FILE 324
//*           THIS IS NOW GERARD'S FULL PACKAGE.  ALL OF THE        *   FILE 324
//*           FUNCTIONS IN HIS PACKAGE ARE INCLUDED HERE.           *   FILE 324
//*           FUTURE UPDATES MAY BE OBTAINED BY DOWNLOADING         *   FILE 324
//*           FROM GERARD'S WEB SITE:                               *   FILE 324
//*                                                                 *   FILE 324
//*            HTTP://WWW.LEICHHARDT.NET.AU/GERARD/REXXFP1          *   FILE 324
//*                                                                 *   FILE 324
//***FILE 325 IF FROM WELLS FARGO BANK AND CONTAINS THE FOLLOWING   *   FILE 325
//*           PROGRAMS AND TSO COMMANDS.  ALL CODE IS CURRENT AS OF *   FILE 325
//*           SEP 1986,  MVS / XA 2.1.5.                            *   FILE 325
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT.                *   FILE 325
//*           SEE THE MEMBER CALLED $$DOC FOR ADDITIONAL            *   FILE 325
//*           INFORMATION.                                          *   FILE 325
//*                                                                 *   FILE 325
//*         DARTH    - THE 'DUMP ACTIVITY REPORTER / TAPE HANDLER'  *   FILE 325
//*                    UTILITY THAT PROCESSES SYS1.DUMP DATASETS.   *   FILE 325
//*                    DARTH RUNS AS A STARTED TASK THAT WAKES UP   *   FILE 325
//*                    EVERY 15 MINUTES TO CHECK ALL DEFINED DUMP   *   FILE 325
//*                    DATASETS.  WHEN A DUMP IS PRESENT, A TAPE    *   FILE 325
//*                    IS DYNAMICALLY ALLOCATED, THE DUMP IS        *   FILE 325
//*                    OFFLOADED, AND THE DATASET IS RESET.  THEN   *   FILE 325
//*                    A CONTROL DATASET IS UPDATED TO RECORD THE   *   FILE 325
//*                    SYSTEM ID, DATE, AND TIME WHERE THE DUMP     *   FILE 325
//*                    OCCURRED, THE TAPE VOLUME IDETIFICATION,     *   FILE 325
//*                    AND THE ACTUAL TITLE FROM THE DUMP.          *   FILE 325
//*                                                                 *   FILE 325
//*         IEFUTL   - WELLS FARGO'S VERSION OF THE SMF USER TIME   *   FILE 325
//*                    LIMIT EXIT.  YOU WILL NOT BE ABLE TO USE     *   FILE 325
//*                    THIS CODE AS IT STANDS BECAUSE OF SOME       *   FILE 325
//*                    INSTALLATION DEPENDENCIES THAT ARE NOT       *   FILE 325
//*                    SHIPPED.                                     *   FILE 325
//*                                                                 *   FILE 325
//*                      THIS IS AN EXAMPLE OF HOW TO DISCONNECT A  *   FILE 325
//*                    TSO USER RATHER THAN CANCEL WHEN WAIT TIME   *   FILE 325
//*                    IS EXCEEDED.  THE USER THEN HAS HOWEVER      *   FILE 325
//*                    MUCH TIME AS YOU ALLOW IN YOUR RECONLIM=     *   FILE 325
//*                    PARAMETER TO LOGON RECONNECT BEFORE VTAM     *   FILE 325
//*                    AUTOMATICALLY CANCELS THE ADDRESS SPACE.     *   FILE 325
//*                    THE TERMINAL BECOMES IMMEDIATELY AVAILABLE   *   FILE 325
//*                    FOR USE BY OTHER IDS, AND THE DISCONNECTED   *   FILE 325
//*                    ID REMAINS SWAPPED OUT.                      *   FILE 325
//*                                                                 *   FILE 325
//*                      SEE THE CODE THAT REFERS TO VTAM COMMAND:  *   FILE 325
//*                      V NET,TERM, ...                            *   FILE 325
//*                                                                 *   FILE 325
//*                    NOTE ===> THIS PERFORMS THE SAME FUNCTION    *   FILE 325
//*                      THROUGH OPERATOR COMMAND THAT ANY USER     *   FILE 325
//*                      CAN INVOKE THROUGH KEYBOARD ACTION.  IF    *   FILE 325
//*                      YOU ARE NOT FAMILIAR WITH CONDITIONAL      *   FILE 325
//*                      LOGOFF, READ "INVOKING UNFORMATTED SYSTEM  *   FILE 325
//*                      SERVICE TYPE(COND) TO FORCE A RECONNECT    *   FILE 325
//*                      ENVIRONMENT" IN THE TSO TERMINAL USER'S    *   FILE 325
//*                      GUIDE.                                     *   FILE 325
//*                                                                 *   FILE 325
//*         INMXZ01  - TSO/E TRANSMIT INITIALIZATION EXIT TO        *   FILE 325
//*                    PREVENT TRANSMISSION TO NON-EXISTENT TSO     *   FILE 325
//*                    USERIDS ON SAME NODE AS SENDER (JES2 EXIT 13 *   FILE 325
//*                    HANDLES NJE TRANSMISSIONS FROM OTHER NODES)  *   FILE 325
//*                    AND THEREBY KEEP UNRECEIVABLE DATA OFF JES2  *   FILE 325
//*                    SPOOL.                                       *   FILE 325
//*                                                                 *   FILE 325
//*                      THE EXIT SEARCHES THE ADDRESS              *   FILE 325
//*                    LIST FOR A LOCAL NODE, THEN CALLS            *   FILE 325
//*                    ACF2 TO VERIFY EXISTENCE OF USER.            *   FILE 325
//*                    IF NOT VALID, THE USERID IS                  *   FILE 325
//*                    REMOVED FROM THE ADDRESS LIST AND            *   FILE 325
//*                    AN ERROR MESSAGE IS ISSUED TO THE            *   FILE 325
//*                    SENDER.                                      *   FILE 325
//*                    NOTE:  REQUIRES PTF UZ39974 (OR EQUIVALENT)  *   FILE 325
//*                           BE INSTALLED FOR CORRECT FUNTIONING   *   FILE 325
//*                           OF "UNCHAINING" INVALID USERID.       *   FILE 325
//*                                                                 *   FILE 325
//*         INMXZ02  - TSO/E TRANSMIT TERMINATION EXIT TO ISSUE     *   FILE 325
//*                    EQUIVALENT OF "$HASP549 MAIL FROM" MESSAGE   *   FILE 325
//*                    TO NOTIFY RECEIVING USERS OF LOCAL NODE      *   FILE 325
//*                    TRANSMISSION.  (LOCAL TRANSMISSIONS DO NOT   *   FILE 325
//*                    PASS THROUGH JES2 EXIT 13).                  *   FILE 325
//*                                                                 *   FILE 325
//*                      THE EXIT SEARCHES THE ADDRESS LIST FOR A   *   FILE 325
//*                    LOCAL NODE, THEN VERIFIES THE OUTPUT TARGET  *   FILE 325
//*                    IS JES SYSOUT AND TRANSMISSION HAS           *   FILE 325
//*                    SUCCESSFULLY COMPLETED.  "SEND               *   FILE 325
//*                    '$HASP549...',USER=(),LOGON" IS ISSUED VIA   *   FILE 325
//*                    SVC34.                                       *   FILE 325
//*                                                                 *   FILE 325
//*         JESLOGON - A PROGRAM TO ALLOW A TSO USER TO LOGON TO    *   FILE 325
//*                    ANY SECONDARY SUBSYSTEM.  IT ACTS AS A       *   FILE 325
//*                    ONE-TIME FRONT END FOR THE STANDARD TMP,     *   FILE 325
//*                    AND IS INTENDED TO BE EXECUTED BY THE        *   FILE 325
//*                    LOGON PROCEDURE.  JOB SUBMISSIONS AND PSO    *   FILE 325
//*                    (PROCESS SYSOUT) REQUESTS ARE ALSO HANDLED   *   FILE 325
//*                    BY THE SECONDARY JES.                        *   FILE 325
//*                                                                 *   FILE 325
//*         JESMAXCC - A PAIR OF JES2 (SP2.1.5) EXITS THAT ADD TEXT *   FILE 325
//*                    TO THE $HASP165 MESSAGE GENERATED BY NOTIFY= *   FILE 325
//*                    ON THE JOB CARD OR BY THE JES2 /*NOTIFY      *   FILE 325
//*                    CONTROL CARD.  IF THE JOB DOES NOT ABEND,    *   FILE 325
//*                    THE MAXIMUM CONDITION CODE OF ALL EXECUTED   *   FILE 325
//*                    STEPS IS ADDED.  IF THE JOB ABENDS, THE      *   FILE 325
//*                    SYSTEM OR USER ABEND CODE IS ADDED:          *   FILE 325
//*                      $HASP165 YOURJOB ENDED AT NODE - MAX COND  *   FILE 325
//*                      CODE 0000                                  *   FILE 325
//*                      $HASP165 YOURJOB ENDED AT NODE - ABENDED   *   FILE 325
//*                      USER XXX                                   *   FILE 325
//*                      $HASP165 YOURJOB ENDED AT NODE - CANCELLED *   FILE 325
//*                      SYSTEM 222                                 *   FILE 325
//*                                                                 *   FILE 325
//*         NOTE     - TWO CLISTS, ONE ISPF PANEL, AND A HELP ENTRY *   FILE 325
//*                    THAT PROVIDE A FACILITY TO DELIVER PROFS     *   FILE 325
//*                    NOTES FROM A TSO SESSION:                    *   FILE 325
//*                      NOTE     - THE DRIVING CLIST, INVOKES      *   FILE 325
//*                                 WFBNOTE AND NOTEIMAC            *   FILE 325
//*                      NOTEIMAC - PDF EDIT INITIAL MACRO FOR      *   FILE 325
//*                                 SPECIAL FORMATTING              *   FILE 325
//*                      WFBNOTE  - ISPF PANEL TO COLLECT DATA FOR  *   FILE 325
//*                                 NOTE CLIST                      *   FILE 325
//*                      NOTEHELP - HELP ENTRY FOR NOTE CLIST       *   FILE 325
//*                                 (RENAME TO ==> NOTE)            *   FILE 325
//*                    THE NOTE COMMAND PROCEDURE (CLIST) USES THE  *   FILE 325
//*                    ISPF/PDF EDITOR TO BUILD AND FORMAT MAIL     *   FILE 325
//*                    "NOTES", THEN SENDS THEM TO PROFS OR TSO     *   FILE 325
//*                    USERS.  NOTE USES ISPF DIALOG SERVICES TO    *   FILE 325
//*                    COLLECT INFORMATION BY DISPLAYING PANELS,    *   FILE 325
//*                    THEREFORE NOTE MUST BE EXECUTED WHILE ISPF   *   FILE 325
//*                    IS ACTIVE.                                   *   FILE 325
//*                    THIS FACILITY WAS ORIGINALLY WRITTEN TO USE  *   FILE 325
//*                    THE TSO TRANSMIT COMMAND FOR DATA            *   FILE 325
//*                    TRANSMISSION, BUT BECAUSE PROFS CAN NOT      *   FILE 325
//*                    DECIPHER TRANSMIT CONTROL TAGS, NOTE NOW     *   FILE 325
//*                    USES A SPECIALLY MODIFIED VERSION OF THE     *   FILE 325
//*                    PRINTOFF COMMAND.  THIS PRINTOFF, WHICH      *   FILE 325
//*                    ALLOWS DEST(NODE.USER), IS PROVIDED IN THIS  *   FILE 325
//*                    PACKAGE.                                     *   FILE 325
//*                                                                 *   FILE 325
//*         OPCON    - OPERATOR CONSOLE MONITOR MODIFIED FOR WFB    *   FILE 325
//*                                                                 *   FILE 325
//*                    S   P   Y   (NAME CHANGED TO "OPCON" IN      *   FILE 325
//*                                THE CODE, BUT COMMENTS STILL     *   FILE 325
//*                                REFER TO "SPY")                  *   FILE 325
//*                                                                 *   FILE 325
//*                    THIS PROGRAM DISPLAYS THE CONTENTS OF ALL    *   FILE 325
//*                    ACTIVE GRAPHIC OPERATOR'S CONSOLES ON A TSO  *   FILE 325
//*                    CRT.  THE OPERATOR'S SCREEN CAN BE EITHER A  *   FILE 325
//*                    327X OR A 370-168 INTEGRATED CONSOLE.  THE   *   FILE 325
//*                    TSO USER CAN USE ANY 327X TERMINAL.          *   FILE 325
//*                                                                 *   FILE 325
//*             V3.3.2 - CORRECT SUPPORT FOR 327X MODEL 3 CONSOLE.  *   FILE 325
//*             V3.3.1 - CHANGE CONSOLE ASID TO 7 DUE TO CATALOG    *   FILE 325
//*                      ASID W/ DFP V2.                            *   FILE 325
//*               V3.3 - ADD SUPPORT FOR VIEWING CONSOLES THAT HAVE *   FILE 325
//*                      3270 EXTENDED FIELD ATTRIBUTES (E.G. 3179, *   FILE 325
//*                      3180, 3279-3B, ETC.).                      *   FILE 325
//*                    - MAKE OPCON NON-SWAPPABLE.                  *   FILE 325
//*                    - CHANGE CONSOLE ASID TO 6 FOR XA (S/370     *   FILE 325
//*                      CONASID IS 5).                             *   FILE 325
//*               V3.2 - ELIMINATE SPECIAL CHARACTER REQUIRED TO    *   FILE 325
//*                      PRECEDE OS CMD                             *   FILE 325
//*                    - ELIMINATE SECRET AUTH SVC, RESTORE MODESET *   FILE 325
//*                      AND SVC34                                  *   FILE 325
//*                    - CORRECT BUFFER ADDRESS PROBLEM WITH LINE 1 *   FILE 325
//*                      OF DISPLAY                                 *   FILE 325
//*                    - CORRECT LOOP COUNT FOR UCM BUILD ROUTINE   *   FILE 325
//*                    - ADD SUBCOMMAND A.. (AUTO W.. AFTER COMMAND *   FILE 325
//*                      ENTRY)                                     *   FILE 325
//*                    - ADD CHECK AT INITIALIZATION FOR TSO OPER   *   FILE 325
//*                      AUTHORITY                                  *   FILE 325
//*                    - MAKE COMMAND ENTRY AREA NON-DISPLAY UNTIL  *   FILE 325
//*                      PASSWD GIVEN                               *   FILE 325
//*                    - MAKE "OPER REDISPLAY" AREA MODIFIABLE FOR  *   FILE 325
//*                      REENTRY                                    *   FILE 325
//*                    - FILL BOTH ENTRY AREAS WITH NULLS TO ALLOW  *   FILE 325
//*                      CHAR INSERT                                *   FILE 325
//*                    - REDISPLAY LAST CMD ENTERED BY USER         *   FILE 325
//*                      (INSTEAD OF OPER)                          *   FILE 325
//*                    - MOVE CONSOLE STATUS TABLE TO SEPARATE      *   FILE 325
//*                      CSECT                                      *   FILE 325
//*                    - RESTRUCTURE THE HELP SCREEN AND USE        *   FILE 325
//*                      UPPER/LOWER CASE                           *   FILE 325
//*                    - PROVIDE TSO HELP ENTRY AS COMMENTS AT END  *   FILE 325
//*                      OF SOURCE                                  *   FILE 325
//*                                                                 *   FILE 325
//*         PRINTOFF - THE WIDELY MODIFIED IPO SUPPLIED TSO         *   FILE 325
//*                    COMMAND TO PRINT A DATASET, WITH YET MORE    *   FILE 325
//*                    FUNCTIONS ADDED.  AFTER RESEARCHING ALL      *   FILE 325
//*                    VERSIONS ON THE CBT TAPE, WELLS FARGO        *   FILE 325
//*                    CREATED THIS VERSION FROM SOURCE FROM FOUR   *   FILE 325
//*                    SEPARATE FILES.  WE BELIEVE THIS CONTAINS    *   FILE 325
//*                    ALL FEATURES EXCEPT ONE WHICH WILL BE        *   FILE 325
//*                    ADDED WITH OUR NEXT UPDATE (HONOR EXISTING   *   FILE 325
//*                    CC EVEN IF DCB SAYS "NO CC").                *   FILE 325
//*                                                                 *   FILE 325
//*                    R2 - * CORRECT ERROR, 'NOHEAD' CAUSED BLANK  *   FILE 325
//*                           FIRST PAGE.                           *   FILE 325
//*                         * CORRECT ERRORS IN LENGTH OF TEXTG     *   FILE 325
//*                           THROUGH TEXTJ.                        *   FILE 325
//*                         * INCREASE INPUT RECORD LIMIT TO        *   FILE 325
//*                           32,760.                               *   FILE 325
//*                         * CHANGE DSNAME POSIT TO DSTHING TO     *   FILE 325
//*                           ALLOW FOR DDN().                      *   FILE 325
//*                         * CHANGE DEST KEYWORD TO ACCEPT 8       *   FILE 325
//*                           CHARACTER VALUE.                      *   FILE 325
//*                         * CHANGE DEST KEYWORD TO ACCEPT NODE    *   FILE 325
//*                           AND USERID.                           *   FILE 325
//*                         * ADD DDNAME(...) KEYWORD TO ALLOW TEMP *   FILE 325
//*                           OR VIO DATASETS.                      *   FILE 325
//*                         * ADD UNIT(...) KEYWORD FOR USE WITH    *   FILE 325
//*                           VOLUME(...).                          *   FILE 325
//*                         * ADD 'VOLUME: VOLSER' TO HEADING WHEN  *   FILE 325
//*                           SPECIFIED.                            *   FILE 325
//*              +--------> * ADD TIME AND 'MONTHNAME DAY, YEAR' TO *   FILE 325
//*              :            DSN HEADING.                          *   FILE 325
//*              :          * ADD NOMSGS KEYWORD TO STOP NON-ERROR  *   FILE 325
//*              :            MSGS TO TERMINAL.                     *   FILE 325
//*              :          * ADD DSECT=YES TO CVT MACRO FOR CLEAN  *   FILE 325
//*              :            XA ASSEMBLY.                          *   FILE 325
//*              :          * MOVE ALL PUTLINE TEXT TO SEPARATE     *   FILE 325
//*              :            MESSAGES CSECT.                       *   FILE 325
//*              :            --- (FOLLOWING CHANGES ARE WFB        *   FILE 325
//*              :                SPECIFIC) ---                     *   FILE 325
//*              :          * MAKE WFB DEFAULT FORM($TST) IN PARSE  *   FILE 325
//*              :            MACRO.                                *   FILE 325
//*              :                                                  *   FILE 325
//*              +-- NOTE ==> THE TIME-DATE ROUTINE IKJEFLPA        *   FILE 325
//*                           NORMALLY RESIDES ONLY IN SYS1.AOST4.  *   FILE 325
//*                           THIS LIBRARY MUST BE INCLUDED IN THE  *   FILE 325
//*                           LINKEDIT SYSLIB FOR PROPER            *   FILE 325
//*                           RESOLUTION.                           *   FILE 325
//*                                                                 *   FILE 325
//*         ROOM     - (THIS VERSION IS UPDATED TO JES2 SP2.1.5     *   FILE 325
//*                    LEVEL.)  A TSO COMMAND TO ALLOW A USER TO    *   FILE 325
//*                    CHANGE THE "ROOM NUMBER" FIELD IN THE JES    *   FILE 325
//*                    JCT FOR THE TSO SESSION.  THIS COMMAND IS    *   FILE 325
//*                    NECESSARY BECAUSE THE ROOM NUMBER FIELD IS   *   FILE 325
//*                    NOT SUPPORTED BY UADS (AND THE FIELD IS      *   FILE 325
//*                    OVERLAYED BY WELLS FARGO ACCOUNTING          *   FILE 325
//*                    INFORMATION DURING LOGON).  ROOM MAKES IT    *   FILE 325
//*                    EASY FOR THE USER TO SPECIFY DELIVERY        *   FILE 325
//*                    INFORMATION (PRINTED ON JES HEADER AND       *   FILE 325
//*                    TRAILER PAGES) FOR ALL SYSOUT CREATED DURING *   FILE 325
//*                    THE SESSION, INCLUDING SPUN DATASETS.        *   FILE 325
//*                                                                 *   FILE 325
//*                    THIS CODE CAN SERVE AS A MODEL FOR ALLOWING  *   FILE 325
//*                    A TSO USER TO CHANGE THROUGH AUTHORIZED      *   FILE 325
//*                    MEANS ANY OTHERWISE PROTECTED INFORMATION IN *   FILE 325
//*                    THE JES JCT OR SIMILAR CONTROL BLOCKS.       *   FILE 325
//*                                                                 *   FILE 325
//*         VTAMCHK  - THIS PROGRAM IS INTENDED TO BE STARTED       *   FILE 325
//*                    AUTOMATICALLY AFTER AN IPL (BY COMMNDXX).    *   FILE 325
//*                    IT IS USED TO START VTAM APPLICATIONS OR     *   FILE 325
//*                    ISSUE OTHER COMMANDS IN AN ORDERLY SEQUENCE  *   FILE 325
//*                    AFTER VTAM IS UP AND RUNNING.  VTAMCHK HAS   *   FILE 325
//*                    THE OPTION TO DELAY BETWEEN ISSUING EACH     *   FILE 325
//*                    COMMAND BECAUSE SOME ENVIRONMENTS            *   FILE 325
//*                    THEMSELVES HAVE TIME DEPENDENCIES, SUCH AS   *   FILE 325
//*                    $SLOGON1   (WAIT FOR INITIALIZATION)         *   FILE 325
//*                                                                 *   FILE 325
//*                            $SN,A=XX                             *   FILE 325
//*                                                                 *   FILE 325
//*                    THE SOURCE HAS A SAMPLE OF THE PROCEDURE     *   FILE 325
//*                    AND SOME COMMANDS.                           *   FILE 325
//*                                                                 *   FILE 325
//*         VTOCLIST - A CORRECTED VERSION OF THE GTE VTOCLIST      *   FILE 325
//*                    PROGRAM TAKEN FROM THE CBT TAPE.             *   FILE 325
//*                    CORRECTIONS INCLUDE:                         *   FILE 325
//*                                                                 *   FILE 325
//*                    - PROVIDE SUPPORT FOR 3380 MODEL E DEVICES.  *   FILE 325
//*                    - PROVIDE SUPPORT FOR DF/EF VSAM FILES WHICH *   FILE 325
//*                      ARE ALLOWED TO HAVE MORE THAN 16 EXTENTS.  *   FILE 325
//*                    - TWO CORRECTIONS TO PRINT EXTENT NUMBERS    *   FILE 325
//*                      GREATER THAN 99.                           *   FILE 325
//*                    - A CORRECTION TO PRINT THE "LAST REF DATA"  *   FILE 325
//*                      AND "USE COUNT".                           *   FILE 325
//*                                                                 *   FILE 325
//***FILE 326 IS FROM JIM MARSHALL OF THE U.S. AIR FORCE, RETIRED.  *   FILE 326
//*              THIS FILE CONTAINS THE COMPILER AND LIBRARY FOR    *   FILE 326
//*              THE VANILLA OS/MVS FORTRAN H COMPILER AND LIBRARY  *   FILE 326
//*                                                                 *   FILE 326
//*           JIM HAS RETIRED FROM THE AIR FORCE.  HIS ADDRESS IS:  *   FILE 326
//*                                                                 *   FILE 326
//*                 JIM MARSHALL, US TREASURY                       *   FILE 326
//*                 FINANCIAL MANAGEMENT SERVICE                    *   FILE 326
//*                 PRINCE GEORGES PLAZA II - ROOM 400B             *   FILE 326
//*                 3700 EAST-WEST HIGHWAY                          *   FILE 326
//*                 HYATTSVILLE, MD  20782                          *   FILE 326
//*                 202-874-8353                                    *   FILE 326
//*                                                                 *   FILE 326
//*           THIS FILE HAS BEEN UPDATED BY RICK FOCHTMAN OF        *   FILE 326
//*           LISLE, ILLINOIS.        630-719-1545                  *   FILE 326
//*                                                                 *   FILE 326
//*           THIS FILE HAS BEEN UPDATED TO INCLUDE A RE-LINKEDIT   *   FILE 326
//*           OF ALL FORTRAN MODULES, USING THE DFP 3.1 LINKAGE     *   FILE 326
//*           EDITOR.                                               *   FILE 326
//*                                                                 *   FILE 326
//*           THESE MODULES HAVE BEEN RUN ON MVS/XA 2.2.3.          *   FILE 326
//*           HOPEFULLY THEY SHOULD BE GOOD ON MVS/ESA RELEASES.    *   FILE 326
//*                                                                 *   FILE 326
//*           RICK HAS BEEN VERY HELPFUL TO USERS OF FORTRAN, IN    *   FILE 326
//*           THAT HE HAS MARKED ALL THE MODULES IN THEIR IDR       *   FILE 326
//*           RECORDS, TO SAY WHETHER THEY BELONG TO FORTRAN G OR   *   FILE 326
//*           FORTRAN H, COMPILER OR LIBRARY MODULE.  YOU CAN       *   FILE 326
//*           BROWSE THESE LOAD MODULES, AND SEE WHICH COMPONENT    *   FILE 326
//*           THEY BELONG TO.                                       *   FILE 326
//*                                                                 *   FILE 326
//***FILE 327 IS FROM JIM MARSHALL OF THE U.S. TREASURY, FINANCIAL  *   FILE 327
//*           MANAGEMENT SERVICE IN HYATTSVILLE, MARYLAND, AND      *   FILE 327
//*           CONTAINS THE OLD OS/MVT RPG COMPILER AND LIBRARY,     *   FILE 327
//*           WHICH USED TO BE ON THIS TAPE.  THESE MODULES WERE    *   FILE 327
//*           BROUGHT BACK FROM THE SPLA MVS TAPE, AND WERE         *   FILE 327
//*           RE-LINKEDITED WITH THE DFSMS BINDER.                  *   FILE 327
//*                                                                 *   FILE 327
//*           PROCEDURES TO RUN THE RPG COMPILER, AND A SAMPLE      *   FILE 327
//*           PROGRAM, CAN BE FOUND ON FILE 091 OF THIS TAPE.       *   FILE 327
//*                                                                 *   FILE 327
//***FILE 328 IS FROM ARON EISENPRESS OF THE CITY UNIVERSITY OF     *   FILE 328
//*           NEW YORK, AND CONTAINS AN EXAMPLE OF AN IGGPRE00 AND  *   FILE 328
//*           IGGPOST0 ALLOCATION EXIT, WHICH DOES A LOT OF THINGS. *   FILE 328
//*                                                                 *   FILE 328
//*           ARON EISENPRESS                                       *   FILE 328
//*           MANAGER, MVS SYSTEMS                                  *   FILE 328
//*           CITY UNIVERSITY OF NEW YORK                           *   FILE 328
//*           COMPUTING AND INFORMATION SERVICES                    *   FILE 328
//*           555 WEST 57TH STREET, 16TH FLOOR                      *   FILE 328
//*           NEW YORK, NEW YORK  10019-2919                        *   FILE 328
//*                                                                 *   FILE 328
//*           PHONE: 212/541-0918                                   *   FILE 328
//*                                                                 *   FILE 328
//*           EMAIL: AFECU@CUNYVM.CUNY.EDU                          *   FILE 328
//*                                                                 *   FILE 328
//***FILE 329 IS FROM TOM BRENNAN OF SOUTHERN CALIFORNIA EDISON     *   FILE 329
//*           IN ROSEMEAD, CALIFORNIA, AND CONTAINS THEIR JES2      *   FILE 329
//*           CONVERTER EXIT, EXIT 6.  IT IS A GOOD CODING EXAMPLE  *   FILE 329
//*           FOR TEACHING THE CAPABILITIES OF JES2 EXIT 6.         *   FILE 329
//*                                                                 *   FILE 329
//*     TOM BRENNAN                                                 *   FILE 329
//*     SOUTHERN CALIFORNIA EDISON CO.                              *   FILE 329
//*     2255 WALNUT GROVE AVE.                                      *   FILE 329
//*     ROSEMEAD, CA   91770                                        *   FILE 329
//*     626-302-7212                                                *   FILE 329
//*     BRENNATG@SCE.COM  OR  TOMBRENNAN@EARTHLINK.NET              *   FILE 329
//*                                                                 *   FILE 329
//*     ======================================================      *   FILE 329
//*                                                                 *   FILE 329
//*     APRIL 24, 1998                                              *   FILE 329
//*                                                                 *   FILE 329
//*     THIS DOC DESCRIBES THE JES2 EXIT 6 (CONVERTER EXIT) IN      *   FILE 329
//*     USE AT SOUTHERN CALIFORNIA EDISON CO.  ORIGINALLY           *   FILE 329
//*     OBTAINED BEFORE MY TIME FROM JOHN V. HOOPER AT              *   FILE 329
//*     NORTHWESTERN BANK, IT'S BEEN MODIFIED HEAVILY OVER THE      *   FILE 329
//*     YEARS TO DO THE THINGS WE'VE NEEDED.                        *   FILE 329
//*                                                                 *   FILE 329
//*     PLEASE REMEMBER THAT THE CODE IS SPECIFICALLY TAILORED      *   FILE 329
//*     TO OUR ENVIRONMENT, AND WOULD NEVER WORK AS-IS FOR          *   FILE 329
//*     ANYONE ELSE.  STILL, IT MAY PROVIDE CHUNKS OF CODE          *   FILE 329
//*     SOMEONE MAY WANT TO COPY AND MODIFY FOR THEIR OWN USE.      *   FILE 329
//*                                                                 *   FILE 329
//*     ALSO REMEMBER THAT THIS CODE WAS MODIFIED UNDER             *   FILE 329
//*     PRESSURE, AS I ASSUME ALL PRODUCTION CODE IS.  I DID        *   FILE 329
//*     MOST OF THE MODS MYSELF OVER MANY YEARS, AND WAS HAPPY      *   FILE 329
//*     ENOUGH WHEN THE CODE WORKED - NOT CARING TOO MUCH HOW       *   FILE 329
//*     ELEGANT, CONCISE, OR EFFICIENT THE CODE MIGHT BE.  I'M      *   FILE 329
//*     CERTAINLY NOT A JES2 OR ASSEMBLER EXPERT, BUT WHEN          *   FILE 329
//*     SOMETHING WORKS, WHAT CAN YOU SAY? :)                       *   FILE 329
//*                                                                 *   FILE 329
//*     GOOD LUCK!                                                  *   FILE 329
//*     TOM BRENNAN                                                 *   FILE 329
//*                                                                 *   FILE 329
//*     OR YELL AT ME IN THE BIT.LISTSERV.IBM-MAIN NEWSGROUP -      *   FILE 329
//*     A GREAT PLACE FOR PEOPLE LIKE ME TO LISTEN TO THE REAL      *   FILE 329
//*     EXPERTS.                                                    *   FILE 329
//*                                                                 *   FILE 329
//*     =======================================================     *   FILE 329
//*                                                                 *   FILE 329
//*     WHAT DOES OUR EXIT 6 DO FOR US?                             *   FILE 329
//*     -------------------------------                             *   FILE 329
//*                                                                 *   FILE 329
//*       O  SELECTS AN APPROPRIATE JOB CLASS, BASED ON THE         *   FILE 329
//*          FOLLOWING ITEMS:                                       *   FILE 329
//*                                                                 *   FILE 329
//*           -  THE DATAGROUP NAME PASSED TO US BY EXIT 4          *   FILE 329
//*           -  THE ORIGINAL CLASS= CARD (SOME CLASSES ARE NOT     *   FILE 329
//*              ALTERED)                                           *   FILE 329
//*           -  THE NUMBER OF TAPES USED IN THE JOB                *   FILE 329
//*           -  THE ESTIMATED CPU TIME THE JOB WILL USE            *   FILE 329
//*           -  OTHER STUFF - I FORGOT!                            *   FILE 329
//*                                                                 *   FILE 329
//*       O  ENFORCES A FEW JCL STANDARDS, SUCH AS:                 *   FILE 329
//*                                                                 *   FILE 329
//*           -  ACCOUNTING INFORMATION                             *   FILE 329
//*                                                                 *   FILE 329
//*       O  LIMITS (BY RACF) ABILITY TO USE CERTAIN JCL ITEMS:     *   FILE 329
//*                                                                 *   FILE 329
//*           -  PRODUCTION DATAGROUP NAMES                         *   FILE 329
//*           -  PRODUCTION JOB AND SYSOUT CLASSES                  *   FILE 329
//*           -  TIME=1440                                          *   FILE 329
//*           -  TAPE RETENTION OVER 120 DAYS                       *   FILE 329
//*           -  PROGRAMS SUCH AS AMASPZAP (LEFTOVER FROM LONG      *   FILE 329
//*              AGO)                                               *   FILE 329
//*           -  TAPE ROBOT USAGE (THE SILOS)                       *   FILE 329
//*           -  JOBCAT AND STEPCAT                                 *   FILE 329
//*                                                                 *   FILE 329
//*       O  CREATES /*SETUP MESSAGES FOR EACH TAPE THAT IS NOT     *   FILE 329
//*          ALREADY IN THE SILO.                                   *   FILE 329
//*                                                                 *   FILE 329
//*       O  DISPLAYS A SUMMARY OF JOB STEPS, INCLUDING:            *   FILE 329
//*                                                                 *   FILE 329
//*           - STEP AND PROC NAME                                  *   FILE 329
//*           - NUMBER OF TAPES USED BY THIS STEP                   *   FILE 329
//*           - ESTIMATED TIME FOR THIS STEP                        *   FILE 329
//*           - REGION SIZE FOR THIS STEP                           *   FILE 329
//*                                                                 *   FILE 329
//*       O  FOR TSO AND STC'S, THIS EXIT CALLS A ROUTINE TO        *   FILE 329
//*          GATHER THE ROOM NUMBER, PROGRAMMER NAME, AND           *   FILE 329
//*          ACCOUNTING STRING, AND MOVE THEM INTO THE JCT.         *   FILE 329
//*          ALSO ADDS THE DATAGROUP NAME AS THE 10TH ACCOUNTING    *   FILE 329
//*          FIELD, SO IT'S AVAILABLE IN THE ACT FOR LATER USE      *   FILE 329
//*          BY ANY PROGRAM.                                        *   FILE 329
//*                                                                 *   FILE 329
//*       O  CHECKED EACH NON-NEW DATASET NAME IN THE JOB TO        *   FILE 329
//*          MAKE SURE THAT THE CATALOG FOR THE                     *   FILE 329
//*          HIGH-LEVEL-INDEX WAS ONLINE TO THE SYSTEM              *   FILE 329
//*          CONVERTING THE JOB.  WITH OUR UNUSUAL (ABNORMAL?)      *   FILE 329
//*          IDEA OF DUMMY ALIASES ON ALL SYSTEMS, THIS HELPED      *   FILE 329
//*          ELIMINATE A LOT OF CATALOG DASD MOUNT REQUESTS         *   FILE 329
//*          WHEN A USER TYPED A HIGH-LEVEL BELONGING TO            *   FILE 329
//*          ANOTHER SYSTEM.                                        *   FILE 329
//*                                                                 *   FILE 329
//*       O  THE EXIT ALSO (UNFORTUNATELY) MUST CHECK SIMPLE        *   FILE 329
//*          ITEMS LIKE THE LENGTH OF STEP NAMES AND DATASET        *   FILE 329
//*          NAMES, BECAUSE IT NEEDS TO PUT THESE ITEMS IN A        *   FILE 329
//*          TABLE.  ERRORS IN THESE LENGTHS RESULT IN ERRORS       *   FILE 329
//*          FROM EXIT 6, WHICH CAN BE CONFUSING TO USERS WHO       *   FILE 329
//*          NORMALLY GET A REAL JES2 ERROR MESSAGE FOR THOSE       *   FILE 329
//*          MISTAKES.                                              *   FILE 329
//*                                                                 *   FILE 329
//***FILE 330 is from Fritz Alber, and contains an ISPF interface   *   FILE 330
//*           to the COBANAL program from Roland Schiradin that     *   FILE 330
//*           is on File 321.  In addition:                         *   FILE 330
//*                                                                 *   FILE 330
//*           This file also contains an ISPF application to        *   FILE 330
//*           analyze the output from the CICS CSD extract          *   FILE 330
//*           program, DFH$FORA.                                    *   FILE 330
//*                                                                 *   FILE 330
//*           For more information about the CICS CSD extract       *   FILE 330
//*           program, please see the CICS Customization Guide,     *   FILE 330
//*           chapter "User programs for the system definition      *   FILE 330
//*           utility".  This application requires ISPF Version     *   FILE 330
//*           4.                                                    *   FILE 330
//*                                                                 *   FILE 330
//*           Members having to do with the COBANAL interface       *   FILE 330
//*           are prefixed COBA.  Members having to do with the     *   FILE 330
//*           CICS CSD extract interface are prefixed CCSD.         *   FILE 330
//*                                                                 *   FILE 330
//*           The COBA application consist of 4 datasets.           *   FILE 330
//*           Rexx library                                          *   FILE 330
//*           Panel Library                                         *   FILE 330
//*           Message and Skeleton Library                          *   FILE 330
//*           Table Libary                                          *   FILE 330
//*                                                                 *   FILE 330
//*           The CCSD application consist of 5 datasets.           *   FILE 330
//*           Rexx library                                          *   FILE 330
//*           Panel Library                                         *   FILE 330
//*           Message Library                                       *   FILE 330
//*           Skeleton Library                                      *   FILE 330
//*           Table Libary                                          *   FILE 330
//*                                                                 *   FILE 330
//*  -------------------- ISPF application COBA ------------------  *   FILE 330
//*                                                                 *   FILE 330
//*  supplement to CBT File 321                                     *   FILE 330
//*                                                                 *   FILE 330
//*  COBA      This Application analyzes the output from the        *   FILE 330
//*            Cobol analysis program developed by Roland           *   FILE 330
//*              Schiradin.                                         *   FILE 330
//*            This application requires ISPF Version 4.            *   FILE 330
//*                                                                 *   FILE 330
//*            The application consists of 4 datasets:              *   FILE 330
//*            REXX library                                         *   FILE 330
//*            Panel Library                                        *   FILE 330
//*            Message and Skeleton Library                         *   FILE 330
//*            Table Libary                                         *   FILE 330
//*                                                                 *   FILE 330
//*            You have to change member $COBA in the               *   FILE 330
//*            REXX library                                         *   FILE 330
//*                                                                 *   FILE 330
//*            See section/label Coba_Parms thru End_Coba_Parms.    *   FILE 330
//*                                                                 *   FILE 330
//*            Please change the following variables to             *   FILE 330
//*            your standards:                                      *   FILE 330
//*                                                                 *   FILE 330
//*            ACCOUNT                                              *   FILE 330
//*            CLASS                                                *   FILE 330
//*            MSGCLASS                                             *   FILE 330
//*            STEPLIB                                              *   FILE 330
//*            ISPFHLQ                                              *   FILE 330
//*            COBAAPPL                                             *   FILE 330
//*            COBAHLQ                                              *   FILE 330
//*            LLQCLIB                                              *   FILE 330
//*            LLQPLIB                                              *   FILE 330
//*            LLQMLIB                                              *   FILE 330
//*            LLQSLIB                                              *   FILE 330
//*            LLQTLIB                                              *   FILE 330
//*            LLQTABL                                              *   FILE 330
//*                                                                 *   FILE 330
//*            After these changes you can execute                  *   FILE 330
//*            procedure $COBA.                                     *   FILE 330
//*                                                                 *   FILE 330
//*            First you'll see a selection panel to display        *   FILE 330
//*            or create analysis tables.                           *   FILE 330
//*                                                                 *   FILE 330
//*            If you have any problems, comments or improvements   *   FILE 330
//*            please contact     Alber@alber-edv.de                *   FILE 330
//*                                                                 *   FILE 330
//*       email:    Fritz Alber <Alber@alber-edv.de>                *   FILE 330
//*                                                                 *   FILE 330
//*  -------------------- ISPF application CCSD ------------------  *   FILE 330
//*                                                                 *   FILE 330
//*  CCSD      This Application analyzes the output from the        *   FILE 330
//*            CICS CSD extract program DFH$FORA.                   *   FILE 330
//*            For more information about the extract program,      *   FILE 330
//*            please see CICS customization guide chapter:         *   FILE 330
//*            "User programs for the system definition utility"    *   FILE 330
//*            This application requires ISPF Version 4.            *   FILE 330
//*            The application consist of 5 datasets.               *   FILE 330
//*                                                                 *   FILE 330
//*            Rexx library                                         *   FILE 330
//*            Panel Library                                        *   FILE 330
//*            Message Library                                      *   FILE 330
//*            Skeleton Library                                     *   FILE 330
//*            Table Libary                                         *   FILE 330
//*                                                                 *   FILE 330
//*            You have to change member $CICCSD in the Rexx        *   FILE 330
//*            library See section/label Ciccsd_Parms thru          *   FILE 330
//*            End_Ciccsd_Parms.  Please change the following       *   FILE 330
//*            variables to your standards                          *   FILE 330
//*                                                                 *   FILE 330
//*            ACCOUNT                                              *   FILE 330
//*            CLASS                                                *   FILE 330
//*            MSGCLASS                                             *   FILE 330
//*            STEPLIB                                              *   FILE 330
//*            ISPFHLQ                                              *   FILE 330
//*            CCSDAPPL                                             *   FILE 330
//*            CCSDHLQ                                              *   FILE 330
//*            LLQCLIB                                              *   FILE 330
//*            LLQPLIB                                              *   FILE 330
//*            LLQMLIB                                              *   FILE 330
//*            LLQSLIB                                              *   FILE 330
//*            LLQTLIB                                              *   FILE 330
//*            LLQTABL                                              *   FILE 330
//*                                                                 *   FILE 330
//*            After these changes you can execute procedure        *   FILE 330
//*            $CICCSD First you'll see a selection panel to        *   FILE 330
//*            display or create analyse tables.                    *   FILE 330
//*                                                                 *   FILE 330
//*            If you have any problems, comments or improvements   *   FILE 330
//*            please contact                                       *   FILE 330
//*            Alber(at)alber-edv.de                                *   FILE 330
//*                                                                 *   FILE 330
//***FILE 331 is from Ze'ev Atlas and contains two COBOL            *   FILE 331
//*           subroutines to set an area of Working-Storage to      *   FILE 331
//*           an address pointer.  SETPTRTO sets the area to        *   FILE 331
//*           the address pointer.  SETPTRBY moves the address      *   FILE 331
//*           pointed to, up or down by a specified quantity.       *   FILE 331
//*                                                                 *   FILE 331
//*           email:   zatlas@juno.com                              *   FILE 331
//*                                                                 *   FILE 331
//***FILE 332 CONTAINS THE SOURCE FOR A STARTED TASK WHICH          *   FILE 332
//*           PROVIDES FOR JOB SUBMISSION AND AUTOMATIC COMMANDS    *   FILE 332
//*           IN AN MVS JES2 ENVIRONMENT.  IT WILL PROVIDE          *   FILE 332
//*           ENHANCED AUTOMATIC COMMAND EXECUTION AND JOB          *   FILE 332
//*           SUBMISSION AT A SPECIFIABLE TIME-OF-DAY OR            *   FILE 332
//*           DAY-OF-WEEK OR DAY-OF-THE-MONTH.  THE SOURCE          *   FILE 332
//*           PROGRAM HAS IMBEDDED DOCUMENTATION ON THE FORMAT OF   *   FILE 332
//*           THE 'COMMANDS' PDS.  ALSO IN THE SOURCE IS A TABLE    *   FILE 332
//*           OF 'JCL' DATASETS WHICH THE STARTED TASK WILL         *   FILE 332
//*           ALLOCATE AND USE TO SUBMIT SPECIFIED MEMBERS TO THE   *   FILE 332
//*           INTERNAL READER.  THESE DATASETS ARE ALLOCATED BY     *   FILE 332
//*           DYNAMIC ALLOCATION AND ARE DE-ALLOCATED WHEN          *   FILE 332
//*           FINISHED PROCESSING.                                  *   FILE 332
//*                                                                 *   FILE 332
//***FILE 333 IS FROM HARALD DENKER (VIA GILBERT SAINT-FLOUR) AND   *   FILE 333
//*           CONTAINS AN MVS VERSION OF THE GZIP COMPRESS AND      *   FILE 333
//*           DECOMPRESS UTILITY.  THIS UTILITY USES THE LEMPEL-ZIV *   FILE 333
//*           COMPRESSION ALGORITHM AND IS WRITTEN IN C/370.        *   FILE 333
//*                                                                 *   FILE 333
//*           THIS IS THE MVS VERSION OF GZIP VERSION 123,          *   FILE 333
//*           PORTED TO MVS BY HARALD DENKER, AND COMPLETED BY      *   FILE 333
//*           ROLAND SCHIRADIN.                                     *   FILE 333
//*                                                                 *   FILE 333
//*           IT IS WRITTEN IN C/370 AND REQUIRES THE C/370         *   FILE 333
//*           RUN-TIME OR LANGUAGE ENVIRONMENT (LE).                *   FILE 333
//*                                                                 *   FILE 333
//*           THE SOURCE AND LOAD-MODULE HAVE BEEN RETRIEVED IN     *   FILE 333
//*           JUNE 1996 FROM FTP.WESTFALEN.DE/IBM_C370, MOSTLY      *   FILE 333
//*           BY HARALD DENKER, BUT SOME OF THE JOB WAS COMPLETED   *   FILE 333
//*           BY ROLAND SCHIRADIN.                                  *   FILE 333
//*                                                                 *   FILE 333
//*           TO CREATE THE LOAD-MODULE, ISSUE THE FOLLOWING        *   FILE 333
//*           COMMAND:                                              *   FILE 333
//*                                                                 *   FILE 333
//*              RECEIVE INDA(FILE333.PDS(XMITLOAD))                *   FILE 333
//*                                                                 *   FILE 333
//*      FOR SUPPORT, PLEASE CONTACT HARALD DENKER OR ROLAND        *   FILE 333
//*       SCHIRADIN.                                                *   FILE 333
//*                                                                 *   FILE 333
//*       ADDRESS:   HARALD DENKER                                  *   FILE 333
//*                  AM SCHOELZBACH 105                             *   FILE 333
//*                  46282 DORSTEN, GERMANY                         *   FILE 333
//*                                                                 *   FILE 333
//*       PHONE:     +49 2362 23059                                 *   FILE 333
//*                                                                 *   FILE 333
//*       EMAIL:     HARALD_DENKER@MS.MAUS.DE (<16 KB)              *   FILE 333
//*                  HARRY@HAL.WESTFALEN.DE (NO LIMIT)              *   FILE 333
//*                                                                 *   FILE 333
//*       ADDRESS:   ROLAND SCHIRADIN                               *   FILE 333
//*                  STOCKBORNSTRASSE 10                            *   FILE 333
//*                  65343 ELTVILLE, GERMANY                        *   FILE 333
//*                                                                 *   FILE 333
//*       PHONE:     49-6123-899708                                 *   FILE 333
//*                                                                 *   FILE 333
//*       EMAIL:     SCHIRADI@TAP.DE                                *   FILE 333
//*                  0617123439-4095@T-ONLINE.DE   (WORK)           *   FILE 333
//*                  ROLAND.SCHIRADIN@T-ONLINE.DE  (WORK)           *   FILE 333
//*                                                                 *   FILE 333
//***FILE 334 IS FROM ROLAND SCHIRADIN OF ELTVILLE, GERMANY, AND    *   FILE 334
//*           CONTAINS .H SOURCE IN C/370 LANGUAGE FOR GZIP (SEE    *   FILE 334
//*           FILE 333).                                            *   FILE 334
//*                                                                 *   FILE 334
//***FILE 335 IS FROM ROLAND SCHIRADIN OF ELTVILLE, GERMANY, AND    *   FILE 335
//*           CONTAINS .C SOURCE IN C/370 LANGUAGE FOR GZIP (SEE    *   FILE 335
//*           FILE 333).                                            *   FILE 335
//*                                                                 *   FILE 335
//***FILE 336 CONTAINS A COLLECTION OF UTILITIES,  MACROS,  TSO     *   FILE 336
//*           COMMANDS,  USERMODS,  AND OTHER STUFF FROM RICE       *   FILE 336
//*           UNIVERSITY.                                           *   FILE 336
//*                                                                 *   FILE 336
//*          RICE UNIVERSITY RUNS MVS/SP 1.1.1 WITH BASE-LEVEL      *   FILE 336
//*          JES2 (EJE1102),  AND ALL OF THIS IS WORKING AT THAT    *   FILE 336
//*          LEVEL.  (WE ALSO RUN UICC'S JTIP AND ACF2, WHICH ARE   *   FILE 336
//*          OCCASIONALLY REFERENCED.  WE THINK WE HAVE REMOVED     *   FILE 336
//*          ALL SERIOUS DEPENDENCIES ON THESE PRODUCTS.)  SOME     *   FILE 336
//*          OF THIS IS UPDATED/CORRECTED VERSIONS OF STUFF WE      *   FILE 336
//*          ORIGINALLY GOT FROM THE 1-23-82 VERSION OF THE MODS    *   FILE 336
//*          TAPE.  THEREFORE SOME OF IT MAY HAVE BEEN SUPERSEDED   *   FILE 336
//*          OR COMPLICATED BY OTHER CHANGES TO THE SAME PROGRAMS   *   FILE 336
//*          SINCE THEN.                                            *   FILE 336
//*                                                                 *   FILE 336
//*          THIS COLLECTION INCLUDES:                              *   FILE 336
//*                                                                 *   FILE 336
//*               TAPESCAN,  A TAPE SCANNING/COPYING UTILITY        *   FILE 336
//*               ESPECIALLY SUITED TO DIAGNOSIS OF OVER-WRITTEN    *   FILE 336
//*               OR OTHERWISE SCREWED-UP TAPES.  THIS VERSION OF   *   FILE 336
//*               TAPESCAN INCLUDES EXTENSIVE SUPPORT FOR           *   FILE 336
//*               ANSI-LABELLED TAPES, AND A LOT OF SECURITY        *   FILE 336
//*               SUPPORT (INCLUDING PASSWORD, EXPIRATION DATE      *   FILE 336
//*               AND ACF2 SECURITY CHECKING).                      *   FILE 336
//*                                                                 *   FILE 336
//*               DISKUTIL,  AN IEHPROGM REPLACEMENT.               *   FILE 336
//*                                                                 *   FILE 336
//*               SEQCOPY,  AN IEBGENER REPLACEMENT.                *   FILE 336
//*                                                                 *   FILE 336
//*               PRINTPDS,  A UTILITY TO PRINT ALL MEMBERS         *   FILE 336
//*               OF A PDS, NO MATTER WHAT RECORD FORMAT.  IT       *   FILE 336
//*               PRODUCES A TABLE OF CONTENTS AND AN ALIAS         *   FILE 336
//*               CROSS-REFERENCE.                                  *   FILE 336
//*                                                                 *   FILE 336
//*               MAPDISK,  ANOTHER VTOC MAPPING UTILITY            *   FILE 336
//*               (UNRELATED TO OTHERS OF THE SAME NAME).           *   FILE 336
//*                                                                 *   FILE 336
//*               A VERSION OF DYNAMIC MLPA (OR MODREP)  WITH       *   FILE 336
//*               SOME HORRIBLE BUGS FIXED.  (NOW WE KNOW WHY       *   FILE 336
//*               IT STOPPED WORKING WHEN WE INSTALLED              *   FILE 336
//*               LOW-MEMORY PROTECTION!)                           *   FILE 336
//*                                                                 *   FILE 336
//*               CLUTSPAR,  A FRIENDLIER VERSION OF IKJPARS.       *   FILE 336
//*               TRY IT, AND YOU WON'T WANT TO GO BACK!  NOTE      *   FILE 336
//*               THAT CLUTSPAR DOES NOT SUPPORT ANY TSO/E          *   FILE 336
//*               FEATURES SUCH AS THE PARSE INTERFACE TO THE       *   FILE 336
//*               HELP COMMAND, DUE TO LACK OF INFORMATION ON       *   FILE 336
//*               HOW THEY WORK.  (CLUTSPAR IS A FRAGMENT OF A      *   FILE 336
//*               PROJECT CALLED TSU, WHICH STARTED OUT AS A        *   FILE 336
//*               MECHANISM FOR WRITING TSO COMMAND PROCESSORS      *   FILE 336
//*               IN PL/I, AND EVENTUALLY SPROUTED REPLACEMENTS     *   FILE 336
//*               FOR MAJOR PORTIONS OF TSO.  TSU AS A WHOLE HAS    *   FILE 336
//*               NEVER QUITE BECOME CLEAN ENOUGH TO RELEASE,       *   FILE 336
//*               BUT CLUTSPAR IS SUCH AN ENORMOUS IMPROVEMENT      *   FILE 336
//*               OVER THE COMPETITION THAT WE DECIDED TO MAKE      *   FILE 336
//*               IT AN EXCEPTION.)                                 *   FILE 336
//*                                                                 *   FILE 336
//*               THE LANGUAGE INDEPENDENT ENVIRONMENT (LIE),       *   FILE 336
//*               A SET OF MACROS AND ROUTINES TO LET YOU WRITE     *   FILE 336
//*               ASSEMBLER SUBROUTINES WHICH CAN TAKE ADVANTAGE    *   FILE 336
//*               OF SERVICES OF THE PL/I ENVIRONMENT, PLUS A       *   FILE 336
//*               PSEUDO-PL/I ENVIRONMENT MANUFACTURER, TO          *   FILE 336
//*               PROVIDE THE SAME SERVICES IN THE ABSENCE OF       *   FILE 336
//*               PL/I.  CLUTSPAR IS A PSEUDO-PL/I APPLICATION      *   FILE 336
//*               IN THIS SENSE.                                    *   FILE 336
//*                                                                 *   FILE 336
//*               THE XSEND TSO COMMAND,  FOR IMPROVED              *   FILE 336
//*               COMMUNICATION WITH LOGGED-ON TSO USERS.  NOW      *   FILE 336
//*               YOU CAN SEND WITH WAIT AND BREAK OUT OF IT IF     *   FILE 336
//*               YOU GET TIRED OF WAITING!  XSEND INCLUDES A       *   FILE 336
//*               USER SVC FOR CONTROLLED USE OF TPUT HIGHP (TO     *   FILE 336
//*               SEND BELLS/ALARM TO TELL A NOINTERCOM USER        *   FILE 336
//*               SOMEONE WANTS TO "SPEAK" TO HIM).                 *   FILE 336
//*                                                                 *   FILE 336
//*               LISTM,  A NICE TSO COMMAND TO LIST PDS MEMBER     *   FILE 336
//*               NAMES.                                            *   FILE 336
//*                                                                 *   FILE 336
//*               LISTU,  A NICE TSO COMMAND TO LIST TSO USERS      *   FILE 336
//*               (SORTED BY USERID).                               *   FILE 336
//*                                                                 *   FILE 336
//*               UPUT, UPROMPT AND UGET,  MACROS TO USE AS         *   FILE 336
//*               REPLACEMENTS FOR TPUT AND TGET THAT INTERFACE     *   FILE 336
//*               TO THE PUTLINE/PUTGET SERVICE ROUTINES.  THEY     *   FILE 336
//*               MAKE CONVERSION OF OLD TSO CODE SO IT WILL        *   FILE 336
//*               RUN UNDER A BATCH TMP MUCH EASIER.                *   FILE 336
//*                                                                 *   FILE 336
//*               XWTO,  A MACRO TO ALLOW WTO MESSAGES TO BE        *   FILE 336
//*               BUILT FROM SEGMENTS WITHOUT HAVING TO COMPUTE     *   FILE 336
//*               ALL THE OFFSETS.                                  *   FILE 336
//*                                                                 *   FILE 336
//*               UHB MACROS,  A SET OF UTILITY MACROS TO MAKE      *   FILE 336
//*               WRITING BIG MACRO APPLICATIONS (LIKE XWTO         *   FILE 336
//*               TURNED OUT TO BE) MUCH EASIER.                    *   FILE 336
//*                                                                 *   FILE 336
//*               A JULIAN ROUTINE (ORIGINALLY WRITTEN TO BE        *   FILE 336
//*               CALLED FROM COBOL) TO CONVERT DATES BETWEEN       *   FILE 336
//*               JULIAN AND GREGORIAN FORMAT, AND TO DETERMINE     *   FILE 336
//*               THE DAY OF THE WEEK.  THIS ROUTINE IS NOT ALL     *   FILE 336
//*               THAT INTERESTING, BUT IT IS USED BY SOME OF       *   FILE 336
//*               THE OTHER SUBMISSIONS.                            *   FILE 336
//*                                                                 *   FILE 336
//*               SAVEX AND RETURNX MACROS,  YET ANOTHER            *   FILE 336
//*               EXAMPLE OF AN EXTENDED SAVE AND RETURN.           *   FILE 336
//*               AGAIN, NOT THAT INTERESTING, BUT USED ALL         *   FILE 336
//*               OVER BY OUR OTHER CODE.                           *   FILE 336
//*                                                                 *   FILE 336
//*          THE ABOVE ARE (EXCEPT FOR THE XSEND SVC AND            *   FILE 336
//*          CLUTSPAR) ALL APPLICATIONS, AND REQUIRE NO SMP         *   FILE 336
//*          WORK.                                                  *   FILE 336
//*                                                                 *   FILE 336
//*          WE ARE ALSO PROVIDING SMP-PACKAGED SYSMODS TO          *   FILE 336
//*          SUPPORT:  PACKAGED SYSMODS TO SUPPORT:                 *   FILE 336
//*                                                                 *   FILE 336
//*               A MODIFICATION TO THE JES2 $DF COMMAND TO         *   FILE 336
//*               ALLOW SELECTIONS OF THE TYPES OF DATA SETS        *   FILE 336
//*               TO BE DISPLAYED.  THIS MOD ALSO INTRODUCES        *   FILE 336
//*               THE $XF COMMAND, WHICH DISPLAYS EACH JOB          *   FILE 336
//*               WITH OUTPUT OF THE SPECIFIED KIND.                *   FILE 336
//*                                                                 *   FILE 336
//*               A BIG MOD TO JES2 OUTPUT PROCESSING TO            *   FILE 336
//*               PROVIDE COUNTS OF THE ACTUAL NUMBER OF PAGES      *   FILE 336
//*               PRINTED FOR A JOB, BASED ON DEFINITIONS OF        *   FILE 336
//*               FORMS AND CARRIAGE TAPE LAYOUTS CONTAINED         *   FILE 336
//*               IN THE JES2 INITIALIZATION PARAMETERS.            *   FILE 336
//*                                                                 *   FILE 336
//*               A MOD TO TSO FUNCTIONAL ACCOUNTING (SMF TYPE      *   FILE 336
//*               32 RECORDS) TO RECORD RESPONSE-TIME-RELATED       *   FILE 336
//*               INFORMATION IN PLACE OF SOME OF THE MORE          *   FILE 336
//*               ESOTERIC PRESENT INFORMATION, AND TO NOT          *   FILE 336
//*               REQUIRE A PRE-ASSEMBLED LIST OF INTERESTING       *   FILE 336
//*               COMMANDS.  INCLUDED IS A REPORT PROGRAM TO        *   FILE 336
//*               SUMMARIZE THE RECORDS CONTAINED IN A BATCH        *   FILE 336
//*               OF SMF DATA.                                      *   FILE 336
//*                                                                 *   FILE 336
//*               A VERSION OF THE MOD TO ADD THE MAXIMUM           *   FILE 336
//*               CONDITION CODE TO THE JES2 NOTIFY MESSAGE.        *   FILE 336
//*                                                                 *   FILE 336
//*               A JES2 MOD TO DISPLAY THE CONVERTER ABEND         *   FILE 336
//*               CODE WHEN THE CONVERTER CRASHES.  (NOW WHO        *   FILE 336
//*               WOULD EVER WANT TO KNOW A THING LIKE THAT?)       *   FILE 336
//*                                                                 *   FILE 336
//*               A MOD TO REMOVE "CN(00)" FROM NOTIFY              *   FILE 336
//*               MESSAGES (AND ANYTHING ELSE SENT VIA              *   FILE 336
//*               INTERNAL SEND COMMANDS).                          *   FILE 336
//*                                                                 *   FILE 336
//*               A MOD TO STAMP A NEW FORMAT 1 DSCB WITH           *   FILE 336
//*               THE USERID OF ITS CREATOR (FROM THE SMF           *   FILE 336
//*               USERID FIELD).  WITH ACF2 (AND THE RIGHT          *   FILE 336
//*               ACF2 OPTIONS), THIS WILL BE THE ACF2              *   FILE 336
//*               LOGONID.                                          *   FILE 336
//*                                                                 *   FILE 336
//***FILE 337 IS FROM ATALAY GUL OF THE CENTRAL BANK OF TURKEY      *   FILE 337
//*           IN ANKARA, TURKEY, AND IS A SET OF PL/I PROGRAMS      *   FILE 337
//*           WHICH WILL PRODUCE A REPORT TO FIND ALL OCCURRENCES   *   FILE 337
//*           OF A PDS MEMBER NAME THROUGHOUT THE ENTIRE MVS        *   FILE 337
//*           SYSTEM.  IN MY OPINION, THIS IS A VERY CLEVER JOB,    *   FILE 337
//*           WHATEVER ATALAY SAYS, AND IT IS WELL WORTH LOOKING    *   FILE 337
//*           INTO.   (SBG 5/98)                                    *   FILE 337
//*                                                                 *   FILE 337
//*         AUTHOR:                                                 *   FILE 337
//*                                                                 *   FILE 337
//*         ATALAY GUL                                              *   FILE 337
//*         MVS SYSTEM PROGRAMMER                                   *   FILE 337
//*         CENTRAL BANK OF TURKEY                                  *   FILE 337
//*         ISTIKLAL CAD. NO:10                                     *   FILE 337
//*         06100-ULUS-ANKARA/TURKEY                                *   FILE 337
//*         EMAIL:  A.GUL@STDIM.TCMB.GOV.TR                         *   FILE 337
//*                 ATALAY@HOTMAIL.COM                              *   FILE 337
//*                                                                 *   FILE 337
//***FILE 338 IS FROM GILBERT SAINT-FLOUR OF AMS (Automated         *   FILE 338
//*           (Migration Services) AND CONTAINS PROGRAMS AND        *   FILE 338
//*           ENHANCEMENTS FOR RUNNING A P390 SYSTEM.               *   FILE 338
//*                                                                 *   FILE 338
//*     EMAIL:        GSF@IBM.NET                                   *   FILE 338
//*     WEB PAGE:     http://members.home.net/gsf   (MAY REQUIRE    *   FILE 338
//*                                                  LOWER CASE)    *   FILE 338
//*                                                                 *   FILE 338
//*                 CONTENTS OF P390IPL.PDS                         *   FILE 338
//*                 -------- -- -----------                         *   FILE 338
//*                                                                 *   FILE 338
//*     CANCELU  -  CANCEL YOUR OWN TSO SESSION (possibly from      *   FILE 338
//*                  a remote location)                             *   FILE 338
//*                                                                 *   FILE 338
//*     HASP373  -  SHOW ACTIVE JOBS AND TSO USERS ON               *   FILE 338
//*                 MASTER CONSOLE                                  *   FILE 338
//*                                                                 *   FILE 338
//*     $LWILTIP -  TIPS FROM LARRY WILLIAMS ON IMPROVING THE       *   FILE 338
//*                 P390'S PERFORMANCE                              *   FILE 338
//*                                                                 *   FILE 338
//*     P390IPL  -  AUTOMATE MVS IPL AND SHUTDOWN ON THE P390       *   FILE 338
//*                                                                 *   FILE 338
//*     SHUTDOWN -  AUTOMATE MVS SHUTDOWN PROCEDURE ON THE P390     *   FILE 338
//*                                                                 *   FILE 338
//***FILE 339 IS FROM E.F. MAC DONALD MOTIVATION FROM DAYTON OHIO.  *   FILE 339
//*           THIS PROGRAM IS A JES2/SP1.3.6 (FMID HJE1367) AND A   *   FILE 339
//*           JES2/SP2.1.7 (FMID HJE2215) USER EXIT #5 ROUTINE.     *   FILE 339
//*           THERE ARE NO INSTALLATION UNIQUE CONSIDERATIONS       *   FILE 339
//*           EXCEPT THAT THE COMMANDS "$JC", "$JL", "$JM" AND      *   FILE 339
//*           "$JD" ARE NOT BEING USED FOR ANYTHING ELSE.  NO       *   FILE 339
//*           CHANGES TO JES2 CODE ARE REQUIRED.                    *   FILE 339
//*                                                                 *   FILE 339
//*             1.  CANCEL ALL JOES (JOB OUTPUT ELEMENTS) OF A      *   FILE 339
//*                 SPECIFIED JOB IN A SPECIFIED SYSOUT CLASS.      *   FILE 339
//*                 SIMILAR TO VS1 "C JOBNAME,OUT=X" EXAMPLES:      *   FILE 339
//*                                                                 *   FILE 339
//*                    $JCJ175,Q=D (CANCEL ALL SYSOUT=D JOES OF     *   FILE 339
//*                                J175)                            *   FILE 339
//*                                                                 *   FILE 339
//*                    $JC'MYJOB',Q=E (CANCEL ALL SYSOUT=E JOES OF  *   FILE 339
//*                                   JOBNAME "MYJOB")              *   FILE 339
//*                                                                 *   FILE 339
//*                 THE OPERAND "Q=" IS REQUIRED; USE JES2 "$C"     *   FILE 339
//*                 COMMAND TO CANCEL ALL OUTPUT OF A JOB.          *   FILE 339
//*                                                                 *   FILE 339
//*             2.  LIST ALL JOES IN SYSOUT CLASS ORDER.            *   FILE 339
//*                                                                 *   FILE 339
//*                 LIST MAY BE RESTRICTED TO A SELECTED CLASS, OR  *   FILE 339
//*                 ALL CLASSES EXCEPT A SELECTED CLASS.  SIMILAR   *   FILE 339
//*                 TO THE VS1 "SO" COMMAND.  EXAMPLES:             *   FILE 339
//*                                                                 *   FILE 339
//*                    $JL      (LIST ALL JOES IN SYSOUT CLASS      *   FILE 339
//*                              ORDER)                             *   FILE 339
//*                    $JL,Q=Z  (LIST ALL JOES IN SYSOUT QUEUE Z)   *   FILE 339
//*                    $JL,Q=-P (LIST ALL JOES EXCEPT THOSE IN      *   FILE 339
//*                              SYSOUT QUEUE P)                    *   FILE 339
//*                                                                 *   FILE 339
//*                 EACH SELECTED JOE IS LISTED IN THE FOLLOWING    *   FILE 339
//*                 FORMAT :                                        *   FILE 339
//*                                                                 *   FILE 339
//*                 JNNNN JJJJJJJJ C I.I.I FORM  X/Y P=NNN          *   FILE 339
//*                 LLLLLLLLL WHERE JNNNN IS THE JES2 JOB NUMBER    *   FILE 339
//*                 (J175, S3968, ETC.), JJJJJJJJ IS THE JOBNAME,   *   FILE 339
//*                 I.I.I IS THE JOE ID, FORM IS THE FORM NUMBER,   *   FILE 339
//*                 FCB IS THE FCB NAME, "X" IS "Y" IF THE DEST IS  *   FILE 339
//*                 LOCAL, "Y" IS "Y" IF THE JOE IS SELECTABLE AND  *   FILE 339
//*                 THE *JOB* IS NOT HELD, "Y" IS "N" IF THE JOE IS *   FILE 339
//*                 NOT SELECTABLE, "Y" IS "H" IF THE JOB IS HELD,  *   FILE 339
//*                 "NNN" IS THE PRIORITY OF THE JOE (NOT THE JOB), *   FILE 339
//*                 AND LLLLLLLLL IS THE JOE LINECOUNT.  TO LIST    *   FILE 339
//*                 ALL JOES OF A PARTICULAR JOB, USE THE JES2      *   FILE 339
//*                 "$L...,ALL" COMMAND.                            *   FILE 339
//*                                                                 *   FILE 339
//*             3.  MOVE THE JOES OF A SELECTED JOB FROM A SELECTED *   FILE 339
//*                 SYSOUT CLASS TO A DIFFERENT SELECTED SYSOUT     *   FILE 339
//*                 CLASS.  SIMILAR TO VS1 "E                       *   FILE 339
//*                 JOBNAME,CLASS=X,OUT=Y".  EXAMPLES:              *   FILE 339
//*                                                                 *   FILE 339
//*                    $JMJ175,FROMQ=X,TOQ=Y (MOVE J175 SYSOUT=X    *   FILE 339
//*                                           JOES TO SYSOUT=Y)     *   FILE 339
//*                                                                 *   FILE 339
//*                    $JM'MYJOB',TOQ=C,FROMQ=G (MOVE JOBNAME       *   FILE 339
//*                                              "MYJOB" SYSOUT=G   *   FILE 339
//*                                              JOES TO SYSOUT=C)  *   FILE 339
//*                                                                 *   FILE 339
//*                 TO MOVE *ALL* JOES OF A JOB TO A SELECTED       *   FILE 339
//*                 SYSOUT CLASS, USE THE JES2 "$TO" COMMAND.       *   FILE 339
//*                                                                 *   FILE 339
//*             4.  DISPLAY THE CURRENT JULIAN DATE.  THIS IS       *   FILE 339
//*                 INTENDED FOR USE WITH THE JES2 AUTOMATIC        *   FILE 339
//*                 COMMAND FACILITY TO DATESTAMP HARDCOPY LOGS.    *   FILE 339
//*                 FORMAT IS "$JD"; NO OPERANDS.                   *   FILE 339
//*                                                                 *   FILE 339
//*          THESE COMMANDS DO NOT ATTEMPT TO DUPLICATE             *   FILE 339
//*          FUNCTIONS WHICH CAN USUALLY BE ACCOMPLISHED WITH A     *   FILE 339
//*          SINGLE JES2 COMMAND.  THIS PROGRAM CHECKS FOR SOME     *   FILE 339
//*          COMMON ERRORS SUCH AS VERIFICATION OF TYPE OF JOB      *   FILE 339
//*          ON REQUESTS BY JOB NUMBER (JOB/STC/TSU), DUPLICATE     *   FILE 339
//*          JOBNAME IN THE PPU QUEUE ON REQUESTS BY JOB NAME,      *   FILE 339
//*          AND JOE BUSY (ON AN OUTPUT DEVICE OR BEING MODIFIED    *   FILE 339
//*          BY A $TO COMMAND).  TO REDUCE OVERHEAD TO A            *   FILE 339
//*          MINIMUM, ALL QUEUE INTEGRITY IS LEFT TO THE $QSUSE     *   FILE 339
//*          SERVICE ROUTINE WHICH IS USED BY THE $#MOD AND         *   FILE 339
//*          $#REM SERVICE ROUTINES, WHICH ARE USED BY THIS         *   FILE 339
//*          PROGRAM (SEE "JES2 LOGIC" LY24-6006).                  *   FILE 339
//*                                                                 *   FILE 339
//***FILE 340 IS FROM ALFRED NYKOLYN AND ROLAND SCHIRADIN AND       *   FILE 340
//*           CONTAINS A NEW PROGRAM CALLED DCM (DIRT CHEAP         *   FILE 340
//*           MONITOR - UNRELATED TO THE DIRT CHEAP MONITOR         *   FILE 340
//*           SYSTEM (DCMS) FROM THE OLD CBT TAPES).                *   FILE 340
//*                                                                 *   FILE 340
//*           THE PURPOSE OF DCM IS TO REPORT ON STATISTICS         *   FILE 340
//*           COLLECTED BY THE 7980-3 AND COMPATIBLE CONTROLLERS.   *   FILE 340
//*                                                                 *   FILE 340
//*        EMAIL:   ALFRED NYKOLYN     -  APN@ISTAR.CA              *   FILE 340
//*                 ROLAND SCHIRADIN   -  SCHIRADI@TAP.DE           *   FILE 340
//*                                                                 *   FILE 340
//*               DCM - DIRT CHEAP MONITOR  V0.8                    *   FILE 340
//*                                                                 *   FILE 340
//*     7980-3 AND COMPATIBLE CONTROLLERS KEEP A GREAT DEAL OF      *   FILE 340
//*     STATISTICS.  GETTING THEM OUT IS ANOTHER STORY.  IF YOU     *   FILE 340
//*     HAVE EXTRA $$$, YOU CAN USE AZTEC; IF YOU ARE A             *   FILE 340
//*     MASOCHIST, YOU USE IDCAMS.  IN ORDER TO LEARN HOW THE       *   FILE 340
//*     7980-3 WORKS, I WROTE DCM.  HERE IS A SAMPLE SCREEN         *   FILE 340
//*     (SQUEEZED DOWN AND ABBREVIATED).                            *   FILE 340
//*                                                                 *   FILE 340
//*                    DIRT CHEAP MONITOR V0.8                      *   FILE 340
//*                                                                 *   FILE 340
//*   DEVICES 0E00-0E3F   SSID 0010  I/O RATES MEASURED FROM        *   FILE 340
//*    VOLUME SYSLBB   DEVADDR 0E08  SSCH RATE   30.5/S             *   FILE 340
//*     PATHS 08 13 48 53            DUPLEXED: SECONDARY DEV E17    *   FILE 340
//*   CACHE: ACTIVE           DFW: ACTIVE                           *   FILE 340
//*                                                                 *   FILE 340
//*      I/O TIME(MS)  4.6   PEND  0.5   DISC  1.2   CONN  2.9      *   FILE 340
//*        I/O  30.4/S     READS  29.2/S  WRITES    1.2/S           *   FILE 340
//*     NORMAL  30.4/S     READS  29.2/S  WRITES    1.2/S           *   FILE 340
//*       SEQL   0.0/S     READS   0.0/S  WRITES    0.0/S -SWITCHES-*   FILE 340
//*        CFW   0.0/S     READS   0.0/S  WRITES    0.0/S SD0: AB   *   FILE 340
//*        DFW   1.2/S    NORMAL   1.2/S    SEQL    0.0/S SD1: AB   *   FILE 340
//*     BYPASS   0.0/S   INHIBIT   0.0/S                  SD2: AB   *   FILE 340
//*     STAGES   2.1/S    NORMAL   2.1/S  SEQL     0.0/S  SD3: AB   *   FILE 340
//*   DESTAGES   0.0/S  PREREADS   0.0/S          CU SERIAL# 011717 *   FILE 340
//*   READ HIT%  94.9     NORMAL%  92.6    SEQL%   99.9             *   FILE 340
//*   CFW HIT%   0.0       READ%   0.0  WRITES%    0.0              *   FILE 340
//*   DFW HIT%  99.0     NORMAL%  99.0    SEQL%   78.3              *   FILE 340
//*   R/W RATIO  33.5  HITS/STAGE  14.2   RETRY%    0.0             *   FILE 340
//*                                                                 *   FILE 340
//*   CACHE INSTALLED 65536K                                        *   FILE 340
//*   CACHE AVAILABLE 65136K                                        *   FILE 340
//*   NVS INSTALLED  4096K                                          *   FILE 340
//*   PINNED DATA     0K                                            *   FILE 340
//*                                                                 *   FILE 340
//*   ENTER:   SR, LR, SH, LH, ALL, ONL, AUTO,                      *   FILE 340
//*            <DEV-ADDR>, <VOLUME> OR END                          *   FILE 340
//*                                                                 *   FILE 340
//*                                                                 *   FILE 340
//*   THIS SCREEN SNAPSHOT IS FROM A RUNNING SYSTEM.  THE           *   FILE 340
//*   STATISTICS ARE FOR ONE DEVICE ALTHOUGH DCM CAN PROVIDE        *   FILE 340
//*   STATISTICS FOR A STRING OF DEVICES OR FOR ALL DEVICES         *   FILE 340
//*   ATTACHED TO A CONTROLLER.                                     *   FILE 340
//*                                                                 *   FILE 340
//*   THERE ARE TWO SOURCES OF STATISTICS FOR DCM: THE              *   FILE 340
//*   CONTROL UNIT AND THE CHANNEL SUBSYSTEM.  THE PENDING,         *   FILE 340
//*   DISCONNECT AND CONNECT TIMES ARE PROVIDED BY THE              *   FILE 340
//*   CHANNEL SUBSYSTEM AND ARE THE SAME AS REPORTED BY RMF.        *   FILE 340
//*   THESE TIMES ARE IN MILLISECONDS.  THE OTHER TIMES ARE         *   FILE 340
//*   CALCULATED USING THE COUNTS MAINTAINED BY THE 7980-3.         *   FILE 340
//*   THE INTERVAL IS BETWEEN THE TWO TIMES IN THE UPPER            *   FILE 340
//*   RIGHT HAND CORNER.  IN GENERAL, THE VERY FIRST RATE ON        *   FILE 340
//*   EACH LINE IS THE SUM OF THE REMAINING RATES ON THE            *   FILE 340
//*   LINE.  THE I/O RATE IS THE SUM OF THE NORMAL RATE, THE        *   FILE 340
//*   SEQUENTIAL RATE, THE BYPASS RATE AND THE INHIBIT RATE.        *   FILE 340
//*                                                                 *   FILE 340
//*   THE HIT% ARE CALCULATED FROM THE COUNTERS MAINTAINED IN       *   FILE 340
//*   THE 7980-3.  THE PERCENTAGES ON THE VERY LEFT OF EACH         *   FILE 340
//*   LINE ARE THE WEIGHTED AVERAGES OF THE REMAINING               *   FILE 340
//*   PERCENTAGES ON THAT LINE.  IT IS POSSIBLE TO SEE THE LONG     *   FILE 340
//*   TERM VIEW OF THE HITS SINCE THE CONTROLLER WAS IML'D OR       *   FILE 340
//*   A SHORT TERM VIEW SINCE THE LAST TIME THAT THE ENTER KEY      *   FILE 340
//*   WAS PRESSED.                                                  *   FILE 340
//*                                                                 *   FILE 340
//*   THE STAGES, DESTAGES AND PREREADS FIELDS ARE THE NUMBER       *   FILE 340
//*   OF THESE OPERATIONS PER SECOND.  THE ONLY STATISTICS NOT      *   FILE 340
//*   MAINTAINED IN THE 7980-3 ARE THE R/W RATIO AND THE            *   FILE 340
//*   HITS/STAGES.  R/W IS CALCULATED IN A STRAIGHT FORWARD         *   FILE 340
//*   FASHION AND THE HITS/STAGES GIVES SOME MEASURE OF THE         *   FILE 340
//*   CACHING EFFICIENCY.                                           *   FILE 340
//*                                                                 *   FILE 340
//*   HERE IS A LIST OF DCM COMMANDS:                               *   FILE 340
//*                                                                 *   FILE 340
//*   AUTO     REPEAT DISPLAY 20 TIMES WITH A 4 SECOND INTERVAL     *   FILE 340
//*   ALL      SUMMARIZE ALL DEVICES ON THE CONTROL UNIT            *   FILE 340
//*   <ENTER>  REFRESH THE SCREEN WITH A NEW SET OF STATISTICS      *   FILE 340
//*   ONL      RUN THROUGH ALL ONLINE DEVICES ON THIS CONTROL UNIT  *   FILE 340
//*   RNN      REPEAT THE DISPLAY NN TIMES WITH A 4 SECOND INTERVAL *   FILE 340
//*   WNN      SET WAIT VALUE TO NN SECONDS                         *   FILE 340
//*   N        GO TO NEXT DEVICE                                    *   FILE 340
//*   P        GO TO PREVIOUS DEVICE                                *   FILE 340
//*   LR       LONG TERM I/O RATES                                  *   FILE 340
//*   SR       SHORT TERM I/O RATES                                 *   FILE 340
//*   LH       PROVIDE LONG TERM HIT% (FROM THE TIME THAT ADVANCED  *   FILE 340
//*            FUNCTIONS WERE ENABLED)                              *   FILE 340
//*   SH       PROVIDE SHORT TERM DELTA HIT%                        *   FILE 340
//*   NOUP     DO NOT RE-WRITE HISTORY FILE                         *   FILE 340
//*   END      ENDS DCM SESSION. Q IS AN ABBREVIATION.              *   FILE 340
//*   QN       END DCM WITHOUT UPDATING THE HISTORY FILE.           *   FILE 340
//*                                                                 *   FILE 340
//***FILE 341 IS FROM MARK YUHAS OF RENTON, WASHINGTON, AND         *   FILE 341
//*           CONTAINS A PROGRAM TO TAKE PLPA MODULES, AND LOAD     *   FILE 341
//*           THEM INTO CSA.  THIS PACKAGE ALSO CONTAINS A SET      *   FILE 341
//*           OF STRUCTURED ASSEMBLER MACROS, WHICH ARE BEAUTIFUL.  *   FILE 341
//*                                                                 *   FILE 341
//*       EMAIL:    MYUHAS@PACCAR.COM                               *   FILE 341
//*                 MYUHAS@GTE.NET                                  *   FILE 341
//*                                                                 *   FILE 341
//***FILE 342 IS FROM JOHN KALINICH OF THE U.S. ARMY IN ST. LOUIS   *   FILE 342
//*           MISSOURI, AND CONTAINS AN ISPF INTERFACE PACKAGE TO   *   FILE 342
//*           THE MODEL 204 DATABASE SYSTEM.  IF YOUR SHOP HAS      *   FILE 342
//*           MODEL 204, THIS IS SOMETHING GOOD TO LOOK INTO.       *   FILE 342
//*                                                                 *   FILE 342
//*           IF YOU'RE NOT LICENSED FOR THE MODEL 204 DATABASE,    *   FILE 342
//*           THERE'S STILL A NICE PROGRAM IN HERE CALLED TERMID    *   FILE 342
//*           THAT COULD BE HELPFUL TO YOU.                         *   FILE 342
//*                                                                 *   FILE 342
//*         EMAIL:   jkalinic@csc.com                               *   FILE 342
//*                                                                 *   FILE 342
//***FILE 343 IS A VTOCLIST PROGRAM FROM JOHN KALINICH OF THE       *   FILE 343
//*           U.S. ARMY IN ST. LOUIS, MISSOURI.  THIS PROGRAM       *   FILE 343
//*           ORIGINALLY CAME FROM A UK G.U.I.D.E. TAPE, AND        *   FILE 343
//*           WAS WRITTEN BY PETER HAVERCAN.  IT HAS BEEN ENHANCED  *   FILE 343
//*           FOR OPERATING SYSTEM IMPROVEMENTS SEVERAL TIMES, BY   *   FILE 343
//*           JOHN KALINICH.  THIS CODE CURRENTLY DOES NOT SUPPORT  *   FILE 343
//*           INDEXED VTOC FREESPACE CALCULATIONS, BUT BESIDES THAT *   FILE 343
//*           IT WORKS FINE ON MODERN SYSTEMS.                      *   FILE 343
//*                                                                 *   FILE 343
//*         EMAIL:   jkalinic@csc.com                               *   FILE 343
//*                                                                 *   FILE 343
//***FILE 344 is a REXX EXEC from Joerg Berning to list the VTOC    *   FILE 344
//*           of a disk pack, and display it under ISPF EDIT.  It   *   FILE 344
//*           is a handy dandy, quick method of displaying disk     *   FILE 344
//*           extents.   (NEW IMPROVED VERSION AS OF V-423.)        *   FILE 344
//*                                                                 *   FILE 344
//*   >>>>    This file has now been expanded to included    <<<<   *   FILE 344
//*   >>>>    various other utilities from Joerg Berning,    <<<<   *   FILE 344
//*   >>>>    which are described below.                     <<<<   *   FILE 344
//*                                                                 *   FILE 344
//*           Private:                                              *   FILE 344
//*           joerg.berning@gmx.net                                 *   FILE 344
//*           (+49)6172/941525(-6 automatic answering machine)      *   FILE 344
//*           D-61352 Bad Homburg                                   *   FILE 344
//*                                                                 *   FILE 344
//*           Duty:                                                 *   FILE 344
//*           joerg_berning@de.sonymusic.com                        *   FILE 344
//*           (+49)69/13888-432                                     *   FILE 344
//*           D-60313 Frankfurt am Main                             *   FILE 344
//*                                                                 *   FILE 344
//*       POSTAL:     JOERG BERNING                                 *   FILE 344
//*                   IN DEN LICHGAERTEN 3                          *   FILE 344
//*                   D-61352 BAD HOMBURG                           *   FILE 344
//*                   GERMANY(HESSEN)                               *   FILE 344
//*                                                                 *   FILE 344
//*   -----------------------------------------------------------   *   FILE 344
//*                                                                 *   FILE 344
//*     Thanks to Gilbert Saint-flour for letting me use his        *   FILE 344
//*     disclaimer:                                                 *   FILE 344
//*                                                                 *   FILE 344
//*     Joerg Berning neither expresses nor implies any             *   FILE 344
//*     warranty as to the fitness of these computer programs       *   FILE 344
//*     for any function.  The use of these programs or the         *   FILE 344
//*     results therefrom is entirely at the risk of the user.      *   FILE 344
//*     Consequently, the user may modify these programs in         *   FILE 344
//*     any way he/she thinks fit.                                  *   FILE 344
//*                                                                 *   FILE 344
//*     These programs are Freeware and may be freely copied.       *   FILE 344
//*     They may be freely distributed to any other party on        *   FILE 344
//*     condition that no inducement beyond reasonable              *   FILE 344
//*     handling costs is offered or accepted by either side        *   FILE 344
//*     for such distribution.                                      *   FILE 344
//*                                                                 *   FILE 344
//*     I would be interested to hear of comments and/or            *   FILE 344
//*     proposed enhancements.  Please write to                     *   FILE 344
//*     joerg.berning(at)gmx.net.                                   *   FILE 344
//*                                                                 *   FILE 344
//*   -----------------------------------------------------------   *   FILE 344
//*                                                                 *   FILE 344
//*     The fun starts here:                                        *   FILE 344
//*                                                                 *   FILE 344
//*     EditMacro Add (<FromCol ToCol>)                             *   FILE 344
//*        Adds the numbers in the selected rows. Display at        *   FILE 344
//*        the bottom line.  Easily saveable with the               *   FILE 344
//*        MD(MakeData)-LineCommand.                                *   FILE 344
//*                                                                 *   FILE 344
//*     3.4 Command DelNoEnq                                        *   FILE 344
//*        Frontend for the BYPASSNQ-Program (Gilbert               *   FILE 344
//*        Saint-flour).  Scratches the dataset under 3.4 with      *   FILE 344
//*        IEHPROGM, no uncatalog is done.                          *   FILE 344
//*                                                                 *   FILE 344
//*     TSO-Batch Command HLQInfo                                   *   FILE 344
//*        Produces a listing containing all HLQs and some          *   FILE 344
//*        RACF-Information.                                        *   FILE 344
//*                                                                 *   FILE 344
//*     TSO Command LDDDef <dddef-entry>                            *   FILE 344
//*        LIST ALLZONES DDDEF(...). Says it all.                   *   FILE 344
//*                                                                 *   FILE 344
//*     TSO Command ListVTOC <volser>                               *   FILE 344
//*        This REXX works to display the contents of a volume      *   FILE 344
//*        and EDIF the result.  The resulting dataset display      *   FILE 344
//*        is very handy.  Just load the 2 members into a           *   FILE 344
//*        SYSPROC or SYSEXEC library and enter LISTVTOC            *   FILE 344
//*        volser.                                                  *   FILE 344
//*                                                                 *   FILE 344
//*     3.4 Command LZ                                              *   FILE 344
//*        Requires Target4-PKZIP-Utility.                          *   FILE 344
//*        Displays the contents of a ZIP-Archive.                  *   FILE 344
//*                                                                 *   FILE 344
//*     3.4 Command LZD                                             *   FILE 344
//*        Requires Target4-PKZIP-Utility.                          *   FILE 344
//*        Displays the contents of a ZIP-Archive more              *   FILE 344
//*        detailed.                                                *   FILE 344
//*                                                                 *   FILE 344
//*     Edit Macro MacroRes                                         *   FILE 344
//*        ISREDIT RESET                                            *   FILE 344
//*                                                                 *   FILE 344
//*     Job MAN                                                     *   FILE 344
//*        For those OMVS-Commands...                               *   FILE 344
//*                                                                 *   FILE 344
//*     TSO Command OMVSSEG                                         *   FILE 344
//*        Output is a listing of all UserIDs & groups and          *   FILE 344
//*        their OMVS-Segment-information. Could take a while.      *   FILE 344
//*                                                                 *   FILE 344
//*     TSO Command ShowDP                                          *   FILE 344
//*        Produces a listing of all active address spaces          *   FILE 344
//*        sortet by dispatching priority.  Helps if your system    *   FILE 344
//*        is in compatibility mode.                                *   FILE 344
//*                                                                 *   FILE 344
//*     TSO Command SMPEWarn                                        *   FILE 344
//*        Produces a listing of the (cataloged) datasets           *   FILE 344
//*        with dataset- information (like how many free            *   FILE 344
//*        directory-blocks are available).                         *   FILE 344
//*                                                                 *   FILE 344
//*     TB Disp                                                     *   FILE 344
//*        Produces a formatted listing of the table. Handy for     *   FILE 344
//*        ISMF-saved tables. May take some time.                   *   FILE 344
//*                                                                 *   FILE 344
//*     Edit Macro Y99                                              *   FILE 344
//*        Sets the member statistics to a specific date.  Handy    *   FILE 344
//*        for resetting Y2K-touched members.                       *   FILE 344
//*                                                                 *   FILE 344
//***FILE 345 IS FROM RICK FOCHTMAN OF CHICAGO, ILLINOIS, AND       *   FILE 345
//*           CONTAINS TWO ENQUEUE DISPLAY PROGRAMS, WHICH WILL     *   FILE 345
//*           PROVE USEFUL, AS DESCRIBED BELOW.                     *   FILE 345
//*                                                                 *   FILE 345
//*      SINCE WE'VE GONE TO GRS, IN PLACE OF MIM, THERE WAS ONE    *   FILE 345
//*      FEATURE OF MIM THAT WAS SORELY MISSED.  MIM WOULD          *   FILE 345
//*      EXPLAIN THE NATURE OF DATASET CONTENTIONS IN GREATER       *   FILE 345
//*      DETAIL THAN THE INITIAL MESSAGES FROM GRS.  TRUE, YOU      *   FILE 345
//*      COULD GET THE DETAIL BY ISSUING THE "D GRS,C" COMMAND,     *   FILE 345
//*      IF YOU MANAGED TO CATCH IT QUICK ENOUGH.  WE DEEMED        *   FILE 345
//*      THAT THIS WAS INSUFFICIENT.  ATTACHED ARE THE SOLUTIONS    *   FILE 345
//*      DEVELOPED HERE.  ONE IS A STARTED TASK THAT CHECKS FOR     *   FILE 345
//*      A CONTENTION SITUATION EACH MINUTE AND DISPLAYS            *   FILE 345
//*      INFORMATION ABOUT IT.  THE OTHER IS A MPF EXIT THAT        *   FILE 345
//*      DISPLAYS THE SAME INFORMATION WHENEVER A DATASET           *   FILE 345
//*      CONTENTION SITUATION IS ANNOUNCED VIE THE IEF099I          *   FILE 345
//*      MESSAGE.                                                   *   FILE 345
//*                                                                 *   FILE 345
//*      THESE ARE VERY SIMPLE ROUTINES, WITHOUT A LOT OF BELLS     *   FILE 345
//*      AND WHISTLES.  BUT THEY WORK!  THEY MIGHT NOT TELL US      *   FILE 345
//*      HOW MANY MINUTES A JOB HAS BEEN WAITING FOR DATASETS,      *   FILE 345
//*      BUT AT LEAST WE'LL KNOW IT'S STILL WAITING.                *   FILE 345
//*                                                                 *   FILE 345
//*      YOUR SUGGESTIONS AND COMMENTS ARE WELCOME....              *   FILE 345
//*                                                                 *   FILE 345
//*      RICK FOCHTMAN                                              *   FILE 345
//*      312-786-5772  WORK      630-719-1545  HOME                 *   FILE 345
//*      RICK.FOCHTMAN@BOTCC.COM           WORK                     *   FILE 345
//*      RICKFOCHTMAN@COMPUSERVE.COM       HOME                     *   FILE 345
//*                                                                 *   FILE 345
//***FILE 346 IS FROM BOB BREAK OF ST. LOUIS, MISSOURI AND CONTAINS *   FILE 346
//*           JES2 EXITS WHICH WORK AT HIS SITE, BUT WHICH CAN BE   *   FILE 346
//*           USED AS CODING EXAMPLES.  THREE EXITS ARE FOR JES2    *   FILE 346
//*           RELEASE 6.0.4 (OS/390 RELEASE 2.5), AND ONE IS AT     *   FILE 346
//*           THE JES2 5.2.0 LEVEL TO SHOW HOW IT WAS CONVERTED     *   FILE 346
//*           TO THE OS/390 JES2.                                   *   FILE 346
//*                                                                 *   FILE 346
//*       HASP2604  -  EXIT 2  AT THE JES2 6.0.4 LEVEL              *   FILE 346
//*                                                                 *   FILE 346
//*       HASPEX20  -  EXIT 20 AT THE JES2 6.0.4 LEVEL              *   FILE 346
//*                                                                 *   FILE 346
//*       HASPEX44  -  EXIT 44 AT THE JES2 6.0.4 LEVEL              *   FILE 346
//*                                                                 *   FILE 346
//*       HASP2520  -  EXIT 2  AT THE JES2 5.2.0 LEVEL WHICH WAS    *   FILE 346
//*                      CONVERTED TO HASP2604.                     *   FILE 346
//*                                                                 *   FILE 346
//***FILE 347 IS THE MODLIST PROGRAM FROM RICK FOCHTMAN OF          *   FILE 347
//*           CHICAGO, ILLINOIS.  THIS PROGRAM LOOKS AT A LOAD      *   FILE 347
//*           LIBRARY, AND TELLS YOU WHICH COMPILE-LINKEDIT         *   FILE 347
//*           OPTIONS ANY COBOL MODULES WERE CREATED WITH.          *   FILE 347
//*                                                                 *   FILE 347
//*       EMAIL:   RICK.FOCHTMAN@BOTCC.COM                          *   FILE 347
//*                RICKFOCHTMAN@COMPUSERVE.COM                      *   FILE 347
//*                                                                 *   FILE 347
//*       PHONE:   312-786-5772   WORK                              *   FILE 347
//*                630-719-1545   HOME                              *   FILE 347
//*                                                                 *   FILE 347
//*     THE MODLIST PROGRAM WAS DEVELOPED AS A STOP-GAP MEASURE,    *   FILE 347
//*     TO TRY AND KEEP A HANDLE ON OUR OS/VS COBOL TO COBOL II     *   FILE 347
//*     CONVERSION PROJECT.  THE ONLY KNOWN BUG LEFT IS IN          *   FILE 347
//*     DEALING WITH MODULES THAT MAY LOAD ABOVE THE 16M LINE.      *   FILE 347
//*     SOMETIMES THEY WORK OK; SOMETIMES NOT.                      *   FILE 347
//*                                                                 *   FILE 347
//*     THE OUTPUT FOR EACH LMOD STARTS WITH A LINE OF HYPHENS.     *   FILE 347
//*     THE FIRST LINE BELOW THAT DETAILS THE LMOD INFO,            *   FILE 347
//*     INCLUDING SOME LKED ATTRIBUTES.  BELOW THAT ARE LINES       *   FILE 347
//*     FOR EACH CSECT IN THE LMOD, MARKED BY CS-(NAME) FOR         *   FILE 347
//*     EACH CSECT.  WHERE POSSIBLE, COBOL COMPILER OPTIONS         *   FILE 347
//*     THAT WERE IN EFFECT FOR THE CSECT ARE DETAILED.  THE        *   FILE 347
//*     VARIOUS COMPILERS THAT ARE NOW RECOGNIZED ARE ANS4,         *   FILE 347
//*     OS/VS (LISTED AS VSR1) AND COBOL II (LISTED AS C2)          *   FILE 347
//*                                                                 *   FILE 347
//*     THE PAN STAMP IS AN IN-HOUSE REQUIREMENT, SO THAT WE        *   FILE 347
//*     CAN MATCH SOURCE WITH LMOD CODE.  SINCE SOMEONE ELSE        *   FILE 347
//*     MIGHT BE USING THE SAME MECHANISM, I'VE LEFT THAT CODE      *   FILE 347
//*     INTACT.                                                     *   FILE 347
//*                                                                 *   FILE 347
//*     THIS IS A REPORT PROGRAM ONLY AND THEREFORE NEEDS ONLY      *   FILE 347
//*     READ ACCESS TO ANY LOADLIB IT PROCESSES.                    *   FILE 347
//*                                                                 *   FILE 347
//*     USE AS YOU SEE FIT; BUT I'D APPRECIATE HAVING ANY MODS      *   FILE 347
//*     SENT BACK TO ME, TO INCORPORATE IN LATER VERSIONS AS        *   FILE 347
//*     NEEDED.                                                     *   FILE 347
//*                                                                 *   FILE 347
//***FILE 348 IS AN ASSEMBLER PROGRAM AND A REXX EXEC, WHICH LIST   *   FILE 348
//*           THE MEMBER NAMES OF A PDS IN ALPHABETICAL ORDER.      *   FILE 348
//*                                                                 *   FILE 348
//*           THESE PROGRAMS CAME FROM A THREAD ON THE MVS-UTIL     *   FILE 348
//*           FORUM, FOR THE DAY OF DEC 1, 98.  THE ENTIRE DAY'S    *   FILE 348
//*           MESSAGES ARE INCLUDED AS MEMBER IU981201.             *   FILE 348
//*                                                                 *   FILE 348
//*           THE ASSEMBLER PROGRAM, CALLED LISTER, COMES FROM      *   FILE 348
//*           EDWARD STRAUSS,                                       *   FILE 348
//*                                                                 *   FILE 348
//*       EMAIL:   EDWARD STRAUSS <EDWARD.STRAUSS@FISC.COM>         *   FILE 348
//*                                                                 *   FILE 348
//*           AND THE REXX EXEC, CALLED PDSDIR, COMES FROM JOHN     *   FILE 348
//*           KALINICH,                                             *   FILE 348
//*                                                                 *   FILE 348
//*    EMAIL:   John Kalinich <jkalinic@csc.com>                    *   FILE 348
//*                                                                 *   FILE 348
//***FILE 349 is from Willy Jensen of Harders Jensen in Denmark,    *   FILE 349
//*           and is a set of REXX execs to update the in-storage   *   FILE 349
//*           copy of your ISPF Command Table, and to list its      *   FILE 349
//*           entries.  This is done for your ISPF session only,    *   FILE 349
//*           and it is effective immediately.  Very handy.         *   FILE 349
//*                                                                 *   FILE 349
//*       email: "Harders Jensen" <wjensen@image.dk>                *   FILE 349
//*                                                                 *   FILE 349
//***FILE 350 IS CURRENTLY EMPTY                                    *   FILE 350
//*                                                                 *   FILE 350
//***FILE 351 IS FROM KRISS DAVIS OF THE UNIVERSITY OF CHICAGO      *   FILE 351
//*           AND CONTAINS TWO SMALL COBOL PROGRAMS WHICH LIST      *   FILE 351
//*           THE CURRENTLY INSTALLED LE LEVEL.  ONE PROGRAM        *   FILE 351
//*           IS FOR BATCH, AND THE OTHER IS FOR CICS.  ALSO        *   FILE 351
//*           INCLUDED IN THIS FILE IS A C PROGRAM FROM ROLAND      *   FILE 351
//*           SCHIRADIN OF ELTVILLE, GERMANY, WHICH DOES THE        *   FILE 351
//*           SAME THING.                                           *   FILE 351
//*                                                                 *   FILE 351
//*       EMAIL:    KRISS DAVIS <K-DAVIS@UCHICAGO.EDU>              *   FILE 351
//*       EMAIL:    ROLAND SCHIRADIN (ROLAND@SCHIRADIN.DE)          *   FILE 351
//*                                                                 *   FILE 351
//***FILE 352 CONTAINS THE INTEL MODS TAPE FROM INTEL SEE THE       *   FILE 352
//*           MEMBER CALLED $$DOC FOR ADDITIONAL INFORMATION THAT   *   FILE 352
//*           IS NOT DOCUMENTED BELOW.                              *   FILE 352
//*                                                                 *   FILE 352
//*     MEMBER   SV LANG  DESCRIPTION                               *   FILE 352
//*     ________ __ ____  _______________________                   *   FILE 352
//*     $$DOC       N/A   THIS FILE                                 *   FILE 352
//*     $$GENTAP    N/A   JCL USED TO GENERATE THIS TAPE.           *   FILE 352
//*     $$INDEX     N/A   THIS MEMBER - TABLE OF CONTENTS           *   FILE 352
//*     $$RELOAD    N/A   JCL TO LOAD DOWN TAPE TO DISK --          *   FILE 352
//*                       ALSO APPEARS AS FILE 1 ON THE             *   FILE 352
//*                       TAPE.                                     *   FILE 352
//*     ABEND       BAL   SUBROUTINE-ISSUE USER ABEND WITH          *   FILE 352
//*                       CODE OF YOUR CHOICE                       *   FILE 352
//*     ABENDPGM    BAL   PGM TO WTOR FAILURE MESSAGE (VIA          *   FILE 352
//*                       PARM FIELD) WHEN YOUR FAVORITE JOB        *   FILE 352
//*                       FAILS..REQUIRES OPERS TO ACK-             *   FILE 352
//*                       NOWLEDGE MESSAGE WITH JOBNAME.            *   FILE 352
//*     ACFEXITS    BAL   THIS IS 2 SMP JOBS TO INSTALL OUR         *   FILE 352
//*                       EXITS FOR ACF2.  ACFVAL AND ACFDSTBL      *   FILE 352
//*                       CONSTITUTE OUR NAMING CONVENTIONS         *   FILE 352
//*                       SUPPORT AT INTEL.  ACFVIOX IS OUR         *   FILE 352
//*                       VIOLATION EXIT TO SUPPORT PHASED          *   FILE 352
//*                       IMPLEMENTATION OF RULES.                  *   FILE 352
//*     ACF2MON     SAS   THIS SAS 79.3 PROGRAM READS SMF           *   FILE 352
//*                       RECORDS FOR ACF2 EVENTS- MATCH            *   FILE 352
//*                       MERGES SEVERAL 'WHODAT' FILES AND         *   FILE 352
//*                       PRODUCES A COMPOSITE REPORT ON ALL        *   FILE 352
//*                       ACF2 ACTIVITY FOR EACH GROUP              *   FILE 352
//*                       SECURITY ADMINISTRATOR..(BY HENRY         *   FILE 352
//*                       WACKER)                                   *   FILE 352
//*     ANLZUCB     PL/I  GEN REPORT ON WORK PACK USAGE/MSS         *   FILE 352
//*                       UCB USAGE REQUIRES P051B12L               *   FILE 352
//*                       (UCBLOGER) TO GATHER INFO.                *   FILE 352
//*     BKUPUTIL    BAL   PGM FROM SHARE MODS TAPE (FILE18) TO      *   FILE 352
//*                       INVOKE UTILITY TO CREATE STACKED          *   FILE 352
//*                       SL TAPE.  OUR MODS INCLUDE AUTO           *   FILE 352
//*                       SELECT FOR IEBISAM AND PANVALET           *   FILE 352
//*                       SUPPORT VIA PAN#2.  DYNAMIC ALLOC         *   FILE 352
//*                       OF VOLUMES, AND DATASET/TAPE DS           *   FILE 352
//*                       STATS ARE ALSO PRINTED.  MUST BE          *   FILE 352
//*                       LINKED WITH AC=1 TO ALLOW IEBCOPY         *   FILE 352
//*                       TO FUNCTION. (SUPPORTS                    *   FILE 352
//*                       PS/PO/IS/DA/PV                            *   FILE 352
//*     COMPMEMB    PL/I  COMPARE MEMBERS IN PDS OR PANVALET        *   FILE 352
//*                       LIBRARIES BY MEMBER NAME AND              *   FILE 352
//*                       PRODUCE CNTL CARDS BASED ON               *   FILE 352
//*                       EXISTENCE OF MEMBER IN EITHER OR          *   FILE 352
//*                       BOTH LIBRARIES.                           *   FILE 352
//*     DATTIM      BAL   SUBROUTINE- RETURNS 'HH:MM:SS' AND        *   FILE 352
//*                       'MM/DD/YY'                                *   FILE 352
//*     DELETDS     BAL   UTILITY- UNCATLG TAPES AND                *   FILE 352
//*                       UNCATLG/SCRATCH DATASETS SUPPORTS         *   FILE 352
//*                       MSS VIA DYNAMIC ALLOC OF MSS              *   FILE 352
//*                       VOLUMES.                                  *   FILE 352
//*     DIDOCS   ** BAL   TSO COMMAND TO ALLOW TSO 3270 TO          *   FILE 352
//*                       BECOME A OS OPER CONSOLE.  FINDS          *   FILE 352
//*                       MCS BUFFERS IN CSA AND REDISPLAYS         *   FILE 352
//*                       THEM TO TSO TUBE.  ACCEPTS                *   FILE 352
//*                       COMMANDS AND USES SVC 34 TO ISSUE         *   FILE 352
//*                       THEM. FROM SHARE DCMS SYSTEM              *   FILE 352
//*                       (CBT).                                    *   FILE 352
//*     DSINFO      BAL   PL/I SUBROUTINE- GET DSN INFORMATION      *   FILE 352
//*                       VIA RDJFCB (FROM IIH, ISRAEL)             *   FILE 352
//*     ERAS3270    BAL   TSO COMMAND- ERASE A 3270 SCREEN          *   FILE 352
//*                       (WITH SPF TRIGGERS).                      *   FILE 352
//*     FCIMOD07    BAL   FROM FLORIDA POWER AND LIGHT- THEIR       *   FILE 352
//*                       FULL SCREEN FAC.  WITH FCI ADDED          *   FILE 352
//*                       SPF FULLSCRN TRIGGERS.                    *   FILE 352
//*     FSF         BAL   FROM FLORIDA POWER AND LIGHT- THE         *   FILE 352
//*                       LINKABLE PORTION OF THEIR FULL            *   FILE 352
//*                       SCREEN FACILITY-INVOKES FCIMOD07          *   FILE 352
//*     HEXCONV     BAL   PL/I SUBROUTINE- CONVERT                  *   FILE 352
//*                       CHAR/BIT/ETC TO HEX CHAR (FROM            *   FILE 352
//*                       IIH, ISRAEL)                              *   FILE 352
//*     IEECVXIT    BAL   OUR MODS TO MSSCVXIT IN                   *   FILE 352
//*                       SYS1.SAMPLIB.. CAUSE OTHER                *   FILE 352
//*                       MESSAGES (IFG...) TO 'HANG' ON            *   FILE 352
//*                       SCREENS, SUBMIT JOB TO DUMP TRACE         *   FILE 352
//*                       WHEN TRACE SWITCH OCCURS.  (ONLY          *   FILE 352
//*                       SOURCE SUPPLIED...NO JCL TO               *   FILE 352
//*                       INSTALL)                                  *   FILE 352
//*     IPOUPDTE    SZAP  SIMPLE ZAP TO LET IPO AID (IPOUPDTE)      *   FILE 352
//*                       WORK ON ANY JCL OR SOURCE PDS.            *   FILE 352
//*     CPPUPDTE    SZAP  SIMPLE ZAP TO LET IPO AID (CPPUPDTE)      *   FILE 352
//*                       WORK ON ANY JCL OR SOURCE PDS.            *   FILE 352
//*     JCLFORMT    BAL   UTILITY TO REFORMAT A JOB OR A PROC       *   FILE 352
//*                       INTO SOME KIND OF ORDER.  INVOKED         *   FILE 352
//*                       BY 'CLEANJCL' CLIST IN JOBS.CNTL          *   FILE 352
//*     MAPDISK     BAL   GOOD OLD MAPDISK WITH ENHANCEMENTS:       *   FILE 352
//*                       1) DYNAMIC ALLOC FOR MSS VOLUMES          *   FILE 352
//*                       (SEE P963P30) 2) CAPABILITY TO LOG        *   FILE 352
//*                       VTOC INFO TO DATASET 3) ASM2 OPEN         *   FILE 352
//*                       MOD AND RACF SUPPORT                      *   FILE 352
//*     MOP         BAL   ALLOW OPER PRIV TSO USER TO DO            *   FILE 352
//*                       MVS/JES2 COMMANDS.  THE COMMAND IS        *   FILE 352
//*                       LOGGED, ALONG WITH THE ISSUING TSO        *   FILE 352
//*                       UID.                                      *   FILE 352
//*     MSSAMS      BAL   THE IPO MSSAMS AID, WITH A NOTIFY=        *   FILE 352
//*                       AND COND CODE CHK                         *   FILE 352
//*     MSSDUMP     PL/I  PGM TO DUMP MSS TABLES IN A NEAT          *   FILE 352
//*                       FORMAT (FROM FVT)                         *   FILE 352
//*     MSSPDATE    BAL   PGM TO WRITE A NICE DATE TO THE MSS       *   FILE 352
//*                       LOG CONSOLE INVOKE VIA A JES2             *   FILE 352
//*                       $TA,I=1800,'$VS,''S MSSPDATE'''           *   FILE 352
//*     MSSTSO      BAL   IPO MSSTSO WITH A FEW CHANGES FOR         *   FILE 352
//*                       3330-1 SUPPORT                            *   FILE 352
//*     MSSVOL      PL/I  INVOKED BY MSVGP CLIST IN JOBS.CNTL-      *   FILE 352
//*                       LIST VOLUMES IN MSVI FOR MSVGPS OF        *   FILE 352
//*                       YOUR CHOICE.                              *   FILE 352
//*     MVSMON      BAL   FROM FLORIDA POWER AND LIGHT- MVS         *   FILE 352
//*                       MONITOR USES TSO FULL SCREEN.  WE         *   FILE 352
//*                       ADDED DIDOCS INVOKE VIA THE               *   FILE 352
//*      (NOT FOR SE2/SP1)  'CO' COMMAND, DOMAIN NAME DISPLAY,      *   FILE 352
//*                       DISP DISK FORMAT IMPROVEMENTS AND         *   FILE 352
//*                       ELIM DUP VOLUME REPORTING VIA UCB         *   FILE 352
//*                       ALT PATH PLUS OTHER THINGS.....           *   FILE 352
//*     NETINFO     JCL/SAS   THE JOB IS PART OF THE                *   FILE 352
//*                        'VTAMDOC', 'CICSDOC', 'NETINFO'          *   FILE 352
//*                        JOBS WHICH WILL ASSEMBLE THE VTAM        *   FILE 352
//*                        NCP AND CICS TCT USING MACROS IN         *   FILE 352
//*                        MODS.NETINFO.  THE NETINFO JOB           *   FILE 352
//*                        USES A SAS PROGRAM (IN MODS.SASLIB)      *   FILE 352
//*                        TO READ THE ASSEMBLED VTAM, CICS,        *   FILE 352
//*                        ADMPRINT, DSPRINT, AND WHATNOT           *   FILE 352
//*                        TABLES TO PRODUCE A DOCUMENT OF THE      *   FILE 352
//*                        NETWORK IN INFO/SYSTEM FORMAT.           *   FILE 352
//*     NTLM801     BAL    PDS MEMBER LOGICAL READ SUBROUTINE.      *   FILE 352
//*                        USED BY PROCXREF PROGRAM.                *   FILE 352
//*     NTLM802     BAL    PDS DIRECTORY READ SUBROUTINE.  USED     *   FILE 352
//*                        BY PROCXREF.                             *   FILE 352
//*     OSDEBE   ** BAL   THE INFAMOUS 'DOES EVERYTHING BUT         *   FILE 352
//*                       EAT' UTILITY FOR FIDDLING WITH            *   FILE 352
//*                       TAPES AND CARDS.  OPERS L O V E           *   FILE 352
//*                       IT.  WORKS ONLY WITH OFFLINE              *   FILE 352
//*                       TAPES...................  INVOKE          *   FILE 352
//*                       VIA 'DEBE' IN JOBS.CNTL.                  *   FILE 352
//*     OZPDSUNL    BAL   THIS PROGRAM WILL UNLOAD A RECFM=VB       *   FILE 352
//*                       PDS AND CONSTRUCT A SEQUENTIAL            *   FILE 352
//*                       DATASET FOR USE BY THE BLGOZX             *   FILE 352
//*                       (INFO/SYSTEM) PROGRAMS.  USED AT          *   FILE 352
//*                       INTEL TO GENERATE A USER DATABASE         *   FILE 352
//*                       FOR TECHNICAL INFORMATION.  SEE           *   FILE 352
//*                       JOBS 'TEC.....' IN JOBS.CNTL FOR          *   FILE 352
//*                       MORE INFO.                                *   FILE 352
//*     PANFETCH    BAL   USES THE PANVALET ACCESS METHOD           *   FILE 352
//*                       (PAM) TO WRITE A MEMBER OF A              *   FILE 352
//*                       PANVALET LIBRARY TO A SEQUENTIAL          *   FILE 352
//*                       DSN EXPANDING ALL IMBEDDED                *   FILE 352
//*                       ++INCLUDE CARDS.  USED IN THE             *   FILE 352
//*                       'CICSDOC' JOB.                            *   FILE 352
//*     PANSCAN     PL/I   THIS IS A MORE USEFUL VERSION OF THE     *   FILE 352
//*                        'PAN#8' PROGRAM TO SCAN A PANVALET       *   FILE 352
//*                         LIBRARY FOR OCCURRENCES OF PARTICULAR   *   FILE 352
//*                         CHARACTER STRINGS.  THIS PL/I           *   FILE 352
//*                         VERSION IS A BIT SLOWER THAN PAN#8,     *   FILE 352
//*                         BUT OPENS THE LIBRARY FOR INPUT ONLY    *   FILE 352
//*                         (INSTEAD OF UPDATE), AND ALLOWS         *   FILE 352
//*                         MULTIPLE SCAN PASSES AND GENERIC        *   FILE 352
//*                         MEMBER SELECTION.                       *   FILE 352
//*     PROCXREF    BAL     READS A JCL PROCLIB AND PRODUCES 3      *   FILE 352
//*                         REPORTS:                                *   FILE 352
//*                           CROSS REF BY DATASET NAME             *   FILE 352
//*                           CROSS REF BY PROGRAM NAME             *   FILE 352
//*                           CROSS REF BY SYSOUT CLASS/FORMS       *   FILE 352
//*                         PROCXREF ALSO UNLOADS THE LIBRARY TO    *   FILE 352
//*                         A SEQUENTIAL FILE FOR FURTHER           *   FILE 352
//*                         PROCESSING VIA SAS PGM 'PROCANLZ'       *   FILE 352
//*                         (REQUIRES NTLM801,NTLM802 PDS READ      *   FILE 352
//*                         ROUTINES).                              *   FILE 352
//*     PSN         BAL   THIS IS OUR JCL STANDARDS CHECKER         *   FILE 352
//*                       AND JCL REFORMATTER PROGRAM.              *   FILE 352
//*                       OBVIOUSLY YOU WON'T WANT TO USE           *   FILE 352
//*                       OUR STDS FOR JCL, BUT THIS PGM IS         *   FILE 352
//*                       HIGHLY MODULAR AND INCLUDES A LOT         *   FILE 352
//*                       OF NEAT CODE BY MIKE FARMER.  IT          *   FILE 352
//*                       WILL BE EASY FOR YOU TO INSERT            *   FILE 352
//*                       YOUR OWN JCL FOIBLES IN THIS GEM..        *   FILE 352
//*     P051B10     BAL   THE TSO WHOGOT/DSN COMMAND - RUNS AS      *   FILE 352
//*                       STC ALSO FINDS USERS/JOBS ENQUEUED        *   FILE 352
//*                       ON A DATASET.                             *   FILE 352
//*     P051B12     BAL   THE TSO DSPACE COMMAND - RUNS AS STC      *   FILE 352
//*                       ALSO DOES LSPACE TO PACK(S) OF            *   FILE 352
//*                       CHOICE AND FORMATS RESULT.                *   FILE 352
//*                       DEFAULT PACKS ARE 'FCITS*'.               *   FILE 352
//*     P051B12L    BAL   THE UCBLOGER STC - FIRE OFF AT 10         *   FILE 352
//*                       MINUTE INTERVALS VIA JES2                 *   FILE 352
//*                       $TA,I=600,'$VS,''S UCBLOG''' AND          *   FILE 352
//*                       ONCE A WEEK RUN THE SAVELOG JOB TO        *   FILE 352
//*                       PRINT THE REPORT VIA ANLZUCB AND          *   FILE 352
//*                       REINITIALZE THE LOG DATASET.              *   FILE 352
//*     P051B15     BAL   THE TSO DDSTAR COMMAND- SPOOL LINES       *   FILE 352
//*                       FROM A CLIST INTO A DATASET FOR           *   FILE 352
//*                       READING BY PGMS/UTILITIES.                *   FILE 352
//*                       ARRIVED VIA MISHMODS TAPE FROM            *   FILE 352
//*                       UCLA-FCI INTERNALIZE MACROS FROM          *   FILE 352
//*                       URMACRO.                                  *   FILE 352
//*     P051B16     BAL   THE TSO LISTSPC COMMAND - REPLACES        *   FILE 352
//*                       LISTC USAGE FOR TSO USERS..SHOWS          *   FILE 352
//*                       ALLOCATIONS, AND DS ATTRIBS, AND          *   FILE 352
//*                       IF YOU HAVE ASM2, ALSO SHOWS WHO          *   FILE 352
//*                       LAST MODIFIED DS.                         *   FILE 352
//*     P051B19     BAL   THE TSO DTAPES COMMAND - RUNS AS STC      *   FILE 352
//*                       ALSO SHOWS TAPE DRIVES, VOLSER,           *   FILE 352
//*                       JOB USING AND DENSITY, MODEL              *   FILE 352
//*                       TYPES.                                    *   FILE 352
//*     P963P00     PL/I  DASD MANAGEMENT SYSTEM- MAINLINE          *   FILE 352
//*                       (COMPARE DSN FROM VTOC WITH GRANT         *   FILE 352
//*                       LIST) - GENERATE SCRATCH LIST AND         *   FILE 352
//*                       MERGED DSNLOG.                            *   FILE 352
//*     P963P02     PL/I  DASD MANAGEMENT SYSTEM- DATA SET          *   FILE 352
//*                       SCRATCH UTILITY                           *   FILE 352
//*     P963P10     PL/I  DASD MANAGEMENT SYSTEM- GENERATE          *   FILE 352
//*                       SCRATCH LOG FROM OUTLOG OF P963P00        *   FILE 352
//*                       (FOR RECOVERY ONLY).                      *   FILE 352
//*     P963P20     PL/I  DASD MANAGEMENT SYSTEM- PRINT SCRLOG      *   FILE 352
//*                       REPORT FOR TSO USERS - USED BY            *   FILE 352
//*                       CLIST SHOWSCR.                            *   FILE 352
//*     P963P27     PL/I  DASD MANAGEMENT SYSTEM- AUTOSCR           *   FILE 352
//*                       (EARLY SCR FOR ROLLED OFF GDG             *   FILE 352
//*                       DATASETS) + DATASET SIZE HISTORY          *   FILE 352
//*                       FILE                                      *   FILE 352
//*     P963P30     PL/I  PGM FROM OUR DASD MGMT                    *   FILE 352
//*                       SYSTEM..ACCEPTS CONTROL CARDS AND         *   FILE 352
//*                       LOOKS UP VOLUMES/MSVGPS FROM THE          *   FILE 352
//*                       MSVI DATASET.  USE PROC 'MAPMSVGP'        *   FILE 352
//*                       TO INVOKE THIS ONE, THEN MAPDISK          *   FILE 352
//*                       TO MAP ALL VOLUMES IN AN MSVGP.           *   FILE 352
//*     P963P35     PL/I  DASD MANAGEMENT SYSTEM- DUPLICATE         *   FILE 352
//*                       VOLUME ELIMINATOR TO ENSURE THAT          *   FILE 352
//*                       MAPDISK MAPS EACH VOLUME ONLY             *   FILE 352
//*                       ONCE.                                     *   FILE 352
//*     P963P70     PL/I  DASD MANAGEMENT SYSTEM- SUPERMATCH        *   FILE 352
//*                       PROGRAM-USED WITH P963P71/SUPERSCR        *   FILE 352
//*                       TO EXCLUDE DSNS FROM SUPERSCR             *   FILE 352
//*     P963P71     PL/I  DASD MANAGEMENT SYSTEM- GENERATE          *   FILE 352
//*                       SUPERSCR EXCLUDE CARDS TO EXEMPT          *   FILE 352
//*                       DATASETS FROM SUPERSCR AFTER              *   FILE 352
//*                       SYSTEM CRASH - INTERFACES WITH            *   FILE 352
//*                       OPERATOR VIA WTOR                         *   FILE 352
//*     P963P75     PL/I  DASD MANAGEMENT SYSTEM- DATASET SIZE      *   FILE 352
//*                       HISTORY FILE MAINT PROGRAM AND            *   FILE 352
//*                       AUTOSCR FOR MSVGP=XMIT                    *   FILE 352
//*     P963P75A    PL/I  DASD MANAGEMENT SYSTEM- MAINTAIN          *   FILE 352
//*                       MSVGP=XMIT                                *   FILE 352
//*     R062A10     BAL   DYNAMIC ALLOCATION INTERFACE              *   FILE 352
//*                       SUBROUTINE - ALLOWS MOST DA               *   FILE 352
//*                       SERVICES FROM A COBOL/PLI/FORT            *   FILE 352
//*                       PROGRAM.                                  *   FILE 352
//*     R941X11     BAL   UTILITY JULIAN<->GREGORIAN DATE           *   FILE 352
//*                       CONVERTOR-- USED BY SEVERAL PL/I          *   FILE 352
//*                       PROGRAMS ON THIS TAPE.                    *   FILE 352
//*     R963A30     BAL   HANDY SUBROUTINE TO                       *   FILE 352
//*                       SCRATCH/UNCATALOG DATASET..  DOES         *   FILE 352
//*                       DYNAMIC ALLOCATION OF VOLUME, AND         *   FILE 352
//*                       REPORTS WITH TEXT MESSAGES TO             *   FILE 352
//*                       CALLER                                    *   FILE 352
//*     SCOMPARE    BAL   PGM TO COMPARE 2 LRECL=80 DATASETS        *   FILE 352
//*                       AND SPOT DIFFERENCES.  BASED ON           *   FILE 352
//*                       CBT881 WITH MODS TO PRINT WHICH           *   FILE 352
//*                       DATASETS ARE BEING COMPARED, AND          *   FILE 352
//*                       PAGE CONTROL.                             *   FILE 352
//*     SHOWHIST    PL/I  DASD MANAGEMENT SYSTEM- SHOW TSO          *   FILE 352
//*                       USERS THE HISTORY (SIZE, ETC) ON          *   FILE 352
//*                       DATASETS OF THEIR CHOICE.. INVOKED        *   FILE 352
//*                       BY THE 'SHOWHIST' CLIST IN                *   FILE 352
//*                       JOBS.CNTL                                 *   FILE 352
//*     SHOWSMF     BAL   TSO CMD OR STC TO DISPLAY                 *   FILE 352
//*                       ''FULLNESS'' OF MANX/MANY FOR MVS         *   FILE 352
//*                       (NOT SE OR SP SYSTEMS)                    *   FILE 352
//*     SHOSMFSP    BAL   TSO CMD OR STD TO DISPLAY SYS1.MAN.       *   FILE 352
//*                       DATASETS FOR MVS SE2 OR SP1/SP3.          *   FILE 352
//*     SHOWRAW     PL/I  PGM TO DISPLAY START/END DATES OF         *   FILE 352
//*                        TRACE DUMP DATASETS (USED IN             *   FILE 352
//*                        MSSTRACE/TRACESAV JOBSTREAMS).           *   FILE 352
//*     SHOWTRC     PL/I  PGM TO DYNAM. ALLOC MSS TRACE             *   FILE 352
//*                       DATASETS AND READ HDR                     *   FILE 352
//*                       RECORD/FORMAT TRACE ON DATE/TIME.         *   FILE 352
//*                       THIS IS AN EXAMPLE OF USING               *   FILE 352
//*                       R062A10 DYNAM ALLOC AND S051B16B          *   FILE 352
//*                       (LOCINDEX) SUBROUTINE.  ONLY              *   FILE 352
//*                       SOURCE IS SUPPLIED- NO JCL TO             *   FILE 352
//*                       COMPILE AND LINK.                         *   FILE 352
//*     SMFACF2     PL/I  SMF PGM- DIGEST ACF2 RECORDS, PRINT       *   FILE 352
//*                       ACF2 INFORMATION                          *   FILE 352
//*     SMFACFM     PL/I  SMF PGM- MERGE DIGESTED ACF2 RECORDS      *   FILE 352
//*                       AND RESPONSIBILITY LIST.                  *   FILE 352
//*     SMFACFPR    PL/I  SMF PGM- PRINT NICELY FORMATTED ACF2      *   FILE 352
//*                       INFORMATION                               *   FILE 352
//*     SMFDSND     PL/I  SMF PGM- LOOK FOR TYPE 14/15/17           *   FILE 352
//*                       RECORDS FOR UP TO 20 GENERIC              *   FILE 352
//*                       DATASETS-SHOW RAW INFO                    *   FILE 352
//*     SMFDSNPR    PL/I  SMF PGM- PRINT SORTED SMFDSND OUTPUT      *   FILE 352
//*                       TO SHOW CHRONOLOGICAL HISTORY OF          *   FILE 352
//*                       DATASET ACCESS.                           *   FILE 352
//*     SMFRACF     PL/I  SMF PGM- PRINT RACF EVENTS FROM TYPE      *   FILE 352
//*                       0,80 AND 81 RECS PROVIDE LISTING          *   FILE 352
//*                       OF EVENTS AND BUILD CLIST TO ALLOW        *   FILE 352
//*                       RECONSTRUCTION OF RACF DATASET            *   FILE 352
//*                       AFTER CRASH.                              *   FILE 352
//*     SMFSEL      BAL   SMF PGM- RECORD SELECTION UTILITY         *   FILE 352
//*     SMFTERM     PL/I  SMF PGM- ANALYZE TYPE 34 RECORDS AND      *   FILE 352
//*                       PRODUCE TSO USAGE SUMMARY.                *   FILE 352
//*                       REQUIRES IEFUJI TO PUT TERMINAL           *   FILE 352
//*                       UCB ADDR IN LAST HALFWORD OF              *   FILE 352
//*                       SMFUSER FIELD IN ORDER TO PROVIDE         *   FILE 352
//*                       TERMINAL USAGE STATS BY TERMINAL          *   FILE 352
//*                       ADDRESS                                   *   FILE 352
//*     SPACEZAP    PL/I  PGM TO DYNAM. ALLOC MSS VOLUMES           *   FILE 352
//*                       WHICH ARE NOT MOUNTED BUT HAVE            *   FILE 352
//*                       DOWN LEVEL SPACE FLAG SET ON IN           *   FILE 352
//*                       MSVI.  MSVGPS SCANNED CONTROLLED          *   FILE 352
//*                       BY SYSIN PARM CARDS.  (STC JCL IN         *   FILE 352
//*                       MSSMODS.JOBS.CNTL + SAMPLE CNTL           *   FILE 352
//*                       DS)                                       *   FILE 352
//*     SUPERSCR ** BAL   SUPER SCRATCH FOR REAL/VIRTUAL            *   FILE 352
//*                       DISKS..                                   *   FILE 352
//*     SUPERSPY ** BAL   THE THING TO RUN TO HELP DIAGNOSE         *   FILE 352
//*                       PROBLEMS WITH MVS/ MSS..REQUIRES          *   FILE 352
//*                       MSC TABLES MAINT. IUP IN SECOND           *   FILE 352
//*                       STEP.                                     *   FILE 352
//*     S051B22     BAL   THE FIND SUBROUTINE..USED BY              *   FILE 352
//*                       TSO044(UCBUNLD) TO FIND 'VOL=(SL,'        *   FILE 352
//*                       ON PARM CARD.                             *   FILE 352
//*     TECHINFO    JCL   JOB TO UPDATE YOUR VERY OWN INFO/MVS      *   FILE 352
//*                       FORMATTED DATABASE.  USES UTILITY         *   FILE 352
//*                       'OZPDSUNL'.  SEE JOBS.CNTL FOR THE        *   FILE 352
//*                       FOLLOWING MEMBERS:                        *   FILE 352
//*          TECINFOC - CLIST TO RUN TECHINFO UNDER TSO             *   FILE 352
//*          TECHINFO - JOB TO RELOAD TECHINFO DATABASE             *   FILE 352
//*          TECINFO1 - USES IDCAMS TO DEFINE VSAM CLUSTER FOR DB   *   FILE 352
//*          TECINFO2 - USES BLG... UTILITIES TO CREATE UNLOADED    *   FILE 352
//*                     HELP, CICS, VTAM, VSAM FILES FROM THE       *   FILE 352
//*                     INFO/MVS MONTHLY UPDATE TAPE.               *   FILE 352
//*     TRAC3850    BAL   IPO TRAC3850 WITH MODS..ANLZ              *   FILE 352
//*                       IGCTRINT OUTPUT                           *   FILE 352
//*     TSO020SU    BAL   TSO DJOBS COMMAND - STC USAGE ALSO.       *   FILE 352
//*                       LIKE 'D J,L' WITH SWAP STATUS,CPU         *   FILE 352
//*                       TIME,XACT TIME                            *   FILE 352
//*     TSO025AS ** BAL   TSO DTSO COMMAND  - STC USAGE ALSO.       *   FILE 352
//*                       LIKE DJOBS ABOVE, BUT FOR TSO;            *   FILE 352
//*                       SHOWS LINE ADDR TOO.                      *   FILE 352
//*     TSO032      BAL   TSO DDMN COMMAND  - STC USAGE ALSO.       *   FILE 352
//*                       LIKE 'D DMN' BUT NEATER, SHOWS IPS        *   FILE 352
//*                       IN EFFECT TOO.                            *   FILE 352
//*     TSO033      BAL   TSO DUPTIME COMMAND - STC USAGE           *   FILE 352
//*                       ALSO.  SHOWS HOW LONG SYSTEM HAS          *   FILE 352
//*                       BEEN UP (FROM LAST IPL)                   *   FILE 352
//*     TSO034   ** BAL   TSO SYSMAINT COMMAND - STC USAGE          *   FILE 352
//*                       ALSO.  WRITTEN BEFORE THE DAYS OF         *   FILE 352
//*                       'FORCE', ALLOWS A CALLRTM MEMTERM         *   FILE 352
//*                       TO BE ISSUED TO AN ADDRESS SPACE          *   FILE 352
//*                       HANDLES 'STARTING' TSO USERS TOO.         *   FILE 352
//*     TSO036      BAL   TSO SHOWASM COMMAND  - STC USAGE          *   FILE 352
//*                       ALSO.  DISPLAYS AUXSTM STATS, RSM         *   FILE 352
//*                       PAGE USAGES, AND PAGE/SWAP DATASET        *   FILE 352
//*                       STATUS/STATS.                             *   FILE 352
//*     TSO041      BAL   TSO LPDS COMMAND.  THE EVER POPULAR       *   FILE 352
//*                       PDS MANIPUATOR COMMAND, DOES              *   FILE 352
//*                       EVERYTHING BUT DRY-CLEAN A PDS            *   FILE 352
//*                       OF YOUR CHOICE.  (SEE FILE 182 FOR NEW.)  *   FILE 352
//*     TSO042      BAL   TSO DUNITS COMMAND  - STC USAGE           *   FILE 352
//*                       ALSO.  LIKE 'D U,...' BUT MORE            *   FILE 352
//*                       INFORMATIVE WITH USE/OPEN COUNTS.         *   FILE 352
//*                       SELECTION IS BY GENERIC VOLSERS.          *   FILE 352
//*     TSO044   ** BAL   STARTED TASK..UNLOAD ALL MSS VOLUMES      *   FILE 352
//*                       NOT ON A LIST OF VOLSERS IN MEMBER        *   FILE 352
//*                       'MOUNTMSS'.  PARSES '$VS,'M               *   FILE 352
//*                       XXX,VOL=(SL,VOLSER)'' COMMANDS TO         *   FILE 352
//*                       FIND VOLUMES TO EXEMPT...                 *   FILE 352
//*     TSO045      BAL   THE CHIMP MVS SYSTEM DISPLAY COMMAND      *   FILE 352
//*                       FOR 3270 FULLSCR OPERATION.  SHOWS        *   FILE 352
//*                       JOBS/TSO USER STATS, AND WE ADDED         *   FILE 352
//*                       A DYNAMIC DOMAIN DISPLAY (OPTION          *   FILE 352
//*                       'D').  OPERS LOVE IT..SHOWS STEP          *   FILE 352
//*                       NAME AND CPU TIME...  (ORIG FROM          *   FILE 352
//*                       SHARE VIA THE CBT TAPE).                  *   FILE 352
//*     TSO048      BAL   THE TSO #PANVIEW COMMAND - ALLOW          *   FILE 352
//*                       LISTING OF PANVALET LIBRARY               *   FILE 352
//*                       MEMBERS AND LIBRARY DIRECTORY ON A        *   FILE 352
//*                       3270 TUBE IN FULL SCREEN MODE.            *   FILE 352
//*                       (ORIG FROM SHARE JES2 MODS TAPE           *   FILE 352
//*                       (MEMOREX) WITH                            *   FILE 352
//*                        DIRECTORY LIST MOD BY FAIRCHILD). USES   *   FILE 352
//*                        THE 'PANVIEW' CLIST IN MSSMODS.JOB.CNTL  *   FILE 352
//*                        TO RUN.                                  *   FILE 352
//*     TSO050      BAL   TSO '$' COMMAND- INVOKE PROGRAM FROM      *   FILE 352
//*                       LINKLIST.  THIS VERSION ARRIVED           *   FILE 352
//*                       FROM SOURCES UNKNOWN, BUT WE              *   FILE 352
//*                       INTERNALIZED THE MACROS-(LOOKS            *   FILE 352
//*                       LIKE UCLA MACROS...)                      *   FILE 352
//*     TSO051      BAL   TSO 'GETINFO' COMMAND - ALLOWS YOU        *   FILE 352
//*                       TO STUFF GOODIES FROM OS/JCT (OR          *   FILE 352
//*                       OTHER CONTROL BLOCKS) INTO CLIST          *   FILE 352
//*                       VARIABLES WITHIN A CLIST.                 *   FILE 352
//*                       (TAILORED FOR ACF2)                       *   FILE 352
//*     UCBZAP   ** BAL   FIX MSS UCBS WITH STATUS 'A' AND          *   FILE 352
//*                       USECNT>250.  CLEANS 'DIRTY' MSS           *   FILE 352
//*                       UCBS LEFT BY SOMEONE IN MVS NOT           *   FILE 352
//*                       PLAYING FAIR WITH THE UCB USECOUNT        *   FILE 352
//*                       FIELD.  ISSUES UNLOADS FOR DIRTY          *   FILE 352
//*                       UNITS AFTER FIXING THE 'ALLOC' AND        *   FILE 352
//*                       USECOUNT.                                 *   FILE 352
//*                                                                 *   FILE 352
//***FILE 353 IS FROM MORTON THIOKOL INC. OF CHICAGO, ILLINOIS AND  *   FILE 353
//*           CONTAINS THE FOLLOWING PROGRAMS TO RUN UNDER SPF.     *   FILE 353
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT.  SEE THE       *   FILE 353
//*           MEMBER CALLED $$INDEX FOR ADDITIONAL INFORMATION:     *   FILE 353
//*                                                                 *   FILE 353
//*           KWS SPF SPY DIDOCS QUE QUEUE MCS Q                    *   FILE 353
//*                                                                 *   FILE 353
//*              APPLMON$ - INSTALL DOC FOR APPLMON                 *   FILE 353
//*                                                                 *   FILE 353
//*                         APPLMON IS A VTAM APPLICATION           *   FILE 353
//*                         MONITOR.  IT PROVIDES A MULTI-USER      *   FILE 353
//*                         INTERFACE TO NATIVE VTAM                *   FILE 353
//*                         APPLICATIONS.  IT PROVIDES A            *   FILE 353
//*                         FULL-SCREEN LOGON PANEL, A PRIMARY      *   FILE 353
//*                         OPTION PANEL, AND 4 SAMPLE              *   FILE 353
//*                         APPLICATIONS.  EACH USER THAT LOGS      *   FILE 353
//*                         ON RUNS UNDER A SEPARATE TCB; THE       *   FILE 353
//*                         NUMBER OF USERS THAT COULD BE           *   FILE 353
//*                         SUPPORTED IN ONE ADDRESS SPACE IS       *   FILE 353
//*                         DEPENDENT ON REGION SIZE.               *   FILE 353
//*                                                                 *   FILE 353
//*              CDF$     - INSTALL DOC FOR MVS SP 1.3 CONSOLE      *   FILE 353
//*                         DISPLAY FACILITY (CDF)                  *   FILE 353
//*                                                                 *   FILE 353
//*                         THIS PROGRAM PROVIDES THE ISPF/PDF      *   FILE 353
//*                         USER WITH A DISPLAY OF THE MASTER       *   FILE 353
//*                         CONSOLE.  OPERATOR COMMANDS ARE         *   FILE 353
//*                         ENTERED ON THE STANDARD "COMMAND        *   FILE 353
//*                         INPUT" LINE; PF3 GETS YOU OUT.          *   FILE 353
//*                         SECURITY IS BASED ON THE TSO USERID,    *   FILE 353
//*                         SEE THE CODE FOR CUSTOMIZATION INFO.    *   FILE 353
//*                         YOU HAVE TO HIT "ENTER" TO REFRESH      *   FILE 353
//*                         THE DISPLAY.  YOU MUST ADJUST THE       *   FILE 353
//*                         LINE COUNT BASED ON THE MASTER          *   FILE 353
//*                         CONSOLE'S TERMINAL TYPE.                *   FILE 353
//*                                                                 *   FILE 353
//*              DIF      - ISPF/PDF DISPLAY INITIATORS FACILITY    *   FILE 353
//*                         (DIF)--PART OF JDF.                     *   FILE 353
//*                                                                 *   FILE 353
//*              ETPS$    - INSTALL DOC FOR EMERGENCY               *   FILE 353
//*                         TELE-PROCESSING SERVICES (ETPS).        *   FILE 353
//*                                                                 *   FILE 353
//*                         THIS PROGRAM PROVIDES SOME BASIC        *   FILE 353
//*                         TIME-SHARING SERVICES WHEN TSO OR SPF   *   FILE 353
//*                         IS UNAVAILABLE.  IF YOU DEFINE IT AS    *   FILE 353
//*                         A SUB-SYSTEM, IT CAN BE (AND HAS        *   FILE 353
//*                         BEEN, TO MY GREAT RELIEF) BROUGHT UP    *   FILE 353
//*                         EVEN WHEN JES2 ABENDS, OR WILL NOT      *   FILE 353
//*                         INITIALIZE.                             *   FILE 353
//*                                                                 *   FILE 353
//*                         THE BASIC PROCESSING APPEARS MUCH       *   FILE 353
//*                         LIKE SPF, AS FAR AS THE PRIMARY         *   FILE 353
//*                         OPTION MENU AND SO FORTH ARE            *   FILE 353
//*                         CONCERNED.  THE FULL-SCREEN EDITOR IS   *   FILE 353
//*                         QUITE PRIMITIVE, BUT SHOULD SUFFICE     *   FILE 353
//*                         FOR EMERGENCY USE.  TUBE I/O IS EXCP,   *   FILE 353
//*                         SO YOU DON'T NEED BTAM, TCAM, OR        *   FILE 353
//*                         VTAM/TCAS.                              *   FILE 353
//*                                                                 *   FILE 353
//*                         THE PRIMARY OPTION MENU HAS 4 OPTIONS:  *   FILE 353
//*                                     1. PDS BROWSE               *   FILE 353
//*                                     2. PDS EDIT                 *   FILE 353
//*                                     3. PDS UTILITY              *   FILE 353
//*                                     4. IDCAMS INTERFACE         *   FILE 353
//*                                                                 *   FILE 353
//*                         TERMINALS SUPPORTED ARE 3278-2,         *   FILE 353
//*                         3278-4, 3279-3B. INSTALL AND USER       *   FILE 353
//*                         DOC ARE IN COMMENTS IN THE CODE, AS     *   FILE 353
//*                         WELL AS IN MEMBER "ETPS$" IN THIS       *   FILE 353
//*                         DATASET.                                *   FILE 353
//*                                                                 *   FILE 353
//*                         A NUMBER OF ENHANCEMENTS AND FIXES      *   FILE 353
//*                         ARE INCLUDED IN THIS VERSION, WHICH     *   FILE 353
//*                         IS INDICATED AS 2.4 ON THE PRIMARY      *   FILE 353
//*                         OPTION MENU.  TO INSTALL UNDER XA,      *   FILE 353
//*                         JUST RE-ASSEMBLE USING THE XA MACLIB    *   FILE 353
//*                         AND AMODGEN.  NO SOURCE CHANGES ARE     *   FILE 353
//*                         REQUIRED.                               *   FILE 353
//*                                                                 *   FILE 353
//*              JDF$     - INSTALL DOC FOR ISPF/PDF JES2           *   FILE 353
//*                         DISPLAY FACILITY (JDF)                  *   FILE 353
//*                                                                 *   FILE 353
//*                         THIS PROGRAM PROVIDES THE ISPF/PDF      *   FILE 353
//*                         USER WITH A DISPLAY OF THE JES2         *   FILE 353
//*                         SPOOL, SIMILAR TO THE FAMOUS "QUEUE"    *   FILE 353
//*                         COMMAND.                                *   FILE 353
//*                                                                 *   FILE 353
//*                         REQUIRES MY MODIFIED UAL JES2           *   FILE 353
//*                         INTERFACE SVC AND JES2 HJE2330.         *   FILE 353
//*                                                                 *   FILE 353
//*              JDFMACS  - A SET OF MACROS THAT GENERATE JDF       *   FILE 353
//*                         DSECTS.                                 *   FILE 353
//*                                                                 *   FILE 353
//*              PLF$     - INSTALL DOC FOR ISPF/PDF PAN LIBRARY    *   FILE 353
//*                         FACILITY (PLF)                          *   FILE 353
//*                                                                 *   FILE 353
//*                         THIS PROGRAM PROVIDES THE ISPF/PDF      *   FILE 353
//*                         USER WITH A DISPLAY OF A PAN            *   FILE 353
//*                         LIBRARY, WITH THE ABILITY TO BROWSE     *   FILE 353
//*                         AND EDIT FROM A MEMBER LIST.  THIS IS   *   FILE 353
//*                         BASED IN PART ON THE "PANVIEW"          *   FILE 353
//*                         PROGRAM ON THE SHARE SPLA TAPE (I       *   FILE 353
//*                         THINK).  IT'S NOT NEARLY AS GOOD AS     *   FILE 353
//*                         THE PAN/SPF PRODUCT, OR SO I'M TOLD,    *   FILE 353
//*                         BUT THIS IS A LOT CHEAPER.              *   FILE 353
//*                                                                 *   FILE 353
//*              SMBROWSE - SPF MEMORY BROWSE PROGRAM, INVOKED      *   FILE 353
//*                         WITH A PARAMETER LIST POINTING TO       *   FILE 353
//*                         AN AREA OF MEMORY.  PROVIDES A          *   FILE 353
//*                         LOW-OVERHEAD BROWSE THAT CAN BE         *   FILE 353
//*                         INVOKED FROM ISPF APPLICATIONS.         *   FILE 353
//*                         USED IN JDF.                            *   FILE 353
//*                                                                 *   FILE 353
//*              SPFMACS  - A SET OF MACROS TO INVOKE ISPF          *   FILE 353
//*                         SERVICES.                               *   FILE 353
//*                                                                 *   FILE 353
//*              TCBUVTAM - A MACRO THAT GENERATES A DSECT USED     *   FILE 353
//*                         BY ETPS.  THIS IS FOR A FUTURE          *   FILE 353
//*                         ENHANCEMENT.                            *   FILE 353
//*                                                                 *   FILE 353
//*              VDF$     - INSTALL DOC FOR ISPF/PDF VTOC           *   FILE 353
//*                         DISPLAY FACILITY (VDF).                 *   FILE 353
//*                                                                 *   FILE 353
//*                         THIS PROGRAM PROVIDES THE ISPF/PDF      *   FILE 353
//*                         USER WITH A DISPLAY OF ALL OR           *   FILE 353
//*                         SELECTED ONLINE DASD VOLUMES.  THE      *   FILE 353
//*                         DISPLAY USES THE LSPACE SVC, SO IT      *   FILE 353
//*                         DOESN'T HAVE A LOT OF INFORMATION ON    *   FILE 353
//*                         EACH PACK.                              *   FILE 353
//*                                                                 *   FILE 353
//*                         BECAUSE OF THE SIMPLICITY OF THE        *   FILE 353
//*                         PROGRAM, THIS MAY BE A GOOD PROGRAM     *   FILE 353
//*                         TO SWIPE CODE FROM, IF YOU ARE          *   FILE 353
//*                         WRITING YOUR FIRST ISPF APPLICATION.    *   FILE 353
//*                                                                 *   FILE 353
//*              XDF$     - INSTALL DOC FOR ISPF/PDF EXECUTION      *   FILE 353
//*                         DISPLAY FACILITY (XDF)                  *   FILE 353
//*                                                                 *   FILE 353
//*                         THIS PROGRAM PROVIDES THE ISPF/PDF      *   FILE 353
//*                         USER WITH A DISPLAY OF ACTIVE JOBS      *   FILE 353
//*                         AND STARTED TASKS, BASED ON "CHIMP",    *   FILE 353
//*                         UPDATED FOR SP 2.1.3.                   *   FILE 353
//*                                                                 *   FILE 353
//*                                                                 *   FILE 353
//***FILE 354 IS FROM RANDY HALL OF VICTORIA, BRITISH COLUMBIA,     *   FILE 354
//*           AND CONTAINS A LARGE COLLECTION OF PROGRAMS WRITTEN   *   FILE 354
//*           BY HIM OR MODIFIED BY HIM.  INCLUDED IS A VERSION     *   FILE 354
//*           OF THE DISASSEMBLER FROM FILE 171, AND A PROGRAM      *   FILE 354
//*           TO MAKE IEBCOPY BACKUPS FROM A LIST OF DATASETS,      *   FILE 354
//*           WHICH IS CALLED BACKDSNS.  THERE ARE OTHER PROGRAMS   *   FILE 354
//*           TOO, LISTED BELOW.                                    *   FILE 354
//*                                                                 *   FILE 354
//*   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   *   FILE 354
//*                                                                 *   FILE 354
//*     FEBRUARY 1999. THIS FILE CONTAINS SEVERAL PROGRAMS          *   FILE 354
//*                    CREATED OR MODIFIED BY:                      *   FILE 354
//*                                                                 *   FILE 354
//*      RANDY HALL,                                                *   FILE 354
//*      1151 PALMER ROAD,                                          *   FILE 354
//*      VICTORIA, B.C.                                             *   FILE 354
//*      V8P-2H5                                                    *   FILE 354
//*      PHONE: HOME: 250-385-1061      WORK: 250-413-8229          *   FILE 354
//*      E-MAIL:RANDY.HALL@I.AM         RANDY.HALL@GEMS9.GOV.BC.CA  *   FILE 354
//*             RANDY.HALL@USA.NET                                  *   FILE 354
//*                                                                 *   FILE 354
//*     $$$$$DOC IS THE "MASTER DOC" FOR THIS FILE. THIS FILE       *   FILE 354
//*     CONTAINS SEVERAL DIFFERENT PROGRAMS THAT ARE FURTHER        *   FILE 354
//*     DOCUMENTED IN INDIVIDUAL $$DOC... MEMBERS IF THE            *   FILE 354
//*     INSTALLATION IS MORE COMPLICATED THAN JUST RUNNING THE      *   FILE 354
//*     JOB.                                                        *   FILE 354
//*                                                                 *   FILE 354
//*     IF THERE IS NO $$DOC... MEMBER, THE PROGRAM SHOULD          *   FILE 354
//*     HOPEFULLY BE SELF-CONTAINED AND SELF-EXPLANATORY.           *   FILE 354
//*                                                                 *   FILE 354
//*     JCL IN ALL JOBS WILL HAVE TO BE MODIFIED FOR YOUR           *   FILE 354
//*     DATASET NAMES AND YOUR PROCEDURE NAMES.                     *   FILE 354
//*                                                                 *   FILE 354
//*     ALSO NOTE THAT I'M ONE OF THOSE PROGRAMMERS WHO DOESN'T     *   FILE 354
//*     DELETE CODE...  I JUST COMMENT IT OUT, SO SOME SOURCE       *   FILE 354
//*     MAY HAVE A LOT OF COMMENTED CODE!                           *   FILE 354
//*                                                                 *   FILE 354
//*     A LOT OF THE PROGRAMS IN THIS FILE DO NOT SPECIFICALLY      *   FILE 354
//*     HAVE A COPYRIGHT NOTICE IMBEDDED IN THEM, SO THIS           *   FILE 354
//*     NOTICE APPLIES TO ALL MY SOURCE....                         *   FILE 354
//*                                                                 *   FILE 354
//*                COPYRIGHT                                        *   FILE 354
//*        THE METHODS AND CODE IN THIS PROGRAM ARE COPYRIGHTED     *   FILE 354
//*        BY:                                                      *   FILE 354
//*                                                                 *   FILE 354
//*        RANDY HALL,                                              *   FILE 354
//*        1151 PALMER ROAD,                                        *   FILE 354
//*        VICTORIA, B.C. CANADA, V8P-2H5                           *   FILE 354
//*        E-MAIL...BITRON@ISLANDNET.COM OR RANDY.HALL@I.AM         *   FILE 354
//*                                                                 *   FILE 354
//*        YOU MUST LEAVE IT AS IS, AND CANNOT SELL IT TO ANYONE,   *   FILE 354
//*        OR MODIFY IT, WITHOUT MY  PERMISSION.                    *   FILE 354
//*                                                                 *   FILE 354
//*     IF YOU DO MAKE CHANGES, I WOULD APPRECIATE IT IF YOU        *   FILE 354
//*     SENT ME A COPY SO THAT I CAN KEEP MY SOURCE UP-TO-DATE.     *   FILE 354
//*     THANKS...                                                   *   FILE 354
//*                                                                 *   FILE 354
//*     THE PROGRAMS, AND THEIR INDIVIDUAL "DOC"S ARE:              *   FILE 354
//*                                                                 *   FILE 354
//*     PROGRAM                DESCRIPTION                          *   FILE 354
//*     -------                -----------                          *   FILE 354
//*     ABS.......             MACRO TO SIMULATE THE PLI ABS        *   FILE 354
//*                            FUNCTION - WRITTEN 90/01/03          *   FILE 354
//*                                                                 *   FILE 354
//*     A31BITMD..             EXAMPLE OF 31 BIT MODE AND SEE       *   FILE 354
//*                            IF A MODULE IS LOADED                *   FILE 354
//*                                                                 *   FILE 354
//*     BACKDSNS..             UTILITY TO BACKUP A LIST OF          *   FILE 354
//*                            DATASETS.                            *   FILE 354
//*                            LAST ASSEMBLED 99/01/29              *   FILE 354
//*     BACKSAMP..             SAMPLE JCL TO BACKUP DATASETS.       *   FILE 354
//*     BACKSAM2..             SAMPLE JCL TO RESTORE DATASETS.      *   FILE 354
//*                                                                 *   FILE 354
//*     BLNKSCRN..             SAMPLE CODE TO BLANK A 3270 SCREEN   *   FILE 354
//*                            LAST ASSEMBLED 96/02/02              *   FILE 354
//*                                                                 *   FILE 354
//*     CALLIDC...             HOW TO CALL IDCAMS IN A PROGRAM      *   FILE 354
//*                            LAST ASSEMBLED 99/02/02              *   FILE 354
//*     CALLIDCT..             SAMPLE JCL TO RUN CALLIDC            *   FILE 354
//*                                                                 *   FILE 354
//*     CDSCB.....             TSO COMMAND TO MODIFY DSCB'S.        *   FILE 354
//*                            ORIGINALLY WRITTEN BY BILL GODFREY.  *   FILE 354
//*                            I ADDED RACF SUPPORT FOR CONTROL.    *   FILE 354
//*                            SEE THE COMMENTS IN THE PROGRAM.     *   FILE 354
//*                            LAST ASSEMBLED 98/08/28              *   FILE 354
//*                                                                 *   FILE 354
//*     CHKOTMA...             PROGRAM TO CHECK THAT                *   FILE 354
//*                            TCPIP/IMSOTMA INTERFACE IS           *   FILE 354
//*                            WORKING. THIS REQUIRES A             *   FILE 354
//*                            TRANSACTION CALLED WHOAMI.           *   FILE 354
//*                            LAST ASSEMBLED 98/12/21              *   FILE 354
//*                                                                 *   FILE 354
//*     CHKOTMAR..             REXX EXEC TO INVOKE CHKOTMA.         *   FILE 354
//*                            CHKOTMA AND CHKOTMAR WILL HAVE       *   FILE 354
//*                            TO BE MODIFIED FOR YOUR PORT         *   FILE 354
//*                            NUMBERS, ETC...                      *   FILE 354
//*                                                                 *   FILE 354
//*     DATEFB....             READ A FIXED LENGTH FILE AND         *   FILE 354
//*                            CHANGE THE DATE FIELD TO INCLUDE     *   FILE 354
//*                            THE CENTURY.                         *   FILE 354
//*                            LAST ASSEMBLED 97/02/14              *   FILE 354
//*     DATEFBJ...             SAMPLE JCL TO RUN DATEFB             *   FILE 354
//*                                                                 *   FILE 354
//*     DATEVB....             READ A VARIABLE LENGTH FILE AND      *   FILE 354
//*                            CHANGE THE DATE FIELD TO INCLUDE     *   FILE 354
//*                            THE CENTURY.                         *   FILE 354
//*                            LAST ASSEMBLED 97/02/14              *   FILE 354
//*     DATEVBJ...             SAMPLE JCL TO RUN DATEVB             *   FILE 354
//*                                                                 *   FILE 354
//*     DAYDATE...             TIME OF DAY AND DATE SUBROUTINE.     *   FILE 354
//*                            DAYDATE IS INCLUDED IN IUTDEL        *   FILE 354
//*                            AND JDATE.                           *   FILE 354
//*                            LAST ASSEMBLED 98/01/09              *   FILE 354
//*                                                                 *   FILE 354
//*     DELMEMS...             DELETE LIST OF MEMBERS FROM PDS      *   FILE 354
//*                            LAST ASSEMBLED 91/06/19              *   FILE 354
//*     DELMEMSJ..             SAMPLE JCL TO RUN DELMEMS            *   FILE 354
//*                                                                 *   FILE 354
//*     DISALINK..$$DOCDIS     PROGRAM TO DIS-ASSEMBLE CSECTS       *   FILE 354
//*     DISASM                                                      *   FILE 354
//*     DISASM1                                                     *   FILE 354
//*     DISASM2                                                     *   FILE 354
//*     DISASM3A                                                    *   FILE 354
//*     DISASM3B                                                    *   FILE 354
//*     DISASPRM                                                    *   FILE 354
//*                            LAST ASSEMBLED 99/01/08              *   FILE 354
//*     DISASRUN..             SAMPLE JCL TO RUN DISASM             *   FILE 354
//*                                                                 *   FILE 354
//*     DSPACE....             TSO COMMAND TO DISPLAY DATASET       *   FILE 354
//*                            INFORMATION.                         *   FILE 354
//*                                                                 *   FILE 354
//*     (DS)                   CAN ALSO BE RUN IN BATCH.            *   FILE 354
//*                            LAST ASSEMBLED 99/01/14              *   FILE 354
//*     DSB.......             REXX EXEC TO RUN DS                  *   FILE 354
//*                                                                 *   FILE 354
//*     ENQ.......             THIS VERSION IS FOR PRE-SP3          *   FILE 354
//*                            SYSTEMS COMMAND TO LIST ENQUEUED     *   FILE 354
//*                            DATASET NAMES LAST ASSEMBLED         *   FILE 354
//*                            82/07/16...MAY NEED WORK!            *   FILE 354
//*                                                                 *   FILE 354
//*     FILEDUMP..             A PROGRAM THAT WILL LIST (DUMP)      *   FILE 354
//*                            ANY FILE IN AN ABEND TYPE            *   FILE 354
//*                            LISTING.  SEE HOWFDUMP FOR           *   FILE 354
//*                            DOCUMENTATION.  LAST ASSEMBLED       *   FILE 354
//*                            90/03/13...STILL WORKS.              *   FILE 354
//*                                                                 *   FILE 354
//*     FILEDUMJ..             SAMPLE JCL TO RUN FILEDUMP           *   FILE 354
//*                                                                 *   FILE 354
//*     FREEALL...             TSO COMMAND PROCESSOR USED TO        *   FILE 354
//*                            FREE ALL DYNAMICALLY ALLOCATED       *   FILE 354
//*                            DATA SETS WHICH HAVE BEEN            *   FILE 354
//*                            ALLOCATED BY A TSO USER.             *   FILE 354
//*                            ORIGINALLY FROM CBT320,              *   FILE 354
//*                            10/20/75...                          *   FILE 354
//*                            LAST ASSEMBLED 92/10/28...STILL      *   FILE 354
//*                            WORKS.                               *   FILE 354
//*                                                                 *   FILE 354
//*     GENQ......             COMMAND TO LIST ENQUEUED DATASET     *   FILE 354
//*                            NAMES.  THIS VERSION IS FOR SP3      *   FILE 354
//*                            SYSTEMS                              *   FILE 354
//*                            LAST ASSEMBLED 96/07/11...STILL      *   FILE 354
//*                            WORKS.                               *   FILE 354
//*     GENQCLST..             CLIST TO RUN GENQ                    *   FILE 354
//*                                                                 *   FILE 354
//*     GETDSNS...             GET A LIST OF ALL CATALOGUED         *   FILE 354
//*                            DATASETS FOR HLI IN SYSIN.  CAN BE   *   FILE 354
//*                            USED TO GET DATASET NAMES FOR        *   FILE 354
//*                            BACKDSNS.  LAST ASSEMBLED            *   FILE 354
//*                            95/10/30...STILL WORKS.              *   FILE 354
//*                                                                 *   FILE 354
//*     GETDSNSJ..             SAMPLE JCL TO RUN GETDSNS            *   FILE 354
//*                                                                 *   FILE 354
//*     HALLDUMP..             EXAMPLE OF HOW TO USE HDUMP          *   FILE 354
//*                            LAST ASSEMBLED 98/12/13              *   FILE 354
//*                                                                 *   FILE 354
//*     HDUMP.....             MACRO TO DUMP CORE IN A RUNNING      *   FILE 354
//*                            PROGRAM.                             *   FILE 354
//*                            LAST ASSEMBLED 98/12/13              *   FILE 354
//*                                                                 *   FILE 354
//*     HOWBACK                SCRIPT DOCUMENTATION FOR BACKDSNS    *   FILE 354
//*                                                                 *   FILE 354
//*     HOWDELM                SCRIPT DOCUMENTATION FOR DELMEMS     *   FILE 354
//*                                                                 *   FILE 354
//*     HOWDISAS               DOCUMENTATION FOR DISASM             *   FILE 354
//*                                                                 *   FILE 354
//*     HOWDS                  DOCUMENTATION FOR DS(PACE) FOR       *   FILE 354
//*                            PAPER THERE IS A SYS1.HELP           *   FILE 354
//*                            VERSION WITH THE PROGRAM.            *   FILE 354
//*                                                                 *   FILE 354
//*     HOWFDUMP               DOCUMENTATION FOR FILEDUMP           *   FILE 354
//*                                                                 *   FILE 354
//*     HOWHDUMP               DOCUMENTATION FOR HDUMP              *   FILE 354
//*                                                                 *   FILE 354
//*     HOWSETDT               DOCUMENTATION FOR SETDATE            *   FILE 354
//*                                                                 *   FILE 354
//*     HOWTCOPY               DOCUMENTATION FOR TAPECOPY           *   FILE 354
//*                                                                 *   FILE 354
//*     HOWVSPLT               DOCUMENTATION FOR VSPLIT             *   FILE 354
//*                                                                 *   FILE 354
//*     IUTDEL....             DELETE MEMBERS FROM A PDS WITH       *   FILE 354
//*                            AN AUDIT TRAIL                       *   FILE 354
//*                            LAST ASSEMBLED 91/06/19              *   FILE 354
//*     IUTDELJ...             SAMPLE JCL TO RUN IUTDEL             *   FILE 354
//*                                                                 *   FILE 354
//*     JDATE.....             TSO COMMAND TO DISPLAY TODAYS        *   FILE 354
//*                            JULIAN DATE, ETC.                    *   FILE 354
//*                            LAST ASSEMBLED 97/03/16              *   FILE 354
//*                                                                 *   FILE 354
//*     JOBNAME...             GET JOB NAME AND NUMBER FROM         *   FILE 354
//*                            JES2, COMPARE TO TIOT.               *   FILE 354
//*                            SEE SETDATEC FOR AN EXAMPLE OF       *   FILE 354
//*                            HOW TO USE IT.                       *   FILE 354
//*                            LAST ASSEMBLED 93/12/13              *   FILE 354
//*                                                                 *   FILE 354
//*     LINKDATE.....          PROGRAM TO CREATE LIST OF MEMBER     *   FILE 354
//*                            NAMES AND LINK DATES IN A PDS.       *   FILE 354
//*                            LAST ASSEMBLED 99/01/18              *   FILE 354
//*     LINKDATJ..             SAMPLE JCL TO RUN LINKDATE           *   FILE 354
//*                                                                 *   FILE 354
//*     MEMLIST......          PRODUCE A LIST OF MEMBERS IN         *   FILE 354
//*                            A PDS.                               *   FILE 354
//*                            NAMES ARE IN COLUMNS 1-8             *   FILE 354
//*                            LAST ASSEMBLED 93/10/18              *   FILE 354
//*     MEMLISTJ..             SAMPLE JCL TO RUN MEMLIST            *   FILE 354
//*                                                                 *   FILE 354
//*     MACROS....   MACRO     USED FOR...                          *   FILE 354
//*                  BEGIN     GENERATE ENTRY CODE WITH BASE        *   FILE 354
//*                            REGS R13,&B,&C                       *   FILE 354
//*                  DEBUG     GENERATE CODE  TO PRINT A            *   FILE 354
//*                            CSECT TRACE                          *   FILE 354
//*                  IBMMAC    GENERATE DCB AND JFCB DSECTS         *   FILE 354
//*                  MSGRTN    GENERATE CODE TO PRINT MESSAGES      *   FILE 354
//*                  OLCMSG    GENERATE CODE TO PRINT A MSG         *   FILE 354
//*                  PERFORM   GENERATE CODE TO BRANCH TO A CSECT   *   FILE 354
//*                  REQUATE   GENERATE REGISTER EQUATES, AND       *   FILE 354
//*                            A SAVEAREA DSECT                     *   FILE 354
//*                  SAVESET   GENERATE IMS STYLE SAVE AREAS        *   FILE 354
//*                  SECEXIT   GENERATE CSECT EXIT CODE             *   FILE 354
//*                  SECTION   GENERATE CSECT ENTRY CODE            *   FILE 354
//*                                                                 *   FILE 354
//*     MOD.......             MACRO THAT SIMULATES THE PLI MOD     *   FILE 354
//*                            FUNCTION                             *   FILE 354
//*                                                                 *   FILE 354
//*     PGMDATE......          PRODUCE LIST OF MEMBERS IN A PDS     *   FILE 354
//*                            OLDER THAN SPECIFIED DATE.           *   FILE 354
//*                            LAST ASSEMBLED 99/01/19              *   FILE 354
//*     PGMDATEJ..             SAMPLE JCL TO RUN PGMDATE            *   FILE 354
//*                                                                 *   FILE 354
//*     PRINTDOC               SAMPLE JCL TO PRINT SCRIPT           *   FILE 354
//*                            DOCUMENTATION.  THIS WILL HAVE       *   FILE 354
//*                            TO BE MODIFIED A LOT...              *   FILE 354
//*                                                                 *   FILE 354
//*     SETDATE...             PUT DATE INTO A CONTROL RECORD       *   FILE 354
//*                            IN A DATASET, OR PASS IT BACK IN     *   FILE 354
//*                            THE PARM.                            *   FILE 354
//*                            LAST ASSEMBLED 97/10/30              *   FILE 354
//*     SETDATEC..             SAMPLE PLI PROGRAM CALLING SETDATE   *   FILE 354
//*                            LAST ASSEMBLED 97/08/19              *   FILE 354
//*     SETDATEJ..             SAMPLE JCL CALLING SETDATE           *   FILE 354
//*                                                                 *   FILE 354
//*     SLOCATE...             SAMPLE CODE TO CALL SUPER LOCATE     *   FILE 354
//*                            SEE DSPACE FOR USAGE...              *   FILE 354
//*                                                                 *   FILE 354
//*     SMFEXIT...             THIS LITTLE PROGRAM IS USED TO       *   FILE 354
//*                            PRODUCE A READABLE REPORT BASED      *   FILE 354
//*                            ON TYPE 14, 15, 17 AND 18 SMF        *   FILE 354
//*                            RECORDS                              *   FILE 354
//*                            LAST ASSEMBLED 92/11/17              *   FILE 354
//*                                                                 *   FILE 354
//*     SUBEDIT....            SUBMIT ANY 1-126 BYTE COMMAND FROM   *   FILE 354
//*                            PARM= OR  //SYSIN                    *   FILE 354
//*     SUBEDITJ..             SAMPLE JCL CALLING SUBEDIT           *   FILE 354
//*                                                                 *   FILE 354
//*     TAPECOPY..             A PROGRAM THAT WILL LIST (DUMP)      *   FILE 354
//*                            OR COPY A TAPE.                      *   FILE 354
//*                            SEE HOWTCOPY FOR DOCUMENTATION.      *   FILE 354
//*                            LAST ASSEMBLED 90/03/15.             *   FILE 354
//*     TAPECOPJ..             SAMPLE JCL TO RUN TAPECOPY           *   FILE 354
//*                                                                 *   FILE 354
//*     VSPLIT....             UTILITY PROGRAM TO SELECT            *   FILE 354
//*                            RECORDS FROM A VB FILE.              *   FILE 354
//*                            LAST ASSEMBLED 96/07/03              *   FILE 354
//*     VSPLITJ...             SAMPLE JCL CALLING VSPLIT TO         *   FILE 354
//*                            SELECT SPECIFIC RECORDS FROM AN      *   FILE 354
//*                            IMS LOG                              *   FILE 354
//*                                                                 *   FILE 354
//*     WHOAMI....             IMS TRANSACTION CALLED BY CHKOTMA.   *   FILE 354
//*                            LAST ASSEMBLED 98/11/03              *   FILE 354
//*                                                                 *   FILE 354
//*     YRDOC                  DOCUMENTATION FOR YR2000             *   FILE 354
//*                                                                 *   FILE 354
//*     YR2000....             UTILITY PROGRAM TO DETERMINE IF      *   FILE 354
//*                            LOAD MODULES ACCESS THE SYSTEM       *   FILE 354
//*                            DATE OR A DATE ROUTINE               *   FILE 354
//*                            LAST ASSEMBLED 99/01/27              *   FILE 354
//*     YR2000J...             SAMPLE JCL CALLING YR2000            *   FILE 354
//*                                                                 *   FILE 354
//*     ZELLERS...             ASSEMBLER VERSION OF T.F. WONG'S     *   FILE 354
//*                            CALCULATE DAY OF WEEK FORMULA.       *   FILE 354
//*                            SEE DAYDATE FOR USAGE...             *   FILE 354
//*                                                                 *   FILE 354
//*           SEE http://www/asiaonlin.net.hk/~tfwong/maths.htm     *   FILE 354
//*                    (MAY HAVE TO BE IN LOWER CASE)               *   FILE 354
//*                                                                 *   FILE 354
//***FILE 355 IS FROM LIONEL DYCK OF KAISER PERMANENTE IN WALNUT    *   FILE 355
//*           CREEK, CALIFORNIA.  THIS FILE CONTAINS A PROGRAM      *   FILE 355
//*           CALLED KONCAT, WHICH IS AN ASSEMBLER TSO COMMAND      *   FILE 355
//*           TO CONCATENATE A NEW DATASET TO A DDNAME ALLOCATED    *   FILE 355
//*           TO YOUR TSO SESSION.  THIS PROGRAM WORKS FOR SWA      *   FILE 355
//*           ABOVE THE LINE.                                       *   FILE 355
//*                                                                 *   FILE 355
//*           THE PROGRAM WAS ORIGINALLY WRITTEN BY EDWARD          *   FILE 355
//*           TISCHOFER AND MIKE WHALEY.                            *   FILE 355
//*                                                                 *   FILE 355
//*               LIONEL B. DYCK                                    *   FILE 355
//*               KAISER PERMANENTE                                 *   FILE 355
//*               25 NORTH VIA MONTE                                *   FILE 355
//*               WALNUT CREEK, CALIFORNIA 94598                    *   FILE 355
//*                                                                 *   FILE 355
//*               IBMmail:  USKFHEFH                                *   FILE 355
//*               internet: SYSLBD@NCAL.KAIPERM.ORG                 *   FILE 355
//*                         lionel.b.dyck@dp.org                    *   FILE 355
//*               IBMlink:  SYSLBD                                  *   FILE 355
//*               phone:    (925) 926-5332                          *   FILE 355
//*               home page:  http://www.geocities.com/lbdyck       *   FILE 355
//*                                                                 *   FILE 355
//***FILE 356 IS FROM DAVID JURASCHEK OF FAIRFAX, VIRGINIA, AND     *   FILE 356
//*           CONTAINS AN UPDATED VERSION OF NETSOL, A VTAM         *   FILE 356
//*           MULTI-SESSION MANAGER.  THIS VERSION OF NETSOL        *   FILE 356
//*           WILL RUN ON OS/390 SYSTEMS.                           *   FILE 356
//*                                                                 *   FILE 356
//*           THE ORIGINAL VERSION OF NETSOL CAN BE FOUND ON        *   FILE 356
//*           FILE 019 OF CBT TAPE VERSION 249 (AVAILABLE ONLINE    *   FILE 356
//*           AT WWW.CBTTAPE.ORG).                                  *   FILE 356
//*                                                                 *   FILE 356
//*                   DAVID JURASCHEK                               *   FILE 356
//*                   MS 1B5 - UCIS                                 *   FILE 356
//*                   GEORGE MASON UNIVERSITY                       *   FILE 356
//*                   4400 UNIVERSITY DRIVE                         *   FILE 356
//*                   FAIRFAX, VA.  22030                           *   FILE 356
//*                   (703) 993-3353                                *   FILE 356
//*                   DAVEJ@GMU.EDU                                 *   FILE 356
//*                                                                 *   FILE 356
//***FILE 357 is from Carl Hafner of Steli, Inc. in Monroe, New     *   FILE 357
//*           York.  This file contains several utilities to        *   FILE 357
//*           handle partitioned datasets.                          *   FILE 357
//*                                                                 *   FILE 357
//*           There are 5 utilities each with their own             *   FILE 357
//*           documentation member plus a @README@ member           *   FILE 357
//*           describing them.                                      *   FILE 357
//*                                                                 *   FILE 357
//*           In brief, the 5 are PDS utilities:                    *   FILE 357
//*                                                                 *   FILE 357
//*             - PDSMATCH from CBTTAPE now with doc                *   FILE 357
//*             - PDSGAS also from CBTTAPE also with new doc        *   FILE 357
//*             - PDSPUNCH new to turn any PDS into a               *   FILE 357
//*               into sequential file with IEBUPDTE ADD            *   FILE 357
//*               header cards                                      *   FILE 357
//*             - PDSLIST list program with fixes                   *   FILE 357
//*             - PDSGEN can generate delete, de-"gas"              *   FILE 357
//*               or simple list of member names                    *   FILE 357
//*                                                                 *   FILE 357
//*           The members are named with the prefix "PDS" left      *   FILE 357
//*           off.  I've included the old version of this file      *   FILE 357
//*           as OFFLOAD'ed (sequentialized) member OLDF357.        *   FILE 357
//*                                                                 *   FILE 357
//*               Carl Hafner                                       *   FILE 357
//*               Steli, Inc.                                       *   FILE 357
//*               27 Half Hollow Turn                               *   FILE 357
//*               Monroe, NY  10950-4118                            *   FILE 357
//*                                                                 *   FILE 357
//*           email:  chafner@frontiernet.net                       *   FILE 357
//*                                                                 *   FILE 357
//*       File Contents:                                            *   FILE 357
//*                                                                 *   FILE 357
//*       $$$NOTE  01.00  2000/03/15 20:17     26 SBGOLOB           *   FILE 357
//*       @FILE357 01.08  2000/03/17  9:32     52 SBGOLOB           *   FILE 357
//*       @README@ 01.01  2000/03/17  9:32     27 PDSUTIL           *   FILE 357
//*       DEGAS    01.00  2000/03/14  8:39     22 PDSUTIL           *   FILE 357
//*       PDSGAS   01.00  2000/03/14  8:39    919 PDSUTIL           *   FILE 357
//*       PDSGAS$  01.00  2000/03/14  8:39     15 PDSUTIL           *   FILE 357
//*       PDSGAS#  01.00  2000/03/14  8:39    154 PDSUTIL           *   FILE 357
//*       PDSGEN   01.00  2000/03/14  8:39   1344 PDSUTIL           *   FILE 357
//*       PDSGEN$  01.00  2000/03/14  8:39     25 PDSUTIL           *   FILE 357
//*       PDSGEN#  01.00  2000/03/14  8:39    431 PDSUTIL           *   FILE 357
//*       PDSLIST  01.00  2000/03/14  8:39   1939 PDSUTIL           *   FILE 357
//*       PDSLIST$ 01.00  2000/03/14  8:39     15 PDSUTIL           *   FILE 357
//*       PDSLIST# 01.00  2000/03/14  8:39    492 PDSUTIL           *   FILE 357
//*       PDSMATC$ 01.00  2000/03/14  8:39     18 PDSUTIL           *   FILE 357
//*       PDSMATC# 01.00  2000/03/14  8:39    170 PDSUTIL           *   FILE 357
//*       PDSMATCH 01.00  2000/03/14  8:39   1147 PDSUTIL           *   FILE 357
//*       PDSPUNC$ 01.00  2000/03/14  8:39     17 PDSUTIL           *   FILE 357
//*       PDSPUNC# 01.00  2000/03/14  8:39    285 PDSUTIL           *   FILE 357
//*       PDSPUNCH 01.00  2000/03/14  8:39    819 PDSUTIL           *   FILE 357
//*                                                                 *   FILE 357
//***FILE 358 IS SOURCE CODE FOR THE SYSLOG STORAGE PROGRAM         *   FILE 358
//*           PACKAGE FROM ERIC BIELEFELD OF MILWAUKEE, WISCONSIN.  *   FILE 358
//*                                                                 *   FILE 358
//*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  *   FILE 358
//*                                                                 *   FILE 358
//*     SUBJECT: SYSOUT WRITER UTILITY                              *   FILE 358
//*     FROM: ERIC BIELEFELD <EBIE@HII.COM>                         *   FILE 358
//*                                                                 *   FILE 358
//*     I DON'T KNOW IF YOU HAVE BEEN FOLLOWING IBM-MAIN            *   FILE 358
//*     LATELY, BUT THERE HAS BEEN A DISCUSSION ON UTILITIES        *   FILE 358
//*     FOR PUTTING SYSLOG ON TAPE, OR OTHER MEANS OF KEEPING       *   FILE 358
//*     IT AROUND.  WE HAVE A PUBLIC DOMAIN PROGRAM CALLED          *   FILE 358
//*     SOUTSYS THAT I THINK SOME PEOPLE COULD USE.  I THINK IT     *   FILE 358
//*     WOULD BE A GOOD CANDIDATE FOR THE CBT TAPE.                 *   FILE 358
//*                                                                 *   FILE 358
//*     HERE IS A DESCRIPTION FROM THE INSTALL PDS THAT GIVES A     *   FILE 358
//*     GOOD OVERVIEW OF THE PRODUCT.  WE USE IT AT HARNISCHFEGER   *   FILE 358
//*     TO KEEP ALL OF OUR MESSAGE CLASS OUTPUT AND SYSLOG.  WE     *   FILE 358
//*     KEEP IT ONLINE FOR 8 DAYS, AND THEN IT IS ARCHIVED TO       *   FILE 358
//*     TAPE WHICH WE KEEP UNTIL IT IS 90 DAYS OLD.                 *   FILE 358
//*                                                                 *   FILE 358
//*     BASICALLY, THE SYSTEM USES AN EXIT TO THE EXTERNAL          *   FILE 358
//*     WRITER TO WRITE ALL SYSOUT FOR THE CLASS CHOSEN TO A        *   FILE 358
//*     SEQUENTIAL DISK FILE.  IT KEEPS TRACK OF WHERE EVERY        *   FILE 358
//*     FILE STARTS IN A VSAM FILE, AND WHEN THE  SEQ. DISK         *   FILE 358
//*     FILE IS FULL, COPIES IT TO A DIFFERENT FILE ON DISK AND     *   FILE 358
//*     COMPRESSES IT.  AFTER A PERIOD OF TIME SET BY THE USER,     *   FILE 358
//*     EACH COMPRESSED SEQ. FILE IS MODDED ONTO TAPE.  ISPF        *   FILE 358
//*     PANELS ARE USED TO LOOK AT ANY SYSOUT IN THE SYSTEM.        *   FILE 358
//*     DATA ON TAPE CAN BE PRINTED TO HELD OUTPUT, OR LOOKED       *   FILE 358
//*     AT ONLINE, EXCEPT YOU HAVE TO WAIT FOR THE TAPE MOUNT.      *   FILE 358
//*                                                                 *   FILE 358
//*               ERIC BIELEFELD                                    *   FILE 358
//*               SR. MVS SYSTEMS PROGRAMMER                        *   FILE 358
//*               HARNISCHFEGER CORP.                               *   FILE 358
//*               MILWAUKEE, WI                                     *   FILE 358
//*               414-385-6397                                      *   FILE 358
//*               EBIE@HII.COM                                      *   FILE 358
//*                                                                 *   FILE 358
//***FILE 359 IS FROM SYNTEX IN CALIFORNIA AND CONTAINS A PDS       *   FILE 359
//*           WITH THE FOLLOWING MEMBERS.  THIS FILE IS IN          *   FILE 359
//*           IEBUPDTE SYSIN FORMAT.                                *   FILE 359
//*                                                                 *   FILE 359
//*    CONTRIBUTORS' CURRENT ADDRESSES:                             *   FILE 359
//*                                                                 *   FILE 359
//*            Howard M. Dean                                       *   FILE 359
//*            Kaiser Foundation Health Plan                        *   FILE 359
//*            25 Via Monte Avenue                                  *   FILE 359
//*            2nd Floor                                            *   FILE 359
//*            Walnut Creek, CA 94598                               *   FILE 359
//*                                                                 *   FILE 359
//*            (925) 926-3121                                       *   FILE 359
//*                                                                 *   FILE 359
//*            EMAIL - Howard.M.Dean@kp.org                         *   FILE 359
//*                                                                 *   FILE 359
//*             WILLIAM SMITH                                       *   FILE 359
//*             IBM                                                 *   FILE 359
//*             STORAGE SYSTEMS DIVISION                            *   FILE 359
//*             5600 COTTLE ROAD                                    *   FILE 359
//*             DEPT. W98A                                          *   FILE 359
//*             DRIVER BUILD & INTEGRATION                          *   FILE 359
//*             BUILDING 50, ROOM A382                              *   FILE 359
//*             SAN JOSE, CA 95193-0001                             *   FILE 359
//*             (408) 256-1557 OR                                   *   FILE 359
//*             TIE LINE 276-1557                                   *   FILE 359
//*                                                                 *   FILE 359
//*         EMAIL:     SMITHWJ@US.IBM.COM                           *   FILE 359
//*                    GOLDENS@IBM.NET                              *   FILE 359
//*                                                                 *   FILE 359
//*           AMD@PRIM....GDDM/PGF MENU                             *   FILE 359
//*           ADMALLOC....GDDM/ISPF FILE ALLOCATIONS                *   FILE 359
//*           ADMALL0C....GDDM/ISPF DIALOG (SHOULD BE CALLED        *   FILE 359
//*                       ADMALLOC NOT '0')                         *   FILE 359
//*           ADMICU......GDDM/ISPF DIALOG TO INVOKE INTERACTIVE    *   FILE 359
//*                       CHART UTILITY                             *   FILE 359
//*           ADMISE......GDDM/ISPF DIALOG TO INVOKE IMAGE SYMBOL   *   FILE 359
//*                       EDITOR                                    *   FILE 359
//*           ADMT0000....GDDM/ISPF TUTORIAL INDEX                  *   FILE 359
//*           ADMT0010....GDDM/ISPF GRAPHICS FILE ALLOCATIONS       *   FILE 359
//*           ADMT0020....GDDM/ISPF CHART UTILITY                   *   FILE 359
//*           ADMT0030....GDDM/ISPF IMAGE SYMBOL EDITOR             *   FILE 359
//*           ADMT0040....GDDM/ISPF SYMBOL EDITOR                   *   FILE 359
//*           ADMVSE......GDD/ISPF DIALOG TO INVOKE THE VECTOR      *   FILE 359
//*                       SYMBOL EDITOR                             *   FILE 359
//*           ASMH........TSO ASSEMBLER TSO PROMPTER                *   FILE 359
//*           ASMH#.......HELP FOR TSO ASSEMBLER TSO PROMPTER       *   FILE 359
//*           BURN........PROGRAM TO ABEND A JOB OR ADDRESS SPACE   *   FILE 359
//*           COMPRESS....COMPRESS PROGRAM-CREATES A SAVE DATASET   *   FILE 359
//*           COMPRES#....HELP FOR COMPRESS PROGRAM                 *   FILE 359
//*           CPY.........INVOKE SPFCOPY TO COPY MEMBERS OF A PDS   *   FILE 359
//*           CPY#........HELP FOR CPY PROGRAM                      *   FILE 359
//*           DATASCAN....DATASCAN ROUTINE                          *   FILE 359
//*           ENQSP.......DISPLAY MVS ENQUE STRUCTURE               *   FILE 359
//*           ENQSP#......HELP FOR ENQSP COMMAND                    *   FILE 359
//*           EPILOG......MACRO                                     *   FILE 359
//*           HELPLIST....HELPLIST PROGRAM                          *   FILE 359
//*           IKJEFF10....TSO SUBMIT EXIT                           *   FILE 359
//*           IDATMSTP....USER EXIT TO TIMESTAMP VSAM DATASETS IN   *   FILE 359
//*                       SU60 FORMAT                               *   FILE 359
//*           ISR@PRIM....SYNTEX ISPF/PDS PRIMARY OPTION MENU       *   FILE 359
//*           LMVS010.....TSO MOD FOR DEFAULT ALLOCATION OF SHR     *   FILE 359
//*           LMVS015.....TSO MOD TO DISABLE FULL SCREEN LOGON      *   FILE 359
//*           LMVS018.....TSO MOD TO ADD CENT SIGN AS LOGICAL TAB   *   FILE 359
//*                       CHARACTER FOR 327X TERMINALS              *   FILE 359
//*           ONL.........PGM TO DISPLAY AN OPERATOR'S CONSOLE      *   FILE 359
//*           PERFORM.....RESET PERFORMANCE GROUP FROM TSO          *   FILE 359
//*           PROLOG......MACRO                                     *   FILE 359
//*           SM.... .....TSO COMMAND TO TURN-OFF AND ON THE TSO    *   FILE 359
//*                       SESSION MANAGER                           *   FILE 359
//*           VPS=PRIM....VPS/ISPF SELECTION MENU                   *   FILE 359
//*           VPSOPT01....VPS/ISPF - TO REFRESH SCREEN AFTER VPS    *   FILE 359
//*                       INVOCATION                                *   FILE 359
//*           VPSOPT02....VPS/ISPF DIALOG MANAGER FRONT END FOR     *   FILE 359
//*                       VSPRINT                                   *   FILE 359
//*           VPSPRINT....VPS/ISPF VSPRINT HARDCOPY OUTPUT PANEL    *   FILE 359
//*           VPST0000....VPS/ISPF TUTORIAL INDEX                   *   FILE 359
//*           VPST0010....VPS/ISPF VPS CONTROL                      *   FILE 359
//*           VPST0020....VPS/ISPF VSPRINT                          *   FILE 359
//*           VPS01.......VPS/ISPF MESSAGES                         *   FILE 359
//*           VPS02.......VPS/ISPF MESSAGES                         *   FILE 359
//*           VPS03.......VPS/ISPF MESSAGES                         *   FILE 359
//*           WIZARD......DCMS SRM DATA DISPLAY ROUTINE             *   FILE 359
//*                                                                 *   FILE 359
//***FILE 360 IS FROM THE STATE OF WISCONSIN,  WILSON STREET        *   FILE 360
//*           REGIONAL COMPUTING CENTER WITH THE FOLLOWING MEMBERS  *   FILE 360
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT :               *   FILE 360
//*                                                                 *   FILE 360
//*           ASMCMD     THIS MEMBER IS THE JCL TO ASSEMBLE AND     *   FILE 360
//*                      LINKEDIT COMMAND INTO A LINKLIST           *   FILE 360
//*                      LIBRARY.                                   *   FILE 360
//*                                                                 *   FILE 360
//*           ASMSPY     THIS MEMBER IS THE JCL TO ASSEMBLE AND     *   FILE 360
//*                      LINKEDIT SPY INTO A LINKLIST LIBRARY.      *   FILE 360
//*                                                                 *   FILE 360
//*           ASMSWP     THIS MEMBER IS THE JCL TO ASSEMBLE AND     *   FILE 360
//*                      LINKEDIT SWAP INTO A LINKLIST LIBRARY.     *   FILE 360
//*                                                                 *   FILE 360
//*           AUTH       THIS MEMBER IS THE SOURCE FOR AUTH         *   FILE 360
//*                      MACRO TO ISSUE A USER SVC THAT GETS AND    *   FILE 360
//*                      RELEASES PROGRAM AUTHORIZATION FOR AN      *   FILE 360
//*                      ASSEMBLER PROGRAM.                         *   FILE 360
//*                                                                 *   FILE 360
//*           BEGIN      THIS MEMBER IS THE SOURCE FOR BEGIN        *   FILE 360
//*                      MACRO TO DO STANDARD ENTRY LINKAGE IN      *   FILE 360
//*                      ASSEMBLER PROGRAMS.                        *   FILE 360
//*                                                                 *   FILE 360
//*           COMMAND    THIS MEMBER IS THE SOURCE FOR COMMAND      *   FILE 360
//*                      VERSION 2.0.  IT WAS ORIGINALLY TAKEN      *   FILE 360
//*                      FROM A FILE ON THE CBT TAPE.  SEE THE      *   FILE 360
//*                      PROGRAM DOCUMENTATION FOR ADDITIONAL       *   FILE 360
//*                      COMMENTS ABOUT THE ORIGIN OF THIS CODE.    *   FILE 360
//*                      COMMAND IS USED BY SPY TO ISSUE            *   FILE 360
//*                      OPERATOR COMMANDS VIA SVC 34.  I ADDED     *   FILE 360
//*                      THE SUPPORT FOR THE BEGIN, FINISH AND      *   FILE 360
//*                      AUTH MACROS.                               *   FILE 360
//*                                                                 *   FILE 360
//*           DISIMAGE   IBM 3800 PRINTING SUBSYSTEM SUPPORT        *   FILE 360
//*                      UTILITY.  THIS MEMBER WILL ALLOW YOU TO    *   FILE 360
//*                      CREATE AN IEBIMAGE SOURCE DECK FROM ANY    *   FILE 360
//*                      MEMBER OF SYS1.IMAGELIB (EXCEPT            *   FILE 360
//*                      COPYMOD'S) THAT WAS CREATED BY IEBIMAGE    *   FILE 360
//*                      IN THE FIRST PLACE.                        *   FILE 360
//*                                                                 *   FILE 360
//*           DISKMAP    THIS MEMBER WILL LIST THE CONTENTS         *   FILE 360
//*                      OF A VTOC IN SEVERAL USEFUL FORMATS.       *   FILE 360
//*                      ORIGINAL PROGRAM WAS FROM CBT TAPE.        *   FILE 360
//*                      THIS VERSION HAS SEVERAL CHANGES           *   FILE 360
//*                      INCLUDING 3380 SUPPORT.                    *   FILE 360
//*                                                                 *   FILE 360
//*           DTYP2UNT   THIS SUBROUTINE WILL CONVERT A UCB-TYPE    *   FILE 360
//*                      HEX DEVICE CODE TO A VALID UNIT NAME       *   FILE 360
//*                      USING THE SYSTEM DEVICE NAME TABLE.        *   FILE 360
//*                                                                 *   FILE 360
//*           DYNAM      THIS SUBROUTINE IS CALLED BY DYNAUTIL      *   FILE 360
//*                      TO DO DYNAMIC ALLOCATION AS NEEDED BY      *   FILE 360
//*                      ITS DRIVER.  ORIGINALLY FROM THE           *   FILE 360
//*                      UNIVERSITY OF MANITOBA.                    *   FILE 360
//*                                                                 *   FILE 360
//*           DYNAUTIL   DYNAUTIL IS A REENTRANT, REFRESHABLE,      *   FILE 360
//*                      AND REUSABLE ASSEMBLER LANGUAGE PROGRAM    *   FILE 360
//*                      THAT PROVIDES DYNAMIC ALLOCATION FOR       *   FILE 360
//*                      BATCH PROGRAMS AND UTILITIES.  THIS IS     *   FILE 360
//*                      ACCOMPLISHED BY PASSING CONTROL CARD       *   FILE 360
//*                      IMAGES TO THE UNIVERSITY OF MANITOBA'S     *   FILE 360
//*                      DYNAM SVC 99 INTERFACE.  DYNAUTIL CAN      *   FILE 360
//*                      RUN AS A FRONT-END TO A BATCH TASK OR      *   FILE 360
//*                      CAN BE CALLED BY A BATCH TASK DURING       *   FILE 360
//*                      ITS EXECUTION.                             *   FILE 360
//*                                                                 *   FILE 360
//*           DYNAUTLH   THIS IS THE DOCUMENTATION FOR THE          *   FILE 360
//*                      DYNAUTIL PROGRAM.                          *   FILE 360
//*                                                                 *   FILE 360
//*           FINISH     THIS MEMBER IS THE SOURCE FOR FINISH       *   FILE 360
//*                      MACRO TO DO STANDARD EXIT LINKAGE IN       *   FILE 360
//*                      ASSEMBLER PROGRAMS.                        *   FILE 360
//*                                                                 *   FILE 360
//*           IDCMSGEN   ACCESS METHOD SERVICES (IDCAMS) SUPPORT    *   FILE 360
//*                      UTILITY.  THIS PROGRAM WILL ALLOW YOU      *   FILE 360
//*                      TO CREATE AN IDCAMS SOURCE DECK FROM       *   FILE 360
//*                      MOST OBJECTS IN YOUR VSAM CATALOG.         *   FILE 360
//*                                                                 *   FILE 360
//*           IEFACTRT   SMF EXIT THAT PRODUCES MANY USEFUL         *   FILE 360
//*                      STATISTICS AND MESSAGES AT STEP AND JOB    *   FILE 360
//*                      END.  THESE MESSAGES APPEAR IN AN          *   FILE 360
//*                      ABBREVIATED FORM IN THE JOBLOG AND IN A    *   FILE 360
//*                      MORE DETAILED FORM IN THE JOB MESSAGES     *   FILE 360
//*                      OUTPUT.                                    *   FILE 360
//*                                                                 *   FILE 360
//*           IEFU84     SMF EXIT THAT DOES A GETMAIN FOR AN        *   FILE 360
//*                      AREA THAT BECOMES A LOCAL USER CVT.        *   FILE 360
//*                      THIS AREA IS MAPPED BY WSRCCCVT.           *   FILE 360
//*                                                                 *   FILE 360
//*           IGC0023C   A TYPE 3 SVC THAT IS INVOKED FROM THE      *   FILE 360
//*                      AUTH MACRO TO AUTHORIZE OR UN-AUTHORIZE    *   FILE 360
//*                      TSO COMMANDS, PROGRAMS, ETC.               *   FILE 360
//*                                                                 *   FILE 360
//*           ISPTCM     A MACRO (TCMGEN) AND A MODULE (ISPTCM)     *   FILE 360
//*                      THAT REPLACE THE DISTRIBUTED ISPF          *   FILE 360
//*                      MODULE.  THIS MACRO AND MODULE WERE        *   FILE 360
//*                      WRITTEN IN RESPONSE TO APAR OZ64211.       *   FILE 360
//*                      SEE INFO/MVS ENTRY E130403 FOR             *   FILE 360
//*                      PARTICULARS.                               *   FILE 360
//*                                                                 *   FILE 360
//*           LASTIPL    TSO COMMAND THAT USES THE LOCAL            *   FILE 360
//*                      USER CVT MAPPED BY WSRCCCVT TO             *   FILE 360
//*                      DISPLAY WHEN THE SYSTEM WAS                *   FILE 360
//*                      IPL'ED.                                    *   FILE 360
//*                                                                 *   FILE 360
//*           PRINTOFF   TSO COMMAND ORIGINALLY FROM THE CBT        *   FILE 360
//*                      TAPE AND HEAVILY MODIFIED FOR USE AT       *   FILE 360
//*                      WSRCC HAS SUPPORT FOR THE 3800 PRINTING    *   FILE 360
//*                      SUBSYSTEM VIA CHARS, TRC, MODIFY,          *   FILE 360
//*                      MODTRC, FLASH, FCOUNT, CGROUP AND BRUST    *   FILE 360
//*                      KEYWORDS.  SOME PROBLEMS WITH THE 6670     *   FILE 360
//*                      CODE HAS ALSO BEEN FIXED.                  *   FILE 360
//*                                                                 *   FILE 360
//*           PRINT0FF   TSO HELP FOR THE MODIFIED PRINTOFF         *   FILE 360
//*                      COMMAND.                                   *   FILE 360
//*                                                                 *   FILE 360
//*           SPY        THIS MEMBER IS THE SOURCE FOR SPY          *   FILE 360
//*                      VERSION 3.1 WITH CROSS MEMORY SUPPORT      *   FILE 360
//*                      INCLUDED FOR MVS/SP 1.3.  IT WAS           *   FILE 360
//*                      ORIGINALLY TAKEN FROM FILE 338 ON THE      *   FILE 360
//*                      CBT TAPE.  SEE THE PROGRAM                 *   FILE 360
//*                      DOCUMENTATION FOR ADDITIONAL COMMENTS      *   FILE 360
//*                      ABOUT THE ORIGIN OF THIS CODE.  THE        *   FILE 360
//*                      VAST MAJORITY OF THE XM CODE CAME FROM     *   FILE 360
//*                      THE BANK OF NEW SOUTH WALES.  I ADDED      *   FILE 360
//*                      THE CODE TO SUPPORT THE PFKEYS IN THE      *   FILE 360
//*                      3270 ENVIRONMEMT ALONG WITH THE BEGIN.     *   FILE 360
//*                      FINISH AND AUTH MACROS.                    *   FILE 360
//*                                                                 *   FILE 360
//*           SWAP       THIS MEMBER IS THE SOURCE FOR SWAP         *   FILE 360
//*                      VERSION 4.5.  IT WAS ORIGINALLY TAKEN      *   FILE 360
//*                      FROM A FILE ON THE CBT TAPE.  SEE THE      *   FILE 360
//*                      PROGRAM DOCUMENTATION FOR ADDITIONAL       *   FILE 360
//*                      COMMENTS ABOUT THE ORIGIN OF THIS CODE.    *   FILE 360
//*                      I ADDED THE SUPPORT FOR THE BEGIN,         *   FILE 360
//*                      FINISH AND AUTH MACROS.                    *   FILE 360
//*                                                                 *   FILE 360
//*           UADS       TSO COMMAND THAT WILL ALLOW THOSE USERS    *   FILE 360
//*                      WITH OPERATOR ABILITY TO DYNAMICALLY       *   FILE 360
//*                      CHANGE THEIR UADS ENTRIES IN THE PSCB.     *   FILE 360
//*                      ONCE CHANGED, IT WILL REMAIN IN EFFECT     *   FILE 360
//*                      ACROSS A RELOGON (UNLESS USING ACF2 IN     *   FILE 360
//*                      NOUADS MODE).                              *   FILE 360
//*                                                                 *   FILE 360
//*           UADSHELP   TSO HELP FOR THE UADS COMMAND.             *   FILE 360
//*                                                                 *   FILE 360
//*           VOLS       TSO COMMAND TO LIST FREE SPACE ON ALL      *   FILE 360
//*                      OR SELECTED ONLINE DASD DEVICES.           *   FILE 360
//*                      VOLUME SELECTION INCLUDES DEVICETYPE,      *   FILE 360
//*                      ATTRIBUTE, VOLUME AND UCB.                 *   FILE 360
//*                                                                 *   FILE 360
//*                      (FIXED FOR DYNAMIC UCB'S - G.GORAB 8/95)   *   FILE 360
//*                      (FIXED FOR 4-DIGIT UCB'S AND ALSO 3 DIGIT  *   FILE 360
//*                        UCB'S, BY GORDON B. HAMPTON - 04/98)     *   FILE 360
//*                                                                 *   FILE 360
//*                      SEVERAL OLD VERSIONS OF VOLS ARE ALSO      *   FILE 360
//*                      INCLUDED IN THIS FILE, TO MAKE SURE THAT   *   FILE 360
//*                      PEOPLE ON OLDER SYSTEMS CAN STILL USE IT.  *   FILE 360
//*                                                                 *   FILE 360
//*           VOLSHELP   TSO HELP FOR THE VOLS COMMAND.             *   FILE 360
//*                                                                 *   FILE 360
//*           WSRCCCVT   MACRO THAT MAPS THE LOCAL USER CVT THAT    *   FILE 360
//*                      IS GOTTEN AT IPL TIME BY IEFU84.  A        *   FILE 360
//*                      LOCAL USER CVT IS VERY USEFUL FOR MANY     *   FILE 360
//*                      RANDOM USES, WE FIND MANY FOR OURS.        *   FILE 360
//*                                                                 *   FILE 360
//*           ZSORTZ     THIS SUBROUTINE WILL SORT AN IN-CORE       *   FILE 360
//*                      TABLE. ORIGINAL SOURCE UNKNOWN             *   FILE 360
//*                      (PROBABLY EARLY 1970'S SHARE TAPE (?)).    *   FILE 360
//*                                                                 *   FILE 360
//***FILE 361 IS FROM FRANK JOHNSTON OF CHAMBERSBURG, PENNSYLVANIA  *   FILE 361
//*           AND CONTAINS SOURCE CODE FOR THREE UTILITIES:         *   FILE 361
//*                                                                 *   FILE 361
//*           CXYPSCAN - A PDS SCAN AND PRINT UTILITY, WITH MANY    *   FILE 361
//*                      CONTROL PARAMETERS                         *   FILE 361
//*                                                                 *   FILE 361
//*              (reworked as of 05/00)                             *   FILE 361
//*                                                                 *   FILE 361
//*           ZZRELINK - A PROGRAM WHICH LOOKS AT A LOAD LIBRARY    *   FILE 361
//*                      AND RE-LINKEDITS ALL THE MEMBERS INTO A    *   FILE 361
//*                      DIFFERENT LIBRARY                          *   FILE 361
//*                                                                 *   FILE 361
//*           TAPESCAN - A TAPE MAPPING PROGRAM                     *   FILE 361
//*                                                                 *   FILE 361
//*           More utilities are included.                          *   FILE 361
//*                                                                 *   FILE 361
//***FILE 362 IS FROM FRANK JOHNSTON OF CHAMBERSBURG, PENNSYLVANIA  *   FILE 362
//*           AND CONTAINS LOAD MODULES FOR CXYPSCAN, ZZRELINK,     *   FILE 362
//*           AND TAPESCAN, WHOSE SOURCE CODE IS IN FILE 361.       *   FILE 362
//*                                                                 *   FILE 362
//***FILE 363 IS FROM THE ISPF-L NEWSGROUP ON THE INTERNET, AND     *   FILE 363
//*           CONTAINS AN ISPF NAME CHANGE EXIT ROUTINE FROM        *   FILE 363
//*           STEPHEN BACHER OF THE DRAPER LABS AT M.I.T. IN        *   FILE 363
//*           CAMBRIDGE, MASSACHUSETTS.  THIS EXIT IS A GOOD        *   FILE 363
//*           CODING EXAMPLE BECAUSE IT IS WELL DOCUMENTED.         *   FILE 363
//*           THE ENTIRE THREAD OF DISCUSSION FROM THE NEWSGROUP    *   FILE 363
//*           IS INCLUDED IN THIS FILE AS MEMBERS MSG001 THRU       *   FILE 363
//*           MSG008.                                               *   FILE 363
//*                                                                 *   FILE 363
//*           THE NAME CHANGE ROUTINE, AS CODED, CHANGES THE        *   FILE 363
//*           NAME OF ALLOCATED ISPF RECOVERY DATA SETS.  THE       *   FILE 363
//*           REASON FOR THIS IS BECAUSE THE SHOP IS RUNNING        *   FILE 363
//*           PIE, A VENDOR PRODUCT WHICH ALLOWS RUNNING MULTIPLE   *   FILE 363
//*           TSO SESSIONS IN THE SAME ADDRESS SPACE.  WHEN YOU'RE  *   FILE 363
//*           RUNNING MULTIPLE ISPF SESSIONS IN THE SAME ADDRESS    *   FILE 363
//*           SPACE, THE RECOVERY DATA SET NAMES ARE IDENTICAL,     *   FILE 363
//*           AND THEY CLASH WITH EACH OTHER.  THEREFORE THEY       *   FILE 363
//*           HAVE TO BE MADE UNIQUE.                               *   FILE 363
//*                                                                 *   FILE 363
//*      EMAIL:    STEPHEN E. BACHER  <SEB@DRAPER.COM>              *   FILE 363
//*                                                                 *   FILE 363
//***FILE 364 IS FROM LEE WARRINER OF THE HARTFORD INSURANCE GROUP  *   FILE 364
//*           IN HARTFORD, CONNECTICUT, AND FROM ALAN FIELD OF      *   FILE 364
//*           SUPER VALU IN EDEN PRAIRIE, MINNESOTA.  THIS FILE     *   FILE 364
//*           CONTAINS A WORKING VERSION OF THE CONTROL CARD        *   FILE 364
//*           SUBSYSTEM (CCSS).  CCSS USED TO BE ON ONE OF THE      *   FILE 364
//*           FREE TAPES, A LONG TIME AGO.  CCSS ALLOWS YOU TO      *   FILE 364
//*           CODE CONTROL CARD INFO IN A SYSIN DD CARD WITHOUT     *   FILE 364
//*           CODING SYSIN DD *.  YOU CODE //SYSIN DD               *   FILE 364
//*           SUBSYS=(CCSS,'CONTROL CARD 1', ....).  THIS ALLOWS    *   FILE 364
//*           YOU TO PUT SYSIN CONTROL CARD INFORMATION INTO A      *   FILE 364
//*           PROC, OR IT JUST GIVES YOU FLEXIBILITY.               *   FILE 364
//*                                                                 *   FILE 364
//*             LEE WARRINER                                        *   FILE 364
//*             HARTFORD INSURANCE GROUP                            *   FILE 364
//*             MAIL STOP NP3-4                                     *   FILE 364
//*             HARTFORD PLAZA                                      *   FILE 364
//*             HARTFORD, CT  06115                                 *   FILE 364
//*             860-547-2004                                        *   FILE 364
//*                                                                 *   FILE 364
//*             EMAIL  :    CWARRINER@THEHARTFORD.COM               *   FILE 364
//*             IBMMAIL:    USTV7KFN                                *   FILE 364
//*                                                                 *   FILE 364
//*             MR ALAN C FIELD                                     *   FILE 364
//*             SUPER VALU INC.                                     *   FILE 364
//*             11840 VALLEY VIEW ROAD                              *   FILE 364
//*             EDEN PRAIRIE, MINNESOTA 55344                       *   FILE 364
//*             (952) 828-4979                                      *   FILE 364
//*                                                                 *   FILE 364
//*             EMAIL  :    ALAN.FIELD@SUPERVALU.COM                *   FILE 364
//*                                                                 *   FILE 364
//***FILE 365 IS FROM RON MACRAE OF AMDAHL, UK.  THIS FILE CONTAINS *   FILE 365
//*           A SYSTEM TO AUTOMATICALLY PACKAGE ONE OR MORE MVS     *   FILE 365
//*           DATASETS FOR TRANSMISSION ACROSS THE INTERNET,        *   FILE 365
//*           WITH BUILT-IN ERROR DETECTION.  TSO XMIT IS USED      *   FILE 365
//*           UNDER THE COVERS, AND 8 ERROR CHECKING BYTES ARE      *   FILE 365
//*           APPENDED TO EACH 80-BYTE RECORD, SO THAT IF ANY BYTE  *   FILE 365
//*           IS ALTERED DURING THE TRANSMISSION, THE ERROR WILL    *   FILE 365
//*           BE CAUGHT.  YOU'RE GUARANTEED THE INTEGRITY OF YOUR   *   FILE 365
//*           TRANSMITTED FILES.  THE PACKAGE ALSO MAKES IT EASIER  *   FILE 365
//*           TO PACKAGE AND UNPACKAGE MULTIPLE FILES.  ONLY ONE    *   FILE 365
//*           BIG FILE IS ACTUALLY TRANSMITTED.  THE COMBINED FILE  *   FILE 365
//*           FOR TRANSMISSION IS VERY SIMPLE TO CREATE ON THE      *   FILE 365
//*           TRANSMITTING MVS SYSTEM, AND IT IS VERY SIMPLE TO     *   FILE 365
//*           UNWRAP ON THE RECEIVING MVS SYSTEM.  YOU DON'T HAVE   *   FILE 365
//*           TO SPEND A LOT OF TIME FOOLING WITH TSO XMIT COMMAND  *   FILE 365
//*           PARAMETERS.                                           *   FILE 365
//*                                                                 *   FILE 365
//*           THE IBM COMPRESSION UTILITY CALLED TRSMAIN, THAT IS   *   FILE 365
//*           DISTRIBUTED FOR FREE ON THE WEB, IS OPTIONALLY        *   FILE 365
//*           INTEGRATED WITH THIS PROCESS, PROVIDED TRSMAIN IS     *   FILE 365
//*           PRESENT.  IF THE FILES ARE LARGE, IT MAY PAY TO       *   FILE 365
//*           SEND THE MORE COMPRESSED VERSION ACROSS THE INTERNET. *   FILE 365
//*                                                                 *   FILE 365
//*           FILES PRODUCED BY THIS PACKAGE ARE SUFFIXED .XMT .    *   FILE 365
//*           COMPRESSED FILES PRODUCED BY TRSMAIN, ACTING AGAINST  *   FILE 365
//*           THE .XMT FILE, ARE SUFFIXED .XM1 .                    *   FILE 365
//*                                                                 *   FILE 365
//*           THE PACKAGE BASICALLY CONSISTS OF TWO REXX EXECS,     *   FILE 365
//*           AND OPTIONALLY AN ASSEMBLER PROGRAM.  THE EXEC        *   FILE 365
//*           CALLED OSTARXMT WILL PACKAGE ANY NUMBER OF FILES      *   FILE 365
//*           INTO TSO XMIT FORMAT, AND WILL BUNDLE ALL THE FILES   *   FILE 365
//*           TOGETHER, INTO ONE FILE THAT HAS THE BUILT-IN ERROR   *   FILE 365
//*           CHECKING.  OPTIONALLY, THE COMPRESSION UTILITY        *   FILE 365
//*           TRSMAIN WILL BE CALLED AFTERWARD, TO SQUEEZE THE      *   FILE 365
//*           FILE DOWN FURTHER.  IF THE ORIGINAL AMOUNT OF DATA    *   FILE 365
//*           IS LARGE, THIS HELPS.                                 *   FILE 365
//*                                                                 *   FILE 365
//*           THE OTHER EXEC, OSTARREC, WILL UNWRAP THE FILES       *   FILE 365
//*           CREATED BY OSTARXMT, CHECK TO MAKE SURE THERE ARE     *   FILE 365
//*           NO ERRORS, AND WILL CALL TSO RECEIVE FOR EACH OF THE  *   FILE 365
//*           INCLUDED FILES THAT WERE TRANSMITTED.  YOU'LL GET     *   FILE 365
//*           ALL THE FILES THAT WERE INCLUDED IN THE ORIGINAL      *   FILE 365
//*           BUNDLE.                                               *   FILE 365
//*                                                                 *   FILE 365
//*           OPTIONALLY, THE ASSEMBLER PROGRAM, IF ITS PRESENCE    *   FILE 365
//*           IS DETECTED BY THE REXX EXECS, WILL BE CALLED TO DO   *   FILE 365
//*           THE ERROR DETECTION LOGIC.  ALL OF THIS LOGIC IS      *   FILE 365
//*           ALSO BUILT INTO THE REXX EXECS, BUT IF THE ASSEMBLER  *   FILE 365
//*           PROGRAM IS CALLED, THE LOGIC IS EXECUTED FAR FASTER.  *   FILE 365
//*           THIS CAN MAKE A SIGNIFICANT DIFFERENCE IF LARGE       *   FILE 365
//*           AMOUNTS OF DATA ARE TO BE TRANSFERRED.  THE NAME OF   *   FILE 365
//*           THE ASSEMBLER PROGRAM IS OSTAREDC.                    *   FILE 365
//*                                                                 *   FILE 365
//*           AN IBM WEB SITE FROM WHERE YOU CAN DOWNLOAD THE       *   FILE 365
//*           TRSMAIN UTILITY IS:                                   *   FILE 365
//*                                                                 *   FILE 365
//*        ftp://service.boulder.ibm.com/s390/mvs/tools/packlib     *   FILE 365
//*                                                                 *   FILE 365
//*           (YOU HAVE TO USE LOWER CASE TO GET THIS TO WORK.)     *   FILE 365
//*                                                                 *   FILE 365
//*           THIS LOCATION WAS GOOD AS OF THE TIME OF THIS         *   FILE 365
//*           WRITING.  (03/99)                                     *   FILE 365
//*                                                                 *   FILE 365
//*           I'VE INCLUDED BATCH JCL FOR RUNNING THE TRSMAIN       *   FILE 365
//*           COMPRESSION-DECOMPRESSION UTILITY, AND I'VE PUT       *   FILE 365
//*           IN IBM'S "README" FILE FOR TRSMAIN, AS WELL.  I       *   FILE 365
//*           CAN'T INCLUDE THE TRSMAIN MODULE ITSELF--YOU CAN      *   FILE 365
//*           GET IT FREE, FROM IBM.  (SG - 03/99)                  *   FILE 365
//*                                                                 *   FILE 365
//*           THESE REXX EXECS ARE DESIGNED TO BE EXECUTED FROM     *   FILE 365
//*           AN ISPF 3.4 DATASET LIST, OR THEY CAN BE RUN WITH     *   FILE 365
//*           A COMMAND SYNTAX, OR COMMAND PROMPTS.                 *   FILE 365
//*                                                                 *   FILE 365
//*           AUTHOR  : RON MACRAE.                                 *   FILE 365
//*                                                                 *   FILE 365
//*           ADDRESS : OBJECTSTAR SUPPORT                          *   FILE 365
//*                        AMDAHL UK LTD                            *   FILE 365
//*                        CROMWELL HOUSE                           *   FILE 365
//*                        BARTLEY WAY                              *   FILE 365
//*                        HOOK, HAMPSHIRE                          *   FILE 365
//*                        RG27 9XA, UK                             *   FILE 365
//*                                                                 *   FILE 365
//*             EMAIL :  RON_MACRAE@AMDAHL.COM                      *   FILE 365
//*                                                                 *   FILE 365
//*             PHONE : +44-1252-346379                             *   FILE 365
//*                                                                 *   FILE 365
//* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -   *   FILE 365
//*                                                                 *   FILE 365
//*   Note from Sam Golob:  I've written a small program called     *   FILE 365
//*        OSTRIP, which will take an OSTARXMT-format file and      *   FILE 365
//*        create a series of ordinary XMIT-format files from       *   FILE 365
//*        it.  This is for emergency use only, if the OSTARREC     *   FILE 365
//*        procedure detects errors, and you still want to          *   FILE 365
//*        salvage some data.  OSTRIP is included in this file.     *   FILE 365
//*                                                                 *   FILE 365
//* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -   *   FILE 365
//*   AMDAHL DISCLAIMER:                                            *   FILE 365
//*                                                                 *   FILE 365
//*         THIS SOFTWARE IS SUPPLIED BY AMDAHL CORP. FOR           *   FILE 365
//*         THE TRANSMISSION OF MATERIALS BETWEEN OBJECTSTAR        *   FILE 365
//*         SUPPORT AND IT'S CUSTOMERS.  ANY OTHER USE OF           *   FILE 365
//*         THIS SOFTWARE IS AT THE USER'S DISCRETION AND IS        *   FILE 365
//*         NOT SUPPORTED IN ANY WAY BY AMDAHL CORP.                *   FILE 365
//*                                                                 *   FILE 365
//*         THE SOFTWARE IS SUPPLIED AS 'FREEWARE' AND MAY          *   FILE 365
//*         BE USED/MODIFIED BY ANYONE PROVIDED THEY DO NOT         *   FILE 365
//*         THEN SELL IT ON FOR PROFIT OR EXPECT SUPPORT            *   FILE 365
//*         FROM AMDAHL CORP.                                       *   FILE 365
//*                                                                 *   FILE 365
//*         LIMITED SUPPORT MAY IN SOME CASES BE AVAILABLE          *   FILE 365
//*         FROM THE AUTHOR.                                        *   FILE 365
//* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -   *   FILE 365
//*                                                                 *   FILE 365
//***FILE 366 is from Marvin Shaw of Shaw Consulting in             *   FILE 366
//*           Jacksonville, Florida.  This file contains the        *   FILE 366
//*           following applications:                               *   FILE 366
//*                                                                 *   FILE 366
//*    WW        -  World Clock.  This is an ISPF application       *   FILE 366
//*                 which will display the current time of a        *   FILE 366
//*                 city anywhere in the world, provided you        *   FILE 366
//*                 plug its information into the REXX exec.        *   FILE 366
//*                                                                 *   FILE 366
//*         (Note:  Marvin also sent me a better program, that      *   FILE 366
//*                 runs on a pc under Windows, but I couldn't      *   FILE 366
//*                 include it here, obviously.    SG - 04/99)      *   FILE 366
//*                                                                 *   FILE 366
//*    PDSADD    -  This is a REXX exec that looks at a pds,        *   FILE 366
//*                 and inserts a ./ ADD NAME=membname in front     *   FILE 366
//*                 of each member's data.  You can look at this    *   FILE 366
//*                 code to see how to use REXX to find each        *   FILE 366
//*                 member name of a pds.                           *   FILE 366
//*                                                                 *   FILE 366
//*              Marvin Shaw                                        *   FILE 366
//*              3840 Peach Drive                                   *   FILE 366
//*              Jacksonville, Fla. 32246                           *   FILE 366
//*                                                                 *   FILE 366
//*     phone :  (904)-645-3595                                     *   FILE 366
//*     email :  mshaw244@aol.com                                   *   FILE 366
//*                                                                 *   FILE 366
//*              In case you need it my web page is at:             *   FILE 366
//*                                                                 *   FILE 366
//*              http://shawconsulting.microhost.com                *   FILE 366
//*                                                                 *   FILE 366
//*       Note:  No www as I am just leasing space on another       *   FILE 366
//*              server.                                            *   FILE 366
//*                                                                 *   FILE 366
//***FILE 367 contains two REXX execs from John Kalinich.           *   FILE 367
//*                                                                 *   FILE 367
//*     ASCBS    -  Show all active address spaces                  *   FILE 367
//*                                                                 *   FILE 367
//*     TSURXS   -  Display active TSO Users                        *   FILE 367
//*                                                                 *   FILE 367
//* >>   EMAIL ADDRESS:  jkalinic@csc.com                           *   FILE 367
//* >>   PHONE NUMBER :  314-331-4521                               *   FILE 367
//*                                                                 *   FILE 367
//***FILE 368 is from James Williams of Atlanta, Georgia, and       *   FILE 368
//*           contains a collection of his tools and utilities.     *   FILE 368
//*                                                                 *   FILE 368
//*      email:  "James Williams" <jwilliam@aglresources.com>       *   FILE 368
//*                                                                 *   FILE 368
//*                 James Williams                                  *   FILE 368
//*                 AGL Resources (Services) Co.                    *   FILE 368
//*                 1219 Caroline Street                            *   FILE 368
//*                 Atlanta, GA 30307                               *   FILE 368
//*                 404-584-4112                                    *   FILE 368
//*                                                                 *   FILE 368
//*      Here is a short description of the contents of this        *   FILE 368
//*      file:                                                      *   FILE 368
//*                                                                 *   FILE 368
//*      ALL REXX SMF STUFF MUST BE RECFM=VB INSTEAD OF             *   FILE 368
//*      RECFM=VBS AS REXX CANNOT HANDLE SPANNED RECORDS.           *   FILE 368
//*                                                                 *   FILE 368
//*      $$$DOC   - This member                                     *   FILE 368
//*                                                                 *   FILE 368
//*      AL       - Good when you are at 3.4 and need to            *   FILE 368
//*                 duplicate a dataset                             *   FILE 368
//*                                                                 *   FILE 368
//*      COMMAND  - Added support for 4 digit reply id to           *   FILE 368
//*                 program from File 019 issue 'FIND *JAW*' to     *   FILE 368
//*                 see my changes.                                 *   FILE 368
//*                                                                 *   FILE 368
//*      COPYLNES - Great taking a dataset file and then create     *   FILE 368
//*                 a record before each.  This is great for        *   FILE 368
//*                 creating multi-line control cards               *   FILE 368
//*                                                                 *   FILE 368
//*      DMPGENER - This simple REXX takes a dataset list and       *   FILE 368
//*                 generates control cards for DFDSS.  I use       *   FILE 368
//*                 this same example to create JCL and other       *   FILE 368
//*                 control card schemes.                           *   FILE 368
//*                                                                 *   FILE 368
//*      FTAILSMF - FTAILSMF is BAL program that shows the power    *   FILE 368
//*                 of ISPF calls. You can easily manage datasets   *   FILE 368
//*                 using ISPF calls which do the SVC 99 stuff      *   FILE 368
//*                 under the doors. Also, a REXX version in there. *   FILE 368
//*                                                                 *   FILE 368
//*      IEFUJI   - IEFUJI exit to gets info from ACF2.  Probably   *   FILE 368
//*                 would not take much to get from RACF or Top     *   FILE 368
//*                 Secret also.  Also creates an SMF record        *   FILE 368
//*                 (128) processed by SMF128J.                     *   FILE 368
//*                                                                 *   FILE 368
//*      JOBID    - Simple REXX to find JOBID                       *   FILE 368
//*                                                                 *   FILE 368
//*      MSGCHECK - Little REXX program to check MPF.  IEAVMXIT     *   FILE 368
//*                 must be active for some AUTOOPS packages.       *   FILE 368
//*                                                                 *   FILE 368
//*      RDATE    - REXX date routine. Recently added some Y2K      *   FILE 368
//*                 updates.  REXX date function has most of this   *   FILE 368
//*                 support today.  Originally a CLIST from CBT,    *   FILE 368
//*                 I believe, that I converted to REXX and         *   FILE 368
//*                 updated.                                        *   FILE 368
//*                                                                 *   FILE 368
//*      RXJOBID  - Assembler REXX function same as JOBID above.    *   FILE 368
//*                 Shows how simple BAL REXX functions are.        *   FILE 368
//*                                                                 *   FILE 368
//*      SEQNUM   - Handy member.  I once had a job with a          *   FILE 368
//*                 zillion steps all with the same name.  This     *   FILE 368
//*                 edit macro made each step unique.               *   FILE 368
//*                                                                 *   FILE 368
//*      SMF128   - For poor shops without SAS, REXX is a great     *   FILE 368
//*                 tool for quick SMF data reports for auditors    *   FILE 368
//*                 or bean counters.                               *   FILE 368
//*                                                                 *   FILE 368
//*      SMF128J  - JCL to invoke SMF128 user SMF record from       *   FILE 368
//*                 IEFUJI.                                         *   FILE 368
//*                                                                 *   FILE 368
//*      SMF170   - For poor shops without SAS, REXX is a great     *   FILE 368
//*                 tool for quick SMF data reports for auditors    *   FILE 368
//*                 or bean counters. SMF170 records from FILEAID   *   FILE 368
//*                 require an AUTHSVC.                             *   FILE 368
//*                                                                 *   FILE 368
//*      SMF170J  - JCL to invoke SMF170 to report on               *   FILE 368
//*                 FILEAID edits.                                  *   FILE 368
//*                                                                 *   FILE 368
//*      PCOPY    - This edit macro extends the power of the        *   FILE 368
//*                 COPY command.  PCOPY can copy a PROC member     *   FILE 368
//*                 without the intervening copy panel.  I need     *   FILE 368
//*                 to expand this for non-pds's also.              *   FILE 368
//*                                                                 *   FILE 368
//*      COBPRT   - Simple program to test our Y2K date             *   FILE 368
//*                 simulator.  This executes COBOL II date         *   FILE 368
//*                 calls.  COBOL for MVS has some examples in      *   FILE 368
//*                 the IVP.                                        *   FILE 368
//*                                                                 *   FILE 368
//*      PLIAVG   - Simple program to test our Y2K date             *   FILE 368
//*                 simulator.  This executes PLI date calls at     *   FILE 368
//*                 the 2.3 level.                                  *   FILE 368
//*                                                                 *   FILE 368
//*      STCK     - Simple program to test our Y2K date             *   FILE 368
//*                 simulator.  This executes a STCK instruction.   *   FILE 368
//*                                                                 *   FILE 368
//*      TIMEPC   - Simple program to test our Y2K date             *   FILE 368
//*                 simulator.  This executes a TIME PC call.       *   FILE 368
//*                                                                 *   FILE 368
//*      TIMEX    - Simple program to test our Y2K date             *   FILE 368
//*                 simulator.  This executes a regular TIME        *   FILE 368
//*                 call.                                           *   FILE 368
//*                                                                 *   FILE 368
//*      TOUPPERC - Xpediter will not handle lower case             *   FILE 368
//*                 code as of 10-06-1999. Converts all text        *   FILE 368
//*                 to uppercase prior to assembly.                 *   FILE 368
//*                                                                 *   FILE 368
//*      TOUPPERJ - Job to run invoke TOUPPERC against your         *   FILE 368
//*                 PDS. It uses STARTOOL or PDS85 to invoke.       *   FILE 368
//*                 Good control card examples.                     *   FILE 368
//*                                                                 *   FILE 368
//*      WTOAGL01 - Example of a TSO exit to start all VTAM         *   FILE 368
//*                 appls at our site.  Would require a IST020I     *   FILE 368
//*                 entry to start this exit in MPFLST00.  The      *   FILE 368
//*                 last byte of each of our SMF ids is unique,     *   FILE 368
//*                 such as SYSA, SYSB, or SYSC.  It grabs the      *   FILE 368
//*                 character, as we have unique requirements for   *   FILE 368
//*                 each system.                                    *   FILE 368
//*                                                                 *   FILE 368
//***FILE 369 IS FROM PLANNING RESEARCH CORPORATION AND CONTAINS    *   FILE 369
//*           SEVERAL OF THEIR PROGRAMS.  THIS FILE IS IN IEBUPDTE  *   FILE 369
//*           SYSIN FORMAT.  FOR ADDITIONAL INFORMATION SEE THE     *   FILE 369
//*           MEMBER CALLED $$DOC AND $$NWKDOC                      *   FILE 369
//*                                                                 *   FILE 369
//*       ---------------------------------------------------       *   FILE 369
//*           DALE VICK:  UPDATED DSPACE COMMAND (JAN 1999)         *   FILE 369
//*            (THE REST OF THIS FILE IS FROM DICK SZIEDE)          *   FILE 369
//*                                                                 *   FILE 369
//*                 DALE VICK                                       *   FILE 369
//*                 USA GROUP, INC.                                 *   FILE 369
//*                 11100 USA PARKWAY                               *   FILE 369
//*                 MC: B131                                        *   FILE 369
//*                 FISHERS, IN 46038-9203                          *   FILE 369
//*                 WORK PHONE: (317) 578-6786                      *   FILE 369
//*                 E-MAIL:           DVICK@USAGROUP.COM            *   FILE 369
//*       ---------------------------------------------------       *   FILE 369
//*                                                                 *   FILE 369
//*    AC#VIOX  TITLE 'AC#VIOX -- ACF2 VIOLATION EXIT'              *   FILE 369
//*             ALLOWS A USER WITH "ACCOUNT" AUTHORITY TO           *   FILE 369
//*             CREATE AN ALIAS IN THE MASTER CATALOG, EVEN         *   FILE 369
//*             THOUGH HE DOESN'T HAVE "WRITE" PERMISSION.          *   FILE 369
//*             THE ROUTINE CHECKS THE ACF2 VIOLATION TO            *   FILE 369
//*             DETERMINE WHETHER IT IS FROM VSAM CATALOG           *   FILE 369
//*             MANAGEMENT.  IF SO, IT THEN CHECKS TO SEE           *   FILE 369
//*             WHETHER THE REQUEST IS TO DEFINE OR DELETE          *   FILE 369
//*             AN ALIAS.  IF YES, IT CHECKS TO SEE IF THE          *   FILE 369
//*             USER HAS ACCOUNT AUTHORITY.  IF ALL                 *   FILE 369
//*             CONDITIONS MATCH, THE ACCESS IS ALLOWED.            *   FILE 369
//*                                                                 *   FILE 369
//*    ACFFTSUB TITLE 'ACFFTSUB -- FILE TAILOR AND                  *   FILE 369
//*             AUTHORIZED JOB SUBMISSION'.  THIS ROUTINE           *   FILE 369
//*             PERFORMS THE FUNCTIONS OF ACF2'S ACFSUB             *   FILE 369
//*             PROGRAM.  THE MAIN REASON TO HAVE THIS IS TO        *   FILE 369
//*             PERMIT A USER TO SUBMIT A JOB WHICH WILL DO         *   FILE 369
//*             THINGS THE USER WOULD NORMALLY NOT BE               *   FILE 369
//*             PERMITTED TO DO.  (TYPICALLY, A DATA-CONTROL        *   FILE 369
//*             CLERK SUBMITTING THE FDR BACKUPS).  THIS            *   FILE 369
//*             ROUTINE EXTENDS ACFSUB TO ALLOW A FINAL STEP        *   FILE 369
//*             OF FILE TAILORING BY ISPF SERVICES PRIOR TO         *   FILE 369
//*             THE SUBMISSION WHILE MAINTAINING SECURITY           *   FILE 369
//*             OVER PRODUCTION AND MAINTENANCE JCL.                *   FILE 369
//*                                                                 *   FILE 369
//*             NORMALLY ACFSUB-LIKE ROUTINES WHICH ARE USED        *   FILE 369
//*             TO TRIGGER THE SUBAUTH LID ATTRIBUTE HAVE TO        *   FILE 369
//*             BE APF AUTHORIZED.  HOWEVER, THERE IS A             *   FILE 369
//*             RESTRICTION IN FORCE WITH ISPF/PDF V2R2M0           *   FILE 369
//*             AND TSO/E WHICH PROHIBITS ANY APF AUTHORIZED        *   FILE 369
//*             PROGRAM OR COMMAND PROCESSOR FROM USING ANY         *   FILE 369
//*             ISPF SERVICES.  THE SUBAUTHX EXIT, ALSO IN          *   FILE 369
//*             THIS FILE, IS NECESSARY TO GET AROUND THIS          *   FILE 369
//*             RESTRICTION.                                        *   FILE 369
//*                                                                 *   FILE 369
//*             THE USER SHOULD HAVE READ AUTHORITY FOR THE         *   FILE 369
//*             FILE TAILORING SKELETON LIBRARY.  WRITE             *   FILE 369
//*             ACCESS TO THESE LIBRARIES SHOULD BE                 *   FILE 369
//*             CONTROLLED.  ONLY PROPER JOBSTREAMS CAN BE          *   FILE 369
//*             SUBMITTED.  THE USER'S LEVEL OF MODIFICATION        *   FILE 369
//*             OF THE JOBSTREAMS IS LIMITED TO SETTING             *   FILE 369
//*             DIALOG VARIABLES FOR THE FILE TAILORING.            *   FILE 369
//*                                                                 *   FILE 369
//*    ADAEX2 - 'ADABAS USER EXIT 2.'                               *   FILE 369
//*             THIS IS THE ADABAS SWITCH LOG EXIT.  WE GET         *   FILE 369
//*             CONTROL FROM ADABAS WHEN A PROTECTION LOG OR        *   FILE 369
//*             COMMAND LOG SWITCH TAKES PLACE.  ADAEX2             *   FILE 369
//*             DUMPS THE LOGS AS REQUIRED, AND TELLS ADABAS        *   FILE 369
//*             TO GET ON WITH PROCESSING.  **NOTE** OUR            *   FILE 369
//*             ADABAS LOG-DUMP UTILITY JCL CALLS THE               *   FILE 369
//*             "REPLYTO" PROGRAM ALSO IN THIS FILE, TO GIVE        *   FILE 369
//*             ADABAS THE GO-AHEAD.                                *   FILE 369
//*                                                                 *   FILE 369
//*    ASMTOZAP - THE ORIGINAL HOWARD GILBERT VERSION.              *   FILE 369
//*             ACCEPT NO SUBSTITUTES!  THERE ARE OTHER             *   FILE 369
//*             ASMTOZAP PROGRAMS AROUND THAT WILL PRODUCE          *   FILE 369
//*             BAD ZAPS FROM THE CODE IN THIS FILE.                *   FILE 369
//*                                                                 *   FILE 369
//*             THIS IS A UTILITY WHICH CONVERTS AN                 *   FILE 369
//*             ASSEMBLER LISTING DATASET INTO A FORMATTED          *   FILE 369
//*             IMASPZAP INPUT DECK OR SMP PTF.  IT IS USEFUL       *   FILE 369
//*             IN PREPARING, MAINTAINING, AND DOCUMENTING          *   FILE 369
//*             THOSE INSTALLATION MODIFICATIONS WHICH              *   FILE 369
//*             CANNOT BE INSTALLED EXCEPT BY MODIFING IBM          *   FILE 369
//*             CODE.  ONE CAN MAKE FREE USE OF MACROS,             *   FILE 369
//*             LITERALS, AND OTHER CONVENIENCE FEATURES IN         *   FILE 369
//*             PREPARING THE DECK.  CONTROL CARDS IN SPECIAL       *   FILE 369
//*             ASSEMBLER COMMENT FORM PROVIDE FLEXIBILITY          *   FILE 369
//*             IN MODIFICATION DESIGN AND CONTROL OVER             *   FILE 369
//*             OUTPUT.                                             *   FILE 369
//*                                                                 *   FILE 369
//*    AUTOIPL  TITLE    'A U T O M A T I C   I P L'                *   FILE 369
//*             THIS PROGRAM ISSUES OPERATOR COMMANDS READ          *   FILE 369
//*             FROM AN INPUT FILE.  IT ALLOWS CONDITIONAL          *   FILE 369
//*             COMMAND EXECUTION, TIMED COMMAND SUBMISSION,        *   FILE 369
//*             AND PROGRAM INVOCATION.  THESE FUNCTIONS            *   FILE 369
//*             PERMIT THE PROGRAM TO BE USED FOR A FULLY           *   FILE 369
//*             AUTOMATED IPL PROCEDURE FOR THE SYSTEM.             *   FILE 369
//*                                                                 *   FILE 369
//*    BITENCOD TITLE ENCODE OR DECODE BITS INTO BYTES              *   FILE 369
//*             PROVIDES BIT TESTING AND BIT SETTING FOR            *   FILE 369
//*             HIGH-LEVEL LANGUAGES                                *   FILE 369
//*                                                                 *   FILE 369
//*             BITENCOD: THIS SUBROUTINE TAKES A SINGLE            *   FILE 369
//*                       CHARACTER ARGUMENT OF ONE BYTE,           *   FILE 369
//*                       AND RETURNS EIGHT CHARACTERS OF           *   FILE 369
//*                       ONES OR ZEROS DEPENDING ON THE            *   FILE 369
//*                       BITS SET IN THE ARGUMENT.                 *   FILE 369
//*                                                                 *   FILE 369
//*             BITDECOD: THIS SUBROUTINE TAKESS EIGHT              *   FILE 369
//*                       CHARACTERS OF DATA AND RETURNS A          *   FILE 369
//*                       SINGLE BYTE, THE BITS OF WHICH ARE        *   FILE 369
//*                       THE RIGHTMOST BITS OF EACH                *   FILE 369
//*                       ARGUMENT BYTE.  THUS IS THE               *   FILE 369
//*                       OPPOSITE OF BITENCODE.                    *   FILE 369
//*                                                                 *   FILE 369
//*    CALENDAR - PRINT A CUSTOM CALENDAR FOR ANY YEAR:             *   FILE 369
//*               BIRTHDAYS, HOLIDAYS, AND EVENTS TO YOUR           *   FILE 369
//*               ORDER.                                            *   FILE 369
//*                                                                 *   FILE 369
//*    CLIB   --- CONCATENATE DATASET FIRST TO DDNAME.              *   FILE 369
//*             PURPOSE:  PROVIDE TSO USER QUICK ACCESS TO          *   FILE 369
//*                      PRIVATE CLISTS.                            *   FILE 369
//*             METHOD:  USE SVC 99 TO DETERMINE THE DSNAMES        *   FILE 369
//*                      OF ALL DATASETS CONCATENATED TO A          *   FILE 369
//*                      PARTICULAR DDNAME.  REALLOCATE THE         *   FILE 369
//*                      ARGUMENT DSNAME IN FRONT OF ALL THE        *   FILE 369
//*                      OTHERS.                                    *   FILE 369
//*                                                                 *   FILE 369
//*    COMMAND  TITLE 'COMMAND - ISSUE SVC34 FOR PROBLEM            *   FILE 369
//*             PROGRAM'.  ALLOW COMMANDS TO BE ISSUED BY           *   FILE 369
//*             PROGRAM CONTROL EITHER THROUGH THE PARM             *   FILE 369
//*             FIELD OR BY A CALL FROM ANOTHER PROGRAM.            *   FILE 369
//*             NOT FULLY OPERATIONAL, BUT REQUIRED BY SPY.         *   FILE 369
//*                                                                 *   FILE 369
//*    DSNPOST  TITLE 'DSNPOST - ACF2 DSN POST-PROCESSING           *   FILE 369
//*              EXIT.' THIS IS AN ACF2 DSN POST-PROCESSING         *   FILE 369
//*              EXIT.  WE USE THIS EXIT TO OVERRIDE A              *   FILE 369
//*              PARTICULAR VIOLATION.  WE ATTEMPTED TO LIMIT       *   FILE 369
//*              ACCESS TO THE JES2 SPOOL AND CHECKPOINT            *   FILE 369
//*              DATASETS FROM SDSF VIA ACF2'S PROGRAM PATHING      *   FILE 369
//*              FACILITY, BUT THE LIMITATIONS OF THIS              *   FILE 369
//*              FACILITY ESPECIALLY WITHIN ISPF DIALOGS            *   FILE 369
//*              BECAME EVIDENT (YOU HAVE TO ACCURATELY             *   FILE 369
//*              DESCRIBE THE TASK AND RB CHAINS FOR EVERY          *   FILE 369
//*              DIALOG THAT WILL BE USED).  THUS WE ATTEMPT TO     *   FILE 369
//*              OVERRIDE VIOLATIONS AGAINST THE JES2 DATASETS      *   FILE 369
//*              THAT ARE REALLY NORMAL SDSF ACCESSES.  WE          *   FILE 369
//*              CHECK FOR OPEN FOR INPUT ACCESSES TO FILES         *   FILE 369
//*              HASPCKPT OR HASPAC00, AND THEN CHECK FOR THE       *   FILE 369
//*              PRESENCE OF AN AUTHORIZED LIBRARY VERSION OF       *   FILE 369
//*              ISFJINIT.                                          *   FILE 369
//*                                                                 *   FILE 369
//*    DSPACE   -- LIST DISK FREESPACE AND EXTENTS.                 *   FILE 369
//*              THIS IS THE GOOD OL' SHARE DSPACE COMMAND          *   FILE 369
//*              WITH CLEARER FIELD LABELS, AND USING               *   FILE 369
//*              PUTLINE INSTEAD OF TPUT SO IT CAN BE RUN           *   FILE 369
//*              FROM A CLIST.  THIS COMMAND IS USED BY             *   FILE 369
//*              PARKE'S FULL-SCREEN "FDSPACE" PANELS.              *   FILE 369
//*                                                                 *   FILE 369
//*    DOPROG  -- DOPROG/DOCP  (TSO) COMMAND PROCESSOR              *   FILE 369
//*              DOPROG AND DOCP IN THE SAME MODULE.   USE          *   FILE 369
//*              TO INVOKE A COMMAND PROCESSOR.  HAS A              *   FILE 369
//*              "TASKLIB" CAPABILITY.  THIS ISN'T JOE              *   FILE 369
//*              SCHINDLER'S "DOCP," WHICH IS A STAND-ALONE         *   FILE 369
//*              CP, RATHER, AN ALIAS OF DOPROG.  JOE USED          *   FILE 369
//*              TPUT-TGET TO PROMPT FOR THE COMMAND LINE,          *   FILE 369
//*              WHICH I DIDN'T LIKE.  THIS VERSION WILL            *   FILE 369
//*              TAKE A CP COMMAND LINE IN QUOTES, OR WILL          *   FILE 369
//*              PROMPT WITH PUTGET IF IT DOESN'T FIND ONE.         *   FILE 369
//*              THUS IT CAN BE USED IN A CLIST.                    *   FILE 369
//*                                                                 *   FILE 369
//*    DSIEX04 - NCCF'S OWN LOGGING FACILITY IS PRETTY              *   FILE 369
//*              USELESS.  THIS EXIT PROVIDES AN                    *   FILE 369
//*              ALTERNATIVE.  WE GET A LOOKSEE AT ALL NCCF         *   FILE 369
//*              TERMINAL INPUTS AND OUTPUTS BEFORE NCCF            *   FILE 369
//*              DOES ITS OWN LOGGING.  WE DECIDE WHAT'S            *   FILE 369
//*              IMPORTANT AND WRITE IT FOR POSTERITY.              *   FILE 369
//*              YOU'LL PROBABLY WANT TO SUPPRESS MSGID             *   FILE 369
//*              NCCF/ IN YOUR MVS/XA MPF LIST.  NOTE THAT          *   FILE 369
//*              DSILOG TASK MUST BE ACTIVE FOR THIS EXIT TO        *   FILE 369
//*              BE INVOKED.                                        *   FILE 369
//*                                                                 *   FILE 369
//*    DSNWAIT  TITLE 'DSNWAIT - WTO EXIT TO INFORM TSO USER        *   FILE 369
//*             OF DSN WAIT.'                                       *   FILE 369
//*                                                                 *   FILE 369
//*             NAME - DSNWAIT - WTO EXIT TO INFORM A TSO USER      *   FILE 369
//*             THAT JOB IS WAITING FOR A DATASET.                  *   FILE 369
//*                                                                 *   FILE 369
//*             DESCRIPTION -                                       *   FILE 369
//*             WE GET CONTROL UPON ISSUANCE OF THE IEF099I         *   FILE 369
//*             WTO.  WE ISSUE AN OPERATOR SEND COMMAND TO          *   FILE 369
//*             INFORM THE TSO USER THAT HIS BATCH JOB IS           *   FILE 369
//*             WAITING FOR SOME DATASETS.  THE INTENT HERE         *   FILE 369
//*             IS TO ALERT THE PERSON WHO CAN DO SOMETHING         *   FILE 369
//*             ABOUT THE SITUATION, SUCH AS FREE THE               *   FILE 369
//*             DATASETS.  WE FIRST MAKE SURE THAT MSG              *   FILE 369
//*             IEF099I WAS ISSUED, THAT ACF2 IS ALIVE AND          *   FILE 369
//*             WELL, THAT WE'RE A JOB, AND THAT THE RESULTS        *   FILE 369
//*             OF OUR GQSCAN REQUEST FOR SYSDSN CONFLICTS IS       *   FILE 369
//*             COOL.  THEN WE ISSUE A SEND COMMAND FOR THE         *   FILE 369
//*             FIRST THREE CONFLICTS THAT MEET THE FOLLOWING       *   FILE 369
//*             CONDITIONS:                                         *   FILE 369
//*                                                                 *   FILE 369
//*              1). 1 TASK HOLDS THE RESOURCE.                     *   FILE 369
//*              2). 1 TASK WAITS FOR THE RESOURCE.                 *   FILE 369
//*              3). WE ARE THE TASK THE WAITS FOR THE              *   FILE 369
//*                  RESOURCE.                                      *   FILE 369
//*              4). IT IS A TSO USER THAT HOLDS THE                *   FILE 369
//*                  RESOURCE.                                      *   FILE 369
//*              5). THE ACF2 LIDS FOR THE HOLDER AND WAITER        *   FILE 369
//*                  ARE THE SAME.                                  *   FILE 369
//*                                                                 *   FILE 369
//*            WHILE IT IS ACKNOWLEDGED THAT THESE CRITERIA         *   FILE 369
//*            WILL ELIMINATE SOME OTHERWISE VALID CANDIDATES       *   FILE 369
//*            FROM CONSIDERATION, IT IS HOPED THAT THIS EXIT       *   FILE 369
//*            WILL OTHERWISE PROVE USEFUL IN MOST                  *   FILE 369
//*            SITUATIONS.                                          *   FILE 369
//*                                                                 *   FILE 369
//*          NOTE - WE MUST BE IN AN APF-AUTHORIZED LINKLIST        *   FILE 369
//*            LIBRARY.  THE ACF2 SECURITY SYSTEM IS                *   FILE 369
//*            REQUIRED BY THIS EXIT.                               *   FILE 369
//*                                                                 *   FILE 369
//*          TO USE -                                               *   FILE 369
//*            SPECIFY IN AN MPFLSTXX MEMBER OF PARMLIB:            *   FILE 369
//*            IEF099I,SUP(NO),USEREXIT(DSNWAIT)                    *   FILE 369
//*                                                                 *   FILE 369
//*    ENQWAIT  TITLE 'ENQWAIT - STIMER UNTIL SOMEONE ELSE          *   FILE 369
//*              GETS AN ENQ.'                                      *   FILE 369
//*                                                                 *   FILE 369
//*              THIS PROGRAM WORKS IN CONJUNCTION WITH THE         *   FILE 369
//*              AUTOIPL PROGRAM.  WE STIMER UNTIL A TARGET         *   FILE 369
//*              JOB ACQUIRES A TARGET RESOURCE VIA AN ENQ          *   FILE 369
//*              REQUEST.  THUS WE CAN ENSURE THAT AUTOIPL          *   FILE 369
//*              WILL NOT PROCEED UNTIL A PREVIOUS PROCESS          *   FILE 369
//*              IS READY FOR PROCESSING.                           *   FILE 369
//*                                                                 *   FILE 369
//*              FOR EXAMPLE, CONSIDER THE FOLLOWING AUTOIPL        *   FILE 369
//*                INPUT:                                           *   FILE 369
//*                                                                 *   FILE 369
//*                S TPJOB,M=TCAM                                   *   FILE 369
//*                                                                 *   FILE 369
//*                "ENQWAIT "JOB=TCAM,MAJOR=AUTOTCAM                *   FILE 369
//*                                                                 *   FILE 369
//*                S MESS,M=                                        *   FILE 369
//*                                                                 *   FILE 369
//*              THE "S MESS,M=" COMMAND WILL NOT PROCEED           *   FILE 369
//*              UNTIL TCAM ACQUIRES THE RESOURCE WHOSE             *   FILE 369
//*              MAJOR NAME IS AUTOTCAM.  WE STIMER EVERY 10        *   FILE 369
//*              SECONDS FOR 5 MINUTES TO CHECK ON STATUS.          *   FILE 369
//*              IF ANYTHING IS FOUND THAT IS UNGOOD, WE            *   FILE 369
//*              ABEND WITH A S0C3.                                 *   FILE 369
//*                                                                 *   FILE 369
//*            TO USE -                                             *   FILE 369
//*                                                                 *   FILE 369
//*         EXEC PGM=ENQWAIT,PARM='JOB=JJJJJJJJ,MAJOR=MMMMMMMM,     *   FILE 369
//*                               MINOR=RRRRRRRR,NAME=NNNNNNNN      *   FILE 369
//*       WHERE JJJJJJJJ = TARGET JOBNAME (1-8 CHARS),              *   FILE 369
//*             MMMMMMMM = TARGET MAJOR NAME (1-8 CHARS),           *   FILE 369
//*             RRRRRRRR = TARGET MINOR NAME (1-44 CHARS),          *   FILE 369
//*             NNNNNNNN = DESCRIPTIVE NAME FOR MSG (1-8 CHARS).    *   FILE 369
//*           * = REQUIRED                                          *   FILE 369
//*                                                                 *   FILE 369
//*    FSAS    - A FULL SCREEN SAS FACILITY THAT USES THE           *   FILE 369
//*              ISPF EDITOR.  NEEDS PANELS, CLISTS,                *   FILE 369
//*              MESSAGES AND CODE FOUND IN THIS PDS, THAT          *   FILE 369
//*              START FSAS....   ALSO NEEDS THE CLIST              *   FILE 369
//*              SELMEMBR, AND THE PANEL SELMEMP1.                  *   FILE 369
//*                                                                 *   FILE 369
//*    HEX   TITLE ' BASE 16 ARITHMETIC ' FOR THOSE WHO             *   FILE 369
//*              HAVEN'T BLOWN THE $15 FOR A CASIO CM-100,          *   FILE 369
//*              HERE'S A LITTLE HELP.  THE IMPETUS FOR             *   FILE 369
//*              WRITING THIS PROGRAM COMES FROM THOSE              *   FILE 369
//*              FRUSTRATING HOURS SPENT FUMBLING WITH A            *   FILE 369
//*              DUMP ONLY TO DISCOVER THAT MY INABILITY TO         *   FILE 369
//*              FIND A SOLUTION STEMS FROM AN ARITHMETIC           *   FILE 369
//*              ERROR IN THE INITIAL STEPS.                        *   FILE 369
//*                                                                 *   FILE 369
//*    IGC0022F TITLE 'IGC0022F,SVC 226, WRITE USER SMF             *   FILE 369
//*              RECORD' WRITE USER SMF RECORD FROM NON             *   FILE 369
//*              APF-AUTHORIZED PROGRAM.  TYPICALLY, THE            *   FILE 369
//*              RECORD CONTAINS ACCOUNTING DATA FROM SUCH          *   FILE 369
//*              PACKAGES AS TELAGRAF, THAT REQUIRE THEIR           *   FILE 369
//*              OWN ACCOUNTING DATA.  THE CALLER MUST              *   FILE 369
//*              PROVIDE A POINTER TO THE SMF RECORD IN             *   FILE 369
//*              REGISTER ONE.  SVC226 WILL VALIDATE THE            *   FILE 369
//*              ARGUMENTS, FILL IN THE STANDARD SMF HEADER         *   FILE 369
//*              AND DISPATCH THE RECORD WITH A SMFWTM              *   FILE 369
//*              MACRO.                                             *   FILE 369
//*                                                                 *   FILE 369
//*    IEFACTRT TITLE 'SMF JOB/STEP TERMINATION EXIT ROUTINE'       *   FILE 369
//*                SMF EXIT ROUTINE PUTS JOB SUMMARY                *   FILE 369
//*              MESSAGES ON THE JOB LOG WITH STEP                  *   FILE 369
//*              TERMINATION STATUS.  THIS IS THE SP IPO            *   FILE 369
//*              EXIT, DIDDLED TO WORK UNDER XA.                    *   FILE 369
//*                                                                 *   FILE 369
//*    IEFUSI   'MEMLIMIT - IEFUSI EXIT TO SET REGION AND           *   FILE 369
//*              GETMAIN PARAMETERS AVOID 40D ABENDS WHEN           *   FILE 369
//*              USING A REGION GREATER THAN 32 MEG.  SET           *   FILE 369
//*              LIMITS FOR REGION AND GETMAINS.  THE IEFUSI        *   FILE 369
//*              LIMIT FLAG IS SET ON IN THE VSM PARAMETER          *   FILE 369
//*              LIST.  THIS ENABLES VSM LOGIC TO SET REGION        *   FILE 369
//*              AND GETMAIN LIMITS.  NO SPECIFIC VALUES ARE        *   FILE 369
//*              SET.  THIS EXIT ADDRESSES A PROBLEM WHICH          *   FILE 369
//*              CAUSES ADDRESS SPACES TO FAIL WHEN A V-FORM        *   FILE 369
//*              GETMAIN IS ISSUED WHICH GETS THE ENTIRE            *   FILE 369
//*              PRIVATE AREA BELOW THE 16M LINE.  ITS              *   FILE 369
//*              PURPOSE IS TO RESERVE FOR SYSTEM USE (E.G.,        *   FILE 369
//*              ABTERM) A REASONABLE AMOUNT OF STORAGE.            *   FILE 369
//*                                                                 *   FILE 369
//*    IKJEFF10 TITLE 'IKJEFF10 - TSO/E SUBMIT EXIT                 *   FILE 369
//*             ROUTINE.'  WE USE THIS EXIT TO INSERT A             *   FILE 369
//*             COMMENT CARD AFTER EACH JOB CARD THAT NAMES         *   FILE 369
//*             THE JCL SOURCE DATASET.  THUS:                      *   FILE 369
//*                                                                 *   FILE 369
//*               //* SUBMITTED FROM ISPF EDIT OF                   *   FILE 369
//*               USERID.TEST.CNTL(IEFBR14)                         *   FILE 369
//*                                                                 *   FILE 369
//*             THIS ALLOWS THE DEBUGGER TO RELATE A JCL            *   FILE 369
//*             LISTING BACK TO THE LIBRARY FROM WHICH THE          *   FILE 369
//*             JOB WAS SUBMITTED.                                  *   FILE 369
//*                                                                 *   FILE 369
//*    IKJEFF53 TITLE ' FIB INSTALLATION EXIT' VALIDITY             *   FILE 369
//*             CHECKS JOBNAME ON A CANCEL, OUTPUT OR STATUS        *   FILE 369
//*             FIB (FOREGROUND INITIATED BACKGROUND)               *   FILE 369
//*             COMMAND.  USES AN ACF2 GENERALIZED RESOURCE         *   FILE 369
//*             RULE TEST, SO THE ACCESS RULES CAN BE               *   FILE 369
//*             CHANGED WITH ACF2 COMMANDS INSTEAD OF               *   FILE 369
//*             REASSEMBLY AND RELOAD OF IKJEFF53.                  *   FILE 369
//*                                                                 *   FILE 369
//*    ISPFPRTO TITLE 'PRINTOFF SUBCOMMAND OF BROWSE & EDIT         *   FILE 369
//*             ' THIS CLIST, PLUS AN ENTRY IN THE ISPTLIB          *   FILE 369
//*             MEMBER, "ISPCMDS," WILL PRINT THE DATASET           *   FILE 369
//*             BEING BROWSED OR EDITED.  THUS: COMMAND ==>         *   FILE 369
//*             PRINTO INSTEAD OF:  COMMAND ==> TSO PRINTO          *   FILE 369
//*             ENDLESS.GODDAM.DATASET.NAME NEEDS ISRBROBF          *   FILE 369
//*             AND ISREDDE REPLACEMENT PANELS IN THIS PDS.         *   FILE 369
//*                                                                 *   FILE 369
//*    ISFUSER  SDSF - ACF2 INTERFACE                               *   FILE 369
//*             WITH THIS INTERFACE, SDSF AND OUTPUT OBEY           *   FILE 369
//*             THE SAME RULES -- WHO CAN DO WHAT, AND WITH         *   FILE 369
//*             WHICH, AND TO WHOM?  IKJEFF53 AND ISFUSER           *   FILE 369
//*             BOTH CHECK THE SAME ACF2 GRO RULES.                 *   FILE 369
//*                                                                 *   FILE 369
//*    ISRPID TITLE 'ISRPID - FETCH THE CURRENT ISPF PANELID.'      *   FILE 369
//*             THIS ROUTINE RUNS UNDER THE ISPF DIALOG             *   FILE 369
//*             MANAGER AND RETURNS THE NAME OF THE CURRENT         *   FILE 369
//*             PANEL IN DIALOG VARIABLE PANELID.  IT WAS           *   FILE 369
//*             DESIGNED FOR USE BY THE PRINTO SUBCOMMAND OF        *   FILE 369
//*             EDIT AND BROWSE, ALSO IN THIS FILE.                 *   FILE 369
//*                                                                 *   FILE 369
//*    ISRUOL   A FULL SCREEN 3.8 REPLACEMENT THAT ALLOWS           *   FILE 369
//*             MANIPULATION OF JOBS/SYSOUT WITHOUT THE HASSLE      *   FILE 369
//*             OF AWKWARD "JOB(JOBNUM)" SPECIFICATIONS.            *   FILE 369
//*             REQUIRES TSO/E.                                     *   FILE 369
//*                                                                 *   FILE 369
//*    ISRUDLP  ISPF 3.4 MOD                                        *   FILE 369
//*             DEFAULTS TO SEARCH UNDER YOUR USERID.  THUS         *   FILE 369
//*             "=3.4;;" WILL DISPLAY WHAT YOU GET WITH,            *   FILE 369
//*             "=3.4 **ENTER** **TAB** MYUSERID **ENTER**".        *   FILE 369
//*             THIS PANEL ALSO HAS MODS TO SUPPORT BEING           *   FILE 369
//*             CALLED AS A LINE COMMAND FROM FDSPACE.              *   FILE 369
//*                                                                 *   FILE 369
//*    ISTAUCAG TITLE 'VTAM SESSION ACCOUNTING EXIT ROUTINE.'       *   FILE 369
//*             DESCRIPTION - THIS EXIT IS DOCUMENTED IN THE        *   FILE 369
//*             ACF/VTAM CUSTOMIZATION MANUAL (SC27-0613).  WHAT    *   FILE 369
//*             WE DO IN THIS EXIT IS BANG OUT AN SMF RECORD        *   FILE 369
//*             (TYPE 240) THAT CONTAINS ALL RELEVANT               *   FILE 369
//*             INFORMATION PASSED TO US.  THIS INCLUDES            *   FILE 369
//*             PRIMARY AND SECONDARY LU NAMES.  RECORD IS          *   FILE 369
//*             IN RELOCATE FORMAT (SECTIONS WITH A HEADER          *   FILE 369
//*             CONTAIN OFFSET, LENGTH, AND NUMBER).  PLEASE        *   FILE 369
//*             NOTE THAT THE RECORD IS IN A FORMAT COMPATIBLE      *   FILE 369
//*             WITH THE VECTORS THAT WILL BE OUTPUT BY THE         *   FILE 369
//*             VTAM SESSION MANAGEMENT EXIT ROUTINE WE WILL        *   FILE 369
//*             USE WHEN VTAM 2.2 IS IMPLEMENTED.                   *   FILE 369
//*                                                                 *   FILE 369
//*    JESXIT9 - TITLE 'JES2 EXIT9 - OUTPUT EXCEEDED EXIT.'         *   FILE 369
//*        DESCRIPTION -                                            *   FILE 369
//*             THIS IS THE OUTPUT EXCEEDED JES EXIT.  OUR          *   FILE 369
//*             INSTALLATION DOES NOT BY DEFAULT CANCEL JOBS        *   FILE 369
//*             THAT EXCEED OUTPUT.  THIS EXIT PROMPTS THE          *   FILE 369
//*             OPERATOR ABOUT EVERY 100,000 LINES EXCEEDED TO      *   FILE 369
//*             CANCEL THE JOB OR ALLOW THE JOB TO CONTINUE.        *   FILE 369
//*             THUS WE CAN PREVENT RUNAWAY JOBS FROM FILLING       *   FILE 369
//*             UP SPOOL SPACE.                                     *   FILE 369
//*                                                                 *   FILE 369
//*    LM00501  FORCE JES2 TO RELOAD 6-LPI FCB AFTER 8-LPI          *   FILE 369
//*             DATASET PRINTS.  JES2 WILL ONLY RELOAD THE          *   FILE 369
//*             3211 FCB WITH A STANDARD FCB, IF THE CURRENT        *   FILE 369
//*             LOAD IS MARKED NON-STANDARD.  THIS MEANS, A         *   FILE 369
//*             JOB THAT DOESN'T SPECIFY A FCB WILL PRINT AT        *   FILE 369
//*             THE DENSITY OF THE PRECEDING DATASET,               *   FILE 369
//*             WHATEVER IT MAY BE.  THE SOLUTION IS TO             *   FILE 369
//*             LEAVE ONLY THE 6-LPI FCB MARKED STANDARD.           *   FILE 369
//*                                                                 *   FILE 369
//*    LM01602  TITLE 'LM01602 -- I/O COUNTS IN DEALLOCATION        *   FILE 369
//*             MESSAGES'                                           *   FILE 369
//*                                                                 *   FILE 369
//*                IEF285I SYS1.DATASET        KEPT *----2,301      *   FILE 369
//*                                                                 *   FILE 369
//*             I/O COUNT IN MSGS IEF283I, IEF285I, IEF287I         *   FILE 369
//*             UPDATED FOR XA.  IEFAB4B0 AT JBB2110,               *   FILE 369
//*             IEFAB4A2 AT JBB2125 ADDED LOOP TO SUM UP            *   FILE 369
//*             COUNTS WHEN MULTIPLE UNITS ARE ALLOCATED.           *   FILE 369
//*             ENHANCED TO SHOW COUNTS FOR VIO DATASETS.           *   FILE 369
//*                                                                 *   FILE 369
//*             NOTE: THIS ZAP DEPENDS ON THE HOWARD GILBERT        *   FILE 369
//*                  ASMTOZAP, ALSO IN THIS FILE.  ACCEPT NO        *   FILE 369
//*                  SUBSTITUTES.                                   *   FILE 369
//*                                                                 *   FILE 369
//*    LM02701  TITLE 'ZAP TO IGG01946 FOR TCAM OPENQ SMF           *   FILE 369
//*             RECORD.'                                            *   FILE 369
//*                                                                 *   FILE 369
//*    LM02801  TITLE 'ZAP TO IGG02046 FOR TCAM CLOSEQ SMF          *   FILE 369
//*             RECORD.'  DESCRIPTION - THESE TWO ZAPS WRITE        *   FILE 369
//*             AN SMF240 RECORD FOR EACH OPEN OR CLOSE OF A        *   FILE 369
//*             TCAM APPLICATION Q.                                 *   FILE 369
//*                                                                 *   FILE 369
//*             NOTE: THIS ZAP DEPENDS ON THE HOWARD GILBERT        *   FILE 369
//*                  ASMTOZAP, ALSO IN THIS FILE.  ACCEPT NO        *   FILE 369
//*                  SUBSTITUTES.                                   *   FILE 369
//*                                                                 *   FILE 369
//*    NONDESC  TITLE 'NONDESC - WTO EXIT TO MAKE ACTION            *   FILE 369
//*             MESSAGES ROLLABLE DESCRIPTION - IF EITHER           *   FILE 369
//*             DESC=1 OR DESC=2 FLAGS ARE ON, WE TURN THEM         *   FILE 369
//*             OFF, MAKING THE MESSAGE ROLLABLE.  THIS EXIT        *   FILE 369
//*             WAS ORIGINALLY DESIGNED TO MAKE SELECTED            *   FILE 369
//*             GARBAGE MESSAGES FROM PROPRIETARY SOFTWARE,         *   FILE 369
//*             ROLLABLE.  THIS EXIT IS WELL DOCUMENTED IN          *   FILE 369
//*             THE USER EXITS SPL, GC28-1147.                      *   FILE 369
//*                                                                 *   FILE 369
//*    PRCJFCB  TITLE 'PRCJFCB -- READ JOB-FILE CONTROL             *   FILE 369
//*             BLOCK'  PURPOSE:  THIS SUBROUTINE MOVES THE         *   FILE 369
//*             JOB-FILE CONTROL BLOCK FOR A CALLER INTO AN         *   FILE 369
//*             AREA ACCESSIBLE FROM HIGH-LEVEL LANGUAGE.           *   FILE 369
//*                                                                 *   FILE 369
//*    PRC38DSN TITLE  'STORE THE DSN FOR A DDNAME IN A             *   FILE 369
//*             DIALOG VARIABLE.'  THIS ROUTINE RUNS UNDER          *   FILE 369
//*             CONTROL OF THE ISPF DIALOG MANAGER.  GIVEN          *   FILE 369
//*             AN ALLOCATED DDNAME VIA THE PARM FIELD, WE          *   FILE 369
//*             RETURN THE DSN AND VOLSER IN DIALOG                 *   FILE 369
//*             VARIABLES OUTDSN AND OUTVOL.  DESIGNED FOR          *   FILE 369
//*             USE IN THE PRC 3.8 REPLACEMENT CLISTS SO WE         *   FILE 369
//*             CAN USE VIO FOR OUR TEMPORARY FILES.                *   FILE 369
//*                                                                 *   FILE 369
//*               ISPEXEC SELECT PGM(PRC38DSN) PARM(DDNAME)         *   FILE 369
//*               ISPEXEC VGET (OUTDSN OUTVOL)                      *   FILE 369
//*                                                                 *   FILE 369
//*    PRINTSEP TITLE  'APS JES2 EXITS: CUSTOM PRINTER BANNER       *   FILE 369
//*             SEPARATOR PAGE' CUSTOM PRINT SEPARATOR EXIT         *   FILE 369
//*             ROUTINES.  PUTS ACF2 UID OF JOB OWNER IN            *   FILE 369
//*             BANNER, AS WELL AS JOB NAME.                        *   FILE 369
//*                                                                 *   FILE 369
//*             1.  ENTRY SEPEX1 IS TO BE INVOKED AT                *   FILE 369
//*                 STANDARD JES2 EXIT 1.                           *   FILE 369
//*             2.  ENTRY SEPEX222 IS TO BE INVOKED AT              *   FILE 369
//*                 ACF2-GENERATED JES2 EXIT 222 BEFORE THE         *   FILE 369
//*                 STANDARD ACF2X2J2 FUNCTION.                     *   FILE 369
//*             3.  THE ACF2 LOGON ID IS PASSED IN 8 BYTES          *   FILE 369
//*                 OF JCTUSER.  CURRENTLY WE'RE USING THE 8        *   FILE 369
//*                 BYTES FOLLOWING WHATEVER FIELD ACF2 IS          *   FILE 369
//*                 USING.                                          *   FILE 369
//*             4.  THE LOGOS ARE IN LOWER CASE.  TAKE CARE         *   FILE 369
//*                 WITH THE EDITOR IF YOU MAKE CHANGES.            *   FILE 369
//*                                                                 *   FILE 369
//*    QALLOC - ALLOCATE A TCAM QUEUE.                              *   FILE 369
//*      DESCRIPTION - WE DRIVE THE DYNAM PGM TO ALLOCATE A         *   FILE 369
//*             TCAM Q FROM TSO.  PLEASE NOTE THAT THE ALLOCATE     *   FILE 369
//*             COMMAND DOES NOT SUPPORT THIS.  CALL                *   FILE 369
//*             'MY.LOAD.LIB(QALLOC)' 'DD=SYSUT1 QNAME=MYQNAME      *   FILE 369
//*             OPTCD=C ;'  PLEASE NOTE THAT THE PARM FIELD IS      *   FILE 369
//*             PASSED UNEDITED TO THE DYNAM PGM.  DON'T FORGET     *   FILE 369
//*             THE ';' TO TERMINATE IT!                            *   FILE 369
//*                                                                 *   FILE 369
//*             THE DYNAM PROGRAM FROM THE UNIVERSITY OF MANITOBA   *   FILE 369
//*             IS ON SEVERAL CBT FILES.  I BELIEVE OURS CAME FROM  *   FILE 369
//*             CBT FILE 360.  (FILE 089 IS DEVOTED TO DYNAM.  SG)  *   FILE 369
//*                                                                 *   FILE 369
//*    QFLUSH - FLUSH A TCAM QUEUE.                                 *   FILE 369
//*      DESCRIPTION - THIS UTILITY FLUSHES RECORDS FROM A          *   FILE 369
//*             TCAM INPUT QUEUE THAT IS ALLOCATED TO THE SYSUT1    *   FILE 369
//*             FILE.  IT WRITES THESE RECORDS TO THE SYSUT2 FILE   *   FILE 369
//*             IF IT'S FOUND ALLOCATED.  THIS PGM CAN BE RUN       *   FILE 369
//*             FROM THE OPERATOR CONSOLE WHEN A QUEUE IS FOUND     *   FILE 369
//*             TO BE CLOGGED UP WITH MESSAGES.                     *   FILE 369
//*      TO USE -                                                   *   FILE 369
//*                                                                 *   FILE 369
//*        //QFLUSH PROC Q=BADQNAME,TCAM=TCAM,OUTDSN=NULLFILE       *   FILE 369
//*        //S1     EXEC PGM=QFLUSH                                 *   FILE 369
//*        //SYSUT1 DD   QNAME=&Q..&TCAM                            *   FILE 369
//*        //SYSUT2 DD   DSN=&OUTDSN,DISP=(,CATLG,DELETE),          *   FILE 369
//*        // SPACE=(TRK,(10,5),RLSE),DCB=(RECFM=VB,LRECL=4024,     *   FILE 369
//*        // BLKSIZE=23200),UNITS=SYSTS                            *   FILE 369
//*                                                                 *   FILE 369
//*       THE OPERATOR CAN ENTER: "S QFLUSH,Q=MYQUEUE"  (CVT)       *   FILE 369
//*                                                                 *   FILE 369
//*                       FLUSH,Q=MYQUEUE,TCAM=MYTCAM"  (ASCB)      *   FILE 369
//*                                                                 *   FILE 369
//*    RECEIVED TITLE 'RECEIVE NOTIFY EXIT'                         *   FILE 369
//*             FUNCTION     PROVIDE NOTIFICATION OF                *   FILE 369
//*                          RECEIVED MESSAGE.                      *   FILE 369
//*                                                                 *   FILE 369
//*    REPLYTO - 'RESPOND TO AN OUTSTANDING WTOR.'  THIS            *   FILE 369
//*             PROGRAM WILL ISSUE A CANNED REPLY TO A SELECTED     *   FILE 369
//*             WTOR MESSAGE.  WE USE IT TO SYNCH PROCESSING        *   FILE 369
//*             BETWEEN ADABAS AND THE ADABAS LOG UTILITY.  IT      *   FILE 369
//*             ACCEPTS AS INPUT THE WTOR MESSAGE TEXT, THE         *   FILE 369
//*             CANNED REPLY MESSAGE TEXT, AND OPTIONALLY THE       *   FILE 369
//*             JOBNAME OF THE WTOR ISSUER, ALONG WITH OTHER        *   FILE 369
//*             MISC. OPTIONS, AS DESCRIBED BELOW.                  *   FILE 369
//*                                                                 *   FILE 369
//*       (FIXED BY ALAN FIELD AND ED BILLOWITZ TO HANDLE           *   FILE 369
//*        4-CHARACTER REPLY IDS.   SG-10/98)                       *   FILE 369
//*                                                                 *   FILE 369
//*        FOR EXAMPLE, THE FOLLOWING JOB STEP:                     *   FILE 369
//*                                                                 *   FILE 369
//*          //S1 EXEC PGM=REPLYTO,                                 *   FILE 369
//*          // PARM='J=ADA8|M=ADA040A|R=OK'                        *   FILE 369
//*                                                                 *   FILE 369
//*             WILL REPLY "OK" TO A WTOR MESSAGE BEGINNING         *   FILE 369
//*             "ADA040A" THAT IS ISSUED BY JOB ADA8.               *   FILE 369
//*                                                                 *   FILE 369
//*        EXEC PGM=REPLYTO,PARM='MSG=MMMMMMMM...|                  *   FILE 369
//*                               REPLY=RRRRRRRR...|                *   FILE 369
//*                               ABEND=YES/NO|                     *   FILE 369
//*                               COLUMN=99|                        *   FILE 369
//*                               JOB=JJJJJJJJ|                     *   FILE 369
//*                               TIME=999|                         *   FILE 369
//*                               WAIT=YES/NO'                      *   FILE 369
//*                                                                 *   FILE 369
//*    SD       PUNCH DIRECTORY OF PDS INTO SEQUENTIAL              *   FILE 369
//*             DATASET NON-MODAL COMMAND TO FORMAT THE             *   FILE 369
//*             DIRECTORY INTO A DATASET FOR SUBSEQUENT             *   FILE 369
//*             EDITING, OR TO THE SCREEN.                          *   FILE 369
//*                                                                 *   FILE 369
//*    SID      TITLE 'SID - THIS PGM RETURNS SID INDICATOR         *   FILE 369
//*             IN R15' THE INTENT OF THIS PROGRAM IS TO            *   FILE 369
//*             ALLOW JOBS TO EXECUTE DIFFERENT STEPS BASED         *   FILE 369
//*             ON THE SYSTEM ON WHICH THEY ARE RUN.                *   FILE 369
//*                                                                 *   FILE 369
//*    SITEID   TITLE 'SITEID - SET RETURN CODE BASED ON JES2       *   FILE 369
//*             SPOOL NODE NAME' THE INTENT OF THIS PROGRAM IS      *   FILE 369
//*             TO ALLOW JOBS TO EXECUTE DIFFERENT STEPS BASED      *   FILE 369
//*             ON THE SITE AT WHICH THEY ARE RUN.                  *   FILE 369
//*                                                                 *   FILE 369
//*    SMF240   PURPOSE:  MAP USER SMF RECORD 240                   *   FILE 369
//*                                                                 *   FILE 369
//*    SPY      TITLE 'S P Y --  MVS CONSOLE SPY PROGRAM  --        *   FILE 369
//*             VERSION 3.1' THIS PROGRAM DISPLAYS THE              *   FILE 369
//*             CONTENTS OF ALL ACTIVE GRAPHIC OPERATOR'S           *   FILE 369
//*             CONSOLES ON A TSO CRT.  THE OPERATOR'S SCREEN       *   FILE 369
//*             CAN BE EITHER A 327X OR A 370-168 INTEGRATED        *   FILE 369
//*             CONSOLE WITH 35 LINES.  THE TSO USER CAN USE        *   FILE 369
//*             ANY 327X TERMINAL.  HEAVILY MODIFIED FOR XA         *   FILE 369
//*             AT PRC.                                             *   FILE 369
//*                                                                 *   FILE 369
//*    SRCDOC   ADD DOCUMENTATION TO LMF-MANAGED MEMBERS            *   FILE 369
//*             CREATES AN EYE-CATCHER OF ISPF STATS AND            *   FILE 369
//*             PROMOTION TIME IN THE OBJECT CODE OF A              *   FILE 369
//*             PROMOTED MODULE;                                    *   FILE 369
//*                                                                 *   FILE 369
//*             SRCLEVEL DC    C'IGC0022F V01.M05 85/09/26          *   FILE 369
//*                              17:57 PSYRRS  '                    *   FILE 369
//*                                                                 *   FILE 369
//*             THE SHARED POOL IS ACCESSED TO GET THE              *   FILE 369
//*             MEMBER NAME AND LOW LEVEL QUALIFIER                 *   FILE 369
//*             (LANGUAGE TYPE).  THE LM DIALOG SERVICES ARE        *   FILE 369
//*             THEN USED TO ACCESS VERSION, MODIFICATION           *   FILE 369
//*             LEVEL, DATE, TIME, AND TSO LOGON FROM THE           *   FILE 369
//*             PDS DIRECTORY.  THE INPUT MEMBER IS OPENED          *   FILE 369
//*             FOR UPDATE AND READ.  WHEN THE EXISTING             *   FILE 369
//*             TRIGGER RECORD OR SEQUENCE IS FOUND, THE            *   FILE 369
//*             RECORD IS UPDATED AND REWRITTEN.  NOTE: THIS        *   FILE 369
//*             ROUTINE IS INVOKED FROM THE PROMOTION EXIT          *   FILE 369
//*             DEFINED TO LMF IN THE PROMOTION HIERARCHY,          *   FILE 369
//*             (PANEL 8.5).  THE CLIST, "LMFAPSEX," ALSO IN        *   FILE 369
//*             THIS FILE, IS THE EXIT WE USE.  THIS CLIST          *   FILE 369
//*             WILL NOT WORK FOR YOU WITHOUT MODIFICATION.         *   FILE 369
//*             FOR INSTANCE, YOU WON'T NEED THE "IMP"              *   FILE 369
//*             PRE-PROCESSOR CALL, AND YOUR SYSLIB                 *   FILE 369
//*             CONCATENATION IS GONNA' BE DIFFERENT.               *   FILE 369
//*                                                                 *   FILE 369
//*    SUBAUTHX TITLE 'SUBAUTHX - CHECK FOR AUTHORIZED JOB          *   FILE 369
//*           SUBMISSION PROGRAM'                                   *   FILE 369
//*                                                                 *   FILE 369
//*             FUNCTION   CHECK FOR AUTHORIZED JOB                 *   FILE 369
//*                        SUBMISSION PROGRAM PROVIDES ACF2         *   FILE 369
//*                        "JOBCOPY" FUNCTION FROM WITHIN           *   FILE 369
//*                        ISPF                                     *   FILE 369
//*                                                                 *   FILE 369
//*             OPERATION  IF THE SUBMITTING PROGRAM IS             *   FILE 369
//*                        REENTRANT AND COMES                      *   FILE 369
//*                                                                 *   FILE 369
//*                        FROM AN APF-AUTHORIZED LIBRARY,          *   FILE 369
//*                        THE BIT IN THE ACF DCT EXTENSION         *   FILE 369
//*                        IS SET TO ALLOW THE 'SUBAUTH'            *   FILE 369
//*                        RESTRICTION TO BE MET.                   *   FILE 369
//*                                                                 *   FILE 369
//*             NOTES      THIS EXIT EXTENDS THE FUNCTIONS          *   FILE 369
//*                        PROVIDED BY ACF2 EXIT ACF2XIRD           *   FILE 369
//*                        (INTERNAL READER OPEN) PACKAGED IN       *   FILE 369
//*                        LOAD MODULE ACF2X1J2.  THE EXIT          *   FILE 369
//*                        POINT IS INSERTED IN HASPSSSM AS         *   FILE 369
//*                        PART OF ACF2 INSTALLATION (RELEASE       *   FILE 369
//*                        4.0).  THE ORIGINAL EXIT IS              *   FILE 369
//*                        DESIGNED TO CAPTURE THE SUBMITTING       *   FILE 369
//*                        ENVIRONMENT WHEN INTRDR IS OPENED.       *   FILE 369
//*                        THE PROGRAM NAME AND ITS APF             *   FILE 369
//*                        AUTHORIZATION ARE AMONG THE DATA         *   FILE 369
//*                        PRESERVED.  THESE DATA ARE THEN          *   FILE 369
//*                        USED DURING ACF2 ENTRY VALIDATION,       *   FILE 369
//*                        USUALLY FOR A LID WITH THE RESTRICT      *   FILE 369
//*                        ATTRIBUTE.  THE PROGRAM NAME IS          *   FILE 369
//*                        MATCHED WITH THE PROGRAM SPECIFIED       *   FILE 369
//*                        IN THE LID, AND APF AUTHORIZATION        *   FILE 369
//*                        IS REQUIRED IF THE LID ALSO HAS          *   FILE 369
//*                        SUBAUTH SPECIFIED.                       *   FILE 369
//*                                                                 *   FILE 369
//*    TCAMFIX DESCRIPTION - THIS ROUTINE CLEANS UP THE             *   FILE 369
//*            CVTAQAVB FIELD SO TCAM WILL INITIALIZE.  THE         *   FILE 369
//*            CVT-BASED TCAM IS SUPPOSED TO DO THIS WHEN IT        *   FILE 369
//*            TERMINATES, BUT IT ISN'T ALWAYS SO OBLIGING.         *   FILE 369
//*            IF THE OPERATOR RESPONDS "Y" TO OUR MESSAGE          *   FILE 369
//*            IEDPRC1D, THEN WE ZERO THIS FIELD.  NOTE - WE        *   FILE 369
//*            MUST RUN APF-AUTHORIZED.                             *   FILE 369
//*                                                                 *   FILE 369
//*    TLBLMAIN TITLE 'TLBLMAIN -- MAIN MODULE FOR TAPE             *   FILE 369
//*                                LABEL WRITER'                    *   FILE 369
//*                                                                 *   FILE 369
//*             FUNCTION     PROCESS REQUESTS TO PRINT              *   FILE 369
//*                          EXTERNAL TAPE LABELS PRINT TAPE        *   FILE 369
//*                          LABELS AT TAPE MOUNT TIME              *   FILE 369
//*                          WITHOUT A TAPE MANAGEMENT              *   FILE 369
//*                          SYSTEM.                                *   FILE 369
//*                                                                 *   FILE 369
//*             OUTPUT       LABEL PRINTED ON 328X-TYPE             *   FILE 369
//*                          PRINTER VIA VTAM                       *   FILE 369
//*                                                                 *   FILE 369
//*    WAIT   TITLE 'WAIT - WAIT A LITTLE BIT.' THIS MODULE         *   FILE 369
//*           WILL WAIT THE REQUESTED NUMBER OF SECONDS.            *   FILE 369
//*           PARM='NNNN', WHERE 0 < NNNN <= 9999, THE NUMBER       *   FILE 369
//*           OF SECONDS TO WAIT.  DEFAULT IS 10 SECONDS.           *   FILE 369
//*                                                                 *   FILE 369
//*    WTO      TITLE 'WTO    - OPERATIONS COMMUNICATION'           *   FILE 369
//*             THIS PROGRAM PROVIDES PROGRAMMER TO OPERATOR        *   FILE 369
//*             COMMUNICATION.  THIS IS THE IPO "WTO"               *   FILE 369
//*             DIDDLED TO ALLOW GREATER THAN 72 BYTE               *   FILE 369
//*             MESSAGES.                                           *   FILE 369
//*                                                                 *   FILE 369
//*    WTONR    TITLE 'WTONR - WRITE NON-ROLLABLE OPERATOR          *   FILE 369
//*                    MESSAGES.'                                   *   FILE 369
//*             DESCRIPTION - WE READ SYSIN INPUT AND WTO           *   FILE 369
//*               CARD IMAGES TO THE OPERATOR CONSOLE THAT          *   FILE 369
//*               ARE NON-ROLLABLE.  ORIGINALLY USED BY THE         *   FILE 369
//*               MESSENGER JOBS FOR AN OPERATOR RESTART.           *   FILE 369
//*                                                                 *   FILE 369
//*             NOTE - WE MUST BE APF-AUTHORIZED TO WRITE           *   FILE 369
//*                    NON-ROLLABLE MESSAGE                         *   FILE 369
//*                                                                 *   FILE 369
//*             TO USE -                                            *   FILE 369
//*              //S1 EXEC PGM=WTONR                                *   FILE 369
//*              //STEPLIB DD DSN=AN.APF.LIBRARY,DISP=SHR           *   FILE 369
//*              //SYSIN   DD *                                     *   FILE 369
//*              * THIS IS A COMMENT                                *   FILE 369
//*              ---> UP TO THREE LINES OF TEXT <---                *   FILE 369
//*              ---> AFTER THREE LINES IGNORED <---                *   FILE 369
//*              ---> COLS 1-72 ARE PROCESSED   <---                *   FILE 369
//*              /*                                                 *   FILE 369
//*                                                                 *   FILE 369
//***FILE 370 CONTAINS SYSTEM MODIFICATION TO ADD THE I/O COUNTS    *   FILE 370
//*           TO MESSAGE IEF2851I FOR VARIOUS LEVELS OF THE         *   FILE 370
//*           OPERATING SYSTEM THAT ARE NOT CONTAINED IN FILE 369   *   FILE 370
//*           OF THIS TAPE.                                         *   FILE 370
//*                 MEMBER     LEVEL                                *   FILE 370
//*                 ESA1       ESA                                  *   FILE 370
//*                                                                 *   FILE 370
//***FILE 371 IS FROM THE STATE OF WASHINGTON AND CONTAINS LOAD     *   FILE 371
//*           MODULES FROM THE SOURCE IN FILE 270 OF THIS TAPE      *   FILE 371
//*                                                                 *   FILE 371
//***FILE 372 is from Ken MacKenzie of NatWest bank in England,     *   FILE 372
//*           and contains a dynamic allocation program that is     *   FILE 372
//*           faster than the ALLOC program which comes with        *   FILE 372
//*           TSO.  It's also a bit different, so you should        *   FILE 372
//*           look to see if it's good for your purposes.           *   FILE 372
//*                                                                 *   FILE 372
//*           1.  DYNALLOC - The main (only) routine.               *   FILE 372
//*           2.  ASMTSTMP - A macro which is used to               *   FILE 372
//*                          insert a date/time stamp               *   FILE 372
//*                          into the load module.                  *   FILE 372
//*                                                                 *   FILE 372
//*           Contact information:                                  *   FILE 372
//*           Home Email: ken.mackenzie@tesco.net                   *   FILE 372
//*                     : ken.mackenzie@talk21.com                  *   FILE 372
//*           Work Email: ken.mackenzie@natwest.com                 *   FILE 372
//*           Work Phone: +44 (0) 20 7709 6365    (UK)              *   FILE 372
//*                                                                 *   FILE 372
//***FILE 373 IS FROM GTE LABS IN WALTHAM,  MASS AND CONTAINS TWO   *   FILE 373
//*           OF THEIR TSO COMMAND PROCESSORS.  NEWSPACE AND SAL,   *   FILE 373
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT                 *   FILE 373
//*                                                                 *   FILE 373
//*        THE "SAL" PROGRAM IS A FRIENDLIER REPLACEMENT FOR        *   FILE 373
//*        THE TSO "LISTALC" COMMAND.  "SAL" STANDS FOR "SHOW       *   FILE 373
//*        ALLOCATIONS."                                            *   FILE 373
//*                                                                 *   FILE 373
//*        SAL SHOWS DDNAME, DATASET NAME, STATUS, NORMAL           *   FILE 373
//*        DISPOSITION AND DATASET TYPE FOR EACH ALLOCATION.        *   FILE 373
//*        IT WAS DESIGNED TO PRODUCE MORE READABLE OUTPUT THAN     *   FILE 373
//*        "LISTALC."  ITS PRIMARY USE IS IN DEVELOPING CLISTS      *   FILE 373
//*        AND ISPF/PDF DIALOGS.                                    *   FILE 373
//*                                                                 *   FILE 373
//*        SAL USES DYNAMIC ALLOCATION INFORMATION RETRIEVAL TO     *   FILE 373
//*        GET INFORMATION ABOUT ALL CURRENT ALLOCATIONS.  SEE      *   FILE 373
//*        THE MVS JOB MANAGEMENT MANUAL FOR MORE INFO ON THIS      *   FILE 373
//*        USE OF DYNAMIC ALLOCATION.                               *   FILE 373
//*                                                                 *   FILE 373
//*        SAL WRITES TO FILE SYSPRINT, WHICH WOULD NORMALLY BE     *   FILE 373
//*        ALLOCATED TO THE USER'S TSO TERMINAL.  IT WORKS WITH     *   FILE 373
//*        SESSION MANAGER OR WITHOUT IT, AND IS WRITTEN TO BE      *   FILE 373
//*        REENTRANT.                                               *   FILE 373
//*                                                                 *   FILE 373
//*        THIS PACKAGE INCLUDES WELL-COMMENTED ASSEMBLER CODE      *   FILE 373
//*        (MEMBER "SAL"), MACROS ("XSAVE1," "XRETURN,"             *   FILE 373
//*        "REGISTER," "DYNABLD," AND "DYNATXTU"), AND A TSO        *   FILE 373
//*        HELP MEMBER ("SALHELP").                                 *   FILE 373
//*                                                                 *   FILE 373
//*     -------------------------------------------------------     * --FILE 373
//*                                                                 *   FILE 373
//*        NEWSPACE IS A COMMAND FOR EASILY CREATING NEW,           *   FILE 373
//*        MODERATELY SIZED, DATASETS AND LIBRARIES.  IT WAS        *   FILE 373
//*        WRITTEN WITH BEGINNERS IN MIND.  (LARGER OR MORE         *   FILE 373
//*        COMPLEX DATASETS SHOULD BE CREATED WITH THE ALLOCATE     *   FILE 373
//*        AND ATTRIB COMMANDS, OR WITH THE ISPF/PDF DATASET        *   FILE 373
//*        UTILITY (OPTION 3.2))                                    *   FILE 373
//*                                                                 *   FILE 373
//*     )X SYNTAX -                                                 *   FILE 373
//*          NEWSPACE  DATASET-NAME  TYPE  LIBRARY     FIXED        *   FILE 373
//*          NEW                           SEQUENTIAL  VARIABLE     *   FILE 373
//*                                                    UNFORMATTED  *   FILE 373
//*          DEFAULTS:  1.  LIBRARY                                 *   FILE 373
//*                     2.  FIXED, VARIABLE OR UNFORMATTED,         *   FILE 373
//*                         DEPENDING ON TYPE OR DATASET-NAME.      *   FILE 373
//*     )O OPERANDS -                                               *   FILE 373
//*     ))DATASET-NAME -                                            *   FILE 373
//*         THE NAME OF THE DATASET TO BE CREATED.                  *   FILE 373
//*     ))TYPE -                                                    *   FILE 373
//*         THIS DESIGNATES THE INTENDED USE OF THE DATASET.        *   FILE 373
//*     ))SEQUENTIAL -                                              *   FILE 373
//*         THE DATASET WILL BE CONSTRUCTED TO HOLD A SINGLE        *   FILE 373
//*         GROUP OF DATA, SUCH AS ONE FORTRAN PROGRAM, OR ONE      *   FILE 373
//*         MEMO.                                                   *   FILE 373
//*     ))LIBRARY (OR PARTITIONED, OR PDS) -                        *   FILE 373
//*         THE DATASET WILL BE CONSTRUCTED AS A LIBRARY            *   FILE 373
//*         (PARTITIONED DATASET) WHICH CAN HOLD MANY GROUPS OF     *   FILE 373
//*         DATA, SUCH AS MANY FORTRAN PROGRAMS OR MANY MEMOS.      *   FILE 373
//*         LIBRARY IS THE DEFAULT.                                 *   FILE 373
//*     ))FIXED -                                                   *   FILE 373
//*         ALL LINES OF DATA HAVE THE SAME LENGTH.  THIS IS        *   FILE 373
//*         THE DEFAULT IF NO 'TYPE' IS SELECTED AND THE            *   FILE 373
//*         DATASET NAME DOESN'T END WITH A 'TYPE' NAME.            *   FILE 373
//*     ))VARIABLE -                                                *   FILE 373
//*         EACH LINE OF DATA MAY BE A DIFFERENT LENGTH FROM        *   FILE 373
//*         THE REST.  IS THE DEFAULT IF ONE OF THESE TYPES IS      *   FILE 373
//*         SELECTED.                                               *   FILE 373
//*     ))UNFORMATTED -                                             *   FILE 373
//*         THIS IS THE FORMAT FOR LOAD DATASETS.                   *   FILE 373
//*                                                                 *   FILE 373
//***FILE 374 is from David Marsden of Perth, Australia, and        *   FILE 374
//*           contains a collection of SAS programs to read and     *   FILE 374
//*           interpret SMF records.  File 374 contains programs    *   FILE 374
//*           to look at IBM-produced SMF records.  File 375 adds   *   FILE 374
//*           some programs to look at vendor-produced SMF records  *   FILE 374
//*           (Huron and ObjectSTAR).                               *   FILE 374
//*                                                                 *   FILE 374
//*           David Marsden                                         *   FILE 374
//*           Currently working at CSC Australia                    *   FILE 374
//*           (East Perth Data Centre)                              *   FILE 374
//*                                                                 *   FILE 374
//*           email : dmarsden@one.net.au                           *   FILE 374
//*             web : www2.one.net.au/~dmarsden                     *   FILE 374
//*                                                                 *   FILE 374
//*            mail : P O Box 244                                   *   FILE 374
//*                   Hillarys                                      *   FILE 374
//*                   Western Australia 6923                        *   FILE 374
//*                                                                 *   FILE 374
//*           phone : 61 08 9421 6405 (work)                        *   FILE 374
//*                                                                 *   FILE 374
//*     This file contains:                                         *   FILE 374
//*                                                                 *   FILE 374
//*     SAS programs to read SMF mainly.                            *   FILE 374
//*                                                                 *   FILE 374
//*     Useful if you don't have MXG and want to do your own.       *   FILE 374
//*     You need the IBM SMF manual to understand what is being     *   FILE 374
//*     read. If you cannot locate a copy there are versions on     *   FILE 374
//*     the web you can freely access.                              *   FILE 374
//*                                                                 *   FILE 374
//*     The technique of using the triplets (offset, length,        *   FILE 374
//*     number) to get repeating data has caused much grief to      *   FILE 374
//*     those who want to read SMF using COBOL etc.                 *   FILE 374
//*                                                                 *   FILE 374
//*     Many of these were written years ago and may require        *   FILE 374
//*     some work to get them up to date - but SMF is generally     *   FILE 374
//*     upward compatible.  Thus they are most likely to be         *   FILE 374
//*     wrong in so far as they miss the stuff that has been        *   FILE 374
//*     added at the end or in the gaps that are sometimes left.    *   FILE 374
//*                                                                 *   FILE 374
//*     In addition, there are:                                     *   FILE 374
//*                                                                 *   FILE 374
//*     Some other non-SMF jobs, using code as supplied by SAS      *   FILE 374
//*     as examples to read disk VTOCs, PDS directories.            *   FILE 374
//*                                                                 *   FILE 374
//***FILE 375 is from David Marsden of Perth, Australia, and        *   FILE 375
//*           contains a collection of SAS programs to read and     *   FILE 375
//*           interpret SMF records.  File 374 contains programs    *   FILE 375
//*           to look at IBM-produced SMF records.  File 375 adds   *   FILE 375
//*           some programs to look at vendor-produced SMF records  *   FILE 375
//*           (Huron and ObjectSTAR).                               *   FILE 375
//*                                                                 *   FILE 375
//*      SAS programs to read Huron/ObjectSTAR SMF records.         *   FILE 375
//*                                                                 *   FILE 375
//*      They all assume that SMF records for Huron/ObjectSTAR      *   FILE 375
//*      have been separated out from other SMF into their own      *   FILE 375
//*      dataset.  See SAS program SMFEXTR in the other PDS of      *   FILE 375
//*      SAS programs for way to do this.  Alternatively add a      *   FILE 375
//*      SAS statement to select the appropriate SMF record         *   FILE 375
//*      type after the input is read.                              *   FILE 375
//*                                                                 *   FILE 375
//*           David Marsden                                         *   FILE 375
//*           Currently working at CSC Australia                    *   FILE 375
//*           (East Perth Data Centre)                              *   FILE 375
//*                                                                 *   FILE 375
//*           email : dmarsden@one.net.au                           *   FILE 375
//*             web : www2.one.net.au/~dmarsden                     *   FILE 375
//*                                                                 *   FILE 375
//*            mail : P O Box 244                                   *   FILE 375
//*                   Hillarys                                      *   FILE 375
//*                   Western Australia 6923                        *   FILE 375
//*                                                                 *   FILE 375
//*           phone : 61 08 9421 6405 (work)                        *   FILE 375
//*                                                                 *   FILE 375
//***FILE 376 contains the ZDF display system from David Marsden    *   FILE 376
//*           of Perth, Australia.  In addition, there are many     *   FILE 376
//*           other utilities in this file which can work either    *   FILE 376
//*           together with ZDF or as independent tools.  This      *   FILE 376
//*           file is therefore potentially very useful.            *   FILE 376
//*                                                                 *   FILE 376
//*           Look in the pds itself and the doc to see extra       *   FILE 376
//*           facts and learn about the extra utilities contained   *   FILE 376
//*           in this file.                                         *   FILE 376
//*                                                                 *   FILE 376
//*           David Marsden                                         *   FILE 376
//*           Currently working at CSC Australia                    *   FILE 376
//*           (East Perth Data Centre)                              *   FILE 376
//*                                                                 *   FILE 376
//*           email : dmarsden@one.net.au                           *   FILE 376
//*             web : www2.one.net.au/~dmarsden                     *   FILE 376
//*                                                                 *   FILE 376
//*            mail : P O Box 244                                   *   FILE 376
//*                   Hillarys                                      *   FILE 376
//*                   Western Australia 6923                        *   FILE 376
//*                                                                 *   FILE 376
//*           phone : 61 08 9421 6405 (work)                        *   FILE 376
//*                                                                 *   FILE 376
//*       --------------------------------------------------------  *   FILE 376
//*                                                                 *   FILE 376
//*       ZDF and most add-ons work for up to OS 390 v 2.6.         *   FILE 376
//*                                                                 *   FILE 376
//*       Callable interfaces are used where possible so it does    *   FILE 376
//*       not matter what the MVS version is.                       *   FILE 376
//*                                                                 *   FILE 376
//*       ZDF was updated from XDF as distributed on CBT many       *   FILE 376
//*       years ago.                                                *   FILE 376
//*                                                                 *   FILE 376
//*       There is a lot of stuff in add-ons already on CBT but     *   FILE 376
//*       those here are maybe mofified by me.                      *   FILE 376
//*                                                                 *   FILE 376
//*        - as well as ZDF, UDF (display devices)                  *   FILE 376
//*        and EDJES3 (ISPF JES3 console with nice help)            *   FILE 376
//*                   are worth a good look.                        *   FILE 376
//*                                                                 *   FILE 376
//*       (The add-ons are called from the top line of the ZDF      *   FILE 376
//*        panel display - they can be called as TSO commands       *   FILE 376
//*        but some rely on panels in the PDS which is ISPPLIB      *   FILE 376
//*        LIBDEFed when ZDF is called.  You can fix that by        *   FILE 376
//*        copying the panels to a d/s in ISPPLIB defn.)            *   FILE 376
//*                                                                 *   FILE 376
//*        ZDF displays :                                           *   FILE 376
//*        _____________                                            *   FILE 376
//*                                                                 *   FILE 376
//*        . CPU utilisation as seen by SRM                         *   FILE 376
//*        . avail frame count                                      *   FILE 376
//*        . total paging rate                                      *   FILE 376
//*        . UIC                                                    *   FILE 376
//*        . memory estimate                                        *   FILE 376
//*        . TSO period details (if source adjusted to skip         *   FILE 376
//*                              correct # of performance groups    *   FILE 376
//*                              in IPS - see line                  *   FILE 376
//*                 LA    R5,13      ** PERFORM GROUP SKIP **  )    *   FILE 376
//*        . speed constant                                         *   FILE 376
//*        . # of CPUs and LPAR #                                   *   FILE 376
//*        . total CPU calculated as sum of all ASCBs CPU/elapse    *   FILE 376
//*          time - thus max 300% say for 3 CPUs if all CPU         *   FILE 376
//*          available to an LPAR.                                  *   FILE 376
//*        . ASCB details (job name, # EXCPs, memory status, pg,    *   FILE 376
//*          dispatching priority, %CPU and CPU).                   *   FILE 376
//*                                                                 *   FILE 376
//***FILE 377 is from Ed Jaffe of Los Angeles, California, and      *   FILE 377
//*           contains some modifications to TSO, so you can start  *   FILE 377
//*           TCAS under SUB=MSTR.  In other words, you can run     *   FILE 377
//*           TSO without JES.  This is an excellent recovery       *   FILE 377
//*           tool, if you have it set up at your shop.             *   FILE 377
//*                                                                 *   FILE 377
//*           This code is running on OS/390 Release 2.7, and       *   FILE 377
//*           has been stable for many years.                       *   FILE 377
//*                                                                 *   FILE 377
//*           There is also a REXX exec called TL on this file,     *   FILE 377
//*           which builds JCL to label a tape, and submits it      *   FILE 377
//*           to the internal reader.                               *   FILE 377
//*                                                                 *   FILE 377
//*           Edward E. Jaffe                                       *   FILE 377
//*           Mgr., Research & Development                          *   FILE 377
//*           Phoenix Software International                        *   FILE 377
//*           5200 W. Century Blvd., Suite 800                      *   FILE 377
//*           Los Angeles, CA 90045                                 *   FILE 377
//*                                                                 *   FILE 377
//*           Voice:      (310) 338-0400 x318                       *   FILE 377
//*           Facsimile:  (310) 338-0801                            *   FILE 377
//*           Internet:   edjaffe@phoenixsoftware.com               *   FILE 377
//*           IBM Mail:   USS24J24 at IBMMAIL                       *   FILE 377
//*           Web page:   www.phoenixsoftware.com                   *   FILE 377
//*                                                                 *   FILE 377
//***FILE 378 is from Steve Kowalski of the Johannesburg Stock      *   FILE 378
//*           Exchange, and contains SORTTRAK, a program to         *   FILE 378
//*           report information from DFSORT SMF records.           *   FILE 378
//*                                                                 *   FILE 378
//*                Szczepan (Steve) Kowalski                        *   FILE 378
//*                The Johannesburg Stock Exchange                  *   FILE 378
//*                17 Diagonal St., Johannesburg                    *   FILE 378
//*                Republic of South Africa                         *   FILE 378
//*                email: stevek@jse.co.za                          *   FILE 378
//*                                                                 *   FILE 378
//*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  *   FILE 378
//*                                                                 *   FILE 378
//*                        SORTTRAK                                 *   FILE 378
//*                                                                 *   FILE 378
//*                 DFSORT Tuning Reporter                          *   FILE 378
//*                                                                 *   FILE 378
//*      SORTTRAK is reading the SMF records Type 16 -              *   FILE 378
//*               DFSORT Statistics.                                *   FILE 378
//*                                                                 *   FILE 378
//*      Record type 16 is written to record information about      *   FILE 378
//*      events and operations of the DFSORT program.               *   FILE 378
//*                                                                 *   FILE 378
//*      Depending on the option specified at initialization        *   FILE 378
//*      (and whether DFSORT run successfully), a short record,     *   FILE 378
//*      full record, or no record is produced.                     *   FILE 378
//*                                                                 *   FILE 378
//*      Some information in the SMF record will not be             *   FILE 378
//*      provided for certain types of abnormal endings.            *   FILE 378
//*                                                                 *   FILE 378
//*      SORTRAK is performing the following functions:             *   FILE 378
//*                                                                 *   FILE 378
//*      1.  Read SMF records.                                      *   FILE 378
//*      2.  Eliminate non-Type 16 records.                         *   FILE 378
//*      3.  Process records Type 16.                               *   FILE 378
//*      4.  Produce a report.                                      *   FILE 378
//*                                                                 *   FILE 378
//*      The SORTTRAK report contains the following information:    *   FILE 378
//*                                                                 *   FILE 378
//*        1.   Jobname.                                            *   FILE 378
//*        2.   Stepname and step sequence number.                  *   FILE 378
//*        3.   Performance Group Number.                           *   FILE 378
//*        4.   DFSORT started processing: date and time.           *   FILE 378
//*        5.   Sort CPU time used in hundredths of a second.       *   FILE 378
//*        6.   Type of operation performed: Sort, Merge, Copy      *   FILE 378
//*        7.   Method of sorting used: Hiperspace, Dataspace,      *   FILE 378
//*             Work Dataset.                                       *   FILE 378
//*        8.   Was sorting completed in memory (work data sets     *   FILE 378
//*             were not needed) ?                                  *   FILE 378
//*        9.   Were the sort work tracks dynamically allocated?    *   FILE 378
//*       10.   Was Cache Fast Write used ?                         *   FILE 378
//*       11.   Final number of extents.                            *   FILE 378
//*       12.   Final number of Sortwork data set tracks            *   FILE 378
//*             allocated.                                          *   FILE 378
//*       13.   Total number of Sortwork data set tracks used       *   FILE 378
//*             (watch the difference!).                            *   FILE 378
//*                                                                 *   FILE 378
//***FILE 379 IS FROM THE SPLA TAPE AND CONTAINS A SERIES OF        *   FILE 379
//*           PROGRAMS THAT WILL PROCESS ONE OR MORE PROCLIBS AND   *   FILE 379
//*           GENERATE SEVERAL CROSS-REFERENCE REPORTS.  SEE THE    *   FILE 379
//*           CODE FOR ADDITIONAL INFORMATION.  THIS FILE IS IN     *   FILE 379
//*           IEBUPDTE SYSIN FORMAT.  XREF JCL PROCLIB PROC.        *   FILE 379
//*              REPORTS:                                           *   FILE 379
//*                (1) DSNAME CROSS REFERENCE EXCEPTION LIST        *   FILE 379
//*                (2) DSN    CROSS REFERENCE LISTING               *   FILE 379
//*                (3) TAPE DATASETS WITH NO EXPDT/RETPD            *   FILE 379
//*                (4) PGM    CROSS REFERENCE LISTING               *   FILE 379
//*                                                                 *   FILE 379
//***FILE 380 IS CURRENTLY EMPTY                                    *   FILE 380
//*                                                                 *   FILE 380
//***FILE 381 IS FROM FIRST COMPUTER SERVICES AND CONTAINS A COPY   *   FILE 381
//*           OF SOME OF THEIR PROGRAMS, UTILITIES AND JES2 EXITS.  *   FILE 381
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT AND HAS BEEN    *   FILE 381
//*           PROCESSED BY OFFLOAD.  IT CONTAINS THE FOLLOWING:     *   FILE 381
//*                                                                 *   FILE 381
//*     THE JES2 EXITS PREFIXED WITH 'JES' ARE FOR MVS SP 1.3.4     *   FILE 381
//*     (HJE2330), SP 1.3.6 (HJE1367) OR SP 2.1.5 (HJE2157).        *   FILE 381
//*     THESE EXITS ARE ALMOST IDENTICAL IN FUNCTION TO THE         *   FILE 381
//*     ORIGINAL EXITS WHICH HAVE BEEN AVAILABLE FOR SEVERAL        *   FILE 381
//*     YEARS.  BECAUSE OF CHANGING REQUIREMENTS, THESE EXITS HAVE  *   FILE 381
//*     CHANGED IN OUR CURRENT ENVIRONMENT AND THERE IS NO WAY TO   *   FILE 381
//*     INCORPORATE CHANGES OR ENHANCEMENTS INTO THE OLD EXITS.     *   FILE 381
//*     THEY WILL BE INCLUDED ONLY FOR THOSE WHO MAY WANT TO        *   FILE 381
//*     COMPARE THE NEW VERSION OF THE EXITS TO THE OLD ONES.       *   FILE 381
//*                                                                 *   FILE 381
//*     THE NEW EXITS ARE SET FOR SP 2.2.0 (HJE2221) ALTHOUGH THE   *   FILE 381
//*     CHANGES FROM SP 2.1.5 WERE MINOR.                           *   FILE 381
//*                                                                 *   FILE 381
//*     A NUMBER OF JES2 COMMANDS WERE ADDED TO PROVIDE MORE        *   FILE 381
//*     DETAILED INFORMATION OR SUPPORT FOR ADDITIONAL FACILITIES.  *   FILE 381
//*     A BRIEF LIST FOLLOWS:                                       *   FILE 381
//*                                                                 *   FILE 381
//*     $LF    - A DETAILED VERSION OF THE IBM $DF COMMAND GIVING   *   FILE 381
//*              JOBNAME, LINE OR PAGE COUNT AS WELL AS OTHER       *   FILE 381
//*              INFORMATION.                                       *   FILE 381
//*                                                                 *   FILE 381
//*     $DV    - A COMMAND THAT CAN LIST DASD VOLUMES BY DEVICE     *   FILE 381
//*              ADDRESS OR BY VOLSER OR PREFIX.  IT IS HARD TO     *   FILE 381
//*              FIND A SPECIFIC DASD VOLSER WHEN USING THE MVS     *   FILE 381
//*              'D U' COMMAND.                                     *   FILE 381
//*                                                                 *   FILE 381
//*     $QJ    - A FUNCTIONAL REPLACEMENT FOR THE IBM $DJ COMMAND.  *   FILE 381
//*              THIS VERSION LISTS ADDITIONAL INFORMATION TO       *   FILE 381
//*              SUPPORT THE MULTIPLE CATAGORIES OF HOLD, FAILURE   *   FILE 381
//*              FLAGS, TEST OR PRODUCTION INDICATORS AND OWNER     *   FILE 381
//*              ID.                                                *   FILE 381
//*                                                                 *   FILE 381
//*     $QN    - A FUNCTIONAL REPLACEMENT FOR THE IBM $DN COMMAND.  *   FILE 381
//*              THIS VERSION LISTS ADDITIONAL INFORMATION TO       *   FILE 381
//*              SUPPORT THE MULTIPLE CATAGORIES OF HOLD, FAILURE   *   FILE 381
//*              FLAGS, TEST OR PRODUCTION INDICATORS AND OWNER     *   FILE 381
//*              ID.                                                *   FILE 381
//*                                                                 *   FILE 381
//*     $SL    - SUPPORT FOR THE SETUP HOLD FACILITY.  THIS         *   FILE 381
//*              COMMAND WILL EITHER LIST ALL JOBS ON THE SETUP     *   FILE 381
//*              HOLD QUEUE OR LIST THE ACTUAL /*SETUP CONTROL      *   FILE 381
//*              CARDS FOR AN INDIVIDUAL JOB.                       *   FILE 381
//*                                                                 *   FILE 381
//*     $SR    - SUPPORT FOR THE SETUP HOLD FACILITY.  THIS         *   FILE 381
//*              COMMAND WILL RELEASE JOBS FROM THE SETUP HOLD      *   FILE 381
//*              QUEUE.                                             *   FILE 381
//*                                                                 *   FILE 381
//*     $UL    - SUPPORT FOR THE USER HOLD FACILITY.  THIS COMMAND  *   FILE 381
//*              WILL LIST JOBS IN THE USER HOLD QUEUE.             *   FILE 381
//*                                                                 *   FILE 381
//*     $UA    - SUPPORT FOR THE USER HOLD FACILITY.  THIS COMMAND  *   FILE 381
//*              WILL PLACE JOBS IN THE USER HOLD QUEUE.            *   FILE 381
//*                                                                 *   FILE 381
//*     $UR    - SUPPORT FOR THE USER HOLD FACILITY.  THIS COMMAND  *   FILE 381
//*              WILL RELEASE JOBS FROM THE USER HOLD QUEUE.        *   FILE 381
//*                                                                 *   FILE 381
//*     $TJIT  - SUPPORT FOR THE JOB INFORMATION TASK OR VSAM       *   FILE 381
//*              DISTRIBUTION FILE FACILITY.  THIS COMMAND CAN      *   FILE 381
//*              START, STOP, RESTART, LIST STATUS, OR LIST THE     *   FILE 381
//*              DETAIL RECORD FROM THE VSAM FILE.                  *   FILE 381
//*                                                                 *   FILE 381
//*     $LOAD  - ALLOW JES2 EXITS TO BE RELOADED WITHOUT            *   FILE 381
//*              PERFORMING A JES2 HOT START.                       *   FILE 381
//*                                                                 *   FILE 381
//*     $TUCC7 - SUPPORT FOR THE UCC-7 (CA-7) INTERFACE.  THIS      *   FILE 381
//*              COMMAND CAN START, STOP, RESTART, OR LIST THE      *   FILE 381
//*              STATUS OF THE INTERFACE.                           *   FILE 381
//*                                                                 *   FILE 381
//*     JES$LF   - (OLD) A JES2 EXIT (5) TO PROVIDE OPERATOR        *   FILE 381
//*                CAPABILITY TO DISPLAY DETAILED INFORMATION       *   FILE 381
//*                ABOUT JOBS IN THE PRINT QUEUE.  IT IS DESIGNED   *   FILE 381
//*                TO ENHANCE THE DISPLAY NORMALLY PROVIDED BY THE  *   FILE 381
//*                $DF COMMAND.                                     *   FILE 381
//*                                                                 *   FILE 381
//*     JESEXIT1 - (OLD) A JES2 EXIT (1) TO PROVIDE ENHANCEMENTS    *   FILE 381
//*                TO THE IBM SUPPLIED SEPARATOR PAGE.  SUPPORT IS  *   FILE 381
//*                ALSO PROVIDED FOR THE KODAK KOMSTAR MICROFICHE   *   FILE 381
//*                PROCESSOR, THE DATAGRAPHIX ARIS II MICROFICHE    *   FILE 381
//*                PROCESSOR, THE IBM 6670 DOCUMENTATION PROCESSOR  *   FILE 381
//*                AND THE XEROX 9700 PRINTER.                      *   FILE 381
//*                                                                 *   FILE 381
//*     JESEXIT3 - (OLD) A JES2 EXIT (3) TO CREATE AN NJE JOB       *   FILE 381
//*                HEADER TO SAVE JOB ACCOUNTING INFORMATION        *   FILE 381
//*                LONGER THAN 4 CHARACTERS.  NOTE THAT THIS EXIT   *   FILE 381
//*                IS USED IN CONJUNCTION WITH JESEXIT7 TO PRODUCE  *   FILE 381
//*                AN SMF TYPE 30 RECORD FOR NJE PRINT JOBS AT THE  *   FILE 381
//*                RECEIVING NODE TO ALLOW JOB ACCOUNTING FOR NJE   *   FILE 381
//*                PRINT.                                           *   FILE 381
//*                                                                 *   FILE 381
//*     JESEXIT5 - (OLD) A JES2 EXIT (5) TO FILTER JES2 COMMANDS    *   FILE 381
//*                TO DISALLOW CERTAIN COMMANDS OR OPERANDS ON THE  *   FILE 381
//*                COMMANDS.                                        *   FILE 381
//*                                                                 *   FILE 381
//*     JESEXIT6 - (OLD) A JES2 EXIT (6) TO PERFORM STANDARDS       *   FILE 381
//*                ENFORCEMENT FOR JCL AS WELL AS SET THE JOB       *   FILE 381
//*                CLASS BASED UPON THE RESOURCES SUCH AS TAPE      *   FILE 381
//*                UNITS, REGION SIZE, OR CPU TIME.  VIOLATIONS TO  *   FILE 381
//*                STANDARDS AND JOB CLASS REPORTING IS MADE TO     *   FILE 381
//*                THE JOB MESSAGE DATA SET FOR THE JOB AS IF THE   *   FILE 381
//*                CONVERTER WAS PRODUCING THE ERROR MESSAGES.      *   FILE 381
//*                                                                 *   FILE 381
//*     JESEXIT7 - (OLD) A JES2 EXIT (7) TO CREATE AN SMF TYPE 30   *   FILE 381
//*                RECORD FOR NJE PRINT JOBS AT THE RECEIVING NODE  *   FILE 381
//*                TO ALLOW JOB ACCOUNTING FOR NJE PRINT.  NOTE     *   FILE 381
//*                THAT THIS EXIT IS USED IN CONJUNCTION WITH       *   FILE 381
//*                JESEXIT3 TO PROVIDE JOB ACCOUNTING INFORMATION.  *   FILE 381
//*                                                                 *   FILE 381
//*     JESEXIT9 - (OLD) A JES2 EXIT (9) TO ABEND TEST JOBS WHICH   *   FILE 381
//*                EXCEED THE ESTIMATED LINE COUNT WHILE ALLOWING   *   FILE 381
//*                ALL OTHER JOBS TO CONTINUE.                      *   FILE 381
//*                                                                 *   FILE 381
//*     JESXIT17 - (OLD) A JES2 EXIT (17) TO VALIDATE THE SIGNON    *   FILE 381
//*                CARD FROM BSC RJE WORKSTATIONS.  THIS EXIT WILL  *   FILE 381
//*                ISSUE A CALL TO ACF2 TO VALIDATE THE PASSWORD    *   FILE 381
//*                FOR THE REMOTEID.  THE SIGNON ATTEMPT WILL BE    *   FILE 381
//*                REJECTED WITH APPROPRIATE MESSAGES IF THE        *   FILE 381
//*                PASSWORD IS INVALID.                             *   FILE 381
//*                                                                 *   FILE 381
//*     JESXIT21 - (OLD) A JES2 EXIT (21) TO EXAMINE JES2 SMF       *   FILE 381
//*                RECORDS TO INSERT JOBNAME IN THE SMF TYPE57      *   FILE 381
//*                RECORD.  THIS NJE SYSOUT TRANSMISSION RECORD     *   FILE 381
//*                CONTAINS JOB NUMBER BUT NO JOB NAME.  IT IS      *   FILE 381
//*                DIFFICULT TO PRODUCE NJE STATISTICS WITHOUT      *   FILE 381
//*                THE JOBNAME.                                     *   FILE 381
//*                                                                 *   FILE 381
//*     J001$SP  - A JES2 EXIT (1) TO PROVIDE ENHANCEMENTS TO THE   *   FILE 381
//*                IBM SUPPLIED SEPARATOR PAGE.  THIS EXIT WILL     *   FILE 381
//*                REQUEST DISTRIBUTION INFORMATION FROM A JES2     *   FILE 381
//*                TASK WHICH EXTRACTS THIS INFORMATION FROM A      *   FILE 381
//*                VSAM FILE.  SUPPORT IS ALSO PROVIDED FOR THE     *   FILE 381
//*                KODAK KOMSTAR MICROFICHE PROCESSOR, THE          *   FILE 381
//*                DATAGRAPHIX ARIS II MICROFICHE PROCESSOR, THE    *   FILE 381
//*                XEROX 3700 PRINTER AND THE XEROX 9700 PRINTER.   *   FILE 381
//*                ALSO REQUIRES EXITS HASPXIT0, J024JIT, J015$SP   *   FILE 381
//*                (FOR 3700 SUPPORT), J005JIT, AND J005UCC7 FOR    *   FILE 381
//*                FULL SUPPORT.  THERE ARE SEVERAL ASSEMBLY        *   FILE 381
//*                VARIABLES IN THE EXIT TO SET OPTIONS.  SEE       *   FILE 381
//*                THE COMMENTS IN THE PROGRAM.                     *   FILE 381
//*                                                                 *   FILE 381
//*     J003STCS - A JES2 EXIT (3) TO SET THE DEFAULT SYSOUT CLASS  *   FILE 381
//*                AND PROGRAMMER NAME FOR STARTED TASKS.  THIS     *   FILE 381
//*                INFORMATION IS PROVIDED BY A JES2 TASK WHICH     *   FILE 381
//*                EXTRACTS THIS INFORMATION FROM A VSAM FILE.      *   FILE 381
//*                THIS ALLOWS SOME STARTED TASKS TO DEFAULT TO A   *   FILE 381
//*                THROWAWAY SYSOUT CLASS AND OTHERS TO PRINT.      *   FILE 381
//*                THIS EXIT ALSO REQUIRES EXITS HASPXIT0 J024JIT,  *   FILE 381
//*                J005JIT, AND J005UCC7 FOR FULL SUPPORT.          *   FILE 381
//*                                                                 *   FILE 381
//*     J003UNJH - A JES2 EXIT (3) TO CREATE AN NJE JOB HEADER TO   *   FILE 381
//*                SAVE JOB RELATED INFORMATION ACCROSS AN NJE      *   FILE 381
//*                ENVIRONMENT AND SPOOL OFFLOAD/RELOAD             *   FILE 381
//*                OPERATIONS.  THIS INFORMATION JOB ACCOUNTING     *   FILE 381
//*                INFORMATION LONGER THAN 4 CHARACTERS, AND        *   FILE 381
//*                INSTALLATION FIELDS IN THE JQE.  THE ACCOUNTING  *   FILE 381
//*                INFORMATION IS USED BY EXIT J007JQEU TO PRODUCE  *   FILE 381
//*                AN SMF TYPE 30 RECORD FOR NJE PRINT JOBS AT THE  *   FILE 381
//*                RECEIVING NODE TO ALLOW JOB ACCOUNTING FOR NJE   *   FILE 381
//*                PRINT.                                           *   FILE 381
//*                                                                 *   FILE 381
//*     J004$JEC - A JES2 EXIT (4) TO PROCESS THE DEPENDENT JOB     *   FILE 381
//*                CONTROL JECL STATEMENTS.  THIS EXIT WILL         *   FILE 381
//*                PROCESS THE /*SETUP, /*THREAD, /*EXCLUDE, AND    *   FILE 381
//*                /*RELEASE JECL STATEMENTS.  THIS EXIT FILLS IN   *   FILE 381
//*                MANY OF THE USER FIELDS IN THE MODIFIED JQE.     *   FILE 381
//*                ALSO REQUIRES EXITS J005$SL, J005$SR, J007RLSE,  *   FILE 381
//*                J014$JCL, AND J020UHLD FOR FULL SUPPORT.         *   FILE 381
//*                                                                 *   FILE 381
//*     J004$OWN - A JES2 EXIT (4) TO LOCAL EXTENSIONS TO THE       *   FILE 381
//*                /*JOBPARM JECL STATEMENT.  THESE FIELDS ARE      *   FILE 381
//*                OWNERID, FCB, AND UCS.  THIS ALLOWS XBATCH JOBS  *   FILE 381
//*                TO SPECIFY EXTRA JOB ATTRIBUTES.                 *   FILE 381
//*                                                                 *   FILE 381
//*     J005$DV  - A JES2 EXIT (5) TO PROVIDE OPERATOR CAPABILITY   *   FILE 381
//*                TO DISPLAY DASD VOLUMES BY DEVICE ADDRESS,       *   FILE 381
//*                VOLSER, OR VOLSER PREFIX.  THE MVS 'D U'         *   FILE 381
//*                COMMAND IS CUMBERSOME WHEN LOOKING FOR           *   FILE 381
//*                SPECIFIC VOLUMES.                                *   FILE 381
//*                                                                 *   FILE 381
//*     J005$LF  - A JES2 EXIT (5) TO PROVIDE OPERATOR CAPABILITY   *   FILE 381
//*                TO DISPLAY DETAILED INFORMATION ABOUT JOBS IN    *   FILE 381
//*                THE PRINT QUEUE.  IT IS DESIGNED TO ENHANCE THE  *   FILE 381
//*                DISPLAY NORMALLY PROVIDED BY THE $DF COMMAND.    *   FILE 381
//*                                                                 *   FILE 381
//*     J005$QJ  - A JES2 EXIT (5) TO PROVIDE A FUNCTIONAL          *   FILE 381
//*                REPLACEMENT FOR THE IBM $DJ COMMAND.  IT WAS     *   FILE 381
//*                WRITTEN TO PROVIDE A MEANS TO DISPLAY THE JOB    *   FILE 381
//*                RELATED INFORMATION ADDED BY OUR INSTALLATION.   *   FILE 381
//*                                                                 *   FILE 381
//*     J005$QN  - A JES2 EXIT (5) TO PROVIDE A FUNCTIONAL          *   FILE 381
//*                REPLACEMENT FOR THE IBM $DN COMMAND.  IT WAS     *   FILE 381
//*                WRITTEN TO PROVIDE A MEANS TO DISPLAY THE JOB    *   FILE 381
//*                RELATED INFORMATION ADDED BY OUR INSTALLATION.   *   FILE 381
//*                                                                 *   FILE 381
//*     J005$SL  - A JES2 EXIT (5) TO PROVIDE A WAY TO LIST ALL     *   FILE 381
//*                JOBS IN A USER DEFINED QUEUE CALLED THE SETUP    *   FILE 381
//*                QUEUE.  THIS QUEUE PREVENTS JOBS FROM EXECUTING. *   FILE 381
//*                IT ALSO ALLOWS THE CONSOLE OPERATOR THE ABILITY  *   FILE 381
//*                TO RELIST THE /*SETUP CARDS FOR EACH JOB.        *   FILE 381
//*                                                                 *   FILE 381
//*     J005$SR  - A JES2 EXIT (5) TO PROVIDE A WAY TO RELEASE A    *   FILE 381
//*                JOB FROM A USER DEFINED QUEUE CALLED THE SETUP   *   FILE 381
//*                QUEUE.  THIS QUEUE PREVENTS JOBS FROM EXECUTING. *   FILE 381
//*                                                                 *   FILE 381
//*     J005$UA  - A JES2 EXIT (5) TO PROVIDE A WAY TO REMOVE A     *   FILE 381
//*                JOB FROM A USER DEFINED QUEUE CALLED THE USER    *   FILE 381
//*                HOLD QUEUE.  THIS QUEUE PREVENTS A JOB FROM      *   FILE 381
//*                EXECUTING (NOT FROM PRINTING).                   *   FILE 381
//*                                                                 *   FILE 381
//*     J005$UH  - A JES2 EXIT (5) TO PROVIDE A WAY TO PLACE A      *   FILE 381
//*                JOB IN A USER DEFINED QUEUE CALLED THE USER      *   FILE 381
//*                HOLD QUEUE.  THIS QUEUE PREVENTS A JOB FROM      *   FILE 381
//*                EXECUTING (NOT PRINTING).                        *   FILE 381
//*                                                                 *   FILE 381
//*     J005$UL  - A JES2 EXIT (5) TO PROVIDE A WAY TO LIST ALL     *   FILE 381
//*                JOBS IN A USER DEFINED QUEUE CALLED THE USER     *   FILE 381
//*                HOLD QUEUE.  THIS QUEUE PREVENTS A JOB FROM      *   FILE 381
//*                EXECUTING (NOT PRINTING).                        *   FILE 381
//*                                                                 *   FILE 381
//*     J005FILT - A JES2 EXIT (5) TO FILTER JES2 COMMANDS TO       *   FILE 381
//*                DISALLOW CERTAIN COMMANDS OR OPERANDS ON THE     *   FILE 381
//*                COMMANDS.                                        *   FILE 381
//*                                                                 *   FILE 381
//*     J005JIT  - A JES2 EXIT (5) TO PROVIDE A COMMAND INTERFACE   *   FILE 381
//*                TO THE JOB INFORMATION TASK THAT READS JOB       *   FILE 381
//*                DISTRIBUTION INFORMATION FROM A VSAM FILE.       *   FILE 381
//*                THIS COMMAND CAN START, STOP, RESTART, MODIFY,   *   FILE 381
//*                OR PROVIDE STATUS ABOUT THE TASK.  IT CAN ALSO   *   FILE 381
//*                LIST INDIVIDUAL RECORDS.                         *   FILE 381
//*                                                                 *   FILE 381
//*     J005LOAD - A JES2 EXIT (5) TO PROVIDE A MEANS OF RELOADING  *   FILE 381
//*                AN EXIT ROUTINE WITHOUT HAVING TO PERFORM A HOT  *   FILE 381
//*                START.                                           *   FILE 381
//*                                                                 *   FILE 381
//*     J005UCC7 - A JES2 EXIT (5) TO PROVIDE A COMMAND INTERFACE   *   FILE 381
//*                TO THE UCC7 INTERFACE TASK THAT CAN DEMAND A     *   FILE 381
//*                JOB NETWORK ON BEHALF OF THE SEPARATOR ROUTINE   *   FILE 381
//*                BASED ON INFORMATION FROM A VSAM FILE.  THIS     *   FILE 381
//*                COMMAND CAN START, STOP, RESTART, OR PROVIDE     *   FILE 381
//*                STATUS ABOUT THE TASK.                           *   FILE 381
//*                                                                 *   FILE 381
//*     J006STDS - A JES2 EXIT (6) TO PROCESS THE INTERNAL TEXT     *   FILE 381
//*                FOR ALL JOBS.  THIS ROUTINE PROVIDES ACCOUNTING  *   FILE 381
//*                VERIFICATION, ENFORCEMENT OF STANDARDS, AND      *   FILE 381
//*                SETS CLASS AND PRIORITY BASED ON THE RESOURCES   *   FILE 381
//*                REQUIRED BY A JOB.                               *   FILE 381
//*                                                                 *   FILE 381
//*     J007ENDJ - A JES2 EXIT (7) TO WRITE A SPECIAL END OF JOB    *   FILE 381
//*                MESSAGE TO THE CONSOLE (NOT THE JOB LOG).  IT    *   FILE 381
//*                IS VERY SIMILAR TO THE NORMAL END OF JOB         *   FILE 381
//*                MESSAGE EXCEPT IT INDICATES WHETHER THE JOB      *   FILE 381
//*                ABENDED OR HAD A JCL ERROR.  PRODUCTION JOBS     *   FILE 381
//*                HAVE A DIFFERENT MESSAGE NUMBER SO A WTO EXIT    *   FILE 381
//*                ROUTINE COULD MAKE ABEND AND JCL ERROR MESSAGES  *   FILE 381
//*                FOR THESE JOBS NON ROLL DELETABLE, WHICH BRINGS  *   FILE 381
//*                THESE FAILURES TO THE IMMEDIATE ATTENTION OF     *   FILE 381
//*                THE CONSOLE OPERATOR.                            *   FILE 381
//*                                                                 *   FILE 381
//*     J007JCTU - A JES2 EXIT (7) TO RETAIN THE SPECIAL USER       *   FILE 381
//*                FIELDS IN THE JQE BY COPYING THEM TO THE NJE     *   FILE 381
//*                JOB HEADER.  THIS EXIT WILL PERFORM THIS TASK    *   FILE 381
//*                EACH TIME THE JCT IS WRITTEN BACK TO THE SPOOL.  *   FILE 381
//*                THIS RETAINS THIS INFORMATION IN AN NJE          *   FILE 381
//*                ENVIRONMENT AND ACROSS A SPOOL OFFLOAD/RELOAD    *   FILE 381
//*                OPERATION.  THIS FUNCTION ALSO REQUIRES          *   FILE 381
//*                J007REST TO RESTORE THESE FIELDS AFTER A RELOAD  *   FILE 381
//*                OPERATION.                                       *   FILE 381
//*                                                                 *   FILE 381
//*     J007JQEU - A JES2 EXIT (7) TO UPDATE THE JQE USER FIELDS    *   FILE 381
//*                FROM THE AVAILABLE INFORMATION EACH TIME THE     *   FILE 381
//*                JCT IS REWRITTEN TO THE SPOOL.  THIS EXIT ALSO   *   FILE 381
//*                WRITES AN SMF TYPE 30 RECORD FOR ALL NJE PRINT   *   FILE 381
//*                JOBS TO PROVIDE ACCOUNTING INFORMATION FOR JOBS  *   FILE 381
//*                WHICH ONLY PRINT AT THIS NJE NODE.               *   FILE 381
//*                                                                 *   FILE 381
//*     J007RACF - A JES2 EXIT (7) TO RETAIN THE RACF USERID        *   FILE 381
//*                ACROSS AN NJE SYSTEM.  IBM INTENTIONALLY ZEROS   *   FILE 381
//*                OUT THE RACF FIELDS IN THE JCT PRIOR TO          *   FILE 381
//*                TRANSMISSION.  THIS FORCES JOBS TO CODE USER=    *   FILE 381
//*                AND PASSWORD= ON THE JOB CARD.  THIS EXIT        *   FILE 381
//*                RETAINS THE USERID IN A USER NJE JOB HEADER AND  *   FILE 381
//*                RESTORES IT AFTER TRANSMISSION.  THE EXIT        *   FILE 381
//*                J003UNJH IS ALSO REQUIRED FOR THIS FUNCTION TO   *   FILE 381
//*                BUILD THE USER NJE JOB HEADER.                   *   FILE 381
//*                                                                 *   FILE 381
//*     J007RLSE - A JES2 EXIT (7) TO PERFORM RELEASE PROCESSING    *   FILE 381
//*                FOR ALL JOBS THAT CONTAIN A /*RELEASE CONTROL    *   FILE 381
//*                CARD.  THIS EXIT WILL RELEASE ALL JOBS WITH THE  *   FILE 381
//*                SPECIFIED JOB NAME AND MATCHING OWNERID NAME AT  *   FILE 381
//*                END OF JOB IF THIS JOB DID NOT ABEND OR HAVE A   *   FILE 381
//*                JCL ERROR.  MESSAGES ARE WRITTEN TO THE CONSOLE  *   FILE 381
//*                GIVING THE RESULTS OF PROCESSING.                *   FILE 381
//*                                                                 *   FILE 381
//*     J011SPRT - A JES2 EXIT (11) TO PROVIDE SPOOL PARTITIONING.  *   FILE 381
//*                WHEN SPOOL VOLUMES ARE STARTED AND DRAINED TO    *   FILE 381
//*                ACCOMMODATE FLUCTUATING SPOOL REQUIREMENTS,      *   FILE 381
//*                STARTED TASKS MAY USE THE NEW SPOOL VOLUMES.     *   FILE 381
//*                THIS WILL PREVENT THAT SPOOL FROM DRAINING       *   FILE 381
//*                UNTIL THE STARTED TASK TERMINATES AND IS         *   FILE 381
//*                PURGED.  THIS EXIT PROVIDES AN ELIGIBLE LIST OF  *   FILE 381
//*                SPOOL VOLUMES FOR STARTED TASKS TO PREVENT THIS  *   FILE 381
//*                FROM OCCURRING.                                  *   FILE 381
//*                                                                 *   FILE 381
//*     J014$JSL - A JES2 EXIT (14) TO PERFORM JOB SELECTION BASED  *   FILE 381
//*                ON USER FIELDS IN THE JQE.  THIS IS WHERE THE    *   FILE 381
//*                USE OF /*THREAD AND /*EXCLUDE JECL CARDS IS      *   FILE 381
//*                PERFORMED AS WELL AS HONORING THE USER HOLD      *   FILE 381
//*                ATTRIBUTE.  BECAUSE THIS PROCESSING REQUIRES     *   FILE 381
//*                CONTROL OF THE JES2 CHECKPOINT, THESE FIELDS     *   FILE 381
//*                MUST BE IN THE JQE TO AVOID RELEASING THE        *   FILE 381
//*                CHECKPOINT.  IF THE ESOTERIC ROUTINE FACILITY    *   FILE 381
//*                IS GOING TO BE USED, USE THE EXIT 14 ROUTINE     *   FILE 381
//*                PROVIDED IN MODULE JESRESRC INSTEAD OF THIS      *   FILE 381
//*                MODULE.                                          *   FILE 381
//*                                                                 *   FILE 381
//*     J015$SP  - A JES2 EXIT (15) TO GENERATE DJDE CONTROL        *   FILE 381
//*                STATEMENTS FOR A XEROX 3700 PRINTER.  THIS       *   FILE 381
//*                EXIT REQUIRES THAT THE 9700 SUPPORT PRODUCT      *   FILE 381
//*                XJCF MARKETED BY XENOS COMPUTER SYSTEMS BE       *   FILE 381
//*                INSTALLED.                                       *   FILE 381
//*                                                                 *   FILE 381
//*     J020UHLD - A JES2 EXIT (20) TO CHANGE TYPRUN=HOLD TO A      *   FILE 381
//*                USERHOLD ATTRIBUTE.                              *   FILE 381
//*                                                                 *   FILE 381
//*     J021$57  - A JES2 EXIT (21) WHICH MODIFIES THE SMF TYPE 57  *   FILE 381
//*                RECORD WHICH RECORDS NJE ACTIVITY.  FOR SOME     *   FILE 381
//*                STRANGE REASON, THIS RECORD DOES NOT CONTAIN     *   FILE 381
//*                JOBNAME.  THE NETWORK ACCOUNTING FIELD IS        *   FILE 381
//*                OVERLAID WITH THE JOBNAME.  WHAT GOOD IS THIS    *   FILE 381
//*                INFORMATION WITHOUT BEING ABLE TO TIE IT BACK    *   FILE 381
//*                TO A JOB?                                        *   FILE 381
//*                                                                 *   FILE 381
//*     J024JIT  - A JES2 EXIT (24) WHICH STARTS THE TWO JES2 USER  *   FILE 381
//*                SUBTASKS AT INITIALIZATION TIME.  STANDARD JES2  *   FILE 381
//*                INTERFACES ARE USED TO PERFORM THIS FUNCTION.    *   FILE 381
//*                CODE IS IN THE EXITS THEMSELVES TO SHUTDOWN      *   FILE 381
//*                WHEN JES2 IS TERMINATED.  THIS EXIT REQUIRES     *   FILE 381
//*                EXIT HASPXIT0 TO ESTABLISH THE SUBTASK           *   FILE 381
//*                ENVIRONMENT.                                     *   FILE 381
//*                                                                 *   FILE 381
//*     J255$FMT - A JES2 EXIT (24) TO FORMAT JOB RELATED           *   FILE 381
//*                INFORMATION FOR A SPECIFIC JOB IN THE PASSED     *   FILE 381
//*                PARAMETER LIST.  THIS ROUTINE IS USED BY         *   FILE 381
//*                SEVERAL EXITS TO DISPLAY STATUS ABOUT A JOB.     *   FILE 381
//*                                                                 *   FILE 381
//*     HASPXIT0 - A JES2 EXIT (0) TO ALLOCATE A USER CONTROL       *   FILE 381
//*                TABLE (UCT), ALLOW THE JIT VSAM DATASET NAME TO  *   FILE 381
//*                BE SPECIFIED IN THE JES2 PARAMETERS, AND         *   FILE 381
//*                ESTABLISH THE USER WORK SELECTION FACILITY FOR   *   FILE 381
//*                FILTERING TEST AND PRODUCTION WORK ON LOCAL      *   FILE 381
//*                PRINTERS, PUNCHES, AND OFFLOAD DEVICES.          *   FILE 381
//*                                                                 *   FILE 381
//*     JESRESRC - A SERIES OF JES2 EXITS (4,5, AND 14) TO PROVIDE  *   FILE 381
//*                ESOTERIC JOB ROUTING.  THIS IS A FUNCTIONAL      *   FILE 381
//*                DUPLICATION OF THE MELLON BANK MODS TO PROVIDE   *   FILE 381
//*                THE SAME FUNCTION.  THEY WERE REWRITTEN TO FIT   *   FILE 381
//*                INTO OUR SYSTEM OF EXITS.  THE JOB SELECT EXIT   *   FILE 381
//*                14 IN THIS MODULE IS A REPLACEMENT FOR           *   FILE 381
//*                J014$JSL.  USE THIS EXIT 14 ROUTINE IF THIS      *   FILE 381
//*                FACILITY IS BEING USED OR USE THE OTHER EXIT 14  *   FILE 381
//*                ROUTINE IF ONLY IMPLEMENTING THE USER AND SETUP  *   FILE 381
//*                HOLD FACILITY.                                   *   FILE 381
//*                                                                 *   FILE 381
//*     FZ50V0   - A USERMOD TO UPDATE THE JES2 JQE AND QSE TO ADD  *   FILE 381
//*                USER FIELDS.  IT ALSO FORCES REASSEMBLY OF       *   FILE 381
//*                EVERY MODULE IN JES2 TO USE THE UPDATED MACROS.  *   FILE 381
//*                                                                 *   FILE 381
//*     FZ51V0   - A USERMOD TO ADD ALL OF THE USER MAPPING MACROS  *   FILE 381
//*                TO THE JES2 MACRO LIBRARY.  MANY OF THE EXITS    *   FILE 381
//*                REQUIRE THESE MACROS.                            *   FILE 381
//*                                                                 *   FILE 381
//*     CONSOLE  - A TSO COMMAND TO ALLOW A TSO TERMINAL TO         *   FILE 381
//*                EFFECTIVELY BE TURNED INTO A CONSOLE.  CODE      *   FILE 381
//*                WILL FUNCTION ONLY UNDER XA.  A USER SUPPLIED    *   FILE 381
//*                SVC MUST BE SUPPLIED TO GET INTO KEY ZERO FOR    *   FILE 381
//*                AUTHORIZATION PURPOSES.                          *   FILE 381
//*                                                                 *   FILE 381
//*     DSAT     - A TSO COMMAND TO RETURN DATA SET ATTRIBUTES OF   *   FILE 381
//*                DATA SETS AT A SPECIFIED INDEX LEVEL.  THIS      *   FILE 381
//*                CODE IS LOOSELY BASED ON A COMMAND FROM FPL BUT  *   FILE 381
//*                DOES NOT HAVE ALL OF THE OPTIONS.  WHAT MAKES    *   FILE 381
//*                THIS ONE DIFFERENT IS THAT IT IS WRITTEN FOR     *   FILE 381
//*                DFP ONLY AND RETURNS GDG BASE INFORMATION AS     *   FILE 381
//*                WELL AS VSAM ATTRIBUTES.                         *   FILE 381
//*                                                                 *   FILE 381
//*     TESTJES  - A PROGRAM WHICH CAN BE USED TO TEST THE SP       *   FILE 381
//*                1.3.3/1.3.4 VERSION OF JESEXIT6 BY SETTING UP A  *   FILE 381
//*                FAKE EXIT ENVIRONMENT AND THEN CALLING THE MAIN  *   FILE 381
//*                ENTRY POINT OF THE EXIT.                         *   FILE 381
//*                                                                 *   FILE 381
//*     TESTJ136 - A PROGRAM WHICH CAN BE USED TO TEST THE SP       *   FILE 381
//*                1.3.6/2.1.5 VERSION OF JESEXIT6 BY SETTING UP A  *   FILE 381
//*                FAKE EXIT ENVIRONMENT AND THEN CALLING THE MAIN  *   FILE 381
//*                ENTRY POINT OF THE EXIT.                         *   FILE 381
//*                                                                 *   FILE 381
//*     PRINTDOC - SAMPLE JCL TO PRINT THIS MEMBER ($DOC).          *   FILE 381
//*                                                                 *   FILE 381
//*                             J 0 0 6 S T D S                     *   FILE 381
//*                                                                 *   FILE 381
//*            THIS JES2 EXIT PROGRAM IS DESIGNED TO RUN AT         *   FILE 381
//*            CONVERTER TIME TO ENFORCE INSTALLATION JCL           *   FILE 381
//*            STANDARDS AND TO DETERMINE THE APPROPRIATE JOB       *   FILE 381
//*            CLASS BASED ON DEVICE UTILIZATION.                   *   FILE 381
//*                                                                 *   FILE 381
//*                    T S O    C O N S O L E    C O M M A N D      *   FILE 381
//*                                                                 *   FILE 381
//*            THIS TSO COMMAND WILL ALLOW A TSO USER TO FUNCTION   *   FILE 381
//*            AS AN O/S CONSOLE.  THE ORIGINAL CODE WAS PROBABLY   *   FILE 381
//*            THE SPY COMMAND ON THE MODS TAPES, BUT IT HAS        *   FILE 381
//*            EVOLVED OVER A PERIOD OF TIME.  I REGRET THAT THE    *   FILE 381
//*            NAME OF THE ORIGINATOR OF THE CODE HAS BEEN LOST.    *   FILE 381
//*                                                                 *   FILE 381
//*                    T S O    D S A T    C O M M A N D            *   FILE 381
//*                                                                 *   FILE 381
//*            THIS TSO COMMAND WILL ALLOW A TSO USER TO LIST DATA  *   FILE 381
//*            SET ATTRIBUTES AT A SPECIFIED INDEX LEVEL.  THE      *   FILE 381
//*            CODE IS LOOSELY BASED ON A COMMAND FROM FLORIDA      *   FILE 381
//*            POWER AND LIGHT BUT DOES NOT HAVE ALL OF THE         *   FILE 381
//*            OPTIONS.  THIS VERSION WILL WORK PROPERLY ONLY       *   FILE 381
//*            UNDER DFP USING ICF CATALOGS.  IT WILL RETURN GDG    *   FILE 381
//*            BASE INFORMATION AS WELL AS ATTRIBUTES OF VSAM DATA  *   FILE 381
//*            SETS.  THE USE OF AN UNDOCUMENTED CATALOG INTERFACE  *   FILE 381
//*            ALLOWS THIS INFORMATION TO BE OBTAINED.              *   FILE 381
//*                                                                 *   FILE 381
//*                             T E S T J 1 3 6                     *   FILE 381
//*                                                                 *   FILE 381
//*            THIS PROGRAM WAS WRITTEN TO TEST THE JES2 EXIT6      *   FILE 381
//*            PROGRAM DESIGNED TO ENFORCE INSTALLATION JCL         *   FILE 381
//*            STANDARDS AND TO SET THE APPROPRIATE JOB CLASS       *   FILE 381
//*            BASED ON DEVICES USED.                               *   FILE 381
//*                                                                 *   FILE 381
//*                             T E S T J E S                       *   FILE 381
//*                                                                 *   FILE 381
//*            THIS PROGRAM WAS WRITTEN TO TEST THE JES2 EXIT6      *   FILE 381
//*            PROGRAM DESIGNED TO ENFORCE INSTALLATION JCL         *   FILE 381
//*            STANDARDS AND TO SET THE APPROPRIATE JOB CLASS       *   FILE 381
//*            BASED ON DEVICES USED.                               *   FILE 381
//*                                                                 *   FILE 381
//*                       J E S 2    $ L F    C O M M A N D         *   FILE 381
//*                                                                 *   FILE 381
//*            A NEW COMMAND HAS BEEN ADDED TO JES2 FOR USE BY THE  *   FILE 381
//*            MVS COMPUTER CONSOLE OPERATORS.  IBM DID NOT SEE     *   FILE 381
//*            FIT TO SUPPLY AN EASY WAY FOR AN OPERATOR TO         *   FILE 381
//*            DETERMINE WHICH JOBS ARE WAITING TO PRINT, WHAT      *   FILE 381
//*            ORDER IN WHICH THESE JOBS WILL PRINT, OR HOW MANY    *   FILE 381
//*            LINES ARE TO BE PRINTED.  THE COMMAND SUPPLIED BY    *   FILE 381
//*            IBM IS THE $DF COMMAND WHICH ONLY LISTS HOW MANY     *   FILE 381
//*            JOBS ARE WAITING TO PRINT AS SEEN IN THE FOLLOWING   *   FILE 381
//*            EXAMPLE:                                             *   FILE 381
//*                                                                 *   FILE 381
//*            $DF                                                  *   FILE 381
//*            $HASP621 OUT R=LOCAL F=STD. C=****T=****W=(NONE)     *   FILE 381
//*                     CLASS A=15,R=1,C=1,D=2                      *   FILE 381
//*                                                                 *   FILE 381
//*            THIS NEW COMMAND ALLOWS THE OPERATOR TO DETERMINE    *   FILE 381
//*            THE JOBNAME, JOB NUMBER, AND NUMBER OF PRINT LINES   *   FILE 381
//*            FOR EACH PRINT GROUP.  NOTE THAT THE XS OPERAND IS   *   FILE 381
//*            OPTIONAL FOR USERS OF THE XJCF PRODUCT FROM XENOS    *   FILE 381
//*            COMPUTING WHICH GIVES NATIVE JES2 SUPPORT FOR THE    *   FILE 381
//*            XEROX 9700 PRINTER.                                  *   FILE 381
//*                                                                 *   FILE 381
//*    EXTENSIVE MODIFICATIONS HAVE BEEN MADE TO CONTROL JOB        *   FILE 381
//*    PROCESSING AT FIRST UNION NATIONAL BANK.  THIS HAS CAUSED    *   FILE 381
//*    THE ADDITION OF MANY "JOB FLAGS" TO BE ASSIGNED TO A JOB.    *   FILE 381
//*    THE STANDARD IBM DISPLAY COMMAND DOES NOT DISPLAY THESE      *   FILE 381
//*    FLAGS.  A NEW COMMAND WAS WRITTEN TO EFFECTIVELY REPLACE     *   FILE 381
//*    THE IBM $DJ OR $D'JOBNAME' COMMAND.  THE FORMAT OF THE       *   FILE 381
//*    COMMAND IS IDENTICAL TO THE IBM COMMAND EXCEPT THAT THE      *   FILE 381
//*    LETTER 'Q' IS SUBSTITUTED FOR THE LETTER 'D'.                *   FILE 381
//*                                                                 *   FILE 381
//*                           JES2 $DN COMMAND                      *   FILE 381
//*                                                                 *   FILE 381
//*    EXTENSIVE MODIFICATIONS HAVE BEEN MADE TO CONTROL JOB        *   FILE 381
//*    PROCESSING AT FIRST UNION NATIONAL BANK.  THIS HAS CAUSED    *   FILE 381
//*    THE ADDITION OF MANY "JOB FLAGS" TO BE ASSIGNED TO A JOB.    *   FILE 381
//*    THE STANDARD IBM DISPLAY COMMAND DOES NOT DISPLAY THESE      *   FILE 381
//*    FLAGS.  A NEW COMMAND WAS WRITTEN TO EFFECTIVELY REPLACE     *   FILE 381
//*    THE IBM $DN COMMAND.  THE FORMAT OF THE COMMAND IS           *   FILE 381
//*    IDENTICAL TO THE IBM COMMAND EXCEPT FOR SOME NEW ADDED       *   FILE 381
//*    PARAMETERS.  AFTER ALL SELECTED JOBS HAVE BEEN DISPLAYED,    *   FILE 381
//*    THE HASP946 MESSAGE WILL BE DISPLAYED GIVING THE PERCENT     *   FILE 381
//*    SPOOL UTILIZATION.  IF NO JOBS MEET THE DISPLAY              *   FILE 381
//*    REQUIREMENTS, ONLY THE HASP946 MESSAGE WILL BE DISPLAYED.    *   FILE 381
//*    THE IBM $DN COMMAND CAN STILL BE ACCESSED BY USING ENTERING  *   FILE 381
//*    $QN INSTEAD.                                                 *   FILE 381
//*                                                                 *   FILE 381
//*                           JES2 $TJIT COMMAND                    *   FILE 381
//*                                                                 *   FILE 381
//*    EXTENSIVE MODIFICATIONS HAVE BEEN MADE TO THE JES2 JOB       *   FILE 381
//*    SEPARATOR ROUTINES AT FIRST UNION BANK TO PROVIDE JOB        *   FILE 381
//*    DISTRITBUTION INFORMATION WHICH IS NOT NORMALLY AVAILABLE    *   FILE 381
//*    FOR A JOB.  THIS INFORMATION IS EXTRACTED FROM A VSAM FILE   *   FILE 381
//*    BY JOBNAME FOR PRODUCTION JOBS OR BY OWNERID FOR TEST JOBS.  *   FILE 381
//*    TO AVOID THE EXPOSURE OF JES2 GOING INTO A WAIT STATE WHILE  *   FILE 381
//*    READING THE VSAM FILE, THE ACTUAL I/O TO THE FILE IS         *   FILE 381
//*    PERFORMED BY A SEPARATE TASK.  ANY JES2 ROUTINE CAN REQUEST  *   FILE 381
//*    INFORMATION FROM THIS TASK BY QUEUEING A REQUEST TO THE JIT  *   FILE 381
//*    OR JOB INFORMATION TASK.  BECAUSE THE JIT IS DEPENDENT UPON  *   FILE 381
//*    BEING ABLE TO READ A VSAM FILE, THE FACILITY CAN BE          *   FILE 381
//*    EFFECTIVELY DISABLED DUE TO I/O BOTTLENECKS, I/O ERRORS, OR  *   FILE 381
//*    A DAMAGED FILE.  A MECHANISM HAS BEEN PROVIDED TO DISPLAY    *   FILE 381
//*    AND/OR ALTER THE STATUS OF THE JIT.                          *   FILE 381
//*                                                                 *   FILE 381
//*                           JES2 $TUCC7 COMMAND                   *   FILE 381
//*                                                                 *   FILE 381
//*    EXTENSIVE MODIFICATIONS HAVE BEEN MADE TO THE JES2 JOB       *   FILE 381
//*    SEPARATOR ROUTINES AT FIRST UNION BANK TO PROVIDE JOB        *   FILE 381
//*    DISTRITBUTION INFORMATION WHICH IS NOT NORMALLY AVAILABLE    *   FILE 381
//*    FOR A JOB.  THIS INFORMATION IS EXTRACTED FROM A VSAM FILE   *   FILE 381
//*    BY JOBNAME FOR PRODUCTION JOBS OR BY OWNERID FOR TEST JOBS.  *   FILE 381
//*    IF THE VSAM RECORD FOR THIS JOB REQUESTS IT, THE SEPARATOR   *   FILE 381
//*    EXIT CAN DEMAND A JOB NETWORK FROM UCC7 FOR THE JOB WHICH    *   FILE 381
//*    HAS JUST BEEN PRINTED.  THIS NETWORK MUST BE POSTED BY       *   FILE 381
//*    DISTRIBUTION WHEN THIS REPORT IS PLACED IN THE USER'S BIN    *   FILE 381
//*    OR CART.  THIS ALLOWS TRACKING OF SERVICE LEVEL AGREEMENTS   *   FILE 381
//*    FOR PRODUCTION PRINTED OUTPUT.  TO AVOID THE EXPOSURE OF     *   FILE 381
//*    JES2 GOING INTO A WAIT STATE WHILE THE UCC7 REQUEST IS       *   FILE 381
//*    BEING PROCESSED, A SEPARATE TASK HAS BEEN INITIALIZED TO     *   FILE 381
//*    PROCESS THESE REQUESTS.  ANY JES2 ROUTINE CAN DEMAND A       *   FILE 381
//*    NETWORK BY QUEUEING A REQUEST TO THE UCC7 TASK.  BECAUSE     *   FILE 381
//*    THE UCC7 INTERFACE PERFORMS EXTERNAL PROCESSING, THE         *   FILE 381
//*    FACILITY CAN BE EFFECTIVELY DISABLED DUE TO SYSTEM           *   FILE 381
//*    BOTTLENECKS. A MECHANISM HAS BEEN PROVIDED TO DISPLAY        *   FILE 381
//*    AND/OR ALTER THE STATUS OF THE UCC7 TASK.                    *   FILE 381
//*                                                                 *   FILE 381
//*                           JES2 $DV COMMAND                      *   FILE 381
//*                                                                 *   FILE 381
//*    A NEW COMMAND HAS BEEN ADDED TO JES2 FOR USE BY THE MVS      *   FILE 381
//*    COMPUTER CONSOLE OPERATORS.  THERE ARE INSTANCES WHERE       *   FILE 381
//*    SOMEONE AT THE OPERATOR CONSOLE NEETS TO DISPLAY             *   FILE 381
//*    INFORMATION ABOUT A DASD VOLUME AND ALL THAT IS KNOWN IS     *   FILE 381
//*    THE VOLSER OR VOLSER PREFIX.  THE D U,DASD,ONLINE COMMAND    *   FILE 381
//*    WAS USED TO DISPLAY ALL VOLUMES AND THE LIST SCANNED FOR     *   FILE 381
//*    THE CORRECT VOLSER.  THE $DV COMMAND GIVES THE CONSOLE       *   FILE 381
//*    OPERATOR THE ABILITY TO DISPLAY DASD VOLUMES BY VOLSER,      *   FILE 381
//*    VOLSER PREFIX, OR UNIT ADDRESS.                              *   FILE 381
//*                                                                 *   FILE 381
//*            $DV,MVSRS                                            *   FILE 381
//*            $HASP900 MVSRSG  141 3380   PRIV/RSDNT    202        *   FILE 381
//*            $HASP900 MVSRSF  250 3380   PRIV/RSDNT    000        *   FILE 381
//*            $HASP900 MVSRS2  252 3380   PRIV/RSDNT    000        *   FILE 381
//*                                                                 *   FILE 381
//*    THIS NEW COMMAND ALLOWS THE OPERATOR TO DETERMINE THE UNIT   *   FILE 381
//*    ADDRESS, DEVICE TYPE, MOUNT ATTRIBUTES, AND USE COUNT.       *   FILE 381
//*                                                                 *   FILE 381
//*                           JES2 $SL COMMAND                      *   FILE 381
//*                                                                 *   FILE 381
//*    MODIFICATIONS HAVE BEEN MADE TO THE STANDARD IBM SETUP       *   FILE 381
//*    PROCESSING AT FIRST UNION NATIONAL BANK.  WE HAVE A          *   FILE 381
//*    REQUIREMENT TO BE ABLE TO LIST ALL JOBS WHICH HAVE NOT HAD   *   FILE 381
//*    THEIR SETUP REQUIREMENTS MET.  OPERATIONS MUST ALSO BE ABLE  *   FILE 381
//*    TO RE-LIST THE JES2 SETUP CARDS WHICH DESCRIBE THE SETUP     *   FILE 381
//*    REQUIREMENTS.  THE $SL COMMAND WAS WRITTEN TO PROVIDE THIS   *   FILE 381
//*    FACILITY.                                                    *   FILE 381
//*                                                                 *   FILE 381
//*                           JES2 $SR COMMAND                      *   FILE 381
//*                                                                 *   FILE 381
//*    MODIFICATIONS HAVE BEEN MADE TO THE STANDARD IBM SETUP       *   FILE 381
//*    PROCESSING AT FIRST UNION NATIONAL BANK.  WE HAVE A          *   FILE 381
//*    REQUIREMENT TO PLACE JOBS IN A SPECIAL SETUP QUEUE UNTIL     *   FILE 381
//*    THEIR SETUP REQUIREMENTS ARE MET.  OPERATIONS MUST THEN BE   *   FILE 381
//*    ABLE SETUP THE JOB BY REMOVING THE JOB FROM THE SETUP        *   FILE 381
//*    QUEUE.  THE $SR COMMAND WAS WRITTEN TO PROVIDE THIS          *   FILE 381
//*    FACILITY.                                                    *   FILE 381
//*                                                                 *   FILE 381
//*                           JES2 $UA COMMAND                      *   FILE 381
//*                                                                 *   FILE 381
//*    MODIFICATIONS HAVE BEEN MADE TO THE STANDARD IBM HOLD        *   FILE 381
//*    PROCESSING TO PLACE JOBS IN A SPECIAL HOLD QUEUE CALLED THE  *   FILE 381
//*    USER HOLD QUEUE.  THIS IS NORMALLY ACCOMPLISHED BY USING     *   FILE 381
//*    THE TYPRUN=HOLD OPERAND ON THE JOB CARD FOR THE JOB OR       *   FILE 381
//*    USING THE HOLD OPERAND ON THE /*THREAD CARD.  THESE JOBS     *   FILE 381
//*    WILL NORMALLY BE RELEASED FROM USER HOLD BY /*RELEASE CARDS  *   FILE 381
//*    IN OTHER JOBS.  THE USER CAN ALSO RELEASE HIS/HER OWN JOBS   *   FILE 381
//*    BY ENTERING THIS COMMAND THROUGH A PROGRAMMED INTERFACE.     *   FILE 381
//*    THE $UA COMMAND WAS WRITTEN TO PROVIDE THIS FACILITY.        *   FILE 381
//*                                                                 *   FILE 381
//*                           JES2 $UH COMMAND                      *   FILE 381
//*                                                                 *   FILE 381
//*    MODIFICATIONS HAVE BEEN MADE TO THE STANDARD IBM HOLD        *   FILE 381
//*    PROCESSING TO PLACE JOBS IN A SPECIAL HOLD QUEUE CALLED THE  *   FILE 381
//*    USER HOLD QUEUE.  THIS IS NORMALLY ACCOMPLISHED BY USING     *   FILE 381
//*    THE TYPRUN=HOLD OPERAND ON THE JOB CARD FOR THE JOB OR       *   FILE 381
//*    USING THE HOLD OPERAND ON THE /*THREAD CARD.  A JOB CAN      *   FILE 381
//*    ALSO BE PLACED IN THIS QUEUE BY USING THIS COMMAND.          *   FILE 381
//*                                                                 *   FILE 381
//*                           JES2 $UL COMMAND                      *   FILE 381
//*                                                                 *   FILE 381
//*    MODIFICATIONS HAVE BEEN MADE TO THE STANDARD IBM HOLD        *   FILE 381
//*    PROCESSING TO PLACE JOBS IN A SPECIAL HOLD QUEUE CALLED THE  *   FILE 381
//*    USER HOLD QUEUE.  THIS IS NORMALLY ACCOMPLISHED BY USING     *   FILE 381
//*    THE TYPRUN=HOLD OPERAND ON THE JOB CARD FOR THE JOB OR       *   FILE 381
//*    USING THE HOLD OPERAND ON THE /*THREAD CARD.  THERE IS ALSO  *   FILE 381
//*    A REQUIREMENT TO LIST JOBS IN THIS QUEUE.                    *   FILE 381
//*                                                                 *   FILE 381
//*                           JES2 $LOAD COMMAND                    *   FILE 381
//*                                                                 *   FILE 381
//*    IN INSTALLATIONS WHICH HAVE EXTENSIVE JES2 EXIT ROUTINES,    *   FILE 381
//*    IT MAY BE HARD AT TIMES TO GET A JES2 HOT START TO RELOAD    *   FILE 381
//*    AN EXIT WHICH MUST BE MODIFIED.  HOT STARTS WORK, BUT THEY   *   FILE 381
//*    ARE VERY DISRUPTIVE TO PRINTER, RJE, AND NJE ACTIVITY.  THE  *   FILE 381
//*    $LOAD COMMAND WAS WRITTEN TO PROVIDE A FACILITY TO RELOAD A  *   FILE 381
//*    JES2 EXIT WITHOUT A JES2 OUTAGE.                             *   FILE 381
//*                                                                 *   FILE 381
//*                           JES2 $DC COMMAND                      *   FILE 381
//*                                                                 *   FILE 381
//*    THE $DC COMMAND IS ONE OF THE 4 CONSOLE COMMANDS WHICH       *   FILE 381
//*    CONTROL THE RESOURCE ROUTING FACILITY OF JES2.  THE OTHER    *   FILE 381
//*    COMMANDS ARE $QA, $QD, AND $DR.  A JOB CAN REQUEST ONE OR    *   FILE 381
//*    MORE RESOURCES FROM A PREDEFINED LIST OF RESOURCES AND WILL  *   FILE 381
//*    NOT RUN UNLESS THAT RESOURCE NAME IS ATTACHED TO THE         *   FILE 381
//*    APPROPRIATE PROCESSOR.  THIS COMMAND DISPLAYS ANY JOBS THAT  *   FILE 381
//*    CANNOT RUN BECAUSE THEY REQUEST ONE OR MORE RESOURCES THAT   *   FILE 381
//*    ARE NOT ATTACHED TO ANY PROCESSOR.  THIS COMMAND ALLOWS THE  *   FILE 381
//*    CONSOLE OPERATOR TO SEE THE CONFLICTS AND REACT              *   FILE 381
//*    APPROPRIATELY TO IT.  THIS COMMAND WILL ALSO BE INVOKED      *   FILE 381
//*    INTERNALLY WHENEVER A RESOURCE IS ADDED OR DELETED FROM A    *   FILE 381
//*    PROCESSOR.  THE FORMAT OF THE $DC COMMAND IS AS FOLLOWS:     *   FILE 381
//*                                                                 *   FILE 381
//*                           JES2 $DR COMMAND                      *   FILE 381
//*                                                                 *   FILE 381
//*    THE $DR COMMAND IS ONE OF THE 4 CONSOLE COMMANDS WHICH       *   FILE 381
//*    CONTROL THE RESOURCE ROUTING FACILITY OF JES2.  THE OTHER    *   FILE 381
//*    COMMANDS ARE $QA, $QD, AND $DC.  THIS DISPLAYS THE ESOTERIC  *   FILE 381
//*    RESOURCE NAMES THAT ARE ATTACHED TO A PROCESSOR.  A JOB      *   FILE 381
//*    THAT REQUESTS ONE OF A PREDEFINED LIST OF RESOURCES WILL     *   FILE 381
//*    NOT RUN UNLESS THAT RESOURCE NAME IS ATTACHED TO THE         *   FILE 381
//*    APPROPRIATE PROCESSOR.  THIS COMMAND ALLOWS THE CONSOLE      *   FILE 381
//*    OPERATOR TO SEE WHICH RESOURCES HAVE BEEN ATTACHED.  THIS    *   FILE 381
//*    COMMAND WILL ALSO BE INVOKED INTERNALLY WHENEVER A RESOURCE  *   FILE 381
//*    IS ADDED OR DELETED FROM A PROCESSOR.  THE FORMAT OF THE     *   FILE 381
//*    $DR COMMAND IS AS FOLLOWS:                                   *   FILE 381
//*                                                                 *   FILE 381
//*                           JES2 $QA COMMAND                      *   FILE 381
//*                                                                 *   FILE 381
//*    THE $QA COMMAND IS ONE OF THE 4 CONSOLE COMMANDS WHICH       *   FILE 381
//*    CONTROL THE RESOURCE ROUTING FACILITY OF JES2.  THE OTHER    *   FILE 381
//*    COMMANDS ARE $DR, $QD, AND $DC.  JOBS THAT REQUEST           *   FILE 381
//*    RESOURCES WILL NOT RUN UNLESS THAT RESOURCE NAME IS          *   FILE 381
//*    ATTACHED TO THE APPROPRIATE PROCESSOR.  THIS COMMAND ALLOWS  *   FILE 381
//*    THE CONSOLE OPERATOR TO ATTACH A RESOURCE NAME TO A          *   FILE 381
//*    PROCESSOR TO ALLOW THE APPROPRIATE JOBS TO RUN ON THAT       *   FILE 381
//*    MACHINE.  THE $DR COMMAND WILL BE AUTOMATICALLY INVOKED      *   FILE 381
//*    AFTER PROCESSING COMPLETES FOR THIS COMMAND TO LIST THE      *   FILE 381
//*    RESOURCES THAT ARE NOW ATTACHED.  THE $DC COMMAND WILL ALSO  *   FILE 381
//*    BE AUTOMATICALLY INVOKED TO DISPLAY ANY JOBS WHICH STILL     *   FILE 381
//*    CANNOT EXECUTE BECAUSE THE APPROPRIATE RESOURCES ARE NOT     *   FILE 381
//*    AVAILABLE.  THE FORMAT OF THE $QA COMMAND IS AS FOLLOWS:     *   FILE 381
//*                                                                 *   FILE 381
//*                           JES2 $QD COMMAND                      *   FILE 381
//*                                                                 *   FILE 381
//*    THE $QD COMMAND IS ONE OF THE 4 CONSOLE COMMANDS WHICH       *   FILE 381
//*    CONTROL THE RESOURCE ROUTING FACILITY OF JES2.  THE OTHER    *   FILE 381
//*    COMMANDS ARE $QA, $DR, AND $DC.  JOBS WHICH SPECIFY          *   FILE 381
//*    RESOURCES WILL NOT RUN UNLESS THAT RESOURCE NAME IS          *   FILE 381
//*    ATTACHED TO THE APPROPRIATE PROCESSOR.  THIS COMMAND ALLOWS  *   FILE 381
//*    THE CONSOLE OPERATOR TO DETACH A RESOURCE NAME FROM A        *   FILE 381
//*    PROCESSOR IF THAT RESOURCE IS NO LONGER AVAILABLE IN ORDER   *   FILE 381
//*    TO PREVENT JOBS WHICH REQUIRE THAT RESOURCE FROM EXECUTING.  *   FILE 381
//*    THE $DR COMMAND WILL BE AUTOMATICALLY INVOKED AFTER          *   FILE 381
//*    PROCESSING COMPLETES FOR THIS COMMAND TO LIST THE RESOURCES  *   FILE 381
//*    THAT ARE STILL ATTACHED.  THE $DC COMMAND WILL ALSO BE       *   FILE 381
//*    AUTOMATICALLY INVOKED TO DISPLAY ANY JOBS WHICH NOW CANNOT   *   FILE 381
//*    EXECUTE BECAUSE THE APPROPRIATE RESOURCES ARE NOT            *   FILE 381
//*    AVAILABLE.  THE FORMAT OF THE $QD COMMAND IS AS FOLLOWS:     *   FILE 381
//*                                                                 *   FILE 381
//*                         A U T H S V C                           *   FILE 381
//*                                                                 *   FILE 381
//*        THIS SVC IS A TYPE 4 SVC WRITTEN TO ALLOW THE            *   FILE 381
//*        CALLER TO ENTER KEY 0.  THIS SVC IS A LITTLE             *   FILE 381
//*        DIFFERENT FROM MOST OTHER SVC CODE IN THAT IT            *   FILE 381
//*        WRITES AN SMF RECORD FOR EACH CALL TO PERFORM A          *   FILE 381
//*        FUNCTION.  THE CALLING PROGRAM NAME IS ASSUMED TO        *   FILE 381
//*        BE POINTED TO BY REGISTER 0 ON INPUT AND ALL OTHER       *   FILE 381
//*        INFORMATION SUCH AS JOBNAME/TSONAME, PROGRAMMER          *   FILE 381
//*        NAME, AND ACCOUNTING INFORMATION IS EXTRACTED TO         *   FILE 381
//*        PROVIDE AN AUDIT CAPABILITY FOR UNAUTHORIZED USE.        *   FILE 381
//*        THE FUNCTION TO BE PERFORMED IS IN REGISTER 1 ON         *   FILE 381
//*        INPUT.  A ZERO INDICATES THAT PROTECT KEY ZERO IS        *   FILE 381
//*        DESIRED.  ANY OTHER VALUE WILL RESET THE USER BACK       *   FILE 381
//*        TO THE PROTECT KEY IN THE TCB.                           *   FILE 381
//*                                                                 *   FILE 381
//*                   R E S O U R C E   R O U T I N G               *   FILE 381
//*                                                                 *   FILE 381
//*        A SERIES OF EXITS AND CONTROL BLOCK MODIFICATIONS        *   FILE 381
//*        PROVIDES A FACILITY WITHIN JES2 TO ROUTE JOBS TO A       *   FILE 381
//*        RESOURCE NAME RATHER THAN A SPECIFIC PROCESSOR.          *   FILE 381
//*        THIS FACILITY IS A FUNCTIONAL COPY OF A SIMILAR          *   FILE 381
//*        FACILITY WHICH WAS DEVELOPED AND SUPPORTED BY            *   FILE 381
//*        MELLON BANK AND PROVIDED ON MANY OF THE MVS MODS         *   FILE 381
//*        TAPES.                                                   *   FILE 381
//*                                                                 *   FILE 381
//***FILE 382 is from Paul Gillis of Melbourne, Australia, and      *   FILE 382
//*           contains a number of programs and utilities that      *   FILE 382
//*           he has developed.                                     *   FILE 382
//*                                                                 *   FILE 382
//*           Paul Gillis                                           *   FILE 382
//*           Director P.C. Link Pty. Ltd. &                        *   FILE 382
//*           Pacific Systems Management Pty. Ltd.                  *   FILE 382
//*           Melbourne, Australia                                  *   FILE 382
//*                                                                 *   FILE 382
//*   email:  "Paul Gillis" <pgillis@warrandyte.starway.net.au>     *   FILE 382
//*           "@RTS PG" <Paul.Gillis@colesmyer.com.au>              *   FILE 382
//*                                                                 *   FILE 382
//*         UNLOAD and UNLOAD$. The unload assembler program        *   FILE 382
//*         provides the ability to convert a PDS into a flat       *   FILE 382
//*         file and to insert a control card of your own           *   FILE 382
//*         making in between each unloaded member, with the        *   FILE 382
//*         member name inserted at any position in the record.     *   FILE 382
//*                                                                 *   FILE 382
//*         DASD. This SMP/E usermod provides a DASD LSPACE         *   FILE 382
//*         program, that dumps all the data returned by the        *   FILE 382
//*         LSPACE macro into a file for further analysis.          *   FILE 382
//*                                                                 *   FILE 382
//*         DASDSPCE. This SMP/E usermod provides a DASD space      *   FILE 382
//*         command that will display the available space on a      *   FILE 382
//*         selected subset of the dasd farm.                       *   FILE 382
//*                                                                 *   FILE 382
//*         DEBUG. This assembler macro I use to produce debug      *   FILE 382
//*         information from most programs that I write. The        *   FILE 382
//*         debug information is written to any number of           *   FILE 382
//*         possible output data sources.                           *   FILE 382
//*                                                                 *   FILE 382
//*         GRS. This SMP/E usermod provides a WHOHAS type          *   FILE 382
//*         utility, and is normally used for that purpose.         *   FILE 382
//*                                                                 *   FILE 382
//*         SYSTEM. This SMP/E usermod contains a system IPL        *   FILE 382
//*         details program, which includes system symbols.         *   FILE 382
//*                                                                 *   FILE 382
//*         DISASM. Members DISASJCL, DISASMAC and DISASSRC         *   FILE 382
//*         contain an updated version of the disassembler          *   FILE 382
//*         found on file 171. The update supports all of the       *   FILE 382
//*         two byte 01 and B2 instructions. Support was not        *   FILE 382
//*         added for the A4, A5, A6, E4 and E5 opcodes, but        *   FILE 382
//*         could now be added reasonably easily.  Instruction      *   FILE 382
//*         set based on SA22-7209-01 ESA/390 Reference Summary.    *   FILE 382
//*                                                                 *   FILE 382
//***FILE 383 IS FROM INTEL AND CONTAINS A COPY OF THEIR CLISTS     *   FILE 383
//*           REQUIRED FOR USE WITH THEIR TECHINFO SYSTEM WHICH IS  *   FILE 383
//*           CONTAINIED IN FILE 352 OF THIS TAPE.  THIS FILE IS    *   FILE 383
//*           IN IEBCOPY FORMAT (VB LRECL=84 BLKSIZE=15456).        *   FILE 383
//*           SEE THE MEMBER CALLED $$DOC FOR ADDITIONAL            *   FILE 383
//*           INFORMATION.                                          *   FILE 383
//*                                                                 *   FILE 383
//***FILE 384 IS FROM COMPUTER DATA SYSTEMS INC OF ROCKVILLE,       *   FILE 384
//*           MARYLAND.  THIS FILE IS IN IEBUPDTE SYSIN FORMAT      *   FILE 384
//*           AND CONTAINS :                                        *   FILE 384
//*            1.  ISPF QUEUE FOR 1.3.4                             *   FILE 384
//*            2.  ISPF SPY                                         *   FILE 384
//*            3.  SEVERAL OTHER PROGRAMS                           *   FILE 384
//*           MEMBERS ARE :                                         *   FILE 384
//*            1.  $$DOC     DESCRIBE ALL  IN THIS FILE             *   FILE 384
//*            2.  PTFLIB    SOURCES AND JCLS TO USE WITH SMPE CSI  *   FILE 384
//*                          (FINDFIX,  SAS,  ETC)                  *   FILE 384
//*            3.  QISP136   SRCS,  JCLS,  FOR ISPF QUEUE OR TSO    *   FILE 384
//*                          QUE COMMAND FOR MVS 3.8 SP136 & BEFORE *   FILE 384
//*            4.  SOURCE    MISCELLANEOUS SOURCES FOR SEVERAL      *   FILE 384
//*                          PROGRAMS                               *   FILE 384
//*                                                                 *   FILE 384
//***FILE 385 IS FROM THE HARTFORD INSURANCE GROUP AND CONTAINS     *   FILE 385
//*           THE FOLLOWING PROGRAM DESIGNED TO COMPARE TWO         *   FILE 385
//*           COPIES OF LPALIB AND REPORT ON DIFFERENCES IN         *   FILE 385
//*           THEM.  IT ALSO COMPARES ONE OF THE LPALIB COPIES      *   FILE 385
//*           TO LINKLIB TO REPORT ON DUPLICATE MEMBERS.  JCL IS    *   FILE 385
//*           AS FOLLOWS :                                          *   FILE 385
//*                                                                 *   FILE 385
//*            OLDLPA   - POINTS TO THE 'OLD' COPY                  *   FILE 385
//*                       OF LPALIB                                 *   FILE 385
//*            NEWLPA   - POINTS TO THE 'NEW' COPY                  *   FILE 385
//*                       OF LPALIB                                 *   FILE 385
//*            LINKLIB  - OPTIONAL, POINTS TO A                     *   FILE 385
//*                       COPY OF LINKLIB THAT IS                   *   FILE 385
//*                       COMPARED TO THE NEWLPA                    *   FILE 385
//*                       DD.  IF NOT DESIRED,                      *   FILE 385
//*                       DUMMY THIS DD STATEMENT.                  *   FILE 385
//*            REPORT1  - MEMBERS IN OLDLPA THAT                    *   FILE 385
//*                       ARE NOT IN THE                            *   FILE 385
//*                       NEWLPA                                    *   FILE 385
//*            REPORT2  - MEMBERS IN NEWLPA THAT                    *   FILE 385
//*                       ARE NOT IN THE OLDLPA                     *   FILE 385
//*            REPORT3  - DUPLICATE MEMBERS                         *   FILE 385
//*                       BETWEEN LPALIB AND                        *   FILE 385
//*                       LINKLIB                                   *   FILE 385
//*            REPORT4  - CHANGES IN MODULE LENGTH                  *   FILE 385
//*                       OF MEMBERS THAT OCCUR IN                  *   FILE 385
//*                       BOTH OLDLPA AND NEWLPA.                   *   FILE 385
//*                                                                 *   FILE 385
//*            ALL REPORTS GIVE MODULE SIZE, INDICATE               *   FILE 385
//*            ALIAS ENTRIES, (NO SIZE GIVEN FOR ALIASES,           *   FILE 385
//*            AND REPORT ON TOTAL DIFFERENCES.  REPORT 4           *   FILE 385
//*            WILL SHOW THE DIFFERENCE IN SIZE OF TWO              *   FILE 385
//*            COPIES OF THE SAME MODULE, AND WILL REPORT           *   FILE 385
//*            ON THE TOTAL SIZE DIFFERENCE OF THE MODULES          *   FILE 385
//*            LISTED.                                              *   FILE 385
//*                                                                 *   FILE 385
//***FILE 386 is from Salvador Carrasco and contains a collection   *   FILE 386
//*           of REXX execs and other programs.                     *   FILE 386
//*                                                                 *   FILE 386
//*   Salvador Carrasco neither expresses nor implies any           *   FILE 386
//*   warranty as to the fitness of these computer programs for     *   FILE 386
//*   any function.  The use of these programs or the results       *   FILE 386
//*   therefrom is entirely at the risk of the user.                *   FILE 386
//*   Consequently, the user may modify these programs in any       *   FILE 386
//*   way he/she thinks fit.                                        *   FILE 386
//*                                                                 *   FILE 386
//*   These programs are Freeware and may be freely copied.  They   *   FILE 386
//*   may be freely distributed to any other party on condition     *   FILE 386
//*   that no inducement beyond reasonable handling costs is        *   FILE 386
//*   offered or accepted by either side for such distribution.     *   FILE 386
//*                                                                 *   FILE 386
//*   I would be interested to hear of comments and/or proposed     *   FILE 386
//*   enhancements.  Please write to the following address:         *   FILE 386
//*                                                                 *   FILE 386
//*  EMAIL to the author at:                                        *   FILE 386
//*                                                                 *   FILE 386
//*           Internet:   salvador@redestb.es                       *   FILE 386
//*                                                                 *   FILE 386
//*  Visit my Web Page at http://www.redestb.es/personal/salvador   *   FILE 386
//*                                                                 *   FILE 386
//*      $$$READM  Readme Fisrt                                     *   FILE 386
//*      $$INDEX   You are reading this member now                  *   FILE 386
//*      $CHANGES  Changes History                                  *   FILE 386
//*                                                                 *   FILE 386
//*      @EQUS     Equates Macro                                    *   FILE 386
//*      @EQISPF   Equates ISPF                                     *   FILE 386
//*      @ISPFVD   ISPF multi vdefine macro                         *   FILE 386
//*                                                                 *   FILE 386
//*      IGX00200  Ext-Svc authorization                            *   FILE 386
//*                                                                 *   FILE 386
//*      IRXF@DLY  Rexx function - Delay                            *   FILE 386
//*      IRXF@EDM  Rexx function - Edit and mask                    *   FILE 386
//*      IRXF@ENQ  Rexx function - Enq/Deq                          *   FILE 386
//*      IRXF@MAT  Rexx function - Match source/pattern             *   FILE 386
//*      IRXF@MON  Rexx function - Progress Barr                    *   FILE 386
//*      IRXF@SRT  Rexx function - Calling Sort from Rexx           *   FILE 386
//*      IRXF@U34  Rexx function - Read tape units UCBs             *   FILE 386
//*      IRXF@VSK  Rexx function - Vsam KSDS rexx interface         *   FILE 386
//*      IRXF@WTO  Rexx function - WTOR                             *   FILE 386
//*      IRXFLOC   Rexx Package                                     *   FILE 386
//*      IRXFLOC$  Rexx Package - Documentation                     *   FILE 386
//*      IRXFLOCJ  Rexx Package - Compile job                       *   FILE 386
//*      IRXFMONI  Progress Barr program.                           *   FILE 386
//*      IRXFMONP  ISPF Panel for Progress Barr.                    *   FILE 386
//*                                                                 *   FILE 386
//*      ISFPSAM$  Spool Access Method - Documentation              *   FILE 386
//*      ISFPSAMC  Spool Access Method - Interface Rexx - S.A.M     *   FILE 386
//*      ISFPSAMP  Spool Access Method - Parm list macro            *   FILE 386
//*      ISFPSAMR  Spool Access Method - Main Module                *   FILE 386
//*      ISFPSAM1  Spool Access Method - Rexx Example               *   FILE 386
//*                                                                 *   FILE 386
//*      UTILMATC  Utilities - Match Source/Pattern                 *   FILE 386
//*                                                                 *   FILE 386
//***FILE 387 IS CURRENTLY EMPTY                                    *   FILE 387
//*                                                                 *   FILE 387
//***FILE 388 is from David B. Cole and contains his operator       *   FILE 388
//*     commands scheduling facility.  An upgraded version of       *   FILE 388
//*     this code is available from his web site - below:           *   FILE 388
//*                                                                 *   FILE 388
//*            see   schedrun.zip                                   *   FILE 388
//*                                                                 *   FILE 388
//*    Dave Cole has updated most of his contributions, and         *   FILE 388
//*    they are available for direct download from his web          *   FILE 388
//*    site at www.colesoft.com.  The following list of             *   FILE 388
//*    his software is currently available there:                   *   FILE 388
//*                                                                 *   FILE 388
//*         Cole Software LLC's File Upload/Download Area           *   FILE 388
//*                                                                 *   FILE 388
//*       The following shareware is available for download         *   FILE 388
//*                                                                 *   FILE 388
//*      Filename   Platform            Description                 *   FILE 388
//*    asm2zap.zip   OS/390    A utility for converting an          *   FILE 388
//*                            assembly listing into SUPERZAP       *   FILE 388
//*                            cards.                               *   FILE 388
//*                                                                 *   FILE 388
//*    blksptrk.zip  OS/390    A TSO command that computes and      *   FILE 388
//*                            displays track capacities for any    *   FILE 388
//*                            IBM DASD device for any BLKSIZE,     *   FILE 388
//*                            with or without key fields.          *   FILE 388
//*                                                                 *   FILE 388
//*    macros.zip    OS/390    A set of Assembler/390 macros        *   FILE 388
//*                            needed for assembling the various    *   FILE 388
//*                            programs available from Cole         *   FILE 388
//*                            Software LLC.                        *   FILE 388
//*                                                                 *   FILE 388
//*    schedrun.zip  OS/390    A set of MVS programs for            *   FILE 388
//*                            scheduling the execution of System   *   FILE 388
//*                            Operator Commands on an interval     *   FILE 388
//*                            or calander basis. Can be used to    *   FILE 388
//*                            control production scheduling.       *   FILE 388
//*                                                                 *   FILE 388
//*    xrefasm.zip   OS/390    A pair of programs for producing     *   FILE 388
//*                            master cross-reference listings      *   FILE 388
//*                            for multi-assembly programs.         *   FILE 388
//*                                                                 *   FILE 388
//*               COLE SOFTWARE LLC                                 *   FILE 388
//*               736 Fox Hollow Road Afton, VA 22920               *   FILE 388
//*               540-456-8210 540-456-6658: FAX                    *   FILE 388
//*                                                                 *   FILE 388
//*             E-MAIL  :   CSWstaff@cfw.com                        *   FILE 388
//*             INTERNET:   http://www.colesoft.com                 *   FILE 388
//*                                                                 *   FILE 388
//*    COLE SOFTWARE          WEB PAGE: HTTP://WWW.COLESOFT.COM     *   FILE 388
//*    736 FOX HOLLOW ROAD    VOICE:    540-456-8536                *   FILE 388
//*    AFTON, VA 22920        FAX:      540-456-6658                *   FILE 388
//*                                                                 *   FILE 388
//*     FOR ADDITIONAL INFORMATION PLEASE SEE THE MEMBER CALLED     *   FILE 388
//*     $$DOC AND READ THE FOLLOWING :                              *   FILE 388
//*                                                                 *   FILE 388
//*     A PROGRAM HAS BEEN WRITTEN TO PRINT OUT THE AUTOMATIC       *   FILE 388
//*     SCHEDULING FACILITY FILE BY MAY & SPEH AND IS CONTAINED     *   FILE 388
//*     IN FILE 422 OF THIS TAPE                                    *   FILE 388
//*                                                                 *   FILE 388
//*     THE MACROS NEEDED FOR THIS SYSTEM ARE CONTAINED IN          *   FILE 388
//*     FILE 408 OF THIS TAPE                                       *   FILE 388
//*                                                                 *   FILE 388
//*     THE SCHEDULE FACILITY MAKES IT POSSIBLE TO SCHEDULE THE     *   FILE 388
//*     AUTOMATIC EXECUTION OF ANY OPERATOR COMMAND AT ANY TIME     *   FILE 388
//*     OF DAY ON ANY DATE.  THE EXECUTION OF THE COMMAND CAN       *   FILE 388
//*     BE REPEATED ACCORDING TO ANY OF A LARGE VARIETY OF          *   FILE 388
//*     DAILY, WEEKLY, MONTHLY, AND/OR YEARLY REPEAT CYCLES.        *   FILE 388
//*     (SEE THE ACCOMPANYING TSO HELP FILE FOR DETAILS).           *   FILE 388
//*                                                                 *   FILE 388
//*     THE SCHEDULE FACILITY SUPPORTS AN OVERRIDE CAPABILITY       *   FILE 388
//*     WHEREBY PARTICULAR SETS OF PERIODICALLY SCHEDULED           *   FILE 388
//*     COMMANDS CAN BE OVERRIDDEN ON SELECTED DATES (SUCH AS       *   FILE 388
//*     HOLIDAYS) WITH ANOTHER SET OF COMMANDS TO BE EXECUTED       *   FILE 388
//*     INSTEAD.  SUCH OVERRIDES CAN BE DEFINED EVEN YEARS IN       *   FILE 388
//*     ADVANCE, IF DESIRED.                                        *   FILE 388
//*                                                                 *   FILE 388
//*     THE SCHEDULE FACILITY PERMITS THE DEFINITION OF A           *   FILE 388
//*     "WINDOW" PERIOD (DEFINED SEPARATELY FOR EACH SCHEDULED      *   FILE 388
//*     AUTOMATIC COMMAND) WHEREBY:                                 *   FILE 388
//*                                                                 *   FILE 388
//*        - IF THE SYSTEM IS DOWN AT THE TIME THAT A COMMAND       *   FILE 388
//*          IS SCHEDULED TO BE EXECUTED,                           *   FILE 388
//*                                                                 *   FILE 388
//*        - BUT IF THE SYSTEM COMES UP ANY TIME DURING THE         *   FILE 388
//*          SPECIFIED "WINDOW PERIOD" FOLLOWING THE COMMAND'S      *   FILE 388
//*          SCHEDULED TIME,                                        *   FILE 388
//*                                                                 *   FILE 388
//*        - THEN THAT COMMAND WILL BE EXECUTED ANYWAY.             *   FILE 388
//*                                                                 *   FILE 388
//*     THUS THE EXECUTION OF IMPORTANT COMMANDS WON'T BE           *   FILE 388
//*     MISSED JUST BECAUSE THE SYSTEM WASN'T UP IN TIME.           *   FILE 388
//*                                                                 *   FILE 388
//*     IN JES2 "MULTI-ACCESS SPOOL" CONFIGURATIONS, THE            *   FILE 388
//*     SCHEDULE FACILITY'S VSAM DATA BASE CAN BE SHARED            *   FILE 388
//*     BETWEEN MULTIPLE SYSTEMS, AND OPERATOR COMMANDS CAN BE      *   FILE 388
//*     SCHEDULED TO EXECUTE ON EITHER ONE OR THE OTHER (OR         *   FILE 388
//*     "ANY") OF THE ATTACHED CPUS.                                *   FILE 388
//*                                                                 *   FILE 388
//*     THE SCHEDULE FACILITY CAN MAINTAIN A LOG FILE WHERE IT      *   FILE 388
//*     RECORDS A TIMESTAMPED COPY OF ALL OPERATOR COMMANDS         *   FILE 388
//*     THAT IT ISSUES.                                             *   FILE 388
//*                                                                 *   FILE 388
//*     THE SCHEDULE FACILITY IS DESIGNED TO EXECUTE IN A JES2      *   FILE 388
//*     ENVIRONMENT.  IF YOU WISH TO USE IT IN A JES3 SYSTEM,       *   FILE 388
//*     THEN YOU MUST MAKE SUITABLE MODIFICATIONS TO THE            *   FILE 388
//*     FACILITY'S SOURCE CODE.                                     *   FILE 388
//*                                                                 *   FILE 388
//***FILE 389 IS CURRENTLY EMPTY                                    *   FILE 389
//*                                                                 *   FILE 389
//***FILE 390 IS A JES2 5.X.0 VERSION OF QUEUE FROM JACK SCHUDEL    *   FILE 390
//*           OF NERDC AT THE UNIVERSITY OF FLORIDA IN GAINESVILLE  *   FILE 390
//*           FLORIDA.  THIS IS HIS MODIFICATION FROM THE 4.3.0     *   FILE 390
//*           VERSION ON FILE 391, AND JACK CLAIMS THAT IT IS       *   FILE 390
//*           MAY NEED A TWEAKING HERE AND THERE.  HOWEVER, IT      *   FILE 390
//*           WORKS.  SEE HIS NOTES.  CORRECTED BY SAM GOLOB SO     *   FILE 390
//*           THAT THIS VERSION WILL ALSO WORK WHEN ASSEMBLED       *   FILE 390
//*           AGAINST JES2 5.2.0 MACROS.  THIS VERSION NOW WORKS    *   FILE 390
//*           UNDER JES2 5.2.0 ALSO, AS WELL AS UNDER 5.1.0.        *   FILE 390
//*                                                                 *   FILE 390
//***FILE 391 is from Robert Ngan and is an assembler level         *   FILE 391
//*           instruction tracing program called TRACE390.          *   FILE 391
//*                                                                 *   FILE 391
//*           Documentation for this program is in member           *   FILE 391
//*           $DOCTRAC.  Member $EXTRACE, which contains a sample   *   FILE 391
//*           of the output of this program, is in TSO XMIT         *   FILE 391
//*           format, which becomes a sequential file with          *   FILE 391
//*           RECFM=FB, LRECL=133, after TSO RECEIVE is done        *   FILE 391
//*           to it, as the INDSN dataset name.                     *   FILE 391
//*                                                                 *   FILE 391
//*           Member $TRACDOC is in Word 97 format.  In order to    *   FILE 391
//*           read it, download it "binary" RECFM=FB,LRECL=80       *   FILE 391
//*           to a pc, and it should be readable.  I tried it,      *   FILE 391
//*           and it was ok.                                        *   FILE 391
//*                                                                 *   FILE 391
//*         Address:                                                *   FILE 391
//*                                                                 *   FILE 391
//*         Robert Ngan (October 1999)                              *   FILE 391
//*         CSC Financial Services Group,                           *   FILE 391
//*         Dallas, TX 75240                                        *   FILE 391
//*                                                                 *   FILE 391
//*           email:                                                *   FILE 391
//*                                                                 *   FILE 391
//*           RobertNgan@compuserve.com                             *   FILE 391
//*           robngan@gte.net                                       *   FILE 391
//*           Robert_Ngan@csc.com                                   *   FILE 391
//*                                                                 *   FILE 391
//***FILE 392 IS A JES2 4.2.0 VERSION OF QUEUE FROM LEONARD WOREN.  *   FILE 392
//*                                                                 *   FILE 392
//*           THIS VERSION HAS CONDITIONAL ASSEMBLY THAT ALSO       *   FILE 392
//*           ALLOWS IT TO WORK FOR ALL PREVIOUS MODERN LEVELS      *   FILE 392
//*           OF JES2.  THIS QUEUE TSO COMMAND DIFFERS SOMEWHAT     *   FILE 392
//*           IN SCREEN APPEARANCES FROM THE OTHER "QUEUE" TSO      *   FILE 392
//*           PROGRAMS ON THIS TAPE, BUT I THINK IT IS AN           *   FILE 392
//*           IMPROVEMENT.  THAT IS A MATTER OF OPINION.  QUEUE     *   FILE 392
//*           IS A TSO COMMAND TO LOOK AT JES2 SPOOL DATASETS.      *   FILE 392
//*                                                                 *   FILE 392
//*        ------------------------------------------------------   *   FILE 392
//*                                                                 *   FILE 392
//*           Leonard Woren maintains many of his programs in       *   FILE 392
//*           downloadable form at his web site.  It is highly      *   FILE 392
//*           recommended that you go to Leonard's web site to      *   FILE 392
//*           obtain the latest versions of his programs.  This     *   FILE 392
//*           file, together with Files 179, 180, and 181, have     *   FILE 392
//*           not been updated since 1992, and Leonard prefers      *   FILE 392
//*           that people go directly to his site.                  *   FILE 392
//*                                                                 *   FILE 392
//*           email address:    Leonard Woren <ldw@best.com>        *   FILE 392
//*                                                                 *   FILE 392
//*           web site:         http://www.best.com/~ldw/mvs/       *   FILE 392
//*                                                                 *   FILE 392
//***FILE 393 IS CURRENTLY EMPTY                                    *   FILE 393
//*                                                                 *   FILE 393
//***FILE 394 is from Jan Jakubek of Toronto, Ontario, Canada,      *   FILE 394
//*           and contains a program to analyze space utilization   *   FILE 394
//*           in a KSDS.  The program has a statistical report      *   FILE 394
//*           and a graphical report.                               *   FILE 394
//*                                                                 *   FILE 394
//*           (Nice.  I've tried it.   SG-09/99)                    *   FILE 394
//*                                                                 *   FILE 394
//*             JAN (JANEK) JAKUBEK                                 *   FILE 394
//*                                                                 *   FILE 394
//*             Tel  :     416-255-8807      (Canada)               *   FILE 394
//*             Email:     Jan.Jakubek@CGI.CA                       *   FILE 394
//*                                                                 *   FILE 394
//***FILE 395 is from Seymour Metz, and contains a REXX exec        *   FILE 395
//*           that can be very useful when putting up a new MVS     *   FILE 395
//*           system.                                               *   FILE 395
//*                                                                 *   FILE 395
//*           email:   "Metz, Seymour" <smetz@nsf.gov>              *   FILE 395
//*                                                                 *   FILE 395
//*           This EXEC catalogs all of the PO and PS datasets      *   FILE 395
//*           on a volume using the extended indirect format.       *   FILE 395
//*           It assumes that all of the volumes of a system        *   FILE 395
//*           have a common 3-character prefix, that the last       *   FILE 395
//*           three characters are one of DLB, DL2, RES or RS2      *   FILE 395
//*           and that the static system variables &SYSDL1,         *   FILE 395
//*           &SYSDL2, &SYSR1 and &SYSR2 will refer to those        *   FILE 395
//*           volumes.                                              *   FILE 395
//*                                                                 *   FILE 395
//*           If a catalog is not supplied, then the master         *   FILE 395
//*           catalog is assumed.                                   *   FILE 395
//*                                                                 *   FILE 395
//*           I'd say that the user has to customize this EXEC      *   FILE 395
//*           to his/her local situation, but it's a good starting  *   FILE 395
//*           point.  (S.Golob  9/99)                               *   FILE 395
//*                                                                 *   FILE 395
//***FILE 396 is from Scott Hawley of Indianapolis, Indiana,        *   FILE 396
//*           and contains a very handy REXX exec to do a quick     *   FILE 396
//*           text search of a pds from an ISPF 3.4 panel.  The     *   FILE 396
//*           name of the exec is FINDSTR, and it invokes           *   FILE 396
//*           ISRSUPC to do the text search.                        *   FILE 396
//*                                                                 *   FILE 396
//*           This little widget has been VERY nice to have.        *   FILE 396
//*           It's meant to be used with the 3.4 panel as a line    *   FILE 396
//*           command.  I hate having to do the old cut/bounce      *   FILE 396
//*           to 3.14/paste game.  The way it's written you can     *   FILE 396
//*           simply say FINDSTR A HAPPY SYSPROG (no quotes) as     *   FILE 396
//*           a line command and a pds search is done with          *   FILE 396
//*           ISRSUPC for the phrase 'A HAPPY SYSPROG'.             *   FILE 396
//*                                                                 *   FILE 396
//*              Scott Hawley                                       *   FILE 396
//*              Corporate Information Systems                      *   FILE 396
//*              Thomson Consumer Electronics, Inc.                 *   FILE 396
//*              Indianapolis, IN  46234                            *   FILE 396
//*              Phone: (317) 587-3268 Fax: (317) 587-9541          *   FILE 396
//*              Internet Mail: HawleyS@tce.com                     *   FILE 396
//*                                                                 *   FILE 396
//***FILE 397 IS CURRENTLY EMPTY                                    *   FILE 397
//*                                                                 *   FILE 397
//***FILE 398 is from the contributor of File 171, which was        *   FILE 398
//*           contributed semi-anonymously.  All correspondence     *   FILE 398
//*           concerning this file should go through Sam Golob,     *   FILE 398
//*           and the support questions will be facilitated that    *   FILE 398
//*           way.                                                  *   FILE 398
//*                                                                 *   FILE 398
//*           This file contains a macro called IBMMAC.  This       *   FILE 398
//*           macro calls other control block mapping macros,       *   FILE 398
//*           but you don't have to remember their names.           *   FILE 398
//*           That's the idea.                                      *   FILE 398
//*                                                                 *   FILE 398
//*           For example, if you want to map a VTOC DSCB, you      *   FILE 398
//*           don't have to remember that IBM's mapping macro       *   FILE 398
//*           name is IECSDSL1, and that you have to code a 1,      *   FILE 398
//*           2, 3, 4, 5, or 6 afterward, depending on the format   *   FILE 398
//*           type you want mapped.  With this macro, you only      *   FILE 398
//*           have to code:    IBMMAC VTOC=4 , or something         *   FILE 398
//*           similar, depending on the format type you want.       *   FILE 398
//*                                                                 *   FILE 398
//*           The original contributor's macro has been improved    *   FILE 398
//*           by Robert Rosenberg.  Bob Rosenberg's macro is now    *   FILE 398
//*           included here as member IBMMAC, and the original      *   FILE 398
//*           contributor's macro is also included, as member       *   FILE 398
//*           IBMMACO.                                              *   FILE 398
//*                                                                 *   FILE 398
//*           There are also two ISPF edit macros called IMAC       *   FILE 398
//*           and IMACBLD from Dave Alcock included here, which     *   FILE 398
//*           perform approximately the same function as the        *   FILE 398
//*           assembler macro IBMMAC--that is, they allow you to    *   FILE 398
//*           properly generate the coding of IBM macros,           *   FILE 398
//*           without your having to know all the particulars.      *   FILE 398
//*           IMACBLD uses the member HANDBOOK (from Gilbert        *   FILE 398
//*           Saint-flour) to generate IMAC, which is the edit      *   FILE 398
//*           macro that generates the IBM assembler macro coding.  *   FILE 398
//*                                                                 *   FILE 398
//*           Sam Golob                                             *   FILE 398
//*           P.O. Box 906                                          *   FILE 398
//*           Tallman, NY  10982-0906                               *   FILE 398
//*           845-362-1996                                          *   FILE 398
//*                                                                 *   FILE 398
//*           email:  sbgolob@attglobal.net and/or sbgolob@aol.com  *   FILE 398
//*                                                                 *   FILE 398
//*           "Robert A. Rosenberg" <bob.rosenberg@digitscorp.com>  *   FILE 398
//*                                                                 *   FILE 398
//*           Dave Alcock can be reached at his email               *   FILE 398
//*           addresses:   David Alcock <davea@ticnet.com> (home)   *   FILE 398
//*                        dalcock@csw.com   (work)                 *   FILE 398
//*                                                                 *   FILE 398
//*           The author and I both request that others make an     *   FILE 398
//*           attempt to expand the IBMMAC macro to include a       *   FILE 398
//*           larger number of control blocks, and then send the    *   FILE 398
//*           result back to me, for inclusion in this file.        *   FILE 398
//*           Thanks in advance, from everybody, for your help.     *   FILE 398
//*                                                                 *   FILE 398
//***FILE 399 CONTAINS TSSO MODIFICATIONS, CLISTS, ETC.             *   FILE 399
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT WITH EACH       *   FILE 399
//*           MEMBER CONTAINING THE COMPLETE CONTRIBUTION FROM      *   FILE 399
//*           EACH CONTRIBUTOR.  SEE THE MEMBER CALLED $$INDEX      *   FILE 399
//*           FOR ADDITIONAL INFORMATION.                           *   FILE 399
//*                                                                 *   FILE 399
//*           THIS MEMBER IS IN IEBUPDTE SYSIN FORMAT BUT THE       *   FILE 399
//*           "./" CARDS HAVE BEEN CHANGED TO "><" SO YOU MUST      *   FILE 399
//*           DO A CHANGE ALL AND THEN RUN IEBUPDTE.  OR ELSE       *   FILE 399
//*           YOU CAN RUN PDSLOAD FROM FILE 093.  LOAD MODULE       *   FILE 399
//*           FOR PDSLOAD IS ON FILE 035.  PDSLOAD WILL CHANGE      *   FILE 399
//*           THE "><" BACK TO "./" AS IT RELOADS EACH MEMBER,      *   FILE 399
//*           WHEN YOU TELL IT TO DO SO IN A PARM.                  *   FILE 399
//*                                                                 *   FILE 399
//*    INDEX :                                                      *   FILE 399
//*      MANUALL    IS FROM JIM LANE AT MANUFACTURERS LIFE          *   FILE 399
//*                 INSURANCE COMPY OF TORONTO CANADA AND CONTAINS  *   FILE 399
//*                 THE FOLLOWING MEMBERS :                         *   FILE 399
//*                                                                 *   FILE 399
//*           AUTOCMDS - RE-ESTABLISH JES2 AUTOMATIC COMMANDS       *   FILE 399
//*           CHKFILES - FIND OUT IF DATASETS NEEDED BY ONLINE      *   FILE 399
//*                      SYSTEMS ARE MISSING                        *   FILE 399
//*           CJ       - CANCEL, HOLD AND REQUEUE A JOB             *   FILE 399
//*           CLEANUP  - INITIATE DFHSM CLEANUP OF SCRATCH PACKS    *   FILE 399
//*           DATE     - CONVERT JULIAN DATE TO NICE FORMAT         *   FILE 399
//*           DCIDMS   - REPLIES TO WTOR TO BRING DOWN A VERSION OF *   FILE 399
//*                      IDMS                                       *   FILE 399
//*           ECHO     - WRITE OUTPUT OF OSCMD TO OPER CONSOLE      *   FILE 399
//*           HKPRT    - START PRINTERS IN HONG KONG                *   FILE 399
//*           HOTSTART - SHUT DOWN AND HOTSTART JES2                *   FILE 399
//*           IEC701D  - REPLY U TO A DATE PROTECTION MESSAGE       *   FILE 399
//*           IEF238D  - REPLY WAIT FOR ALLOCATION RECOVERY         *   FILE 399
//*           IEF433D  - REPLY NOHOLD FOR ALLOCTION RECOVERY        *   FILE 399
//*           INITD    - SET INITIATORS TO DAYTIME CONFIGURATION    *   FILE 399
//*           IPLBASIC - START THINGS UP AFTER AN IPL               *   FILE 399
//*           JESCMDS  - RE-ESTABLISH JES2 AUTOMATIC COMMANDS       *   FILE 399
//*           J328XPRT - RESTART JES328X SUPPORTED REMOTES          *   FILE 399
//*           OMEGAON  - START OMEGAMON SESSIONS                    *   FILE 399
//*           OMEGATAP - SETUP OMEGAMON FOR THE TAPE OPERATORS      *   FILE 399
//*           ONLINES  - BRING UP ONLINE SYSTEMS WHEN NO IPL THIS   *   FILE 399
//*                      AM                                         *   FILE 399
//*           PCIDMS   - REPLIES TO WTOR TO BRING DOWN A VERSION OF *   FILE 399
//*                      IDMS                                       *   FILE 399
//*           RMTMSG   - SEND A MESSAGE WHEN A REMOTE JOB STARTS    *   FILE 399
//*                      PRINTING                                   *   FILE 399
//*           RMTSET   - HANDLE THE $HASP190 MESSAGE FOR JES328X    *   FILE 399
//*                      REMOTES                                    *   FILE 399
//*           RMTSTART - RESTART A PRINTER WHEN JES328X HAS A       *   FILE 399
//*                      PROBLEM                                    *   FILE 399
//*           SHUTCICS - SHUTDOWN A CICS SYSTEM                     *   FILE 399
//*           SHUTDOWN - SHUTDOWN EVERYTHING                        *   FILE 399
//*           SMFDUMP  - DUMP ANY FULL SMF DATASETS                 *   FILE 399
//*           SPLCLEAN - CLEAN UP THE JUNK WHEN SPOOL % > 80        *   FILE 399
//*           STRTAUTO - START AUTOA AFTER TSSO COMES UP            *   FILE 399
//*           STRT328X - START JES328X AFTER AN IPL                 *   FILE 399
//*           TOOLONG  - REFLECT THE $HASP308 MESSAGE BACK TO THE   *   FILE 399
//*                      SUBMITTER                                  *   FILE 399
//*           UNAV     - WARN OPER THAT A JOB HAS UNAVAILABLE       *   FILE 399
//*                      VOLUMES                                    *   FILE 399
//*           USTRIDMS - SHUT DOWN AN IDMS SYSTEM                   *   FILE 399
//*                                                                 *   FILE 399
//***FILE 400 IS DYNAMASK FROM SECURITY PACIFIC NATIONAL BANK       *   FILE 400
//*           IN CALIFORNIA.  THIS FILE IS IN IEBUPDTE SYSIN        *   FILE 400
//*           FORMAT.  THIS FILE CONTAINS THE FOLLOWING MEMBERS     *   FILE 400
//*           FOR ADDITIONAL INFORMATION SEE THE MEMBER CALLED      *   FILE 400
//*           $$DYNDOC.                                             *   FILE 400
//*                                                                 *   FILE 400
//*           STEVE SMITH, WHO SUPPORTS DYNAMASK, NOW WORKS AT      *   FILE 400
//*           SERENA INTERNATIONAL IN BURLINGAME, CALIFORNIA.       *   FILE 400
//*           PHONE:  415-696-1753                                  *   FILE 400
//*                                                                 *   FILE 400
//*           THIS TAPE CONTAINS A VERSION OF DYNAMASK THAT WILL    *   FILE 400
//*           WORK FOR MVS/ESA 4.2, BESIDES THE OTHER VERSIONS      *   FILE 400
//*           OF DYNAMASK FOR THE OTHER MVS SYSTEM LEVELS.          *   FILE 400
//*           THE VERSION 4.2 DYNAMASK ALSO WORKS WHEN AN IODF      *   FILE 400
//*           IS BEING USED.                                        *   FILE 400
//*                                                                 *   FILE 400
//*           $$DYNDOC.....DOCUMENTATION MEMBER                     *   FILE 400
//*                                                                 *   FILE 400
//*           DYNAMASK ....PROVIDES THE ABILITY TO                  *   FILE 400
//*                        DYNAMICALLY CHANGE AND ADD TO THE        *   FILE 400
//*                        UNIT NAMES DEFINED AT SYSGEN.            *   FILE 400
//*                        DYNAMASK OPTIONALLY CAN BE GIVEN         *   FILE 400
//*                        UNIT ADDRESSES OR VOLUMES AND THE        *   FILE 400
//*                        UNIT NAMES WILL BE ASSIGNED TO THE       *   FILE 400
//*                        UNIT ADDRESSES THAT THE VOLUMES ARE      *   FILE 400
//*                        CURRENTLY MOUNTED.  IT CAN BE RUN AT     *   FILE 400
//*                        ANY TIME THE SYSTEM IS DRAINED OF ALL    *   FILE 400
//*                        ACTIVITY.  DYNAMASK RUNS AS AN           *   FILE 400
//*                        OPERATOR REQUESTED OR BATCH              *   FILE 400
//*                        SUBMITTED UTILITY WHICH MAKES THE        *   FILE 400
//*                        NECESSARY CONTROL BLOCK CHANGES AND      *   FILE 400
//*                        EXITS.  IT REQUIRES MINIMUM              *   FILE 400
//*                        RESOURCES AND EXECUTES IN A FEW          *   FILE 400
//*                        SECONDS.  DYNAMASK SUPPORTS THE          *   FILE 400
//*                        FOLLOWING RELEASES:  MVS3.8 -            *   FILE 400
//*                        MVS/SP1.3, MVS/XA2.0 - 2.1.7             *   FILE 400
//*                                                                 *   FILE 400
//*                        COMPLETE DOCUMENTATION IS CONTAINED      *   FILE 400
//*                        IN THE COMMENTS AT THE FRONT OF THE      *   FILE 400
//*                        SOURCE.                                  *   FILE 400
//*                                                                 *   FILE 400
//*           DYNAMSK2.....THE MVS/XA 2.2.0 VERSION                 *   FILE 400
//*                                                                 *   FILE 400
//*           DYNAMSK4.....THE MVS/ESA 4.2.0 VERSION                *   FILE 400
//*                                                                 *   FILE 400
//*           DYNAMAS^.....PREVIOUS VERSION OF DYNAMASK             *   FILE 400
//*                        ^ IS EQUAL TO AN AT-SIGN                 *   FILE 400
//*                                                                 *   FILE 400
//*           DYNASWAP.....PROVIDES THE ABILITY TO                  *   FILE 400
//*                        DYNAMICALLY SWAP TWO DEVICES             *   FILE 400
//*                        WITHIN THE EDT,  BOTH DEVICES            *   FILE 400
//*                        MUST BE OFFLINE DASD DEVICES.            *   FILE 400
//*                        THIS PROVIDES A WAY TO REPLACE A         *   FILE 400
//*                        BAD VOLUME WITH A RECOVERY VOLUME        *   FILE 400
//*                        FOR ALL RELATED ESOTERIC NAMES           *   FILE 400
//*                        WITHIN THE EDT.                          *   FILE 400
//*                                                                 *   FILE 400
//*           DYNASWP4.....THE MVS/ESA 4.2.0 VERSION                *   FILE 400
//*                                                                 *   FILE 400
//*           GENERIC......THIS IS A MVS/370 PROGRAM TO UPDATE      *   FILE 400
//*                        THE DEVTMASK AND DEVTNAME TABLES.        *   FILE 400
//*                        IT WILL BE CALLED BY DYNAMASK IF         *   FILE 400
//*                        INCLUDED IN THE LKED AND WILL BE         *   FILE 400
//*                        BYPASSED IF IN A XA SYSTEM.  THIS        *   FILE 400
//*                        PROGRAM WAS WRITTEN BY LOCKHEED          *   FILE 400
//*                        CALIFORNIA.                              *   FILE 400
//*                                                                 *   FILE 400
//*           VATUCB.......THIS IS A PROGRAM TO UPDATE THE          *   FILE 400
//*                        UCB'S FROM INFORMATION IN A USER         *   FILE 400
//*                        SUPPLIED VATLST.  THIS WILL RUN IN       *   FILE 400
//*                        XA AND MVS/370 MODE.  IT WILL BE         *   FILE 400
//*                        CALLED BY DYNAMASK IF INCLUDED IN        *   FILE 400
//*                        THE LKED.  THIS PROGRAM WAS WRITTEN      *   FILE 400
//*                        BY LOCKHEED CALIFORNIA.                  *   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 FROM A COMPANY IN NEW ENGLAND, AND IS SOURCE FOR   *   FILE 404
//*           TSSO TO BE RUN UNDER OS/390.  THIS SOURCE WAS TAKEN   *   FILE 404
//*           FROM THE VERSION OF TSSO ON FILE 403 AND MODIFIED.    *   FILE 404
//*           AT THIS TIME, I GUESS YOU CAN CONSIDER THIS FILE TO   *   FILE 404
//*           BE THE LATEST VERSION OF FREE TSSO.                   *   FILE 404
//*                                                                 *   FILE 404
//*    Note.  For older versions of TSSO (Bellcore version),        *   FILE 404
//*           please see Files 247, 248, 249 of the CBT Overflow    *   FILE 404
//*           Tape.  The mapping from the former files on this      *   FILE 404
//*           tape is as follows:                                   *   FILE 404
//*                                                                 *   FILE 404
//*    File 401 - Original Bellcore version ---> File 247 (Ovrflow) *   FILE 404
//*    File 402 - Dave Cartwright's updates ---> File 248 (Ovrflow) *   FILE 404
//*    File 403 - DC updates fitted to F401 ---> File 249 (Ovrflow) *   FILE 404
//*    File 404 - (This file) - File 403 updated to run on OS/390.  *   FILE 404
//*                                                                 *   FILE 404
//*           Bill Godfrey's original version of TSSO is still      *   FILE 404
//*           on File 306 of the CBT MVS Utilities Tape.            *   FILE 404
//*                                                                 *   FILE 404
//*           The Time Sharing Subsystem Option (TSSO) is a         *   FILE 404
//*           package designed to increase operator productivity    *   FILE 404
//*           by automating tasks which need not be performed       *   FILE 404
//*           manually.  TSSO performs its function through three   *   FILE 404
//*           integrated components.  The Operator Productivity     *   FILE 404
//*           Facility (OPF) extends the power of TSO to the        *   FILE 404
//*           MVS operator's console.  The Automated Operations     *   FILE 404
//*           Facility (AOF) enhances an installation's             *   FILE 404
//*           ability to control system events based on console     *   FILE 404
//*           message traffic.  An interface to the Network         *   FILE 404
//*           Communication Control Facility (NCCF) allows the      *   FILE 404
//*           network operator to use TSSO as a command processor,  *   FILE 404
//*           issuing and receiving operating system commands at    *   FILE 404
//*           the NCCF terminal.  Note that NCCF is now an inte-    *   FILE 404
//*           grated part of Netview.  TSSO also enhances end-user  *   FILE 404
//*           productivity by allowing end-user access to the MVS   *   FILE 404
//*           Command Subsystem.  A complete User's Guide,          *   FILE 404
//*           including detailed installation instructions exists   *   FILE 404
//*           in member UG43TERM in this file.                      *   FILE 404
//*                                                                 *   FILE 404
//*           A guide to the new features of TSSO Version 4,        *   FILE 404
//*           Release 3 is in the member RELGDE43 in this file.     *   FILE 404
//*                                                                 *   FILE 404
//*           Anyone with an interest in automated operations is    *   FILE 404
//*           invited to look at TSSO as a software tool providing  *   FILE 404
//*           many of the primitives required for common automated  *   FILE 404
//*           operations tasks.  These primitives include the       *   FILE 404
//*           hilighting, lowlighting, replying and reacting to     *   FILE 404
//*           operating system messages.  This is in addition to    *   FILE 404
//*           the ability to issue a command and retrieve the       *   FILE 404
//*           response in CLIST variables.                          *   FILE 404
//*                                                                 *   FILE 404
//* --------------------------------------------------------------  *   FILE 404
//*                                                                 *   FILE 404
//*      Note on Dave Cartwright's modifications:                   *   FILE 404
//*                                                                 *   FILE 404
//*         The purpose of these modifications is to allow TSSO     *   FILE 404
//*         to handle automated message processing with multi-      *   FILE 404
//*         line WTO's and to do other new functions.  File 402     *   FILE 404
//*         has been merged into TSSO 4.3 by Guy Albertelli.  So    *   FILE 404
//*         it's probably best to ignore File 402 and install       *   FILE 404
//*         File 404 instead, which is an OS/390 upgrade of the     *   FILE 404
//*         former File 403.  As noted above, the former Files      *   FILE 404
//*         401 thru 403 have been moved to the CBT Overflow Tape.  *   FILE 404
//*                                                                 *   FILE 404
//* --------------------------------------------------------------  *   FILE 404
//*                                                                 *   FILE 404
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT.                *   FILE 404
//*                                                                 *   FILE 404
//*           QUESTIONS, PLEASE CONTACT Sam Golob:                  *   FILE 404
//*                      NEW PHONE NUMBER:    845-362-1996          *   FILE 404
//*                                                                 *   FILE 404
//*               EMAIL:    sbgolob@aol.com        OR               *   FILE 404
//*                         sbgolob@attglobal.net                   *   FILE 404
//*                                                                 *   FILE 404
//***FILE 405 IS FROM THE DEFENSE LOGISTICS AGENCY IN COLUMBIA      *   FILE 405
//*           OHIO AND CONTAINS SOME OF THEIR EXITS AND UTILITIES.  *   FILE 405
//*                                                                 *   FILE 405
//*           CMD1     - A STARTED TASK PROCEDURE FOR DSACTASK TO   *   FILE 405
//*                      MANAGE DYNABLDL AND THE AUTOREPLY FACILITY *   FILE 405
//*                                                                 *   FILE 405
//*           IEAVNP99 - USER NIP EXIT.                             *   FILE 405
//*                                                                 *   FILE 405
//*           IEECVXIT - MCS EXIT THAT ALLOWS CONSOLE MESSAGE ID'S  *   FILE 405
//*                      AND RESPONSE STRINGS TO BE CHANGED ON THE  *   FILE 405
//*                      FLY.                                       *   FILE 405
//*                                                                 *   FILE 405
//*           IEFDB401 - DYNAMIC ALLOCATION EXIT.                   *   FILE 405
//*                                                                 *   FILE 405
//*           IND$DAIR - EXITS FOR WRITING SMF RECORDS AND SECURITY *   FILE 405
//*                                                                 *   FILE 405
//*           PLIBSMF0   CONSOLE MESSAGES WHEN UP/DOWN LOADING BE-  *   FILE 405
//*                      TWEEN MAINFRAMES AND PC'S.                 *   FILE 405
//*                                                                 *   FILE 405
//*           FCB      - UTILITY MACRO FOR CODING 3202 AND 3211 FCB *   FILE 405
//*                      IMAGES.  STARTED OUT IN HASP 3.1.          *   FILE 405
//*                                                                 *   FILE 405
//*           THE MACROS NEEDED FOR ASSEMBLY OF THE SOURCE ARE      *   FILE 405
//*           INCLUDED IN THIS FILE.  FOR ADDITIONAL INFORMATION    *   FILE 405
//*           READ THE MEMBER CALLED ##DOC.  THIS FILE IS IN        *   FILE 405
//*           IEBUPDTE SYSIN FORMAT                                 *   FILE 405
//*                                                                 *   FILE 405
//***FILE 406 IS CURRENTLY EMPTY                                    *   FILE 406
//*                                                                 *   FILE 406
//***FILE 407 CONTAINS A COPY OF DYNAMIC BLDL FROM COMNET IN        *   FILE 407
//*           WASHINGTON D.C. AND WAS WRITTEN BY MR DAVID B COLE.   *   FILE 407
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT (SEE THE        *   FILE 407
//*           MEMBER CALLED $$DOC FOR ADDITIONAL DOCUMENTATION).    *   FILE 407
//*                                                                 *   FILE 407
//*    COLE SOFTWARE          WEB PAGE: HTTP://WWW.COLESOFT.COM     *   FILE 407
//*    736 FOX HOLLOW ROAD    VOICE:    540-456-8536                *   FILE 407
//*    AFTON, VA 22920        FAX:      540-456-6658                *   FILE 407
//*                                                                 *   FILE 407
//*           THE MACROS NEEDED ARE CONTAINED IN FILE 408 OF        *   FILE 407
//*           THIS TAPE AND THE DYNABLDL LOAD MODULE FOR THIS       *   FILE 407
//*           LEVEL OF SOURCE RESIDES IN FILE 035 OF THIS TAPE.     *   FILE 407
//*                                                                 *   FILE 407
//*           THIS PROGRAM IS CONCEPTUALLY BASED ON THE VARIOUS     *   FILE 407
//*           DYNAMIC BLDL PROGRAMS AVAILABLE FROM THE "CBT         *   FILE 407
//*           UTILITIES" TAPE.  HOWEVER, THIS VERSION IS A          *   FILE 407
//*           COMPLETE REWRITE THAT INCORPORATES A SERIES OF        *   FILE 407
//*           IMPROVEMENTS:                                         *   FILE 407
//*                                                                 *   FILE 407
//*           THIS FILE ALSO CONTAINS AN XA VERSION OF DYNABLDL.    *   FILE 407
//*           SEE THE MEMBER CALLED $$XADOC FOR ADDITIONAL          *   FILE 407
//*           INFORMATION.  THE XA VERSION OF DYNABLDL WAS          *   FILE 407
//*           WRITTEN BY JOHN ANDERSON AND JEFF BROIDO AT           *   FILE 407
//*           WESTERN UNION/EDS IN MAHWAH, NEW JERSEY.              *   FILE 407
//*                                                                 *   FILE 407
//*                 - THIS VERSION OF DYNABLDL IS                   *   FILE 407
//*                   CAPABLE OF RECOGNIZING AND HOOKING            *   FILE 407
//*                   INTO ANY OF SEVERAL VERSIONS OF               *   FILE 407
//*                   IBM'S IGC018.  THE RECOGNITION CODE           *   FILE 407
//*                   IS TABLE DRIVEN, AND ADDITIONAL               *   FILE 407
//*                   RECOGNITION TABLES CAN BE FAIRLY              *   FILE 407
//*                   EASILY ADDED.                                 *   FILE 407
//*                                                                 *   FILE 407
//*                 - THE RECOGNITION TABLES ARE                    *   FILE 407
//*                   COMPREHENSIVE.  EACH TABLE CONSISTS           *   FILE 407
//*                   OF FOUR PARTS.  THE FIRST, LABELED            *   FILE 407
//*                   "ID#" (WHERE "#" REPRESENTS AN                *   FILE 407
//*                   ARBITRARY UNIQUE NUMERIC SUFFIX),             *   FILE 407
//*                   MUST MATCH AN IGC018'S                        *   FILE 407
//*                   IDENTIFICATION HEADER.  THIS IS               *   FILE 407
//*                   USED TO DISTINGUISH ONE IGC018                *   FILE 407
//*                   FROM ANOTHER.  THE SECOND AND THIRD           *   FILE 407
//*                   PARTS, LABELED "SRCHPO#" AND                  *   FILE 407
//*                   "DFOUND#", MUST MATCH THE TWO                 *   FILE 407
//*                   LOCATIONS IN IGC018 WHERE DYNABLDL            *   FILE 407
//*                   INSERTS ITS JUMPS TO ITS INTERCEPT            *   FILE 407
//*                   ROUTINES.  THE FOURTH PART CONSISTS           *   FILE 407
//*                   OF A LIST OF DESCRIPTORS OF ALL               *   FILE 407
//*                   IBM PRIVATE DATA FIELDS REFERENCED            *   FILE 407
//*                   BY THE INTERCEPT ROUTINES.  MOST              *   FILE 407
//*                   OF THE DESCRIPTORS ARE S-CONS                 *   FILE 407
//*                   GIVING THE BASE REGISTER BY WHICH             *   FILE 407
//*                   IGC018 REFERENCES A FIELD AND THE             *   FILE 407
//*                   DISPLACEMENT OF THAT FIELD INTO               *   FILE 407
//*                   THE IBM PRIVATE CONTROL BLOCK.  THE           *   FILE 407
//*                   DYNABLDL INITIALIZATION ROUTINE               *   FILE 407
//*                   USES THIS LIST TO DYNAMICALLY                 *   FILE 407
//*                   MODIFY ALL MACHINE INSTRUCTIONS IN            *   FILE 407
//*                   THE TWO INTERCEPT ROUTINES SO THAT            *   FILE 407
//*                   THEY CORRECTLY MATCH THE PARTICULAR           *   FILE 407
//*                   VERSION OF IGC018 BEING HOOKED                *   FILE 407
//*                   INTO.  NOTE, THE TWO IBM PRIVATE              *   FILE 407
//*                   CONTROL BLOCKS INVOLVED HERE ARE              *   FILE 407
//*                   THE "BLDL WORK AREA" AND BLDL'S               *   FILE 407
//*                   "SVRB EXTENDED SAVE AREA".                    *   FILE 407
//*                                                                 *   FILE 407
//*                 - ALL ROUTINES RELATED TO DYNABLDL              *   FILE 407
//*                   HAVE BEEN CONSOLIDATED INTO A                 *   FILE 407
//*                   SINGLE PROGRAM.  THIS RELIEVES THE            *   FILE 407
//*                   POTENTIAL FOR ERRORS ARISING FROM             *   FILE 407
//*                   PARTIAL MODIFICATIONS.                        *   FILE 407
//*                                                                 *   FILE 407
//*                 - THE DYNAMIC BLDL TABLE IS NOW                 *   FILE 407
//*                   MAINTAINED BY A STRAIGHTFORWARD               *   FILE 407
//*                   "LEAST RECENTLY USED" ALGORITHM.              *   FILE 407
//*                   THE PREVIOUSLY USED PERIODIC SORTS            *   FILE 407
//*                   AND PARTIAL REFILL METHOD HAS BEEN            *   FILE 407
//*                   DISCARDED.                                    *   FILE 407
//*                                                                 *   FILE 407
//*                 - PRIOR VERSIONS OF DYNABLDL DID                *   FILE 407
//*                   NOT INTERCEPT LINKLIST BLDL                   *   FILE 407
//*                   REQUESTS IN WHICH THE USER                    *   FILE 407
//*                   REQUESTED TWO OR MORE NAMES.                  *   FILE 407
//*                   FURTHER, PRIOR DYNABLDLS DID NOT              *   FILE 407
//*                   COUNT SUCH IGNORED REQUESTS AS                *   FILE 407
//*                   "MISSES".  CONSEQUENTLY, THE "HIT             *   FILE 407
//*                   RATE" REPORTED BACK WAS                       *   FILE 407
//*                   INCORRECT.  (IT WAS TOO HIGH).                *   FILE 407
//*                   THIS VERSION OF DYNABLDL DOES                 *   FILE 407
//*                   HANDLE MULTI-ENTRY BLDL REQUESTS,             *   FILE 407
//*                   AND MY EXPERIENCE HAS BEEN THAT               *   FILE 407
//*                   THE TRUE HIT RATE HAS RISEN FROM              *   FILE 407
//*                   ABOUT 80% TO BETTER THAN 95%.                 *   FILE 407
//*                                                                 *   FILE 407
//*                 - THE REPORT FUNCTION NOW PRODUCES              *   FILE 407
//*                   THREE LISTINGS OF THE DYNAMIC                 *   FILE 407
//*                   TABLE (PRINTED IN 3-COLUMN FORMAT             *   FILE 407
//*                   USING LESS THAN 79 CHARACTERS PER             *   FILE 407
//*                   LINE - SUITABLE FOR 3270 DISPLAY).            *   FILE 407
//*                   ONE LISTING IS SORTED BY NAME; A              *   FILE 407
//*                   SECOND IS SORTED BY HITS COUNT;               *   FILE 407
//*                   THE THIRD IS SORTED BY L.R.U.                 *   FILE 407
//*                   CHARACTERISTIC.                               *   FILE 407
//*                                                                 *   FILE 407
//*                 - THE DYNABLDL STOP FUNCTION NOW                *   FILE 407
//*                   COMPLETELY REMOVES DYNABLDL FROM              *   FILE 407
//*                   THE SYSTEM RATHER THAN JUST                   *   FILE 407
//*                   DISABLING THE HOOK ROUTINES.                  *   FILE 407
//*                                                                 *   FILE 407
//*                 - THERE IS AN UPDATE FROM SAM GOLOB             *   FILE 407
//*                 - SO IF YOU WISH, YOU CAN EXCLUDE UP            *   FILE 407
//*                 - TO SIX LINKLIST LIBRARIES FROM THE            *   FILE 407
//*                 - SEARCH.                                       *   FILE 407
//*                                                                 *   FILE 407
//***FILE 408 CONTAINS A COPY OF DAVE COLE'S MACLIB, WHICH          *   FILE 408
//*           IS NEEDED TO ASSEMBLE THE FOLLOWING PROGRAMS:         *   FILE 408
//*                                                                 *   FILE 408
//*                   DYNABLDL   ON   FILE 407                      *   FILE 408
//*                   XREFASM    ON   FILE 162                      *   FILE 408
//*                   SCHEDULE   ON   FILE 388                      *   FILE 408
//*                   COMPRSEQ   ON   FILE 226                      *   FILE 408
//*                   OFFLOAD    ON   FILE 225                      *   FILE 408
//*                                                                 *   FILE 408
//*     DAVE COLE IS NOW AT COLE SOFTWARE IN AFTON, VIRGINIA.       *   FILE 408
//*                                                                 *   FILE 408
//*    Dave Cole has updated most of his contributions, and         *   FILE 408
//*    they are available for direct download from his web          *   FILE 408
//*    site at www.colesoft.com.  The following list of             *   FILE 408
//*    his software is currently available there:                   *   FILE 408
//*                                                                 *   FILE 408
//*         Cole Software LLC's File Upload/Download Area           *   FILE 408
//*                                                                 *   FILE 408
//*       The following shareware is available for download         *   FILE 408
//*                                                                 *   FILE 408
//*      Filename   Platform            Description                 *   FILE 408
//*    asm2zap.zip   OS/390    A utility for converting an          *   FILE 408
//*                            assembly listing into SUPERZAP       *   FILE 408
//*                            cards.                               *   FILE 408
//*                                                                 *   FILE 408
//*    blksptrk.zip  OS/390    A TSO command that computes and      *   FILE 408
//*                            displays track capacities for any    *   FILE 408
//*                            IBM DASD device for any BLKSIZE,     *   FILE 408
//*                            with or without key fields.          *   FILE 408
//*                                                                 *   FILE 408
//*    macros.zip    OS/390    A set of Assembler/390 macros        *   FILE 408
//*                            needed for assembling the various    *   FILE 408
//*                            programs available from Cole         *   FILE 408
//*                            Software LLC.                        *   FILE 408
//*                                                                 *   FILE 408
//*    schedrun.zip  OS/390    A set of MVS programs for            *   FILE 408
//*                            scheduling the execution of System   *   FILE 408
//*                            Operator Commands on an interval     *   FILE 408
//*                            or calander basis. Can be used to    *   FILE 408
//*                            control production scheduling.       *   FILE 408
//*                                                                 *   FILE 408
//*    xrefasm.zip   OS/390    A pair of programs for producing     *   FILE 408
//*                            master cross-reference listings      *   FILE 408
//*                            for multi-assembly programs.         *   FILE 408
//*                                                                 *   FILE 408
//*               COLE SOFTWARE LLC                                 *   FILE 408
//*               736 Fox Hollow Road Afton, VA 22920               *   FILE 408
//*               540-456-8210 540-456-6658: FAX                    *   FILE 408
//*                                                                 *   FILE 408
//*             E-MAIL  :   CSWstaff@cfw.com                        *   FILE 408
//*             INTERNET:   http://www.colesoft.com                 *   FILE 408
//*                                                                 *   FILE 408
//*    COLE SOFTWARE          WEB PAGE: HTTP://WWW.COLESOFT.COM     *   FILE 408
//*                                                                 *   FILE 408
//***FILE 409 contains the card image members associated with the   *   FILE 409
//*           MXI package from Rob Scott, of Scott Enterprise       *   FILE 409
//*           Consultancy, Ltd. in England.  The MXI package is     *   FILE 409
//*           a type of system monitor that can run under ISPF,     *   FILE 409
//*           in batch, or it can be invoked under REXX.            *   FILE 409
//*                                                                 *   FILE 409
//*                For up to date information please see the        *   FILE 409
//*                SEC website : www.secltd.co.uk                   *   FILE 409
//*                                                                 *   FILE 409
//*                Any problems, comments or suggestions            *   FILE 409
//*                please e-mail : info@secltd.co.uk                *   FILE 409
//*                                                                 *   FILE 409
//* --------------------------------------------------------------- *   FILE 409
//*                                                                 *   FILE 409
//*  Version 2.2a   enhancements                                    *   FILE 409
//*                                                                 *   FILE 409
//*  (1) Ability to issue operator commands                         *   FILE 409
//*  (2) Ability to change the swappability of any address          *   FILE 409
//*      space                                                      *   FILE 409
//*  (3) Addition of the JOB() and ASID() keywords to the TCB       *   FILE 409
//*      and CDE commands (ie they now work x-memory).              *   FILE 409
//*  (4) Addition of a security table for authorized commands       *   FILE 409
//*      (required if (1) and (2) exist!).                          *   FILE 409
//*  (5) Ability to list online channel paths                       *   FILE 409
//*                                                                 *   FILE 409
//* --------------------------------------------------------------- *   FILE 409
//*                                                                 *   FILE 409
//*  MXI (MVS eXtended Information) is an ISPF-based application    *   FILE 409
//*  that enables the MVS Systems Programmer to display important   *   FILE 409
//*  configuration information about the active MVS system.         *   FILE 409
//*                                                                 *   FILE 409
//*  Although primarily used online, MXI can be run in batch and    *   FILE 409
//*  also has a REXX interface.                                     *   FILE 409
//*                                                                 *   FILE 409
//*  Most of the displays can be filtered using ISPF-like masking   *   FILE 409
//*  characters and many display fields are 'point-and-shoot'.      *   FILE 409
//*                                                                 *   FILE 409
//*  MXI can display information about the following aspects of     *   FILE 409
//*  the MVS system:                                                *   FILE 409
//*                                                                 *   FILE 409
//*       APF, Linklist and LPA Datasets                            *   FILE 409
//*       Active Address Spaces                                     *   FILE 409
//*       ASID Usage                                                *   FILE 409
//*       Master and User Catalogs                                  *   FILE 409
//*       Common Storage Usage by Address Space                     *   FILE 409
//*       Common Storage Subpool Usage                              *   FILE 409
//*       Orphaned Common Storage                                   *   FILE 409
//*       CPU and LPAR Information                                  *   FILE 409
//*       CA-1 Configuration                                        *   FILE 409
//*       Coupling Facility Information                             *   FILE 409
//*       Online DASD and TAPE Volumes                              *   FILE 409
//*       Dynamic and Other System Exits                            *   FILE 409
//*       Enqueue Requests and Contention                           *   FILE 409
//*       GRS Resource Name Lists                                   *   FILE 409
//*       HSM Request Queues                                        *   FILE 409
//*       IPL and LOAD Information                                  *   FILE 409
//*       Link Pack Directory Modules                               *   FILE 409
//*       Nucleus Modules                                           *   FILE 409
//*       Memory Displays Including DSECT Mapping                   *   FILE 409
//*       MPF List Entries                                          *   FILE 409
//*       Page and SMF Datasets                                     *   FILE 409
//*       PARMLIB Statements and System Symbols                     *   FILE 409
//*       PPT Entries                                               *   FILE 409
//*       Real and Auxiliary Storage Usage by Address Space         *   FILE 409
//*       SMS Configuration and Modules                             *   FILE 409
//*       SMS Data, Management and Storage Classes                  *   FILE 409
//*       System Name/Token Entries                                 *   FILE 409
//*       Subsystems                                                *   FILE 409
//*       SVC Entries Including ESR Tables                          *   FILE 409
//*       Sysplex Information                                       *   FILE 409
//*       XCF Members and Structures                                *   FILE 409
//*       VTAM Major Nodes                                          *   FILE 409
//*                                                                 *   FILE 409
//*                       Software Pre-requisites :                 *   FILE 409
//*                       MVS/ESA Version 5  or                     *   FILE 409
//*                       OS/390                                    *   FILE 409
//*                       ISPF Version 3.5 or later                 *   FILE 409
//*                       JES2 Version 5 and above                  *   FILE 409
//*                                                                 *   FILE 409
//*                       Source Code Supplied : NO                 *   FILE 409
//*                       Size 304K                                 *   FILE 409
//*                                                                 *   FILE 409
//*     Scott Enterprise Consultancy Ltd.                           *   FILE 409
//*     Tel: +44 (0)181 408 3556                                    *   FILE 409
//*                                                                 *   FILE 409
//*      Index of Members in this dataset                           *   FILE 409
//*      --------------------------------                           *   FILE 409
//*      $$INDEX        This member                                 *   FILE 409
//*      $GUIDE         Short user guide                            *   FILE 409
//*      $INSTALL       Instructions on how to install MXI from     *   FILE 409
//*                     this dataset and the load library           *   FILE 409
//*                     (supplied in File 410)                      *   FILE 409
//*      $INSTJCL       Allocate runtime datasets and copy          *   FILE 409
//*                     members from this dataset into them.        *   FILE 409
//*      $LIBDEF        Example REXX exec to invoke MXI using       *   FILE 409
//*                     LIBDEFs.                                    *   FILE 409
//*      $MXIXPT        Instructions on how to code the MXI         *   FILE 409
//*                     exception rules.                            *   FILE 409
//*      $README        Version and release notes                   *   FILE 409
//*      $SUPPORT       Trouble shooting guide and where to         *   FILE 409
//*                     report problems.                            *   FILE 409
//*      $TECHSPC       Technical overview                          *   FILE 409
//*      $XPTASM        Sample JCL to Assemble and link the MXI     *   FILE 409
//*                     exception rules                             *   FILE 409
//*      MXICMDS        Commands table                              *   FILE 409
//*      MXIRULE        Macro used to generate exception rules      *   FILE 409
//*      MXIXPT00       Sample exception rules table                *   FILE 409
//*      MXIH*          Help panels                                 *   FILE 409
//*      MXIPANEL       Main Panel                                  *   FILE 409
//*      MXIPANE2       Alternate panel                             *   FILE 409
//*      MXIOPTS        Screen options panel                        *   FILE 409
//*      MXIOPTL        MXI settings panel                          *   FILE 409
//*                                                                 *   FILE 409
//*  -------------------------------------------------------------  *   FILE 409
//*                                                                 *   FILE 409
//*    Version and Release Notes :                                  *   FILE 409
//*                                                                 *   FILE 409
//*   2.2a                                                          *   FILE 409
//*     o  Added an internal security table to control              *   FILE 409
//*        authorized commands.                                     *   FILE 409
//*     o  Added the JOB() and ASID() keywords to the CDE           *   FILE 409
//*        command to get JPAQ and TCB loaded modules of other      *   FILE 409
//*        address spaces                                           *   FILE 409
//*     o  Added the JOB() and ASID() keywords to the TCB           *   FILE 409
//*        command to get the TCB structure of other address        *   FILE 409
//*        spaces                                                   *   FILE 409
//*     o  Added the CHP command to list channel path information.  *   FILE 409
//*     o  Added the MAKE command to change address space           *   FILE 409
//*        swapability.                                             *   FILE 409
//*     o  Added the / command to issue operator commands.          *   FILE 409
//*     o  Added the ONLY(JPAQ) keyword to the CDE command.         *   FILE 409
//*     o  The TYPE=DASD and TYPE=TASK exception rules now          *   FILE 409
//*        support the use of pattern masks for volsers and         *   FILE 409
//*        jobnames.                                                *   FILE 409
//*     o  The PRT command will use USERID if the TSO prefix is     *   FILE 409
//*        null.                                                    *   FILE 409
//*     o  Added the OMVS and RTLS statements to the PARM           *   FILE 409
//*        command.                                                 *   FILE 409
//*     o  Fixed the TAPE command storage creep problem.            *   FILE 409
//*     o  Fixed the SGRP command storage problem.                  *   FILE 409
//*                                                                 *   FILE 409
//*   2.1e                                                          *   FILE 409
//*     o  Added the AGRP command to display SMS aggregate          *   FILE 409
//*        groups.                                                  *   FILE 409
//*     o  Added the UCB command to show the actual UCB             *   FILE 409
//*        addresses of all devices.                                *   FILE 409
//*     o  Added the CDE command to show the JPAQ and TCB           *   FILE 409
//*        loaded modules.                                          *   FILE 409
//*     o  Added the ONLY() and NOT() keywords to the DASD          *   FILE 409
//*        command.                                                 *   FILE 409
//*     o  Added subsystem version information (via SSI-54) to      *   FILE 409
//*        the SSI command.                                         *   FILE 409
//*     o  Added support for JES3.                                  *   FILE 409
//*     o  Added the UCB map to the MEM command.                    *   FILE 409
//*     o  Changed the SGRP command to show all volumes             *   FILE 409
//*        defined to the SMS storage group when the more           *   FILE 409
//*        detailed display is shown.                               *   FILE 409
//*     o  Changed the TAPE command to accept unit address          *   FILE 409
//*        masking.                                                 *   FILE 409
//*     o  Changed the SVC command to accept masking.               *   FILE 409
//*     o  Removed the authorized version of the CAT command.       *   FILE 409
//*     o  The command parsing routines have been changed so        *   FILE 409
//*        that all commands that accept keywords do NOT have       *   FILE 409
//*        to have the positional mask specified.                   *   FILE 409
//*     o  Added SMS Status to the DASD display for a single        *   FILE 409
//*        volume.                                                  *   FILE 409
//*     o  Improved authority checking when running under ISPF      *   FILE 409
//*        or REXX.                                                 *   FILE 409
//*                                                                 *   FILE 409
//*   2.1d                                                          *   FILE 409
//*     o Added the SORTXA and SORTXD commands to sort hex          *   FILE 409
//*       values                                                    *   FILE 409
//*     o Added the JOB() and ASID() keywords to the DDNS           *   FILE 409
//*       command to get allocated datasets for other address       *   FILE 409
//*       spaces                                                    *   FILE 409
//*     o Added the TCB command                                     *   FILE 409
//*     o Added the USP command                                     *   FILE 409
//*     o Renamed the SMF command to SMFD                           *   FILE 409
//*     o Added new SMF command                                     *   FILE 409
//*     o Added the A=asid form of the DA command                   *   FILE 409
//*     o Added the MAP command                                     *   FILE 409
//*     o The SRCH command now presents a summary of matched        *   FILE 409
//*       member(s) instead of each member                          *   FILE 409
//*     o The EDT command can now cope with more than 8000          *   FILE 409
//*       devices per unit name                                     *   FILE 409
//*     o Show allocated jobnames and device types on the EDT       *   FILE 409
//*       command                                                   *   FILE 409
//*     o Toggle ISPF 'Tab to point and shoot' setting              *   FILE 409
//*     o Re-worked the HELP dialog                                 *   FILE 409
//*     o MXIREXX now defaults to inlude screen headings            *   FILE 409
//*       (titles)                                                  *   FILE 409
//*     o Added the 'NOTITLES' special parm to MXIREXX              *   FILE 409
//*     o MXIREXX now correctly sets return codes                   *   FILE 409
//*     o Cater for null commands in MXIREXX (was giving 0C4        *   FILE 409
//*       abends)                                                   *   FILE 409
//*     o Fixed 0C6 abends when invalid input given to the SVC      *   FILE 409
//*       or MEM comamnds                                           *   FILE 409
//*                                                                 *   FILE 409
//*   2.1c                                                          *   FILE 409
//*     o Added the EXC command                                     *   FILE 409
//*     o Added CPU% and SIO on the DA display                      *   FILE 409
//*     o ENQC command now displays both enqueue conflicts and      *   FILE 409
//*       RESERVEs at the same time                                 *   FILE 409
//*     o MPF command now recognises SUP(ALL) entries               *   FILE 409
//*     o Allow SRCH command to be issued on the PARM display       *   FILE 409
//*     o Adjust alignment in the CVT mapping for MEM @CVT          *   FILE 409
//*       MAP(CVT)                                                  *   FILE 409
//*     o Allow NORMAL attribute to be assigned to                  *   FILE 409
//*       point-and-shoot fields                                    *   FILE 409
//*     o Place 'Row n of n' message on ALL scrollable panels       *   FILE 409
//*     o Assign a console key of MXI to E-MCS consoles and         *   FILE 409
//*       ensure MigID is released                                  *   FILE 409
//*     o Disallow LPAR info collection under VM                    *   FILE 409
//*     o Enhance RMF Diag204 validation                            *   FILE 409
//*     o Add support for 62-line screens                           *   FILE 409
//*                                                                 *   FILE 409
//*   2.1b                                                          *   FILE 409
//*     o Added the DA command                                      *   FILE 409
//*     o Added the RS command                                      *   FILE 409
//*     o Added the UIC command                                     *   FILE 409
//*     o Added the SGRP() keyword to the DASD command              *   FILE 409
//*     o Added EXCP counts to the DDNS command                     *   FILE 409
//*     o Enhancements to the DASD command displays                 *   FILE 409
//*     o Enhancements to the TAPE comamnd displays                 *   FILE 409
//*     o Show PARMLIB dsnames/vols/status with the PARM            *   FILE 409
//*       command                                                   *   FILE 409
//*     o MXI now remembers current line in scrollable list         *   FILE 409
//*       when screen refreshed                                     *   FILE 409
//*     o MXI now keeps the sort order when screen refreshed        *   FILE 409
//*                                                                 *   FILE 409
//*   2.1a                                                          *   FILE 409
//*     o Added the LLSU command                                    *   FILE 409
//*     o Added the LLS command                                     *   FILE 409
//*     o Added the CS command                                      *   FILE 409
//*     o Added the CSR command                                     *   FILE 409
//*     o Added the DCLS command                                    *   FILE 409
//*     o Added the CA1 command                                     *   FILE 409
//*     o Added the CAX keyword to the CAT command                  *   FILE 409
//*     o Added the LLS keyword to the LINK command                 *   FILE 409
//*     o Added APF fields for LINK and LPA command output          *   FILE 409
//*     o Volser now displayed for LINK and LPA when DSCB           *   FILE 409
//*       is OFF                                                    *   FILE 409
//*     o Added support for parm to be passed via ISPF SELECT       *   FILE 409
//*       PGM(MXI)                                                  *   FILE 409
//*     o Fixed panel size for MXIHMSC2                             *   FILE 409
//*     o Added the MXICMDS ISPF table to ensure PASSTHRU for       *   FILE 409
//*       MXI commands                                              *   FILE 409
//*                                                                 *   FILE 409
//***FILE 410 contains the load modules associated with the MXI     *   FILE 410
//*           package from Rob Scott, of Scott Enterprise           *   FILE 410
//*           Consultancy, Ltd. in England.  The MXI package is     *   FILE 410
//*           a type of system monitor that can run under ISPF,     *   FILE 410
//*           in batch, or it can be invoked under REXX.            *   FILE 410
//*                                                                 *   FILE 410
//*           For more detailed description of this package, see    *   FILE 410
//*           the documentation under File 409, and the members     *   FILE 410
//*           starting with "$" in File 409 itself.                 *   FILE 410
//*                                                                 *   FILE 410
//*                For up to date information please see the        *   FILE 410
//*                SEC website : www.secltd.co.uk                   *   FILE 410
//*                                                                 *   FILE 410
//*                Any problems, comments or suggestions            *   FILE 410
//*                please e-mail : info@secltd.co.uk                *   FILE 410
//*                                                                 *   FILE 410
//*           Scott Enterprise Consultancy Ltd.                     *   FILE 410
//*           Tel: +44 (0)181 408 3556                              *   FILE 410
//*                                                                 *   FILE 410
//***FILE 411 is from Rob Scott of Scott Enterprise Consultancy     *   FILE 411
//*           in England, and contains source code for some of      *   FILE 411
//*           his utilities.                                        *   FILE 411
//*                                                                 *   FILE 411
//*               For up to date information please see the         *   FILE 411
//*               SEC website : www.secltd.co.uk                    *   FILE 411
//*                                                                 *   FILE 411
//*               Any problems, comments or suggestions             *   FILE 411
//*               please e-mail : info@secltd.co.uk                 *   FILE 411
//*                                                                 *   FILE 411
//*      SEC Utilities - File 411 and 412                           *   FILE 411
//*      --------------------------------                           *   FILE 411
//*                                                                 *   FILE 411
//*      Please note that pre-assembled and linked versions of      *   FILE 411
//*      most of these utilities are available in CBT Tape File     *   FILE 411
//*      412 which also includes the VTOCUTIL program.              *   FILE 411
//*                                                                 *   FILE 411
//*      Index of Members in this dataset                           *   FILE 411
//*      --------------------------------                           *   FILE 411
//*      CONFIGX$       Installation and usage documentation for    *   FILE 411
//*                     CONFIGXX                                    *   FILE 411
//*      CONFIGXX       Utility to construct a CONFIG member for    *   FILE 411
//*                     your active system                          *   FILE 411
//*      DELNOEN$       Installation and usage documentation for    *   FILE 411
//*                     DELNOENQ.                                   *   FILE 411
//*      DELNOEN@       Sample JCL to assemble and link DELNOENQ.   *   FILE 411
//*      DELNOENQ       Assembler source for the DELNOENQ batch     *   FILE 411
//*                     utility.                                    *   FILE 411
//*      IEFACTR$       Installation and usage notes for the        *   FILE 411
//*                     IEFACTRT exit.                              *   FILE 411
//*      IEFACTRT       Assembler source for the IEFACTRT step      *   FILE 411
//*                     termination exit.                           *   FILE 411
//*      LISTSY$        Installation and usage documentation for    *   FILE 411
//*                     LISTSYM and VIEWSYM.                        *   FILE 411
//*      LISTSY@        Sample JCL to assemble and link LISTSYM.    *   FILE 411
//*      LISTSYM        Assembler source for the LISTSYM            *   FILE 411
//*                     external REXX function.                     *   FILE 411
//*      VIEWSYM        REXX Edit macro to show possible use of     *   FILE 411
//*                     the LISTSYM external REXX function.         *   FILE 411
//*      SLEE$          Installation and usage documentation for    *   FILE 411
//*                     SLEEP                                       *   FILE 411
//*      SLEE@          Sample JCL to assemble and link SLEEP.      *   FILE 411
//*      SLEEP          Assembler source for the SLEEP external     *   FILE 411
//*                     REXX function.                              *   FILE 411
//*      STEMPUL$       Installation and usage documentation for    *   FILE 411
//*                     STEMPUSH and STEMPULL.                      *   FILE 411
//*      STEMPUL@       Sample JCL to assemble and link STEMPUSH    *   FILE 411
//*                     and STEMPULL.                               *   FILE 411
//*      STEMPULL       Assembler source for the STEMPULL           *   FILE 411
//*                     external REXX function.                     *   FILE 411
//*      STEMPUSH       Assembler source for the STEMPUSH           *   FILE 411
//*                     external REXX function.                     *   FILE 411
//*      VARYDAS$       Installation and usage documentation for    *   FILE 411
//*                     the VARYDASD utility.                       *   FILE 411
//*      VARYDASD       Assembler source for utility to vary DASD   *   FILE 411
//*                     devices offline depending on the volser.    *   FILE 411
//*      VTOCUTI$       Installation and usage documentation for    *   FILE 411
//*                     the VTOCUTIL utility (source not            *   FILE 411
//*                     supplied). Load module is supplied in       *   FILE 411
//*                     CBT Tape File 412.                          *   FILE 411
//*                                                                 *   FILE 411
//***FILE 412 is from Rob Scott of Scott Enterprise Consultancy     *   FILE 412
//*           in England, and contains load modules for his         *   FILE 412
//*           utilities whose source code is on File 411, and       *   FILE 412
//*           also for the VTOCUTIL program.                        *   FILE 412
//*                                                                 *   FILE 412
//*               For up to date information please see the         *   FILE 412
//*               SEC website : www.secltd.co.uk                    *   FILE 412
//*                                                                 *   FILE 412
//*               Any problems, comments or suggestions             *   FILE 412
//*               please e-mail : info@secltd.co.uk                 *   FILE 412
//*                                                                 *   FILE 412
//***FILE 413 is from Ashley Street and contains a collection       *   FILE 413
//*           of TSO and REXX utilities whose flavor is largely     *   FILE 413
//*           borrowed from VM.  So if you're a former VM'er who    *   FILE 413
//*           has to work on TSO, this stuff is for you.  It may    *   FILE 413
//*           even be very useful, if you're not a former VM'er.    *   FILE 413
//*           Very much worth a try....                             *   FILE 413
//*                                                                 *   FILE 413
//*  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  *   FILE 413
//*                                                                 *   FILE 413
//*     FadH Software - TSO/Rexx utilities library.                 *   FILE 413
//*                                                                 *   FILE 413
//*     This library contains OBJECT code for various utilties,     *   FILE 413
//*     installation JCL and sample execs.                          *   FILE 413
//*                                                                 *   FILE 413
//*     For advice/help or enhancement requests, please E-Mail      *   FILE 413
//*     me at:    a.street@btinternet.com                           *   FILE 413
//*                                                                 *   FILE 413
//*     For the latest updates and further information please       *   FILE 413
//*     visit my Website.                                           *   FILE 413
//*                                                                 *   FILE 413
//*     URL: http://www.btinternet.com/~ashleys/fadh_software.htm   *   FILE 413
//*                                                                 *   FILE 413
//*     TSO/REXX functions                                          *   FILE 413
//*     ==================                                          *   FILE 413
//*     PDSFLIST - *THE* alternative to ISPF 3.4 etc.               *   FILE 413
//*     GLOBALV  - Rexx Global variable function for TSO            *   FILE 413
//*     SVC99DSN - A fast and easy alternative to TSO ALLOC         *   FILE 413
//*                                                                 *   FILE 413
//*     MVS/TSO commands and utilities                              *   FILE 413
//*     ==============================                              *   FILE 413
//*     TSGQUERY - TSO Query device command                         *   FILE 413
//*     TSGDEVCK - Device status checker for IPL's                  *   FILE 413
//*     TSGTSCAN - TSO based TAPE scan function                     *   FILE 413
//*     DENQ     - TSO based ENQ display program                    *   FILE 413
//*     WHOSGOT  - TSO based dataset allocation status utility      *   FILE 413
//*                                                                 *   FILE 413
//*     Sample EXECS                                                *   FILE 413
//*     ============                                                *   FILE 413
//*     FLIST    - Using the PDSFLIST rexx function                 *   FILE 413
//*     QUERY    - using the TSGQUERY command                       *   FILE 413
//*     TAPESCAN - Ysing the TSGTSCAN command                       *   FILE 413
//*                                                                 *   FILE 413
//*     JCL/HELP files                                              *   FILE 413
//*     ==============                                              *   FILE 413
//*     ASSREXX  - JCL to assemble/Link-edit Rexx function          *   FILE 413
//*                package (IRXFUSER)                               *   FILE 413
//*     FLISTHLP - Help file for PDSFLIST rexx function             *   FILE 413
//*     IRXFUSER - Source for IRXFUSER                              *   FILE 413
//*     LKEDJCL  - JCL to link-edit MVS/TSO utilties                *   FILE 413
//*                                                                 *   FILE 413
//***FILE 414 is from Rick Fochtman of Chicago, Illinois and        *   FILE 414
//*           contains a batch program to convert printout from     *   FILE 414
//*           machine control characters to ANSI control            *   FILE 414
//*           characters.                                           *   FILE 414
//*                                                                 *   FILE 414
//*           email:   Rick.Fochtman@botcc.com                      *   FILE 414
//*                                                                 *   FILE 414
//***FILE 415 IS CURRENTLY EMPTY                                    *   FILE 415
//*                                                                 *   FILE 415
//***FILE 416 IS FROM DELUXE CHECK PRINTERS AND CONTAINS THE        *   FILE 416
//*           FOLLOWING.  THIS FILE IS IN IEBUPDTE SYSIN FORMAT     *   FILE 416
//*           SEE THE MEMBER CALLED $INDEX FOR ADDITIONAL           *   FILE 416
//*           INFORMATION.                                          *   FILE 416
//*                                                                 *   FILE 416
//*    CATLIST   -  THIS PROGRAM WILL DO A VERY FAST LISTING        *   FILE 416
//*                 OF AN ICF CATALOG FOR GENERATION DATASETS       *   FILE 416
//*                 AND NONVSAM DATASETS.  THE LISTING IS IN        *   FILE 416
//*                 THE SAME FORMAT AS IDCAMS (WE USED IT TO        *   FILE 416
//*                 BUILD A TMC) BUT THE OUTPUT FORMAT WOULD        *   FILE 416
//*                 BE EASY TO CHANGE.  THE PROGRAM MUST RUN        *   FILE 416
//*                 AUTHORIZED (AC=1) BECAUSE IT OPENS THE          *   FILE 416
//*                 CATALOG AS A DATASET.  ALSO THERE IS A          *   FILE 416
//*                 MODESET WE USED TO ALLOW US TO BYPASS RACF      *   FILE 416
//*                 CHECKING.  (RACF THINKS YOU NEED ALTER          *   FILE 416
//*                 ACCESS TO READ THE DATASET AND ALL OF OUR       *   FILE 416
//*                 CATALOGS HAVE A UACC OF UPDATE).  ALL THAT      *   FILE 416
//*                 WAS DONE IN KEY ZERO WAS TO SET THE             *   FILE 416
//*                 JSCBPASS BIT ON.  THE SPEED INCREASE OF         *   FILE 416
//*                 THIS PROGRAM WAS SEVERAL ORDERS OF              *   FILE 416
//*                 MAGNITUDE BETTER THAN IDCAMS ON A LARGE         *   FILE 416
//*                 ICF CATALOG.                                    *   FILE 416
//*                                                                 *   FILE 416
//*    CMDLOFF   -  THIS COMMAND WILL ISSUE THE COMMAND PASSED      *   FILE 416
//*                 TO IT AND THEN CAUSE LOGOFF OF THE USER.        *   FILE 416
//*                 THIS IS USEFUL IN THE SITUATION WHERE YOU       *   FILE 416
//*                 WANT A USER TO EXIST IN A PROTECTED             *   FILE 416
//*                 ENVIRONMENT.  EX. CMDLOFF ISPSTART              *   FILE 416
//*                 PANEL(USERSEL)                                  *   FILE 416
//*                                                                 *   FILE 416
//*    DLXAUTHC  -  THIS COMMAND WILL ISSUE THE COMMAND PASSED      *   FILE 416
//*                 TO AFTER SETTING THE JSCBAUTH BIT ON.  WHEN     *   FILE 416
//*                 THE COMMAND COMPLETES THE JSCBAUTH BIT          *   FILE 416
//*                 WILL BE SET OFF.  THE JSCB TAMPERING IS         *   FILE 416
//*                 DONE IN A USER SVC.  YOU MUST REPLACE THE       *   FILE 416
//*                 USERSVC MACRO WITH YOUR OWN INTEGRITY           *   FILE 416
//*                 VIOLATION.  THIS COMMAND IS ESPECIALLY          *   FILE 416
//*                 USEFUL FOR ENTERING RACF COMMANDS FROM          *   FILE 416
//*                 ISPF DIALOGS.  EX. DLXAUTHC LISTDSD             *   FILE 416
//*                 DA('DSN1.EXAMPLE') ALL                          *   FILE 416
//*                                                                 *   FILE 416
//*    EXIMPORT     GENERATE THE JCL NECESSARY FOR EXPORTING        *   FILE 416
//*                 AND IMPORTING THE DATA SETS ON A SPECIFIED      *   FILE 416
//*                 VOLUME.  CREATES ONE DATA SET WITH THE JCL      *   FILE 416
//*                 FOR EXPORTING THE DATA SETS ON A SPECIFIED      *   FILE 416
//*                 VOLUME AND ANOTHER FOR IMPORTING THE SAME       *   FILE 416
//*                 DATA SETS.  FOR VSAM FILES, THE JCL WILL        *   FILE 416
//*                 BE SET UP TO EXECUTE IDCAMS, EXPORTING TO       *   FILE 416
//*                 TAPE AND THEN IMPORTING BACK ONTO THE SAME      *   FILE 416
//*                 VOLUME FROM THE TAPE.  FOR NON-VSAM PS          *   FILE 416
//*                 FILES, THE PROGRAM IEBGENER IS EXECUTED TO      *   FILE 416
//*                 COPY THE DATA SET TO TAPE AND THEN BACK TO      *   FILE 416
//*                 THE SAME VOLUME.  FOR PO FILES, IEBCOPY IS      *   FILE 416
//*                 USED.  ALSO A CLIST IS GENERATED TO             *   FILE 416
//*                 SCRATCH THE TAPE FILES AFTER THE DATA SETS      *   FILE 416
//*                 HAVE BEEN IMPORTED.                             *   FILE 416
//*                                                                 *   FILE 416
//*    IGGPRE00     DF/DS ALLOCATE PRE PROCESSING EXIT              *   FILE 416
//*                 TESTER.                                         *   FILE 416
//*                                                                 *   FILE 416
//*    INMRZ01      RECEIVE INITIALIZATION EXIT ALLOWS              *   FILE 416
//*                 AUTHORIZATION CHECKING FOR USER IDS             *   FILE 416
//*                 EXECUTING RECEIVE IN BACKGROUND.                *   FILE 416
//*                                                                 *   FILE 416
//*    INMRZ11      RECEIVE PRE-PROCESSING EXIT ALLOWS RECEIVE      *   FILE 416
//*                 TO RUN IN BACKGROUND WITH THE EXIT              *   FILE 416
//*                 REPLACING THE USER INTERACTION IN               *   FILE 416
//*                 DETERMINING THE RECEIVING DATA SET NAME.        *   FILE 416
//*                                                                 *   FILE 416
//*    RACFALT   -  THIS PROGRAM WILL GENERATE A CLIST TO           *   FILE 416
//*                 CHANGE THE VOLUME SERIAL NUMBERS IN THE         *   FILE 416
//*                 RACF PROFILES OF ALL NONVSAM DATASETS ON A      *   FILE 416
//*                 SPECIFIED VOLUME.                               *   FILE 416
//*                                                                 *   FILE 416
//*    RACFCLST  -  THIS PROGRAM WILL GENERATE A CLIST TO           *   FILE 416
//*                 REDEFINE (VIA RACF COMMANDS DELDSD, ADDSD,      *   FILE 416
//*                 AND PERMIT) FOR ALL DATASETS ON A               *   FILE 416
//*                 SPECIFIED VOLUME.  DUE TO USE OF RACF           *   FILE 416
//*                 INTERNAL MACROS THIS PROGRAM MUST BE RUN        *   FILE 416
//*                 AUTHORIZED.  IF SYSIN IS PRESENT YOU CAN        *   FILE 416
//*                 INCLUDE COMMANDS TO SELECT BY DATASET           *   FILE 416
//*                 GROUP ON A VOLUME AND/OR DATASET NAME WITH      *   FILE 416
//*                 OR WITHOUT VOLUME SPECIFICATION.  WARNING:      *   FILE 416
//*                 IF SYSIN IS PRESENT AND DUMMIED OUT OR          *   FILE 416
//*                 EMPTY THEN A NULL CLIST WILL BE CREATED.        *   FILE 416
//*                                                                 *   FILE 416
//***FILE 417 IS CURRENTLY EMPTY                                    *   FILE 417
//*                                                                 *   FILE 417
//***FILE 418 IS FROM COMBINED INSURANCE OF AMERICA, CHICAGO        *   FILE 418
//*           ILLINOIS.  THIS FILE IS IN IEBUPDTE SYSIN FORMAT      *   FILE 418
//*           AND CONTAINS THE FOLLOWING :                          *   FILE 418
//*                                                                 *   FILE 418
//*                                                                 *   FILE 418
//*           $INDEX            CHANGES A/O JANUARY  1988           *   FILE 418
//*                                                                 *   FILE 418
//*                                                                 *   FILE 418
//*         AXFXPIRE          ACF2 LOGONID EXPIRATION UTILITY       *   FILE 418
//*                           PROGRAM THAT NEW USES THE ACF2        *   FILE 418
//*                           EXTENDED ALTER REQUEST ENTRY          *   FILE 418
//*                           (ARE) CONTROL BLOCK STRUCTURE         *   FILE 418
//*                                                                 *   FILE 418
//*         ACFVIOS           ACF2 UTILITY PROGRAM THAT WILL        *   FILE 418
//*                           COPY THE ACF2 SECURITY VIOLATION      *   FILE 418
//*                           COUNTER (SEC-VIO) TO USER-DEFINED     *   FILE 418
//*                           FIELDS AND WILL SUSPEND ANY LOGONID   *   FILE 418
//*                           WITH 6 OR MORE VIOLATIONS.            *   FILE 418
//*                                                                 *   FILE 418
//*         AXFEXPDT          THIS IS A SIMULATION VERSION OF       *   FILE 418
//*                           THE ACFXPIRE PROGRAM THAT WILL        *   FILE 418
//*                           PRODUCE A REPORT OF WHAT LOGONIDS     *   FILE 418
//*                           WILL BE EXPIRED BY THE ACFXPIRE       *   FILE 418
//*                           PROGRAM.                              *   FILE 418
//*                                                                 *   FILE 418
//*         USERCFDE          THIS IS OUR ACF2 USERFDE ENTRIES      *   FILE 418
//*                           NEEDED FOR THE ACFVIOS UTILITY        *   FILE 418
//*                           PROGRAM.                              *   FILE 418
//*                                                                 *   FILE 418
//*         USERLIDE          THIS IS OUR ACF2 USER LOGONID FIELDS  *   FILE 418
//*                           NEEDED FOR THE ACFVIOS UTILITY        *   FILE 418
//*                           PROGRAM.                              *   FILE 418
//*                                                                 *   FILE 418
//*         IVP3480           SOME CHANGES TO MY 3480 CARTRIDGE     *   FILE 418
//*                           INSTALLATION VERIFICATION PROCEDURE:  *   FILE 418
//*                                                                 *   FILE 418
//*            - CHANGE THE DATA BUFFER FROM 24K TO 32K.            *   FILE 418
//*              32K IS THE HIGHEST BLOCK SIZE YOU CAN USE.         *   FILE 418
//*                                                                 *   FILE 418
//*            - ADDED EQUATE OF DCBOPTW TO DCBBIT0 AFTER USE       *   FILE 418
//*              OF DCBD MACRO DSECT TO INDICATE WRITE VALIDITY     *   FILE 418
//*              CHECK FOR 3480 DEVICES.                            *   FILE 418
//*                                                                 *   FILE 418
//*            - SET EQUATE FOR TAPE-WRITE-IMMEDIATE MODE           *   FILE 418
//*              TO DCBOPTW FROM DCBBIT0 FOR BETTER PROGRAM         *   FILE 418
//*              UNDERSTANDING.                                     *   FILE 418
//*                                                                 *   FILE 418
//*            - ADD ADDITIONAL SYNCDEV MACRO AFTER WE ARE IN       *   FILE 418
//*              TAPE-WRITE-IMMEDIATE MODE TO INQUIRE ABOUT         *   FILE 418
//*              THE NUMBER OF DATA BLOCKS.                         *   FILE 418
//*                                                                 *   FILE 418
//*            - ISSUE A RETURN CODE MESSAGE ON THE LAST CLOSE      *   FILE 418
//*              OF THIS PROGRAM.                                   *   FILE 418
//*                                                                 *   FILE 418
//*            - CORRECTED COMMENTS WHERE POSSIBLE FOR CLARITY.     *   FILE 418
//*                                                                 *   FILE 418
//*           ACFSCAN           ACF2 LOGONID EXPIRATION UTILITY     *   FILE 418
//*                             TO EXPIRE LOGONIDS NOT USED IN      *   FILE 418
//*                             31 DAYS.  THIS PROGRAM USES A       *   FILE 418
//*                             USER-DEFINED DATE-SET (LIDSETP)     *   FILE 418
//*                             FIELD IF ACC-DATE IS BLANK.         *   FILE 418
//*                                                                 *   FILE 418
//*           IGGPRE00          DF/DS DASDM PRE-PROCESSING EXIT     *   FILE 418
//*                             THAT PERFORMS AN ACF2 RESOURCE      *   FILE 418
//*                             RULE VALIDATION TO ALLOW,LOG OR     *   FILE 418
//*                             DENY ALLOCATION TO DASD VOLUMES.    *   FILE 418
//*                                                                 *   FILE 418
//*           LGNPARMS          ACF2 LOGON PARAMETER EXIT TO        *   FILE 418
//*                             PROMPT THE TSO USER FOR A PROJECT   *   FILE 418
//*                             CODE AT LOGON TIME.  THIS CODE      *   FILE 418
//*                             IS APPENDED ONTO THE FIXED          *   FILE 418
//*                             ACCOUNTING INFORMATION AND          *   FILE 418
//*                             WRITTEN TO SMF.                     *   FILE 418
//*                                                                 *   FILE 418
//*           LGNPXIT           ACF2 LOGON POST-VALIDATION EXIT     *   FILE 418
//*                             THAT WILL ALLOW USAGE OF TSO        *   FILE 418
//*                             BY ACF2 RESOURCE VALIDATIONS        *   FILE 418
//*                             OF VTAM LUNAMES.  THIS EXIT CAN     *   FILE 418
//*                             BE USED FOR TSO DIAL-UP ACCESS      *   FILE 418
//*                             PROTECTION IF YOUR DIAL-UP LUNAMES  *   FILE 418
//*                             ARE A DIFFERENT NAMING CONVENTION   *   FILE 418
//*                             FROM YOUR LOCALS.                   *   FILE 418
//*                                                                 *   FILE 418
//*           IEFUTL            THIS SMF EXIT WILL ALLOW A          *   FILE 418
//*                             DIFFERENT JOB WAIT TIME FOR TSO     *   FILE 418
//*                             USERS VERSUS BATCH JOBS.  A TABLE   *   FILE 418
//*                             IS DEFINED FOR JOB WAIT TIMES BY    *   FILE 418
//*                             THE FIRST 2 DIGITS OF THE TSO       *   FILE 418
//*                             USERID.  DEFAULT JOB WAIT TIME IS   *   FILE 418
//*                             30 MINUTES.                         *   FILE 418
//*                                                                 *   FILE 418
//*                             THIS EXIT WILL NOT CHANGE IF THE    *   FILE 418
//*                             SMFPRMXX JWT VALUE IS CHANGED.      *   FILE 418
//*                                                                 *   FILE 418
//*           MCS               UTILITY PROGRAM TO DISPLAY THE      *   FILE 418
//*                             MASTER CONSOLE (WILL RUN ON         *   FILE 418
//*                             MVS/SP OR MVS/XA. AN XA VERSION     *   FILE 418
//*                             OF THE DIDOCS COMMAND).             *   FILE 418
//*                             THIS IS THE VERSION THAT CBT        *   FILE 418
//*                             RUNS.                               *   FILE 418
//*                                                                 *   FILE 418
//*           S000160           DFP 1.0  CHECKPOINT RESTART ZAP     *   FILE 418
//*                             TO ALLOW OS CHECKPOINTS ON          *   FILE 418
//*                             SHARED DASD                         *   FILE 418
//*                                                                 *   FILE 418
//*           S000180  DFP 2.1  DFP 2.1  CHECKPOINT RESTART ZAP     *   FILE 418
//*                             TO ALLOW OS CHECKPOINTS ON          *   FILE 418
//*                             SHARED DASD                         *   FILE 418
//*                                                                 *   FILE 418
//*           VLDEXIT           AN ACF2 DATASET PRE-VALIDATION      *   FILE 418
//*                             EXIT TO LIMIT ALL ALLOCATE /        *   FILE 418
//*                             SCRATCH / RENAME FUNCTIONS ON       *   FILE 418
//*                             DATASETS WITH THE MIDDLE -          *   FILE 418
//*                             INDEX NAME OF TEST TO VOLUMES       *   FILE 418
//*                             BEGINNNING WITH STM3**              *   FILE 418
//*                                                                 *   FILE 418
//***FILE 419 is from David Rivers of Dignus in North Carolina,     *   FILE 419
//*           and contains C language programs which were compiled  *   FILE 419
//*           with the Dignus C Compiler whose output is OS/390     *   FILE 419
//*           MVS assembler language.  Programs are presented       *   FILE 419
//*           with C language source code, and the assembler        *   FILE 419
//*           language program that results when the C source is    *   FILE 419
//*           compiled with the Dignus compiler.                    *   FILE 419
//*                                                                 *   FILE 419
//*              Dave Rivers                                        *   FILE 419
//*              Dignus, LLC                                        *   FILE 419
//*              8924 Windjammer Drive                              *   FILE 419
//*              Raleigh, NC     27615                              *   FILE 419
//*              phone:  (919) 676-0847                             *   FILE 419
//*              FAX:  (919) 676-0847                               *   FILE 419
//*              email:  rivers@dignus.com                          *   FILE 419
//*                                                                 *   FILE 419
//*           Executable modules for these programs are provided    *   FILE 419
//*           on File 420 of this tape.                             *   FILE 419
//*                                                                 *   FILE 419
//*           More information about the Dignus C Compiler can be   *   FILE 419
//*           found at:     http://www.dignus.com                   *   FILE 419
//*                                                                 *   FILE 419
//*           A full manual for these programs and all the          *   FILE 419
//*           executable programs in the load module library        *   FILE 419
//*           on File 420, can be found in member $DIGNUS on        *   FILE 419
//*           this file.                                            *   FILE 419
//*                                                                 *   FILE 419
//*           All copyright restrictions and stipulations           *   FILE 419
//*           about programs found in Files 419 and 420,            *   FILE 419
//*           are detailed in member $DIGNUS, under the             *   FILE 419
//*           instructions for each program.                        *   FILE 419
//*                                                                 *   FILE 419
//*     This PDS contains two programs that are typically           *   FILE 419
//*     available on UNIX systems,  the `what' program and          *   FILE 419
//*     the `grep' program.                                         *   FILE 419
//*                                                                 *   FILE 419
//*     You should find the following:                              *   FILE 419
//*                                                                 *   FILE 419
//*     grep@c   -    The C source code for a grep clone,           *   FILE 419
//*                   originally taken from the DECUS               *   FILE 419
//*                   tape.  Modified for running under             *   FILE 419
//*                   OS/390.                                       *   FILE 419
//*                                                                 *   FILE 419
//*     grep@a   -    The assembly source generated                 *   FILE 419
//*                   with the Systems/C compiler.                  *   FILE 419
//*                                                                 *   FILE 419
//*     what@c   -    The C source code for the `what'              *   FILE 419
//*                   program, from the Berkely                     *   FILE 419
//*                   distribution.  Modified for running           *   FILE 419
//*                   under OS/390                                  *   FILE 419
//*                                                                 *   FILE 419
//*     what@a   -    The assembly source generated                 *   FILE 419
//*                   with the Systems/C compiler.                  *   FILE 419
//*                                                                 *   FILE 419
//*     We have included the assembly source for these programs     *   FILE 419
//*     in case someone wants to "pull out" one of the routines     *   FILE 419
//*     (particularly, the regular expression routines in grep)     *   FILE 419
//*     for inclusion in other programs.  You should be able to     *   FILE 419
//*     extract the function, adjust the prologue/epilogue          *   FILE 419
//*     correctly and include these in your own programs.   The     *   FILE 419
//*     code is non-rent, and uses R12 as the base register and     *   FILE 419
//*     R13 as the frame base register.  You should replace         *   FILE 419
//*     DCCPRLG and DCCEPIL with the appropriate function           *   FILE 419
//*     entry/exit macros.  The FRAMESIZE parameter on DCCPRLG      *   FILE 419
//*     indicates how much dynamic storage the routine will         *   FILE 419
//*     need.                                                       *   FILE 419
//*                                                                 *   FILE 419
//*     However, you should be able to compile the C source with    *   FILE 419
//*     other C compiler implementations for the mainframe.         *   FILE 419
//*                                                                 *   FILE 419
//*     Also, if you want to download the executables, we have      *   FILE 419
//*     them on our web site - http://www.dignus.com - and on       *   FILE 419
//*     File 420 of this tape.                                      *   FILE 419
//*                                                                 *   FILE 419
//*     Just what are these?                                        *   FILE 419
//*                                                                 *   FILE 419
//*   GREP:                                                         *   FILE 419
//*       General Regular Expression Processor.                     *   FILE 419
//*                                                                 *   FILE 419
//*             Read a file, looking for lines that                 *   FILE 419
//*             match a specified pattern.                          *   FILE 419
//*                                                                 *   FILE 419
//*   WHAT:                                                         *   FILE 419
//*       Show what versions of object modules were used            *   FILE 419
//*       to construct a file                                       *   FILE 419
//*                                                                 *   FILE 419
//*             On some source management systems, it's             *   FILE 419
//*             possible to embed an ID string in the               *   FILE 419
//*             source which will then appear in the                *   FILE 419
//*             object deck or load module for a                    *   FILE 419
//*             program.   This ID usually contains the             *   FILE 419
//*             file name, revisision number, check-in              *   FILE 419
//*             date, etc...                                        *   FILE 419
//*                                                                 *   FILE 419
//*             Thus, using WHAT, you can scan an object            *   FILE 419
//*             deck, or load module, and be able to                *   FILE 419
//*             determine just which version of the                 *   FILE 419
//*             source was used to build that object.               *   FILE 419
//*                                                                 *   FILE 419
//*             From the Berkeley manual page:                      *   FILE 419
//*                                                                 *   FILE 419
//*                 The what utility searches each specified        *   FILE 419
//*                 file for sequences of the form "@(#)" as        *   FILE 419
//*                 inserted by the source code control system.     *   FILE 419
//*                 It prints the remainder of the string following *   FILE 419
//*                 this marker, up to a NUL character, newline,    *   FILE 419
//*                 double quote, ``>'' character, or backslash.    *   FILE 419
//*                                                                 *   FILE 419
//*                 The following option is available:              *   FILE 419
//*                                                                 *   FILE 419
//*                 -s      Stop searching each file after the      *   FILE 419
//*                         first match.                            *   FILE 419
//*                                                                 *   FILE 419
//*                 Exit status is 0 if any matches were found,     *   FILE 419
//*                 otherwise 1.                                    *   FILE 419
//*                                                                 *   FILE 419
//***FILE 420 is from David Rivers of Dignus in North Carolina,     *   FILE 420
//*           and it contains executable C Language programs        *   FILE 420
//*           which were compiled with the Dignus C Compiler,       *   FILE 420
//*           that produces assembler language source code as       *   FILE 420
//*           output.  For more information about the Dignus        *   FILE 420
//*           C Language compiler, please see:                      *   FILE 420
//*                                                                 *   FILE 420
//*              http://www.dignus.com                              *   FILE 420
//*                                                                 *   FILE 420
//*              Dave Rivers                                        *   FILE 420
//*              Dignus, LLC                                        *   FILE 420
//*              8924 Windjammer Drive                              *   FILE 420
//*              Raleigh, NC     27615                              *   FILE 420
//*              phone:  (919) 676-0847                             *   FILE 420
//*              FAX:  (919) 676-0847                               *   FILE 420
//*              email:  rivers@dignus.com                          *   FILE 420
//*                                                                 *   FILE 420
//*     The following programs are available for *free*             *   FILE 420
//*     download from Dignus, LLC, and are here on this tape.       *   FILE 420
//*                                                                 *   FILE 420
//*     Each has been compiled with Systems/C - usually in a        *   FILE 420
//*     cross-platform environment. Systems/C has no runtime        *   FILE 420
//*     library requirements, there is nothing more to download     *   FILE 420
//*     to run these programs.                                      *   FILE 420
//*                                                                 *   FILE 420
//*     They are made available free of charge, and unless          *   FILE 420
//*     otherwise noted, are copyright Dignus, LLC.                 *   FILE 420
//*                                                                 *   FILE 420
//*     Dignus provides NO WARRANTY, whatsoever, to these           *   FILE 420
//*     programs. Use them at your own discretion.                  *   FILE 420
//*                                                                 *   FILE 420
//*     We will attempt to update this page as more downloads       *   FILE 420
//*     become available, but we do not promise to do so.           *   FILE 420
//*                                                                 *   FILE 420
//*      * printps  - a program to convert text to postscript.      *   FILE 420
//*      * indent   - a program to "pretty print" C source.         *   FILE 420
//*      * grep     - the standard GREP utility.                    *   FILE 420
//*      * what     - the WHAT utility for object versions.         *   FILE 420
//*      * byacc    - the Berkely YACC utility for parser           *   FILE 420
//*                   generation.                                   *   FILE 420
//*      * flex     - the Berkely Fast LEXical generator.           *   FILE 420
//*                                                                 *   FILE 420
//***FILE 421 IS THE XACORZAP PROGRAM SUBMITTED BY ROBERT BUDGE OF  *   FILE 421
//*           HITACHI (FORMERLY NATIONAL ADVANCED SYSTEMS - NAS).   *   FILE 421
//*           XACORZAP PROVIDES THE ABILITY TO ALTER NUCLEUS OR     *   FILE 421
//*           LPA MODULES IN ANY MVS ENVIRONMENT, INCLUDING XA      *   FILE 421
//*           OR SP 1.3.  THE PROGRAM USES CONTROL STATEMENTS       *   FILE 421
//*           THAT ARE GENERALLY COMPATIBLE WITH AMASPZAP.  THIS    *   FILE 421
//*           FILE IS IN IEBUPDTE SYSIN FORMAT WITH MEMBERS         *   FILE 421
//*           CONTAINING SOURCE, OBJECT, AND A USERS' GUIDE.        *   FILE 421
//*                                                                 *   FILE 421
//*           ROBERT BUDGE IS THE ORIGINAL AUTHOR OF INCORZAP       *   FILE 421
//*           FROM THE TIME HE WORKED FOR IBM.  INCORZAP HAD BEEN   *   FILE 421
//*           WRITTEN IN PL/S AND WAS AVAILABLE FROM IBM (FREE)     *   FILE 421
//*           ONLY AS AN OBJECT DECK.  SOURCE HAD BEEN CREATED      *   FILE 421
//*           EARLIER BY BILL GODFREY (SEE FILE 316) IN ASSEMBLER   *   FILE 421
//*           LANGUAGE.  WHEN ROBERT BUDGE (WHO LEFT IBM) SAW       *   FILE 421
//*           THE ASSEMBLER LANGUAGE SOURCE ON THIS TAPE, HE        *   FILE 421
//*           LATER UPGRADED IT FOR XA, AND THAT IS WHAT IS ON      *   FILE 421
//*           THIS FILE.  (SEEMS TO WORK FINE FOR ESA TOO.  I       *   FILE 421
//*           RAN IT ON READ-ONLY NUCLEUS ON AN ESA 4.1 SYSTEM.     *   FILE 421
//*           AT LEAST IT WORKS WITH CSECTS THAT ARE IN IEANUC01.   *   FILE 421
//*           IT COULD NOT FIND IN CORE:  NAME IECVXT6U IECVXT6U    *   FILE 421
//*           EVEN THOUGH THIS MODULE IS IN SYS1.NUCLEUS.  LOOKS    *   FILE 421
//*           LIKE IT NEEDS A LITTLE WORK TO FIND NUCLEUS MODULES   *   FILE 421
//*           OTHER THAN IEANUC01.)                                 *   FILE 421
//*                                                                 *   FILE 421
//*           ROB BUDGE'S CURRENT PHONE NUMBER:  415-281-2253       *   FILE 421
//*                                                                 *   FILE 421
//*           KW A INCORZAP INCOREZAP COREZAP CORZAP                *   FILE 421
//*                                                                 *   FILE 421
//***FILE 422 IS FROM DON MARQUARDT OF MAY & SPEH OAKBROOK TERRACE  *   FILE 422
//*           ILLINOIS.  THIS FILE IS IN IEBUPDTE SYSIN FORMAT AND  *   FILE 422
//*           CONTAINS THE FOLLOWING MEMBERS:  SEE MEMBER CALLED    *   FILE 422
//*           $$INDEX FOR ADDITIONAL INFORMATION.                   *   FILE 422
//*                                                                 *   FILE 422
//*           CHEKTRAN  CONVERTS NUMERIC FIELDS TO SPELLED OUT      *   FILE 422
//*                     WORDS FOR USE ON CHECKS.  IS ABLE TO        *   FILE 422
//*                     PRINT IN BOTH ENGLISH AND FRENCH AND        *   FILE 422
//*                     SUPPORTS BOTH DOLLARS/CENTS AS WELL AS      *   FILE 422
//*                     ENGLISH POUNDS/PENCE ORIGINAL AUTHOR        *   FILE 422
//*                     UNKNOWN.  I CONVERTED ROUTINE FROM DOS      *   FILE 422
//*                     TO OS.                                      *   FILE 422
//*                                                                 *   FILE 422
//*           DI        A DISPLAY INITS FOR 1.3.4 OF JES            *   FILE 422
//*                     UPDATE OF DI IN AIR FORCE FILE 300          *   FILE 422
//*                                                                 *   FILE 422
//*                     THE NEXT THREE ENTRIES ARE MACROS THAT MAY  *   FILE 422
//*                     BE USED IN SOME OF THE PROGRAMS IN THIS     *   FILE 422
//*                     FILE                                        *   FILE 422
//*                                                                 *   FILE 422
//*           DYNAM     TO DO DYNAMIC ALLOCATION                    *   FILE 422
//*                                                                 *   FILE 422
//*           ENT13     ANOTHER STARTUP ROUTINE.  THIS ONE USES     *   FILE 422
//*                     REG 13 AS A BASE AND INCLUDES CHAINING      *   FILE 422
//*                     AND SUPPLYING A NEW SAVE AREA.  IT          *   FILE 422
//*                     ELIMINATES WASTING A REGISTER JUST TO       *   FILE 422
//*                     POINT TO A SAVE AREA.  A PARM OF NO=        *   FILE 422
//*                     ALLOWS THE SPECIFICATION OF THE NUMBER      *   FILE 422
//*                     OF BASE REGS TO USE.  DEFAULT IS 1.         *   FILE 422
//*                     ASSIGNMENT IS FROM REG 13 DOWN.             *   FILE 422
//*                                                                 *   FILE 422
//*           EQUATE    ANOTHER REGISTER EQUATE ROUTINE.  PRINTS    *   FILE 422
//*                     THE WORD EQUATE IN LARGE BLOCK LETTERS      *   FILE 422
//*                     FOR EASIER SPOTTING IN A LISTING            *   FILE 422
//*                                                                 *   FILE 422
//*           EXT13     MATCHING ROUTINE TO ENT13                   *   FILE 422
//*                                                                 *   FILE 422
//*                    END OF MACROS                                *   FILE 422
//*                                                                 *   FILE 422
//*           FAVERVA   THIS PROGRAM READS CONTROL STATEMENTS FOR   *   FILE 422
//*                     GOAL SYSTEMS' FAVER PROGRAM AND CONVERTS    *   FILE 422
//*                     THEM TO SUPPORT VSAM-ASSIST FROM SOFTWORKS  *   FILE 422
//*                                                                 *   FILE 422
//*           FCBIDR    THIS PROGRAM IS KNOWN AS LISTIDR FROM       *   FILE 422
//*                     FILE 316.  I DELETED SOME OF THE PUT'S      *   FILE 422
//*                     SO ONLY THE USER IDR INFO IS PRINTED        *   FILE 422
//*                     THIS MAKES A NICE LIST FOR REVIEWING        *   FILE 422
//*                     JUST WHAT FCB'S ARE ON THE SYSTEM, WHEN,    *   FILE 422
//*                     FOR WHAT CUSTOMER, AND WHO ADDED IT TO      *   FILE 422
//*                     THE SYSTEM.                                 *   FILE 422
//*                                                                 *   FILE 422
//*                     IT IS USED IN COMBINATION WITH THE          *   FILE 422
//*                     FOLLOWING FCB.... PROGRAMS                  *   FILE 422
//*                                                                 *   FILE 422
//*           FCBIDRJC  THE JCL AND SYSIN USED FOR THE ABOVE        *   FILE 422
//*                     PROGRAM                                     *   FILE 422
//*                                                                 *   FILE 422
//*           FCBGEN    PROGRAM WE HAVE OUR PRINT ROOM OPERATORS    *   FILE 422
//*                     USE TO CREATE FCB'S.  A CLIST IS USED TO    *   FILE 422
//*                     INVOKE AND IS FCBGENC.  THE ROUTINE ASKS    *   FILE 422
//*                     FOR LAST 4 POSITIONS OF FCB NAME,           *   FILE 422
//*                     CHANNEL/LINES, REQUESTOR, AND CUSTOMER      *   FILE 422
//*                     OR FORM NAME.  IT THEN CHECKS TO MAKE       *   FILE 422
//*                     SURE THAT THIS FCB DOES NOT ALREADY         *   FILE 422
//*                     EXIST.  IF IT DOES IT ASKS THE OPERATOR     *   FILE 422
//*                     IF IT IS OK TO REPLACE.  IF YES, ROUTINE    *   FILE 422
//*                     CONTINUES.  IF NOT ROUTINE ASKS FOR A       *   FILE 422
//*                     NEW NAME.  REQUESTOR AND CUSTOMER/FORM      *   FILE 422
//*                     AND DATE CREATED IS ENTERED AS IDR DATA     *   FILE 422
//*                     FOR AUDIT USES LATER.  THE PROGRAM THEN     *   FILE 422
//*                     EXECUTES FCBWTO AT COMPLETION TO NOTIFY     *   FILE 422
//*                     THE USER THAT THE FCB IS AVAILABLE.         *   FILE 422
//*                                                                 *   FILE 422
//*           FCBGENC   CLIST USED WITH FCBGEN                      *   FILE 422
//*                                                                 *   FILE 422
//*           FCBWTO    PROGRAM TO ADVISE USER THAT THE FCB IS      *   FILE 422
//*                     NOW AVAILABLE                               *   FILE 422
//*                                                                 *   FILE 422
//*           HEWLDFP1  THIS IS A MODIFICATION OF THE DFP           *   FILE 422
//*                     LINKAGE EDITOR AT PTF LEVEL UZ78097 TO      *   FILE 422
//*                     ADD THE SYSLMOD DATASET NAME AND VOLSER     *   FILE 422
//*                     TO THE MESSAGE INDICATING                   *   FILE 422
//*                     ADDED/REPLACED.  IT IS NOT IN SMP           *   FILE 422
//*                     FORMAT.  YOU WILL HAVE TO DO THAT           *   FILE 422
//*                     YOURSELF.                                   *   FILE 422
//*                                                                 *   FILE 422
//*           HEWLFDPX  XA VERSION OF THE ABOVE.                    *   FILE 422
//*                                                                 *   FILE 422
//*           IEFTBL    THIS IS THE TABLE OF 'GOOD GUYS' THAT       *   FILE 422
//*                     ARE NOT TIMED OUT FOR WAIT TIME DURING      *   FILE 422
//*                     THE DAY.  OUTSIDE THE HOURS OF 7AM THRU     *   FILE 422
//*                     5PM.                                        *   FILE 422
//*                                                                 *   FILE 422
//*                     NOTE***  THIS MODULE MUST BE AVAILABLE      *   FILE 422
//*                              PRIOR TO USING THE COMPANION       *   FILE 422
//*                              MODULE IEFUTL.  NO CHECK IS        *   FILE 422
//*                              MADE IN IEFUTL TO BYPASS IF NOT    *   FILE 422
//*                              AVAILABLE.  I PLAN TO FIX THIS     *   FILE 422
//*                              AS SOON AS TIME PERMITS.           *   FILE 422
//*                                                                 *   FILE 422
//*           IEFUTL    THIS IS OUR UTL EXIT THAT CANCELS           *   FILE 422
//*                     EVERYTHING EXCEPT THE 'GOOD TSO GUYS'.      *   FILE 422
//*                     SEE IEFTBL ABOVE.                           *   FILE 422
//*                                                                 *   FILE 422
//*           INITJCL   THIS IS THE JCL WE USE FOR THE FOLLOWING    *   FILE 422
//*                     TWO PROGRAMS ONLY.  THE UNIT AND PGM NAMES  *   FILE 422
//*                     ARE CHANGED BASED ON WHICH TYPE OF TAPE     *   FILE 422
//*                     WE ARE INIT-ING.                            *   FILE 422
//*                                                                 *   FILE 422
//*           INITTAPE  THIS IS OUR HOME GROWN TAPE INIT            *   FILE 422
//*                     ROUTINE.  OUR OPERATORS LIKE IT BETTER.     *   FILE 422
//*                                                                 *   FILE 422
//*           INIT3480  SAME AS INITTAPE BUT FOR USE WITH THE       *   FILE 422
//*                     3480 DRIVES AS IT USES THE MSG DISPLAYS     *   FILE 422
//*                     ON THE DRIVE.                               *   FILE 422
//*                                                                 *   FILE 422
//*           JESNSLT   ZAP TO JES PRPU TO MAKE BLOCK SEPARATOR     *   FILE 422
//*                     NOT TO SLANT.  WHILE IT CAN BE DONE WITH    *   FILE 422
//*                     SMP, IT SEEMS A LITTLE OVERKILL TO RUN      *   FILE 422
//*                     AN SMP ASSEMBLY AND LINKEDIT FOR A 1        *   FILE 422
//*                     BYTE CHANGE.                                *   FILE 422
//*                                                                 *   FILE 422
//*           JESNSLTX  XA VERSION OF ABOVE ZAP.  SAME COMMENTS     *   FILE 422
//*                     APPLY.                                      *   FILE 422
//*                                                                 *   FILE 422
//*           MAS9010   PRINTS OUT THE AUTOMATIC SCHEDULING         *   FILE 422
//*                     FACILITY FILE.  THIS FACILITY WAS WRITTEN   *   FILE 422
//*                     BY DAVE COLE AT COLE SOFTWARE IN AFTON,     *   FILE 422
//*                     VIRGINIA, AND IS ON FILE 388 OF THIS TAPE.  *   FILE 422
//*                                                                 *   FILE 422
//*              Please note that an upgraded copy of the MVS       *   FILE 422
//*              Automatic Scheduling Facility is available for     *   FILE 422
//*              direct download at Dave Cole's web site:           *   FILE 422
//*                                                                 *   FILE 422
//*                  http://www.colesoft.com                        *   FILE 422
//*                                                                 *   FILE 422
//*           PRVIPLSP  MOD TO MVS 1.3.4 TO MAKE VOLUMES NOT IN     *   FILE 422
//*                     VATLIST TO DEFAULT TO PRIVATE INSTEAD OF    *   FILE 422
//*                     PUBLIC MOUNT.                               *   FILE 422
//*                                                                 *   FILE 422
//*           PRVIPLXA  XA VERSION OF THE ABOVE                     *   FILE 422
//*                                                                 *   FILE 422
//*           TSOMAXSP  THIS ZAP ALLOWS THE "GOOD GUYS" (TSD..      *   FILE 422
//*                     IN OUR CASE) TO LOGON EVEN IF THE           *   FILE 422
//*                     MAXUSERS IS EXCEEDED.  NOTE THAT IF         *   FILE 422
//*                     MAXUSERS IS SET TO 0 EVEN US GOOD GUYS      *   FILE 422
//*                     CAN'T GET ON.  MUST BE AT LEAST 1.  THIS    *   FILE 422
//*                     ZAP THANKS TO FRANK WALSCHLAGER FROM        *   FILE 422
//*                     SPIEGEL.  IT IS FOR MVS/SP 1.3.3.           *   FILE 422
//*                                                                 *   FILE 422
//*           TSOMAXXA  XA VERSION OF THE ABOVE.  GREAT WHAT A      *   FILE 422
//*                     DISASSEMBLER AND A LITTLE HUNTING CAN DO.   *   FILE 422
//*                                                                 *   FILE 422
//*           VARLENTH  A UTILITY PROGRAM THAT READS A VARIABLE     *   FILE 422
//*                     LENGTH FILE AND REPORTS ON THE RECORD       *   FILE 422
//*                     SIZE AND NUMBER OF RECORDS OF EACH          *   FILE 422
//*                     LENGTH.                                     *   FILE 422
//*                                                                 *   FILE 422
//***FILE 423 IS FROM JEFF BROIDO OF BROIDO COMPUTER CONSULTING     *   FILE 423
//*           OF NEW JERSEY. THIS FILE IS IN IEBUPDTE SYSIN         *   FILE 423
//*           FORMAT AND CONTAINS THE FOLLOWING MEMBERS :           *   FILE 423
//*                                                                 *   FILE 423
//*        $$$COJRB....ASSEMBLER MACRO FOR COPYRIGHT NOTICE         *   FILE 423
//*        #CHECKDD....HELP MEMBER FOR CHECKDD                      *   FILE 423
//*        #CKDAY......HELP MEMBER FOR CKDAY                        *   FILE 423
//*        #CKM........HELP MEMBER FOR CKM                          *   FILE 423
//*        #CKMOUNT....HELP MEMBER FOR CKMOUNT                      *   FILE 423
//*        #CKO........HELP MEMBER FOR CKO                          *   FILE 423
//*        #CLRDAY.....HELP MEMBER FOR CLEARDAY                     *   FILE 423
//*        #LAA........HELP MEMBER FOR LAA                          *   FILE 423
//*        #QUOTE......HELP MEMBER FOR QUOTE                        *   FILE 423
//*        #TELL.......HELP MEMBER FOR TELL                         *   FILE 423
//*        BRODCAST....SOURCE CODE FOR PGM TO LOAD SYS1.BRODCAST    *   FILE 423
//*        CHECKDD.....SOURCE CODE FOR PGM TO CHECK FOR ALLOCATED   *   FILE 423
//*                    FILENAMES                                    *   FILE 423
//*        CKDAY.......SOURCE CODE FOR PGM TO CHECK FOR 1ST LOGON   *   FILE 423
//*                    OF THE DAY                                   *   FILE 423
//*        CKM.........SOURCE CODE FOR PGM TO CHECK PRESENCE OF     *   FILE 423
//*                    MEMBER IN PDS                                *   FILE 423
//*        CKMOUNT.....SOURCE CODE FOR PGM TO CHECK A USER'S MOUNT  *   FILE 423
//*                    PRIVILEGE                                    *   FILE 423
//*        CKO.........SOURCE CODE FOR PGM TO CHECK A USER'S        *   FILE 423
//*                    PRIVILEGES                                   *   FILE 423
//*        CMAP........SOURCE CODE FOR PGM TO PRODUCE A CSA         *   FILE 423
//*                    STORAGE MAP                                  *   FILE 423
//*        K...........ASSEMBLER MACRO                              *   FILE 423
//*        LAA.........SOURCE CODE FOR PGM TO PRODUCE AN EXPANDED   *   FILE 423
//*                    ALLOCATION LISTER                            *   FILE 423
//*        MAPSP.......SOURCE CODE FOR PGM TO PRODUCE MVS/SP        *   FILE 423
//*                    STORAGE MAP                                  *   FILE 423
//*        MAPXA.......SOURCE CODE FOR PGM TO PRODUCE MVS/XA        *   FILE 423
//*                    STORAGE MAP                                  *   FILE 423
//*        MERKNOW.....SOURCE CODE FOR SUPPORT ROUTINE FOR THE      *   FILE 423
//*                    NOW MACRO                                    *   FILE 423
//*        NOW.........ASSEMBLER MACRO                              *   FILE 423
//*        OFF.........ASSEMBLER MACRO                              *   FILE 423
//*        ON..........ASSEMBLER MACRO                              *   FILE 423
//*        QUOTE.......SOURCE CODE FOR PGM TO READ                  *   FILE 423
//*                    'QUOTE-OF-THE-DAY'                           *   FILE 423
//*        REGS........ASSEMBLER MACRO                              *   FILE 423
//*        SMAP........SOURCE CODE FOR PGM TO PRODUCE A STORAGE     *   FILE 423
//*                    MAP                                          *   FILE 423
//*        TELL........SOURCE CODE FOR PGM FOR TELECONFERENCING     *   FILE 423
//*                    TSO COMMAND                                  *   FILE 423
//*        TF..........ASSEMBLER MACRO                              *   FILE 423
//*        VPUT........ASSEMBLER MACRO                              *   FILE 423
//*        VTPUT.......ASSEMBLER MACRO                              *   FILE 423
//*        VWTPU.......ASSEMBLER MACRO                              *   FILE 423
//*                                                                 *   FILE 423
//***FILE 424 IS FROM BLUE CROSS BLUE SHIELD OF WASHINGTON D.C.     *   FILE 424
//*           AND CONTAINS A COPY OF THEIR 3420 TO 3480 CONVERSION  *   FILE 424
//*           PROGRAM.  THIS FILE IS IN IEBUPDTE SYSIN FORMAT,      *   FILE 424
//*           FOR ADDITIONAL INFORMATION SEE THE MEMBER CALLED      *   FILE 424
//*           INSTALL.                                              *   FILE 424
//*                                                                 *   FILE 424
//*      VETAPE IS A PROGRAM THAT GENERATES AND SUBMITS JOBS        *   FILE 424
//*      TO THE INTERNAL READER TO COPY 3420 VOLUMES TO 3480        *   FILE 424
//*      VOLUMES AND VICE VERSA.                                    *   FILE 424
//*                                                                 *   FILE 424
//*      IT REQUIRES UCC ONE TAPE MANAGEMENT SYSTEM TO RETRIEVE     *   FILE 424
//*      DATA ABOUT THE VOLUMES YOU ARE MIGRATING.  RUNNING AS A    *   FILE 424
//*      STARTED TASK IT ISSUES A REQUEST TO THE OPERATOR TO        *   FILE 424
//*      ENTER A VOLSER OF THE VOLUME TO BE MIGRATED.  FROM THAT    *   FILE 424
//*      IT DETERMINES IF THE VOLUME IS ELGIBLE FOR MIGRATION       *   FILE 424
//*      FROM THE FOLLOWING CRITERIA:                               *   FILE 424
//*                                                                 *   FILE 424
//*       **** SEE FILE 047 FOR A VERSION OF VETAPE THAT            *   FILE 424
//*            SUPPORTS TLMS II RATHER THAN UCC1         ****       *   FILE 424
//*                                                                 *   FILE 424
//*      1. EXPIRATION DATE - IF TAPE DUE TO EXPIRE IN 30 DAYS      *   FILE 424
//*                           OR LESS IT WILL BE BYPASSED.          *   FILE 424
//*                                                                 *   FILE 424
//*      2. DENSITY         - MUST BE STANDARD 6250 BPI.            *   FILE 424
//*                                                                 *   FILE 424
//*      3. CREATING JOBNAME- VOLUMES CREATED BY JOBS USING         *   FILE 424
//*                           CERTAIN UTILITIES OR INTENDED FOR     *   FILE 424
//*                           3420 VOLUMES CAN BE BYPASSED.         *   FILE 424
//*                                                                 *   FILE 424
//*      4. MULTI-FILE TAPES- IF TAPE HAS MULTIPLE DATASETS IT      *   FILE 424
//*                           WILL BE BYPASSED.                     *   FILE 424
//*                                                                 *   FILE 424
//*      IF A VOLUME PASSES THESE CHECKS A TWO STEP JOB IS          *   FILE 424
//*      GENERATED AND SUBMITTED TO THE INTERNAL READER.  THE       *   FILE 424
//*      JOBNAME WILL BE IN THE FORMAT OF JJJJJXX WHERE JJJJJ IS    *   FILE 424
//*      DETERMINED BY YOU AND XX IS THE LAST 2 DIGITS OF THE       *   FILE 424
//*      ORIGINAL VOLSER.  IT WILL DETERMINE FROM THE TMS RECORD    *   FILE 424
//*      THE FOLLOWING:                                             *   FILE 424
//*                                                                 *   FILE 424
//*                   1.  DATASET NAME                              *   FILE 424
//*                   2.  EXPIRATION DATE                           *   FILE 424
//*                   3.  DENSITY                                   *   FILE 424
//*                   4.  CREATING JOB NAME                         *   FILE 424
//*                   5.  NUMBER OF VOLUMES AND SEQUENCE            *   FILE 424
//*                   6.  MUTIPLE DATASET VOLUMES                   *   FILE 424
//*                                                                 *   FILE 424
//***FILE 425 from Mike Loos and contains an IEFUSI SMF exit        *   FILE 425
//*           (used for controlling virtual storage allocations     *   FILE 425
//*           for jobs).  Mike wrote this exit for a SHARE          *   FILE 425
//*           presentation.                                         *   FILE 425
//*                                                                 *   FILE 425
//*           Mike Loos                                             *   FILE 425
//*           VP of Ops and Tech Support                            *   FILE 425
//*           Fair, Isaac and Company, Inc.                         *   FILE 425
//*           4295 Lexington Avenue North                           *   FILE 425
//*           St. Paul, MN  55126                                   *   FILE 425
//*           mikeloos@fairisaac.com                                *   FILE 425
//*                                                                 *   FILE 425
//***FILE 426 IS FROM HOWARD DEAN AT SYNTEX AND CONTAINS A COPY     *   FILE 426
//*           OF THEIR JOBNAMES PROCESSOR AND A LOCAL MOD SO THAT   *   FILE 426
//*           ACCOUNTING INFORMATION CAN BE PLACED IN STARTED TASKS *   FILE 426
//*                                                                 *   FILE 426
//*           CURRENT ADDRESS:                                      *   FILE 426
//*                                                                 *   FILE 426
//*            Howard M. Dean                                       *   FILE 426
//*            Kaiser Foundation Health Plan                        *   FILE 426
//*            25 Via Monte Avenue                                  *   FILE 426
//*            2nd Floor                                            *   FILE 426
//*            Walnut Creek, CA 94598                               *   FILE 426
//*                                                                 *   FILE 426
//*            (925) 926-3121                                       *   FILE 426
//*                                                                 *   FILE 426
//*            EMAIL - Howard.M.Dean@kp.org                         *   FILE 426
//*                                                                 *   FILE 426
//*           ALSO INCLUDED IS A COPY OF THE JSTATUS COMMAND WHICH  *   FILE 426
//*           WILL SEARCH THE JES2 QUEUES AND PRESENT A SHORT JOB   *   FILE 426
//*           STATUS DISPLAY.  THIS COMMAND CAN BE USED IN PLACE    *   FILE 426
//*           OF THE PRESENT STATUS COMMAND, ON TSO OR CAN BE       *   FILE 426
//*           SEPARATELY INSTALLED.                                 *   FILE 426
//*                                                                 *   FILE 426
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT, SEE THE        *   FILE 426
//*           MEMBER CALLED $$DOC FOR ADDITIONAL INFORMATION.       *   FILE 426
//*                                                                 *   FILE 426
//***FILE 427 IS A COPY OF THE IBM MACRO CALLED IHASTOW (THIS       *   FILE 427
//*           MACRO IS NOT COPYRIGHTED).                            *   FILE 427
//*                                                                 *   FILE 427
//***FILE 428 is from Lionel Dyck and Douglas Adams of Rockwell     *   FILE 428
//*           International in Seal Beach, California.  This file   *   FILE 428
//*           contains programs to extract and display system       *   FILE 428
//*           control block information.  An older version of this  *   FILE 428
//*           code can be found on File 022 of the CBT Overflow     *   FILE 428
//*           Tape.  This version comes from the SHARE diskettes    *   FILE 428
//*           (SHARE 81).                                           *   FILE 428
//*                                                                 *   FILE 428
//*           LIONEL B. DYCK                                        *   FILE 428
//*           KAISER PERMANENTE                                     *   FILE 428
//*           25 NORTH VIA MONTE                                    *   FILE 428
//*           WALNUT CREEK, CALIFORNIA 94598                        *   FILE 428
//*                                                                 *   FILE 428
//*           IBMmail:  USKFHEFH                                    *   FILE 428
//*           internet: SYSLBD@NCAL.KAIPERM.ORG                     *   FILE 428
//*                     lionel.b.dyck@dp.org                        *   FILE 428
//*           IBMlink:  SYSLBD                                      *   FILE 428
//*           phone:    (925) 926-5332                              *   FILE 428
//*           home page:  http://www.geocities.com/lbdyck           *   FILE 428
//*                                                                 *   FILE 428
//***FILE 429 IS FROM ALLERGAN PHARMACEUTICALS OF IRVINE,           *   FILE 429
//*           CALIFORNIA AND CONTAINS A FEW OF THEIR UTILITIES      *   FILE 429
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT,  FOR           *   FILE 429
//*           ADDITIONAL INFORMATION SEE THE MEMBER CALLED $$INDEX  *   FILE 429
//*                                                                 *   FILE 429
//*           A.  CONSOLE  .... FULL CONSOLE SUPPORT FOR TSO USERS  *   FILE 429
//*           B.  TSOEXEC  .... RUN RACF PANELS WITH TSO/E AND/OR   *   FILE 429
//*                              EXEC ANY TSO THAT MUST RUN         *   FILE 429
//*                              AUTHORIZED                         *   FILE 429
//*           C.  MURPHY   .... WISE WORDS FROM MURPHY              *   FILE 429
//*                                                                 *   FILE 429
//***FILE 430 IS FROM MC EVOY, OF GLOUCESTERSHIRE, ENGLAND AND      *   FILE 430
//*           CONTAINS A FEW OF THEIR UTILITIES.  THIS FILE IS IN   *   FILE 430
//*           IEBUPDTE SYSIN FORMAT.  FOR ADDITIONAL INFORMATION    *   FILE 430
//*           SEE THE MEMBER CALLED $$DOC.                          *   FILE 430
//*                                                                 *   FILE 430
//*           A   $$DOC    - DOCUMENT FILE                          *   FILE 430
//*           B   IEFACTRT - OUTPUTS I/O COUNTS ETC FOR EACH DD     *   FILE 430
//*                          STATEMENT INTO JES2 JOB MESSAGES       *   FILE 430
//*           C   MCLEAR   - MACRO USED IN SEVERAL PROGRAMS         *   FILE 430
//*           D   MSETUP   - MACRO USED IN SEVERAL PROGRAMS         *   FILE 430
//*           E   NCXPDSCN - SCAN PDS FOR CHARACTER STRINGS         *   FILE 430
//*           F   NCZ93205 - INTERFACE TO PDS FROM COBOL            *   FILE 430
//*           G   NCZ93208 - CALCULATE SPACE USED IN PDS.  VERY     *   FILE 430
//*                          USEFUL AS A FRONT END TO COMPRESS OR   *   FILE 430
//*                          IN AN ISPF FUNCTION FOR USERS TO BE    *   FILE 430
//*                          ABLE TO SEE HOW FULL ARE THEIR         *   FILE 430
//*                          LIBRARIES.                             *   FILE 430
//*           H   NCZ96103 - OUTPUT DATASET TO 3287 OR EQUIVALENT   *   FILE 430
//*                          PRINTER.  REMOTES WORK PERFECTLY OK    *   FILE 430
//*                          THOUGH THE PROGRAM COMMENTS SUGGEST    *   FILE 430
//*                          OTHERWISE.  THERE ARE SOME PROBLEMS    *   FILE 430
//*                          WITH 'M' TYPE CONTROL CHARACTERS       *   FILE 430
//*                          WHERE THE ACTION IS AFTER PRINTING.    *   FILE 430
//*           I   NCZ99002 - SUBROUTINE TO CHOP UP CHARACTER        *   FILE 430
//*                          STRINGS INTO FIELDS TO MAKE CONTROL    *   FILE 430
//*                          STATEMENT ANALYSIS EASIER              *   FILE 430
//*           J   SAMPLE   - SAMPLE OF IEFACTRT OUTPUT              *   FILE 430
//*           K   SCANINFO - INSTRUCTIONS FOR USING NCXPDSCN        *   FILE 430
//*           L   USSTAB   - OUR LOCAL BSC VTAM MENU.  SUPPORTS     *   FILE 430
//*                          ABBREVIATED LOGOFF WITH RE/DISCONNECT  *   FILE 430
//*                          OPTION.                                *   FILE 430
//*                                                                 *   FILE 430
//***FILE 431 is from Stephen Bacher of Charles Stark Draper        *   FILE 431
//*           Laboratory in Cambridge, Massachusetts.  This         *   FILE 431
//*           file contains several of Steve's large packages,      *   FILE 431
//*           with each package as a separate member of this        *   FILE 431
//*           pds.                                                  *   FILE 431
//*                                                                 *   FILE 431
//*           Steve Bacher <seb@draper.com>                         *   FILE 431
//*                                                                 *   FILE 431
//*           Charles Stark Draper Laboratory                       *   FILE 431
//*           555 Technology Square                                 *   FILE 431
//*           Cambridge, MA 02139                                   *   FILE 431
//*           (617) 258-1525                                        *   FILE 431
//*                                                                 *   FILE 431
//*      Contents of this file (thus far)                           *   FILE 431
//*                                                                 *   FILE 431
//*   BRACKETS 01.00  1999/11/01  1999/11/01  9:58  1134 SEB        *   FILE 431
//*   BRACKET4 01.00  1999/10/26  1999/10/26 20:09  2302 SEB        *   FILE 431
//*   GOPHER   01.00  1999/10/26  1999/10/26 19:56 19968 SEB        *   FILE 431
//*   NNMVS    01.00  1999/10/26  1999/10/26 20:09 29952 SEB        *   FILE 431
//*   TSOREXX  01.00  1999/10/26  1999/10/26 20:09  3218 SEB        *   FILE 431
//*   XDIS     01.00  2000/03/28  2000/03/28 18:22  4066 SEB        *   FILE 431
//*   XDIS$$   01.00  2000/03/28  2000/03/28 18:14    16 SBGOLOB    *   FILE 431
//*   XDISNOTE 01.02  2000/03/28  2000/03/28 18:17    22 SBGOLOB    *   FILE 431
//*   XRXVARS  01.00  2000/03/16  2000/03/16 17:51   246 SBGOLOB    *   FILE 431
//*   XRXVARS# 01.01  2000/03/16  2000/03/16 18:35    38 SBGOLOB    *   FILE 431
//*   XR991214 01.02  2000/03/16  2000/03/16 18:29    95 SBGOLOB    *   FILE 431
//*                                                                 *   FILE 431
//*      BRACKETS - An ISPF Mod to enable the writing of square     *   FILE 431
//*                 brackets.                                       *   FILE 431
//*      BRACKET4 - The same ISPF Mod for ISPF Version 4.           *   FILE 431
//*      GOPHER   - An MVS Gopher Server                            *   FILE 431
//*      NNMVS    - MVS NNTP News Reader                            *   FILE 431
//*      TSOREXX  - A REXX function package to simulate the         *   FILE 431
//*                 CLIST commands PROC and WRITENR.                *   FILE 431
//*      XDIS     - A disassembler                                  *   FILE 431
//*      XRXVARS  - Program to display all active REXX variables.   *   FILE 431
//*                                                                 *   FILE 431
//***FILE 432 is from Thierry Falissard of Paris, France, and       *   FILE 432
//*           it contains a selection from things he has written    *   FILE 432
//*           over many years.  We hope you enjoy it.               *   FILE 432
//*                                                                 *   FILE 432
//*       THE AUTHOR'S NOTE                                         *   FILE 432
//*       =================                                         *   FILE 432
//*                                                                 *   FILE 432
//*       I HAVE TRIED NOT TO DROWN YOU WITH OBSOLETE, OLD OR       *   FILE 432
//*       USELESS MATERIAL.  SO HERE YOU HAVE A (HOPEFULLY)         *   FILE 432
//*       CLEVER SELECTION OF ALL THE STUFF I HAVE WRITTEN.         *   FILE 432
//*                                                                 *   FILE 432
//*       THESE ARE PC-DOS OR WINDOWS UTILITIES : MGDOS MGWIN       *   FILE 432
//*       PTKT.                                                     *   FILE 432
//*                                                                 *   FILE 432
//*       I WOULD BE INTERESTED TO HEAR OF SIGNIFICANT              *   FILE 432
//*       ENHANCEMENTS OR INSTANCES WHERE THESE PROGRAMS HAVE       *   FILE 432
//*       BEEN OF MAJOR BENEFIT (OR OTHERWISE), CONTACT :           *   FILE 432
//*                                                                 *   FILE 432
//*        Thierry Falissard                                        *   FILE 432
//*        tfalissard@compuserve.com                                *   FILE 432
//*        http://os390-mvs.hypermart.net                           *   FILE 432
//*        or                                                       *   FILE 432
//*        http://ourworld.compuserve.com/homepages/tfalissard      *   FILE 432
//*                                                                 *   FILE 432
//*       STANDARD DISCLAIMER                                       *   FILE 432
//*       ===================                                       *   FILE 432
//*                                                                 *   FILE 432
//*       NEITHER THIERRY FALISSARD NOR ANY COMPANY ASSOCIATED      *   FILE 432
//*       WITH HIM EXPRESS OR IMPLY ANY WARRANTY AS TO THE          *   FILE 432
//*       FITNESS OF THESE COMPUTER PROGRAMS FOR ANY FUNCTION.      *   FILE 432
//*       THE USE OF THESE PROGRAMS OR THE RESULTS THEREOF IS       *   FILE 432
//*       ENTIRELY AT THE RISK OF THE USER.                         *   FILE 432
//*                                                                 *   FILE 432
//*       THESE PROGRAMS ARE DONATED TO THE PUBLIC DOMAIN AND       *   FILE 432
//*       MAY BE FREELY COPIED.  THEY MAY BE FREELY DISTRIBUTED     *   FILE 432
//*       TO ANY OTHER PARTY ON CONDITION THAT NO INDUCEMENT        *   FILE 432
//*       BEYOND REASONABLE HANDLING COSTS BE OFFERED OR            *   FILE 432
//*       ACCEPTED FOR SUCH DISTRIBUTION.                           *   FILE 432
//*                                                                 *   FILE 432
//*       SOME PROGRAMS WERE PUBLISHED IN XEPHON'S MVS UPDATE       *   FILE 432
//*       OR RACF UPDATE.  SINCE XEPHON OFFER THEM FOR FREE ON      *   FILE 432
//*       THEIR WEBSITE (WWW.XEPHON.COM), I CONSIDER THEM AS        *   FILE 432
//*       PUBLIC.                                                   *   FILE 432
//*                                                                 *   FILE 432
//*       THESE PROGRAMS MAY BE MODIFIED IN ANY WAY THE USER        *   FILE 432
//*       THINKS FIT BECAUSE USE OF THESE PROGRAMS IS ENTIRELY      *   FILE 432
//*       AT THE RISK OF THE USER ANYWAY.                           *   FILE 432
//*                                                                 *   FILE 432
//*       LANGUAGE PROBLEMS                                         *   FILE 432
//*       =================                                         *   FILE 432
//*                                                                 *   FILE 432
//*      THE PROGRAMS ARE DELIVERED WITH COMMENTS IN EITHER ONE     *   FILE 432
//*      OF 3 LANGUAGES :  ENGLISH, FRENCH AND FRENGLISH (BAD       *   FILE 432
//*      ENGLISH SPOKEN BY A FRENCHIE).  SO... "EXCUSE MY           *   FILE 432
//*      FRENCH"...                                                 *   FILE 432
//*                                                                 *   FILE 432
//*       CONTENTS                                                  *   FILE 432
//*       ========                                                  *   FILE 432
//*                                                                 *   FILE 432
//*     ALLSTOP  - A TOOL TO STOP ALL RUNNING ADDRESS-SPACES        *   FILE 432
//*     ASCBS    - REXX TO LIST ALL ADDRESS-SPACES (FRENCH          *   FILE 432
//*                COMMENTS)                                        *   FILE 432
//*     CONSOLE  - BRINGING THE MVS MASTER CONSOLE UNDER ISPF       *   FILE 432
//*                (USES SVC 235 ; "LAST COMMAND" INFORMATION       *   FILE 432
//*                PROBABLY FALSE ; DON'T CALL THE LOAD             *   FILE 432
//*                "CONSOLE"                                        *   FILE 432
//*     CONSOLEP - ISPF PANEL FOR "CONSOLE" PROGRAM                 *   FILE 432
//*     CONVERT  - MACRO - CONVERTS FROM PACKED/DECIMAL/BINARY      *   FILE 432
//*                TO PACKED/DECIMAL/BINARY                         *   FILE 432
//*     CONVRTP  - REXX TO CONVERT CATALOG ENTRIES FROM 3480 TO     *   FILE 432
//*                3490  - FRENCH COMMENTS                          *   FILE 432
//*     ERASETP  - PROGRAM TO ERASE TAPE DATA (FOR SECURITY OR      *   FILE 432
//*                TO EVAL. TAPE CAPACITY)                          *   FILE 432
//*     EXP      - REXX TO COMPUTE EXPONENTIAL FUNCTION             *   FILE 432
//*                (FRENGLISH COMMENTS)                             *   FILE 432
//*     EXTEND   - MACRO - EXTENDS A BINARY ZONE TO DECIMAL         *   FILE 432
//*     EXEMPLES - EXAMPLES OF ASSEMBLER CODING (EDUCATIONAL        *   FILE 432
//*                PURPOSE) - FRENCH COMMENTS                       *   FILE 432
//*     ICHPWX01 - RACF NEW PASSWORD EXIT - FRENCH COMMENTS         *   FILE 432
//*     IGGPRE00 - DADSM PRE-PROCESSING EXIT, CONTROLS ACCESS       *   FILE 432
//*                TO VOLUME VIA A DEDICATED "ALLOC" RACF CLASS     *   FILE 432
//*                - FRENCH COMMENTS                                *   FILE 432
//*     INTERCPT - MPF EXIT - USED TO REPLY TO MESSAGES, TO         *   FILE 432
//*                ISSUE MVS COMMANDS OR TO SEND MESSAGES  -        *   FILE 432
//*                FRENCH COMMENTS                                  *   FILE 432
//*     IRA200E  - THIS MEMORY ZAP ALLOWS YOU TO CHANGE THE 70%     *   FILE 432
//*                AND 85 % THRESHOLDS                              *   FILE 432
//*     JESLESS  - JESLESS IN A NUTSHELL (HOW TO HAVE A LOGON       *   FILE 432
//*                TSO WITHOUT JES).                                *   FILE 432
//*     LISTSMS  - LISTING THE SMS CONFIGURATION                    *   FILE 432
//*     MGDOS    - SHAREWARE "MEGACRYPT/DOS" - COPY IT TO PC        *   FILE 432
//*                AND RENAME IT MGDOS.ZIP                          *   FILE 432
//*     MGWIN    - SHAREWARE "MEGACRYPT/WINDOWS" - COPY IT TO       *   FILE 432
//*                PC AND RENAME IT MGWIN.ZIP                       *   FILE 432
//*         NOTE : MGDOS AND MGWIN ARE FREE PARTS OF A LICENSED     *   FILE 432
//*         PRODUCT : MEGACRYPT/MVS                                 *   FILE 432
//*     MINISYST - THE JCL I USE FOR CREATING AN MVS MINI           *   FILE 432
//*                SYSTEM (OS/390 V2R5)                             *   FILE 432
//*     MVSCMD   - PROGRAM TO ISSUE ANY MVS OR JES2 IN BATCH -      *   FILE 432
//*                A CLASSICAL - FRENCH                             *   FILE 432
//*     PREMIER  - PRIME NUMBER TESTING (EDUCATIONAL PURPOSE) -     *   FILE 432
//*                FRENCH COMMENTS                                  *   FILE 432
//*     PRINTHX  - MACRO FOR CONVERSION TO HEX - FRENCH COMMENTS    *   FILE 432
//*     PROLOG   - MACRO TO ENTER THE PROGRAM - NOT CLEVER, BUT     *   FILE 432
//*                UNAVOIDABLE - FRENCH                             *   FILE 432
//*     PTKT     - SHAREWARE "PTKTGEN" - COPY IT TO PC AND          *   FILE 432
//*                RENAME IT PTKT.ZIP (IT IS A RACF PASSTICKET      *   FILE 432
//*                GENERATOR FOR PC/DOS)                            *   FILE 432
//*     SHOWLPAR - DISPLAYS THE CURRENT PR/SM CONFIGURATION         *   FILE 432
//*                (SEE "A BIT OF HISTORY")                         *   FILE 432
//*     SHOWMVS  - JCL : MY WAY TO RUN SHOWMVS IN BATCH -           *   FILE 432
//*                SHOWMVS R623D IN OBJ FORMAT                      *   FILE 432
//*     SMFJOBS  - LIST ALL JOBS (BASED ON SMF TYPE 30 RECORDS)     *   FILE 432
//*                - FRENCH COMMENTS                                *   FILE 432
//*     SRMSHOW  - DISPLAYS CURRENT AND THRESHOLD VALUES OF         *   FILE 432
//*                MAJOR SRM PARAMETERS  MVS/XA                     *   FILE 432
//*     SUSEC    - LISTING PROCESSORS IN THE COMPLEX AND THE        *   FILE 432
//*                MIPS (MSU) AVAILABLE - REXX                      *   FILE 432
//*     SVC235   - YES, A MAGIC SVC | BUT WITH SOME BASIC           *   FILE 432
//*                CONTROLS...                                      *   FILE 432
//*     TPUTXMAS - FOR THE FUN - XMAS TREE DISPLAY ON TSO FOR       *   FILE 432
//*                THE YEAR'S END...                                *   FILE 432
//*     VTOCR1   - PANEL USED BY VTOCREAD (SEE VTOCZAP)             *   FILE 432
//*     VTOCZAP  - JCL TO INSTALL "VTOCREAD". ENABLES YOU TO        *   FILE 432
//*                ZAP THE VTOC THRU ISPF (NOT DIRECTLY, AN         *   FILE 432
//*                AMASPZAP JCL IS GENERATED). SOURCE OF            *   FILE 432
//*                VTOCREAD LOST                                    *   FILE 432
//*     WEAKPASS - DISPLAYING RACF USERIDS WITH WEAK D.E.S.         *   FILE 432
//*                PASSWORD (XEPHON)                                *   FILE 432
//*     WTOPUT   - MACRO - ISSUES A WTO WITH MIXED LITTERALS        *   FILE 432
//*                AND DATA ZONES                                   *   FILE 432
//*     XTOD     - MACRO - CONVERTS HUNDREDTHS OF SECOND            *   FILE 432
//*                INTO 'HH:MM'                                     *   FILE 432
//*                                                                 *   FILE 432
//***FILE 433 is from Frank Clarke and contains a collection of     *   FILE 433
//*           his REXX execs.                                       *   FILE 433
//*                                                                 *   FILE 433
//*           email:  Frank Clarke <nisus@mindspring.com>           *   FILE 433
//*                                                                 *   FILE 433
//*     There are sixteen (16) routines in this set:  ADDCMDS,      *   FILE 433
//*     ALIST, ATTACH, BLOX, COMMANDS, FCXREF FIRSTIME, FTINIT,     *   FILE 433
//*     LA, MEMBERS, PACKING, SQRT, SQUASH, TBLOOK, TRAPOUT, and    *   FILE 433
//*     X2B.  Some of these are subroutines or examples (FTINIT,    *   FILE 433
//*     PACKING, TRAPOUT) and are not designed to run stand-alone.  *   FILE 433
//*     The others (except BLOX) produce HELP text if the first     *   FILE 433
//*     parameter is a "?"; BLOX shows its HELP text if -no-        *   FILE 433
//*     parameters are passed.                                      *   FILE 433
//*                                                                 *   FILE 433
//*      ADDCMDS       splices a command table to the in-storage    *   FILE 433
//*                    copy of ISPCMDS.  To update your command     *   FILE 433
//*                    list, just re-run; no need to leave ISPF,    *   FILE 433
//*                    and no need to be in TEST-mode.  {ADDCMDS ?} *   FILE 433
//*      ALIST         produces a scrollable list of the datasets   *   FILE 433
//*                    allocated to the specified DDNames.          *   FILE 433
//*                    {ALIST ?}                                    *   FILE 433
//*      ATTACH        another 'session-customizer', but this one   *   FILE 433
//*                    does it all.  {ATTACH ?}                     *   FILE 433
//*      BLOX          creates 8x7 block letters from text you      *   FILE 433
//*                    specify                                      *   FILE 433
//*      COMMANDS      display (and execute from) ISPCMDS.          *   FILE 433
//*      FCXREF        does a member-crossref by DDName {FCXREF ?}  *   FILE 433
//*      FIRSTIME      controls once-per-period executions          *   FILE 433
//*                    {FIRSTIME ?}                                 *   FILE 433
//*      FTINIT        subrtn; used by FIRSTIME                     *   FILE 433
//*      LA            LISTA to the queue {LA ?}                    *   FILE 433
//*      MEMBERS       memberlist to the queue {MEMBERS ?}          *   FILE 433
//*      PACKING       two example routines to pack and unpack      *   FILE 433
//*                    numbers.  {example only; copy where needed}  *   FILE 433
//*      SQRT          Square root {SQRT ###}                       *   FILE 433
//*      SQUASH        compose IEBCOPY JCL for the current dataset  *   FILE 433
//*                    {SQUASH ?}                                   *   FILE 433
//*      TBLOOK        examine any ISPF table {TBLOOK ?}            *   FILE 433
//*      TRAPOUT       subrtn; save TRACE output onto a file.  Your *   FILE 433
//*                    code must be ready to activate TRACE on      *   FILE 433
//*                    command; TRAPOUT reinvokes with "((TRACE R"  *   FILE 433
//*      X2B           hex-to-binary; used by BLOX                  *   FILE 433
//*      (DFLTHLQ has been retired.)                                *   FILE 433
//*                                                                 *   FILE 433
//***FILE 434 is from Mark Zelden and contains his collection       *   FILE 434
//*           of MVS utilities.                                     *   FILE 434
//*                                                                 *   FILE 434
//*   Questions: Please email Mark Zelden -  mzelden@flash.net      *   FILE 434
//*                                                                 *   FILE 434
//*   Mark's MVS Utilities is also available on the web:            *   FILE 434
//*      http://home.flash.net/~mzelden/mvsutil.html                *   FILE 434
//*                                                                 *   FILE 434
//* CLISTS / Edit Macros / Programs                                 *   FILE 434
//* --------------------------------------------------------------- *   FILE 434
//* AMBCLIST  - CLIST to invoke interactive AMBLIST with panel I/P  *   FILE 434
//* APFVER    - REXX exec to verify APF list                        *   FILE 434
//* ASIDLIST  - ASM PGM to list ASIDs & MAXUSER/RSVSTRT/RSVNONR     *   FILE 434
//* BLKCLIST  - CLIST to invoke BLKDISK command with panel input    *   FILE 434
//* CALC      - REXX exec calculator                                *   FILE 434
//* COLADD    - Edit macro to add numbers from a column range       *   FILE 434
//* COLUTIL   - Edit macro to manipulate columns                    *   FILE 434
//* DB        - Edit macro to delete lines from the cursor line     *   FILE 434
//*             to the bottom line                                  *   FILE 434
//* DELDUPS   - Edit macro to delete duplicate lines                *   FILE 434
//* DELDUPS2  - REXX duplicate record deletion program              *   FILE 434
//* DELNX     - Edit macro to delete all of a certain string        *   FILE 434
//* DELX      - Edit macro to delete everything but a certain       *   FILE 434
//*             string                                              *   FILE 434
//* DT        - Edit macro to delete lines from the cursor line     *   FILE 434
//*             to the top line                                     *   FILE 434
//* EXCL      - Edit macro to exclude all of certain string         *   FILE 434
//* FILL      - Edit macro to fill columns with a character         *   FILE 434
//* FINDMOD   - REXX exec (command) to find what library(s) a       *   FILE 434
//*             module is in                                        *   FILE 434
//* FINDASYS  - Sample search list for FINDMOD CLIST                *   FILE 434
//* INCL      - Edit macro to include all of a certain string       *   FILE 434
//* INSLINE   - Edit macro to insert a string after or before lines *   FILE 434
//* IPLINFO   - REXX exec to show various system information        *   FILE 434
//* JOBCHECK  - ASM PGM to find if a JOB is active on the system    *   FILE 434
//* ISPCMDSA  - CLIST to add temporary cmds to ISPF command table   *   FILE 434
//* KEYSWAP   - REXX exec to swap PFKEYS 1-12 with PFKEYS 13-24     *   FILE 434
//* LINEMAC   - REXX exec  - used with Doug Nadel's UMAC/LMAC PGM   *   FILE 434
//* LNKVER    - REXX exec to verify LNKLST syntax and libs          *   FILE 434
//* LPROG     - REXX exec - displays LNKLST, LPA list, & APF list   *   FILE 434
//* PREFIX    - Edit macro to add a prefix to the front of a line   *   FILE 434
//* PREFIX2   - Edit macro to add a prefix to the front of a line   *   FILE 434
//* RACFUDEL  - REXX exec to remove obsolete RACF users             *   FILE 434
//* RDATE     - REXX date conversion routine                        *   FILE 434
//* SUFFIX    - Edit macro to add a suffix to the end of a line     *   FILE 434
//* TAPESTAK  - REXX tape stacking program (works with CA-1)        *   FILE 434
//* TSOB      - REXX exec (command) to browse o/p of any TSO cmd    *   FILE 434
//* TSOE      - REXX exec (command) to edit o/p of any TSO cmd      *   FILE 434
//* XBROWSE   - CLIST (command) to browse any dataset               *   FILE 434
//* XEDIT     - CLIST (command) to edit any dataset                 *   FILE 434
//* XEF       - REXX exec to start eXtended Editor Facility dialog  *   FILE 434
//* XEFCLIST  - eXtended Editor Facility mainline code              *   FILE 434
//* XLISTC    - REXX (command) to LISTCAT ALL any dataset           *   FILE 434
//* XMEMLIST  - CLIST (command) to bring up member list on any DSN  *   FILE 434
//* XVIEW     - CLIST (command) to view any dataset                 *   FILE 434
//* ZBROWSE   - Edit macro to browse dataset that the cursor is on  *   FILE 434
//* ZEDIT     - Edit macro to edit dataset that the cursor is on    *   FILE 434
//* ZVIEW     - Edit macro to view dataset that the cursor is on    *   FILE 434
//*                                                                 *   FILE 434
//*                                                                 *   FILE 434
//* ISPF Panels                                                     *   FILE 434
//* --------------------------------------------------------------- *   FILE 434
//* AMBPANEL  - Interactive AMBLIST panel for AMBCLIST              *   FILE 434
//* BLKPANEL  - Interactive BLKDISK panel for BLKCLIST              *   FILE 434
//* XEFMENU   - eXtended Editor Facility Main Menu                  *   FILE 434
//* XEFHELP   - eXtended Editor Facility Help Panel #1              *   FILE 434
//* XEFHELP2  - eXtended Editor Facility Help Panel #2              *   FILE 434
//* XEFHELP3  - eXtended Editor Facility Help Panel #3              *   FILE 434
//* XEFHELP4  - eXtended Editor Facility Help Panel #4              *   FILE 434
//* XEFINF    - eXtended Editor Facility Dataset Info Panel-SEQ     *   FILE 434
//* XEFINFD   - eXtended Editor Facility Dataset Info Panel-PDS     *   FILE 434
//* XEFINFE   - eXtended Editor Facility Dataset Info Panel-PDSE    *   FILE 434
//* XEFINFP   - eXtended Editor Facility Dataset Info Panel-PDS SMS *   FILE 434
//* XEFINFS   - eXtended Editor Facility Dataset Info Panel-SEQ SMS *   FILE 434
//*                                                                 *   FILE 434
//* ISPF MESSAGEs                                                   *   FILE 434
//* --------------------------------------------------------------- *   FILE 434
//* XEF00     - eXtended Editor Facility Messages                   *   FILE 434
//*                                                                 *   FILE 434
//***FILE 435 is from David North of Los Angeles, California        *   FILE 435
//*           and is a Fixed Blocked LRECL=80 conversion of         *   FILE 435
//*           Frank Clarke's REXX execs that are on File 433.       *   FILE 435
//*           Frank's execs are in VB-255 format.                   *   FILE 435
//*                                                                 *   FILE 435
//*           This is an older version of Frank Clarke's execs.     *   FILE 435
//*           The current version is on File 433 in VB-255 format.  *   FILE 435
//*                                                                 *   FILE 435
//*           This conversion was performed with David North's      *   FILE 435
//*           utilities that are on File 155.  After the            *   FILE 435
//*           conversion, the execs were still in VB-255 format,    *   FILE 435
//*           but the lines were folded so they fit into an         *   FILE 435
//*           80-byte width.  I copied the members over to an       *   FILE 435
//*           actual FB-80 dataset.  (SG - 11/99)                   *   FILE 435
//*                                                                 *   FILE 435
//*   From:     "North, David (USI)" <david.north@unistudios.com>   *   FILE 435
//*                                                                 *   FILE 435
//*             Technical Services Group                            *   FILE 435
//*             Dave North                                          *   FILE 435
//*             3429 Downing Ave.                                   *   FILE 435
//*             Glendale, CA. 91208                                 *   FILE 435
//*                                                                 *   FILE 435
//***FILE 436 from Glenn Jones of Aramco in Saudi Arabia, and       *   FILE 436
//*           contains a version of the COMPCODE program, which     *   FILE 436
//*           notifies users of completion code information for     *   FILE 436
//*           jobs.  This version has been modified to even send    *   FILE 436
//*           emails to notify a user located elsewhere, of a job   *   FILE 436
//*           completion on the MVS system.                         *   FILE 436
//*                                                                 *   FILE 436
//*           Glenn Jones                                           *   FILE 436
//*           Saudi Aramco, Dhahran, Saudi Arabia                   *   FILE 436
//*           email: jonesgk@aramco.com.sa                          *   FILE 436
//*                  g_k_j@yahoo.com                                *   FILE 436
//*                                                                 *   FILE 436
//*      I have modified some code which may be of interest to      *   FILE 436
//*      you or others.  Whenever I'm on the computer, I            *   FILE 436
//*      generally have an email session going (either work or      *   FILE 436
//*      home). Sometimes my tasks do not require mainframe         *   FILE 436
//*      access.                                                    *   FILE 436
//*                                                                 *   FILE 436
//*      Rather than continually logging on/swapping to a           *   FILE 436
//*      mainframe session, I modified a copy of the public         *   FILE 436
//*      COMPCODE program to optionally do e-mail notifications.    *   FILE 436
//*      This COMPCODE program is in production jobs, started       *   FILE 436
//*      tasks, as well as batch work that is important enough      *   FILE 436
//*      for me to know about if a problem occurs.                  *   FILE 436
//*                                                                 *   FILE 436
//*      Another neat feature is when I go out of town, I make a    *   FILE 436
//*      simple update to the notify dataset for the person who     *   FILE 436
//*      will be handling the problems in my absence. Since all     *   FILE 436
//*      my jobs & STC's have this notify step, one simple          *   FILE 436
//*      update is immediately in effect for everything.            *   FILE 436
//*                                                                 *   FILE 436
//*      I also made the code Y2K friendly, and changed it to       *   FILE 436
//*      print out the steps real termination code, not just the    *   FILE 436
//*      highest recorded in the JCT.  This code is currently       *   FILE 436
//*      running on OS/390 V2R5 without any problems. The email     *   FILE 436
//*      portion uses IBM's MVS SMTP, and the program requires      *   FILE 436
//*      simple modifications for use at your installation.         *   FILE 436
//*                                                                 *   FILE 436
//***FILE 437 is from Jan Jaeger and contains a highly useful       *   FILE 437
//*           collection of tools.  Please note his standalone      *   FILE 437
//*           file editor and other standalone stuff, along with    *   FILE 437
//*           his many other unusually useful programs.             *   FILE 437
//*                                                                 *   FILE 437
//*  -------------------------------------------------------------  *   FILE 437
//*                                                                 *   FILE 437
//*                  S/390 System Utilities                         *   FILE 437
//*                                                                 *   FILE 437
//*          For comments or questions:   Jan Jaeger                *   FILE 437
//*                              email:   jj@septa.nl               *   FILE 437
//*                                                                 *   FILE 437
//*     ZZSA     - Standalone utilities for MVS, including          *   FILE 437
//*                editor, VTOC list, device list, DASD ZAP etc.    *   FILE 437
//*                                                                 *   FILE 437
//*     NODSI    - An utility to manipulate datasets that           *   FILE 437
//*                have GRS ENQs against them.                      *   FILE 437
//*                                                                 *   FILE 437
//*     ISTEXCAA - An implementation of the VTAM session            *   FILE 437
//*                management exit ISTEXCAA to control session      *   FILE 437
//*                setup by means of RACF profiles.                 *   FILE 437
//*                                                                 *   FILE 437
//*     MPFNTFY  - A MPF exit which transforms WTO messages         *   FILE 437
//*                into JES2 notify messages.                       *   FILE 437
//*                                                                 *   FILE 437
//*     PARMTZ   - An Unix System Services program which            *   FILE 437
//*                will allow you to set the TZ variable            *   FILE 437
//*                from CLOCKxx or the Sysplex Timer.               *   FILE 437
//*                                                                 *   FILE 437
//*     IRXFMATH -     MEMBERS: JJ$CMATH JJ$FMATH JJ$MMATH          *   FILE 437
//*                A REXX function package which                    *   FILE 437
//*                provides mathematical functions.                 *   FILE 437
//*                                                                 *   FILE 437
//*                                                                 *   FILE 437
//*     WHOHAS   - An ISPF utility to display GRS ENQ               *   FILE 437
//*                resources and requestors.                        *   FILE 437
//*                                                                 *   FILE 437
//*     VMCP     - Provides a CP operator command to MVS            *   FILE 437
//*                when it is running under VM.                     *   FILE 437
//*                                                                 *   FILE 437
//*     JSCH     -     MEMBERS: JSCH                                *   FILE 437
//*                Like ASCH, a transaction scheduler, but          *   FILE 437
//*                this one schedules started tasks rather          *   FILE 437
//*                then ASCH transactions.                          *   FILE 437
//*                                                                 *   FILE 437
//*     PDS upload/download utilities -                             *   FILE 437
//*                    MEMBERS: OPSYNBRI UPDCREAT UPDSTATS          *   FILE 437
//*                Utilities to create IEBUPDTE format              *   FILE 437
//*                sequential files from partitioned                *   FILE 437
//*                datasets, and restore ISPF statistics            *   FILE 437
//*                after rebuilding PDS using IEBUPDTE.             *   FILE 437
//*                                                                 *   FILE 437
//*                                                                 *   FILE 437
//*     INVOKE   - TSO Command Processor to call from               *   FILE 437
//*                LINKLIST/LPALIST                                 *   FILE 437
//*                                                                 *   FILE 437
//*     SUBMIT   - Alternate SUBMIT command which does not          *   FILE 437
//*                call the SUBMIT exit                             *   FILE 437
//*                                                                 *   FILE 437
//*     COMPRESS - Command Processor which calls IEBCOPY            *   FILE 437
//*                to compress                                      *   FILE 437
//*                                                                 *   FILE 437
//*     IEFJFRQ  - Protect subsystem command characters by          *   FILE 437
//*                means of RACF/ACF2                               *   FILE 437
//*                                                                 *   FILE 437
//***FILE 438 is from Dan Snyder of Columbus, Ohio and contains     *   FILE 438
//*           his collection of structured assembler macros that    *   FILE 438
//*           he developed for himself, over many years of coding.  *   FILE 438
//*                                                                 *   FILE 438
//*          email:   dsnyder@elektro.cmhnet.org                    *   FILE 438
//*                                                                 *   FILE 438
//*  -------------------------------------------------------------  *   FILE 438
//*                                                                 *   FILE 438
//*                       STRUCTURED MACROS                         *   FILE 438
//*                                                                 *   FILE 438
//*      These macros can help you create new programs and          *   FILE 438
//*      modify existing code by supporting IF-THEN-ELSE logic      *   FILE 438
//*      while requiring only a small learning curve from what      *   FILE 438
//*      you already know about S/390 Assembler (assuming that      *   FILE 438
//*      you do know it already).  Each 'IF' statement can be       *   FILE 438
//*      arbitrarily complex, and the 'IF' statements can be        *   FILE 438
//*      nested as many levels as you might need. (Certainly,       *   FILE 438
//*      no one would need more than 255 levels of nesting,         *   FILE 438
//*      would he?)                                                 *   FILE 438
//*                                                                 *   FILE 438
//*      Each group of instructions that you want conditionally     *   FILE 438
//*      executed would be headed by an 'IF' macro, and             *   FILE 438
//*      terminated by an 'ENDIF' macro.                            *   FILE 438
//*                                                                 *   FILE 438
//*      In its simplest form, the operand of the 'IF' macro        *   FILE 438
//*      consists of an op-code, the first operand address,         *   FILE 438
//*      the second operand address, and a condition. These         *   FILE 438
//*      four values must be enclosed within parentheses, and       *   FILE 438
//*      following the operands must be a comma and the             *   FILE 438
//*      statement terminating term 'THENDO'.                       *   FILE 438
//*                                                                 *   FILE 438
//*      The op-code may be any valid S/390 op-code that sets       *   FILE 438
//*      the condition code. The first and second operands may      *   FILE 438
//*      be any values that are valid for the instruction           *   FILE 438
//*      being created. The condition, such as 'E' or 'NO', is      *   FILE 438
//*      any value that can be used in creating an extended         *   FILE 438
//*      mnemonic branch instruction (such as 'BE' or 'BNO').       *   FILE 438
//*                                                                 *   FILE 438
//*      If you choose 'E' as the condition, then the group of      *   FILE 438
//*      instructions between the 'IF' and the 'ENDIF' will be      *   FILE 438
//*      executed only if the condition code set by the             *   FILE 438
//*      op-code and operands specified is a zero.                  *   FILE 438
//*                                                                 *   FILE 438
//*      In the following examples, the heading will indicate       *   FILE 438
//*      the conditions in which the do-group will be               *   FILE 438
//*      executed. In each case, an 'IF' statement determines       *   FILE 438
//*      the conditions, and an 'ENDIF' statement terminates        *   FILE 438
//*      the do-group. Comments either in the heading or on         *   FILE 438
//*      the appropriate instructions will indicate the             *   FILE 438
//*      details.                                                   *   FILE 438
//*                                                                 *   FILE 438
//*           Here is an example:                                   *   FILE 438
//*                                                                 *   FILE 438
//*             IF    (CLC,A,B,NE),THENDO                           *   FILE 438
//*                                                                 *   FILE 438
//*      The instructions between this 'IF' and its matching        *   FILE 438
//*      'ENDIF' will be executed if the result of the 'CLC'        *   FILE 438
//*      is a 1 or 2 (the not-equal condition).                     *   FILE 438
//*                                                                 *   FILE 438
//*           To execute the do-group if either one of two          *   FILE 438
//*      conditions is true, the format is:                         *   FILE 438
//*                                                                 *   FILE 438
//*           IF    (CLC,A,B,NE),OR,(CLC,C,D,NE),THENDO             *   FILE 438
//*                                                                 *   FILE 438
//*           Alternate format:                                     *   FILE 438
//*                                                        72       *   FILE 438
//*           IF    (CLC,A,B,NE),OR,                        C       *   FILE 438
//*                 (CLC,C,D,NE),THENDO                             *   FILE 438
//*                                                                 *   FILE 438
//*      (This will give you a small idea of what these macros      *   FILE 438
//*      can do.  For information about the more complicated        *   FILE 438
//*      capabilities of the structured macros in this package,     *   FILE 438
//*      please see member $$ALTDOC.)                               *   FILE 438
//*                                                                 *   FILE 438
//* --------------------------------------------------------------- *   FILE 438
//*                                                                 *   FILE 438
//*      Dan initially submitted only the structured macros         *   FILE 438
//*      that he wrote, to this tape.  He has now submitted many    *   FILE 438
//*      more macros.  Below, we see the types of macros which      *   FILE 438
//*      perform other categories of function, as well as the       *   FILE 438
//*      ones which can be used to create structured assembler      *   FILE 438
//*      programs.                                                  *   FILE 438
//*                                                                 *   FILE 438
//* --------------------------------------------------------------- *   FILE 438
//*                                                                 *   FILE 438
//*      In the following list of macros, each one is assigned to   *   FILE 438
//*      a category according to its intended use.  Most of the     *   FILE 438
//*      testing on these macros has been done in an environment    *   FILE 438
//*      called 'Version 2', or '2nd Generation'.  This             *   FILE 438
//*      environment presents a programmer with a pseudo-COBOL      *   FILE 438
//*      way of coding, and was created in the early 1990's as an   *   FILE 438
//*      aid to getting programs going faster.  The 'Version 1'     *   FILE 438
//*      or '1st Generation' environment was created in the mid     *   FILE 438
//*      1970's, and is somewhat more oriented toward Systems       *   FILE 438
//*      Programming types of programming.                          *   FILE 438
//*                                                                 *   FILE 438
//*      If a macro is listed as being 'GENERAL', or general        *   FILE 438
//*      purpose, then it is not part of either Version 1 or 2,     *   FILE 438
//*      but it might not have been tested outside one of these     *   FILE 438
//*      environments.                                              *   FILE 438
//*                                                                 *   FILE 438
//*      What follows is a description of the categories that       *   FILE 438
//*      these macros have been classified into:                    *   FILE 438
//*                                                                 *   FILE 438
//*      DIAGNOSTIC - The macro may be used in either Version 1     *   FILE 438
//*      or 2 programs, and is intended primarily as a diagnostic   *   FILE 438
//*      aid in getting the program running correctly.  Hopefully   *   FILE 438
//*      the effort expended in using one or more of these          *   FILE 438
//*      diagnostic macros will pay off in diagnosing the           *   FILE 438
//*      progress of your program.                                  *   FILE 438
//*                                                                 *   FILE 438
//*      GENERAL - Various utility macros that should provide       *   FILE 438
//*      services required for typical programs.                    *   FILE 438
//*                                                                 *   FILE 438
//*      INTERNAL - These macros are typically used as common       *   FILE 438
//*      service routines by other macros within this library.      *   FILE 438
//*      They usually provide services that would not be useful     *   FILE 438
//*      for use as open code macros (those coded within the        *   FILE 438
//*      program itself).                                           *   FILE 438
//*                                                                 *   FILE 438
//*      RUN-TIME-TOTALS - A set of general purpose macros that     *   FILE 438
//*      might make it easier to create counters that can be        *   FILE 438
//*      incremented at each of several places within a program,    *   FILE 438
//*      and then at some point during program execution            *   FILE 438
//*      (presumably during the finalization step of the            *   FILE 438
//*      program), print out all of the accumulated counts with     *   FILE 438
//*      one easy statement.                                        *   FILE 438
//*                                                                 *   FILE 438
//*      STRUCTURED - Macros that control the conditional or        *   FILE 438
//*      repetitive execution of a group of instructions            *   FILE 438
//*      following the group-initiation macro and ending with a     *   FILE 438
//*      group-terminating macro.                                   *   FILE 438
//*                                                                 *   FILE 438
//*      1st Generation - A set of macros that provice standard     *   FILE 438
//*      MVS interface and subroutine linkage conventions.          *   FILE 438
//*                                                                 *   FILE 438
//*      2nd GENERATION - Another set of MVS interface and          *   FILE 438
//*      subroutine linkage macros.                                 *   FILE 438
//*                                                                 *   FILE 438
//*      What follows is an alphabetic listing of all of the        *   FILE 438
//*      macro definitions included in the package, with its        *   FILE 438
//*      identifying macro type:                                    *   FILE 438
//*                                                                 *   FILE 438
//*                $AGOTO    INTERNAL                               *   FILE 438
//*                $ASECT    INTERNAL                               *   FILE 438
//*                $IA       INTERNAL                               *   FILE 438
//*                $MENDDO1  INTERNAL                               *   FILE 438
//*                $MENDDO2  INTERNAL                               *   FILE 438
//*                $MGBLDEF  INTERNAL                               *   FILE 438
//*                $MGFNAME  INTERNAL                               *   FILE 438
//*                $MGPNAME  INTERNAL                               *   FILE 438
//*                $WA       INTERNAL                               *   FILE 438
//*                ADDR      GENERAL                                *   FILE 438
//*                AFTER     STRUCTURED                             *   FILE 438
//*                AN        GENERAL                                *   FILE 438
//*                BEGTEST   DIAGNOSTIC                             *   FILE 438
//*                BHE       GENERAL                                *   FILE 438
//*                BLE       GENERAL                                *   FILE 438
//*                COMBOX    GENERAL                                *   FILE 438
//*                CONTINUE  GENERAL                                *   FILE 438
//*                CPYPAR$E  INTERNAL                               *   FILE 438
//*                CTE       TEXT SEARCH                            *   FILE 438
//*                CTEB      TEXT SEARCH                            *   FILE 438
//*                CVN       GENERAL                                *   FILE 438
//*                CVXREGS   DIAGNOSTIC                             *   FILE 438
//*                CVXWORD   DIAGNOSTIC                             *   FILE 438
//*                DEFPGMID  INTERNAL                               *   FILE 438
//*                DIAGMSG   INTERNAL                               *   FILE 438
//*                DISPLAY   DIAGNOSTIC                             *   FILE 438
//*                DIVISION  2ND GENERATION                         *   FILE 438
//*                DO        STRUCTURED                             *   FILE 438
//*                DTM       INTERNAL                               *   FILE 438
//*                DUMPMAIN  DIAGNOSTIC                             *   FILE 438
//*                DUMPREGS  DIAGNOSTIC                             *   FILE 438
//*                EDIT      STRUCTURED                             *   FILE 438
//*                ELSE      STRUCTURED                             *   FILE 438
//*                ELSEDO    STRUCTURED                             *   FILE 438
//*                ELSEIF    STRUCTURED                             *   FILE 438
//*                EM        GENERAL                                *   FILE 438
//*                ENDAFTER  STRUCTURED                             *   FILE 438
//*                ENDELSE   STRUCTURED                             *   FILE 438
//*                ENDFIRST  STRUCTURED                             *   FILE 438
//*                ENDIF     STRUCTURED                             *   FILE 438
//*                ENDO      STRUCTURED                             *   FILE 438
//*                ENDP      1ST GENERATION                         *   FILE 438
//*                ENDSECT   2ND GENERATION                         *   FILE 438
//*                ENDTEST   DIAGNOSTIC                             *   FILE 438
//*                EPACK     GENERAL                                *   FILE 438
//*                EQUATE    GENERAL                                *   FILE 438
//*                EUNPK     GENERAL                                *   FILE 438
//*                EVERY     STRUCTURED                             *   FILE 438
//*                EXECUTE   GENERAL                                *   FILE 438
//*                EXIT      2ND GENERATION                         *   FILE 438
//*                FINAL     2ND GENERATION                         *   FILE 438
//*                FIRST     STRUCTURED                             *   FILE 438
//*                GO        1ST GENERATION                         *   FILE 438
//*                GOBACK    2ND GENERATION                         *   FILE 438
//*                GOTO      2ND GENERATION                         *   FILE 438
//*                HEXRTN    DIAGNOSTIC (1ST GENERATION VERSION)    *   FILE 438
//*                HROUTINE  DIAGNOSTIC (2ND GENERATION VERSION)    *   FILE 438
//*                I         GENERAL                                *   FILE 438
//*                IF        STRUCTURED                             *   FILE 438
//*                IP        GENERAL                                *   FILE 438
//*                LEVELMSG  INTERNAL                               *   FILE 438
//*                MACBOX    GENERAL                                *   FILE 438
//*                NEXT      STRUCTURED                             *   FILE 438
//*                PAR$E     INTERNAL                               *   FILE 438
//*                PCALL     1ST GENERATION                         *   FILE 438
//*                PERFORM   2ND GENERATION                         *   FILE 438
//*                PRDEF     GENERAL (1ST GENERATION VERSION)       *   FILE 438
//*                PRINTER   GENERAL (2ND GENERATION VERSION)       *   FILE 438
//*                PROC      1ST GENERATION                         *   FILE 438
//*                PRTTABLE  RUN-TIME-TOTALS                        *   FILE 438
//*                RETN      1ST OR 2ND GENERATION                  *   FILE 438
//*                RTTBEG    RUN-TIME-TOTALS                        *   FILE 438
//*                RTTEND    RUN-TIME-TOTALS                        *   FILE 438
//*                RTTENT    RUN-TIME-TOTALS                        *   FILE 438
//*                RTTINCR   RUN-TIME-TOTALS                        *   FILE 438
//*                RTTPRT    RUN-TIME-TOTALS                        *   FILE 438
//*                RTTRESET  RUN-TIME-TOTALS                        *   FILE 438
//*                SECONDEP  2ND GENERATION                         *   FILE 438
//*                SECTION   2ND GENERATION                         *   FILE 438
//*                SETCSECT  INTERNAL                               *   FILE 438
//*                SETDEF    INTERNAL                               *   FILE 438
//*                SETRC     GENERAL                                *   FILE 438
//*                SETUP     INTERNAL                               *   FILE 438
//*                STOP      1ST GENERATION                         *   FILE 438
//*                SYSUT1    1ST GENERATION                         *   FILE 438
//*                SYSUT2    1ST GENERATION                         *   FILE 438
//*                TAG       GENERAL                                *   FILE 438
//*                THENDO    STRUCTURED                             *   FILE 438
//*                TRACER    DIAGNOSTIC                             *   FILE 438
//*                TRACER2   INTERNAL                               *   FILE 438
//*                TRC       DIAGNOSTIC (1ST GENERATION ONLY)       *   FILE 438
//*                TRSP      GENERAL                                *   FILE 438
//*                VAL       INTERNAL                               *   FILE 438
//*                VERSION   INTERNAL                               *   FILE 438
//*                                                                 *   FILE 438
//***FILE 439 is from Volker Mielke of Bremen, Germany and          *   FILE 439
//*           contains his PDSX utility to scan all partitioned     *   FILE 439
//*           datasets in an installation for the presence of a     *   FILE 439
//*           given member name.                                    *   FILE 439
//*                                                                 *   FILE 439
//*           This file is the source library for PDSX.             *   FILE 439
//*                                                                 *   FILE 439
//*             Volker Mielke                                       *   FILE 439
//*             St. - Gallener - Str. 17                            *   FILE 439
//*             28325 Bremen                                        *   FILE 439
//*             GERMANY                                             *   FILE 439
//*                                                                 *   FILE 439
//*             Phone: +49 421 4099152                              *   FILE 439
//*             Email:  vmielke@debitel.net                         *   FILE 439
//*                                                                 *   FILE 439
//*  ----------------------------------------------------------     *   FILE 439
//*                                                                 *   FILE 439
//*     PDSX - PARTITIONED DATASET MEMBER CROSS-REFERENCE           *   FILE 439
//*                                                                 *   FILE 439
//*         "Volker Mielke" <vmielke@debitel.net>                   *   FILE 439
//*                                                                 *   FILE 439
//*     1. WHAT IS PDSX?                                            *   FILE 439
//*           WITH PDSX YOU CAN FIND OUT WHICH DATASET(S)           *   FILE 439
//*           ON YOUR SYSTEM CONTAIN A GIVEN MEMBER.                *   FILE 439
//*           UNDER TSO YOU SIMPLY ENTER                            *   FILE 439
//*              PDSX <MEMBERNAME>                                  *   FILE 439
//*           AND YOU WILL BE SHOWN A LIST OF ALL                   *   FILE 439
//*           APPLICABLE DATASETS, FROM WHERE YOU CAN               *   FILE 439
//*           DIRECTLY EDIT OR BROWSE THE REQUESTED                 *   FILE 439
//*           MEMBER(S).                                            *   FILE 439
//*                                                                 *   FILE 439
//*     2. HOW DOES IT WORK?                                        *   FILE 439
//*           EVERY NIGHT WE RUN A VTOC SCAN ON ALL OUR             *   FILE 439
//*           DISK PACKS (WE DO THIS ANYWAY FOR RECOVERY            *   FILE 439
//*           PURPOSES, SO THERE IS NO EXTRA OVERHEAD). WE          *   FILE 439
//*           USE THE VTOC PROGRAM FROM THE CBT TAPE FOR            *   FILE 439
//*           THIS.                                                 *   FILE 439
//*                                                                 *   FILE 439
//*           THEN WE FILTER THE VTOC OUTPUT TO CREATE A            *   FILE 439
//*           LIST OF ALL DESIRED PO / PDSE - DATASETS.             *   FILE 439
//*                                                                 *   FILE 439
//*           THE DIRECTORIES OF THESE DATASETS ARE READ,           *   FILE 439
//*           THE RESULT IS SORTED AND LOADED INTO A VSAM           *   FILE 439
//*           KSDS.  THE DIRECTORY SCAN TAKES ABOUT 15 MIN          *   FILE 439
//*           ELAPSED TIME AND ABOUT 1.5 CPU MINUTES FOR            *   FILE 439
//*           ABOUT 4,500 DATASETS AND 600,000 MEMBERS.             *   FILE 439
//*                                                                 *   FILE 439
//*     3. INSTALLATION                                             *   FILE 439
//*                                                                 *   FILE 439
//*           COPY THE LOAD MODULES PDSMEM1 AND PDSMEM4 TO          *   FILE 439
//*           A LOAD LIBRARY OR RECOMPILE THEM.                     *   FILE 439
//*                                                                 *   FILE 439
//*        3.1 THE BATCH PART                                       *   FILE 439
//*            MODIFY THE SAMPLE JOB IN MEMBER $BATCH TO            *   FILE 439
//*            MEET YOUR STANDARDS.                                 *   FILE 439
//*                                                                 *   FILE 439
//*            MODIFY THE VTOCFLTR EXEC TO EXCLUDE FILE NOT         *   FILE 439
//*            WANTED IN YOUR XREF (I.E. ISPF PROFILES,             *   FILE 439
//*            CONFIDENTIAL FILES...)  PLAN TO RUN THE JOB          *   FILE 439
//*            ON A REGULAR BASIS.                                  *   FILE 439
//*                                                                 *   FILE 439
//*        3.2 ONLINE                                               *   FILE 439
//*            COPY THE PANELS(PDSMEM2A,PDSMEM2B,PDSHLP2A)          *   FILE 439
//*            TO A PANEL LIBRARY.                                  *   FILE 439
//*                                                                 *   FILE 439
//*            COPY THE REXX EXEC "PDSX" TO YOUR                    *   FILE 439
//*            SYSPROC/SYSEXEC FILE AND MODIFY THE LIBDEF           *   FILE 439
//*            STATEMENT TO POINT TO YOUR PANEL LIBRARY.            *   FILE 439
//*                                                                 *   FILE 439
//*     4. KNOWN PROBLEMS                                           *   FILE 439
//*        PO DATASETS ARE OPENED EVERY NIGHT BY PDSX TO            *   FILE 439
//*        SCAN THEIR DIRECTORIES. THIS CAUSES THEIR LAST           *   FILE 439
//*        REFERENCE DATE TO BE CHANGED.                            *   FILE 439
//*                                                                 *   FILE 439
//*        IF YOU USE HSM, HSM WILL NEVER CONSIDER THESE            *   FILE 439
//*        DATASETS FOR MIGRATION, BECAUSE THEY SEEM TO             *   FILE 439
//*        HAVE BEEN ACCESSED RECENTLY.  FOR US THIS IS             *   FILE 439
//*        NOT A PROBLEM, BECAUSE WE DO NOT INDEX USER              *   FILE 439
//*        LIBRARIES, AND PRODUCTION/SYSTEM LIBRARIES ARE           *   FILE 439
//*        NOT CONSIDERED MIGRATION CANDIDATES BY OUR               *   FILE 439
//*        SHOP.                                                    *   FILE 439
//*                                                                 *   FILE 439
//*        POSSIBLE SOLUTIONS COULD BE                              *   FILE 439
//*           - TO DO A "QUIET" OPEN ON THE DATASET, I              *   FILE 439
//*             KNOW SOME DISK MANAGEMENT TOOLS OPEN FILE           *   FILE 439
//*             WITHOUT CHANGING THE LAST REFERENCE DATE,           *   FILE 439
//*                                                                 *   FILE 439
//*             OR                                                  *   FILE 439
//*           - LOOK AT THE LAST REFERENCE DATE FOR A               *   FILE 439
//*             DATASET BEFORE READING ITS DIRECTORY. IF            *   FILE 439
//*             IT HAS NOT BEEN CHANGED, THE DIRECTORY              *   FILE 439
//*             INFORMATION COLLECTED DURING THE PREVIOUS           *   FILE 439
//*             RUN CAN SIMPLY BE COPIED FROM THE EXISTING          *   FILE 439
//*             XREF - DATASET.  BUT THIS WOULD REQUIRE A           *   FILE 439
//*             LITTLE BIT OF LOGIC TO BE ADDED                     *   FILE 439
//*                                                                 *   FILE 439
//*        SOMETIMES I HEAR PEOPLE COMPLAIN THAT THEY DON'T         *   FILE 439
//*        SEE A MEMBER THAT THEY KNOW IT EXISTS. THIS IS           *   FILE 439
//*        BECAUSE YOU CANNOT EXPECT PDSX TO KNOW ABOUT             *   FILE 439
//*        MEMBERS CREATED AFTER IT HAS BEEN RUN.  THE SAME         *   FILE 439
//*        IS TRUE FOR DELETED MEMBERS.                             *   FILE 439
//*                                                                 *   FILE 439
//*     5. ENHANCEMENTS                                             *   FILE 439
//*        WHAT I WOULD LIKE TO DO (IF I HAD THE TIME) :            *   FILE 439
//*                                                                 *   FILE 439
//*        - FIX THE HSM PROBLEM ABOVE                              *   FILE 439
//*        - ADD RACF SUPPORT TO SHOW ONLY DATASETS                 *   FILE 439
//*          ACCESSIBLE TO A USER                                   *   FILE 439
//*        - SWITCH FROM VTOC SCANS TO DCOLLECT. THIS               *   FILE 439
//*          WOULD MAKE IT POSSIBLE TO KEEP DIRECTORY               *   FILE 439
//*          INFORMATION FOR MIGRATED AND / OR BACKED UP            *   FILE 439
//*          DATASETS.                                              *   FILE 439
//*        - ABILITY TO DO A PARTIAL INDEX REFRESH (FOR             *   FILE 439
//*          SELECTED DATASETS OR VOLUMES)                          *   FILE 439
//*                                                                 *   FILE 439
//*     6. COPYRIGHT                                                *   FILE 439
//*                                                                 *   FILE 439
//*        COPYRIGHT 1990,1999 BY VOLKER MIELKE                     *   FILE 439
//*                            VOLKER MIELKE EDV - BERATUNG         *   FILE 439
//*        ALL RIGHTS RESERVED                                      *   FILE 439
//*                                                                 *   FILE 439
//*        YOU MAY USE, REDISTRIBUTE AND MODIFY THIS                *   FILE 439
//*        PROGRAM, BUT IT MUST NOT BE SOLD.                        *   FILE 439
//*                                                                 *   FILE 439
//*        USE OF THIS PROGRAM IS AT YOUR OWN RISK.                 *   FILE 439
//*                                                                 *   FILE 439
//***FILE 440 is from Volker Mielke of Bremen, Germany and          *   FILE 440
//*           contains his PDSX utility to scan all partitioned     *   FILE 440
//*           datasets in an installation for the presence of a     *   FILE 440
//*           given member name.  See File 439 for more doc.        *   FILE 440
//*                                                                 *   FILE 440
//*           This file is the load library for PDSX.               *   FILE 440
//*                                                                 *   FILE 440
//*             Volker Mielke                                       *   FILE 440
//*             St. - Gallener - Str. 17                            *   FILE 440
//*             28325 Bremen                                        *   FILE 440
//*             GERMANY                                             *   FILE 440
//*                                                                 *   FILE 440
//*             Phone: +49 421 4099152                              *   FILE 440
//*             Email:  vmielke@debitel.net                         *   FILE 440
//*                                                                 *   FILE 440
//***FILE 441 is from Brian Vogt of EDS, and contains 2 programs    *   FILE 441
//*           for RACF:                                             *   FILE 441
//*                                                                 *   FILE 441
//*           (1) RESUME - to recover from a situation in which all *   FILE 441
//*               userids with SPECIAL or OPERATIONS attributes     *   FILE 441
//*               have been revoked.  The program runs as a         *   FILE 441
//*               started task, and mimics the effect of a          *   FILE 441
//*               "TSO ALU userid RESUME" command.                  *   FILE 441
//*           (2) RA#NAMES - list all userids & user's names to a   *   FILE 441
//*               data set, and all group ids & installation-data   *   FILE 441
//*               to another data set - (all one-line entries).     *   FILE 441
//*                                                                 *   FILE 441
//*           email: "Vogt, Brian A" <brian.vogt@eds.com>           *   FILE 441
//*                                                                 *   FILE 441
//*     RESUME                                                      *   FILE 441
//*     ======                                                      *   FILE 441
//*       DATE   - November 1987.    MVS/SP 2.1.7 with RACF 1.7.0.  *   FILE 441
//*        SMF logging and updating of last access added July       *   FILE 441
//*        1988.  Tested ok on MVS 5.2.2 with RACF 2.2 and          *   FILE 441
//*        also on OS/390 2.6 (Jan 2000).                           *   FILE 441
//*                                                                 *   FILE 441
//*       FUNCTION -                                                *   FILE 441
//*        Use ICHEINTY to modify the following in a RACF USER      *   FILE 441
//*        profile :                                                *   FILE 441
//*         (1) unset FLAG4 (REVOKE attribute).                     *   FILE 441
//*         (2) zero out REVOKECT (revoke count).                   *   FILE 441
//*         (3) set LJTIME & LJDATE to the current time & date.     *   FILE 441
//*         (4) For the benefit of the RACF Auditor, write a type   *   FILE 441
//*             80 SMF record (pretending to be ALTUSER with the    *   FILE 441
//*             RESUME parameter).                                  *   FILE 441
//*                                                                 *   FILE 441
//*        The most likely practical applications are :             *   FILE 441
//*         (a) A hacker revokes all of the privileged userids in   *   FILE 441
//*             the system, by submitting many batch jobs with      *   FILE 441
//*             incorrect passwords.  (Never trust an Operator to   *   FILE 441
//*             reply correctly to message ICH302D).  This program  *   FILE 441
//*             cannot be thwarted, as it does not run under a      *   FILE 441
//*             RACF userid.                                        *   FILE 441
//*                                                                 *   FILE 441
//*         (b) The userid of a production batch job becomes        *   FILE 441
//*             revoked overnight.  The MVS Operator can overcome   *   FILE 441
//*             this, with a bit of information from the on-call    *   FILE 441
//*             Security Admin.                                     *   FILE 441
//*                                                                 *   FILE 441
//*       SETUP DOCUMENTATION -                                     *   FILE 441
//*       -------------------                                       *   FILE 441
//*        (1) This program must be invoked from a started task.    *   FILE 441
//*              //RESUME   PROC U=,PW=                             *   FILE 441
//*              //RESUME   EXEC PGM=RESUME,PARM='&USER,&PW'        *   FILE 441
//*        (2) The started task name must be RESUME.                *   FILE 441
//*        (3) Do NOT put the started task name into the RACF       *   FILE 441
//*            Started Procedures Table (ICHRIN03) or create a      *   FILE 441
//*            STARTED profile for it.  The task doesn't need a     *   FILE 441
//*            userid, and is better off without one.               *   FILE 441
//*                                                                 *   FILE 441
//*       USER DOCUMENTATION -                                      *   FILE 441
//*       ------------------                                        *   FILE 441
//*        (1) The function is invoked via this MVS command:        *   FILE 441
//*              S RESUME,U=userid,PW=password                      *   FILE 441
//*        (2) The userid (U keyword) must be specified.            *   FILE 441
//*        (3) The password (PW keyword) must match the RVARY       *   FILE 441
//*            SWITCH password.  If there is no RVARY SWITCH        *   FILE 441
//*            password (RCVTSWPW is binary zeroes), this parameter *   FILE 441
//*            is ignored, and may be entirely omitted from the     *   FILE 441
//*            START command.                                       *   FILE 441
//*        (4) The RVARY SWITCH password should be changed by the   *   FILE 441
//*            RACF Security Administrator as soon as practicable   *   FILE 441
//*            after use.                                           *   FILE 441
//*                                                                 *   FILE 441
//*     RA#NAMES                                                    *   FILE 441
//*     ========                                                    *   FILE 441
//*       DATE - October 1990.                                      *   FILE 441
//*              Jan 1991 - Automatic REVOKE feature added.         *   FILE 441
//*              Feb 2000 - Fixed minor Y2K bug in report header    *   FILE 441
//*                         and major Y2K bug in automatic REVOKE   *   FILE 441
//*                         feature.  Added "revoke trace"          *   FILE 441
//*                         sub-feature.                            *   FILE 441
//*       FUNCTIONS -                                               *   FILE 441
//*       1. Write a list of all userids and their respective NAME  *   FILE 441
//*          fields.  The output DDname is UIDS.                    *   FILE 441
//*       2. In the case of userids which have not been used yet,   *   FILE 441
//*          if a number of days have elapsed since creation, set   *   FILE 441
//*          the revoke indicator (FLAG4).  This "number of days"   *   FILE 441
//*          is specified as a the parameter when invoking this     *   FILE 441
//*          program.                                               *   FILE 441
//*       3. Write a list of all group names and their respective   *   FILE 441
//*          installation-defined data fields.                      *   FILE 441
//*          The output DDname is GRPS.                             *   FILE 441
//*                                                                 *   FILE 441
//*       USER DOCUMENTATION -                                      *   FILE 441
//*          //RA#NAMES EXEC PGM=RA#NAMES,PARM='31'                 *   FILE 441
//*          //UIDS     DD   DSN=SYS3.RACFADM.USERIDS,DISP=SHR      *   FILE 441
//*          //GRPS     DD   DSN=SYS3.RACFADM.GROUPS,DISP=SHR       *   FILE 441
//*          (Supply any sequential data sets; this program has     *   FILE 441
//*           the DCB attributes hard-coded).                       *   FILE 441
//*       1. The PARM value is the number of days before an unused  *   FILE 441
//*          (new) userid will be automatically REVOKEd by this     *   FILE 441
//*          program.  Maximum value is 3 decimal digits.           *   FILE 441
//*       2. If there is no parameter, or a value of zero is        *   FILE 441
//*          specified, no REVOKE is performed.                     *   FILE 441
//*       3. If the value is preceded by a minus sign, e.g.         *   FILE 441
//*          PARM='-31' the REVOKE is not actually performed, but   *   FILE 441
//*          trace WTOs indicate what would have happened if the    *   FILE 441
//*          minus sign had been omitted.                           *   FILE 441
//*                                                                 *   FILE 441
//***FILE 442 is from Tetsuya Kimura (Kimu) and contains his        *   FILE 442
//*           REVIVE utility, which is a convenient way to          *   FILE 442
//*           restore deleted pds members, under ISPF.              *   FILE 442
//*                                                                 *   FILE 442
//*           email:    Tetsuya Kimura <kimu@bigfoot.com>           *   FILE 442
//*                                                                 *   FILE 442
//*           You may be able to find more updated versions of      *   FILE 442
//*           Kimu's utilities at his web site:                     *   FILE 442
//*                                                                 *   FILE 442
//*           Kimu has a lot of programs at his web site:           *   FILE 442
//*                                                                 *   FILE 442
//*           http://home4.highway.ne.jp/kimu/                      *   FILE 442
//*                                                                 *   FILE 442
//*           This site is half in English and half in Japanese,    *   FILE 442
//*           but the English part is more than adequate, and       *   FILE 442
//*           you can get a lot of benefit from Kimu's programs.    *   FILE 442
//*                                                                 *   FILE 442
//***FILE 443 is from Tetsuya Kimura (Kimu) and contains some       *   FILE 443
//*           of his many utilities.  You should go to Kimu's       *   FILE 443
//*           web site to check if any of these programs is at      *   FILE 443
//*           a later level, or if he has other utilities           *   FILE 443
//*           posted there for download.                            *   FILE 443
//*                                                                 *   FILE 443
//*         Kimu's web site:  http://home4.highway.ne.jp/kimu/      *   FILE 443
//*                                                                 *   FILE 443
//*           email:    Tetsuya Kimura <kimu@bigfoot.com>           *   FILE 443
//*                                                                 *   FILE 443
//*           This site is half in English and half in Japanese,    *   FILE 443
//*           but the English part is more than adequate, and       *   FILE 443
//*           you can get a lot of benefit from Kimu's programs.    *   FILE 443
//*                                                                 *   FILE 443
//*          @CMD#120 :  MVS command execution program.             *   FILE 443
//*                      (from TSO)                                 *   FILE 443
//*          @ENQ#003 :  show ENQ/DEQ table (from TSO)              *   FILE 443
//*          @ENQC    :  @ENQ#003 clist                             *   FILE 443
//*          @LISTD3  :  cache hit report                           *   FILE 443
//*          @LOADMAP :  load module map program                    *   FILE 443
//*          @LOC#301 :  cataloged dataset search                   *   FILE 443
//*          @OS#6HC  :  subroutine                                 *   FILE 443
//*          @OS#6HC2 :  subroutine                                 *   FILE 443
//*          @SLEEP   :  waits for specified time                   *   FILE 443
//*          @SMF30#1 :  smf type 30 report                         *   FILE 443
//*          @SMF41#0 :  smf type 41 report                         *   FILE 443
//*          @SMF74#8 :  smf type 74 report                         *   FILE 443
//*          @SMF99#D :  @SMF99#1 copy                              *   FILE 443
//*          @SMF99#T :  @SMF99#1 copy                              *   FILE 443
//*          @SMF99#1 :  smf type 99 report                         *   FILE 443
//*          @VOL     :  @VOL#301 procedure                         *   FILE 443
//*          @VOL#301 :  scan dasd for specified volser             *   FILE 443
//*                      (from TSO or STC)                          *   FILE 443
//*          VSCHK000 :  virtual storage monitor                    *   FILE 443
//*          @WLMTRC  :  @SMF99#1 (japanese translation             *   FILE 443
//*                      for WLM action trace report)               *   FILE 443
//*          WLMTRCD  :  @WLMTRC translation table                  *   FILE 443
//*                                                                 *   FILE 443
//***FILE 444 is from Ron Tatum of Lubbock, Texas, and contains     *   FILE 444
//*           some routines he wrote in the early days of OS/360    *   FILE 444
//*           computing.  These are VERY noteworthy.                *   FILE 444
//*                                                                 *   FILE 444
//*                 Ronald H. Tatum                                 *   FILE 444
//*                 3408 56th St.                                   *   FILE 444
//*                 Lubbock, TX 79413-4747                          *   FILE 444
//*                 (806)799-4485.                                  *   FILE 444
//*                 "Ronald Tatum" <rhtatum@door.net>               *   FILE 444
//*                                                                 *   FILE 444
//*    CPWTA    - Routine to write tapes with big blocks.           *   FILE 444
//*               Callable subroutine from higher level languages.  *   FILE 444
//*               This routine can write blocks of up to 512K       *   FILE 444
//*               on a tape, by chaining 9 64K CCWs.                *   FILE 444
//*               Actually, this routine can be modified to         *   FILE 444
//*               write even bigger blocks.                         *   FILE 444
//*                                                                 *   FILE 444
//*    CPRDTAPE - Routine to read tapes written by CPWTA.           *   FILE 444
//*               Callable subroutine from higher level languages.  *   FILE 444
//*               This routine has many entry points, depending on  *   FILE 444
//*               function.  This routine can read tapes with       *   FILE 444
//*               blocks of up to 512K.                             *   FILE 444
//*               Actually, this routine can be modified to         *   FILE 444
//*               read even bigger blocks.                          *   FILE 444
//*                                                                 *   FILE 444
//***FILE 445 is from Chris Kendon, and is an update of the old     *   FILE 445
//*           UK GUIDE object deck disassembler.  The code has      *   FILE 445
//*           been taught XA and ESA instructions, and other        *   FILE 445
//*           modern stuff.  You'll enjoy playing with this.        *   FILE 445
//*                                                                 *   FILE 445
//*           email:   chris.kendon@pgen.com                        *   FILE 445
//*                                                                 *   FILE 445
//*           Chris Kendon,                                         *   FILE 445
//*           Powergen,                                             *   FILE 445
//*           PO Box 4, North P.D.O.                                *   FILE 445
//*           398 Coppice Road,                                     *   FILE 445
//*           Arnold,                                               *   FILE 445
//*           Nottingham,                                           *   FILE 445
//*           NG5 7HX,                                              *   FILE 445
//*           UK.                                                   *   FILE 445
//*                                                                 *   FILE 445
//***FILE 446 is from John McKown and contains a COBOL program      *   FILE 446
//*           which uses OS/390 UNIX services.  It's good to have   *   FILE 446
//*           a program like this, for a coding example.            *   FILE 446
//*                                                                 *   FILE 446
//*           email:   "McKown, John" <JMckown@Insurdata.com>       *   FILE 446
//*                                                                 *   FILE 446
//*     This program is a small example (341 lines of code) of      *   FILE 446
//*     how to use COBOL to write an OS/390 UNIX System Services    *   FILE 446
//*     program. The program uses the BPX1WRT subroutine to         *   FILE 446
//*     write to STDOUT. It uses this interface to write the        *   FILE 446
//*     UNIX parameters (like C's argc and argv).  It also uses     *   FILE 446
//*     that interface to write out the currently set               *   FILE 446
//*     environment variables.  For example:                        *   FILE 446
//*                                                                 *   FILE 446
//*     ./UNIX0002 arg1 arg2 arg3                                   *   FILE 446
//*                                                                 *   FILE 446
//*     would result in output such as:                             *   FILE 446
//*                                                                 *   FILE 446
//*     NUMBER OF ARGUMENT IS: 4                                    *   FILE 446
//*     ARGC 000=./UNIX0002                                       *   FILE 446
//*     ARGC 001=arg1                                             *   FILE 446
//*     ARGC 002=arg2                                             *   FILE 446
//*     ARGC 003=arg3                                             *   FILE 446
//*                                                                 *   FILE 446
//*     NUMBER OF ENVIRONMENT VARIABLES IS: 3                       *   FILE 446
//*     ENV 000=VAR1=VALUE1                                       *   FILE 446
//*     ENV 001=VAR2=VALUE2                                       *   FILE 446
//*     ENV 002=VAR3=VALUE3                                       *   FILE 446
//*                                                                 *   FILE 446
//*     This is a single, COBOL source program.                     *   FILE 446
//*                                                                 *   FILE 446
//***FILE 447 is from Rick Fochtman of Chicago, Illinois, and       *   FILE 447
//*           contains two programs to improve GRS facilities,      *   FILE 447
//*           so that the messages which GRS produces, will         *   FILE 447
//*           approximate those which MIM produces, reporting       *   FILE 447
//*           ENQUEUE conflicts on the operator console.            *   FILE 447
//*                                                                 *   FILE 447
//*             email:   rfochtman@ync.net                          *   FILE 447
//*             phone:   630-719-1545                               *   FILE 447
//*                                                                 *   FILE 447
//*           Since we've gone to GRS, in place of MIM, there       *   FILE 447
//*           was one feature of MIM that was sorely missed.        *   FILE 447
//*           MIM would explain the nature of dataset               *   FILE 447
//*           contentions in greater detail than the initial        *   FILE 447
//*           messages from GRS.  True, you could get the detail    *   FILE 447
//*           by issuing the "D GRS,C" command, if you managed      *   FILE 447
//*           to catch it quick enough.  We deemed that this was    *   FILE 447
//*           insufficient.  Attached are the solutions             *   FILE 447
//*           developed here.  One is a started task that checks    *   FILE 447
//*           for a contention situation each minute and            *   FILE 447
//*           displays information about it.  The other is an MPF   *   FILE 447
//*           exit that displays the same information whenever a    *   FILE 447
//*           dataset contention situation is announced via the     *   FILE 447
//*           IEF099I message.                                      *   FILE 447
//*                                                                 *   FILE 447
//***FILE 448 is a utility to put the current system date into      *   FILE 448
//*           system symbolic parameters that can be used in JCL.   *   FILE 448
//*           This file is from Mark Lawrence of Stanford           *   FILE 448
//*           University in California.                             *   FILE 448
//*                                                                 *   FILE 448
//*           Mark C. Lawrence                                      *   FILE 448
//*           Systems Programmer                                    *   FILE 448
//*           Stanford Data Center                                  *   FILE 448
//*           Stanford, CA 94305-4136                               *   FILE 448
//*                                                                 *   FILE 448
//*  email:   M.Lawrence@Forsythe.Stanford.edu                      *   FILE 448
//*  phone:   (650) 723-4976                                        *   FILE 448
//*                                                                 *   FILE 448
//***FILE 449 is from Keith Moe of Amdahl, and contains their       *   FILE 449
//*           Bookmanager front end package.                        *   FILE 449
//*                                                                 *   FILE 449
//*     Keith E. Moe                                                *   FILE 449
//*     Amdahl Corporation                                          *   FILE 449
//*     1250 E. Arques Ave                                          *   FILE 449
//*     M/S 383                                                     *   FILE 449
//*     Sunnyvale, Ca  94088-3470                                   *   FILE 449
//*     (408) 746-6386                                              *   FILE 449
//*     Keith_Moe@notes.amdahl.com                                  *   FILE 449
//*                                                                 *   FILE 449
//*     Disclaimer                                                  *   FILE 449
//*                                                                 *   FILE 449
//*     As usual, Amdahl Corporation (and I) take no                *   FILE 449
//*     responsibility for how well this works in your              *   FILE 449
//*     environment and any problems it might cause.  Suffice       *   FILE 449
//*     it to say, it does work, as our Users use it regularly.     *   FILE 449
//*     (I also think that it is a good introduction to CGI         *   FILE 449
//*     programming in REXX with the IBM WebServer.)                *   FILE 449
//*                                                                 *   FILE 449
//*        Detailed documentation of this package follows:          *   FILE 449
//*                                                                 *   FILE 449
//*     The Amdahl BookManager BookServer Front-end provides a      *   FILE 449
//*     means to search a "catalog" of all book titles and          *   FILE 449
//*     publication numbers kept in MVS BookManager Sequential      *   FILE 449
//*     Data Sets and link directly to the Book or BookShelf        *   FILE 449
//*     containing the Book.  While obviously dependent on the      *   FILE 449
//*     title of the Book, it eliminates the User having to know    *   FILE 449
//*     which BookShelf contains the Book he or she is looking      *   FILE 449
//*     for.  It supports only Books and BookShelves kept in MVS    *   FILE 449
//*     sequential Data Sets, not anything kept in an HFS.          *   FILE 449
//*                                                                 *   FILE 449
//*     This data Set contains a subset(*) of the Amdahl            *   FILE 449
//*     BookManager Management Utilities.  What is included are     *   FILE 449
//*     those pieces needed to run the BookServer Front-end.        *   FILE 449
//*                                                                 *   FILE 449
//*     List of provided members:                                   *   FILE 449
//*                                                                 *   FILE 449
//*     BKMGRCPS - Assembler Macro                                  *   FILE 449
//*     BKMGRHST - Assembler Macro                                  *   FILE 449
//*     BKMGRINF - Assembler Macro                                  *   FILE 449
//*     BKMGRLOC - Assembler Macro                                  *   FILE 449
//*                                                                 *   FILE 449
//*     BOOKMGRX - BookServer Front-end CGI (WebServer) REXX        *   FILE 449
//*                EXEC                                             *   FILE 449
//*                                                                 *   FILE 449
//*     BKMGRLPA - USERMOD to create LPA resident BookSERVER        *   FILE 449
//*                Load Module                                      *   FILE 449
//*                                                                 *   FILE 449
//*     BOOKCSA  - Started Task JCL to run CCCBKACE (Search Data    *   FILE 449
//*                CSA Load)                                        *   FILE 449
//*     BOOKSACE - JCL to run CCCBKACE (Search Data CSA Load)       *   FILE 449
//*     BOOKSEXT - JCL to build search data from BookShelf          *   FILE 449
//*                List(s) (QLSHELF)                                *   FILE 449
//*     REXXCOMP - JCL to compile the REXX Exec and copy it to      *   FILE 449
//*                an HFS                                           *   FILE 449
//*                                                                 *   FILE 449
//*     CCCBKACE - Assembler Source - Load Search Data into CSA     *   FILE 449
//*     CCCBKCPS - Assembler Source - Cell Pool Subroutine          *   FILE 449
//*     CCCBKDAT - Assembler Source - Data Variable Table           *   FILE 449
//*     CCCBKDEF - Assembler Source - Data Table Lookup             *   FILE 449
//*                Subroutine                                       *   FILE 449
//*     CCCBKDSN - Assembler Source - Data Set Name Generator       *   FILE 449
//*                Subroutine                                       *   FILE 449
//*     CCCBKEXT - Assembler Source - Build Book/BookShelf          *   FILE 449
//*                Extract Data Set                                 *   FILE 449
//*     CCCBKLOC - Assembler Source - Determine location of all     *   FILE 449
//*                Bkmgr Data Sets                                  *   FILE 449
//*     CCCBKPUB - Assembler Source - Format Pub Number             *   FILE 449
//*                Subroutine                                       *   FILE 449
//*     CCCBKSRV - Assembler Source - Search Program called by      *   FILE 449
//*                REXX EXEC                                        *   FILE 449
//*     CCCLOCAT - Assembler Source - LOCATE TSO Command - bonus    *   FILE 449
//*                                                                 *   FILE 449
//*     I assume that you're capable of assembling programs, so     *   FILE 449
//*     I'm not including sample assembly JCL.  Each program is     *   FILE 449
//*     linked by itself.  MACLIB and MODGEN are needed along       *   FILE 449
//*     with the Macros supplied above.                             *   FILE 449
//*                                                                 *   FILE 449
//*     CCCBKCPS, CCCBKDAT, CCCBKDEF, CCCBKDSN, CCCBKPUB, and       *   FILE 449
//*     CCCBKSRV are re-entrant and RMODE ANY. (So is CCCLOCAT,     *   FILE 449
//*     but it's included as a bonus and is not really needed.)     *   FILE 449
//*     CCCBKACE, CCCBKEXT, and CCCBKLOC are "main" programs        *   FILE 449
//*     that are NOT re-rentrant and are RMODE 24 (AMODE 31).       *   FILE 449
//*                                                                 *   FILE 449
//*     Assemble and Link all the programs into a "BookManager      *   FILE 449
//*     Utility" Load Library.  CCCBKEXT is unauthorized and can    *   FILE 449
//*     run from it.  CCCBKACE is AUTHORIZED, so it (and            *   FILE 449
//*     CCCBKCPS which it loads as a subroutine) need to be         *   FILE 449
//*     placed in an authorized library (that end-users should      *   FILE 449
//*     not have access to).  CCCBKSRV should be placed in the      *   FILE 449
//*     LinkList or LPAList, as it is used by the CGI REXX Exec.    *   FILE 449
//*                                                                 *   FILE 449
//*     BOOKMGRX is a REXX Exec that will require installation      *   FILE 449
//*     specific customization (unless you like to see some         *   FILE 449
//*     missing GIFs and bad links).  It (or a complied version     *   FILE 449
//*     of it) needs to end up in a HFS that will be mapped in      *   FILE 449
//*     directives in the WebServer HTTPD.CONF file.                *   FILE 449
//*                                                                 *   FILE 449
//*     Before going any farther....                                *   FILE 449
//*                                                                 *   FILE 449
//*     This BookServer Front-end builds an ECSA Resident Catalog   *   FILE 449
//*     which is anchored using the time-honored technique of       *   FILE 449
//*     using a SubSystem Control Table (SSCT).  The default name   *   FILE 449
//*     of this SubSystem is "BKSV".  This value is EQUated in      *   FILE 449
//*     the BKMGRCSA Macro (Label BKASSNAM).  If you want a         *   FILE 449
//*     different SubSystem Name, change this equate and            *   FILE 449
//*     reassemble CCCBKACE and CCCBKSRV.                           *   FILE 449
//*                                                                 *   FILE 449
//*     There is no attempt made to create the "BKSV" SubSystem     *   FILE 449
//*     Control Table dynamically if it doesn't exist.  You will    *   FILE 449
//*     need to update the IEFSSNxx PARMLIB Member and then         *   FILE 449
//*     either re-IPL or use the SETSSI Command to create it.       *   FILE 449
//*                                                                 *   FILE 449
//*     If you don't like this anchor technique and want to         *   FILE 449
//*     change it, go ahead.                                        *   FILE 449
//*                                                                 *   FILE 449
//*     Building the Book Catalog Data Set                          *   FILE 449
//*                                                                 *   FILE 449
//*     The CCCBKEXT program uses the MVS BookManager "Master"      *   FILE 449
//*     BookShelf List Data Set (specified by the QLSHELF           *   FILE 449
//*     setting in EOXVOPTS REXX Exec) to construct the Book and    *   FILE 449
//*     BookShelf Catalog.  The BookShelf List Data Set Name is     *   FILE 449
//*     specified as a parameter in the JCL used to execute         *   FILE 449
//*     CCCBKEXT.  The output Data Set is VB,259.  Sample JCL is    *   FILE 449
//*     provided in the BOOKSEXT member.  Note that the output      *   FILE 449
//*     needs to be sorted in order to be properly searchable.      *   FILE 449
//*                                                                 *   FILE 449
//*     The sample job is two steps.  The extract is to a           *   FILE 449
//*     temporary Data Set.  The sort of this temporary Data Set    *   FILE 449
//*     is output to a permanent extract Data Set which will be     *   FILE 449
//*     used to create the in storage copy.                         *   FILE 449
//*                                                                 *   FILE 449
//*     Building the In Storage Catalog                             *   FILE 449
//*                                                                 *   FILE 449
//*     The CCCBKACE program use the Book Catalog Data Set to       *   FILE 449
//*     create a Common Storage copy of the Book Catalog (in Key    *   FILE 449
//*     1 Storage) and anchor it in the chosen SSCT.  This          *   FILE 449
//*     eliminates the I/O associated with reading the Catalog      *   FILE 449
//*     Data Set (which in our case is 5 cylinders) for each and    *   FILE 449
//*     every search.                                               *   FILE 449
//*                                                                 *   FILE 449
//*     This program, which is authorized since it needs to         *   FILE 449
//*     obtain CSA, can be run as either a Batch Job or Started     *   FILE 449
//*     Task.  A sample of each is provided.  We runs it as a       *   FILE 449
//*     Started Task specified in our COMMND00 PARMLIB member,      *   FILE 449
//*     so it runs at every IPL on every System.  In addition,      *   FILE 449
//*     it can be run at any time to refresh the in storage Book    *   FILE 449
//*     Catalog whenever updates have been made to the              *   FILE 449
//*     BookManager BookShelf List and the Catalog Data Set         *   FILE 449
//*     rebuilt.  If a previous in storage Book Catalog exists,     *   FILE 449
//*     the old one is freed and the new one built, so there        *   FILE 449
//*     should be no lost CSA.                                      *   FILE 449
//*                                                                 *   FILE 449
//*     BookServer CGI REXX Exec                                    *   FILE 449
//*                                                                 *   FILE 449
//*     The BOOKMGRX REXX Exec and the CCCBKSRV program are the     *   FILE 449
//*     heart of the BookServer Front-end. The REXX Exec (raw or    *   FILE 449
//*     compiled) must be placed into an installation HFS           *   FILE 449
//*     directory that is mapped by an "Exec" directive in the      *   FILE 449
//*     BookServer's HTTPD.CONF file (more on that later).  The     *   FILE 449
//*     sample REXX Compile job shows how to place the compiled     *   FILE 449
//*     REXX Exec (CEXEC) into the chosen HFS.  Whatever name is    *   FILE 449
//*     chosen for the file in the HFS (compiled or not) will be    *   FILE 449
//*     part of the URL to invoke it (and like everything in        *   FILE 449
//*     UNIX is CaSe SeNsItIvE).                                    *   FILE 449
//*                                                                 *   FILE 449
//*     This REXX Exec will need customization for your             *   FILE 449
//*     installation, as it has a whole lot of Amdahl specific      *   FILE 449
//*     GIFs and links.  They are "fairly" isolated, but it's       *   FILE 449
//*     your responsibility to find and fix 'em.  Also, the         *   FILE 449
//*     BookServer URLs are different based on the level of the     *   FILE 449
//*     BookServer you are running and whether or not you have      *   FILE 449
//*     moved the BookServer CGI Load Module (bookmgr.exe) into     *   FILE 449
//*     LPA (as described in my SHARE presentation and included     *   FILE 449
//*     as a Local Mod).  This, too, will have to be changed.       *   FILE 449
//*                                                                 *   FILE 449
//*     The CCCBKSRV program is invoked by the REXX Exec to         *   FILE 449
//*     perform the actual search of the in storage Book Catalog    *   FILE 449
//*     and return the results in a pool of REXX stem variables.    *   FILE 449
//*     Because this program is invoked using the "address          *   FILE 449
//*     LINKMVS" REXX statement, it needs to be available to        *   FILE 449
//*     whatever Address Space the REXX Exec runs in.  The          *   FILE 449
//*     easiest way to accomplish this is to place it in a Link     *   FILE 449
//*     List Data Set or (since it's re-entrant and RMODE ANY)      *   FILE 449
//*     an LPA List Data Set.  This program is unauthorized and     *   FILE 449
//*     needs no special attributes.                                *   FILE 449
//*                                                                 *   FILE 449
//*     HTTPD.CONF Updates                                          *   FILE 449
//*                                                                 *   FILE 449
//*     So, you've assembled the programs, stashed the REXX         *   FILE 449
//*     Exec, and created the in storage Book Catalog.  Now you     *   FILE 449
//*     need to get the BookServer WebServer to invoke the REXX     *   FILE 449
//*     Exec CGI.  To do this, you need to add directives to the    *   FILE 449
//*     HTTPD.CONF (or whatever you've called it) file that is      *   FILE 449
//*     used by the BookServer's WebServer.                         *   FILE 449
//*                                                                 *   FILE 449
//*     You've already had to add "Pass" and "Exec" directives      *   FILE 449
//*     to this file for the BookServer itself, so you (or at       *   FILE 449
//*     least someone in your installation) are somewhat            *   FILE 449
//*     familiar with this process.  For purposes of the samples    *   FILE 449
//*     provided below, let's assume the following:                 *   FILE 449
//*                                                                 *   FILE 449
//*          The main BookServer Front-end Directory is:            *   FILE 449
//*               '/BookServer'                                     *   FILE 449
//*          The CGI BookServer Front-end Directory is:             *   FILE 449
//*               '/BookServer/cgi'                                 *   FILE 449
//*          BookManager Data Sets all start with 'CCCPUBS.'        *   FILE 449
//*               (needed for PDFs)                                 *   FILE 449
//*          The URL "code" for the Front-end CGI is:               *   FILE 449
//*               '/bookmanager-cgi'                                *   FILE 449
//*          The URL "code" for the Front-end files is:             *   FILE 449
//*               '/bookmanager'                                    *   FILE 449
//*          The REXX Exec HFS file name is:                        *   FILE 449
//*               'bookmanager'                                     *   FILE 449
//*                                                                 *   FILE 449
//*     (Again, note the UNIX is very case sensitive.)              *   FILE 449
//*                                                                 *   FILE 449
//*     So stick the following two lines in the HTTPD.CONF after    *   FILE 449
//*     the lines that were inserted for the IBM BookServer:        *   FILE 449
//*                                                                 *   FILE 449
//*     Exec       /bookmanager-cgi/*   /BookServer/cgi/*           *   FILE 449
//*     Pass       /bookmanager/*   /BookServer/*                   *   FILE 449
//*                                                                 *   FILE 449
//*     So given all of the above, a URL of:                        *   FILE 449
//*                                                                 *   FILE 449
//* http://your.mvs.domain.name:portnumber/  (continued next line)  *   FILE 449
//*    bookmanager-cgi/bookmanager/                                 *   FILE 449
//*                                                                 *   FILE 449
//*     will bring up the BookServer Front-end, from which          *   FILE 449
//*     everything else is self-explanatory (yeah, right!).  The    *   FILE 449
//*     trailing slash in the URL is required for some browsers     *   FILE 449
//*     and not for others, but it doesn't hurt to always code      *   FILE 449
//*     it.                                                         *   FILE 449
//*                                                                 *   FILE 449
//*     Assuming that the User has the Adobe Acrobat Plug-in in     *   FILE 449
//*     his or her browser, and that you have uploaded BOOK PDF     *   FILE 449
//*     files to MVS (as binary files into any suitable VB          *   FILE 449
//*     format Data Set) using the same Data Set Name as the        *   FILE 449
//*     BookManager Book with 'PDF' instead of 'BOOK' as the        *   FILE 449
//*     lowest level qualifier, the BookServer Front-end is         *   FILE 449
//*     capable of allowing the User to view the PDF file for a     *   FILE 449
//*     Book which has been located via the search.                 *   FILE 449
//*                                                                 *   FILE 449
//*     To be able to view these PDF files, you need to have a      *   FILE 449
//*     couple of "Service" Directives in the HTTPD.CONF File.      *   FILE 449
//*     Find where IBM stuck the sample commented out "mvsds.so"    *   FILE 449
//*     Service Statement and add the following two statements:     *   FILE 449
//*                                                                 *   FILE 449
//*  Service /bookmanager-pdf/'cccpubs.*  (continued on next line)  *   FILE 449
//*  /usr/lpp/internet/bin/mvsds.so:mvsdsGet/'cccpubs.*             *   FILE 449
//*  Service /bookmanager-pdf/'CCCPUBS.*  (continued on next line)  *   FILE 449
//*  /usr/lpp/internet/bin/mvsds.so:mvsdsGet/'CCCPUBS.*             *   FILE 449
//*                                                                 *   FILE 449
//***FILE 450 is a "string finding" utility written in REXX         *   FILE 450
//*           from Manish Verma of India.                           *   FILE 450
//*                                                                 *   FILE 450
//*           Manish Verma                                          *   FILE 450
//*           56, New Baridih                                       *   FILE 450
//*           Jamshedpur, Bihar                                     *   FILE 450
//*           India                                                 *   FILE 450
//*           Pin - 831017                                          *   FILE 450
//*                                                                 *   FILE 450
//*           My e-mail address is                                  *   FILE 450
//*           manver@lot.tatasteel.com                              *   FILE 450
//*                                                                 *   FILE 450
//*       You can find all occurrences of a character string in     *   FILE 450
//*       either:   A single VOLUME, or                             *   FILE 450
//*                 A VOLUME and a Dataset Pattern, or              *   FILE 450
//*                 A Dataset Pattern only.                         *   FILE 450
//*                                                                 *   FILE 450
//***FILE 451 contains two REXX execs from Gary Scarcella.          *   FILE 451
//*                                                                 *   FILE 451
//*           SUBCAN   - Changes userid and notify targets in       *   FILE 451
//*                      someone else's JCL to yours, submits       *   FILE 451
//*                      the job (in your name), and cancels        *   FILE 451
//*                      the edit.  Edit Macro.                     *   FILE 451
//*                                                                 *   FILE 451
//*           CUTCLEAR - Clears out the CUT/PASTE clipboard, and    *   FILE 451
//*                      optionally creates a new, clean one.       *   FILE 451
//*                      Edit Macro.                                *   FILE 451
//*                                                                 *   FILE 451
//*           email:     SCARCELLAGV@YAHOO.COM                      *   FILE 451
//*                                                                 *   FILE 451
//***FILE 452 is from Dan Dalby and contains a collection of his    *   FILE 452
//*           programs and utilities.  Dan retains ownership of     *   FILE 452
//*           the programs, but has given permission for them to    *   FILE 452
//*           be distributed on the CBT Tape.  Please see the       *   FILE 452
//*           general disclaimer information on File 001 of the     *   FILE 452
//*           CBT Tape, and what it says regarding "owned files".   *   FILE 452
//*                                                                 *   FILE 452
//*    This software may not be used, fully or in part, in a        *   FILE 452
//*    commercial product or sold in any way.                       *   FILE 452
//*                                                                 *   FILE 452
//*    Description of the programs included here:                   *   FILE 452
//*                                                                 *   FILE 452
//*       ----------------------------------------------------      *   FILE 452
//*                                                                 *   FILE 452
//*     Add to existing allocations (ADDTO)                         *   FILE 452
//*     Updated July 1, 1999                                        *   FILE 452
//*                                                                 *   FILE 452
//*     Many users want their own personal libraries to be          *   FILE 452
//*     allocated in front of the libraries that are allocated      *   FILE 452
//*     within the LOGON procedure. Normally, this means that       *   FILE 452
//*     the user has to re-allocate the DD, specifying all of       *   FILE 452
//*     the libraries with their own as the first library. If       *   FILE 452
//*     the libraries that are in the LOGON procedure get           *   FILE 452
//*     renamed or deleted due to maintenance, the user's           *   FILE 452
//*     allocation fails, leaving them without that specific DD     *   FILE 452
//*     allocated at ALL.  With this command, you simply let        *   FILE 452
//*     the LOGON procedure do it's thing, and in your initial      *   FILE 452
//*     logon CLIST/REXX specify the libraries you want in          *   FILE 452
//*     front. The re-allocation occurs, without the user           *   FILE 452
//*     needing to know all the LOGON procedure's library           *   FILE 452
//*     names.                                                      *   FILE 452
//*                                                                 *   FILE 452
//*     Note: ADDTO can NOT extend DDs that are OPEN. In other      *   FILE 452
//*     words, ISPxLIB's can't be ADDTO'd once you are in ISPF.     *   FILE 452
//*                                                                 *   FILE 452
//*       ----------------------------------------------------      *   FILE 452
//*                                                                 *   FILE 452
//*     Fast Catalog List Command (CATL)                            *   FILE 452
//*     Updated July 2, 1999                                        *   FILE 452
//*                                                                 *   FILE 452
//*     The TSO LISTCAT command seems to gather every smidgen       *   FILE 452
//*     of information necessary about a dataset, even if it is     *   FILE 452
//*     not going to display it on your screen. This command        *   FILE 452
//*     only gets the required information, making it quite a       *   FILE 452
//*     bit faster. There are additional keywords to change how     *   FILE 452
//*     CATL displays the output. Try the "SIDEWAYS" keyword on     *   FILE 452
//*     a GDG base.                                                 *   FILE 452
//*                                                                 *   FILE 452
//*       ----------------------------------------------------      *   FILE 452
//*                                                                 *   FILE 452
//*     List Dataset Information (LDS)                              *   FILE 452
//*                                                                 *   FILE 452
//*     This command lets you list information about your           *   FILE 452
//*     libraries that you really can't get easily any other        *   FILE 452
//*     way.  Actually, until TSO/E, some of this information       *   FILE 452
//*     wasn't available at all.                                    *   FILE 452
//*                                                                 *   FILE 452
//*       ----------------------------------------------------      *   FILE 452
//*                                                                 *   FILE 452
//*     DASD Pack Map (PACKMAP)                                     *   FILE 452
//*     Updated July 2, 1999                                        *   FILE 452
//*                                                                 *   FILE 452
//*     Occasionally, you need to know the physical layout of a     *   FILE 452
//*     volume. This utility generates a MAP for you. The           *   FILE 452
//*     output report gives you the relative track, extent          *   FILE 452
//*     length, extent number, CCHH and DCB information for         *   FILE 452
//*     every dataset on the volume. The freespace extents and      *   FILE 452
//*     VTOC information are also displayed in this report.         *   FILE 452
//*                                                                 *   FILE 452
//*       ----------------------------------------------------      *   FILE 452
//*                                                                 *   FILE 452
//*     PDS Rescue (PRU)                                            *   FILE 452
//*     Updated November 24, 1999                                   *   FILE 452
//*                                                                 *   FILE 452
//*     Have you ever hit SAVE in ISPF when you meant to enter      *   FILE 452
//*     CANCEL? I have. This utility allows you to get the          *   FILE 452
//*     original member back. The original library is left          *   FILE 452
//*     untouched, and a new library is created with all the        *   FILE 452
//*     OLD members.  Unfortunately, this does not work on PDSE     *   FILE 452
//*     libraries, or after a PDS has been compressed.              *   FILE 452
//*                                                                 *   FILE 452
//*     A REXX exec has been provided by one of the users of        *   FILE 452
//*     this utility. This makes it easier than ever to recover     *   FILE 452
//*     member(s).                                                  *   FILE 452
//*                                                                 *   FILE 452
//*       ----------------------------------------------------      *   FILE 452
//*                                                                 *   FILE 452
//*     Return/Abend Code Generator (RETCODE)                       *   FILE 452
//*     Updated July 14, 1999                                       *   FILE 452
//*                                                                 *   FILE 452
//*     Need to test the "COND=" or "IF" logic of your batch        *   FILE 452
//*     jobs?  This tool lets you generate a step with any          *   FILE 452
//*     return code or User/System ABEND code.                      *   FILE 452
//*                                                                 *   FILE 452
//*       ----------------------------------------------------      *   FILE 452
//*                                                                 *   FILE 452
//*     Dynamic Steplib (STEPLIB)                                   *   FILE 452
//*     Updated September 2, 1999                                   *   FILE 452
//*                                                                 *   FILE 452
//*     With the deficiencies of ISPLLIB, and the other             *   FILE 452
//*     "tasklib" capabilities provided by IBM, sometimes you       *   FILE 452
//*     really need a STEPLIB. I've found it easier to simply       *   FILE 452
//*     forget the other facilities, and use STEPLIB                *   FILE 452
//*     exclusively. This tool allows you to create, alter or       *   FILE 452
//*     remove your STEPLIB at any time during the life of your     *   FILE 452
//*     TSO session.                                                *   FILE 452
//*                                                                 *   FILE 452
//*       ----------------------------------------------------      *   FILE 452
//*                                                                 *   FILE 452
//*     User/System Symbols (USERINFO)                              *   FILE 452
//*     Updated April 2, 2000                                       *   FILE 452
//*                                                                 *   FILE 452
//*     Ever need to know your TSO terminal ID, the JES             *   FILE 452
//*     subsystem you're running under or a raft of other system    *   FILE 452
//*     or user related items within a CLIST or REXX? Of course,    *   FILE 452
//*     in a REXX EXEC, you can bounce through control blocks,      *   FILE 452
//*     but wouldn't it be easier to have it available in a         *   FILE 452
//*     defined symbol. Actually, this tool was created way         *   FILE 452
//*     back, before REXX was available, and CLIST was the way      *   FILE 452
//*     to go. With USERINFO, the system and user information is    *   FILE 452
//*     readily available in a &SYSxxxx variable. Simply invoke     *   FILE 452
//*     the USERINFO program at the beginning of the CLIST, and     *   FILE 452
//*     all these symbols magically appear. Recently, a user        *   FILE 452
//*     needed to know what day of the week it was, so &SYSWDAY     *   FILE 452
//*     was added.  The system symbols defined in IEASYMxx as       *   FILE 452
//*     well as the current RACF USER and GROUP names are now       *   FILE 452
//*     available.                                                  *   FILE 452
//*                                                                 *   FILE 452
//*     If you'd like additional variables, and know the            *   FILE 452
//*     control block location, simply Email me and I'll add        *   FILE 452
//*     it.                                                         *   FILE 452
//*                                                                 *   FILE 452
//*       ----------------------------------------------------      *   FILE 452
//*                                                                 *   FILE 452
//*     Who's Got my Dataset (WHOSGOT)                              *   FILE 452
//*                                                                 *   FILE 452
//*     When trying to edit or allocate a library, occasionally     *   FILE 452
//*     you will get a "dataset in use" message.  This tool         *   FILE 452
//*     lets you ask the question... "WHO'S GOT MY FILE"?           *   FILE 452
//*                                                                 *   FILE 452
//***FILE 453 IS FROM PAUL A MOINIL OF J.R.C. COMPUTING CENTRE      *   FILE 453
//*           IN ISPRA, ITALY.  THIS FILE IS THE INDEX TO HIS       *   FILE 453
//*           LARGE COLLECTION OF SOFTWARE WHICH IS ON FILES        *   FILE 453
//*           454 THRU 459.  AS SHIPPED TO THIS TAPE, HIS FILES     *   FILE 453
//*           WERE CALLED SOURCE.FILE0 THROUGH SOURCE.FILE5.        *   FILE 453
//*           THOSE FILES ARE MAPPED TO THE CBT TAPE FILES AS       *   FILE 453
//*           FOLLOWS:                                              *   FILE 453
//*                                                                 *   FILE 453
//*               SOURCE.FILE0  MAPS TO CBT TAPE FILE 454           *   FILE 453
//*               SOURCE.FILE1  MAPS TO CBT TAPE FILE 455           *   FILE 453
//*               SOURCE.FILE2  MAPS TO CBT TAPE FILE 456           *   FILE 453
//*               SOURCE.FILE3  MAPS TO CBT TAPE FILE 457           *   FILE 453
//*               SOURCE.FILE4  MAPS TO CBT TAPE FILE 458           *   FILE 453
//*               SOURCE.FILE5  MAPS TO CBT TAPE FILE 459           *   FILE 453
//*                                                                 *   FILE 453
//*           SOFTWARE WAS TESTED ON AN MVS/XA 2.2.3 SYSTEM,        *   FILE 453
//*           BUT IT IS LIKELY THAT MUCH OF IT WORKS ON MVS/ESA.    *   FILE 453
//*           SEE PAUL'S EXPLANATION IN THE $$$DOC MEMBER ON        *   FILE 453
//*           THIS FILE.                                            *   FILE 453
//*                                                                 *   FILE 453
//*           PAUL MOINIL HAS REWORKED MANY OF THE PROGRAMS         *   FILE 453
//*           TAKEN FROM OTHER PLACES.  SOMETIMES THE EVIDENCE      *   FILE 453
//*           OF HIS WORK WAS OBVIOUSLY CONSIDERABLE.  I HAVE       *   FILE 453
//*           TRIED THIS TIME, TO INCLUDE HIS ENTIRE SUBMISSION.    *   FILE 453
//*                             (SAM GOLOB - 12/29/94)              *   FILE 453
//*                                                                 *   FILE 453
//*           PAUL MOINIL HAS RETIRED FROM J.R.C. ON MAY 31, 1999   *   FILE 453
//*           HIS ADDRESS AND PHONE ARE NO LONGER VALID.            *   FILE 453
//*                             (ANTONIO COLOMBO - 06/01/1999)      *   FILE 453
//*                                                                 *   FILE 453
//*             THERE IS ANOTHER CONTACT PERSON REGARDING THE       *   FILE 453
//*             MATERIALS IN THIS PACKAGE.  HE IS:                  *   FILE 453
//*                                                                 *   FILE 453
//*                             ANTONIO COLOMBO                     *   FILE 453
//*                             AMDAHL ITALIA S.P.A.                *   FILE 453
//*                             VIALE BRENTA, 16/18                 *   FILE 453
//*                             I-20139 MILANO                      *   FILE 453
//*                             ITALY                               *   FILE 453
//*                             +39(0332)786022                     *   FILE 453
//*                       OR    +39(02)574741   AMDAHL OFFICE       *   FILE 453
//*                       EMAIL ANTONIO.COLOMBO@JRC.ORG             *   FILE 453
//*                       EMAIL AZC10@AMDAHL.COM                    *   FILE 453
//*                                                                 *   FILE 453
//*           MANY PRODUCTS HERE HAVE BEEN EXTRACTED FROM           *   FILE 453
//*           PREVIOUS CBT TAPES (JUN84, FEB85, FEB86, FEB87,       *   FILE 453
//*           FEB88, FEB89, MAY90, MAR91, MAR92 AND FEB93),         *   FILE 453
//*           ADAPTED AND/OR ENHANCED TO OUR INSTALLATION NEEDS     *   FILE 453
//*           OR FACILITIES. THE MATERIAL PROVIDED IN THIS FILE     *   FILE 453
//*           HAS RUN ON O.S. SYSTEM MVS 3.8, SP 2.2.3 (MVS/XA).    *   FILE 453
//*                                                                 *   FILE 453
//***FILE 454 IS FROM PAUL A MOINIL OF J.R.C. COMPUTING CENTRE      *   FILE 454
//*           IN ISPRA, ITALY.  THIS FILE IS THE BASIC MATERIAL TO  *   FILE 454
//*           HIS LARGE COLLECTION OF SOFTWARE WHICH IS ON FILES    *   FILE 454
//*           454 THRU 459.                                         *   FILE 454
//*                                                                 *   FILE 454
//*             THERE IS ANOTHER CONTACT PERSON REGARDING THE       *   FILE 454
//*             MATERIALS IN THIS PACKAGE.  HE IS:                  *   FILE 454
//*                                                                 *   FILE 454
//*                             ANTONIO COLOMBO                     *   FILE 454
//*                             AMDAHL ITALIA S.P.A.                *   FILE 454
//*                             VIALE BRENTA, 16/18                 *   FILE 454
//*                             I-20139 MILANO                      *   FILE 454
//*                             ITALY                               *   FILE 454
//*                             +39(0332)786022                     *   FILE 454
//*                       OR    +39(02)574741   AMDAHL OFFICE       *   FILE 454
//*                       EMAIL ANTONIO.COLOMBO@JRC.ORG             *   FILE 454
//*                       EMAIL AZC10@AMDAHL.COM                    *   FILE 454
//*                                                                 *   FILE 454
//* FILE NAME : ->.SOURCE.FILE0 (BASIC MATERIAL).                   *   FILE 454
//* FOLLOWS A SUMMARY OF CONTENTS :                                 *   FILE 454
//*    $$$DOC     PRELIMINARY NOTES.                                *   FILE 454
//*    $AIRD      ACCOUNTING INFORMATION RECORD DESCRIPTION (MACRO).*   FILE 454
//*    $CEPA      SMF - COMMON EXIT PARAMETER AREA (MACRO).         *   FILE 454
//*    $DEFREG    REGISTERS EQUATES ASSEMBLER MACRO.                *   FILE 454
//*    $FS        GENERATE FULL SCREEN ORDERS AND FIELDS            *   FILE 454
//*               (IBM 3270 DISPLAY) ASSEMBLER MACROS.              *   FILE 454
//*    $HEDIT     HEADER EDIT (BLOCKS LETTERS IN ASSEMBLY LISTINGS) *   FILE 454
//*               ASSEMBLER MACRO.                                  *   FILE 454
//*    $IDENT     MODULE IDENTIFICATION (MACRO).                    *   FILE 454
//*    $SIDTB     SMF - SYSTEM ID'S FACTOR TABLE (MACRO).           *   FILE 454
//*    $SORT      GENERATE IN-LINE SORT ASSEMBLER MACRO.            *   FILE 454
//*    $TEW$..    TSO EASY-WAY OF CODING (MACROS FACILITY).         *   FILE 454
//*    $TSWXA     TEST AND SWITCH ADDRESSING MODE MACRO.            *   FILE 454
//*    $UJVT      SMF - IEFUJV TABLES VECTOR (MACRO).               *   FILE 454
//*    $XENT      ENTER PROGRAM CONTROL ASSEMBLER MACRO.            *   FILE 454
//*    $XRET      RETURN PROGRAM CONTROL ASSEMBLER MACRO.           *   FILE 454
//*    ALLOCGDG   GDG DATA-SET DYNAMIC ALLOCATION TSO COMMAND.      *   FILE 454
//*    AUTHC      COMMAND AUTHORIZATION INTERFACE (TSO).            *   FILE 454
//*    AUTHCTL    EURATOM AUTHORITY CONTROL MODULE.                 *   FILE 454
//*    AUTHSVC    AUTHORIZATION SVC FOR MVS (IGC00###).             *   FILE 454
//*    BIG        CREATE BLOCK CHARACTERS ISPF/PDF EDIT COMMAND.    *   FILE 454
//*    BIGS       CREATE SLANTED BLOCK CHAR. ISPF/PDF EDIT COMMAND. *   FILE 454
//*    BLOCK      CREATE MULTI BLOCK CHAR. ISPF/PDF EDIT COMMAND.   *   FILE 454
//*    CATS       READ SEQUENTIALLY AN O.S. CATALOG ROUTINE.        *   FILE 454
//*    CENTER     CENTER ISPF/PDF EDIT COMMAND.                     *   FILE 454
//*    CNVCLIST   CONVERT CLISTS VB-255 / FB-80.                    *   FILE 454
//*    COMPRESS   COMPRESS ISPF/PDF EDIT COMMAND.                   *   FILE 454
//*    CONCAT     CONCAT TSO COMMAND.                               *   FILE 454
//*    CONT       SET CONTINUATION ISPF/PDF EDIT COMMAND.           *   FILE 454
//*    CONTROL    CONTROL ISPF/PDF EDIT COMMAND.                    *   FILE 454
//*    CP         TSO : CP COMMANDS (VM).                           *   FILE 454
//*    CRY        ENCRYPT/DECRYPT ISPF/PDF EDIT COMMAND.            *   FILE 454
//*    CUT        CUT DATA LINES ISPF/PDF EDIT COMMAND. (UPD 12/97) *   FILE 454
//*    DASCAN     DIRECT-ACCESS UCB'S LOOKUP ROUTINE.               *   FILE 454
//*    DAUNTY     DIRECT-ACCESS UNIT TYPE ROUTINE.                  *   FILE 454
//*    DAVALL     DIRECT-ACCESS VOLUME ALLOCATION ROUTINE.          *   FILE 454
//*    DECONCAT   DECONCAT TSO COMMAND.                             *   FILE 454
//*    DECRYPT    DECRYPT ISPF/PDF EDIT COMMAND.                    *   FILE 454
//*    DTSO       DISPLAY SOME CONTROL BLOCKS TSO COMMAND.          *   FILE 454
//*    DTUR       DSECT'S TABLES USE ROUTINE (DTUSE).               *   FILE 454
//*    DVTYUN     DEVICE TYPE TO UNIT NAME ROUTINE.                 *   FILE 454
//*    DYNALL     DYNAMIC DATA-SET ALLOCATION ROUTINE.              *   FILE 454
//*    DYNCC      DYNAMIC CONCATENATION-DECONCATENATION ROUTINE.    *   FILE 454
//*    EDITH      EDIT HEADER ROUTINE.                              *   FILE 454
//*    EDITMACS   LIST OF ADDITIONAL LOCAL ISPF EDIT MACROS.        *   FILE 454
//*    EDMODE     EDMODE ISPF/PDF EDIT COMMAND.                     *   FILE 454
//*    EDVIO      ISPF EDIT IN A VIO DATA-SET.                      *   FILE 454
//*    ENCRYPT    ENCRYPT ISPF/PDF EDIT COMMAND.                    *   FILE 454
//*    EOL        SET CURSOR AT END LINE ISPF/PDF EDIT COMMAND.     *   FILE 454
//*    ERASE      TERMINAL ERASE SCREEN ROUTINE (TSO COMMAND).      *   FILE 454
//*    EURACFT    RACF DATA-SET ACCESS TEST TSO COMMAND.            *   FILE 454
//*    EUSID      SYSTEM VARIABLES CLIST TSO COMMAND.               *   FILE 454
//*    EUSMF      SMF VARIABLES CLIST TSO COMMAND.                  *   FILE 454
//*    EUSUB      EURATOM SUBMIT PROGRAM.                           *   FILE 454
//*    FC         FC ISPF/PDF EDIT COMMAND.                         *   FILE 454
//*    FILEINFO   FILEINFO TSO COMMAND.                             *   FILE 454
//*    FILSPACE   FILSPACE ROUTINE.                                 *   FILE 454
//*    FINDMEM    FINDMEM ROUTINE.                                  *   FILE 454
//*    FIXJCL     FIXJCL ISPF/PDF EDIT COMMAND.                     *   FILE 454
//*    FLOWJCL    FLOWJCL ISPF/PDF EDIT COMMAND.                    *   FILE 454
//*    FSPACE     DISPLAY FREE EXTENTS ON VOLUME(S).                *   FILE 454
//*    FSRTN      FULL-SCREEN SERVICE ROUTINES.                     *   FILE 454
//*    GACTN      OBTAIN ACCOUNT NUMBER / PROGRAMMER'S NUMBER RTN.  *   FILE 454
//*    GDGALLR    GDGALLR ROUTINE.                                  *   FILE 454
//*    GDGRESET   GDG UTILITY PROGRAM.                              *   FILE 454
//*    GETPAN     GETPAN ISPF/PDF EDIT COMMAND.                     *   FILE 454
//*    GFDATE     GENERATE DATES ROUTINES.                          *   FILE 454
//*    GPARM      OBTAIN PARM. FIELD ROUTINE.                       *   FILE 454
//*    GGUR       GET GROUP'S USERIDS FROM RACF - ROUTINE.          *   FILE 454
//*    GPARM      OBTAIN PARM. FIELD ROUTINE.                       *   FILE 454
//*    GUAR       GET USERID ACCOUNT FROM SYS1.UADS/TSO - ROUTINE.  *   FILE 454
//*    ICFS       READ SEQUENTIALLY AN ICF CATALOG ROUTINE.         *   FILE 454
//*    INSORT     INCORE SORT SUBROUTINE.                           *   FILE 454
//*    INTRDR     ALLOCATE AN INTERNAL READER TSO COMMAND.          *   FILE 454
//*    ISPCDSN    DATA-SET SELECTION BY CURSOR FROM ISPF DISPLAY.   *   FILE 454
//*    IXTOFMT5   INDEXED VTOC FORMAT-5 INTERFACE ROUTINE.          *   FILE 454
//*    JB         DISPLAY CPU - SRB (I/O) TIME.                     *   FILE 454
//*    JOBCARD    JOBCARD ISPF/PDF EDIT COMMAND.                    *   FILE 454
//*    JOBS       DISPLAY JOBS RUNNING IN THE SYSTEM TSO COMMAND.   *   FILE 454
//*    LISTAX     LISTAX TSO COMMAND.                               *   FILE 454
//*    LISTENQ    LIST ENQ'S FOR A JOB OR USERID TSO COMMAND.       *   FILE 454
//*    LISTNO     LIST MANUAL'S MEMBERS PROGRAM.                    *   FILE 454
//*    LJUST      LEFT JUSTIFY ISPF/PDF EDIT COMMAND.               *   FILE 454
//*    LOCK       TSO COMMAND TO LOCK TERMINAL.                     *   FILE 454
//*    LOGALLOC   LOGALLOC TSO COMMAND.                             *   FILE 454
//*    MOVECOLS   MOVE COLUMNS WITHIN DATA LINES ISPF/PDF EDIT CMD. *   FILE 454
//*    MREAD      READ PO-MEMBERS ROUTINE.                          *   FILE 454
//*    OPCOM      OPERATORS COMMUNICATIONS ROUTINE.                 *   FILE 454
//*    PARA       PARA ISPF/PDF EDIT COMMAND.                       *   FILE 454
//*    PDREAD     READ PARTITIONED DIRECTORY ROUTINE.               *   FILE 454
//*    PDSW       PARTITIONED DATA-SET WHERE FUNCTION TSO COMMAND.  *   FILE 454
//*    PEDIT      PEDIT ISPF/PDF EDIT COMMAND.                      *   FILE 454
//*    PLREAD     READ PARTITIONED LOAD MODULE ROUTINE.             *   FILE 454
//*    PLUG       PLUG DATA INTO LINES ISPF/PDF EDIT COMMAND.       *   FILE 454
//*    PSWR       OBTAIN RACF PASSWORD TSO COMMAND.                 *   FILE 454
//*    RDCHK      READ TAPE DATA-CHECK ROUTINE.                     *   FILE 454
//*    RESUME     RESTORE ISPF/PDF EDIT COMMAND.                    *   FILE 454
//*    RGROUP     CHANGE CURRENT RACF CONNECT GROUP.                *   FILE 454
//*    RJUST      RIGHT JUSTIFY ISPF/PDF EDIT COMMAND.              *   FILE 454
//*    RPROT      RACF PROTECTION TSO COMMAND.                      *   FILE 454
//*    RSVENQ     DISPLAY RESOURCES ENQ'S RESERVE TSO COMMAND.      *   FILE 454
//*    RTIME      GET REMAINING CPU-SRB TIME ROUTINE.               *   FILE 454
//*    R050A90    ENCIPHER-DECIPHER ROUTINE.                        *   FILE 454
//*    SCRSZ      GET CURRENT SCREEN SIZE TSO COMMAND.              *   FILE 454
//*    SKEL       SKEL ISPF/PDF EDIT COMMAND.                       *   FILE 454
//*    SKELCHK    CHECK ")SEL-)ENDSEL" ISPF/PDF EDIT COMMAND.       *   FILE 454
//*    SLINE      SET SEPARATION LINE ISPF/PDF EDIT COMMAND.        *   FILE 454
//*    SRCHRPI    SEARCH A REPLY PENDING IDENTIFICATION ROUTINE.    *   FILE 454
//*    SSCMD      SEND A SYSTEM COMMAND SUBROUTINE.                 *   FILE 454
//*    STCLOK     CLOCK MEASUREMENT ROUTINE.                        *   FILE 454
//*    STRTEST    STCLOK, TIME AND RTIME TEST PROGRAM.              *   FILE 454
//*    SUJVTA     SEARCH IEFUJV - UJVTABLE SUBROUTINE.              *   FILE 454
//*    SUM        SUM A COLUMN OF NUMBERS ISPF/PDF EDIT COMMAND.    *   FILE 454
//*    TRAP       TRAP ISPF/PDF EDIT COMMAND.                       *   FILE 454
//*    TSODSN     DISPLAY DATA-SET ENQ'S TSO COMMAND.               *   FILE 454
//*    TSOENQ     DISPLAY DATA-SET ENQ'S CONFLICTS TSO COMMAND.     *   FILE 454
//*    TXPRINT    PRINT ROUTINE.                                    *   FILE 454
//*    TXPUNCH    PUNCH ROUTINE.                                    *   FILE 454
//*    TXREAD     READ ROUTINE.                                     *   FILE 454
//*    TXSNAP     SNAP DUMP ROUTINE.                                *   FILE 454
//*    UADS       LIST SYS1.UADS TSO COMMAND.                       *   FILE 454
//*    UNIT       DISPLAY INFORMATION ABOUT PHYSICAL DEVICES.       *   FILE 454
//*    UNITS      DISPLAY UNIT NAMES OF SYSTEM DEVICE NAME TABLE.   *   FILE 454
//*    UPDTMACS   UPDATE LIST OF ADDITIONAL LOCAL ISPF EDIT MACROS. *   FILE 454
//*    USERS      DISPLAY USERS TSO COMMAND.                        *   FILE 454
//*    VGPSUB     ISPF VGET-VPUT SUBROUTINE.                        *   FILE 454
//*    VREAD      VARIABLE READ ROUTINE.                            *   FILE 454
//*    VTOCD      VTOC DIRECT READ-WRITE ROUTINE.                   *   FILE 454
//*    VTOCQ      VTOC QUICK SEQUENTIAL READ ROUTINE.               *   FILE 454
//*    VTOCS      VTOC SEQUENTIAL READ ROUTINE.                     *   FILE 454
//*    VTTCAM     TEST TCAM OR VTAM RUNNING ROUTINE.                *   FILE 454
//*    WAITR      DISPLAY ENQ'S CONFLICTS FOR A JOB OR USERID.      *   FILE 454
//*    WPC        WPC TSO COMMAND.                                  *   FILE 454
//*    XTC        EXECUTE TSO COMMANDS AND/OR CLISTS.               *   FILE 454
//*    ZOOM       BROWSE JCL PROCEDURE ISPF/PDF EDIT COMMAND.       *   FILE 454
//*    ----------------                                             *   FILE 454
//*    I S P F  WORLD :                                             *   FILE 454
//*    ----------------                                             *   FILE 454
//*    ALL MEMBERS NAMES STARTING BY PAJ... ARE ISPF MEMBERS WHICH  *   FILE 454
//*    ALLOW YOU AN EASY WAY TO EXECUTE MANY OF THE DISTRIBUTED     *   FILE 454
//*    COMMANDS, AS I.E. :                                          *   FILE 454
//*    PAJPALL    ISPF - DISPLAY DATA-SETS ALLOCATED TO TSO USER.   *   FILE 454
//*    PAJPBLK    ISPF - DISK BLOCK SIZES COMPUTATIONS.             *   FILE 454
//*    PAJPBUMU   ISPF - BROADCAST USER MESSAGES UNLOAD.            *   FILE 454
//*    PAJPPOF    ISPF - VTAM SECONDARY PROGRAM OPERATOR FACILITY.  *   FILE 454
//*    PAJPVQ     ISPF - GRS/ENQ DISPLAY.                           *   FILE 454
//*    THE MEMBERS NAMED CBOOK000, MBKS00, SBOOK0 AND ALL PBOOK...  *   FILE 454
//*    ARE PART OF AN ISPF APPLICATION EXAMPLE GIVING YOU A         *   FILE 454
//*    FACILITY TO MAINTAIN A SET OF IBM MANUALS LISTS.             *   FILE 454
//*                                                                 *   FILE 454
//***FILE 455 IS FROM PAUL A MOINIL OF J.R.C. COMPUTING CENTRE      *   FILE 455
//*           IN ISPRA, ITALY.  THIS FILE IS THE COMPLEMENTARY      *   FILE 455
//*           MATERIAL TO HIS LARGE COLLECTION OF SOFTWARE WHICH    *   FILE 455
//*           IS ON FILES 454 THRU 459.                             *   FILE 455
//*                                                                 *   FILE 455
//*             THERE IS ANOTHER CONTACT PERSON REGARDING THE       *   FILE 455
//*             MATERIALS IN THIS PACKAGE.  HE IS:                  *   FILE 455
//*                                                                 *   FILE 455
//*                             ANTONIO COLOMBO                     *   FILE 455
//*                             AMDAHL ITALIA S.P.A.                *   FILE 455
//*                             VIALE BRENTA, 16/18                 *   FILE 455
//*                             I-20139 MILANO                      *   FILE 455
//*                             ITALY                               *   FILE 455
//*                             +39(0332)786022                     *   FILE 455
//*                       OR    +39(02)574741   AMDAHL OFFICE       *   FILE 455
//*                       EMAIL ANTONIO.COLOMBO@JRC.ORG             *   FILE 455
//*                       EMAIL AZC10@AMDAHL.COM                    *   FILE 455
//*                                                                 *   FILE 455
//*   FILE NAME : ->.SOURCE.FILE1 (COMPLEMENTARY MATERIAL).         *   FILE 455
//*   FOLLOWS A SUMMARY OF CONTENTS :                               *   FILE 455
//*                                                                 *   FILE 455
//*      $$$DOC     PRELIMINARY NOTES.                              *   FILE 455
//*      AGENDA     AGENDA TSO COMMAND.                             *   FILE 455
//*      ARITH      HEX/DECIMAL ARITHMETIC TSO COMMAND.             *   FILE 455
//*      AUTOCI     AUTOMATIC OPERATORS COMMANDS ISSUER.            *   FILE 455
//*      BRODSCAN   ANALYZE BROADCAST TSO DATA-SET.                 *   FILE 455
//*      CMPRSEQ    SEQUENTIAL DATA-SETS COMPARISON.                *   FILE 455
//*      CONAN      OPERATOR CONSOLE ANALYSIS FACILITY.             *   FILE 455
//*      DAHANDBK   DATA AREA HANDBOOK GENERATOR PROGRAM.           *   FILE 455
//*      DHC        HEX/DECIMAL CALCULATOR (TSO).                   *   FILE 455
//*      IEBANTP    ANALYZE/COPY TAPE/3480 UTILITY.                 *   FILE 455
//*      IMSLDS     IMS LOG DATA-SET(S) PROGRAM/COMMAND.            *   FILE 455
//*      IOPACK     INPUT-OUTPUT PACKAGE ROUTINES.                  *   FILE 455
//*      RECOVER    RECOVER DATA-SETS PROGRAM (SERVICE AIDS).       *   FILE 455
//*      SEE        SEE CURRENT ISPF PANEL.                         *   FILE 455
//*      SETCLOCK   TOD CLOCK SYNCHRONIZER.                         *   FILE 455
//*      SHOWMVS    PROGRAM/COMMAND.                                *   FILE 455
//*      STATDS     A DISK DATA-SET STATISTICS PROGRAM.             *   FILE 455
//*      VCOREZAP   VIRTUAL CORE ZAP PROGRAM.                       *   FILE 455
//*      VSM        VIRTUAL STORAGE MONITOR.                        *   FILE 455
//*                                                                 *   FILE 455
//***FILE 456 IS FROM PAUL A MOINIL OF J.R.C. COMPUTING CENTRE      *   FILE 456
//*           IN ISPRA, ITALY.  THIS FILE IS THE ADDITIONAL         *   FILE 456
//*           MATERIAL TO HIS LARGE COLLECTION OF SOFTWARE          *   FILE 456
//*           WHICH IS ON FILES 454 THRU 459.                       *   FILE 456
//*                                                                 *   FILE 456
//*             THERE IS ANOTHER CONTACT PERSON REGARDING THE       *   FILE 456
//*             MATERIALS IN THIS PACKAGE.  HE IS:                  *   FILE 456
//*                                                                 *   FILE 456
//*                             ANTONIO COLOMBO                     *   FILE 456
//*                             AMDAHL ITALIA S.P.A.                *   FILE 456
//*                             VIALE BRENTA, 16/18                 *   FILE 456
//*                             I-20139 MILANO                      *   FILE 456
//*                             ITALY                               *   FILE 456
//*                             +39(0332)786022                     *   FILE 456
//*                       OR    +39(02)574741   AMDAHL OFFICE       *   FILE 456
//*                       EMAIL ANTONIO.COLOMBO@JRC.ORG             *   FILE 456
//*                       EMAIL AZC10@AMDAHL.COM                    *   FILE 456
//*                                                                 *   FILE 456
//*                                                                 *   FILE 456
//*   FILE NAME : ->.SOURCE.FILE2 (ADDITIONAL MATERIAL).            *   FILE 456
//*   FOLLOWS A SUMMARY OF CONTENTS :                               *   FILE 456
//*                                                                 *   FILE 456
//*     $$$DOC     PRELIMINARY NOTES.                               *   FILE 456
//*     AIDINIT    ACCOUNTING INFORMATION DATA-SET INIT. PROGRAM.   *   FILE 456
//*     AIDLOAD    ACCOUNTING INFORMATION DATA-SET LOAD PROGRAM.    *   FILE 456
//*     AIDSYNC    ACC. INF. DATA-SET SYNCHRONIZATION PROGRAM.      *   FILE 456
//*     AIDUNLD    ACCOUNTING INFORMATION DATA-SET UNLOAD PROGRAM.  *   FILE 456
//*     AIDUPDT    ACCOUNTING INFORMATION DATA-SET UPDATE PROGRAM.  *   FILE 456
//*     AMRUTIL    ASSEMBLER MACROS REFERENCES UTILITY.             *   FILE 456
//*     AUT..      ACC. INF. DATA-SET MAINTENANCE (TSO).            *   FILE 456
//*     CATLIST    O.S. CATALOG LIST PROGRAM.                       *   FILE 456
//*     CLEAN      DISKS CLEAN-UP MAINTENANCE PROCESSING PROGRAM.   *   FILE 456
//*     COMPAK     COMPARE TWO IEAPAK.. VERSIONS.                   *   FILE 456
//*     DEVTGEN    GENERATE DEVICES TABLES (REC/TRK CAPACITIES).    *   FILE 456
//*     ENQANAL    ENQ'S ANALYSIS PROGRAM.                          *   FILE 456
//*     GDTUTIL    GENERATE DSECT'S TABLES UTILITY.                 *   FILE 456
//*     HELPLIST   TSO HELP DATA-SET LISTER.                        *   FILE 456
//*     ICFLIST    ICF CATALOG LIST PROGRAM.                        *   FILE 456
//*     ICHCNX00   RACF - COMMAND PRE-PROCESSING EXIT.              *   FILE 456
//*     ICHRCX01   RACF - RACHECK PRE-PROCESSING EXIT.              *   FILE 456
//*     ICHRDSNT   RACF - DATA-SET NAME TABLE.                      *   FILE 456
//*     ICHRIN03   RACF - STARTED PROCEDURES TABLE.                 *   FILE 456
//*     IEAVMXIT   COMMUNICATIONS TASK EXIT.                        *   FILE 456
//*     IEFACTRT   SMF - TERMINATION EXIT.                          *   FILE 456
//*     IEFUJI     SMF - JOB INITIATION EXIT.                       *   FILE 456
//*     IEFUJV     SMF - JOB VALIDATION EXIT.                       *   FILE 456
//*     IEFUSI     SMF - STEP INITIATION EXIT.                      *   FILE 456
//*     IEFUTL     SMF - TIME LIMIT EXIT.                           *   FILE 456
//*     IKJEFF10   TSO - SUBMIT EXIT ROUTINE.                       *   FILE 456
//*     JES2XIT    LOCAL JES2 EXITS.                                *   FILE 456
//*     LMRUTIL    LOAD MODULES REFERENCES UTILITY.                 *   FILE 456
//*     LTACC      LIST ACCOUNTING INF. DATA-SET CONTENTS PROGRAM.  *   FILE 456
//*     PDSPURGE   PO DATA-SETS DIRECTORY CLEANUP PROGRAM.          *   FILE 456
//*     PVSD       PRINT VARIABLE SYSOUT DATA-SETS PROGRAM.         *   FILE 456
//*     RACFXIT    LOCAL RACF EXITS.                                *   FILE 456
//*     RENAMP     RENAME PO DATA-SET MEMBERS TSO COMMAND.          *   FILE 456
//*     RSMANAL    RSM ANALYSIS PROGRAM.                            *   FILE 456
//*     SCHEDLOG   SCHEDULE/SCHEDRUN LOG LIST PROGRAM.              *   FILE 456
//*     SEEKANAL   SEEK ANALYSIS PROGRAM.                           *   FILE 456
//*     SHUTDOWN   OPERATOR GRACEFULL SERVICES TERMINATION.         *   FILE 456
//*     SLABEL     INITIALIZE 9-TRACKS TAPES VOLUMES.               *   FILE 456
//*     SMFEXIT    LOCAL SMF EXITS.                                 *   FILE 456
//*     STRTEST    STCLOK, TIME AND RTIME TEST PROGRAM.             *   FILE 456
//*     TIEFUJV    TEST IEFUJV SMF EXIT JCL SCAN PROGRAM.           *   FILE 456
//*     TTCBRB     TRACE ADDRESS SPACE TCB-RB'S CHAIN.              *   FILE 456
//*     TUTOLIST   TUTORIALS ISPF-PANELS LISTER.                    *   FILE 456
//*     UJVD       TSO IEFUJV DISPLAY COMMAND.                      *   FILE 456
//*     UJVT       TEST IEFUJV COMPUTATIONS PROGRAM.                *   FILE 456
//*     UJVTABLE   SMF - JOB VALIDATION EXIT TABLES.                *   FILE 456
//*     VSMANAL    VSM ANALYSIS PROGRAM.                            *   FILE 456
//*     VTOCANAL   VTOC ANALYSIS PROGRAM.                           *   FILE 456
//*     YATIL      LOOK IN A PO-DIRECTORY FOR A NAME EXISTENCE.     *   FILE 456
//*     YPACK      ACCOUNTING INF. DATA-SET SHORT PACKAGE ROUTINES. *   FILE 456
//*     ZPACK      ACCOUNTING INF. DATA-SET FULL PACKAGE ROUTINES.  *   FILE 456
//*     ZYDIAG     ACCOUNTING INFORMATION DATA-SET DIAGNOSTICS.     *   FILE 456
//*                                                                 *   FILE 456
//***FILE 457 IS FROM PAUL A MOINIL OF J.R.C. COMPUTING CENTRE      *   FILE 457
//*           IN ISPRA, ITALY.  THIS FILE IS THE DEMO/GAMES         *   FILE 457
//*           MATERIAL TO HIS LARGE COLLECTION OF SOFTWARE WHICH    *   FILE 457
//*           IS ON FILES 454 THRU 459.                             *   FILE 457
//*                                                                 *   FILE 457
//*             THERE IS ANOTHER CONTACT PERSON REGARDING THE       *   FILE 457
//*             MATERIALS IN THIS PACKAGE.  HE IS:                  *   FILE 457
//*                                                                 *   FILE 457
//*                             ANTONIO COLOMBO                     *   FILE 457
//*                             AMDAHL ITALIA S.P.A.                *   FILE 457
//*                             VIALE BRENTA, 16/18                 *   FILE 457
//*                             I-20139 MILANO                      *   FILE 457
//*                             ITALY                               *   FILE 457
//*                             +39(0332)786022                     *   FILE 457
//*                       OR    +39(02)574741   AMDAHL OFFICE       *   FILE 457
//*                       EMAIL ANTONIO.COLOMBO@JRC.ORG             *   FILE 457
//*                       EMAIL AZC10@AMDAHL.COM                    *   FILE 457
//*                                                                 *   FILE 457
//*   FILE NAME : ->.SOURCE.FILE3 (DEMO/GAMES MATERIAL).            *   FILE 457
//*   FOLLOWS A SUMMARY OF CONTENTS :                               *   FILE 457
//*                                                                 *   FILE 457
//*      $$$DOC     PRELIMINARY NOTES.                              *   FILE 457
//*      BLACKJK    TSO BLACKJACK GAME.                             *   FILE 457
//*      DECIDER    TRY IT ... PLAYER.                              *   FILE 457
//*      DIVER      TRY IT ... PLAYER.                              *   FILE 457
//*      GDDM       GDDM DEMONSTRATIONS.                            *   FILE 457
//*      JOTTO      TRY IT ... PLAYER.                              *   FILE 457
//*      KALAH      ANCIENT EGYPTIAN BOARD GAME.                    *   FILE 457
//*      KLINGON    KLINGON (SPACE WAR) GAME.                       *   FILE 457
//*      LIFE       TRY IT ... PLAYER.                              *   FILE 457
//*      LUNAR      LUNAR LANDING SIMULATION.                       *   FILE 457
//*      POKER      IBM 3270 DISPALY - SLOT MACHINE POKER GAME.     *   FILE 457
//*      SEIKO      FULL SCREEN DISPLAY CLOCK TIME.                 *   FILE 457
//*      SNAKE      SYSTEM-NODE-ACTIVITY-KNOWLEDGE-EXIT.            *   FILE 457
//*      STREK      TSO FULL-SCREEN STAR-TREK GAME.                 *   FILE 457
//*      T3270FS    IBM 3270 FULL-SCREEN TERMINAL TEST TSO COMMAND. *   FILE 457
//*      WORM       WONDERFUL-ONLINE-RESPONSE-MONITOR.              *   FILE 457
//*                                                                 *   FILE 457
//***FILE 458 IS FROM PAUL A MOINIL OF J.R.C. COMPUTING CENTRE      *   FILE 458
//*           IN ISPRA, ITALY.  THIS FILE IS THE CBT EXTRACTED      *   FILE 458
//*           MATERIAL TO HIS LARGE COLLECTION OF SOFTWARE WHICH    *   FILE 458
//*           IS ON FILES 454 THRU 459.                             *   FILE 458
//*                                                                 *   FILE 458
//*             THERE IS ANOTHER CONTACT PERSON REGARDING THE       *   FILE 458
//*             MATERIALS IN THIS PACKAGE.  HE IS:                  *   FILE 458
//*                                                                 *   FILE 458
//*                             ANTONIO COLOMBO                     *   FILE 458
//*                             AMDAHL ITALIA S.P.A.                *   FILE 458
//*                             VIALE BRENTA, 16/18                 *   FILE 458
//*                             I-20139 MILANO                      *   FILE 458
//*                             ITALY                               *   FILE 458
//*                             +39(0332)786022                     *   FILE 458
//*                       OR    +39(02)574741   AMDAHL OFFICE       *   FILE 458
//*                       EMAIL ANTONIO.COLOMBO@JRC.ORG             *   FILE 458
//*                       EMAIL AZC10@AMDAHL.COM                    *   FILE 458
//*                                                                 *   FILE 458
//*   FILE NAME : ->.SOURCE.FILE4 (CBT EXTRACTED MATERIAL).         *   FILE 458
//*                                                                 *   FILE 458
//*   FOLLOWS A SUMMARY OF CONTENTS :                               *   FILE 458
//*                                                                 *   FILE 458
//*    $$$DOC     PRELIMINARY NOTES.                                *   FILE 458
//*    CDSCB      MODIFY A DATA-SET FORMAT-1 DSCB.                  *   FILE 458
//*    COMPARE    COMPARE TSO COMMAND.                              *   FILE 458
//*    COMPAREB   A MODIFIED VERSION OF THE YALE COMPARE PROGRAM.   *   FILE 458
//*    CURESTA    CURRENT REGION STATISTICS DISPLAY.                *   FILE 458
//*    DIDOCS     SIMULATE AN OS CONSOLE AT TSO TUBE.               *   FILE 458
//*    DISASM     ONE-PASS DISASSEMBLER PROGRAM.                    *   FILE 458
//*    DOPROG     DOPROG/DOCP TSO COMMAND PROCESSOR.                *   FILE 458
//*    DSNCHECK   DSNCHECK TSO COMMAND.                             *   FILE 458
//*    DSNTAB     DSNTAB ROUTINE.                                   *   FILE 458
//*    ETPS       EMERGENCY TELE-PROCESSING SERVICES.               *   FILE 458
//*    HEL        A TSO FULL-SCREEN HELP COMMAND.                   *   FILE 458
//*    INCORZAP   MAIN STORAGE SUPERZAP SERVICE AID PROGRAM.        *   FILE 458
//*    JCLFLOW    JCLFLOW ISPF/PDF EDIT COMMAND.                    *   FILE 458
//*    LISTICAT   LIST AN ICF CATALOG PROGRAM.                      *   FILE 458
//*    MEMSTAT    MEMBER STATUS TSO COMMAND.                        *   FILE 458
//*    MODLOOK    MODULE'S LOOK UP PROGRAM/COMMAND.                 *   FILE 458
//*    NOTICE     BROADCAST NOTICES TSO COMMAND.                    *   FILE 458
//*    PACKLIST   IEAPAK00 MEMBER GENERATOR PROGRAM.                *   FILE 458
//*    PDFINIT    DYNAMIC ALLOCATION COMMAND FOR ISPF/PDF.          *   FILE 458
//*    PDSMATCH   COMPARE DIRECTORIES OF TWO PO DATA-SETS.          *   FILE 458
//*    POF        VTAM SECONDARY PROGRAM OPERATOR FACILITY.         *   FILE 458
//*    PSWSAMP    SAMPLER TAKER PROGRAM FOR PACKLIST.               *   FILE 458
//*    PUSE       PAGEING UTILIZATION PROGRAM.                      *   FILE 458
//*    QSP        THE QUEUE/SPOOL TSO COMMAND.                      *   FILE 458
//*    ROTATER    3800 PRINTER ROTATED 90 DEGREES CLOCKWISE.        *   FILE 458
//*    SCHEDULE   THE SCHEDULE/SCHEDRUN FACILITY PROGRAMS.          *   FILE 458
//*    TO         SEND A MESSAGE TO A USER.                         *   FILE 458
//*    WHATDSN    WHATDSN TSO COMMAND.                              *   FILE 458
//*    XREFASM    A GLOBAL CROSS-REFERENCE LISTING GENERATOR.       *   FILE 458
//*    ZAP        ZAP DATA-SET TSO COMMAND.                         *   FILE 458
//*                                                                 *   FILE 458
//***FILE 459 IS FROM PAUL A MOINIL OF J.R.C. COMPUTING CENTRE      *   FILE 459
//*           IN ISPRA, ITALY.  THIS FILE IS THE SUPPLEMENTARY      *   FILE 459
//*           MATERIAL TO HIS LARGE COLLECTION OF SOFTWARE WHICH    *   FILE 459
//*           IS ON FILES 454 THRU 459.                             *   FILE 459
//*                                                                 *   FILE 459
//*             THERE IS ANOTHER CONTACT PERSON REGARDING THE       *   FILE 459
//*             MATERIALS IN THIS PACKAGE.  HE IS:                  *   FILE 459
//*                                                                 *   FILE 459
//*                             ANTONIO COLOMBO                     *   FILE 459
//*                             AMDAHL ITALIA S.P.A.                *   FILE 459
//*                             VIALE BRENTA, 16/18                 *   FILE 459
//*                             I-20139 MILANO                      *   FILE 459
//*                             ITALY                               *   FILE 459
//*                             +39(0332)786022                     *   FILE 459
//*                       OR    +39(02)574741   AMDAHL OFFICE       *   FILE 459
//*                       EMAIL ANTONIO.COLOMBO@JRC.ORG             *   FILE 459
//*                       EMAIL AZC10@AMDAHL.COM                    *   FILE 459
//*                                                                 *   FILE 459
//*   FILE NAME : ->.SOURCE.FILE5 (SUPPLEMENTARY MATERIAL).         *   FILE 459
//*   FOLLOWS A SUMMARY OF CONTENTS :                               *   FILE 459
//*                                                                 *   FILE 459
//*      $$$DOC     PRELIMINARY NOTES.                              *   FILE 459
//*      DYLO       DYLON/DYLOFF TSO COMMAND (SESSION LIBRARIES     *   FILE 459
//*                 DYNAMIC ALLOCATION).                            *   FILE 459
//*      SHADOW     SHADOW/SHADUP ISPF APPLICATION (ENCRYPT/DECRYPT *   FILE 459
//*                 DATA-SETS FACILITY).                            *   FILE 459
//*      SHORT      SYSTEM SECTOR SHORT COMMUNICATION (ISPF).       *   FILE 459
//*      TOPSEC     DISPLAY TOP SECRET SHORT-WRITE-UP TSO COMMAND.  *   FILE 459
//*                                                                 *   FILE 459
//***FILE 460 IS FROM MR WILLIAM SMITH, FORMERLY OF SYNTEX IN       *   FILE 460
//*           CALIFORNIA, AND CONTAINS A COPY OF THE CLIB FILE      *   FILE 460
//*           FROM THE ISPF GUIDE TAPE.                             *   FILE 460
//*                                                                 *   FILE 460
//*         Address:   William Smith                                *   FILE 460
//*                    IBM                                          *   FILE 460
//*                    Storage Systems Division                     *   FILE 460
//*                    5600 Cottle Road                             *   FILE 460
//*                    Dept. W98A                                   *   FILE 460
//*                    Driver Build & Integration                   *   FILE 460
//*                    Building 50, Room A382                       *   FILE 460
//*                    San Jose, CA 95193-0001                      *   FILE 460
//*                    (408) 256-1557 or                            *   FILE 460
//*                    Tie Line 276-1557                            *   FILE 460
//*                                                                 *   FILE 460
//*         email:     smithwj@us.ibm.com                           *   FILE 460
//*                    goldens@ibm.net                              *   FILE 460
//*                                                                 *   FILE 460
//***FILE 461 IS FROM MR WILLIAM SMITH OF IBM IN CALIFORNIA         *   FILE 461
//*           AND CONTAINS A COPY OF THE DOC FILE FROM THE ISPF     *   FILE 461
//*           GUIDE TAPE.                                           *   FILE 461
//*                                                                 *   FILE 461
//***FILE 462 IS FROM MR WILLIAM SMITH OF IBM IN CALIFORNIA         *   FILE 462
//*           AND CONTAINS A COPY OF THE EDITMACS FILE FROM THE     *   FILE 462
//*           ISPF GUIDE TAPE.                                      *   FILE 462
//*                                                                 *   FILE 462
//***FILE 463 IS FROM MR WILLIAM SMITH OF IBM IN CALIFORNIA         *   FILE 463
//*           AND CONTAINS A COPY OF THE HELP FILE FROM THE ISPF    *   FILE 463
//*           GUIDE TAPE.                                           *   FILE 463
//*                                                                 *   FILE 463
//***FILE 464 IS FROM MR WILLIAM SMITH OF IBM IN CALIFORNIA         *   FILE 464
//*           AND CONTAINS A COPY OF THE ISPFMACS FILE FROM THE     *   FILE 464
//*           ISPF GUIDE TAPE.                                      *   FILE 464
//*                                                                 *   FILE 464
//***FILE 465 IS FROM MR WILLIAM SMITH OF IBM IN CALIFORNIA         *   FILE 465
//*           AND CONTAINS A COPY OF THE JCL FILE FROM THE ISPF     *   FILE 465
//*           GUIDE TAPE.                                           *   FILE 465
//*                                                                 *   FILE 465
//***FILE 466 IS FROM MR WILLIAM SMITH OF IBM IN CALIFORNIA         *   FILE 466
//*           AND CONTAINS A COPY OF THE MLIB FILE FROM THE ISPF    *   FILE 466
//*           GUIDE TAPE.                                           *   FILE 466
//*                                                                 *   FILE 466
//***FILE 467 IS FROM MR WILLIAM SMITH OF IBM IN CALIFORNIA         *   FILE 467
//*           AND CONTAINS A COPY OF THE PLIB FILE FROM THE ISPF    *   FILE 467
//*           GUIDE TAPE.                                           *   FILE 467
//*                                                                 *   FILE 467
//***FILE 468 IS FROM MR WILLIAM SMITH OF IBM IN CALIFORNIA         *   FILE 468
//*           AND CONTAINS A COPY OF THE SLIB FILE FROM THE ISPF    *   FILE 468
//*           GUIDE TAPE.                                           *   FILE 468
//*                                                                 *   FILE 468
//***FILE 469 IS FROM MR WILLIAM SMITH OF IBM IN CALIFORNIA         *   FILE 469
//*           AND CONTAINS A COPY OF THE SOURCE FILE FROM THE       *   FILE 469
//*           ISPF GUIDE TAPE.                                      *   FILE 469
//*                                                                 *   FILE 469
//***FILE 470 IS FROM MR WILLIAM SMITH OF IBM IN CALIFORNIA         *   FILE 470
//*           AND CONTAINS A COPY OF THE SVC99MAC FILE FROM THE     *   FILE 470
//*           ISPF GUIDE TAPE.                                      *   FILE 470
//*                                                                 *   FILE 470
//***FILE 471 is from Mr William Smith of IBM in California         *   FILE 471
//*           and contains a copy of the the MACRO file from        *   FILE 471
//*           the ISPF GUIDE tape.                                  *   FILE 471
//*                                                                 *   FILE 471
//***FILE 472 is an expanded version of the "MURPHY" TSO command    *   FILE 472
//*           which contains a collection of sayings, somewhat      *   FILE 472
//*           related to computing.  A collection of accumulated    *   FILE 472
//*           "wisdom".  The idea is to generate a different saying *   FILE 472
//*           every time the command is executed.  The sayings are  *   FILE 472
//*           generated at "random".  See the code for how it's     *   FILE 472
//*           done.                                                 *   FILE 472
//*                                                                 *   FILE 472
//***FILE 473 is from Scott Finlayson, and contains a program to    *   FILE 473
//*           check for all ASID's (address space id slots) that    *   FILE 473
//*           have become non-reusable. The program displays the    *   FILE 473
//*           list of non-reusable ASID's at the console,           *   FILE 473
//*           together with the total number of ASID's defined,     *   FILE 473
//*           and the total number still available.  Tells you      *   FILE 473
//*           when it's time to IPL.  Useful if you're like our     *   FILE 473
//*           shop and wait a long time between IPL's.  Good for    *   FILE 473
//*           a 24x7, or a pseudo 24x7 environment.                 *   FILE 473
//*                                                                 *   FILE 473
//*           Sample output for the program follows:                *   FILE 473
//*                                                                 *   FILE 473
//* NON-REUSEABLE ASIDS: 00487 00488 00489 00490 00491 00492 00493  *   FILE 473
//* NON-REUSEABLE ASIDS: 00494 00496 00497 00498 00499 00500 00501  *   FILE 473
//* NON-REUSEABLE ASIDS: 00502 00503 00504 00505 00506 00507 00508  *   FILE 473
//* NON-REUSEABLE ASIDS: 00509 00510 00511 00512                    *   FILE 473
//* ASID MAX = 00528; ASIDS AVAILABLE = 00147; NON-REUSABLES = 00221*   FILE 473
//*                                                                 *   FILE 473
//*           CHKASVT can be run from TSO as well, as a command,    *   FILE 473
//*           but it also puts its output to the system log, at     *   FILE 473
//*           the same time.                                        *   FILE 473
//*                                                                 *   FILE 473
//*           For support inquiries, please email Sam Golob,        *   FILE 473
//*           sbgolob@attglobal.net  or sbgolob@aol.com             *   FILE 473
//*                                                                 *   FILE 473
//***FILE 474 is from Rob Wunderlich and contains a system to       *   FILE 474
//*           compare several pds'es for the purpose of eliminating *   FILE 474
//*           redundant or unnecessary members.  This package is    *   FILE 474
//*           called LIBCLEAN.                                      *   FILE 474
//*                                                                 *   FILE 474
//*                Rob Wunderlich                                   *   FILE 474
//*                                                                 *   FILE 474
//*        email:  RobWunderlich@ussposco.com                       *   FILE 474
//*        phone:  (925) 439-6268                                   *   FILE 474
//*                                                                 *   FILE 474
//***FILE 475 is from Wayne Rhoten of IBM, and contains an informal *   FILE 475
//*           explanation of how to use the Large Block Interface   *   FILE 475
//*           for Magnetic Tapes, which is being introduced with    *   FILE 475
//*           OS/390 Release 2.10.                                  *   FILE 475
//*                                                                 *   FILE 475
//*           This small paper assumes that you have some prior     *   FILE 475
//*           knowledge of interfacing with tapes and tape labels.  *   FILE 475
//*                                                                 *   FILE 475
//***FILE 476 is an implementation of the LISP Language on MVS,     *   FILE 476
//*           from Steve Bacher of Draper Laboratory in Cambridge,  *   FILE 476
//*           Massachusetts.  This package includes a compiler,     *   FILE 476
//*           an interpreter, and an ISPF interface for the LISP    *   FILE 476
//*           language.  This is "industrial strength" LISP for     *   FILE 476
//*           MVS.                                                  *   FILE 476
//*                                                                 *   FILE 476
//*              Steve Bacher <seb@draper.com>                      *   FILE 476
//*                                                                 *   FILE 476
//*              Charles Stark Draper Laboratory                    *   FILE 476
//*              555 Technology Square                              *   FILE 476
//*              Cambridge, MA 02139                                *   FILE 476
//*              (617) 258-1525                                     *   FILE 476
//*                                                                 *   FILE 476
//*              Kjeld "Sandy" Hvatum <kjeld@ultranet.com>          *   FILE 476
//*                                                                 *   FILE 476
//*           Most members of this pds are in TSO XMIT format, and  *   FILE 476
//*           a batch job called $RECEIVE has been included here,   *   FILE 476
//*           to quckly create separate pds'es out of them.         *   FILE 476
//*                                                                 *   FILE 476
//*                                                                *   FILE 476
//*  ZZZZZZZZZZZZZZZZZ    IIIII   LLLLL                            *   FILE 476
//*  ZZZZZZZZZZZZZZZZZ     III     LLL                 L  I  S  P  *   FILE 476
//*  Z            ZZZ      III     LLL                             *   FILE 476
//*              ZZZ       III     LLL                             *   FILE 476
//*             ZZZ        III     LLL                     ON      *   FILE 476
//*            ZZZ         III     LLL                             *   FILE 476
//*           ZZZ          III     LLL                             *   FILE 476
//*          ZZZ           III     LLL                  M  V  S    *   FILE 476
//*         ZZZ            III     LLL                             *   FILE 476
//*        ZZZ             III     LLL                   _____     *   FILE 476
//*       ZZZ              III     LLL                      \    *   FILE 476
//*      ZZZ               III     LLL                    ___ \   *   FILE 476
//*     ZZZ                III     LLL                   /...\ \  *   FILE 476
//*    ZZZ                 III     LLL                   .o.   *   FILE 476
//*   ZZZ                  III     LLL                  _...-  *   FILE 476
//*  ZZZ            Z      III     LLL            L      \___/ /  *   FILE 476
//*  ZZZZZZZZZZZZZZZZ      III     LLLLLLLLLLLLLLLL          /   *   FILE 476
//*  ZZZZZZZZZZZZZZZZ     IIIII   LLLLLLLLLLLLLLLLL     _____/    *   FILE 476
//*                                                                *   FILE 476
//*                                                                 *   FILE 476
//*     ZIL - LISP for MVS - Version 1.3                            *   FILE 476
//*     Copyright 1989 The Charles Stark Draper Laboratory Inc.     *   FILE 476
//*     All Rights Reserved                                         *   FILE 476
//*                                                                 *   FILE 476
//*     Permission has been granted to include this package on      *   FILE 476
//*     the CBT MVS Utilities Tape.                                 *   FILE 476
//*                                                                 *   FILE 476
//*     ZIL is the creation of:                                     *   FILE 476
//*                                                                 *   FILE 476
//*     Steve "Batchman" Bacher <seb@draper.com> - the original     *   FILE 476
//*     conception, the compiler, the interpreter, and the bulk     *   FILE 476
//*     of the runtime, including the interfaces to TSO and ISPF    *   FILE 476
//*     and the Flavors object system.                              *   FILE 476
//*                                                                 *   FILE 476
//*     Kjeld "Sandy" Hvatum <kjeld@ultranet.com> - the runtime     *   FILE 476
//*     code that implements "bignum" arithmetic, symbol hashing    *   FILE 476
//*     and interning, the vectorizing garbage collector            *   FILE 476
//*     (available only if you have the 370 Vector Facility),       *   FILE 476
//*     and thorough, exhaustive testing.                           *   FILE 476
//*                                                                 *   FILE 476
//*     ZIL was developed at the Charles Stark Draper               *   FILE 476
//*     Laboratory (formerly the MIT Instrumentation                *   FILE 476
//*     Laboratory) in Cambridge, Massachusetts, starting in        *   FILE 476
//*     1983.  Steve and Sandy have successfully ported a           *   FILE 476
//*     number of AI applications to it, notably OPS5 (an           *   FILE 476
//*     expert system builder) and DOE Macsyma (a symbolic          *   FILE 476
//*     algebra powerhouse).  In addition, some local               *   FILE 476
//*     applications were developed using ZIL, including an         *   FILE 476
//*     expert system (under OPS5) to analyze and unload tapes      *   FILE 476
//*     on the mainframe.                                           *   FILE 476
//*                                                                 *   FILE 476
//***FILE 477 is from Brandon Hill and contains a program,          *   FILE 477
//*           called AWSUTIL, which takes MVS data from either      *   FILE 477
//*           disk or tape, and creates a "virtual tape file"       *   FILE 477
//*           in AWS format.  This file, which contains all the     *   FILE 477
//*           data normally in a complete tape, can then be         *   FILE 477
//*           electronically sent anywhere.  You no longer have     *   FILE 477
//*           to ship a physical tape.                              *   FILE 477
//*                                                                 *   FILE 477
//*           email:  Brandon Hill <nsysblh@acs.ncsu.edu>           *   FILE 477
//*                                                                 *   FILE 477
//***FILE 478 is from Jan Jaeger and contains the RAWSTAPE program  *   FILE 478
//*           which converts tape files from AWSTAPE format to      *   FILE 478
//*           something more normal.                                *   FILE 478
//*                                                                 *   FILE 478
//*              RAWSTAPE - Convert file from AWSTAPE format        *   FILE 478
//*                                                                 *   FILE 478
//*           Function:                                             *   FILE 478
//*                                                                 *   FILE 478
//*              This program converts an AWSTAPE format file       *   FILE 478
//*              to RECFM=U SYSUT1 is converted reblocked           *   FILE 478
//*              according to the AWS header records.  The          *   FILE 478
//*              blocksize of SYSUT2 can be reset using             *   FILE 478
//*              IEBGENER The parm field indicates the              *   FILE 478
//*              filenumber to be extracted, this number has        *   FILE 478
//*              the same value as when using BLP in JCL.           *   FILE 478
//*                                                                 *   FILE 478
//***FILE 479 is a collection of programs from Paul W. Lemons.      *   FILE 479
//*           Currently, this collection consists of three TSO      *   FILE 479
//*           programs.                                             *   FILE 479
//*                                                                 *   FILE 479
//*           email:   Paul W Lemons <plemons2@txu.com>             *   FILE 479
//*                                                                 *   FILE 479
//*      BCEDIT    - A set of REXX execs to edit and update         *   FILE 479
//*                  the current Global Notification records        *   FILE 479
//*                  in SYS1.BRODCAST.  These are the messages      *   FILE 479
//*                  that are displayed to everyone by the          *   FILE 479
//*                  LISTBC program, when they LOGON to TSO.        *   FILE 479
//*                  The system administrator can maintain these    *   FILE 479
//*                  notices easily with the help of these EXECs.   *   FILE 479
//*                                                                 *   FILE 479
//*      BKSEARCH  - A frontend to IBM's Bookmanager.  It is        *   FILE 479
//*                  designed to be cursor sensitive and will       *   FILE 479
//*                  search for an abend code or a system message   *   FILE 479
//*                  in the books contained in the IBM messages     *   FILE 479
//*                  bookshelf.  It would require that bookshelf    *   FILE 479
//*                  to have been uploaded and the BookManager      *   FILE 479
//*                  clist library to be allocated.  This code      *   FILE 479
//*                  will accept an abend code or message as a      *   FILE 479
//*                  parm.  However the best way to implement       *   FILE 479
//*                  would be to assign it to a PFKey and then      *   FILE 479
//*                  pressing that PFKey to read the data at the    *   FILE 479
//*                  cursor position.  This is NOT an edit macro    *   FILE 479
//*                  and should work from anywhere within ISPF.     *   FILE 479
//*                  I would be remiss in not acknowledging Doug    *   FILE 479
//*                  Nadel's %VCURSOR code that is an integral      *   FILE 479
//*                  part of this code.                             *   FILE 479
//*                                                                 *   FILE 479
//*      YAHTZEE   - A single player version of the YAHTZEE game    *   FILE 479
//*                  that runs under TSO.                           *   FILE 479
//*                                                                 *   FILE 479
//***FILE 480 is a collection of utilities from Baldomero Castilla  *   FILE 480
//*           of Madrid, Spain.  Baldomero can understand spoken    *   FILE 480
//*           English and written English, so he can support these  *   FILE 480
//*           programs.  But he can't write English, so all of the  *   FILE 480
//*           programs and utilities found here, are commented in   *   FILE 480
//*           Spanish.  I have translated Baldomero's general       *   FILE 480
//*           documentation into English, and if anyone needs a     *   FILE 480
//*           program translated, I guess I can try, without        *   FILE 480
//*           promising.  There's some very good code here, so if   *   FILE 480
//*           you think you can negotiate the Spanish, please give  *   FILE 480
//*           it a shot.  A translation of Baldomero's              *   FILE 480
//*           documentation follows:                                *   FILE 480
//*                                                                 *   FILE 480
//*      Translator's email:  Sam Golob <sbgolob@attglobal.net>     *   FILE 480
//*                                                                 *   FILE 480
//*                Baldomero Castilla Roldan                        *   FILE 480
//*                Programador de Sistemas                          *   FILE 480
//*                Madrid (Espana)                                  *   FILE 480
//*                bcastill@ceca.es                                 *   FILE 480
//*                bcastill@cajaactiva.es                           *   FILE 480
//*                                                                 *   FILE 480
//*     I have attempted to translate this documentation into       *   FILE 480
//*     English.  Please excuse my poor Spanish.   (S.Golob)        *   FILE 480
//*                                                                 *   FILE 480
//*     This contains a collection of utilities, which include      *   FILE 480
//*     the full program, and a JCL example.  There are REXX,       *   FILE 480
//*     CLIST, EDIT MACROS, etc.                                    *   FILE 480
//*                                                                 *   FILE 480
//*     All of the information is in 2 libraries:                   *   FILE 480
//*                                                                 *   FILE 480
//*      FILE 480 Source   (includes everything, except             *   FILE 480
//*                         executable modules)                     *   FILE 480
//*                                                                 *   FILE 480
//*      FILE 481 Loadlib  (includes the executables, some of       *   FILE 480
//*                         which need APF authorization.)          *   FILE 480
//*                                                                 *   FILE 480
//*     I think that the most interesting things are:               *   FILE 480
//*                                                                 *   FILE 480
//*        VERDSN, Used to find a file among all the disk           *   FILE 480
//*                packs in an installation                         *   FILE 480
//*                                                                 *   FILE 480
//*      CKLOCMEM, Used to find a member of a pds, among all        *   FILE 480
//*                the pds'es in the entire installation            *   FILE 480
//*                                                                 *   FILE 480
//*        CKDATE, This is a method of controling the steps of      *   FILE 480
//*                a JCL stream, depending on the date and the      *   FILE 480
//*                hour                                             *   FILE 480
//*                                                                 *   FILE 480
//*      Contents or the Library:                                   *   FILE 480
//*                                                                 *   FILE 480
//*        CALCUL   (REXX)                                          *   FILE 480
//*        CALCULP  (PANEL)                                         *   FILE 480
//*           Description => This is a calculator                   *   FILE 480
//*                                                                 *   FILE 480
//*        CKDATEJ  (JCL)                                           *   FILE 480
//*        CKDATEP  (Cataloged Procedure)                           *   FILE 480
//*        CKDATEX  (REXX)                                          *   FILE 480
//*           Description => Utility to know what year, month,      *   FILE 480
//*                       => day...etc.  in a JCL, depending        *   FILE 480
//*                       => on Return Code.                        *   FILE 480
//*                                                                 *   FILE 480
//*        CKDELMEJ (JCL)                                           *   FILE 480
//*        CKDELMEM (Source Program in Assembler)                   *   FILE 480
//*           Description => Delete a member of a partitioned       *   FILE 480
//*                       => dataset in a Batch Job (JCL), the      *   FILE 480
//*                       => advantage is to be able to refer       *   FILE 480
//*                       => to the library as DISP=SHR             *   FILE 480
//*                                                                 *   FILE 480
//*        CKFINAL  (MACRO)                                         *   FILE 480
//*           Description => Assembler macro                        *   FILE 480
//*                                                                 *   FILE 480
//*        CKIEBGEJ (JCL)                                           *   FILE 480
//*        CKIEBGEN (Source Program in Assembler)                   *   FILE 480
//*           Description => Program to make a copy between         *   FILE 480
//*                       => SYSUT1 and SYSUT2, the same as         *   FILE 480
//*                       => IEBGENER, but with files of            *   FILE 480
//*                       => arbitrary length.                      *   FILE 480
//*                                                                 *   FILE 480
//*        CKINICIO (MACRO)                                         *   FILE 480
//*           Description => Assembler macro                        *   FILE 480
//*                                                                 *   FILE 480
//*        CKLEVEL  (Source Program in Assembler)                   *   FILE 480
//*        CKLEVELJ (JCL)                                           *   FILE 480
//*           Description => Utility to list the contents of a      *   FILE 480
//*                       => group of sequential files,             *   FILE 480
//*                       => without giving the complete name,      *   FILE 480
//*                       => only a partial name, using LEVEL.      *   FILE 480
//*                                                                 *   FILE 480
//*        CKLOCMEJ (JCL)                                           *   FILE 480
//*        CKLOCMEM (Source Program in Assembler)                   *   FILE 480
//*           Description => Utility.  Given a member name,         *   FILE 480
//*                       => find all of the PDS or PDSE            *   FILE 480
//*                       => datasets of an installation where      *   FILE 480
//*                       => that module has to be APF              *   FILE 480
//*                       => authorized.                            *   FILE 480
//*                                                                 *   FILE 480
//*        CKRENMEJ (JCL)                                           *   FILE 480
//*        CKRENMEM (Source Program in Assembler)                   *   FILE 480
//*           Description => Rename a member of a pds in a          *   FILE 480
//*                       => Batch process i.e. with JCL.  The      *   FILE 480
//*                       => advantage is that you only have        *   FILE 480
//*                       => to allocate the library,               *   FILE 480
//*                       => DISP=SHR.                              *   FILE 480
//*                                                                 *   FILE 480
//*        CKSTJOBM (Source Program in Assembler)                   *   FILE 480
//*        CKSTJOBJ (JCL)                                           *   FILE 480
//*           Description => Utility to detect if a JOB or and      *   FILE 480
//*                       => STC is executing in the system.        *   FILE 480
//*                                                                 *   FILE 480
//*        CKSYMB   (EDIT MACRO)                                    *   FILE 480
//*        CKSYMBOL (Source Program in Assembler)                   *   FILE 480
//*        CKSYMBP  (Cataloged Procedure)                           *   FILE 480
//*           Description => Utility to submit a job (CKSYMB)       *   FILE 480
//*                       => but sustituting the global             *   FILE 480
//*                       => symbols defined to the system.         *   FILE 480
//*                       => Also, you can use an INTRDR            *   FILE 480
//*                       => (CKSYMBP) to execute such a job        *   FILE 480
//*                       => before substituting the system         *   FILE 480
//*                       => symbols.                               *   FILE 480
//*                                                                 *   FILE 480
//*        CKUSOJ   (JCL)                                           *   FILE 480
//*        CKUSOP   (Cataloged Procedure)                           *   FILE 480
//*        CKUSOX   (REXX)                                          *   FILE 480
//*           Description => Utility to use in JCL and to           *   FILE 480
//*                       => control what percentage of             *   FILE 480
//*                       => utilization a dataset has.             *   FILE 480
//*                                                                 *   FILE 480
//*        CKYAESTA (Source Program in Assembler)                   *   FILE 480
//*        CKYAESTJ (JCL)                                           *   FILE 480
//*           Description => Utility to detect if an STC is         *   FILE 480
//*                       => already executing in the system.       *   FILE 480
//*                                                                 *   FILE 480
//*        LLENAR   (EDIT MACRO)                                    *   FILE 480
//*           Description => Edit Macro to fill up a series of      *   FILE 480
//*                       => line numbers.  It has its own          *   FILE 480
//*                       => HELP incorporated in it.               *   FILE 480
//*                                                                 *   FILE 480
//*        MENSAJE  (Source Program in Assembler)                   *   FILE 480
//*           Description => Programs to invoke a WTO macro         *   FILE 480
//*                       => and transmit a message to the          *   FILE 480
//*                       => master console.                        *   FILE 480
//*                                                                 *   FILE 480
//*        MESES    (CLIST)                                         *   FILE 480
//*        MESP1    (PANEL)                                         *   FILE 480
//*        MESP2    (PANEL)                                         *   FILE 480
//*        MESP3    (PANEL)                                         *   FILE 480
//*           Description => This is a calendar, using PFK7 in      *   FILE 480
//*                       => order to display ahead, PFK8 to        *   FILE 480
//*                       => display backward, and PFK3 to          *   FILE 480
//*                       => exit.                                  *   FILE 480
//*                                                                 *   FILE 480
//*        PRESTAMO (CLIST)                                         *   FILE 480
//*        PRESTA   (PANEL)                                         *   FILE 480
//*        PRESTA4  (Source Program in COBOL)                       *   FILE 480
//*           Description => Utility to calculate lends             *   FILE 480
//*                                                                 *   FILE 480
//*                                                                 *   FILE 480
//*        SUMAR    (EDIT MACRO)                                    *   FILE 480
//*           Description => Edit Macro to total a series           *   FILE 480
//*                       => of numbers.  Has its own               *   FILE 480
//*                       => incorporated HELP.                     *   FILE 480
//*                                                                 *   FILE 480
//*        VERDSN   (REXX)                                          *   FILE 480
//*        VERDSNP  (PANEL)                                         *   FILE 480
//*        VERDSNS  (Source Program in Assembler)                   *   FILE 480
//*        VER00    (MESSAGES)                                      *   FILE 480
//*           Description => Utility to find a dataset on all       *   FILE 480
//*                       => of the disks in an installation        *   FILE 480
//*                                                                 *   FILE 480
//***FILE 481 is a collection of utilities from Baldomero Castilla  *   FILE 481
//*           of Madrid, Spain.  Baldomero can understand spoken    *   FILE 481
//*           English and written English, so he can support these  *   FILE 481
//*           programs.  But he can't write English, so all of the  *   FILE 481
//*           programs and utilities found here, are commented in   *   FILE 481
//*           Spanish.  I have translated Baldomero's general       *   FILE 481
//*           documentation into English, and if anyone needs a     *   FILE 481
//*           program translated, I guess I can try, without        *   FILE 481
//*           promising.  There's some very good code here, so if   *   FILE 481
//*           you think you can negotiate the Spanish, please give  *   FILE 481
//*           it a shot.                                            *   FILE 481
//*                                                                 *   FILE 481
//*           This file contains load modules for Baldomero's       *   FILE 481
//*           utility collection.  For the source code, please      *   FILE 481
//*           see File 480.                                         *   FILE 481
//*                                                                 *   FILE 481
//*      Translator's email:  Sam Golob <sbgolob@attglobal.net>     *   FILE 481
//*                                                                 *   FILE 481
//*                Baldomero Castilla Roldan                        *   FILE 481
//*                Programador de Sistemas                          *   FILE 481
//*                Madrid (Espana)                                  *   FILE 481
//*                bcastill@ceca.es                                 *   FILE 481
//*                bcastill@cajaactiva.es                           *   FILE 481
//*                                                                 *   FILE 481
//***FILE 482 is from Eric Bielefeld of Milwaukee, Wisconsin, and   *   FILE 482
//*           contains a program called GDGCOPY to copy GDG files,  *   FILE 482
//*           in proper order, from one GDG to another.  The reason *   FILE 482
//*           for putting this program on the CBT Tape was because  *   FILE 482
//*           of a recent discussion thread on IBM-MAIN (circa      *   FILE 482
//*           end of August 2000) about copying GDG datasets in the *   FILE 482
//*           proper order.                                         *   FILE 482
//*                                                                 *   FILE 482
//*           Eric Bielefeld <EBIE@hii.com>                         *   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
//***SECTION ADDITION SECTION                                       *   FILE 500
//* &$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$% *   FILE 500
//* &$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$% *   FILE 500
//* &$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$% *   FILE 500
//*                                                                 *   FILE 500
//*    WHEN ADDITIONS ARE ADDED TO THE TAPE, RATHER THEN PUTTING    *   FILE 500
//*    THEM AT THE END OF THE TAPE, I WILL NOW PLACE THEM IN        *   FILE 500
//*    FILES THAT WERE PREVIOUSLY DELETED AND ARE NOW EMPTY,        *   FILE 500
//*    ASSUMING THAT THERE ARE ANY EMPTY FILES AVAILABLE            *   FILE 500
//*                                                                 *   FILE 500
//* &$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$% *   FILE 500
//* &$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$% *   FILE 500
//* &$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$% *   FILE 500
//*                                                                 *   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
